Produced by Araxis Merge on 9/28/2017 6:25:04 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 - NURCAS0 - Memphis.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 - NURCAS0 - Memphis.docx | Thu Sep 28 21:57:43 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 366 |
| 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 | NURCAS0 ;H IRMFO/RM,M D,RTK,FT-P ATIENT CEN SUS/ASSIGN MENT WORKS HEET WARD ;8/9/96 11 :44 | |
| 7 | 2 | |
| 8 | ||
| 9 | ;;4.0;NURS ING SERVIC E;;Apr 25, 1997 | |
| 10 | 3 | |
| 11 | ||
| 12 | ;MODIFIED BY MD;01/1 9/87 | |
| 13 | 4 | |
| 14 | ||
| 15 | Q:'$D(^DIC (213.9,1," OFF")) Q:$ P(^DIC(213 .9,1,"OFF" ),"^",1)=1 | |
| 16 | 5 | |
| 17 | ||
| 18 | S (NURBRSW ,NURQUIT)= 0 W !,"Do you want t o:",!?5,"1 . Print Br ief Assign ment Works heet(s)",! ?5,"2. Pri nt Complet e Assignme nt Workshe et(s)",!," Select 1 o r 2: " R N URSCH:DTIM E I "^"[NU RSCH!('$T) S NURQUIT =1 G QUIT | |
| 19 | 6 | |
| 20 | ||
| 21 | I NURSCH'= +NURSCH!(N URSCH<1)!( NURSCH>2) W !,$C(7), "ANSWER WI TH NUMBER 1 OR 2",! G NURCAS0 | |
| 22 | 7 | |
| 23 | ||
| 24 | S:NURSCH=1 NURBRSW=1 | |
| 25 | 8 | |
| 26 | ||
| 27 | W ! K NACT D WARDPAT ^NURCUT0 G :NURQUIT Q UIT | |
| 28 | 9 | |
| 29 | ||
| 30 | D EN6^NURS UT0 G:NURQ UIT QUIT | |
| 31 | 10 | |
| 32 | ||
| 33 | W ! S ZTDE SC="Nursin g Patient Census/Ass ignment Wo rksheet",Z TRTN="STAR T^NURCAS0" D EN7^NUR SUT0 G:POP !($D(ZTSK) ) QUIT | |
| 34 | 11 | |
| 35 | ||
| 36 | START ; | |
| 37 | 12 | |
| 38 | ||
| 39 | D NOW^%DTC S NURDT=% K %,%H I $E(IOST)=" P",NCOPY>1 F NURI=1: 1 Q:NURI'< D> | |
| 40 | 13 | |
| 41 | ||
| 42 | E D REPORT | |
| 43 | 14 | |
| 44 | ||
| 45 | QUIT ; KIL L LOCAL VA RIABLES | |
| 46 | 15 | |
| 47 | ||
| 48 | K ^TMP($J, "NURCEN") D CLOSE^NU RSUT1,KVAR ^VADPT,^NU RCKILL | |
| 49 | 16 | |
| 50 | ||
| 51 | Q | |
| 52 | 17 | |
| 53 | ||
| 54 | REPORT U I O S (ISW(1 ),NURSW1,N URPAGE)=0 K ^TMP($J, "NURCEN"), ^TMP("DIQ1 ",$J) | |
| 55 | 18 | |
| 56 | ||
| 57 | D ^NURCAS2 | |
| 58 | 19 | |
| 59 | ||
| 60 | I '$D(^TMP ($J,"NURCE N")) D HEA DER W $C(7 ),!,"NO PA TIENTS IN SELECTED R OOM(S) ON "_NPWARD Q | |
| 61 | 20 | |
| 62 | ||
| 63 | PRINT ;PRI NT ROUTINE | |
| 64 | 21 | |
| 65 | ||
| 66 | S NBED="" F S NBED=$ O(^TMP($J, "NURCEN",N BED)) Q:NB ED=""!(NUR QUIT) D NN | |
| 67 | 22 | |
| 68 | ||
| 69 | Q | |
| 70 | 23 | |
| 71 | ||
| 72 | NN S NBED( 0)="" F S NBED(0)=$O (^TMP($J," NURCEN",NB ED,NBED(0) )) Q:NBED( 0)=""!(NUR QUIT) D NO | |
| 73 | 24 | |
| 74 | ||
| 75 | Q | |
| 76 | 25 | |
| 77 | ||
| 78 | NO D:'NURS W1 HEADER S N1="" F S N1=$O(^T MP($J,"NUR CEN",NBED, NBED(0),N1 )) Q:N1="" !(NURQUIT) D PRINT1 | |
| 79 | 26 | |
| 80 | ||
| 81 | Q | |
| 82 | 27 | |
| 83 | ||
| 84 | PRINT1 S N DATA=$G(^T MP($J,"NUR CEN",NBED, NBED(0),N1 )),DFN=$P( NDATA,"^") ,SSN=$P(ND ATA,"^",2) D ^NURSAP CH | |
| 85 | 28 | |
| 86 | ||
| 87 | D EN6^NURS CUTL S NUR SCLAS("CL" )=1 D EN2^ NURSCUTL | |
| 88 | 29 | |
| 89 | ||
| 90 | 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:"") | |
| 91 | 30 | |
| 92 | ||
| 93 | 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) ,"^")) | |
| 94 | 31 | |
| 95 | ||
| 96 | I ($Y>(IOS L-14)) D H EADER Q:NU RQUIT | |
| 97 | 32 | |
| 98 | ||
| 99 | D HEADER1 I 'NURBRSW D ^NURCAS 1 Q:NURQUI T W !! | |
| 100 | 33 | |
| 101 | ||
| 102 | I ($Y>(IOS L-8)) D HE ADER Q:NUR QUIT D HEA DER1 | |
| 103 | 34 | |
| 104 | ||
| 105 | W !,?2,"AD L",?7,"SAF ETY",?15," BATH",?22, "DIET",?30 ,"BP",?37, "TPR",?44, "WT",?50," TREATMENTS ",?63,"I/O ",?71,"OTH ER",!,NURX ,! | |
| 106 | 35 | |
| 107 | ||
| 108 | F X=1:1:4 D HEADER2 | |
| 109 | 36 | |
| 110 | ||
| 111 | W NURX,! | |
| 112 | 37 | |
| 113 | ||
| 114 | Q | |
| 115 | 38 | |
| 116 | ||
| 117 | HEADER ; P RINTING OF HEADING R OUTINE | |
| 118 | 39 | |
| 119 | ||
| 120 | I $E(IOST) ="C",NURSW 1 D ENDPG^ NURSUT1 S NURQUIT=$G (NUROUT) Q :NURQUIT | |
| 121 | 40 | |
| 122 | ||
| 123 | S NURPAGE= NURPAGE+1, $P(NURX,"- ",81)="",N URSW1=1,Y= DT D:+Y D^ DIQ W @IOF ,!,Y,?25," PATIENT CA RE ASSIGNM ENT/WORKSH EET",?70," PAGE: ",NU RPAGE | |
| 124 | 41 | |
| 125 | ||
| 126 | W !,"UNIT: ",NPWARD, !,"TOUR: " ,$E(NURX,1 ,10),!,"ST AFF:" F X= 1:1:5 W ?$ X+2,$E(NUR X,1,12) | |
| 127 | 42 | |
| 128 | ||
| 129 | W !,NURX | |
| 130 | 43 | |
| 131 | ||
| 132 | Q | |
| 133 | 44 | |
| 134 | ||
| 135 | HEADER1 ; | |
| 136 | 45 | |
| 137 | ||
| 138 | S VAINDT=N URDT D INP ^VADPT W ! ,"RM/BED: ",$S($D(VA IN(5)):VAI N(5),1:"") ,?26,"BEDS ECTION: ", NSEC,?45," ADM: ",$P( NDATA,"^", 3) | |
| 139 | 46 | |
| 140 | ||
| 141 | K NURSAL,N URSALGR D ALLERGY^NU RCUT1(DFN, .NURSAL) | |
| 142 | 47 | |
| 143 | ||
| 144 | S (NURSJ,X )=1,NURSAL GR(1)="REA CTIONS: " F NURSI=0: 0 S NURSI= $O(NURSAL( NURSI)) Q: NURSI'>0 D | |
| 145 | 48 | |
| 146 | ||
| 147 | . I $L(NUR SALGR(X))+ $L(NURSAL( NURSI))+2> IOM S NURS J=1,NURSAL GR(X)=NURS ALGR(X)_", ",X=X+1,NU RSALGR(X)= " " | |
| 148 | 49 | |
| 149 | ||
| 150 | . S NURSAL GR(X)=NURS ALGR(X)_$S (NURSJ>1:" , ",1:"")_ $P(NURSAL( NURSI),U), NURSJ=NURS J+1 | |
| 151 | 50 | |
| 152 | ||
| 153 | . Q | |
| 154 | ||
| 155 | 51 | |
| 156 | AMS ;LOCAL MEMPHIS M OD NURSING FELT THAT SSN & DIA GNOSIS OUT PUT WAS HI PPA VIOLAT ION AS ADD ED NEXT LI NE | |
| 157 | ||
| 158 | 52 | |
| 159 | S SSN="XXX -XX-XXXX", VAIN(9)="O N FILE" | |
| 160 | 53 | |
| 161 | ||
| 162 | W !,"NAME: ",$S(N1'= " BLANK":$ E(N1,1,19) ,1:""),?26 ,"SSN: ",S SN,?45,"PH YSICIAN: " ,$E($P(VAI N(2),"^",2 ),1,25) | |
| 163 | 54 | |
| 164 | ||
| 165 | W !,"CATEG ORY: ",$S( $D(NURCAT) :NURCAT,1: "") W ?26, "FACTORS: (" W:$D(NU RFACT) NUR FACT W ")" I $D(NCOM ),NCOM'="" W !,"COMM ENTS: ",?2 2,NCOM | |
| 166 | 55 | |
| 167 | ||
| 168 | W !,"ADMIT TING DIAGN OSIS: " | |
| 169 | 56 | |
| 170 | ||
| 171 | W ?22,VAIN (9) | |
| 172 | 57 | |
| 173 | ||
| 174 | F I=0:0 S I=$O(NURSA LGR(I)) Q: I'>0 W !,N URSALGR(I) | |
| 175 | 58 | |
| 176 | ||
| 177 | Q | |
| 178 | 59 | |
| 179 | ||
| 180 | HEADER2 W ?6,"|",?13 ,"|",?20," |",?27,"|" ,?34,"|",? 41,"|",?48 ,"|",?60," |",?67,"|" ,?79,"|",! | |
| 181 | 60 | |
| 182 | ||
| 183 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.