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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJIPSTA 3661 printed Apr 09, 2024@21:07:27 Page 2
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
