7. EPMO Open Source Coordination Office Redaction File Detail Report

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

7.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 - NURCES2 - Gainesville.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 - NURCES2 - Gainesville.docx Thu Sep 28 22:06:57 2017 UTC

7.2 Comparison summary

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

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

7.4 Active regular expressions

No regular expressions were active.

7.5 Comparison detail

  1   Gold
  2   Local
  3   Code (Red:  Gold, Blu e: Local,  Black: Bot h)
  4   1 
  5    
  6   NURCES2 ;H IRMFO/YH-E ND OF SHIF T REPORT P ART 3 - IT EMIZED I/O  DATA ;7/1 5/97 
  7    
  8   1 
  9   NURCES2 ;H IRMFO/YH-E ND OF SHIF T REPORT P ART 3 - IT EMIZED I/O  DATA ;7/1 5/97 [6/5/ 08 3:39pm]  
  10   2 
  11    
  12   ;;4.0;NURS ING SERVIC E;**2,24** ;Apr 25, 1 997 
  13    
  14   3 
  15   ;***LOCAL  MOD - NFSG /PB - 6/08  **** 
  16    
  17   4 
  18   ;LOCAL MOD  TO DISPLA Y ONLY LAS T NAME AND  LAST 4 OF  SSN 
  19   5 
  20    
  21   SETARRY ;S ET DATA IN  ^TMP($J," GMRY", FOR  EACH PATI ENT 
  22   6 
  23    
  24   S (GDCIV,G Q,GQT,GMRO UT)=0,GRPT =10 I '$D( ^GMR(126," B",DFN)) Q  
  25   7 
  26    
  27   S GSAVEH=0 ,DA(1)=$O( ^GMR(126," B",DFN,0))  K ^TMP($J ,"GMRY") 
  28   8 
  29    
  30   F II="IN", "OUT" D SA VE^GMRYRP2  
  31   9 
  32    
  33   D SAVEIV^G MRYRP2,IVM  
  34   10 
  35    
  36   D REPORT1^ GMRYRP3 S  NURTLTI=$S ('$D(GTOTL I):"",1:GT OTLI),NURT LTO=$S('$D (GTOTLO):" ",1:GTOTLO ) D SETIV  K GRPT,GSA VE Q 
  37   11 
  38    
  39   SETIV ;SET  IV TEXT 
  40   12 
  41    
  42   D IV^NURCE S3,IVTUBE 
  43   13 
  44    
  45   Q 
  46   14 
  47    
  48   IVM ;SET I V MAINTENA NCE IN ^TM P($J,"GMRY " 
  49   15 
  50    
  51   Q:'$D(^GMR (126,DFN," IVM","B"))  
  52   16 
  53    
  54   S GSITE=""  F S GSITE =$O(^GMR(1 26,DA(1)," IVM","B",G SITE)) Q:G SITE="" S  DA=$O(^(GS ITE,0)) Q: DA'>0 D SC ARE 
  55   17 
  56    
  57   Q 
  58   18 
  59    
  60   SCARE ; 
  61   19 
  62    
  63   Q:'$D(^GMR (126,DA(1) ,"IVM",DA, 1,"B")) 
  64   20 
  65    
  66   S GSTRT=0  F S GSTRT= $O(^GMR(12 6,DA(1),"I VM",DA,1," B",GSTRT))  Q:GSTRT'> 0 S GMRIND T=GSTRT,GD AY=0 D NEX T^GMRYRP1  I '(GMRIND TGMRFIN))  D SETSIFT^ GMRYRP2 D 
  67   21 
  68    
  69   . S GDA=0  F S GDA=$O (^GMR(126, DA(1),"IVM ",DA,1,"B" ,GSTRT,GDA )) Q:GDA'> 0 D SETUT 
  70   22 
  71    
  72   Q 
  73   23 
  74    
  75   SETUT ; 
  76   24 
  77    
  78   S GSITE(GS ITE)="" D  FINDCA^GMR YCATH(.GSI TE) 
  79   25 
  80    
  81   S GPORT=+$ P($G(^GMR( 126,DA(1), "IVM",DA,1 ,GDA,0))," ^",7),GPOR T=$S($D(^G MR(126,DFN ,"IV",GPOR T,3)):$P(^ (3),"^"),1 :"") 
  82   26 
  83    
  84   S ^TMP($J, "GMRY",$P( GMRINDT,". "),GSHIFT, "IV",GMRIN DT,GSTRT," Z",GDA,1)= $P(^GMR(12 6,DA(1),"I VM",DA,1,G DA,0),"^", 1,5)_"^"_$ P(^(0),"^" ,6)_"^"_GS ITE_"^"_GS ITE(GSITE) _"^"_GPORT  Q 
  85   27 
  86    
  87   IVTUBE ;OB TAIN LAST  TUBING CHA NGED 
  88   28 
  89    
  90   D SELSITE^ GMRYMNT Q: '$D(GMRXY)  K NURTUBE  S N=0 F S  N=$O(GMRX Y(N)) Q:N' >0 D TUBIN G 
  91   29 
  92    
  93   K GDA,GYES ,GCT,GDATA ,GDT,GIVDT ,GMRXY,GSI TE,GST Q 
  94   30 
  95    
  96   TUBING S G SITE="",NU RTUBE=0 F  S GSITE=$O (GMRXY(N,G SITE)) Q:G SITE="" I  GCT(GSITE) >0 S GYES= 0,GDA=$S(' $D(^GMR(12 6,DFN,"IVM ","B",GSIT E)):"",1:$ O(^GMR(126 ,DFN,"IVM" ,"B",GSITE ,0))) D:GD A>0 CHANGE D 
  97   31 
  98    
  99   Q 
  100   32 
  101    
  102   CHANGED ; 
  103   33 
  104    
  105   S GDA(1)=0  F S GDA(1 )=$O(^GMR( 126,DFN,"I VM",GDA,1, "C",GDA(1) )) Q:GDA(1 )'>0!GYES  S GDA(2)=0  F S GDA(2 )=$O(^GMR( 126,DFN,"I VM",GDA,1, "C",GDA(1) ,GDA(2)))  Q:GDA(2)'> 0!GYES D C HANGED1 
  106   34 
  107    
  108   Q 
  109   35 
  110    
  111   CHANGED1 ;  
  112   36 
  113    
  114   I $D(^GMR( 126,DFN,"I VM",GDA,1, GDA(2),0)) ,$P(^(0)," ^",3)["Y"  S NURTUBE( GSITE)=$P( ^(0),"^"), GYES=1,NUR TUBE=NURTU BE+1 
  115   37 
  116    
  117   Q 
  118   38 
  119    
  120   HEADER ; P RINTING OF  HEADING R OUTINE 
  121   39 
  122    
  123   I $E(IOST) ="C",NURSW 1 W !,$C(7 ),"Enter t o continue  " R X:DTI ME I '$T!( X="^") S N URQUIT=1 Q  
  124   40 
  125    
  126   S Y=(GMRFI N+.0001)_" 00" 
  127   41 
  128    
  129   S NURPAGE= NURPAGE+1, NURSW1=1 W :NURPAGE>1  @IOF 
  130   42 
  131    
  132   W !,NURDT, ?20,"END-O F-SHIFT RE PORT",?40, "UNIT: ",N PWARD W ?$ S(NOPT=1:9 0,NOPT=2:5 5,1:55),"T OUR: "_+$E ($P(GMRSTR T,".",2),1 ,2)_":"_$E ($P(GMRSTR T,".",2)_" 00",3,4)_" -"_+$E($P( Y,".",2),1 ,2)_":",$E ($P(Y,".", 2),3,4) 
  133   43 
  134    
  135   W ?$S(NOPT =1:118,NOP T=2:72,1:7 2),"PAGE:" ,NURPAGE 
  136   44 
  137    
  138   W !,"ROOM- BED/NAME/S SN/",?25," |ADMITTING  DX/ |PT | LATEST VIT ALS" W:NOP T=1 ?68,"| PATIENT PR OBLEMS" 
  139   45 
  140    
  141   W !,"SPECI ALTY/DIET/ ALLERGIES" ,?25,"|DAT E/MDs",?42 ,"|CAT|" W :NOPT=1 ?6 8,"|",!,NU RX,! W:NOP T=2 !,$E(N URX,1,79), ! 
  142   46 
  143    
  144   Q 
  145   47 
  146    
  147   PTDATA ; 
  148   48 
  149    
  150   S NPT(1)=$ S($P(VAIN( 5),"^")'=" ":$P(VAIN( 5),"^"),1: "") 
  151   49 
  152    
  153   S NPT(2)=$ S(N1'=" BL ANK":$E(N1 ,1,17),1:" "),NPT(3)= NSSN,NPT=3  D FITLINE ^NURCES5(" Specialty:  "_$P($G(V AIN(3)),"^ ",2),25,.N PT) 
  154    
  155   49 
  156   ;S NPT(2)= $S(N1'=" B LANK":$E(N 1,1,17),1: ""),NPT(3) =NSSN,NPT= 3 D FITLIN E^NURCES5( "Specialty : "_$P($G( VAIN(3))," ^",2),25,. NPT) 
  157    
  158   50 
  159   ;***LOCAL  MOD BELOW* ** 
  160    
  161   51 
  162   S NPT(2)=$ S(N1'=" BL ANK":$P(N1 ,",",1),1: ""),NPT(3) =$E(NSSN,8 ,11),NPT=3  D FITLINE ^NURCES5(" Specialty:  "_$P($G(V AIN(3)),"^ ",2),25,.N PT) 
  163    
  164   52 
  165   ;***END MO D*** 
  166   53 
  167    
  168   I GFH D FI TLINE^NURC ES5(NDIET, 25,.NPT) 
  169   54 
  170    
  171   D ALLERGY^ NURCES4 
  172   55 
  173    
  174   S NCL(1)=$ S($D(NURCA T):NURCAT, 1:"") S NA DM=0 D INP ^VADPT D F ITLINE^NUR CES5(VAIN( 9),16,.NAD M) 
  175   56 
  176    
  177   S Y=$P(VAI N(7),"^")  S:Y'="" NA DM=NADM+1, NADM(NADM) =$E(Y,4,5) _"/"_$E(Y, 6,7)_"/"_$ E(Y,2,3) S  Y=$P(Y,". ",2) S:Y'= "" NADM(NA DM)=NADM(N ADM)_"@"_$ E(Y_"00",1 ,2) S Y=$E (Y,3,4) S: Y'="" NADM (NADM)=NAD M(NADM)_": "_$E(Y_"0" ,1,2) 
  178   57 
  179    
  180   S NADM=NAD M+1,NADM(N ADM)=$P(VA DM(4),"^") _" yrs. "_ $S($P(VADM (5),"^",2) '="":$P(VA DM(5),"^", 2),1:" ") 
  181   58 
  182    
  183   I $P($G(VA IN(11)),"^ ",2)'="" D  K G 
  184   59 
  185    
  186   . S G=0,NA DM=NADM+1, NADM(NADM) =$P(VAIN(1 1),"^",2), G=$O(^VA(2 00,"B",NAD M(NADM),0) ),NADM=NAD M+1,NADM(N ADM)=" (A) " 
  187   60 
  188    
  189   . I G>0,$D (^VA(200,G ,.13)) S G (1)=$P($G( ^(.13)),"^ ",7),G(2)= $P($G(^(.1 3)),"^",8)  D 
  190   61 
  191    
  192   . . I G(1) '="" S NAD M=NADM+1,N ADM(NADM)= G(1) D 
  193   62 
  194    
  195   . . . I $L (G(1))>11  S NADM=NAD M+1,NADM(N ADM)=" (V) " 
  196   63 
  197    
  198   . . . E S  NADM(NADM) =NADM(NADM )_" (V)" 
  199   64 
  200    
  201   . . I G(2) '="" S NAD M=NADM+1,N ADM(NADM)= G(2) D 
  202   65 
  203    
  204   . . . I $L (G(2))>11  S NADM=NAD M+1,NADM(N ADM)=" (D) " 
  205   66 
  206    
  207   . . . E S  NADM(NADM) =NADM(NADM )_" (D)" 
  208   67 
  209    
  210   I $P($G(VA IN(2)),"^" ,2)'="" D  K G 
  211   68 
  212    
  213   . S G=0,NA DM=NADM+1, NADM(NADM) =$P(VAIN(2 ),"^",2),G =$O(^VA(20 0,"B",NADM (NADM),0)) ,NADM=NADM +1,NADM(NA DM)=" (P)"  
  214   69 
  215    
  216   . I G>0,$D (^VA(200,G ,.13)) S G (1)=$P($G( ^(.13)),"^ ",7),G(2)= $P($G(^(.1 3)),"^",8)  D 
  217   70 
  218    
  219   . . I G(1) '="" S NAD M=NADM+1,N ADM(NADM)= G(1) D 
  220   71 
  221    
  222   . . . I $L (G(1))>11  S NADM=NAD M+1,NADM(N ADM)=" (V) " 
  223   72 
  224    
  225   . . . E S  NADM(NADM) =NADM(NADM )_" (V)" 
  226   73 
  227    
  228   . . I G(2) '="" S NAD M=NADM+1,N ADM(NADM)= G(2) D 
  229   74 
  230    
  231   . . . I $L (G(2))>11  S NADM=NAD M+1,NADM(N ADM)=" (D) " 
  232   75 
  233    
  234   . . . E S  NADM(NADM) =NADM(NADM )_" (D)" 
  235   76 
  236    
  237   S NVM(1)=" " D VM^NUR CES1 I GPA CK,$D(NURT LTI) S:NUR TLTI>0 NAD M=NADM+1,N ADM(NADM)= "Intake: " _NURTLTI 
  238   77 
  239    
  240   I GPACK,$D (NURTLTO)  S:NURTLTO> 0 NADM=NAD M+1,NADM(N ADM)="Outp ut: "_NURT LTO 
  241   78 
  242    
  243   K NURTLTI, NURTLTO Q 
  244   79 
  245    
  246   PRINT2 I $ D(NPT(NN)) ,(NPT(NN)' ="") W $E( NPT(NN),1, 25) 
  247   80 
  248    
  249   W ?25,"|"  I $D(NADM( NN)),(NADM (NN)'="")  W $E(NADM( NN),1,16) 
  250   81 
  251    
  252   W ?42,"|"  I $D(NCL(N N)),(NCL(N N)'="") W  NCL(NN) 
  253   82 
  254    
  255   W ?46,"|"  I $D(NVM(N N)),(NVM(N N)'="") W  NVM(NN) 
  256   83 
  257    
  258   I NOPT=1 W  ?68,"|" I  $D(NPR(NN )),(NPR(NN )'="") W N PR(NN) 
  259   84 
  260    
  261   W ! Q 

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