source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJIPSTA.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.5 KB
Line 
1PSJIPSTA ;BIR/CML3-POST-INIT TO UPDATE ACTIVITY LOG REASON FILE ;07 AUG 97 / 9:08 AM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ;
4ALRE ;
5 D MES^XPDUTL(" ")
6 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)=""
7 K A,B,C
8 ;
9Q Q
10 ;;;ACTIVITY LOG REASON^53.3OI^24000^75
11 ;;1010;AUTO DISCONTINUED (PATIENT DECEASED)^ADDC
12 ;;1030;AUTO DISCONTINUED (DISCHARGE)^ADD
13 ;;1050;AUTO DISCONTINUED (NEW ADMISSION)^ADNA
14 ;;1060;AUTO DISCONTINUED (AUTHORIZED ABSENCE)^ADAA
15 ;;1070;AUTO DISCONTINUED (SERVICE TRANSFER)^ADST
16 ;;1080;AUTO DISCONTINUED (WARD TRANSFER)^ADWT
17 ;;1090;AUTO DISCONTINUED (UNAUTHORIZED ABSENCE)^ADUA
18 ;;4000;DISCONTINUED^D
19 ;;4005;DISCONTINUED (TRANSFER)^DT
20 ;;4010;DISCONTINUED BY NURSE^DN
21 ;;4015;DISCONTINUED BY NURSE (TRANSFER)^DNT
22 ;;4030;DISCONTINUED BY PHARMACIST^DP
23 ;;4035;DISCONTINUED BY PHARMACIST (TRANSFER)^DPT
24 ;;4100;DISCONTINUED (EDIT)^DE
25 ;;4200;DISCONTINUED (RENEWAL)^DR
26 ;;6000;EDITED^F
27 ;;6010;EDITED (AUTO DISCONTINUED)^FAD
28 ;;6020;EDITED (DISCONTINUED)^FD
29 ;;6040;EDITED (OFF HOLD)^FH0
30 ;;6041;EDITED (ON HOLD)^FH1
31 ;;6070;EDITED (RENEWAL)^FR
32 ;;6080;EDITED (REINSTATEMENT)^FRE
33 ;;8000;TAKEN OFF HOLD^H0
34 ;;8010;TAKEN OFF HOLD BY NURSE^H0N
35 ;;8030;TAKEN OFF HOLD BY PHARMACIST^H0P
36 ;;8070;TAKEN OFF HOLD (AUTHORIZED ABSENCE)^H0AA
37 ;;8080;TAKEN OFF HOLD (UNAUTHORIZED ABSENCE)^H0UA
38 ;;8090;TAKEN OFF HOLD (TRANSFER DELETED)^H0TD
39 ;;8500;PLACED ON HOLD^H1
40 ;;8510;PLACED ON HOLD BY NURSE^H1N
41 ;;8530;PLACED ON HOLD BY PHARMACIST^H1P
42 ;;8570;PLACED ON HOLD (AUTHORIZED ABSENCE)^H1AA
43 ;;8580;PLACED ON HOLD (UNAUTHORIZED ABSENCE)^H1UA
44 ;;8590;PLACED ON HOLD (TRANSFER DELETED)^H1TD
45 ;;13040;MARKED FOR DISCONTINUATION^MC
46 ;;13045;MARKED FOR DISCONTINUATION (TRANSFER)^MCT
47 ;;13081;MARKED FOR HOLD^MH1
48 ;;13085;MARKED TO BE TAKEN OFF OF HOLD^MH0
49 ;;13180;MARKED FOR RENEWAL^MR
50 ;;13185;MARKED FOR REINSTATEMENT^MRE
51 ;;18000;RENEWED^R
52 ;;18010;RENEWED BY NURSE^RN
53 ;;18030;RENEWED BY PHARMACIST^RP
54 ;;18500;REINSTATED^RE
55 ;;18510;REINSTATED BY NURSE^REN
56 ;;18530;REINSTATED BY PHARMACIST^REP
57 ;;18540;AUTO REINSTATED (DISCHARGE DELETED)^ARED
58 ;;18550;AUTO REINSTATED (TRANSFER DELETED)^ARET
59 ;;20180;DELETION ATTEMPTED (THROUGH VA FILEMAN)^TKR
60 ;;21081;UNMARKED FOR HOLD^UH1
61 ;;21082;UNMARKED FOR HOLD BY NURSE^UH1N
62 ;;21084;UNMARKED FOR HOLD BY PHARMACIST^UH1P
63 ;;21085;UNMARKED TO BE TAKEN OFF OF HOLD^UH0
64 ;;21086;UNMARKED TO BE TAKEN OFF OF HOLD BY NURSE^UH0N
65 ;;21088;UNMARKED TO BE TAKEN OFF OF HOLD BY PHARMACIST^UH0P
66 ;;21180;UNMARKED FOR RENEWAL^UR
67 ;;21181;UNMARKED FOR RENEWAL BY NURSE^URN
68 ;;21183;UNMARKED FOR RENEWAL BY PHARMACIST^URP
69 ;;21400;UNMARKED FOR DISCONTINUATION^UD
70 ;;21410;UNMARKED FOR DISCONTINUATION BY NURSE^UDN
71 ;;21430;UNMARKED FOR DISCONTINUATION BY PHARMACIST^UDP
72 ;;22010;VERIFIED BY NURSE^VN
73 ;;22018;VERIFIED BY NURSE (RENEWAL)^VNR
74 ;;22030;VERIFIED BY PHARMACIST^VP
75 ;;22038;VERIFIED BY PHARMACIST (RENEWAL)^VPR
76 ;;22510;ENTERED AS ACTIVE BY NURSE^EAN
77 ;;22530;ENTERED AS ACTIVE BY PHARMACIST^EAP
78 ;;22600;ENTERED AS ACTIVE DUE TO EDIT^EAE
79 ;;22610;ENTERED AS ACTIVE DUE TO EDIT BY NURSE^EAEN
80 ;;22630;ENTERED AS ACTIVE DUE TO EDIT BY PHARMACIST^EAEP
81 ;;22700;ENTERED AS ACTIVE DUE TO RENEWAL^EAR
82 ;;22710;ENTERED AS ACTIVE DUE TO RENEWAL BY NURSE^EARN
83 ;;22730;ENTERED AS ACTIVE DUE TO RENEWAL BY PHARMACIST^EARP
84 ;;23000;MARKED AS 'NOT TO BE GIVEN'^MNG
85 ;;24000;PENDING/NON-VERIFIED RENEWAL DISCONTINUED^PNRD
Note: See TracBrowser for help on using the repository browser.