273. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:16 AM Central Standard 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.

273.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHR9106A.m Mon Nov 5 16:38:50 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHR9106A.m Mon Nov 5 17:55:02 2018 UTC

273.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 226
Changed 2 4
Inserted 0 0
Removed 0 0

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

273.4 Active regular expressions

No regular expressions were active.

273.5 Comparison detail

  1   CHR9106A ; HAC/DRW;Cl aims Comme nt for Cat amaran Vac cine Claim s
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;  GE NERATED ON  JUNE 03,  2013.
  3    ;;V1.0;CH AMPVA SYST EM;;JUNE 2 5, 2015
  4    ;;This ro utine read s in a .tx t file fro m FS3BIG a nd stores  the conten ts in a 
  5    ;;tempora ry global  ^CHMZHOLD( "CLAIM_COM MENT".  DR W - 06/03/ 13.
  6    ;DEF01655 4 REPLACE  DECNET WIT H FTP      06/25/2015   DRW 
  7    D INIT
  8    D PROCFIL E,GENCOMM
  9    D ENDC 
  10    Q
  11   PROCFILE ;
  12    ;READS .T XT FILE FR OM FS3BIG( FLAT FILE)  INTO TEMP  HOLDING A REA
  13    U 0 W !!, "Reading i n comment  file...",!
  14    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CLMCOMNT." _ENVIR_"]" _FNAME
  15    ;O CHIO:" R":5
  16    ;Q:$T=0     ;FILE OP EN CHECK 1 =OPEN/0=NO T OPEN
  17    N FOLDER, CNTR
  18    S CHIO=FN AME,FOLDER =""
  19    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  20    S ENVIR=U CI 
  21    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" 
  22    S FLDER=" /FS3BIG/CO DEUPDT/CLM COMNT/"_EN VIR 
  23    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"
  24    S CHIO=FO LDER_CHIO
  25    D FTPFILE ^CHTFLIB9( CHIO," DNS     fs3. DNS             ",FLDER,"G ET") 
  26    S POP=0,C NTR=0
  27    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D
  28    .S POP=$$ OPENFIRD^C HTFLIB9(.C HIO,"CHIO" )
  29    .Q
  30    I 'POP G  END1  
  31    S CTR=0
  32    S CTR1=0
  33    F  U CHIO  R REC G:R EC="CHVXXX XXXX" END1  D      ;; CHVXXXXXXX  marks End  Of File
  34    .Q:$A(REC )=26   ;ER RONEOUS DA TA IN FILE  CHECK 
  35    .S CTR=CT R+1,CTR1=C TR1+1
  36    .S ^CHMZH OLD("CLAIM _COMMENT", CTR)=REC
  37   END1;
  38       ;C CHI O
  39       D CLOS EF^CHTFLIB 9(CHIO,"CH IO")
  40       X "D $ SYSTEM.Pro cess.SetZE OF(0)"                  ;;DEF016 554 CLOSE  MODIFIED 0 7/30/2015
  41       S X=$Z F(-1,"DELE TE"_CHIO_" ;*") 
  42       W !!," Claims add ed to temp orary glob al with th is number   "
  43    W !,"of c omments "_ CTR1
  44    Q
  45   GENCOMM ;  READS THE  TEMP FILE  AND POPULA TES THE CO MMENT GLOB AL USING F ILE MAN CO MMANDS
  46    S CHDUZ=1   ;SET DUZ  TO 1 FOR  "ZZCOMPUTE R,USER"
  47    S X="NOW" ,%DT="TS"  D ^%DT S C HDT=Y
  48    K CHINFIL E,CL,CHCOM I,CHCOMNT, DA
  49    S CTR=0 F   S CTR=$O (^CHMZHOLD ("CLAIM_CO MMENT",CTR )) Q:'CTR   D
  50    .S CL=$P( ^CHMZHOLD( "CLAIM_COM MENT",CTR) ,"^",1) 
  51    .S CL=$E( CL,4,10) Q :CL=""            ;TH E ACTUAL C LAIM NUMBE R STARTS I N THE FOUR TH POSITIO N OF THE C LAIM 
  52    .S CHCOMN T=$P(^CHMZ HOLD("CLAI M_COMMENT" ,CTR),"^", 2) ;USE TH E COMMENT  PROVIDED I N THE FILE
  53    .S CHCOMI =0,CHCOMI= $O(^CHMCLC OM("B",CL, CHCOMI))
  54    .K DA,Y 
  55    .I '$G(CH COMI) D  Q :$P(Y,"^", 3)'=1    ; ;if claim  does not e xist, gene rate the c laim in th e global
  56    ..S DIC=" ^CHMCLCOM( ",DIC(0)=" LX",X=CL K  DD,DO D F ILE^DICN K  DIC,DR,X
  57    ..Q:$P(Y, "^",3)'=1
  58    ..S DA=+Y
  59    ..S CHCOM I=DA 
  60    .K DA,Y
  61    .S DA(1)= CHCOMI
  62    .S DIC="^ CHMCLCOM(" _DA(1)_",1 01,",DLAYG O=741000.8 ,DIC(0)="M L",X=CHDT  D ^DIC
  63    .I $P(Y," ^",3)'=1 K  DIC Q
  64    .S DIE=DI C,DA=+Y K  DIC
  65    .S DR=".0 2////^S X= CHDUZ" D ^ DIE K DIE, DR
  66    .S ^CHMCL COM(CHCOMI ,101,DA,1, 0)="^^1^1^ "_$P(CHDT, ".",1)_"^"
  67    .S ^CHMCL COM(CHCOMI ,101,DA,1, 1,0)=CHCOM NT
  68    .K X,Y,DA
  69    Q
  70    ;
  71   INIT ;INIT ILIZING VA RIABLES      
  72    D NOW^%DT C S CHFLDT =%  ;FILE  LOAD DATE
  73    X "D $SYS TEM.Proces s.SetZEOF( 1)"                              ;;DEF01655 4 OPEN AND  CLOSE MOD IFIED  07/ 30/2015
  74    S:'$D(DUZ ) DUZ=1
  75    S CTR=0
  76    K FNAME,^ CHMZHOLD(" CLAIM_COMM ENT") 
  77    ;DISPLAY  MENU TITLE
  78    W !,@IOF                         ;;force t itle to to p of scree n
  79    S TITLE=" CLAIM COMM ENT MODIFI CATIONS"
  80    W ?(39-($ L(TITLE)/2 )),TITLE,! !!
  81    ;SET ENVI RONMENT
  82    S ENVIR=$ $ENVIR^CHT FLIB
  83    S DIR("B" )=ENVIR
  84    S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V"
  85    S DIR("L" ,1)="Selec t one of t he followi ng environ ments"
  86    S DIR("L" ,2)=""
  87    S DIR("L" ,3)="   1   LIVE"
  88    S DIR("L" ,4)="   2   TRAIN"
  89    S DIR("L" ,5)="   3   TEST"
  90    S DIR("L" ,6)="   4   DEV"
  91    S DIR("L" ,7)=""
  92    S DIR("L" )="   ^    QUIT"
  93    D ^DIR K  DIR
  94    Q:$D(DUOU T)
  95    Q:Y=""
  96    Q:Y="^"!( Y="")
  97    S ENVIR=Y (0)
  98    K DIR
  99    W !
  100    ;ASK for  file name  of the dat a load LOA D
  101    S DIR(0)= "F^3:50"
  102    S DIR("A" )="Enter n ame of fil e (please  include .t xt)" D ^DI R K DIR
  103    Q:$D(DUOU T)
  104    Q:Y="^"!( Y="")
  105    S FNAME=Y  K DIR
  106    K ^CHMZHO LD("CLAIM_ COMMENT") 
  107    Q:$D(DUOU T)
  108    Q
  109   ENDC ;CLOS ING FILE       
  110    K CTR,CTR 1,CHINFILE ,CL,CHCOMI ,CHCOMNT
  111    W !!,"ALL  COMMENTS  HAVE BEEN  ADDED TO T HE CLAIM/P DI COMMENT S FILE "
  112    W !
  113    Q
  114     
  115