143. EPMO Open Source Coordination Office Redaction File Detail Report

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

143.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKOHIC.m Mon Nov 5 16:39:58 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKOHIC.m Mon Nov 5 17:49:09 2018 UTC

143.2 Comparison summary

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

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

143.4 Active regular expressions

No regular expressions were active.

143.5 Comparison detail

  1   CHMKOHIC ; HAC/AHJ; C HAMPVA CHA MPVA Surve y Mailing
  2    ;;V1.0
  3    ;
  4    ;AGE OVER  18
  5    ;HAVE CLA IMS LAST 1 20 DAYS
  6    ;NO BAD A DDRESS RO  NO DOD
  7    ;
  8   CHAMPVA ;
  9    S (YESCNT ,NOCNT,YCN T,NCNT)=0
  10    S (SW9,BE NCNT,ECNT, IECNT,RCNT ,NRCNT,TCN T,NTCNT,NS CNT,DCNT)= 0
  11    S (SEQNO, TOTCLM,COU NT,SW1,CLM CNT,CLAIM, CNT,TOTCNT ,CCNT)=0
  12    S DFN=0,U ="^"
  13    K ^CHMZHO LD("ACCEPT -CR1276-YE S")
  14    K ^CHMZHO LD("ACCEPT -CR1276-NO ")
  15    K ^CHMZHO LD("CR645Y ESOHI")
  16    K ^CHMZHO LD("CR645N OOHI")
  17    K ^CHMZHO LD("ACCEPT -TRC")
  18    K ^CHMZHO LD("NOT-EL IG-TRC")
  19    K ^CHMZHO LD("ACCEPT -TRC-BU")
  20    K ^CHMZHO LD("NO-CLA IMS-OVER18 -TRC")
  21    K ^CHMZHO LD("NOT-EL IG-6MO-CLA IM-TRC")
  22    K ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-TRC")
  23    K ^CHMZHO LD("FY03-C LAIMS-TRC" )
  24    K ^CHMZHO LD("TRC122 5-BADADDR" )
  25    K ^CHMZHO LD("TRC122 5-DOD")
  26    ;K ^CHMZH OLD("ACCEP T-TRC1313- UNDER")
  27    S ^CHMZHO LD("BENE-N A-OHI-RAN- LABELS")=" "
  28    ;
  29   A2 ;
  30    ;FIND TOD AYS DATE F OR AGE TES T
  31    D NOW^%DT C S CHDATE =X
  32    S TODAY=C HDATE
  33    ; COMPUTE  120 DAYS
  34    S X1=CHDA TE S X2=-1 20 D C^%DT C S STRDAT =X
  35    D GETDFN, END
  36    Q
  37    ;******** ********** ********** ********** ********** *****
  38    ;
  39   GETDFN ;
  40    S TOTCNT= TOTCNT+1
  41    ;TEST ONL Y HERE NEX T LINE
  42    ;I TOTCNT =2000 Q
  43    S DFN=$O( ^AHCHVA(DF N)) Q:'DFN
  44    G:'$D(^AH CHVA(DFN,1 00)) GETDF N
  45    S (TFMDT, BFN)=0
  46   GETBFN ;
  47    S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN G ETDFN
  48    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  49    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) GETBFN
  50    ;W !,DFN, "  ",BFN
  51    S J1=9999 9999
  52   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1),- 1) G:'J1 G ETBFN
  53    S J2=9999 9999
  54    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2), -1) G:'J2  G2
  55    ;
  56    ;CHECK FO R DATES OF  ELIGIBILI TY
  57    G:J1>CHDA TE OUT1
  58    G:J2<CHDA TE OUT1
  59    ;
  60    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  61    S BDATA=^ AHCHVA(DFN ,100,BFN,0 )
  62    S BDOD=$P (BDATA,"^" ,6)
  63    I $L(BDOD )=7 G GETB FN
  64    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  GETBFN
  65    ;
  66    ;NEXT LIN E CHECK BE GIN/END EL IGIBLE DAT ES
  67    S NAMLAB= ^AHCHVA(DF N,100,BFN, 0)
  68    ;
  69    ;CHECK FO R DATE OF  DEATH
  70    S DOD=$P( NAMLAB,U,6 )
  71    I DOD'=""  G OUT6
  72    S ADDRLAB =^AHCHVA(D FN,100,BFN ,1)
  73    ;
  74    ;CHECK FO R BAD ADDR ESS CODE
  75    S BADADDR =$P(ADDRLA B,U,10)
  76    I BADADDR =0 G OUT5
  77    I BADADDR =2 G OUT5
  78    ;
  79    ;FORMAT S OC SEC NUM BER
  80    S SSN=$P( NAMLAB,U,9 )
  81    S SSN3=$E (SSN,1,3)
  82    S SSN2=$E (SSN,4,5)
  83    S SSN4=$E (SSN,6,9)
  84    S SSN=SSN 3_"-"_SSN2 _"-"_SSN4
  85    ;
  86    ;SAVE TEL EPHONE NUM BER
  87    S PHONE=$ P(ADDRLAB, U,6)
  88    I $E(PHON E,4,4)="-"  S TELENO= PHONE G OK NOW
  89    I $E(PHON E,1,1)="("  S TELENO= PHONE G OK NOW
  90    I $E(PHON E,4,4)=" "  S TELENO= PHONE G OK NOW
  91    I PHONE'= "" I $L(PH ONE)<9 I $ E(PHONE,4, 4)'=("")!( "-") S PPH ONE=$E(PHO NE,1,3)_"- "_$E(PHONE ,4,6)_"-"_ $E(PHONE,7 ,10)
  92    I PHONE'= "" I $E(PH ONE,1,1)'= "(" S PPHO NE=$E(PHON E,1,3)_"-" _$E(PHONE, 4,6)_"-"_$ E(PHONE,7, 10)
  93    I PHONE=" " S PPHONE =""
  94    S TELENO= PPHONE
  95    ;
  96   OKNOW ;
  97    ;CHECK FO R SEX
  98    S SEX=$P( NAMLAB,U,2 )
  99    ;
  100    ;CHECK FO R BAD STAT E ADDRESS    
  101    S STATE=$ P(ADDRLAB, U,4)
  102    I STATE=" " G GETBFN
  103    ;
  104    ;CHECK FO R DATE OF  BIRTH AGE  19 AND OVE R
  105    S DOB=$P( NAMLAB,U,3 )
  106    G:'DOB GE TBFN
  107    S BRTHDAY =DOB
  108    S TAGE=$$ AGE^CHTFLI B(BRTHDAY, TODAY)
  109    I TAGE<20  G GETBFN
  110    ;W !,"    AGE TEST H ERE ",DFN, " ",BFN,"  ",TAGE
  111    ;NEED TO  FIND CLAIM S FROM STA RT DATE TO  TODAY FOR  THIS BENE
  112    ;
  113   L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G GET DFN:'CHDFN I
  114    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ
  115    S CHDFNK= 99999999
  116   LOOP ;
  117    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK CKEND
  118    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N
  119    G L3
  120   MAIN ;
  121    S DFNDATA =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0)
  122    G LOOP:'$ D(^CHMPAY( DFNDATA,0) )
  123    ;CONVERT  PDI TO CLA IM FILED D ATE
  124    S PDIJ=""
  125    S PDIJ=$O (^CHMPAY(D FNDATA,"PD I","B",PDI J),-1)
  126    G:PDIJ=""  LOOP
  127    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  128    ;
  129    I TFMDT<S TRDAT G OU T3 ;CLAIMS  LAST
  130    ;
  131   BENWITH ;B ENE WITH C LAIMS LAST  120 DAYS,  OVER 19 A GE, BYPASS  BAD ADDRE SS AND DOD
  132    ;
  133    S OHISW=" N"
  134    S OHIBEG= ""
  135    S CHDFNPT =0
  136    S CHDFNPT =$O(^CHMDF N("B",DFN, CHDFNPT))  G:'CHDFNPT  NOTOHI
  137    G:'$D(^CH MDFN(CHDFN PT,0)) NOT OHI
  138    G:'$D(^CH MDFN(CHDFN PT,100,"B" ,BFN)) NOT OHI
  139    S CHBFNPT =0
  140    S CHBFNPT =$O(^CHMDF N(CHDFNPT, 100,"B",BF N,CHBFNPT) ) G:'CHBFN PT NOTOHI
  141    G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2)) N OTOHI
  142    S CHKVAL= 99999
  143   OHICK1 S C HKVAL=$O(^ CHMDFN(CHD FNPT,100,C HBFNPT,2,C HKVAL),-1)  G:'CHKVAL  NOTOHI
  144    G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2,CHK VAL,0)) OH ICK1
  145    S OHIBEG= $P(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,2,CHKVAL, 0),"^",1)
  146    S OHIEND= $P(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,2,CHKVAL, 0),"^",2)
  147    S OHICODE =$P(^CHMDF N(CHDFNPT, 100,CHBFNP T,2,CHKVAL ,0),"^",3)
  148    I OHICODE =1 G NOTOH I
  149    I OHICODE =8 G NOTOH I
  150    ;
  151    G:'$D(OHI BEG) NOTOH I
  152    I OHIBEG= "" I OHIEN D="" G NOT OHI
  153    G:OHIBEG> CHDATE NOT OHI
  154    I OHIEND= "" S OHISW ="Y" G NEX TCK
  155    G:OHIEND< CHDATE NOT OHI
  156   NOTOHI S O HISW="N"
  157   NEXTCK ;
  158    D ACCEPT
  159    S TOTCLM= 0
  160    G GETBFN
  161    Q
  162   ACCEPT ;
  163    ;USE THIS  NAME AND  ADDRESS TO  BE PUT IN  FILE TO B E USED FOR  RANDOM
  164    S SEQNO=S EQNO+1
  165    ;S ^CHMZH OLD("ACCEP T-TRC",SEQ NO)=DFN_U_ BFN_U_SSN_ U_SEX_U_OH ISW_U_TELE NO_T_TAGE_ T_
  166    ;S ^CHMZH OLD("ACCEP T-TRC-BU", SEQNO)=DFN _U_BFN_U_S SN_U_SEX_U _OHISW_U_T ELENO_T_TA GE_T_
  167    S STATE=$ P(ADDRLAB, U,4)
  168    I STATE=" " Q
  169    G GETBFN: '$D(^DIC(5 ,STATE,0))
  170    S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2)
  171    S (ZIP,ZI PZ)=""
  172    S ZIPZ=$P (ADDRLAB,U ,5)
  173    I $L(ZIPZ )>5 S ZIP1 =$E(ZIPZ,1 ,5) S ZIP2 =$E(ZIPZ,6 ,9) S ZIPZ =ZIP1_"-"_ ZIP2
  174    S T=$C(9)
  175    S ADDR1=$ P(NAMLAB,U ,1)
  176    S ADDR2=$ P(ADDRLAB, U,1)
  177    S ADDR3=$ P(ADDRLAB, U,2)
  178    S ADDR4=$ P(ADDRLAB, U,12)
  179    S ADDR5=$ P(ADDRLAB, U,3)
  180    S ADDR6=S TATE
  181    S ADDR7=Z IPZ
  182    S TMP=ADD R1_T_ADDR2 _T_ADDR3_T _ADDR4_T_A DDR5_T_ADD R6_T_ADDR7 _T
  183    ;NEXT TWO  FILE ARE  FOR QA TO  VERIFY DAT A
  184    I OHISW=" Y" S YESCN T=YESCNT+1  S ^CHMZHO LD("CR645Y ESOHI",DFN ,BFN,YESCN T)=OHICODE _U_OHIBEG_ U_OHIEND_U _CHDFNPT_U _CHBFNPT_U _CHKVAL_U
  185    I OHISW=" N" S NOCNT =NOCNT+1 S  ^CHMZHOLD ("CR645NOO HI",DFN,BF N,NOCNT)=O HICODE_U_O HIBEG_U_OH IEND_U_CHD FNPT_U_CHB FNPT_U_CHK VAL_U
  186    ;NEXT TWO  FILES ARE  FOR PULLI NG 300 RAN DOM BENE'S  IN ROUTIN ES ZALC645 Y AND ZALC 645N
  187    I OHISW=" Y" S ^CHMZ HOLD("ACCE PT-CR1276- YES",YESCN T)=DFN_U_B FN_U_ADDR1 _U_TELENO_ U_ADDR2_U_ ADDR3_U_AD DR4_U_ADDR 5_U_ADDR6_ U_ADDR7_U_ SEX_U_SSN_ U_OHICODE_ U_TAGE_U
  188    I OHISW=" N" S ^CHMZ HOLD("ACCE PT-CR1276- NO",NOCNT) =DFN_U_BFN _U_ADDR1_U _TELENO_U_ ADDR2_U_AD DR3_U_ADDR 4_U_ADDR5_ U_ADDR6_U_ ADDR7_U_SE X_U_SSN_U_ OHISW_U_TA GE_U
  189    ;
  190    ;W !,DFN, " ",BFN,"  ",OHISW
  191    S OHISW=" N"
  192    ;
  193    Q
  194   CKEND ;
  195    S ^CHMZHO LD("NO-CLA IMS-OVER18 -TRC",DFN, BFN)=""
  196    I TOTCLM= 0 S SW=0 G  GETBFN
  197    S SW1=0 G  OUT4
  198    Q
  199   OUT1 ;NOT  ELIG
  200    S ^CHMZHO LD("NOT-EL IG-TRC",DF N,BFN,J1,J 2)=""
  201    G GETBFN
  202    ;
  203   OUT2 ;NOT  ELIG 6 MO  BEFORE 5TH  OLDEST CL AIM OVER 1 8 MON
  204    S ^CHMZHO LD("NOT-EL IG-6MO-CLA IM-TRC",DF N,BFN)=""
  205    G GETBFN
  206   OUT3 ;CLAI MS FY 03
  207    S ^CHMZHO LD("FY03-C LAIMS-TRC" ,DFN,BFN,D FNDATA,PDI J,TFMDT)=" "
  208    G GETBFN
  209   OUT4 ; COU NT CLAIMS
  210    S ^CHMZHO LD("FY03-T OTCLAIMS-9 09",DFN,BF N,TOTCLM,T FMDT)=""
  211    S TOTCLM= 0
  212    G GETBFN
  213   OUT5 ;
  214    S ^CHMZHO LD("TRC122 5-BADADDR" ,DFN,BFN)= BADADDR
  215    G GETBFN
  216   OUT6 ;
  217    S ^CHMZHO LD("TRC122 5-DOD",DFN ,BFN)=DOD
  218    G GETBFN
  219   BYPASS ;
  220    G GETBFN
  221    Q
  222   WRITEIT ;
  223    ;W !,J1,"   ",J2,"CL AIM DATE=" ,TFMDT," C LAIM COUNT =",COUNT,"  DFN=",DFN ," BFN= ", BFN
  224    G GETBFN
  225   END ;
  226    ;
  227    S ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6YES")=YES CNT
  228    S ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6NO")=NOCN T
  229    ;D ^ZAL12 76Y
  230    ;D ^ZAL12 76N
  231    D ^CHMKOH IY
  232    D ^CHMKOH IN
  233    S Y=CHDAT E D DD^%DT  S PTODAYD T=Y
  234    ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2
  235    ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U
  236    S CNTZ=1, ^CHMZHOLD( $J,"BENERA N-TEXTMESS 1",CNTZ)=" ",CNTZ=CNT Z+1
  237    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="******* ********** ********** ********** ********** ***",CNTZ= CNTZ+1
  238    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="  BENEF ICIARY NAM E AND ADDR ESS LIST          ",C NTZ=CNTZ+1     
  239    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="  OHI R ANDOM COUN T HAS  COM PLETED   " ,CNTZ=CNTZ +1
  240    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="                                                                                                               ",CNTZ =CNTZ+1
  241    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="TODAYS  DATE="_PTO DAYDT,CNTZ =CNTZ+1
  242    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YES OHI  COUNT="_Y CNT,CNTZ=C NTZ+1
  243    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="NO OHI  COUNT="_NC NT,CNTZ=CN TZ+1
  244    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )=" (OUTPU T FILES ON  FS3BIG)                                            ", CNTZ=CNTZ+ 1
  245    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YES OHI  FILE NAME /ADDRESS O N FS3BIG=C ROHIBENEYE SNA.XLS",C NTZ=CNTZ+1
  246    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YES OHI  FILE INFO  ON FS3BIG =CROHIBENE YESINFO.TX T",CNTZ=CN TZ+1
  247    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="NO OHI  FILE NAME/ ADDRESS ON  FS3BIG=CR OHIBENENON A.TXT",CNT Z=CNTZ+1
  248    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="NO OHI  FILE INFO  ON FS3BIG= CROHIBENEN OINFO.TXT" ,CNTZ=CNTZ +1
  249    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="YOU MUS T IMMEDIAT ELY CHANGE  FILE NAME  ON FS3BIG    ",CNTZ= CNTZ+1
  250    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )="******* ********** ********** ********** ********** ***",CNTZ= CNTZ+1
  251    S ^CHMZHO LD($J,"BEN ERAN-TEXTM ESS1",CNTZ )=""
  252    S XMTEXT= "^CHMZHOLD ($J,""BENE RAN-TEXTME SS1"","
  253    S XMDUZ=. 5
  254    ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1)
  255    ;S LAST=$ P(NAMDUZ," ,",1)
  256    ;S FIRST= $P(NAMDUZ, ",",2)
  257    ;S NAME=L AST_", "_F IRST
  258    ;S NAMEOU T= PII            "
  259    ;S XMY(NA MEOUT)=""
  260    S XMY(DUZ )=""
  261    S XMSUB=" BENE NAME  AND ADDRES S OHI RAND OM SELECTE D" D ^XMD  ;
  262    K ^CHMZHO LD("BENE-N A-OHI-RAN- LABELS")
  263    K ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6YES")
  264    K ^CHMZHO LD("ACCEPT -TOTAL-REC ORDS-CR127 6NO")
  265    Q
  266    Q