| Code |
S ORY=0
Q:'$D(^OR(100,+ORID,0))
N IPGRP,ORGRP,DGRP,LOC,AIPM ;*327,362 - Add IV, clinic display groups
S LOC=+$P($G(^OR(100,+ORID,0)),U,10),AIPM=$D(^SC("AE",1,LOC))
S DGRP=$S($G(AIPM):"C RX",$G(^OR(100,+ORID,4))["V":"IV RX",1:"UD RX")
S IPGRP=$O(^ORD(100.98,"B",DGRP,0))
S ORGRP=$P($G(^OR(100,+ORID,0)),U,11)
I ORGRP'=IPGRP S ORY=1 Q
N SCH,IDX,SCHVAL S (SCH,SCHVAL)=""
I $D(^OR(100,+ORID,4.5,"ID","SCHEDULE")) S SCH=$O(^OR(100,+ORID,4.5,"ID","SCHEDULE",0))
I SCH="" S ORY=1 Q
S IDX=0 F S IDX=$O(^OR(100,+ORID,4.5,SCH,IDX)) Q:'IDX D
. S SCHVAL=$G(^OR(100,+ORID,4.5,SCH,IDX))
. Q:'$L(SCHVAL)
. D VALSCH^ORWDPS33(.ORY,SCHVAL,"I")
. I ORY=0 Q
|