3. EPMO Open Source Coordination Office Redaction File Detail Report

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

3.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 - NURCES0 - Memphis.docx Thu Sep 28 15:24:26 2017 UTC
2 OSCIF_ EPIP 2.0_NUR_4.0_45_August_2017.zip\NUR_4.0_45 Routines NUR_4.0_45 Routine - NURCES0 - Memphis.docx Thu Sep 28 22:04:54 2017 UTC

3.2 Comparison summary

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

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

3.4 Active regular expressions

No regular expressions were active.

3.5 Comparison detail

  1   Gold
  2   Local
  3   Code (Red:  Gold, Blu e: Local,  Black: Bot h)
  4   1 
  5    
  6   NURCES0 ;H IRMFO/YH,R M,FT,YH-EN D OF SHIFT  REPORT PA RT 1/1 ;6/ 25/97 14:3 5 
  7   2 
  8    
  9   ;;4.0;NURS ING SERVIC E;**2**;Ap r 25, 1997  
  10   3 
  11    
  12   EN1 ;132 C OLUMN FORM AT OF REPO RT 
  13   4 
  14    
  15   S NOPT=1,N URS132=1 
  16   5 
  17    
  18   START0 G:' $D(^DIC(21 3.9,1,"OFF ")) QUIT2  G:$P(^DIC( 213.9,1,"O FF"),"^",1 )=1 QUIT2 
  19   6 
  20    
  21   I '$D(^GMR D(126.95,1 ,1)) W !," The Nursin g shift pa rameters i n ^GMRD(12 6.95) must  be comple ted.",!,"P lease cont act the Nu rsing ADP  Coordinato r",! G QUI T2 
  22   7 
  23    
  24   S NURQUIT= 0 K DIR 
  25   8 
  26    
  27   S DIR("A") ="Please e nter the c haracter o f your cho ice: " 
  28   9 
  29    
  30   S DIR("A", 1)="Select  shift for  the repor t" 
  31   10 
  32    
  33   S DIR("A", 2)=" " 
  34   11 
  35    
  36   S DIR("A", 3)=" N - n ight" 
  37   12 
  38    
  39   S DIR("A", 4)=" D - d ay" 
  40   13 
  41    
  42   S DIR("A", 5)=" E - e vening" 
  43   14 
  44    
  45   S DIR("A", 6)=" " 
  46   15 
  47    
  48   S DIR(0)=" SMA^N:nigh t;D:day;E: evening" 
  49   16 
  50    
  51   D ^DIR K D IR I $D(DI RUT) G QUI T2 
  52   17 
  53    
  54   S NX=Y,GMR DAY=$P(^GM RD(126.95, 1,1),"^",2 ),GMREVE=$ P(^(1),"^" ,3),GMRNIT =$P(^(1)," ^") 
  55   18 
  56    
  57   I GMRDAY=" "!(GMREVE= "")!(GMRNI T="") W !, "The Nursi ng shift p arameters  in ^GMRD(1 26.95) mus t be compl eted.",!," Please con tact the N ursing ADP  Coordinat or",! G QU IT2 
  58   19 
  59    
  60   S GMRSTRT= $S(NX="N": DT,NX="D": DT_"."_GMR DAY,NX="E" :DT_"."_GM REVE,1:"")  G:GMRSTRT ="" QUIT S  GMRFIN=$S (NX="N":DT _"."_GMRDA Y,NX="D":D T_"."_GMRE VE,NX="E": DT_".2400" ,1:"") G:G MRFIN="" Q UIT 
  61   20 
  62    
  63   S:NX'="N"  GMRFIN=GMR FIN-0.0001  
  64   21 
  65    
  66   I NX="N",G MRNIT>2000  S X1=DT,X 2=-1 D C^% DTC K %DTC  S GMRSTRT =X_"."_GMR NIT 
  67   22 
  68    
  69   W ! D WARD PAT^NURCUT 0 S:NUREDB ="" NUROUT =1 G:NURQU IT QUIT S: "Pp"'[NURE DB NURORDR =$$SORT^NU RCES5("") 
  70   23 
  71    
  72   G:NURQUIT  QUIT D EN6 ^NURSUT0 G :NURQUIT Q UIT W:NOPT =1 !,"THIS  REPORT RE QUIRES AN  132 COLUMN  DEVICE -  LAND!" 
  73   24 
  74    
  75   W ! S ZTRT N="START^N URCES0",ZT DESC="NURS ING END-OF -SHIFT REP ORT" D EN7 ^NURSUT0 G :POP!($D(Z TSK)) QUIT  
  76   25 
  77    
  78   START ;  
  79    
  80   26 
  81   I $D(NPWAR D)*($D(NUR EDB))'=0 F  ZZ=1:1:NC OPY D BEG^ AMTJR358 W  @IOF 
  82   27 
  83    
  84   S GPACK=1, X="GMRYRP0 " X ^%ZOSF ("TEST") S :'$T GPACK =0 S GFH=1 ,X="FHWHEA " X ^%ZOSF ("TEST") S :'$T GFH=0  S $P(NURX ,"-",130)= "" D NOW^% DTC S NURN OW=%,Y=$E( %,1,12) X  ^DD("DD")  S NURDT=Y 
  85   28 
  86    
  87   S NURNOW(1 )=$$FMADD^ XLFDT(NURN OW,-1) 
  88   29 
  89    
  90   I $E(IOST) ="P",NCOPY >1 D 
  91   30 
  92    
  93   . F NURI=1 :1 Q:NURI> NCOPY D RE PORT W:NUR I<>
  94   31 
  95    
  96   . Q 
  97   32 
  98    
  99   E D REPORT  
  100   33 
  101    
  102   QUIT ; KIL L LOCAL VA RIABLES 
  103   34 
  104    
  105   D CLOSE^NU RSUT1 K NU RNOW,NUROR DR 
  106   35 
  107    
  108   QUIT2 K ^T MP($J) D K VAR^VADPT, ^NURCKILL  K NURMDSW 
  109   36 
  110    
  111   Q 
  112   37 
  113    
  114   REPORT U I O S (NURSW 1,NURPAGE) =0 K ^TMP( $J),^TMP(" DIQ1",$J) 
  115   38 
  116    
  117   D ^NURCAS2  
  118   39 
  119    
  120   I '$D(^TMP ($J,"NURCE N")) D HEA DER^NURCES 2 W $C(7), !,"NO PATI ENTS IN SE LECTED ROO M(S) ON "_ NPWARD Q 
  121   40 
  122    
  123   PRINT ;PRI NT ROUTINE  
  124   41 
  125    
  126   I "Pp"[NUR EDB S (NUR WARD,NPWAR D)=+$P(^NU RSF(214,+D FN,0),"^", 3) D:NPWAR D>0 EN6^NU RSAUTL S N URORDR="SO RT1" 
  127   42 
  128    
  129   D @NURORDR  
  130   43 
  131    
  132   Q 
  133   44 
  134    
  135   SORT1 ; 
  136   45 
  137    
  138   S NBED=""  F S NBED=$ O(^TMP($J, "NURCEN",N BED)) Q:NB ED=""!(NUR QUIT) I NB ED'="GMRY"  S NBED(0) ="" F S NB ED(0)=$O(^ TMP($J,"NU RCEN",NBED ,NBED(0)))  Q:NBED(0) =""!(NURQU IT) D 
  139   46 
  140    
  141   . D:'NURSW 1 HEADER^N URCES2 S N 1="" F S N 1=$O(^TMP( $J,"NURCEN ",NBED,NBE D(0),N1))  Q:N1=""!(N URQUIT) K  NPT,NSS,NA DM,NCL,NPR  S NDATA=^ (N1),DFN=$ P(NDATA,"^ "),NSSN=$P (NDATA,"^" ,2) D PRIN T1^NURCES0 1 K ^TMP($ J,"GMRY") 
  142   47 
  143    
  144   Q 
  145   48 
  146    
  147   EN2 ;80 CO LUMN FORMA T REPORT 
  148   49 
  149    
  150   S NOPT=2 K  NURS132 G  START0 
  151   50 
  152    
  153   ; 
  154   51 
  155    
  156   SORT2 ;RES ORT BY PAT IENT NAME 
  157   52 
  158    
  159   S NBED=""  F S NBED=$ O(^TMP($J, "NURCEN",N BED)) Q:NB ED="" D 
  160   53 
  161    
  162   . S NBED(0 )="" F S N BED(0)=$O( ^TMP($J,"N URCEN",NBE D,NBED(0)) ) Q:NBED(0 )="" D 
  163   54 
  164    
  165   . . S N1=" " F S N1=$ O(^TMP($J, "NURCEN",N BED,NBED(0 ),N1)) Q:N 1="" S ^TM P($J,"NSOR T",N1,$P(N BED,"-"),N BED(0))=^T MP($J,"NUR CEN",NBED, NBED(0),N1 ) 
  166   55 
  167    
  168   S N1="" F  S N1=$O(^T MP($J,"NSO RT",N1)) Q :N1=""!(NU RQUIT) I N 1'="GMRY"  S NBED=""  F S NBED=$ O(^TMP($J, "NSORT",N1 ,NBED)) Q: NBED=""!(N URQUIT) D 
  169   56 
  170    
  171   . D:'NURSW 1 HEADER^N URCES2 Q:N URQUIT S N BED(0)=""  F S NBED(0 )=$O(^TMP( $J,"NSORT" ,N1,NBED,N BED(0))) Q :NBED(0)=" "!(NURQUIT ) K NPT,NS S,NADM,NCL ,NPR S NDA TA=^(NBED( 0)),DFN=$P (NDATA,"^" ),NSSN=$P( NDATA,"^", 2) D PRINT 1^NURCES01  K ^TMP($J ,"GMRY") 
  172   57 
  173    
  174   Q 
  175   58 
  176    
  177   SORT3 ;RES ORT BY BED  ORDER 
  178   59 
  179    
  180   S NBED=""  F S NBED=$ O(^TMP($J, "NURCEN",N BED)) Q:NB ED="" D 
  181   60 
  182    
  183   . S NBED(0 )="" F S N BED(0)=$O( ^TMP($J,"N URCEN",NBE D,NBED(0)) ) Q:NBED(0 )="" D 
  184   61 
  185    
  186   . . S N1=" " F S N1=$ O(^TMP($J, "NURCEN",N BED,NBED(0 ),N1)) Q:N 1="" S ^TM P($J,"NSOR T",NBED(0) ,$P(NBED," -"),N1)=^T MP($J,"NUR CEN",NBED, NBED(0),N1 ) 
  187   62 
  188    
  189   S NBED(0)= "" F S NBE D(0)=$O(^T MP($J,"NSO RT",NBED(0 ))) Q:NBED (0)=""!(NU RQUIT) I N BED(0)'="G MRY" S NBE D="" F S N BED=$O(^TM P($J,"NSOR T",NBED(0) ,NBED)) Q: NBED=""!(N URQUIT) D 
  190   63 
  191    
  192   . D:'NURSW 1 HEADER^N URCES2 Q:N URQUIT S N 1="" F S N 1=$O(^TMP( $J,"NSORT" ,NBED(0),N BED,N1)) Q :N1=""!(NU RQUIT) K N PT,NSS,NAD M,NCL,NPR  S NDATA=^( N1),DFN=$P (NDATA,"^" ),NSSN=$P( NDATA,"^", 2) D PRINT 1^NURCES01  K ^TMP($J ,"GMRY") 
  193   64 
  194    
  195   Q 

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