PSJUTL99.m

PSJUTL99 ;IHS/ITSC/ENM - SPECIAL PATCHES INSTALL [ 11/22/2002  4:06 PM ]

 ;;4.5; Inpatient Medications ;;02/11/2002

EP ;ENTRY POINT

 W !!,"This routine will install all of the portions of various patches",!,"that contained manual installation instructions!",!

 ;

 W !!,?20,">>>>> POST PART 1 <<<<<",!!

 D ^PSJ1INIT ;PSJ*4.5*3

 W !!,?20,">>>>> POST PART 2 <<<<<",!!

 D ^PSJUTL2 ;PSJ*4.5*12

 W !!,?20,">>>>> POST PART 3 <<<<<",!!

 D ^PSJUTL1 ;PSJ*4.5*10

 W !!,?20,">>>>> POST PART 4 <<<<<",!!

 D ^PSJUTL3 ;PSJ*4.5*22

 W !!,?20,">>>>> POST PART 5 <<<<<",!!

 D ^PSJUTL4 ;PSJ*4.5*24

 W !!,?20,">>>>> POST PART 6 <<<<<",!!

 D ^PSJAINIT ;PSJ*4.5*27

 W !!,?20,">>>>> POST PART 7 <<<<<",!!

 D ^PSJUTL5 ;PSJ*4.5*39

 W !!,?20,">>>>> POST PART 8 <<<<<",!!

 D ^PSW1INIT ;AUTO REPLENISHMENT WARD STOCK PATCH #3

 W !!,?20,">>>>> POST PART 9 <<<<<",!!

 D ^PSGWFIX ;AUTO REPLENISHMENT WARD STOCK PATCH #4

 M ^PS(54)=^DIC(54) ;IHS/ITSC/ENM 05/13/02 MOVE RX CONSULT DATA

 S ^DD(55,0,"DIC")="AUPNLK" ;ENM 07/30/02 STUFF NODE FOR SPECIAL LOOKUP

 W !!,?20,">>>>> POST PART 10 <<<<<",!!

 D ^APSP416 ;CHECK 50.416 SUB-FILE NODES FOR MISSING ZERO NODES AND FIX

 W !!,?20,">>>>> POST PART 11 <<<<<",!!

 D ^PSNJP54 ;MANUAL CALL FROM NDF P54

 D ^PSNOP54 ;MANUAL CALL FROM NDF P54

 W !!,"Done with Patch #54 Manual Calls....",!

 ;INPUT OR* PATCHES

 ;D ^PSJUTL3 ;PSJ*4.5*40

EP1 ;EP

 ;S ZZ=$O(^DIC(9.4,"B","NATIONAL DRUG FILE",0))

 ;M ^DIC(9.4,ZZ,22,8,"PAH")=^APSX(9.4,101,22,8,"PAH")

 ;W !,"Application Patch History for Package File entry "_ZZ_" has been loaded!!",!

 ;K ^APSX ;REMOVE THIS GLOBAL AFTERWARDS

 Q

PSJUTL99  ;IHS/ITSC/ENM - SPECIAL PATCHES INSTALL [ 11/22/2002  4:06 PM ]

 +1       ;;4.5; Inpatient Medications ;;02/11/2002

EP        ;ENTRY POINT

 +1        WRITE !!,"This routine will install all of the portions of various patches",!,"that contained manual installation instructions!",!

 +2       ;

 +3        WRITE !!,?20,">>>>> POST PART 1 <<<<<",!!

 +4       ;PSJ*4.5*3

           DO ^PSJ1INIT

 +5        WRITE !!,?20,">>>>> POST PART 2 <<<<<",!!

 +6       ;PSJ*4.5*12

           DO ^PSJUTL2

 +7        WRITE !!,?20,">>>>> POST PART 3 <<<<<",!!

 +8       ;PSJ*4.5*10

           DO ^PSJUTL1

 +9        WRITE !!,?20,">>>>> POST PART 4 <<<<<",!!

 +10      ;PSJ*4.5*22

           DO ^PSJUTL3

 +11       WRITE !!,?20,">>>>> POST PART 5 <<<<<",!!

 +12      ;PSJ*4.5*24

           DO ^PSJUTL4

 +13       WRITE !!,?20,">>>>> POST PART 6 <<<<<",!!

 +14      ;PSJ*4.5*27

           DO ^PSJAINIT

 +15       WRITE !!,?20,">>>>> POST PART 7 <<<<<",!!

 +16      ;PSJ*4.5*39

           DO ^PSJUTL5

 +17       WRITE !!,?20,">>>>> POST PART 8 <<<<<",!!

 +18      ;AUTO REPLENISHMENT WARD STOCK PATCH #3

           DO ^PSW1INIT

 +19       WRITE !!,?20,">>>>> POST PART 9 <<<<<",!!

 +20      ;AUTO REPLENISHMENT WARD STOCK PATCH #4

           DO ^PSGWFIX

 +21      ;IHS/ITSC/ENM 05/13/02 MOVE RX CONSULT DATA

           MERGE ^PS(54)=^DIC(54)

 +22      ;ENM 07/30/02 STUFF NODE FOR SPECIAL LOOKUP

           SET ^DD(55,0,"DIC")="AUPNLK"

 +23       WRITE !!,?20,">>>>> POST PART 10 <<<<<",!!

 +24      ;CHECK 50.416 SUB-FILE NODES FOR MISSING ZERO NODES AND FIX

           DO ^APSP416

 +25       WRITE !!,?20,">>>>> POST PART 11 <<<<<",!!

 +26      ;MANUAL CALL FROM NDF P54

           DO ^PSNJP54

 +27      ;MANUAL CALL FROM NDF P54

           DO ^PSNOP54

 +28       WRITE !!,"Done with Patch #54 Manual Calls....",!

 +29      ;INPUT OR* PATCHES

 +30      ;D ^PSJUTL3 ;PSJ*4.5*40

EP1       ;EP

 +1       ;S ZZ=$O(^DIC(9.4,"B","NATIONAL DRUG FILE",0))

 +2       ;M ^DIC(9.4,ZZ,22,8,"PAH")=^APSX(9.4,101,22,8,"PAH")

 +3       ;W !,"Application Patch History for Package File entry "_ZZ_" has been loaded!!",!

 +4       ;K ^APSX ;REMOVE THIS GLOBAL AFTERWARDS

 +5        QUIT