5. EPMO Open Source Coordination Office Redaction File Detail Report

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.

5.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 - NURCES01 - SFC.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 - SFC.docx Thu Sep 28 22:05:50 2017 UTC

5.2 Comparison summary

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

5.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

5.4 Active regular expressions

No regular expressions were active.

5.5 Comparison detail

  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    
  8   1 
  9   NURCES01 ; HIRMFO/YH- END OF SHI FT REPORT  PART 1/2 ; 04/03/2003  08:40 
  10   2 
  11    
  12   ;;4.0;NURS ING SERVIC E;;Apr 25,  1997 
  13    
  14   3 
  15   ; SFVAMC/D LS 6/18/98  Modified  for additi onal $Y ch eck to pre vent parti al 
  16    
  17   4 
  18   ; display 
  19   5 
  20    
  21   PRINT1 ; 
  22    
  23   6 
  24   ;SFVAMC/DA D/4-4-2002 /Setup for  printing  empty room -beds ***B EGIN*** 
  25    
  26   7 
  27   I (DFN'>0) &("Uu"[NUR EDB) D Q 
  28    
  29   8 
  30   . W NBED," -",NBED(0) ," *** Emp ty ***",?2 5,"|",?42, "|",?46,"| ",?68,"|" 
  31    
  32   9 
  33   . W !,"--- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------",! 
  34    
  35   10 
  36   . Q 
  37    
  38   11 
  39   ;SFVAMC/DA D/4-4-2002 /Setup for  printing  empty room -beds ***E ND*** 
  40   12 
  41    
  42   D ^NURSAPC H 
  43   13 
  44    
  45   S GMROUT=0  I GPACK D  SETARRY^N URCES2 
  46   14 
  47    
  48   I GFH D DI ET^NURCES4  
  49   15 
  50    
  51   D EN6^NURS CUTL S NUR SCLAS("CL" )=1 D EN2^ NURSCUTL 
  52   16 
  53    
  54   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:"") 
  55   17 
  56    
  57   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) ,"^")) 
  58   18 
  59    
  60   D PTDATA^N URCES2,PTP ROB^NURCES 1 Q:NURQUI T 
  61   19 
  62    
  63   I GPACK,$D (NURIV),NU RIV>0 S N= 0 F S N=$O (NURIV(N))  Q:N'>0 D 
  64   20 
  65    
  66   . D FITLIN E^NURCES5( NURIV(N),6 2,.NPR) 
  67   21 
  68    
  69   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) 
  70   22 
  71    
  72   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  
  73    
  74   22 
  75   ;SFVAMC/DA D/10-21-20 02/Add che ck-off ite ms ***BEGI N*** 
  76    
  77   23 
  78   N ARHDCHEK ,ARHDNODE, ARHDNPR,AR HDPIEC 
  79    
  80   24 
  81   S ARHDCHEK (1)="FALL^ I&O ^SL ^P ICC^MID ^A SPR" 
  82    
  83   25 
  84   S ARHDNODE =0 
  85    
  86   26 
  87   F S ARHDNO DE=$O(ARHD CHEK(ARHDN ODE)) Q:AR HDNODE'>0  D 
  88    
  89   27 
  90   . S ARHDNP R="" 
  91    
  92   28 
  93   . F ARHDPI EC=1:1:$L( ARHDCHEK(A RHDNODE),U ) D 
  94    
  95   29 
  96   .. S ARHDN PR=ARHDNPR _" [ ]"_$P (ARHDCHEK( ARHDNODE), U,ARHDPIEC ) 
  97    
  98   30 
  99   .. Q 
  100    
  101   31 
  102   . S NPR=NP R+1 
  103    
  104   32 
  105   . S NPR(NP R)=ARHDNPR  
  106    
  107   33 
  108   . Q 
  109    
  110   34 
  111   ;SFVAMC/DA D/10-21-20 02/Add che ck-off ite ms ****END **** 
  112    
  113   35 
  114   ; SFVAMC/D LS 6/18/98  Change $Y  check to  NN(1) to p revent par tial displ ay 
  115    
  116   36 
  117   ;K NURIV,N URTUBE,GLE FT,GSITE,G SAVEH S NN (1)=2 S:NP R>2&(NOPT= 1) NN(1)=N PR S:NADM> NN(1) NN(1 )=NADM S:N PT>NN(1) N N(1)=NPT S :NVM>NN(1)  NN(1)=NVM  F NN=1:1: NN(1) D:$Y >(IOSL-8)  HEADER^NUR CES2 Q:NUR QUIT D PRI NT2^NURCES 2 Q:NURQUI T 
  118    
  119   37 
  120   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-(NN( 1)+3)) HEA DER^NURCES 2 Q:NURQUI T D PRINT2 ^NURCES2 Q :NURQUIT 
  121   38 
  122    
  123   I NOPT=2 D  PART2 
  124   39 
  125    
  126   Q:NURQUIT  W $S(NOPT= 1:NURX,NOP T=2:$E(NUR X,1,79),1: NURX),! 
  127   40 
  128    
  129   Q 
  130   41 
  131    
  132   PART2 ; 
  133   42 
  134    
  135   W !,?10,"P atient Pro blems:",! 
  136   43 
  137    
  138   I NPR>0 F  NN=1:1:NPR  W ?12,NPR (NN),! D:$ Y>(IOSL-8)  HEADER^NU RCES2 Q:NU RQUIT 
  139   44 
  140    
  141   I NPR=0 W  ?49,"|",?6 4,"|",! D: $Y>(IOSL-8 ) HEADER^N URCES2 
  142   45 
  143    
  144   Q 

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