PSOP261 ;BIR/SJA - post install for PSO*7*261 ;04/24/07
;;7.0;OUTPATIENT PHARMACY;**261**;DEC 1997;Build 9
; Reference to ^ORD(101 is supported by DBIA #872
;
S PSOPRTCL=$O(^ORD(101,"B","PSO HIDDEN ACTIONS #2",0))
S PSOTH=$O(^ORD(101,"B","PSO LM HIDDEN OTHER",0)),PSORS=$O(^ORD(101,"B","PSO SPEED SIG LOG REPRINT",0))
S PSODN=$O(^ORD(101,"B","VALM DOWN A LINE",0))
I 'PSOPRTCL!'PSOTH!'PSORS!'PSODN Q
S PSOTHN=$O(^ORD(101,PSOPRTCL,10,"B",PSOTH,0))
S PSORSN=$O(^ORD(101,PSOPRTCL,10,"B",PSORS,0))
S PSODNN=$O(^ORD(101,PSOPRTCL,10,"B",PSODN,0))
I 'PSOTHN!'PSORSN!'PSODNN Q
S PSOTHN3=$P($G(^ORD(101,PSOPRTCL,10,PSOTHN,0)),"^",3),PSORSN3=$P($G(^ORD(101,PSOPRTCL,10,PSORSN,0)),"^",3)
S PSODNN3=$P($G(^ORD(101,PSOPRTCL,10,PSODNN,0)),"^",3)
Q:PSOTHN3'=PSORSN3
S DA(1)=PSOPRTCL
K DIE S DA=PSODNN,DIE="^ORD(101,"_DA(1)_",10,",DR="3////"_19 D ^DIE K DR,DIE
K DIE S DA=PSOTHN,DIE="^ORD(101,"_DA(1)_",10,",DR="3////"_18 D ^DIE K DR,DIE
K DIE S DA=PSORSN,DIE="^ORD(101,"_DA(1)_",10,",DR="3////"_17 D ^DIE K DA,DR,DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOP261 1043 printed Dec 13, 2024@02:32:33 Page 2
PSOP261 ;BIR/SJA - post install for PSO*7*261 ;04/24/07
+1 ;;7.0;OUTPATIENT PHARMACY;**261**;DEC 1997;Build 9
+2 ; Reference to ^ORD(101 is supported by DBIA #872
+3 ;
+4 SET PSOPRTCL=$ORDER(^ORD(101,"B","PSO HIDDEN ACTIONS #2",0))
+5 SET PSOTH=$ORDER(^ORD(101,"B","PSO LM HIDDEN OTHER",0))
SET PSORS=$ORDER(^ORD(101,"B","PSO SPEED SIG LOG REPRINT",0))
+6 SET PSODN=$ORDER(^ORD(101,"B","VALM DOWN A LINE",0))
+7 IF 'PSOPRTCL!'PSOTH!'PSORS!'PSODN
QUIT
+8 SET PSOTHN=$ORDER(^ORD(101,PSOPRTCL,10,"B",PSOTH,0))
+9 SET PSORSN=$ORDER(^ORD(101,PSOPRTCL,10,"B",PSORS,0))
+10 SET PSODNN=$ORDER(^ORD(101,PSOPRTCL,10,"B",PSODN,0))
+11 IF 'PSOTHN!'PSORSN!'PSODNN
QUIT
+12 SET PSOTHN3=$PIECE($GET(^ORD(101,PSOPRTCL,10,PSOTHN,0)),"^",3)
SET PSORSN3=$PIECE($GET(^ORD(101,PSOPRTCL,10,PSORSN,0)),"^",3)
+13 SET PSODNN3=$PIECE($GET(^ORD(101,PSOPRTCL,10,PSODNN,0)),"^",3)
+14 if PSOTHN3'=PSORSN3
QUIT
+15 SET DA(1)=PSOPRTCL
+16 KILL DIE
SET DA=PSODNN
SET DIE="^ORD(101,"_DA(1)_",10,"
SET DR="3////"_19
DO ^DIE
KILL DR,DIE
+17 KILL DIE
SET DA=PSOTHN
SET DIE="^ORD(101,"_DA(1)_",10,"
SET DR="3////"_18
DO ^DIE
KILL DR,DIE
+18 KILL DIE
SET DA=PSORSN
SET DIE="^ORD(101,"_DA(1)_",10,"
SET DR="3////"_17
DO ^DIE
KILL DA,DR,DIE
+19 QUIT