Routine: PSJIPSTA

PSJIPSTA ;BIR/CML3-POST-INIT TO UPDATE ACTIVITY LOG REASON FILE ;07 AUG 97 / 9:08 AM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

ALRE ;

 D MES^XPDUTL(" ")

 S PSJMESSG="....Updating the Activity Log Reason file...." D MES^XPDUTL(PSJMESSG) K ^PS(53.3) S ^PS(53.3,0)=$P($T(Q+1),";",4) F A=2:1 S B=$P($T(Q+A),";",3),C=$P($T(Q+A),";",4) Q:C=""  S ^PS(53.3,B,0)=C,^PS(53.3,"C",$P(C,"^",2),B)=""

 K A,B,C

Q Q

 ;;;ACTIVITY LOG REASON^53.3OI^24000^75

 ;;1010;AUTO DISCONTINUED  (PATIENT DECEASED)^ADDC

 ;;1030;AUTO DISCONTINUED  (DISCHARGE)^ADD

 ;;1050;AUTO DISCONTINUED  (NEW ADMISSION)^ADNA

 ;;1060;AUTO DISCONTINUED  (AUTHORIZED ABSENCE)^ADAA

 ;;1070;AUTO DISCONTINUED  (SERVICE TRANSFER)^ADST

 ;;1080;AUTO DISCONTINUED  (WARD TRANSFER)^ADWT

 ;;1090;AUTO DISCONTINUED  (UNAUTHORIZED ABSENCE)^ADUA

 ;;4000;DISCONTINUED^D

 ;;4005;DISCONTINUED  (TRANSFER)^DT

 ;;4010;DISCONTINUED BY NURSE^DN

 ;;4015;DISCONTINUED BY NURSE  (TRANSFER)^DNT

 ;;4030;DISCONTINUED BY PHARMACIST^DP

 ;;4035;DISCONTINUED BY PHARMACIST  (TRANSFER)^DPT

 ;;4100;DISCONTINUED  (EDIT)^DE

 ;;4200;DISCONTINUED  (RENEWAL)^DR

 ;;6000;EDITED^F

 ;;6010;EDITED  (AUTO DISCONTINUED)^FAD

 ;;6020;EDITED  (DISCONTINUED)^FD

 ;;6040;EDITED  (OFF HOLD)^FH0

 ;;6041;EDITED  (ON HOLD)^FH1

 ;;6070;EDITED  (RENEWAL)^FR

 ;;6080;EDITED  (REINSTATEMENT)^FRE

 ;;8000;TAKEN OFF HOLD^H0

 ;;8010;TAKEN OFF HOLD BY NURSE^H0N

 ;;8030;TAKEN OFF HOLD BY PHARMACIST^H0P

 ;;8070;TAKEN OFF HOLD  (AUTHORIZED ABSENCE)^H0AA

 ;;8080;TAKEN OFF HOLD (UNAUTHORIZED ABSENCE)^H0UA

 ;;8090;TAKEN OFF HOLD (TRANSFER DELETED)^H0TD

 ;;8500;PLACED ON HOLD^H1

 ;;8510;PLACED ON HOLD BY NURSE^H1N

 ;;8530;PLACED ON HOLD BY PHARMACIST^H1P

 ;;8570;PLACED ON HOLD  (AUTHORIZED ABSENCE)^H1AA

 ;;8580;PLACED ON HOLD (UNAUTHORIZED ABSENCE)^H1UA

 ;;8590;PLACED ON HOLD (TRANSFER DELETED)^H1TD

 ;;13040;MARKED FOR DISCONTINUATION^MC

 ;;13045;MARKED FOR DISCONTINUATION  (TRANSFER)^MCT

 ;;13081;MARKED FOR HOLD^MH1

 ;;13085;MARKED TO BE TAKEN OFF OF HOLD^MH0

 ;;13180;MARKED FOR RENEWAL^MR

 ;;13185;MARKED FOR REINSTATEMENT^MRE

 ;;18000;RENEWED^R

 ;;18010;RENEWED BY NURSE^RN

 ;;18030;RENEWED BY PHARMACIST^RP

 ;;18500;REINSTATED^RE

 ;;18510;REINSTATED BY NURSE^REN

 ;;18530;REINSTATED BY PHARMACIST^REP

 ;;18540;AUTO REINSTATED (DISCHARGE DELETED)^ARED

 ;;18550;AUTO REINSTATED (TRANSFER DELETED)^ARET

 ;;20180;DELETION ATTEMPTED  (THROUGH VA FILEMAN)^TKR

 ;;21081;UNMARKED FOR HOLD^UH1

 ;;21082;UNMARKED FOR HOLD BY NURSE^UH1N

 ;;21084;UNMARKED FOR HOLD BY PHARMACIST^UH1P

 ;;21085;UNMARKED TO BE TAKEN OFF OF HOLD^UH0

 ;;21086;UNMARKED TO BE TAKEN OFF OF HOLD BY NURSE^UH0N

 ;;21088;UNMARKED TO BE TAKEN OFF OF HOLD BY PHARMACIST^UH0P

 ;;21180;UNMARKED FOR RENEWAL^UR

 ;;21181;UNMARKED FOR RENEWAL BY NURSE^URN

 ;;21183;UNMARKED FOR RENEWAL BY PHARMACIST^URP

 ;;21400;UNMARKED FOR DISCONTINUATION^UD

 ;;21410;UNMARKED FOR DISCONTINUATION BY NURSE^UDN

 ;;21430;UNMARKED FOR DISCONTINUATION BY PHARMACIST^UDP

 ;;22010;VERIFIED BY NURSE^VN

 ;;22018;VERIFIED BY NURSE  (RENEWAL)^VNR

 ;;22030;VERIFIED BY PHARMACIST^VP

 ;;22038;VERIFIED BY PHARMACIST  (RENEWAL)^VPR

 ;;22510;ENTERED AS ACTIVE BY NURSE^EAN

 ;;22530;ENTERED AS ACTIVE BY PHARMACIST^EAP

 ;;22600;ENTERED AS ACTIVE DUE TO EDIT^EAE

 ;;22610;ENTERED AS ACTIVE DUE TO EDIT BY NURSE^EAEN

 ;;22630;ENTERED AS ACTIVE DUE TO EDIT BY PHARMACIST^EAEP

 ;;22700;ENTERED AS ACTIVE DUE TO RENEWAL^EAR

 ;;22710;ENTERED AS ACTIVE DUE TO RENEWAL BY NURSE^EARN

 ;;22730;ENTERED AS ACTIVE DUE TO RENEWAL BY PHARMACIST^EARP

 ;;23000;MARKED AS 'NOT TO BE GIVEN'^MNG

 ;;24000;PENDING/NON-VERIFIED RENEWAL DISCONTINUED^PNRD

