VistA Analysis » VistA Reference » RPCs » ORWDXR01 OXDATA

ORWDXR01 OXDATA

Properties

Property Value
Label OXDATA
MUMPS Implementation ORWDXR01
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method OXDATA^ORWDXR01
Method Comment Return orderable item data for order check usage
Input Parameters ORIEN
Code
 Q:'$D(^OR(100,+ORIEN,0))
D MAYBEIV(.ORY,ORIEN,1) I $L($G(ORY))>1 Q
N DRUGID,OIID,IDX,IDY,DISPIN,DISPOUT,DISPID
S (DRUGID,OIID,IDX,IDY,DISPIN,DISPOUT)=0
S DISPID=""
S DISPIN=$O(^ORD(100.98,"B","UD RX",0))
S DISPOUT=$O(^ORD(100.98,"B","O RX",0))
N DISPCM S DISPCM=$O(^ORD(100.98,"B","CLINIC MEDICATIONS",0))
N DISPCMIV S DISPCMIV=$O(^ORD(100.98,"B","CLINIC INFUSIONS",0))
S DRUGID=$O(^OR(100,+ORIEN,4.5,"ID","DRUG",0))
S OIID=$O(^OR(100,+ORIEN,4.5,"ID","ORDERABLE",0))
S DISPID=$P(^OR(100,+ORIEN,0),U,11)
I DISPID=DISPIN S DISPID="PSI"
I DISPID=DISPOUT S DISPID="PSO"
I DISPID=DISPCM S DISPID="PSI"
I DISPID=DISPCMIV S DISPID="PSI"
I (DISPID'="PSI"),(DISPID'="PSO") Q
I 'DRUGID,DISPID="PSI" D
.N ORCHI S ORCHI=0 F S ORCHI=$O(^OR(100,+ORIEN,2,ORCHI)) Q:'ORCHI D
..N ORCHDRID,ORCHOIID,ORCHIDX,ORCHIDY
..S ORCHDRID=$O(^OR(100,+ORCHI,4.5,"ID","DRUG",0))
..S ORCHOIID=$O(^OR(100,+ORCHI,4.5,"ID","ORDERABLE",0))
..Q:'ORCHDRID
..Q:'ORCHOIID
..S ORCHIDX=$O(^OR(100,+ORCHI,4.5,ORCHDRID,0))
..S ORCHIDY=$O(^OR(100,+ORCHI,4.5,ORCHOIID,0))
..I ORCHIDX,ORCHIDY S ORY=$G(^OR(100,+ORCHI,4.5,ORCHOIID,ORCHIDY))_U_DISPID_U_$G(^OR(100,+ORCHI,4.5,ORCHDRID,ORCHIDX))_"/"_$G(ORY)
Q:'DRUGID
Q:'OIID
S IDX=$O(^OR(100,+ORIEN,4.5,DRUGID,0))
S IDY=$O(^OR(100,+ORIEN,4.5,OIID,0))
I IDX,IDY,'+DISPID S ORY=$G(^OR(100,+ORIEN,4.5,OIID,IDY))_U_DISPID_U_$G(^OR(100,+ORIEN,4.5,DRUGID,IDX))

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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