Produced by Araxis Merge on 8/29/2018 2:55:52 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | EPIP.zip\PSS_1.0_225_PSB_3.0_103 _Aug_2018 | PSS_1.0_225 - Routine PSBORT.docx | Tue Aug 28 12:14:52 2018 UTC |
2 | EPIP.zip\PSS_1.0_225_PSB_3.0_103 _Aug_2018 | PSS_1.0_225 - Routine PSBORT.docx | Tue Aug 28 12:59:50 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 396 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | PSBORT (Ne w) | |
2 | PSBORT * * 183 LINE S, (total 8766, com ments 754) BYTES Page 1 | |
3 | RS UM: old 19 350916, ne w 69496290 | |
4 | UCI: VISTA ,ROU Site: TEST .CHEYENNE. MED. DNS AUG 3,2018 @09:52 | |
5 | ||
6 | 1 PSBORT ;AITC/CR - REPORT F OR RESPIRA TORY THERA PY MEDS ;6 /29/18 2:1 8pm | |
7 | 2 ;;3.0;BAR CODE MED ADMIN;**10 3**;Mar 20 04 | |
8 | 3 ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
9 | 4 ; | |
10 | 5 ;SLC/KB Modified P SBOMM for Resp Thera py Meds re port | |
11 | 6 ; | |
12 | 7 ; Referen ce/IA | |
13 | 8 ; EN^PSJB CMA/2828 (private) | |
14 | 9 ; EN^PSJB CMA2/2830 (private) | |
15 | 10 ; ^DPT/10 035 (supporte d) | |
16 | 11 ;======== ========== ========== ========== ========== ========= | |
17 | 12 EN ; called from DQ^PS BO | |
18 | 13 N PSBSTRT ,PSBSTOP,D FN,PSBODAT E,PSBFLAG, PSBCNT | |
19 | 14 K ^TMP("P SJ",$J),^T MP("PSB",$ J),^TMP("P SB1",$J) | |
20 | 15 S PSBSTRT =$P(PSBRPT (.1),U,6)+ $P(PSBRPT( .1),U,7)-. 0000001 | |
21 | 16 S PSBSTOP =$P(PSBRPT (.1),U,6)+ $P(PSBRPT( .1),U,9) | |
22 | 17 S PSBODAT E=$P(PSBRP T(.1),U,6) | |
23 | 18 F DFN=0:0 S DFN=$O( ^TMP("PSBO ",$J,DFN)) Q:'DFN D EN1 | |
24 | 19 D PRINT | |
25 | 20 K ^TMP("P SJ",$J),^T MP("PSB",$ J),^TMP("P SBO",$J) | |
26 | 21 Q | |
27 | 22 ; | |
28 | 23 EN1 ; expects DFN,PSBST RT,PSBSTOP from EN | |
29 | 24 N PSBGBL, PSBHDR,PSB X,PSBDFN,P SBDT,PSBEV DT,PSBHOUR | |
30 | 25 K ^TMP("P SJ",$J) S PSBEVDT=PS BSTRT | |
31 | 26 D EN^PSJB CMA(DFN,PS BSTRT) | |
32 | 27 Q:^TMP("P SJ",$J,1,0 )=-1 | |
33 | 28 S PSBX="" | |
34 | 29 F S PSBX =$O(^TMP(" PSJ",$J,PS BX)) Q:PSB X="" D | |
35 | 30 .Q:^TMP(" PSJ",$J,PS BX,0)=-1 ; no Order s | |
36 | 31 .D CLEAN^ PSBVT | |
37 | 32 .D PSJ^PS BVT(PSBX) | |
38 | 33 .; check for a resp iratory th erapy drug | |
39 | 34 .Q:$$GET1 ^DIQ(50.7, PSBOIT,15, "I")'="Y" ;not a re sp terapy drug, PSBO IT set in ^PSBVT abo ve | |
40 | 35 .Q:PSBIVT ="A" ; No Admix or Hyp. | |
41 | 36 .Q:PSBIVT ="H" | |
42 | 37 .I PSBIVT ["S",PSBIS YR'=1 Q ; allow intermitte nt syringe only | |
43 | 38 .I PSBIVT ["C",PSBCH EMT'="P",P SBISYR'=1 Q | |
44 | 39 .I PSBIVT ["C",PSBCH EMT="A" Q ; all ow Chemo w ith interm ittent syr inge or Pi ggyback ty pe only | |
45 | 40 .Q:PSBONX ["P" ;no pending or ders | |
46 | 41 .I PSBSCH T="C" D Q ; Only C ontinuous | |
47 | 42 ..S (PSBY ES,PSBODD) =0 | |
48 | 43 ..S PSBDO W="SU^MO^T U^WE^TH^FR ^SA" F I=1 :1:7 I $P( PSBDOW,"^" ,I)=$E(PSB SCH,1,2) S PSBYES=1 | |
49 | 44 ..I PSBYE S,PSBADST= "" Q | |
50 | 45 ..F I=1:1 Q:$P(PSBS CH,"-",I)= "" I $P(P SBSCH,"-", I)?2N!($P( PSBSCH,"-" ,I)?4N) S PSBYES=1 | |
51 | 46 ..S PSBFR EQ=$$GETFR EQ^PSBVDLU 1(DFN,PSBO NX) | |
52 | 47 ..I PSBFR EQ="O" S P SBYES=1 | |
53 | 48 ..I 'PSBY ES,PSBADST ="",PSBFRE Q<1 Q | |
54 | 49 ..I (PSBF REQ#1440'= 0),(1440#P SBFREQ'=0) S PSBODD= 1 | |
55 | 50 ..I PSBOD D,PSBADST' ="" Q | |
56 | 51 ..Q:PSBOS TS["D" ;d iscontinue d | |
57 | 52 ..Q:PSBNG F ; marke d DO NOT G IVE | |
58 | 53 ..Q:PSBOS TS="N" | |
59 | 54 ..Q:PSBSM ;Self me d | |
60 | 55 ..S PSBCA DM=0 | |
61 | 56 ..I PSBAD ST="" S PS BADST=$$GE TADMIN^PSB VDLU1(DFN, PSBONX,PSB OST,PSBFRE Q,PSBEVDT) Q:PSBADST ="" S PSB CADM=1 | |
62 | 57 ..E K ^T MP("PSB",$ J,"GETADMI N") S ^TMP ("PSB",$J, "GETADMIN" ,0)=PSBADS T | |
63 | 58 ..; inval id admin t imes | |
64 | 59 ..F Y=1:1 :$L(PSBADS T,"-") D | |
65 | 60 ...Q:($P( PSBADST,"- ",Y)'?2N)& ($P(PSBADS T,"-",Y)'? 4N) | |
66 | 61 ..; below is (Order Start Dat e, Report Date, Sche dule) | |
67 | 62 ..Q:'$$OK AY^PSBVDLU 1(PSBOST,P SBODATE,PS BSCH,PSBON X,$P(^TMP( "PSJ",$J,P SBX,3),U,2 ),PSBFREQ, PSBOSTS) ; Screens QOD | |
68 | type stu ff | |
69 | 63 ..K PSBOA CTL,TMP("P SB1",$J) D EN^PSJBCM A2(DFN,PSB ONX,1) I ^ TMP("PSJ2" ,$J,0)'=1 M PSBOACTL =^TMP("PSJ 2",$J) K ^ TMP( | |
70 | "PSJ2",$ J) | |
71 | 64 ..F PSBXX =0:1 Q:'$D (^TMP("PSB ",$J,"GETA DMIN",PSBX X)) S PSB ADST=$G(^T MP("PSB",$ J,"GETADMI N",PSBXX)) D | |
72 | 65 ...F Y=1: 1:$L(PSBAD ST,"-") D | |
73 | 66 ....S PSB DT=+("."_$ P(PSBADST, "-",Y))+(P SBSTRT\1) | |
74 | 67 ....Q:PSB DT<PSBOST ; order Start Date | |
75 | 68 ....Q:PSB DT'<PSBOSP ; order Stop Date | |
76 | 69 ....Q:PSB DT<PSBSTRT ; report Window | |
77 | 70 ....Q:PSB DT>PSBSTOP ; report Window | |
78 | 71 ....I $D( ^PSB(53.79 ,"AORD",DF N,PSBONX,P SBDT)) D I PSBSTUS' ="N",PSBST US'="M" Q ; if it i s on the l og quit, c onti | |
79 | nue if s tatus is " NOT GIVEN" or "MISSI NG" | |
80 | 72 .....S PS BINDX=$O(^ PSB(53.79, "AORD",DFN ,PSBONX,PS BDT,"")),P SBSTUS=$P( ^PSB(53.79 ,PSBINDX,0 ),U,9) | |
81 | 73 ....S ^TM P("PSB",$J ,DFN,PSBDT ,PSBOITX,P SBONX)="" | |
82 | 74 ....D UDC ONT | |
83 | 75 ....I PSB FLAG=1 S ^ TMP("PSB", $J,DFN,PSB DT,PSBOITX ,PSBONX)=" (On Hold) "_$$FMTE^X LFDT(PSBHD DT) | |
84 | 76 ....I PSB FLAG=2 S ^ TMP("PSB", $J,DFN,PSB DT,PSBOITX ,PSBONX)=" (On Hold) "_$$FMTE^X LFDT(PSBHD DT)_" "_" (Off Hold) "_$ | |
85 | $FMTE^XL FDT(PSBUNH D) Q | |
86 | 77 .K PSBHDD T,PSBUNHD, ^TMP("PSB1 ",$J) | |
87 | 78 .I PSBSCH T="O" D Q | |
88 | 79 ..Q:PSBOS TS["D"!(PS BOSTS="N") ; discon tinued | |
89 | 80 ..Q:PSBNG F ; Marke d DO NOT G IVE | |
90 | 81 ..Q:PSBSM ;self me d | |
91 | 82 ..; is th e One Time Given? | |
92 | 83 ..Q:PSBOS P=PSBOST ;expired one-time | |
93 | 84 ..Q:PSBOS T'<PSBSTOP | |
94 | 85 ..Q:PSBOS P<PSBSTRT | |
95 | 86 ..S (PSBG VN,X,Y)="" | |
96 | 87 ..F S X= $O(^PSB(53 .79,"AOIP" ,DFN,PSBOI T,X),-1) Q :'X D | |
97 | 88 ...F S Y =$O(^PSB(5 3.79,"AOIP ",DFN,PSBO IT,X,Y),-1 ) Q:'Y D | |
98 | 89 ....I $P( ^PSB(53.79 ,Y,.1),U)= PSBONX,$P( ^PSB(53.79 ,Y,0),U,9) '="N",$P(^ PSB(53.79, Y,0),U,9)' ="M" S PSB GVN=1,(X,Y )=0 | |
99 | 90 ..; how l ong does O ne Time re main on th e this rep ort ?? | |
100 | 91 ..D NOW^% DTC | |
101 | 92 ..S PSBRM N=1 | |
102 | 93 ..I PSBSC HT="O",PSB OSP'=PSBOS T&(%>PSBOS P) S PSBRM N=0 | |
103 | 94 ..D:('PSB GVN)&(PSBR MN) | |
104 | 95 ...S VAR= "" | |
105 | 96 ...K ^TMP ("PSJ2",$J ),^TMP("PS B1",$J),PS BOACTL D E N^PSJBCMA2 (DFN,PSBON X,1) I ^TM P("PSJ2",$ J,0)'=1 D | |
106 | 97 ....M PSB OACTL=^TMP ("PSJ2",$J ) | |
107 | 98 ....D UDO NE | |
108 | 99 ....I PSB FLAG=1 S V AR="(On Ho ld) "_$$FM TE^XLFDT(P SBHDDT) | |
109 | 100 ....I PSB FLAG=2 S V AR="(On Ho ld) "_$$FM TE^XLFDT(P SBHDDT)_" (Off Hold ) "_$$FMTE ^XLFDT(PSB UNHD) | |
110 | 101 ...S VAR= VAR_U_$TR( $$FMTE^XLF DT(PSBOST, 2),"@"," " ) | |
111 | 102 ...S VAR= VAR_U_$TR( $$FMTE^XLF DT(PSBOSP, 2),"@"," " ) | |
112 | 103 ...S $P(^ TMP("PSB", $J,DFN,"** * ONE-TIME ***",PSBO ITX,PSBONX ),U,1,4)=V AR | |
113 | 104 ...K PSBH DDT,PSBUNH D,^TMP("PS B1",$J),PS BCNT | |
114 | 105 K PSBOACT L | |
115 | 106 Q | |
116 | 107 ; | |
117 | 108 PRINT ; print m eds stored in ^TMP(" PSB",$J,DF N,.... | |
118 | 109 N DFN,PSB HDR,PSBDT, PSBOITX,PS BONX | |
119 | 110 ; print b y Ward | |
120 | 111 D:$P(PSBR PT(.1),U,1 )="W" | |
121 | 112 .S PSBHDR (1)="RESPI RATORY THE RAPY MEDIC ATIONS fr om "_$$FMT E^XLFDT($P (PSBRPT(.1 ),U,6)+$P( PSBRPT(.1) ,U,7))_" t hru | |
122 | "_$$FMTE ^XLFDT($P( PSBRPT(.1) ,U,6)+$P(P SBRPT(.1), U,9)) | |
123 | 113 .W $$WRDH DR() | |
124 | 114 .I '$O(^T MP("PSB",$ J,0)) W !, "No Medica tions Foun d" Q | |
125 | 115 .S PSBSOR T=$P(PSBRP T(.1),U,5) | |
126 | 116 .F DFN=0: 0 S DFN=$O (^TMP("PSB ",$J,DFN)) Q:'DFN D | |
127 | 117 ..S PSBIN DX=$S(PSBS ORT="P":$P (^DPT(DFN, 0),U),1:$G (^DPT(DFN, .1))_" "_$ G(^(.101)) ) | |
128 | 118 ..S:PSBIN DX="" PSBI NDX=$P(^DP T(DFN,0),U ) | |
129 | 119 ..S ^TMP( "PSB",$J," B",PSBINDX ,DFN)="" | |
130 | 120 .S PSBIND X="" | |
131 | 121 .F S PSB INDX=$O(^T MP("PSB",$ J,"B",PSBI NDX)) Q:PS BINDX="" D | |
132 | 122 ..F DFN=0 :0 S DFN=$ O(^TMP("PS B",$J,"B", PSBINDX,DF N)) Q:'DFN D | |
133 | 123 ...W ! ; line break between p atients | |
134 | 124 ...S PSBD T="" | |
135 | 125 ...F S P SBDT=$O(^T MP("PSB",$ J,DFN,PSBD T)) Q:PSBD T="" D | |
136 | 126 ....;W ! ; line br eak betwee n admin ti mes, doubl e-spacing of output | |
137 | 127 ....S PSB OITX="" | |
138 | 128 ....F S PSBOITX=$O (^TMP("PSB ",$J,DFN,P SBDT,PSBOI TX)) Q:PSB OITX="" D | |
139 | 129 .....S PS BONX="" | |
140 | 130 .....F S PSBONX=$O (^TMP("PSB ",$J,DFN,P SBDT,PSBOI TX,PSBONX) ) Q:PSBONX ="" D | |
141 | 131 ......I $ Y>(IOSL-5) W $$WRDHD R() | |
142 | 132 ......W ! ,+PSBONX,$ S(PSBONX[" U":"UD",PS BONX["V":" IV",1:"") | |
143 | 133 ......W ? 10,$G(^DPT (DFN,.101) ,"**") | |
144 | 134 ......W ? 30,$P(^DPT (DFN,0),U) ," (",$E($ P(^(0),U,9 ),6,9),")" | |
145 | 135 ......I P SBDT["ONE- TIME" D Q | |
146 | 136 .......W !,PSBDT,?3 0,PSBOITX, " ",$P(^TM P("PSB",$J ,DFN,PSBDT ,PSBOITX,P SBONX),U,1 ) | |
147 | 137 .......W !,"Start D ate/Time: ",?30,$P( ^TMP("PSB" ,$J,DFN,PS BDT,PSBOIT X,PSBONX), U,2) | |
148 | 138 .......W !,"Stop Da te/Time: ",?30,$P(^ TMP("PSB", $J,DFN,PSB DT,PSBOITX ,PSBONX),U ,3) | |
149 | 139 .......;W ! ; stop double sp ace | |
150 | 140 ......W ? 74,$S(PSBD T:$$FMTE^X LFDT(PSBDT ,2),1:PSBD T),?90,PSB OITX | |
151 | 141 ......W " ",^TMP("P SB",$J,DFN ,PSBDT,PSB OITX,PSBON X) | |
152 | 142 Q | |
153 | 143 ; | |
154 | 144 WRDHDR () -- | |
155 | ; ward h eader | |
156 | 145 D WARD^PS BOHDR1(PSB WRD,.PSBHD R) | |
157 | 146 W !,"Ord Num",?10," Room-Bed", ?30,"Patie nt",?74,"A dmin Date/ Time",?90, "Medicatio n" | |
158 | 147 W !,$TR($ J("",IOM), " ","-") | |
159 | 148 Q "" | |
160 | 149 ; | |
161 | 150 UDCONT ; | |
162 | 151 S PSBFLAG =0,J=1 | |
163 | 152 K ^TMP("P SB1",$J) | |
164 | 153 F I=1:1:$ P(PSBOACTL (0),U,4) D | |
165 | 154 . I $P($G (PSBOACTL( I,1)),U,4) ["ON HOLD" !($P($G(PS BOACTL(I,1 )),U,4)="H OLD") S ^T MP("PSB1", $J,DFN,J)= "HOLD"_U_$ E($P | |
166 | ($G(PSBO ACTL(I,1)) ,U,1),1,12 ) | |
167 | 155 . I $P($G (PSBOACTL( I,1)),U,4) ["TAKEN OF F HOLD"!($ P($G(PSBOA CTL(I,1)), U,4)["UNHO LD") S $P( ^TMP("PSB1 ",$J,DFN,J ),U, | |
168 | 3)="OFF HOLD"_U_$E ($P($G(PSB OACTL(I,1) ),U,1),1,1 2),J=J+1 | |
169 | 156 D:$D(^TMP ("PSB1",$J ,DFN))&($P (PSBOACTL( 0),U,4)'=1 ) | |
170 | 157 .S J=0 F S J=$O(^T MP("PSB1", $J,DFN,J)) Q:'J Q:P SBFLAG D | |
171 | 158 ..S PSBHD DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 2) | |
172 | 159 ..S PSBHD ST=$P(^TMP ("PSB1",$J ,DFN,J),U) | |
173 | 160 ..S PSBOF DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 4) | |
174 | 161 ..S PSBOF ST=$P(^TMP ("PSB1",$J ,DFN,J),U, 3) | |
175 | 162 ..I PSBDT >PSBHDDT,P SBHDST="HO LD",PSBOFS T'="" I PS BDT<PSBOFD T,PSBOFST= "OFF HOLD" S PSBFLAG =2,PSBUNHD =PSBOFDT | |
176 | 163 ..I PSBDT >PSBHDDT,P SBHDST="HO LD",PSBOFS T="" S PSB FLAG=1 | |
177 | 164 K PSBCNT, TMP("PSB1" ,$J) | |
178 | 165 Q | |
179 | 166 ; | |
180 | 167 UDONE ; | |
181 | 168 S PSBFLAG =0,J=1 | |
182 | 169 F I=1:1:$ P(PSBOACTL (0),U,4) D | |
183 | 170 .I $P($G( PSBOACTL(I ,1)),U,4)[ "ON HOLD"! ($P($G(PSB OACTL(I,1) ),U,4)="HO LD") S ^TM P("PSB1",$ J,DFN,J)=" HOLD"_U_$E ($P( | |
184 | $G(PSBOA CTL(I,1)), U,1),1,12) | |
185 | 171 .I $P($G( PSBOACTL(I ,1)),U,4)[ "TAKEN OFF HOLD"!($P ($G(PSBOAC TL(I,1)),U ,4)["UNHOL D") S $P(^ TMP("PSB1" ,$J,DFN,J) ,U,3 | |
186 | )="OFF H OLD"_U_$E( $P($G(PSBO ACTL(I,1)) ,U,1),1,12 ),J=J+1 | |
187 | 172 D:$D(^TMP ("PSB1",$J ,DFN))&($P (PSBOACTL( 0),U,4)'=1 ) | |
188 | 173 .S J="" F S J=$O(^ TMP("PSB1" ,$J,DFN,J) ) Q:'J Q: PSBFLAG D | |
189 | 174 ..S PSBHD DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 2) | |
190 | 175 ..S PSBHD ST=$P(^TMP ("PSB1",$J ,DFN,J),U) | |
191 | 176 ..S PSBOF DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 4) | |
192 | 177 ..S PSBOF ST=$P(^TMP ("PSB1",$J ,DFN,J),U, 3) | |
193 | 178 ..I PSBOS TS="A",PSB HDST="HOLD ",PSBOFST' ="",'$D(^T MP("PSB1", $J,DFN,J+1 )) I PSBST OP>PSBOFDT ,PSBOFST=" OFF HOLD" S PS | |
194 | BFLAG=2, PSBUNHD=PS BOFDT | |
195 | 179 ..I PSBOS TS="A",PSB HDST="HOLD ",PSBOFST' ="",PSBOFD T'<PSBSTOP S PSBFLAG =1 | |
196 | 180 ..I PSBOS TS="H",PSB HDST="HOLD ",'$D(^TMP ("PSB1",$J ,DFN,J+1)) S PSBFLAG =1 | |
197 | 181 K PSBCNT, ^TMP("PSB1 ",$J) | |
198 | 182 Q | |
199 | 183 ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.