120. EPMO Open Source Coordination Office Redaction File Detail Report

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

120.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKBBR.m Mon Nov 5 16:42:13 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKBBR.m Mon Nov 5 17:48:39 2018 UTC

120.2 Comparison summary

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

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

120.4 Active regular expressions

No regular expressions were active.

120.5 Comparison detail

  1   CHMKBBR ;H AC/AHJ;PRI NT REPORT  OF BENE'S  WITH SAME  NAMES
  2    ;;V1.0
  3    ; ONLY BE NES WITH M BM AND USE  1ST TWO C HARACTERS  OF FIRST N AME
  4   ZSET     S :'$D(DUZ)  DUZ=1,DUZ( 0)="" I '$ D(DT) S %D T="",X="T"  D ^%DT S  DT=Y
  5            S :'$D(IOZFO ) IOZFO="^ ^" S:'$D(I OZBK) IOZB K="^" S:'$ D(DTIME) D TIME=60
  6            I  '$D(IOZ)  S %IS="N", IOP="HOME"  D HOME^%Z IS S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS
  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 (PAGEC NT,I,J,K,I I)=0
  16    S (PAGECN T,STATE,LI NECNT)=0
  17    S U="^"
  18    S T=$C(9)
  19    S JJ=0
  20    S SW=0
  21    S BLAST=0
  22   A1 ;
  23    ;FIND TOD AYS DATE 
  24    ;S X1=$E( RUNTIME,1, 7) S X2=-3 1 D C^%DTC  S STRDAT= X
  25    D NOW^%DT C S RUNTIM E=%
  26    S Y=$E(RU NTIME,1,7)
  27    S CHDATE= Y
  28    ;  CHDATE  = Todays  Date
  29    S MIN=$E( RUNTIME,9, 10)
  30    S SEC=$E( RUNTIME,11 ,12)
  31    S RCLOCK= MIN_":"_SE C
  32    S TODAY=C HDATE
  33    ;W !,"MUS T USE WIDE  PRINTER"
  34    ;Q
  35    ;K %IS,IO ("Q") D ^% ZIS Q:POP
  36    ;G:$D(IO( "Q"))!(IO' =IO(0)) QU EUEIT ;
  37   QUE      ; W !!!,"PLE ASE QUEUE  THIS REPOR T TO A WID E PRINTER. "
  38   Q1       ; S IOP="Q", %ZIS="Q" W  !! D ^%ZI S G:POP EN D
  39            ; I ION'["/W " W !!,"YO U MUST USE  A WIDE PR INTER." G  Q1
  40            ; S CHFIO=IO N
  41            ; S ZTRTN="S TART1^ZALB B042",ZTDE SC="BENE'S  DUPLICATE  NAMES"
  42            ; S ZTIO="", ZTSAVE("CH FIO")=""
  43            ; S ZTSAVE(" *")=""
  44            ; D ^%ZTLOAD
  45            ;
  46   START1 ;
  47    S FIO="HA CFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]MBM_BENE_ DUPLICATE_ NAMES.TXT"
  48    O FIO:"NW " C FIO:"D "
  49    O FIO:"NW V"
  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= "" AEND
  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    I $P(DATA A,U,3)=0 G  START4 ;B YPASS SPON SORS FOR B ENE REPORT
  65    S JJ=JJ+1
  66    S SAVLAST (JJ)=ALAST
  67    S SAVFIRS T(JJ)=AFIR ST
  68    S SAVNAME (JJ)=ALAST _AFIRST
  69    S SAVTWO( JJ)=$P(DAT AA,U,1)
  70    S SAVDFN( JJ)=$P(DAT AA,U,2)
  71    S SAVBFN( JJ)=$P(DAT AA,U,3)
  72    G GETNA4
  73   GETNA1 ;
  74    S ALAST=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST) ) G:ALAST= "" AEND
  75    S AFIRST= 0
  76   GETNA2 ;
  77    S AFIRST= $O(^CHMZHO LD("ENC002 042-NAME-T WOI",ALAST ,AFIRST))  G:AFIRST=" " GETNA1
  78    S ACNT1=0
  79   GETNA3 ;
  80    S ACNT1=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1)) G:ACN T1="" GETN A2
  81    S ACNT2=0
  82   GETNA4 ;
  83    S ACNT2=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1,ACNT2))  G:ACNT2=" " GETNA3
  84    S DATAA=^ CHMZHOLD(" ENC002042- NAME-TWOI" ,ALAST,AFI RST,ACNT1, ACNT2)
  85    I $P(DATA A,U,3)=0 G  GETNA4 ;B YPASS SPON SORS FOR B ENE REPORT
  86    S JJ=JJ+1
  87    ;I CNT>60 0 G END ;T EST ONLY
  88    S SAVLAST (JJ)=ALAST
  89    S SAVFIRS T(JJ)=AFIR ST
  90    S SAVNAME (JJ)=ALAST _AFIRST
  91    S SAVTWO( JJ)=$P(DAT AA,U,1)
  92    S SAVDFN( JJ)=$P(DAT AA,U,2)
  93    S SAVBFN( JJ)=$P(DAT AA,U,3)
  94    I SAVNAME (JJ-1)=SAV NAME(JJ) G  GETNA4   
  95    ;PRINT MA TCHES FIRS T NAME TWO  CHARACTER S
  96    I JJ=2 I  SAVNAME(JJ -1)'=SAVNA ME(JJ) D M OVEIT D BL ANK2 S JJ= 1 G GETNA4
  97    ;
  98    I JJ>2 I  SAVNAME(JJ )'=SAVNAME (JJ-1) D P RINTIT D M OVEIT D BL ANKIT G GE TNA4
  99    ;
  100    ;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 )
  101    Q
  102   BLANKIT ;
  103    ;BLANK OU T MOVED SP OTS JJ+1 T HROUGH JJ
  104    F LL=2:1: JJ D
  105    .S SAVTWO (LL)=""
  106    .S SAVLAS T(LL)=""
  107    .S SAVFIR ST(LL)=""
  108    .S SAVNAM E(LL)=""
  109    .S SAVDFN (LL)=""
  110    .S SAVBFN (LL)=""
  111    .Q
  112    S JJ=1 ;S TART INDEX  EQUAL TO  DATA IN JJ
  113    Q
  114    Q
  115    ;G GETNA3
  116   MOVEIT ;
  117    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)
  118    Q
  119   BLANK2 ;
  120    S SAVTWO( 2)=""
  121    S SAVLAST (2)=""
  122    S SAVFIRS T(2)=""
  123    S SAVNAME (2)=""
  124    S SAVDFN( 2)=""
  125    S SAVBFN( 2)=""
  126    Q
  127   PRINTIT ;
  128    W ! S LIN ECNT=LINEC NT+1
  129    F J=1:1:J J-1 D
  130    .I SAVBFN (J)'=0 D
  131    ..S BENEN AM=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),0)
  132    ..S BENEA DD=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),1)
  133    ..S Y=$P( BENENAM,U, 3) D DD^%D T S PDATE= Y
  134    ..S PNAME =$P(BENENA M,U,1)
  135    ..S PADD= $P(BENEADD ,U,1)
  136    ..S PSSN= $P(BENENAM ,U,9)
  137    ..S PCITY =$P(BENEAD D,U,3)
  138    ..S BZIP= $P(BENEADD ,U,5)
  139    ..S PZIP= $E(BZIP,1, 5)
  140    ..S STATE =$P(BENEAD D,U,4)
  141    ..S:STATE  STATE=$P( ^DIC(5,STA TE,0),U,2)
  142    ..Q 
  143    .I SAVBFN (J)=0 D
  144    ..S SPONN AM=^AHCHVA (SAVDFN(J) ,0)
  145    ..S SPONA DD=^AHCHVA (SAVDFN(J) ,1)
  146    ..S Y=$P( SPONNAM,U, 3) D DD^%D T S PDATE= Y
  147    ..S PNAME =$P(SPONNA M,U,1)
  148    ..S PADD= $P(SPONADD ,U,1)
  149    ..S PSSN= $P(SPONNAM ,U,9)
  150    ..S PCITY =$P(SPONAD D,U,3)
  151    ..S BZIP= $P(SPONADD ,U,5)
  152    ..S PZIP= $E(BZIP,1, 5)
  153    ..S STATE =$P(SPONAD D,U,4)
  154    ..S:STATE  STATE=$P( ^DIC(5,STA TE,0),U,2)
  155    ..S LINEC NT=LINECNT +1
  156    ..W !,"      SPONSOR  MATCH"
  157    ..Q 
  158    .;U FIO W  !,PNAME,? 25,PSSN,?3 7,PDATE,?5 5,PADD,?90 ,PCITY,?12 0,STATE,?1 30,PZIP
  159    .U FIO W  !,PNAME_T_ PSSN_T_PDA TE_T_PADD_ T_PCITY_T_ STATE_T_PZ IP
  160    .;W !,PNA ME,?25,PSS N,?41,PDAT E,?60,PADD ,?89,PCITY ,?116,STAT E,?123,PZI P
  161    .;I LINEC NT>50 D HE AD1 S LINE CNT=0
  162    .;S LINEC NT=LINECNT +1
  163    .S CNT=CN T+1
  164    .Q
  165    Q
  166    ;
  167   HEAD1    ;  MAIN HEAD ING
  168    ;S PAGECN T=PAGECNT+ 1
  169            ; W !
  170            ; S TITLE="H EALTH ADMI NISTRATION  CENTER"
  171           U  FIO W !,"H EALTH ADMI NISTRATION  CENTER"
  172            ; S TAB=132- $L(TITLE)/ 2
  173            ; W #,DUZ,?T AB,TITLE,? 120,"Page:   ",PAGECN T
  174            ; S TITLE="M bM bene's  and/or oth er bene's  with same  or similar  names"
  175    U FIO W ! ,"MbM bene 's and/or  other bene 's with sa me or simi lar names"
  176          ;S  Y=TODAY D  DD^%DT S T ODAT=Y
  177            ; W !,TODAT, ?(132-$L(T ITLE)/2),T ITLE
  178    ;W !,RCLO CK
  179    ;W !
  180    ;W !,"BEN EFICIARY                SSN              DO B                 Str eet Addres s                City                          State   Zip Code"
  181    ;W !,"--- ---------- --------     -------- --      -- ----------        --- ---------- --               ---- ---------- ------        -----   -------"
  182    ;U FIO W  !,"BENEFIC IARY",?25, "SSN",?37, "DOB",?55, "Street Ad dress",?90 ,"City",?1 20,"State" ,?130,"Zip  Code"
  183    U FIO W ! ,"BENEFICI ARY"_T_"SS N"_T_"DOB" _T_"Street  Address"_ T_"City"_T _"State"_T _"Zip Code "
  184    Q
  185   QUEUEIT ;
  186    S ZTDTH=$ H
  187    S ZTRTN=" START1^CHM KBBR"
  188    S ZTDESC= "BENEFICIA RY DUPLICA TE NAMES"
  189    S ZTSAVE( "*")=""
  190    D ^%ZTLOA D
  191    W !!?5,"R eport Queu ed!"
  192    D HOME^%Z IS Q
  193    Q
  194   ZNAM     ;
  195            W  !!,"CHAMP VA Project  Tracking  System-"
  196            W  !,"Open P roblems by  Assignmen t Group, b y person a ssigned to "
  197   QUEA ;
  198            W  ! S IOP=" Q" D ^%ZIS  G:POP END  S CHFIO=I ON
  199            S  ZTRTN="^S TART1^CHMK BBR",ZTDTH =$H,ZTDESC ="BENEFICI ARY DUPLIC ATE NAMES"
  200            S  ZTSAVE("* ")=""
  201            D  ^%ZTLOAD
  202            S  IOP="HOME " D HOME^% ZIS
  203   QUEB ;  
  204    K IOP W ! ! S %ZIS=" Q" D ^%ZIS  G END:POP  I '$D(IO( "Q")) G EN D
  205            S  CHFIO=ION
  206            S  ZTRTN="^S TART1^CHMK BBR",ZTDES C="BENE DU P REPORT", ZTIO="",ZT SAVE("CHFI O")=""
  207            S :$D(BEGDT)  ZTSAVE("* ")=""
  208            D  ^%ZTLOAD
  209            S  IOP="HOME " D HOME^% ZIS
  210   END ;
  211   QEND ;
  212   AEND ;
  213    K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2
  214    K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U
  215    W !,"TOTA L COUNT=", CNT
  216    Q
  217    Q