Produced by Araxis Merge on 9/28/2017 6:25:05 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 - NURCAS2 - WPB.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 - NURCAS2 - WPB.docx | Thu Sep 28 21:58:19 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 150 |
| 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 | NURCAS2 ;H IRMFO/MD,F T-UTILITY( $J) ARRAY BUILDER FO R ASSIGNME NT SHEET ; 6/26/97 14 :42 | |
| 7 | 2 | |
| 8 | ||
| 9 | ;;4.0;NURS ING SERVIC E;**2,24** ;Apr 25, 1 997 | |
| 10 | 3 | |
| 11 | ||
| 12 | I "Pp"[NUR EDB D PAT | |
| 13 | 4 | |
| 14 | ||
| 15 | I "Uu"[NUR EDB D KVAR ^VADPT F D FN=0:0 S D FN=$O(^NUR SF(214,"AF ","A",NURW ARD,DFN)) Q:DFN'>0 W :$E(IOST)= "C" "." D 1^VADPT D ALLPAT | |
| 16 | 5 | |
| 17 | ||
| 18 | I "Ss"[NUR EDB F DFN= 0:0 S DFN= $O(^NURSF( 214,"AF"," A",NURWARD ,DFN)) Q:D FN'>0 D 1^ VADPT W:$E (IOST)="C" "." I VAD M(1)'="" D SELECT | |
| 19 | 6 | |
| 20 | ||
| 21 | Q | |
| 22 | 7 | |
| 23 | ||
| 24 | SELECT S N ROOM="" F S NROOM=$O (NRMBD(NRO OM)) Q:NRO OM="" I $P ($P(VAIN(5 ),U),"-",1 ,2)=NROOM D SELECT1 | |
| 25 | 8 | |
| 26 | ||
| 27 | Q | |
| 28 | 9 | |
| 29 | ||
| 30 | SELECT1 S NBED=$S('( $P(VAIN(5) ,"-",2)="" ):$P(VAIN( 5),"-",2), 1:" BLANK" ),NAME=$P( VADM(1),"^ "),^TMP($J ,"NURCEN", NROOM,NBED ,NAME)=DFN _"^"_VA("P ID")_"^"_$ P(VAIN(7), "^",2) | |
| 31 | ||
| 32 | 9 | |
| 33 | SELECT1 S NBED=$S('( $P(VAIN(5) ,"-",2)="" ):$P(VAIN( 5),"-",2), 1:" BLANK" ),NAME=$P( VADM(1),"^ "),^TMP($J ,"NURCEN", NROOM,NBED ,NAME)=DFN _"^"_VA("B ID")_"^"_$ P(VAIN(7), "^",2) | |
| 34 | ||
| 35 | 10 | |
| 36 | ;MODIFIED LINE ABOVE FROM LINE BELOW FRO M PID TO B ID FOR SEC URITY WPB/ KAM 7/30/0 7 | |
| 37 | ||
| 38 | 11 | |
| 39 | ;S NBED=$S ('($P(VAIN (5),"-",2) =""):$P(VA IN(5),"-", 2),1:" BLA NK"),NAME= $P(VADM(1) ,"^"),^TMP ($J,"NURCE N",NROOM,N BED,NAME)= DFN_"^"_VA ("PID")_"^ "_$P(VAIN( 7),"^",2) | |
| 40 | 12 | |
| 41 | ||
| 42 | Q | |
| 43 | 13 | |
| 44 | ||
| 45 | ALLPAT I ' (VADM(1)=" ") S NAME= VADM(1),NR OOM=$S('($ P(VAIN(5), "-")=""):$ P(VAIN(5), "-"),1:" B LANK"),NBE D=$S('($P( VAIN(5),"- ",2)=""):$ P(VAIN(5), "-",2),1:" BLANK"),^ TMP($J,"NU RCEN",NROO M,NBED,NAM E)=DFN_"^" _VA("PID") _"^"_$P(VA IN(7),"^", 2) | |
| 46 | ||
| 47 | 13 | |
| 48 | ALLPAT I ' (VADM(1)=" ") S NAME= VADM(1),NR OOM=$S('($ P(VAIN(5), "-")=""):$ P(VAIN(5), "-"),1:" B LANK"),NBE D=$S('($P( VAIN(5),"- ",2)=""):$ P(VAIN(5), "-",2),1:" BLANK"),^ TMP($J,"NU RCEN",NROO M,NBED,NAM E)=DFN_"^" _VA("BID") _"^"_$P(VA IN(7),"^", 2) | |
| 49 | ||
| 50 | 14 | |
| 51 | ;MODIFIED LINE ABOVE FROM LINE BELOW FRO M PID TO B ID FOR SEC URITY WPB/ KAM 7/30/0 7 | |
| 52 | ||
| 53 | 15 | |
| 54 | ;I '(VADM( 1)="") S N AME=VADM(1 ),NROOM=$S ('($P(VAIN (5),"-")=" "):$P(VAIN (5),"-"),1 :" BLANK") ,NBED=$S(' ($P(VAIN(5 ),"-",2)=" "):$P(VAIN (5),"-",2) ,1:" BLANK "),^TMP($J ,"NURCEN", NROOM,NBED ,NAME)=DFN _"^"_VA("P ID")_"^"_$ P(VAIN(7), "^",2) | |
| 55 | 16 | |
| 56 | ||
| 57 | Q | |
| 58 | 17 | |
| 59 | ||
| 60 | PAT D 1^VA DPT I '(VA DM(1)="") S NAME=VAD M(1),NROOM =$S('($P(V AIN(5),"-" )=""):$P(V AIN(5),"-" ),1:" BLAN K"),NBED=$ S('($P(VAI N(5),"-",2 )=""):$P(V AIN(5),"-" ,2),1:" BL ANK"),^TMP ($J,"NURCE N",NROOM,N BED,NAME)= DFN_"^"_VA ("PID")_"^ "_$P(VAIN( 7),"^",2) | |
| 61 | ||
| 62 | 17 | |
| 63 | PAT D 1^VA DPT I '(VA DM(1)="") S NAME=VAD M(1),NROOM =$S('($P(V AIN(5),"-" )=""):$P(V AIN(5),"-" ),1:" BLAN K"),NBED=$ S('($P(VAI N(5),"-",2 )=""):$P(V AIN(5),"-" ,2),1:" BL ANK"),^TMP ($J,"NURCE N",NROOM,N BED,NAME)= DFN_"^"_VA ("BID")_"^ "_$P(VAIN( 7),"^",2) | |
| 64 | ||
| 65 | 18 | |
| 66 | ;MODIFIED LINE ABOVE FROM LINE BELOW CHA NGING PID TO BID FOR SECURITY WPB/KAM 7/ 30/07 | |
| 67 | ||
| 68 | 19 | |
| 69 | ;PAT D 1^V ADPT I '(V ADM(1)="") S NAME=VA DM(1),NROO M=$S('($P( VAIN(5),"- ")=""):$P( VAIN(5),"- "),1:" BLA NK"),NBED= $S('($P(VA IN(5),"-", 2)=""):$P( VAIN(5),"- ",2),1:" B LANK"),^TM P($J,"NURC EN",NROOM, NBED,NAME) =DFN_"^"_V A("PID")_" ^"_$P(VAIN (7),"^",2) | |
| 70 | 20 | |
| 71 | ||
| 72 | S NPWARD=$ P($G(^NURS F(214,+DFN ,0)),U,3) D EN6^NURS AUTL | |
| 73 | 21 | |
| 74 | ||
| 75 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.