Produced by Araxis Merge on 9/28/2017 6:25:11 PM Eastern 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 | OSCIF_ EPIP 2.0_NUR_4.0_45_August_2017.zip\NUR_4.0_45 Routines | NUR_4.0_45 Routine - NURCES2 - SFC.docx | Thu Sep 28 15:24:28 2017 UTC |
| 2 | OSCIF_ EPIP 2.0_NUR_4.0_45_August_2017.zip\NUR_4.0_45 Routines | NUR_4.0_45 Routine - NURCES2 - SFC.docx | Thu Sep 28 22:07:55 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 492 |
| Changed | 0 | 0 |
| 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 | Gold | |
| 2 | Local | |
| 3 | Code (Red: Gold, Blu e: Local, Black: Bot h) | |
| 4 | 1 | |
| 5 | ||
| 6 | NURCES2 ;H IRMFO/YH-E ND OF SHIF T REPORT P ART 3 - IT EMIZED I/O DATA ;7/1 5/97 | |
| 7 | 2 | |
| 8 | ||
| 9 | ;;4.0;NURS ING SERVIC E;**2,24** ;Apr 25, 1 997 | |
| 10 | 3 | |
| 11 | ||
| 12 | SETARRY ;S ET DATA IN ^TMP($J," GMRY", FOR EACH PATI ENT | |
| 13 | 4 | |
| 14 | ||
| 15 | S (GDCIV,G Q,GQT,GMRO UT)=0,GRPT =10 I '$D( ^GMR(126," B",DFN)) Q | |
| 16 | 5 | |
| 17 | ||
| 18 | S GSAVEH=0 ,DA(1)=$O( ^GMR(126," B",DFN,0)) K ^TMP($J ,"GMRY") | |
| 19 | 6 | |
| 20 | ||
| 21 | F II="IN", "OUT" D SA VE^GMRYRP2 | |
| 22 | 7 | |
| 23 | ||
| 24 | D SAVEIV^G MRYRP2,IVM | |
| 25 | 8 | |
| 26 | ||
| 27 | D REPORT1^ GMRYRP3 S NURTLTI=$S ('$D(GTOTL I):"",1:GT OTLI),NURT LTO=$S('$D (GTOTLO):" ",1:GTOTLO ) D SETIV K GRPT,GSA VE Q | |
| 28 | 9 | |
| 29 | ||
| 30 | SETIV ;SET IV TEXT | |
| 31 | 10 | |
| 32 | ||
| 33 | D IV^NURCE S3,IVTUBE | |
| 34 | 11 | |
| 35 | ||
| 36 | Q | |
| 37 | 12 | |
| 38 | ||
| 39 | IVM ;SET I V MAINTENA NCE IN ^TM P($J,"GMRY " | |
| 40 | 13 | |
| 41 | ||
| 42 | Q:'$D(^GMR (126,DFN," IVM","B")) | |
| 43 | 14 | |
| 44 | ||
| 45 | S GSITE="" F S GSITE =$O(^GMR(1 26,DA(1)," IVM","B",G SITE)) Q:G SITE="" S DA=$O(^(GS ITE,0)) Q: DA'>0 D SC ARE | |
| 46 | 15 | |
| 47 | ||
| 48 | Q | |
| 49 | 16 | |
| 50 | ||
| 51 | SCARE ; | |
| 52 | 17 | |
| 53 | ||
| 54 | Q:'$D(^GMR (126,DA(1) ,"IVM",DA, 1,"B")) | |
| 55 | 18 | |
| 56 | ||
| 57 | S GSTRT=0 F S GSTRT= $O(^GMR(12 6,DA(1),"I VM",DA,1," B",GSTRT)) Q:GSTRT'> 0 S GMRIND T=GSTRT,GD AY=0 D NEX T^GMRYRP1 I '(GMRIND TGMRFIN)) D SETSIFT^ GMRYRP2 D | |
| 58 | 19 | |
| 59 | ||
| 60 | . S GDA=0 F S GDA=$O (^GMR(126, DA(1),"IVM ",DA,1,"B" ,GSTRT,GDA )) Q:GDA'> 0 D SETUT | |
| 61 | 20 | |
| 62 | ||
| 63 | Q | |
| 64 | 21 | |
| 65 | ||
| 66 | SETUT ; | |
| 67 | 22 | |
| 68 | ||
| 69 | S GSITE(GS ITE)="" D FINDCA^GMR YCATH(.GSI TE) | |
| 70 | 23 | |
| 71 | ||
| 72 | S GPORT=+$ P($G(^GMR( 126,DA(1), "IVM",DA,1 ,GDA,0))," ^",7),GPOR T=$S($D(^G MR(126,DFN ,"IV",GPOR T,3)):$P(^ (3),"^"),1 :"") | |
| 73 | 24 | |
| 74 | ||
| 75 | S ^TMP($J, "GMRY",$P( GMRINDT,". "),GSHIFT, "IV",GMRIN DT,GSTRT," Z",GDA,1)= $P(^GMR(12 6,DA(1),"I VM",DA,1,G DA,0),"^", 1,5)_"^"_$ P(^(0),"^" ,6)_"^"_GS ITE_"^"_GS ITE(GSITE) _"^"_GPORT Q | |
| 76 | 25 | |
| 77 | ||
| 78 | IVTUBE ;OB TAIN LAST TUBING CHA NGED | |
| 79 | 26 | |
| 80 | ||
| 81 | D SELSITE^ GMRYMNT Q: '$D(GMRXY) K NURTUBE S N=0 F S N=$O(GMRX Y(N)) Q:N' >0 D TUBIN G | |
| 82 | 27 | |
| 83 | ||
| 84 | K GDA,GYES ,GCT,GDATA ,GDT,GIVDT ,GMRXY,GSI TE,GST Q | |
| 85 | 28 | |
| 86 | ||
| 87 | TUBING S G SITE="",NU RTUBE=0 F S GSITE=$O (GMRXY(N,G SITE)) Q:G SITE="" I GCT(GSITE) >0 S GYES= 0,GDA=$S(' $D(^GMR(12 6,DFN,"IVM ","B",GSIT E)):"",1:$ O(^GMR(126 ,DFN,"IVM" ,"B",GSITE ,0))) D:GD A>0 CHANGE D | |
| 88 | 29 | |
| 89 | ||
| 90 | Q | |
| 91 | 30 | |
| 92 | ||
| 93 | CHANGED ; | |
| 94 | 31 | |
| 95 | ||
| 96 | S GDA(1)=0 F S GDA(1 )=$O(^GMR( 126,DFN,"I VM",GDA,1, "C",GDA(1) )) Q:GDA(1 )'>0!GYES S GDA(2)=0 F S GDA(2 )=$O(^GMR( 126,DFN,"I VM",GDA,1, "C",GDA(1) ,GDA(2))) Q:GDA(2)'> 0!GYES D C HANGED1 | |
| 97 | 32 | |
| 98 | ||
| 99 | Q | |
| 100 | 33 | |
| 101 | ||
| 102 | CHANGED1 ; | |
| 103 | 34 | |
| 104 | ||
| 105 | I $D(^GMR( 126,DFN,"I VM",GDA,1, GDA(2),0)) ,$P(^(0)," ^",3)["Y" S NURTUBE( GSITE)=$P( ^(0),"^"), GYES=1,NUR TUBE=NURTU BE+1 | |
| 106 | 35 | |
| 107 | ||
| 108 | Q | |
| 109 | 36 | |
| 110 | ||
| 111 | HEADER ; P RINTING OF HEADING R OUTINE | |
| 112 | 37 | |
| 113 | ||
| 114 | I $E(IOST) ="C",NURSW 1 W !,$C(7 ),"Enter t o continue " R X:DTI ME I '$T!( X="^") S N URQUIT=1 Q | |
| 115 | 38 | |
| 116 | ||
| 117 | S Y=(GMRFI N+.0001)_" 00" | |
| 118 | 39 | |
| 119 | ||
| 120 | S NURPAGE= NURPAGE+1, NURSW1=1 W :NURPAGE>1 @IOF | |
| 121 | 40 | |
| 122 | ||
| 123 | W !,NURDT, ?20,"END-O F-SHIFT RE PORT",?40, "UNIT: ",N PWARD W ?$ S(NOPT=1:9 0,NOPT=2:5 5,1:55),"T OUR: "_+$E ($P(GMRSTR T,".",2),1 ,2)_":"_$E ($P(GMRSTR T,".",2)_" 00",3,4)_" -"_+$E($P( Y,".",2),1 ,2)_":",$E ($P(Y,".", 2),3,4) | |
| 124 | 41 | |
| 125 | ||
| 126 | W ?$S(NOPT =1:118,NOP T=2:72,1:7 2),"PAGE:" ,NURPAGE | |
| 127 | 42 | |
| 128 | ||
| 129 | W !,"ROOM- BED/NAME/S SN/",?25," |ADMITTING DX/ |PT | LATEST VIT ALS" W:NOP T=1 ?68,"| PATIENT PR OBLEMS" | |
| 130 | 43 | |
| 131 | ||
| 132 | W !,"SPECI ALTY/DIET/ ALLERGIES" ,?25,"|DAT E/MDs",?42 ,"|CAT|" W :NOPT=1 ?6 8,"|",!,NU RX,! W:NOP T=2 !,$E(N URX,1,79), ! | |
| 133 | 44 | |
| 134 | ||
| 135 | Q | |
| 136 | 45 | |
| 137 | ||
| 138 | PTDATA ; | |
| 139 | 46 | |
| 140 | ||
| 141 | S NPT(1)=$ S($P(VAIN( 5),"^")'=" ":$P(VAIN( 5),"^"),1: "") | |
| 142 | 47 | |
| 143 | ||
| 144 | S NPT(2)=$ S(N1'=" BL ANK":$E(N1 ,1,17),1:" "),NPT(3)= NSSN,NPT=3 D FITLINE ^NURCES5(" Specialty: "_$P($G(V AIN(3)),"^ ",2),25,.N PT) | |
| 145 | 48 | |
| 146 | ||
| 147 | I GFH D FI TLINE^NURC ES5(NDIET, 25,.NPT) | |
| 148 | 49 | |
| 149 | ||
| 150 | D ALLERGY^ NURCES4 | |
| 151 | 50 | |
| 152 | ||
| 153 | S NCL(1)=$ S($D(NURCA T):NURCAT, 1:"") S NA DM=0 D INP ^VADPT D F ITLINE^NUR CES5(VAIN( 9),16,.NAD M) | |
| 154 | 51 | |
| 155 | ||
| 156 | S Y=$P(VAI N(7),"^") S:Y'="" NA DM=NADM+1, NADM(NADM) =$E(Y,4,5) _"/"_$E(Y, 6,7)_"/"_$ E(Y,2,3) S Y=$P(Y,". ",2) S:Y'= "" NADM(NA DM)=NADM(N ADM)_"@"_$ E(Y_"00",1 ,2) S Y=$E (Y,3,4) S: Y'="" NADM (NADM)=NAD M(NADM)_": "_$E(Y_"0" ,1,2) | |
| 157 | 52 | |
| 158 | ||
| 159 | S NADM=NAD M+1,NADM(N ADM)=$P(VA DM(4),"^") _" yrs. "_ $S($P(VADM (5),"^",2) '="":$P(VA DM(5),"^", 2),1:" ") | |
| 160 | 53 | |
| 161 | ||
| 162 | I $P($G(VA IN(11)),"^ ",2)'="" D K G | |
| 163 | 54 | |
| 164 | ||
| 165 | . S G=0,NA DM=NADM+1, NADM(NADM) =$P(VAIN(1 1),"^",2), G=$O(^VA(2 00,"B",NAD M(NADM),0) ),NADM=NAD M+1,NADM(N ADM)=" (A) " | |
| 166 | ||
| 167 | 55 | |
| 168 | . ;SFVAMC/ DLS 6/18/9 8 List onl y attendin g physicia n | |
| 169 | ||
| 170 | 56 | |
| 171 | . Q | |
| 172 | 57 | |
| 173 | ||
| 174 | . I G>0,$D (^VA(200,G ,.13)) S G (1)=$P($G( ^(.13)),"^ ",7),G(2)= $P($G(^(.1 3)),"^",8) D | |
| 175 | 58 | |
| 176 | ||
| 177 | . . I G(1) '="" S NAD M=NADM+1,N ADM(NADM)= G(1) D | |
| 178 | 59 | |
| 179 | ||
| 180 | . . . I $L (G(1))>11 S NADM=NAD M+1,NADM(N ADM)=" (V) " | |
| 181 | 60 | |
| 182 | ||
| 183 | . . . E S NADM(NADM) =NADM(NADM )_" (V)" | |
| 184 | 61 | |
| 185 | ||
| 186 | . . I G(2) '="" S NAD M=NADM+1,N ADM(NADM)= G(2) D | |
| 187 | 62 | |
| 188 | ||
| 189 | . . . I $L (G(2))>11 S NADM=NAD M+1,NADM(N ADM)=" (D) " | |
| 190 | 63 | |
| 191 | ||
| 192 | . . . E S NADM(NADM) =NADM(NADM )_" (D)" | |
| 193 | 64 | |
| 194 | ||
| 195 | I $P($G(VA IN(2)),"^" ,2)'="" D K G | |
| 196 | 65 | |
| 197 | ||
| 198 | . S G=0,NA DM=NADM+1, NADM(NADM) =$P(VAIN(2 ),"^",2),G =$O(^VA(20 0,"B",NADM (NADM),0)) ,NADM=NADM +1,NADM(NA DM)=" (P)" | |
| 199 | 66 | |
| 200 | ||
| 201 | . I G>0,$D (^VA(200,G ,.13)) S G (1)=$P($G( ^(.13)),"^ ",7),G(2)= $P($G(^(.1 3)),"^",8) D | |
| 202 | 67 | |
| 203 | ||
| 204 | . . I G(1) '="" S NAD M=NADM+1,N ADM(NADM)= G(1) D | |
| 205 | 68 | |
| 206 | ||
| 207 | . . . I $L (G(1))>11 S NADM=NAD M+1,NADM(N ADM)=" (V) " | |
| 208 | 69 | |
| 209 | ||
| 210 | . . . E S NADM(NADM) =NADM(NADM )_" (V)" | |
| 211 | 70 | |
| 212 | ||
| 213 | . . I G(2) '="" S NAD M=NADM+1,N ADM(NADM)= G(2) D | |
| 214 | 71 | |
| 215 | ||
| 216 | . . . I $L (G(2))>11 S NADM=NAD M+1,NADM(N ADM)=" (D) " | |
| 217 | 72 | |
| 218 | ||
| 219 | . . . E S NADM(NADM) =NADM(NADM )_" (D)" | |
| 220 | 73 | |
| 221 | ||
| 222 | S NVM(1)=" " D VM^NUR CES1 I GPA CK,$D(NURT LTI) S:NUR TLTI>0 NAD M=NADM+1,N ADM(NADM)= "Intake: " _NURTLTI | |
| 223 | 74 | |
| 224 | ||
| 225 | I GPACK,$D (NURTLTO) S:NURTLTO> 0 NADM=NAD M+1,NADM(N ADM)="Outp ut: "_NURT LTO | |
| 226 | 75 | |
| 227 | ||
| 228 | K NURTLTI, NURTLTO Q | |
| 229 | 76 | |
| 230 | ||
| 231 | PRINT2 I $ D(NPT(NN)) ,(NPT(NN)' ="") W $E( NPT(NN),1, 25) | |
| 232 | 77 | |
| 233 | ||
| 234 | W ?25,"|" I $D(NADM( NN)),(NADM (NN)'="") W $E(NADM( NN),1,16) | |
| 235 | 78 | |
| 236 | ||
| 237 | W ?42,"|" I $D(NCL(N N)),(NCL(N N)'="") W NCL(NN) | |
| 238 | 79 | |
| 239 | ||
| 240 | W ?46,"|" I $D(NVM(N N)),(NVM(N N)'="") W NVM(NN) | |
| 241 | 80 | |
| 242 | ||
| 243 | I NOPT=1 W ?68,"|" I $D(NPR(NN )),(NPR(NN )'="") W N PR(NN) | |
| 244 | 81 | |
| 245 | ||
| 246 | W ! Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.