151. EPMO Open Source Coordination Office Redaction File Detail Report

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

151.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKSSR.m Mon Nov 5 16:44:08 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKSSR.m Mon Nov 5 17:49:30 2018 UTC

151.2 Comparison summary

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

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

151.4 Active regular expressions

No regular expressions were active.

151.5 Comparison detail

  1   CHMKSSR ;H AC/AHJ;INP UT HOLD FI LE LIST BE NE'S WITH  SAME NAMES
  2    ;;V1.0
  3    ;DEV01289 3 1/20/201 4 DGC - MO DIFY DECNE T WRITE -  ADDED CLOS E TO FIO
  4    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  5    ;
  6    ; ONLY BE NES WITH M BM AND USE  1ST TWO C HARACTERS  OF FIRST N AME
  7   CHAMPVA ;
  8    S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0
  9    S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES18CNT, NO18CNT)=0
  10    S PG=1
  11    S DFN=0,U ="^"
  12    S (SAVFIR ST,SAVLAST ,BNAME)=""
  13    S XX=99
  14    S X=0
  15    S (PAGECN T,I,J,K,II )=0
  16    S (STATE, LINECNT)=0
  17    S T=$C(9)
  18    S U="^"
  19    S JJ=0
  20    S SW=0
  21    S BLAST=0
  22    S MCNT=0
  23   A1 ;
  24    ;FIND TOD AYS DATE 
  25    ;S X1=$E( RUNTIME,1, 7) S X2=-3 1 D C^%DTC  S STRDAT= X
  26    D NOW^%DT C S RUNTIM E=%
  27    S Y=$E(RU NTIME,1,7)
  28    S CHDATE= Y
  29    ;  CHDATE  = Todays  Date
  30    S MIN=$E( RUNTIME,9, 10)
  31    S SEC=$E( RUNTIME,11 ,12)
  32    S RCLOCK= MIN_":"_SE C
  33    S TODAY=C HDATE
  34    ;W !,"MUS T USE WIDE  PRINTER"
  35    ;Q
  36    ;K %IS,IO ("Q") D ^% ZIS Q:POP
  37    ;G:$D(IO( "Q"))!(IO' =IO(0)) QU EUEIT ;
  38   START1 ;
  39    ;S FIO="H ACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]MBM_BENE_ SPONSOR_DU PLICATE_NA MES.TXT"
  40    ;DGC 1/20 /2014 DEV0 12893 - BE GIN
  41    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]MBM_BENE_ SPONSOR_DU PLICATE_NA MES.TXT"
  42    ;LO FIO:" NW" C FIO: "D"
  43    ;O FIO:"N WV"
  44    X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1)
  45    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  46    S FILENM2 =MBM_BENE_ SPONSOR_DU PLICATE_NA MES.TXT
  47    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES)"_FILEN M2
  48    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  49           I  '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93 ;DGC 1/ 20/2014 DE V012893 -  END
  50    D HEAD1
  51    S ALAST=0
  52    S BLAST=0
  53    S ALAST=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST) ) G:ALAST= "" END
  54    S AFIRST= 0
  55   START2 ;
  56    S AFIRST= $O(^CHMZHO LD("ENC002 042-NAME-T WOI",ALAST ,AFIRST))  G:AFIRST=" " START1
  57    S ACNT1=0
  58   START3 ;
  59    S ACNT1=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1)) G:ACN T1="" STAR T2
  60    S ACNT2=0
  61   START4 ;
  62    S ACNT2=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1,ACNT2))  G:ACNT2=" " START3
  63    S DATAA=^ CHMZHOLD(" ENC002042- NAME-TWOI" ,ALAST,AFI RST,ACNT1, ACNT2)
  64    S JJ=JJ+1
  65    S SAVLAST (JJ)=ALAST
  66    S SAVFIRS T(JJ)=AFIR ST
  67    S SAVNAME (JJ)=ALAST _AFIRST
  68    S SAVTWO( JJ)=$P(DAT AA,U,1)
  69    S SAVDFN( JJ)=$P(DAT AA,U,2)
  70    S SAVBFN( JJ)=$P(DAT AA,U,3)
  71    G GETNA4
  72   GETNA1 ;
  73    S ALAST=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST) ) G:ALAST= "" END
  74    S AFIRST= 0
  75   GETNA2 ;
  76    S AFIRST= $O(^CHMZHO LD("ENC002 042-NAME-T WOI",ALAST ,AFIRST))  G:AFIRST=" " GETNA1
  77    S ACNT1=0
  78   GETNA3 ;
  79    S ACNT1=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1)) G:ACN T1="" GETN A2
  80    S ACNT2=0
  81   GETNA4 ;
  82    S ACNT2=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1,ACNT2))  G:ACNT2=" " GETNA3
  83    S DATAA=^ CHMZHOLD(" ENC002042- NAME-TWOI" ,ALAST,AFI RST,ACNT1, ACNT2)
  84    S JJ=JJ+1
  85    ;I CNT>60 0 G END ;T EST ONLY
  86    S SAVLAST (JJ)=ALAST
  87    S SAVFIRS T(JJ)=AFIR ST
  88    S SAVNAME (JJ)=ALAST _AFIRST
  89    S SAVTWO( JJ)=$P(DAT AA,U,1)
  90    S SAVDFN( JJ)=$P(DAT AA,U,2)
  91    S SAVBFN( JJ)=$P(DAT AA,U,3)
  92    I SAVNAME (JJ-1)=SAV NAME(JJ) G  GETNA4   
  93    ;PRINT MA TCHES FIRS T NAME TWO  CHARACTER S
  94    I JJ=2 I  SAVNAME(JJ -1)'=SAVNA ME(JJ) S M CNT=MCNT+1  D MOVEIT  D BLANK2 S  JJ=1 G GE TNA4
  95    ;
  96    I JJ>2 I  SAVNAME(JJ )'=SAVNAME (JJ-1) D P RINTIT D M OVEIT D BL ANKIT G GE TNA4
  97    ;
  98    ;I SAVLAS T(JJ)'=SAV LAST(JJ-1)  S SAVLAST (1)=SAVLAS T(JJ) S SA VFIRST(1)= SAVFIRST(J J) S SAVTW O(1)=SAVTW O(JJ) S SA VDFN(1)=SA VDFN(JJ) S  SAVBFN(1) =SAVBFN(JJ )
  99    Q
  100   BLANKIT ;
  101    ;BLANK OU T MOVED SP OTS JJ+1 T HROUGH JJ
  102    F LL=2:1: JJ D
  103    .S SAVTWO (LL)=""
  104    .S SAVLAS T(LL)=""
  105    .S SAVFIR ST(LL)=""
  106    .S SAVNAM E(LL)=""
  107    .S SAVDFN (LL)=""
  108    .S SAVBFN (LL)=""
  109    .Q
  110    S JJ=1 ;S TART INDEX  EQUAL TO  DATA IN JJ
  111    Q
  112    Q
  113    ;G GETNA3
  114   MOVEIT ;
  115    S SAVLAST (1)=SAVLAS T(JJ) S SA VFIRST(1)= SAVFIRST(J J) S SAVNA ME(1)=SAVN AME(JJ) S  SAVTWO(1)= SAVTWO(JJ)  S SAVDFN( 1)=SAVDFN( JJ) S SAVB FN(1)=SAVB FN(JJ)
  116    Q
  117   BLANK2 ;
  118    S SAVTWO( 2)=""
  119    S SAVLAST (2)=""
  120    S SAVFIRS T(2)=""
  121    S SAVNAME (2)=""
  122    S SAVDFN( 2)=""
  123    S SAVBFN( 2)=""
  124    Q
  125   PRINTIT ;
  126    W ! S LIN ECNT=LINEC NT+1
  127    F J=1:1:J J-1 D
  128    .I SAVBFN (J)'=0 D
  129    ..S BENEN AM=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),0)
  130    ..S BENEA DD=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),1)
  131    ..S Y=$P( BENENAM,U, 3) D DD^%D T S PDATE= Y
  132    ..S PNAME =$P(BENENA M,U,1)
  133    ..S PADD= $P(BENEADD ,U,1)
  134    ..S PSSN= $P(BENENAM ,U,9)
  135    ..S PCITY =$P(BENEAD D,U,3)
  136    ..S BZIP= $P(BENEADD ,U,5)
  137    ..S PZIP= $E(BZIP,1, 5)
  138    ..S STATE =$P(BENEAD D,U,4)
  139    ..S:STATE  STATE=$P( ^DIC(5,STA TE,0),U,2)
  140    ..S PNAME ="      "_ PNAME
  141    ..Q 
  142    .I SAVBFN (J)=0 D
  143    ..S SPONN AM=^AHCHVA (SAVDFN(J) ,0)
  144    ..S SPONA DD=^AHCHVA (SAVDFN(J) ,1)
  145    ..S Y=$P( SPONNAM,U, 3) D DD^%D T S PDATE= Y
  146    ..S PNAME =$P(SPONNA M,U,1)
  147    ..S PADD= $P(SPONADD ,U,1)
  148    ..S PSSN= $P(SPONNAM ,U,9)
  149    ..S PCITY =$P(SPONAD D,U,3)
  150    ..S BZIP= $P(SPONADD ,U,5)
  151    ..S PZIP= $E(BZIP,1, 5)
  152    ..S STATE =$P(SPONAD D,U,4)
  153    ..S:STATE  STATE=$P( ^DIC(5,STA TE,0),U,2)
  154    ..;W !,"      SPONSO R MATCH"
  155    ..S PNAME ="(Spon)"_ PNAME
  156    ..Q 
  157    .;W !,PNA ME,?30,PSS N,?46,PDAT E,?65,PADD ,?94,PCITY ,?116,STAT E,?123,PZI P
  158    .;U FIO W  !,PNAME,? 35,PSSN,?4 7,PDATE,?6 5,PADD,?10 0,PCITY,?1 30,STATE,? 140,PZIP
  159    .U FIO W  !,PNAME_T_ PSSN_T_PDA TE_T_PADD_ T_PCITY_T_ STATE_T_PZ IP
  160    .;I LINEC NT>49 D HE AD1 S LINE CNT=0
  161    .;S LINEC NT=LINECNT +1
  162    .S CNT=CN T+1
  163    .Q
  164    Q
  165    ;
  166   HEAD1    ;  MAIN HEAD ING
  167    ;S PAGECN T=PAGECNT+ 1
  168            ; W !
  169            ; S TITLE="H EALTH ADMI NISTRATION  CENTER"
  170    U FIO W ! ,"HEALTH A DMINISTRAT ION CENTER "
  171            ; S TAB=132- $L(TITLE)/ 2
  172            ; W #,DUZ,?T AB,TITLE,? 120,"Page:   ",PAGECN T
  173            ; S TITLE="M bM bene's  and/or spo nsors with  same or s imilar nam es"
  174    U FIO W ! ,"MbM bene 's and/or  sponsors w ith same o r similar  names"
  175            ; S Y=TODAY  D DD^%DT S  TODAT=Y
  176            ; W !,TODAT, ?(132-$L(T ITLE)/2),T ITLE
  177    ;W !,RCLO CK
  178    ;W !
  179    ;W !,"BEN EFICIARY                     SSN               DOB                  Street A ddress                 City                    State   Zip Code"
  180    ;U FIO W  !,"BENEFIC IARY",?35, "SSN",?47, "DOB",?65, "Street Ad dress",?10 0,"City",? 130,"State ",?140,"Zi p Code"
  181    ;U FIO W  !,"BENEFIC IARY"_T_"S SN"_T_"DOB "_T_"Stree t Address" _T_"City"_ T_"State"_ T_"Zip Cod e"
  182    U FIO W ! ,"BENEFICI ARY"_T_"SS N"_T_"DOB" _T_"Street  Address"_ T_"City"_T _"State"_T _"Zip Code "_T
  183    ;
  184    ;W !,"--- ---------- --------          --- -------       ------- -----        -------- -------                --------- ---------- -  -----   -------"
  185    Q
  186   QUEUEIT ;
  187    S ZTDTH=$ H
  188    S ZTRTN=" START1^CHM KSSR"
  189    S ZTDESC= "BENEFICIA RY/SPONSOR  DUPLICATE  NAMES"
  190    S ZTSAVE( "*")=""
  191    D ^%ZTLOA D
  192    W !!?5,"R eport Queu ed!"
  193    D HOME^%Z IS Q
  194    Q
  195   STOPIT ;
  196    Q
  197   END ;DGC 1 /20/2014 D EV012893 -  BEGIN - N O CLOSE LI STED FOR T HIS FIO IO
  198           D  CLOSEF^CHT FLIB9(FIO, "FIO")
  199           X  "D $SYSTEM .Process.S etZEOF(0)"  ;DGC 7/30 /2015 DEV0 12893
  200             D FTPFILE^ CHTFLIB9(F IO," DNS     fs3. DNS             ","/FS3BIG ","PUT") ; DGC 1/20/2 014 DEV012 893 - END
  201    K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2
  202    K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U
  203    W !,"TOTA L COUNT=", CNT
  204    W !," SIN GLES PURGE D=",MCNT
  205    Q
  206    Q