PSJIPSTA  ;BIR/CML3-POST-INIT TO UPDATE ACTIVITY LOG REASON FILE ;07 AUG 97 / 9:08 AM

 +1       ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 +2       ;

ALRE      ;

 +1        DO MES^XPDUTL(" ")

 +2        SET PSJMESSG="....Updating the Activity Log Reason file...."

           DO MES^XPDUTL(PSJMESSG)

           KILL ^PS(53.3)

           SET ^PS(53.3,0)=$PIECE($TEXT(Q+1),";",4)

           FOR A=2:1

               SET B=$PIECE($TEXT(Q+A),";",3)

               SET C=$PIECE($TEXT(Q+A),";",4)

               IF C=""

                   QUIT

               SET ^PS(53.3,B,0)=C

               SET ^PS(53.3,"C",$PIECE(C,"^",2),B)=""

 +3        KILL A,B,C

 +4       ;

Q          QUIT

 +1       ;;;ACTIVITY LOG REASON^53.3OI^24000^75

 +2       ;;1010;AUTO DISCONTINUED  (PATIENT DECEASED)^ADDC

 +3       ;;1030;AUTO DISCONTINUED  (DISCHARGE)^ADD

 +4       ;;1050;AUTO DISCONTINUED  (NEW ADMISSION)^ADNA

 +5       ;;1060;AUTO DISCONTINUED  (AUTHORIZED ABSENCE)^ADAA

 +6       ;;1070;AUTO DISCONTINUED  (SERVICE TRANSFER)^ADST

 +7       ;;1080;AUTO DISCONTINUED  (WARD TRANSFER)^ADWT

 +8       ;;1090;AUTO DISCONTINUED  (UNAUTHORIZED ABSENCE)^ADUA

 +9       ;;4000;DISCONTINUED^D

 +10      ;;4005;DISCONTINUED  (TRANSFER)^DT

 +11      ;;4010;DISCONTINUED BY NURSE^DN

 +12      ;;4015;DISCONTINUED BY NURSE  (TRANSFER)^DNT

 +13      ;;4030;DISCONTINUED BY PHARMACIST^DP

 +14      ;;4035;DISCONTINUED BY PHARMACIST  (TRANSFER)^DPT

 +15      ;;4100;DISCONTINUED  (EDIT)^DE

 +16      ;;4200;DISCONTINUED  (RENEWAL)^DR

 +17      ;;6000;EDITED^F

 +18      ;;6010;EDITED  (AUTO DISCONTINUED)^FAD

 +19      ;;6020;EDITED  (DISCONTINUED)^FD

 +20      ;;6040;EDITED  (OFF HOLD)^FH0

 +21      ;;6041;EDITED  (ON HOLD)^FH1

 +22      ;;6070;EDITED  (RENEWAL)^FR

 +23      ;;6080;EDITED  (REINSTATEMENT)^FRE

 +24      ;;8000;TAKEN OFF HOLD^H0

 +25      ;;8010;TAKEN OFF HOLD BY NURSE^H0N

 +26      ;;8030;TAKEN OFF HOLD BY PHARMACIST^H0P

 +27      ;;8070;TAKEN OFF HOLD  (AUTHORIZED ABSENCE)^H0AA

 +28      ;;8080;TAKEN OFF HOLD (UNAUTHORIZED ABSENCE)^H0UA

 +29      ;;8090;TAKEN OFF HOLD (TRANSFER DELETED)^H0TD

 +30      ;;8500;PLACED ON HOLD^H1

 +31      ;;8510;PLACED ON HOLD BY NURSE^H1N

 +32      ;;8530;PLACED ON HOLD BY PHARMACIST^H1P

 +33      ;;8570;PLACED ON HOLD  (AUTHORIZED ABSENCE)^H1AA

 +34      ;;8580;PLACED ON HOLD (UNAUTHORIZED ABSENCE)^H1UA

 +35      ;;8590;PLACED ON HOLD (TRANSFER DELETED)^H1TD

 +36      ;;13040;MARKED FOR DISCONTINUATION^MC

 +37      ;;13045;MARKED FOR DISCONTINUATION  (TRANSFER)^MCT

 +38      ;;13081;MARKED FOR HOLD^MH1

 +39      ;;13085;MARKED TO BE TAKEN OFF OF HOLD^MH0

 +40      ;;13180;MARKED FOR RENEWAL^MR

 +41      ;;13185;MARKED FOR REINSTATEMENT^MRE

 +42      ;;18000;RENEWED^R

 +43      ;;18010;RENEWED BY NURSE^RN

 +44      ;;18030;RENEWED BY PHARMACIST^RP

 +45      ;;18500;REINSTATED^RE

 +46      ;;18510;REINSTATED BY NURSE^REN

 +47      ;;18530;REINSTATED BY PHARMACIST^REP

 +48      ;;18540;AUTO REINSTATED (DISCHARGE DELETED)^ARED

 +49      ;;18550;AUTO REINSTATED (TRANSFER DELETED)^ARET

 +50      ;;20180;DELETION ATTEMPTED  (THROUGH VA FILEMAN)^TKR

 +51      ;;21081;UNMARKED FOR HOLD^UH1

 +52      ;;21082;UNMARKED FOR HOLD BY NURSE^UH1N

 +53      ;;21084;UNMARKED FOR HOLD BY PHARMACIST^UH1P

 +54      ;;21085;UNMARKED TO BE TAKEN OFF OF HOLD^UH0

 +55      ;;21086;UNMARKED TO BE TAKEN OFF OF HOLD BY NURSE^UH0N

 +56      ;;21088;UNMARKED TO BE TAKEN OFF OF HOLD BY PHARMACIST^UH0P

 +57      ;;21180;UNMARKED FOR RENEWAL^UR

 +58      ;;21181;UNMARKED FOR RENEWAL BY NURSE^URN

 +59      ;;21183;UNMARKED FOR RENEWAL BY PHARMACIST^URP

 +60      ;;21400;UNMARKED FOR DISCONTINUATION^UD

 +61      ;;21410;UNMARKED FOR DISCONTINUATION BY NURSE^UDN

 +62      ;;21430;UNMARKED FOR DISCONTINUATION BY PHARMACIST^UDP

 +63      ;;22010;VERIFIED BY NURSE^VN

 +64      ;;22018;VERIFIED BY NURSE  (RENEWAL)^VNR

 +65      ;;22030;VERIFIED BY PHARMACIST^VP

 +66      ;;22038;VERIFIED BY PHARMACIST  (RENEWAL)^VPR

 +67      ;;22510;ENTERED AS ACTIVE BY NURSE^EAN

 +68      ;;22530;ENTERED AS ACTIVE BY PHARMACIST^EAP

 +69      ;;22600;ENTERED AS ACTIVE DUE TO EDIT^EAE

 +70      ;;22610;ENTERED AS ACTIVE DUE TO EDIT BY NURSE^EAEN

 +71      ;;22630;ENTERED AS ACTIVE DUE TO EDIT BY PHARMACIST^EAEP

 +72      ;;22700;ENTERED AS ACTIVE DUE TO RENEWAL^EAR

 +73      ;;22710;ENTERED AS ACTIVE DUE TO RENEWAL BY NURSE^EARN

 +74      ;;22730;ENTERED AS ACTIVE DUE TO RENEWAL BY PHARMACIST^EARP

 +75      ;;23000;MARKED AS 'NOT TO BE GIVEN'^MNG

 +76      ;;24000;PENDING/NON-VERIFIED RENEWAL DISCONTINUED^PNRD

PSJIPSTA.m