Produced by Araxis Merge on 8/29/2018 2:55:51 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 PSBMMRB.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 PSBMMRB.docx | Tue Aug 28 12:58:43 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 298 |
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 | PSBMMRB (N ew) | |
2 | PSBMMRB * * 143 LIN ES, (tota l 5207, co mments 114 8) BYTES Page 1 | |
3 | RS UM: old 76 43512, new 27545585 | |
4 | UCI: VISTA ,ROU Site: TEST .CHEYENNE. MED. DNS JUL 30,201 8@12:29 | |
5 | ||
6 | 1 PSBMMR B ;AITC/CR - REPORT FOR RESPIR ATORY THER APY MEDS ; 7/30/18 1 1:19am | |
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 ; Referen ce/ICR # | |
11 | 6 ; WIN^DGP MDDCF/1246 (supporte d) | |
12 | 7 ; File #2 11.4/1529 (private) | |
13 | 8 ; $$GET1^ DIQ/2056 (supporte d) | |
14 | 9 ; WARD^NU RSUT5/3052 (supporte d) | |
15 | 10 ; ^DG(40. 8/2817 (controll ed) | |
16 | 11 ; ^DG(43/ 6812 (private) | |
17 | 12 ; File #4 4/10040 (supporte d) | |
18 | 13 ; ^VA(200 /10060 (supporte d) | |
19 | 14 ; %ZTLOAD /10063 (supporte d) | |
20 | 15 ; %ZIS/10 086 (supporte d) | |
21 | 16 ; %ZISC/1 0089 (supporte d) | |
22 | 17 ; | |
23 | 18 ;======== ========== ========== ========== ========== ========== ======= | |
24 | 19 EN1 ; | |
25 | 20 W !!,"Rep ort for Re spiratory Therapy Me dications" ,! | |
26 | 21 N D0,DIC, PSBDATA,PS BDPTR,PSBD IV,PSBDVNM ,PSBNAME,P SBMUDV,PSB STIEN,X,Y | |
27 | 22 K ^TMP("P SBMMRB") | |
28 | 23 S D0=1,PS BMUDV=$S($ $GET1^DIQ( 43,D0,11," I")=1:1,1: 0) | |
29 | 24 I PSBMUDV =1 D CHK1, EN2 Q | |
30 | 25 I PSBMUDV =0 D ALL,E N2 Q | |
31 | 26 Q | |
32 | 27 ; | |
33 | 28 EN2 I $P($G(^ VA(200,DUZ ,2,0)),U,4 )=0 W !!,$ C(7),"You have no va lid divisi ons in the NEW PERSO N file." S Y="^" Q | |
34 | 29 I '$O(^DG (40.8,"AD" ,DUZ(2),"" )) W !!,$C (7),"Your NEW PERSON file divi sion was n ot found i n the MEDI CAL CENTER DIV | |
35 | ISION fi le." S Y=" ^" Q | |
36 | 30 I Y=""!(Y <0)!(Y="^" ) Q | |
37 | 31 S PSBDIV= $P($G(^TMP ("PSBMMRB" ,$J)),U,2) | |
38 | 32 S PSBNAME =$P($G(^TM P("PSBMMRB ",$J)),U,3 ) | |
39 | 33 W ! | |
40 | 34 S %DT="AE " | |
41 | 35 S %DT("A" )="Select date of Re spiratory Therapy Me ds Report (eg T or T -1, etc.): " | |
42 | 36 D ^%DT | |
43 | 37 I Y'=-1 D | |
44 | 38 . S RDATE =Y | |
45 | 39 . W !!,"P lease choo se a 132 c haracter p rinter",! | |
46 | 40 . W "Queu ing of thi s report i s recommen ded",! | |
47 | 41 . S %ZIS= "MQ" | |
48 | 42 . D ^%ZIS | |
49 | 43 . I POP K %ZIS W !, "Device no t ready" Q | |
50 | 44 . I $D(IO ("Q")) D | |
51 | 45 .. S ZTRT N="EN3^PSB MMRB" | |
52 | 46 .. S ZTSA VE("RDATE" )="" | |
53 | 47 .. S ZTSA VE("PSBMUD V")="" | |
54 | 48 .. S ZTSA VE("PSBDIV ")="" | |
55 | 49 .. S ZTSA VE("PSBNAM E")="" | |
56 | 50 .. S ZTDE SC("Respir atory Ther apy Meds R eport")="" | |
57 | 51 .. D ^%ZT LOAD | |
58 | 52 D ^%ZISC | |
59 | 53 D EXIT | |
60 | 54 Q | |
61 | 55 ; | |
62 | 56 EN3 ; create new entry; note: nat ional rout ine PSBO1 is modifie d for a ne w report, | |
63 | 57 ; at NEW+ 3^PSBO1 ad d RT code for Respir atory Ther apy Meds r eport | |
64 | 58 ; | |
65 | 59 D NEW^PSB O1(.PSBRPT ,"RT") ;for Resp iratory Th erapy Meds report | |
66 | 60 G:$P($G(P SBRPT(0)), U)<1 EXIT | |
67 | 61 ; edit ne w entry. | |
68 | 62 S DA=$P($ G(PSBRPT(0 )),U),DIE= "^PSB(53.6 9," | |
69 | 63 S DR=".06 ///^S X=IO N;.11///W; .15=///B;. 16=///"_RD ATE_";.17= ///0001;.1 9=///2400" | |
70 | 64 L +(^PSB( 53.69,DA)) :30 I '$T G EXIT | |
71 | 65 D ^DIE | |
72 | 66 L -(^PSB( 53.69,DA)) | |
73 | 67 ; loop th rough Nurs ing locati ons, edit new entry, and print . | |
74 | 68 S ZZA=0 F S ZZA=$O (^NURSF(21 1.4,ZZA)) Q:'ZZA D | |
75 | 69 . N PSBWR DA,PSBSTA, PTFLAG | |
76 | 70 . Q:'$D(^ NURSF(211. 4,ZZA,3,0) ) ;get ou t if no MA S Wards ex ist | |
77 | 71 . S ZZA1= 0 F S ZZA 1=$O(^NURS F(211.4,ZZ A,3,ZZA1)) Q:'ZZA1 D | |
78 | 72 .. S D0=Z ZA D WIN^D GPMDDCF Q: X'=0 ; is location active or inactive? | |
79 | 73 .. S ZZB= $$GET1^DIQ (211.4,ZZA ,.01,"I") ; pointer to file #4 4 | |
80 | 74 .. ; capt ure the wa rd name | |
81 | 75 .. S WARD =$$GET1^DI Q(44,ZZB,. 01,"E") | |
82 | 76 .. D WARD ^NURSUT5(" L^"_ZZA,.P SBWRDA) | |
83 | 77 .. Q:$G(P SBWRDA)=-1 | |
84 | 78 .. ; | |
85 | 79 .. S PSBS TA=+$P(PSB WRDA(ZZA,. 02),U) ; s tation num ber | |
86 | 80 .. I (PSB MUDV=1)&(P SBDIV'=PSB STA) Q ; single div ision is d efault | |
87 | 81 .. S PTFL AG=$$GET1^ DIQ(211.4, ZZA,1,"I") ; patient care stat us flag | |
88 | 82 .. I (PTF LAG["A") S ^TMP($J,W ARD)="" | |
89 | 83 .. ; | |
90 | 84 ; if ther e are no w ards in th e division queried, issue a bl ank report | |
91 | 85 I '$D(^TM P($J)) D Q | |
92 | 86 . S PSBHD R(1)="RESP IRATORY TH ERAPY MEDI CATIONS fr om "_$$FMT E^XLFDT(DT )_"@00:01" _" thru "_ $$FMTE^XLF DT(DT)_"@2 4:00 | |
93 | " | |
94 | 87 . S PSBWR D="" | |
95 | 88 . D WRDHD R^PSBORT | |
96 | 89 . W !,"No Medicatio ns Found" | |
97 | 90 . Q | |
98 | 91 ; | |
99 | 92 S WARD="" F S WARD =$O(^TMP($ J,WARD)) Q :WARD="" D | |
100 | 93 . S DA=$P ($G(PSBRPT (0)),U),DI E="^PSB(53 .69," | |
101 | 94 . S DR=". 13///^S X= WARD" | |
102 | 95 . L +(^PS B(53.69,DA )):30 I '$ T G EXIT | |
103 | 96 . D ^DIE | |
104 | 97 . L -(^PS B(53.69,DA )) | |
105 | 98 . D DQ^PS BO(DA) | |
106 | 99 Q | |
107 | 100 ; | |
108 | 101 EXIT ; clean u p. | |
109 | 102 K DA,DIE, DR,PSBRPT, ZZWD,ZZWD1 ,ZZWD2,ZZW D3,RDATE | |
110 | 103 K D0,ZZA, ZZA1,ZZA2, ZZB,WARD,^ TMP($J),^T MP("PSBMMR B",$J) | |
111 | 104 Q | |
112 | 105 ; | |
113 | 106 CHK1 ; The use r must hav e at least one divis ion from f ile #40.8 in his fil e #200 rec ord. | |
114 | 107 N DIR | |
115 | 108 W ! | |
116 | 109 S DIR(0)= "SB^A:All Divisions; O:One Divi sion" | |
117 | 110 S DIR("?" )="Select either All Divisions or One Di vision." | |
118 | 111 S DIR("A" )="Do you want (A)ll Divisions or just ( O)ne Divis ion" | |
119 | 112 S DIR("B" )="O" | |
120 | 113 D ^DIR K DIR I $D(D UOUT)!$D(D TOUT)!$D(D IROUT)!$D( DIRUT) Q | |
121 | 114 I Y="" Q | |
122 | 115 I Y(0)="O ne Divisio n" D ONE Q ; regar dless user divisions in file # 200 | |
123 | 116 I Y(0)="A ll Divisio ns" S PSBM UDV=2 ; fo r all divi sions in a multisite setup | |
124 | 117 Q | |
125 | 118 ; | |
126 | 119 ALL ; user ge ts all div isions | |
127 | 120 S Y(0)="A ll Divisio ns" ; all divisions selected | |
128 | 121 S PSBDIV= DUZ(2) | |
129 | 122 S PSBSTIE N=+$O(^DG( 40.8,"AD", DUZ(2),"") ) ; curren t IEN for station | |
130 | 123 S Y=$$GET 1^DIQ(40.8 ,PSBSTIEN, .01,"E") | |
131 | 124 I '$D(Y) S Y=DUZ(2) | |
132 | 125 S PSBNAME =$$NAME^XU AF4(DUZ(2) ) | |
133 | 126 S PSBMUDV =0 | |
134 | 127 S ^TMP("P SBMMRB",$J )=PSBMUDV_ U_PSBDIV_U _PSBNAME | |
135 | 128 Q | |
136 | 129 ; | |
137 | 130 ONE ; when us er selects one divis ion from m any in fil e #200, lo ok at file #40.8 for a match i f availabl e | |
138 | 131 W ! | |
139 | 132 S PSBSTIE N=+$O(^DG( 40.8,"AD", DUZ(2),"") ) ; curren t IEN for station | |
140 | 133 S PSBDVNM =$$GET1^DI Q(40.8,PSB STIEN,.01, "I") ;divi sion name | |
141 | 134 S DIC("B" )=PSBDVNM | |
142 | 135 S DIC("A" )="Select Division: ",DIC="^DG (40.8,",DI C(0)="AEMQ ",DIC("S") ="I $$SITE ^VASITE(,+ Y)>0" | |
143 | 136 D ^DIC | |
144 | 137 ; capture the divis ion name a nd number after user selection | |
145 | 138 S PSBNAME =$$GET1^DI Q(40.8,+Y, .01,"E") | |
146 | 139 S PSBDPTR =$$GET1^DI Q(40.8,+Y, .07,"I") ; pointer t o file #4 | |
147 | 140 S PSBDIV= PSBDPTR | |
148 | 141 S ^TMP("P SBMMRB",$J )=PSBMUDV_ U_PSBDIV_U _PSBNAME | |
149 | 142 Q | |
150 | 143 ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.