PSO750PI ;BHAM/MFR - PSO*7*750 POST INSTALL; 10/01/2022 11:24Am
;;7.0;OUTPATIENT PHARMACY;**750**;DEC 1997;Build 6
;
EN ; Entry Point
N HOPIEN,RRPIEN,DONE,IEN,CHHOPIEN
D BMES^XPDUTL("Starting post-install for PSO*7*750 at "_$$FMTE^XLFDT($$NOW^XLFDT()))
;
; Fixing issue with PSO LM HIDDEN OTHER #2 protocol (Re-attaching PSO ERX SINGLE RXRENEWAL REQUEST protocol)
S HOPIEN=+$O(^ORD(101,"B","PSO LM HIDDEN OTHER #2",0))
S RRPIEN=+$O(^ORD(101,"B","PSO ERX SINGLE RXRENEWAL REQUEST",0))
S (DONE,IEN)=0
F S IEN=$O(^ORD(101,HOPIEN,10,IEN)) Q:'IEN D I DONE Q
. S CHHOPIEN=+$G(^ORD(101,HOPIEN,10,IEN,0))
. I $D(^ORD(101,CHHOPIEN,0)) Q
. K ^ORD(101,HOPIEN,10,IEN,0)
. K ^ORD(101,HOPIEN,10,"B",CHHOPIEN)
. I $G(RRPIEN) D
. . S ^ORD(101,HOPIEN,10,IEN,0)=RRPIEN_"^RR"
. . S ^ORD(101,HOPIEN,10,"B",RRPIEN,IEN)=""
. . S DONE=1
I HOPIEN,RRPIEN,'$D(^ORD(101,HOPIEN,10,"B",RRPIEN)) D
. S IEN=$O(^ORD(101,HOPIEN,10,9999),-1)+1
. S ^ORD(101,HOPIEN,10,IEN,0)=RRPIEN_"^RR"
. S ^ORD(101,HOPIEN,10,"B",RRPIEN,IEN)=""
;
I HOPIEN S XQORM=HOPIEN_";ORD(101," D XREF^XQORM
;
;
D BMES^XPDUTL("Post-install for PSO*7*750 completed successfully at "_$$FMTE^XLFDT($$NOW^XLFDT()))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO750PI 1212 printed Sep 23, 2025@19:59:44 Page 2
PSO750PI ;BHAM/MFR - PSO*7*750 POST INSTALL; 10/01/2022 11:24Am
+1 ;;7.0;OUTPATIENT PHARMACY;**750**;DEC 1997;Build 6
+2 ;
EN ; Entry Point
+1 NEW HOPIEN,RRPIEN,DONE,IEN,CHHOPIEN
+2 DO BMES^XPDUTL("Starting post-install for PSO*7*750 at "_$$FMTE^XLFDT($$NOW^XLFDT()))
+3 ;
+4 ; Fixing issue with PSO LM HIDDEN OTHER #2 protocol (Re-attaching PSO ERX SINGLE RXRENEWAL REQUEST protocol)
+5 SET HOPIEN=+$ORDER(^ORD(101,"B","PSO LM HIDDEN OTHER #2",0))
+6 SET RRPIEN=+$ORDER(^ORD(101,"B","PSO ERX SINGLE RXRENEWAL REQUEST",0))
+7 SET (DONE,IEN)=0
+8 FOR
SET IEN=$ORDER(^ORD(101,HOPIEN,10,IEN))
if 'IEN
QUIT
Begin DoDot:1
+9 SET CHHOPIEN=+$GET(^ORD(101,HOPIEN,10,IEN,0))
+10 IF $DATA(^ORD(101,CHHOPIEN,0))
QUIT
+11 KILL ^ORD(101,HOPIEN,10,IEN,0)
+12 KILL ^ORD(101,HOPIEN,10,"B",CHHOPIEN)
+13 IF $GET(RRPIEN)
Begin DoDot:2
+14 SET ^ORD(101,HOPIEN,10,IEN,0)=RRPIEN_"^RR"
+15 SET ^ORD(101,HOPIEN,10,"B",RRPIEN,IEN)=""
+16 SET DONE=1
End DoDot:2
End DoDot:1
IF DONE
QUIT
+17 IF HOPIEN
IF RRPIEN
IF '$DATA(^ORD(101,HOPIEN,10,"B",RRPIEN))
Begin DoDot:1
+18 SET IEN=$ORDER(^ORD(101,HOPIEN,10,9999),-1)+1
+19 SET ^ORD(101,HOPIEN,10,IEN,0)=RRPIEN_"^RR"
+20 SET ^ORD(101,HOPIEN,10,"B",RRPIEN,IEN)=""
End DoDot:1
+21 ;
+22 IF HOPIEN
SET XQORM=HOPIEN_";ORD(101,"
DO XREF^XQORM
+23 ;
+24 ;
+25 DO BMES^XPDUTL("Post-install for PSO*7*750 completed successfully at "_$$FMTE^XLFDT($$NOW^XLFDT()))
+26 QUIT
