PSOP261.m

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 ---PSOP261   1043     printed  Apr 09, 2024@21:28:05                                                                                                                                                                                                     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