VistA Analysis » VistA Reference » RPCs » ORDEA CSVALUE

ORDEA CSVALUE

Properties

Property Value
Label CSVALUE
MUMPS Implementation ORDEA
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method CSVALUE^ORDEA
Method Comment return 1 if the order (ORID) is a controlled substance, 0 for non-controlled substance
Input Parameters ORID
Code
 N OROI,ORPSTYPE,ORRXDG
S ORY=0,ORPSTYPE=""
S OROI=$$OI^ORQOR2(+ORID)
S ORRXDG=$$DGRX^ORQOR2(+ORID)
I ORRXDG="UNIT DOSE MEDICATIONS" S ORPSTYPE="I"
I ORRXDG="INPATIENT MEDICATIONS" S ORPSTYPE="I"
I ORRXDG="IV MEDICATIONS" S ORPSTYPE="I"
I ORRXDG="OUTPATIENT MEDICATIONS" S ORPSTYPE="O"
I ORRXDG="PHARMACY" S ORPSTYPE="O"
Q:ORPSTYPE=""
D CSCHECK(.ORY,OROI,ORPSTYPE)
S ORY=+ORY

CPRS

File Type Description
Pascal File uCore.pas


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