VistA Analysis » VistA Reference » RPCs » ORWDAL32 CLINUSER

ORWDAL32 CLINUSER

Determine if user can perform cover sheet allergy actions.

Properties

Property	Value
Label	CLINUSER
MUMPS Implementation	ORWDAL33
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method CLINUSER^ORWDAL33

Method Comment can user mark allergy as entered in error

Code

Property	Value
Method	CLINUSER^ORWDAL33
Method Comment	can user mark allergy as entered in error
Code	N DIC,X,PRM,Y,ORLST,ORX,PLIST,VALUE S DIC=8989.51,DIC(0)="MX",X="OR ALLERGY ENTERED IN ERROR" D ^DIC I Y=-1 S ORY=0 Q ;Parameter not found so quit S PRM=+Y S ORY=$$GET^XPAR("USR",PRM) I ORY'="" Q D ENVAL^XPAR(.ORLST,PRM) I ORLST>0 D . S ORX="" F S ORX=$O(ORLST(ORX)) Q:ORX="" D . . Q:ORX'["USR(8930" . . I $$ISA^USRLM(DUZ,+ORX) S VALUE(+ORX)=ORLST(ORX,1) . S ORX=0 F S ORX=$O(VALUE(ORX)) Q:'+ORX D REMOVE(ORX) . S ORX=0 F S ORX=$O(VALUE(ORX)) Q:'+ORX S VALUE=$G(VALUE)!(VALUE(ORX)) S ORY=$G(VALUE) I ORY'="" Q S ORY=$$GET^XPAR("DIV^SYS",PRM) I ORY'="" Q S ORY=0 Q

 N DIC,X,PRM,Y,ORLST,ORX,PLIST,VALUE
 S DIC=8989.51,DIC(0)="MX",X="OR ALLERGY ENTERED IN ERROR" D ^DIC
 I Y=-1 S ORY=0 Q  ;Parameter not found so quit
 S PRM=+Y
 S ORY=$$GET^XPAR("USR",PRM) I ORY'="" Q
 D ENVAL^XPAR(.ORLST,PRM)
 I ORLST>0 D
 . S ORX="" F  S ORX=$O(ORLST(ORX)) Q:ORX=""  D
 . . Q:ORX'["USR(8930"
 . . I $$ISA^USRLM(DUZ,+ORX) S VALUE(+ORX)=ORLST(ORX,1)
 . S ORX=0 F  S ORX=$O(VALUE(ORX)) Q:'+ORX  D REMOVE(ORX)
 . S ORX=0 F  S ORX=$O(VALUE(ORX)) Q:'+ORX  S VALUE=$G(VALUE)!(VALUE(ORX))
 S ORY=$G(VALUE)
 I ORY'="" Q
 S ORY=$$GET^XPAR("DIV^SYS",PRM) I ORY'="" Q
 S ORY=0 Q

CPRS

File Type	Description
Pascal File	Orders/rODAllergy.pas

Document generated on August 31st 2022, 2:55:43 pm