Produced by Araxis Merge on 9/28/2017 6:25:10 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 - New Jersey.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 - New Jersey.docx | Thu Sep 28 22:07:27 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 486 |
| 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 | ||
| 5 | 1 | |
| 6 | NURCES2 ;H IRMFO/YH-E ND OF SHIF T REPORT P ART 3 - IT EMIZED I/O DATA ;7/1 5/97 | |
| 7 | ||
| 8 | 2 | |
| 9 | ;;4.0;NURS ING SERVIC E;**2,24** ;Apr 25, 1 997 | |
| 10 | ||
| 11 | 3 | |
| 12 | SETARRY ;S ET DATA IN ^TMP($J," GMRY", FOR EACH PATI ENT | |
| 13 | ||
| 14 | 4 | |
| 15 | S (GDCIV,G Q,GQT,GMRO UT)=0,GRPT =10 I '$D( ^GMR(126," B",DFN)) Q | |
| 16 | ||
| 17 | 5 | |
| 18 | S GSAVEH=0 ,DA(1)=$O( ^GMR(126," B",DFN,0)) K ^TMP($J ,"GMRY") | |
| 19 | ||
| 20 | 6 | |
| 21 | F II="IN", "OUT" D SA VE^GMRYRP2 | |
| 22 | ||
| 23 | 7 | |
| 24 | D SAVEIV^G MRYRP2,IVM | |
| 25 | ||
| 26 | 8 | |
| 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 | ||
| 29 | 9 | |
| 30 | SETIV ;SET IV TEXT | |
| 31 | ||
| 32 | 10 | |
| 33 | D IV^NURCE S3,IVTUBE | |
| 34 | ||
| 35 | 11 | |
| 36 | Q | |
| 37 | ||
| 38 | 12 | |
| 39 | IVM ;SET I V MAINTENA NCE IN ^TM P($J,"GMRY " | |
| 40 | ||
| 41 | 13 | |
| 42 | Q:'$D(^GMR (126,DFN," IVM","B")) | |
| 43 | ||
| 44 | 14 | |
| 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 | ||
| 47 | 15 | |
| 48 | Q | |
| 49 | ||
| 50 | 16 | |
| 51 | SCARE ; | |
| 52 | ||
| 53 | 17 | |
| 54 | Q:'$D(^GMR (126,DA(1) ,"IVM",DA, 1,"B")) | |
| 55 | ||
| 56 | 18 | |
| 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 | ||
| 59 | 19 | |
| 60 | . S GDA=0 F S GDA=$O (^GMR(126, DA(1),"IVM ",DA,1,"B" ,GSTRT,GDA )) Q:GDA'> 0 D SETUT | |
| 61 | ||
| 62 | 20 | |
| 63 | Q | |
| 64 | ||
| 65 | 21 | |
| 66 | SETUT ; | |
| 67 | ||
| 68 | 22 | |
| 69 | S GSITE(GS ITE)="" D FINDCA^GMR YCATH(.GSI TE) | |
| 70 | ||
| 71 | 23 | |
| 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 | ||
| 74 | 24 | |
| 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 | ||
| 77 | 25 | |
| 78 | IVTUBE ;OB TAIN LAST TUBING CHA NGED | |
| 79 | ||
| 80 | 26 | |
| 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 | ||
| 83 | 27 | |
| 84 | K GDA,GYES ,GCT,GDATA ,GDT,GIVDT ,GMRXY,GSI TE,GST Q | |
| 85 | ||
| 86 | 28 | |
| 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 | ||
| 89 | 29 | |
| 90 | Q | |
| 91 | ||
| 92 | 30 | |
| 93 | CHANGED ; | |
| 94 | ||
| 95 | 31 | |
| 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 | ||
| 98 | 32 | |
| 99 | Q | |
| 100 | ||
| 101 | 33 | |
| 102 | CHANGED1 ; | |
| 103 | ||
| 104 | 34 | |
| 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 | ||
| 107 | 35 | |
| 108 | Q | |
| 109 | ||
| 110 | 36 | |
| 111 | HEADER ; P RINTING OF HEADING R OUTINE | |
| 112 | ||
| 113 | 37 | |
| 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 | ||
| 116 | 38 | |
| 117 | S Y=(GMRFI N+.0001)_" 00" | |
| 118 | ||
| 119 | 39 | |
| 120 | S NURPAGE= NURPAGE+1, NURSW1=1 W :NURPAGE>1 @IOF | |
| 121 | ||
| 122 | 40 | |
| 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 | ||
| 125 | 41 | |
| 126 | W ?$S(NOPT =1:118,NOP T=2:72,1:7 2),"PAGE:" ,NURPAGE | |
| 127 | ||
| 128 | 42 | |
| 129 | W !,"ROOM- BED/NAME/S SN/",?25," |ADMITTING DX/ |PT | LATEST VIT ALS" W:NOP T=1 ?68,"| PATIENT PR OBLEMS" | |
| 130 | ||
| 131 | 43 | |
| 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 | ||
| 134 | 44 | |
| 135 | Q | |
| 136 | ||
| 137 | 45 | |
| 138 | PTDATA ; | |
| 139 | ||
| 140 | 46 | |
| 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 | ||
| 146 | 47 | |
| 147 | S NPT(2)=$ S(N1'=" BL ANK":$E(N1 ,1,17),1:" "),NPT(3)= $E(NSSN,8, 11),NPT=3 D FITLINE^ NURCES5("S pecialty: "_$P($G(VA IN(3)),"^" ,2),25,.NP T) | |
| 148 | ||
| 149 | 48 | |
| 150 | I GFH D FI TLINE^NURC ES5(NDIET, 25,.NPT) | |
| 151 | ||
| 152 | 49 | |
| 153 | D ALLERGY^ NURCES4 | |
| 154 | ||
| 155 | 50 | |
| 156 | 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) | |
| 157 | ||
| 158 | 51 | |
| 159 | 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) | |
| 160 | ||
| 161 | 52 | |
| 162 | S NADM=NAD M+1,NADM(N ADM)=$P(VA DM(4),"^") _" yrs. "_ $S($P(VADM (5),"^",2) '="":$P(VA DM(5),"^", 2),1:" ") | |
| 163 | ||
| 164 | 53 | |
| 165 | I $P($G(VA IN(11)),"^ ",2)'="" D K G | |
| 166 | ||
| 167 | 54 | |
| 168 | . 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) " | |
| 169 | ||
| 170 | 55 | |
| 171 | . I G>0,$D (^VA(200,G ,.13)) S G (1)=$P($G( ^(.13)),"^ ",7),G(2)= $P($G(^(.1 3)),"^",8) D | |
| 172 | ||
| 173 | 56 | |
| 174 | . . I G(1) '="" S NAD M=NADM+1,N ADM(NADM)= G(1) D | |
| 175 | ||
| 176 | 57 | |
| 177 | . . . I $L (G(1))>11 S NADM=NAD M+1,NADM(N ADM)=" (V) " | |
| 178 | ||
| 179 | 58 | |
| 180 | . . . E S NADM(NADM) =NADM(NADM )_" (V)" | |
| 181 | ||
| 182 | 59 | |
| 183 | . . I G(2) '="" S NAD M=NADM+1,N ADM(NADM)= G(2) D | |
| 184 | ||
| 185 | 60 | |
| 186 | . . . I $L (G(2))>11 S NADM=NAD M+1,NADM(N ADM)=" (D) " | |
| 187 | ||
| 188 | 61 | |
| 189 | . . . E S NADM(NADM) =NADM(NADM )_" (D)" | |
| 190 | ||
| 191 | 62 | |
| 192 | I $P($G(VA IN(2)),"^" ,2)'="" D K G | |
| 193 | ||
| 194 | 63 | |
| 195 | . 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)" | |
| 196 | ||
| 197 | 64 | |
| 198 | . I G>0,$D (^VA(200,G ,.13)) S G (1)=$P($G( ^(.13)),"^ ",7),G(2)= $P($G(^(.1 3)),"^",8) D | |
| 199 | ||
| 200 | 65 | |
| 201 | . . I G(1) '="" S NAD M=NADM+1,N ADM(NADM)= G(1) D | |
| 202 | ||
| 203 | 66 | |
| 204 | . . . I $L (G(1))>11 S NADM=NAD M+1,NADM(N ADM)=" (V) " | |
| 205 | ||
| 206 | 67 | |
| 207 | . . . E S NADM(NADM) =NADM(NADM )_" (V)" | |
| 208 | ||
| 209 | 68 | |
| 210 | . . I G(2) '="" S NAD M=NADM+1,N ADM(NADM)= G(2) D | |
| 211 | ||
| 212 | 69 | |
| 213 | . . . I $L (G(2))>11 S NADM=NAD M+1,NADM(N ADM)=" (D) " | |
| 214 | ||
| 215 | 70 | |
| 216 | . . . E S NADM(NADM) =NADM(NADM )_" (D)" | |
| 217 | ||
| 218 | 71 | |
| 219 | 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 | |
| 220 | ||
| 221 | 72 | |
| 222 | I GPACK,$D (NURTLTO) S:NURTLTO> 0 NADM=NAD M+1,NADM(N ADM)="Outp ut: "_NURT LTO | |
| 223 | ||
| 224 | 73 | |
| 225 | K NURTLTI, NURTLTO Q | |
| 226 | ||
| 227 | 74 | |
| 228 | PRINT2 I $ D(NPT(NN)) ,(NPT(NN)' ="") W $E( NPT(NN),1, 25) | |
| 229 | ||
| 230 | 75 | |
| 231 | W ?25,"|" I $D(NADM( NN)),(NADM (NN)'="") W $E(NADM( NN),1,16) | |
| 232 | ||
| 233 | 76 | |
| 234 | W ?42,"|" I $D(NCL(N N)),(NCL(N N)'="") W NCL(NN) | |
| 235 | ||
| 236 | 77 | |
| 237 | W ?46,"|" I $D(NVM(N N)),(NVM(N N)'="") W NVM(NN) | |
| 238 | ||
| 239 | 78 | |
| 240 | I NOPT=1 W ?68,"|" I $D(NPR(NN )),(NPR(NN )'="") W N PR(NN) | |
| 241 | ||
| 242 | 79 | |
| 243 | W ! Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.