Produced by Araxis Merge on 9/28/2017 6:25:07 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 - NURCES01 - Charleston.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 - NURCES01 - Charleston.docx | Thu Sep 28 22:05:20 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 222 |
| 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 | NURCES01 ; HIRMFO/YH- END OF SHI FT REPORT PART 1/2 ; 12/6/96 | |
| 7 | 2 | |
| 8 | ||
| 9 | ;;4.0;NURS ING SERVIC E;;Apr 25, 1997 | |
| 10 | 3 | |
| 11 | ||
| 12 | PRINT1 ; | |
| 13 | 4 | |
| 14 | ||
| 15 | D ^NURSAPC H | |
| 16 | 5 | |
| 17 | ||
| 18 | S GMROUT=0 I GPACK D SETARRY^N URCES2 | |
| 19 | 6 | |
| 20 | ||
| 21 | I GFH D DI ET^NURCES4 | |
| 22 | 7 | |
| 23 | ||
| 24 | D EN6^NURS CUTL S NUR SCLAS("CL" )=1 D EN2^ NURSCUTL | |
| 25 | 8 | |
| 26 | ||
| 27 | I NURSCLAS S NDATA(1 )=$S($D(^N URSA(214.6 ,NURSCLAS, 0)):^(0),1 :"") S NUR FACT=$S($P (NDATA(1), "^",4)'="" :$P(NDATA( 1),"^",4), 1:""),NURC AT=$S(+$P( NDATA(1)," ^",3):$P(N DATA(1),"^ ",3),1:"") ,NCOM=$S($ P(NDATA(1) ,"^",7)'=" ":$P(NDATA (1),"^",7) ,1:"") | |
| 28 | 9 | |
| 29 | ||
| 30 | I $D(^NURS F(214,DFN, 0)) S NDAT A(2)=^(0), NSEC=$S('$ D(NDATA(2) ):"",'$P(N DATA(2),"^ ",4):"",'$ D(^NURSF(2 13.3,$P(ND ATA(2),"^" ,4),0)):"" ,1:$P(^NUR SF(213.3,$ P(NDATA(2) ,"^",4),1) ,"^")) | |
| 31 | 10 | |
| 32 | ||
| 33 | D PTDATA^N URCES2,PTP ROB^NURCES 1 Q:NURQUI T | |
| 34 | 11 | |
| 35 | ||
| 36 | I GPACK,$D (NURIV),NU RIV>0 S N= 0 F S N=$O (NURIV(N)) Q:N'>0 D | |
| 37 | 12 | |
| 38 | ||
| 39 | . D FITLIN E^NURCES5( NURIV(N),6 2,.NPR) | |
| 40 | 13 | |
| 41 | ||
| 42 | I GPACK,$D (NURTUBE), NURTUBE>0 S NPR=NPR+ 1,NPR(NPR) ="Last tub e changed: ",GSITE="" F S GSITE =$O(NURTUB E(GSITE)) Q:GSITE="" S Y=NURTU BE(GSITE) X ^DD("DD" ) S NPR=NP R+1,NPR(NP R)=" "_GSI TE_" on "_ $P(Y,":",1 ,2) | |
| 43 | 14 | |
| 44 | ||
| 45 | K NURIV,NU RTUBE,GLEF T,GSITE,GS AVEH S NN( 1)=2 S:NPR >2&(NOPT=1 ) NN(1)=NP R S:NADM>N N(1) NN(1) =NADM S:NP T>NN(1) NN (1)=NPT S: NVM>NN(1) NN(1)=NVM F NN=1:1:N N(1) D:$Y> (IOSL-8) H EADER^NURC ES2 Q:NURQ UIT D PRIN T2^NURCES2 Q:NURQUIT | |
| 46 | ||
| 47 | 15 | |
| 48 | ZPASS ;*mo d gwb/chs 8-30-06 fr om FOR loo p to FOR l oop is new . This add s a sectio n at the e nd of each patient f or PASS | |
| 49 | ||
| 50 | 16 | |
| 51 | F Z=1:1:13 2 W "-" | |
| 52 | ||
| 53 | 17 | |
| 54 | W !,"P - P ATIENT :" | |
| 55 | ||
| 56 | 18 | |
| 57 | W !,"A - A SSESSMENT :" | |
| 58 | ||
| 59 | 19 | |
| 60 | W !!,"S - SAFETY : ( isolation, elopement risk, res traints, c ritical la b values, fall/risk score ____ __)" ;*mod gwb/chs m odified 10 -9-13 | |
| 61 | ||
| 62 | 20 | |
| 63 | W !!,"S - SPECIAL NE EDS: (equi pment, oxy gen, etc." ,!! | |
| 64 | ||
| 65 | 21 | |
| 66 | F Z=1:1:13 2 W "=" | |
| 67 | 22 | |
| 68 | ||
| 69 | I NOPT=2 D PART2 | |
| 70 | ||
| 71 | 23 | |
| 72 | ZZ N Z,ZZ S Z=0 F S Z=$O(^TIU( 8925,"C",D FN,Z)) Q:' Z D | |
| 73 | ||
| 74 | 24 | |
| 75 | .S ZZ=$P($ G(^TIU(892 5,Z,0)),U) I (ZZ=8)! (ZZ=1969) D | |
| 76 | ||
| 77 | 25 | |
| 78 | ..I ZZ=8 W !,"Patien t has an A DVANCE DIR ECTIVE",! | |
| 79 | ||
| 80 | 26 | |
| 81 | ..I ZZ=196 9,($P($G(^ TIU(8925,Z ,0)),U)=7) W !,"Pati ent is DNR ",! ;*mod gwb/chs 10 -2-07 for non active DNRs | |
| 82 | ||
| 83 | 27 | |
| 84 | K Z,ZZ | |
| 85 | ||
| 86 | 28 | |
| 87 | ;*mod gwb/ chs 4-19-0 5 The abov e lines we re added t o note any patient t hat has an Advance D irective o r DNR note | |
| 88 | ||
| 89 | 29 | |
| 90 | W NURX | |
| 91 | 30 | |
| 92 | ||
| 93 | Q:NURQUIT W $S(NOPT= 1:NURX,NOP T=2:$E(NUR X,1,79),1: NURX),! | |
| 94 | 31 | |
| 95 | ||
| 96 | Q | |
| 97 | 32 | |
| 98 | ||
| 99 | PART2 ; | |
| 100 | 33 | |
| 101 | ||
| 102 | W !,?10,"P atient Pro blems:",! | |
| 103 | 34 | |
| 104 | ||
| 105 | I NPR>0 F NN=1:1:NPR W ?12,NPR (NN),! D:$ Y>(IOSL-8) HEADER^NU RCES2 Q:NU RQUIT | |
| 106 | 35 | |
| 107 | ||
| 108 | I NPR=0 W ?49,"|",?6 4,"|",! D: $Y>(IOSL-8 ) HEADER^N URCES2 | |
| 109 | 36 | |
| 110 | ||
| 111 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.