10. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/28/2017 6:25:12 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.

10.1 Files compared

# 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 - NURCES5 - Puget Sound.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 - NURCES5 - Puget Sound.docx Thu Sep 28 22:08:25 2017 UTC

10.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 264
Changed 0 0
Inserted 0 0
Removed 0 0

10.3 Comparison options

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

10.4 Active regular expressions

No regular expressions were active.

10.5 Comparison detail

  1   Gold
  2   Local
  3   Code (Red:  Gold, Blu e: Local,  Black: Bot h)
  4   1 
  5    
  6   NURCES5 ;H IRMFO/YH-E ND OF SHIF T -VITAL/M EASUREMENT  DATA ;12/ 5/96 
  7   2 
  8    
  9   ;;4.0;NURS ING SERVIC E;**24**;A pr 25, 199 7 
  10    
  11   2 
  12   ;;4.0;NURS ING SERVIC E;**24**;A pr 25, 199 7;**LOCAL  MOD** 
  13   3 
  14    
  15   VITAL ; 
  16   4 
  17    
  18   N NUR,NURV IT,NURIEF, NURDT,NDTF LG,NURDT,N URTYP,NURQ UAL,NURDAT A,NURWT,NU RHT,NURBMI  
  19   5 
  20    
  21   S GMRVSTR= "T;P;R;BP; WT;HT;PN;" ,GMRVSTR(0 )="^^1^1"  D EN1^GMRV UT0 
  22    
  23   5 
  24   ;********* ********** *******STA RT LOCAL M OD SKLJ 9/ 25/03 **** ********** *** 
  25    
  26   6 
  27   ; ADD PO2  STATURATIO N TO NURSP P-SHIFT RE PORT  
  28    
  29   7 
  30   ; S GMRVST R="T;P;R;B P;WT;HT;PN ;",GMRVSTR (0)="^^1^1 " D EN1^GM RVUT0 
  31    
  32   8 
  33   S GMRVSTR= "T;P;R;BP; WT;HT;PN;P O2",GMRVST R(0)="^^1^ 1" D EN1^G MRVUT0 
  34    
  35   9 
  36   ; 
  37    
  38   10 
  39   ;********* ********** *******END  LOCAL MOD  SKLJ 9/25 /03 ****** ********** * 
  40   11 
  41    
  42   I $D(^UTIL ITY($J,"GM RVD")) S % X="^UTILIT Y($J,""GMR VD"",",%Y= "NURVIT("  D %XY^%RCR  K ^UTILIT Y($J,"GMRV D") 
  43   12 
  44    
  45   S GMRVSTR= "T;P;R;BP; PN;",GMRVS TR(0)=NURN OW(1)_"^"_ NURNOW D E N1^GMRVUT0  
  46   13 
  47    
  48   F NUR="T", "P","R","B P" S NURDT =0 F S NUR DT=$O(^UTI LITY($J,"G MRVD",NUR, NURDT)) Q: NURDT'>0 S  NURDA=0 F  S NURDA=$ O(^UTILITY ($J,"GMRVD ",NUR,NURD T,NURDA))  Q:NURDA'>0  D 
  49   14 
  50    
  51   . I $P(^UT ILITY($J," GMRVD",NUR ,NURDT,NUR DA),"^",12 )="*",'$D( NURVIT(NUR DT,NUR,NUR DA)) S NUR VIT(NURDT, NUR,NURDA) =^UTILITY( $J,"GMRVD" ,NUR,NURDT ,NURDA) 
  52   15 
  53    
  54   K NVM S NV M=0 S NURD T=0,NDTFLG =0 F S NUR DT=$O(NURV IT(NURDT))  Q:NURDT'> 0 D 
  55   16 
  56    
  57   . I NURDT' =NDTFLG S  NDTFLG=NUR DT,NVM=NVM +1,NVM(NVM )=$$FMTE^X LFDT(99999 99-NURDT," 2P"),NDTFL G=NURDT 
  58   17 
  59    
  60   . S NURTYP ="" F S NU RTYP=$O(NU RVIT(NURDT ,NURTYP))  Q:NURTYP=" " D 
  61   18 
  62    
  63   . . S NURI EF=0 F S N URIEF=$O(N URVIT(NURD T,NURTYP,N URIEF)) Q: NURIEF'>0  D 
  64   19 
  65    
  66   . . . S NU RDATA=NURV IT(NURDT,N URTYP,NURI EF) 
  67   20 
  68    
  69   . . . S NU RQUAL=$P(N URDATA,"^" ,10)_$S($P (NURDATA," ^",10)'="" :" ",1:"") _$P(NURDAT A,"^",11) 
  70   21 
  71    
  72   . . . S:NU RQUAL'=""  NURQUAL="- "_NURQUAL 
  73   22 
  74    
  75   . . . S NU RDATA(1)=$ P(NURDATA, "^",8)_$P( NURDATA,"^ ",12)_$S(N URTYP="WT" :" lb",NUR TYP="HT":"  in",1:"") _NURQUAL 
  76   23 
  77    
  78   . . . I '$ D(NURTYP(N URDT,NURTY P)) S NVM= NVM+1,NVM( NVM)=$E("  "_NURTYP_" :"_NURDATA (1),1,21), NURTYP(NUR DT,NURTYP) ="" 
  79   24 
  80    
  81   . . .E S N VM=NVM+1,N VM(NVM)="  "_$E(NURDA TA(1),1,20 ) 
  82   25 
  83    
  84   . . . I NU RTYP="WT"  S NURWT=$S ($P(NURDAT A,"^",13)> 0:+$P(NURD ATA,"^",13 ),1:0) 
  85   26 
  86    
  87   . . . I NU RTYP="HT"  S NURHT=$S ($P(NURDAT A,"^",13)> 0:$P(NURDA TA,"^",13) /100,1:0) 
  88   27 
  89    
  90   . . . Q 
  91   28 
  92    
  93   . . Q 
  94   29 
  95    
  96   . Q 
  97   30 
  98    
  99   I $G(NURWT )>0,$G(NUR HT)>0 S NU RBMI=$J(NU RWT/(NURHT *NURHT),0, 0),NURBMI= NURBMI_$S( NURBMI>27: "*",1:""), NVM=NVM+1, NVM(NVM)=" BMI: "_NUR BMI 
  100   31 
  101    
  102   Q 
  103   32 
  104    
  105   SORT(NORDE R) ;SORT B Y ROOM-BED /ALPHABETI CAL/BED 
  106   33 
  107    
  108   SORT1 W !, ?5,"1. by  room-bed", !,?5,"2. b y alphabet ical",!,?5 ,"3. by be d",!!,?5," Enter a nu mber: 1//  " R NORDER :DTIME I ' $T!(NORDER ["^") S NU RQUIT=1 Q  NORDER 
  109   34 
  110    
  111   I NORDER=" " S NORDER ="SORT1" Q  NORDER 
  112   35 
  113    
  114   I NORDER=1 !(NORDER=2 )!(NORDER= 3) S NORDE R="SORT"_N ORDER Q NO RDER 
  115   36 
  116    
  117   G SORT1 
  118   37 
  119    
  120   FITLINE(NL INE,NLEN,N GLOB) ; 
  121   38 
  122    
  123   N X,NL S X =NLINE,DIW R=NLEN,DIW F="",DIWL= 0 K ^UTILI TY($J) D ^ DIWP 
  124   39 
  125    
  126   S NL=0 F S  NL=$O(^UT ILITY($J," W",0,NL))  Q:NL'>0 S  NGLOB=NGLO B+1,NGLOB( NGLOB)=$S( NL>1:" ",1 :"")_^UTIL ITY($J,"W" ,0,NL,0) 
  127   40 
  128    
  129   K ^UTILITY ($J) 
  130   41 
  131    
  132   Q 

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.