VistA Analysis » VistA Reference » RPCs » ORWDPS1 ODSLCT

ORWDPS1 ODSLCT

Properties

Property Value
Label ODSLCT
MUMPS Implementation ORWDPS1
Return Type ARRAY

MUMPS Method Description

Property Value
Method ODSLCT^ORWDPS1
Method Comment return default lists for dialog
Input Parameters PSTYPE, DFN, LOC
First Comment 
 PSTYPE: pharmacy type (U=unit dose, F=IV fluids, O=outpatient)
Code 
 N ILST S ILST=0
 S ILST=ILST+1,LST(ILST)="~Priority" D PRIOR
 S ILST=ILST+1,LST(ILST)="~DispMsg"
 S ILST=ILST+1,LST(ILST)="d"_$$DISPMSG
 I PSTYPE="O" D                                ; Outpatient
 . S ILST=ILST+1,LST(ILST)="~Refills"
 . S ILST=ILST+1,LST(ILST)="d0^0"
 . S ILST=ILST+1,LST(ILST)="~Pickup"
 . S ILST=ILST+1,LST(ILST)="d"_$$DEFPICK($G(LOC))
 . ; S ILST=ILST+1,LST(ILST)="~Supply"
 . ; S ILST=ILST+1,LST(ILST)="d^"_$$DEFSPLY(DFN)

CPRS

File Type Description
Pascal File Orders/rODMeds.pas


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