PSO750PI.m

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 ---PSO750PI   1212     printed  Apr 09, 2024@21:30:18                                                                                                                                                                                                    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