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

117.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKAEV1.m Mon Nov 5 16:45:05 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKAEV1.m Mon Nov 5 17:48:34 2018 UTC

117.2 Comparison summary

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

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

117.4 Active regular expressions

No regular expressions were active.

117.5 Comparison detail

  1   CHMKAEV1 ; HAC/AHJ;SE LECT VETS  VEA WITH B ENE'S WITH  NO CLAIMS  LAST 12 M O'S
  2    ;;V1.0
  3    ;SELECT V ETS MATCH  DOB MO TO  ENTERED MO NTH
  4    ;ELIMINAT E VETS WIT H ANNUAL E LIG VERIFI CATION (AE V) = YES W ITHIN 12 M O'S
  5    ;SELECT V ETS WITH B ENE'S WHO  ARE CURREN TLY ELIGIB LE
  6    ;SELECT V ETS WITH B ENE'S WITH OUT CLAIMS  LAST 12 M ONTHS
  7    ;
  8    ;OUTPUT O N FS3BIG   List Veter ans name,  gender, do b, ssn, ae v status,  aev date
  9   CHAMPVA ;
  10    S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0
  11    S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES12CNT, NO12CNT)=0
  12    S PG=1
  13    S T=$C(9)
  14    S DFN=0,U ="^"
  15    S BENESW= 0
  16    S ^CHMZHO LD("BENE-N A-LABELS") =""
  17    K ^CHMZHO LD("NAME-A DD262")
  18    K ^CHMZHO LD("FMP262 ")
  19    K ^CHMZHO LD("NO12CL AIM262")
  20    K ^CHMZHO LD("YES12C LAIM262")
  21    K ^CHMZHO LD("NOTELI G262")
  22    K ^CHMZHO LD("SB262" )
  23    K ^CHMZHO LD("FMP262 ")
  24    K ^CHMZHO LD("NOCLAI M262")
  25    K ^CHMZHO LD("AEV-SP ONSOR-SPOU SE-NOCLAIM S-262")
  26    K ^CHMZHO LD("AEV-SP ONSOR-BENE -DFNBFN")
  27    ;
  28   A1 ;
  29    ;FIND TOD AYS DATE F OR AGE TES T
  30    D NOW^%DT C S RUNTIM E=%
  31    S Y=$E(RU NTIME,1,7)
  32    S CHDATE= Y
  33    ;   12 MO NTHS
  34    S X1=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =X
  35    ;  STRDAT  = Start D ate
  36    ;  CHDATE  = Todays  Date
  37    S TODAY=C HDATE
  38    S DAT12=S TRDAT
  39   MONS ;
  40    W !!,"Ent er Veteran 's DOB two  numeric m onth to se lect  (Ent er ""END""  to Quit:)  "
  41    D CSBRS^C HSC2
  42    ;G:$D(DFO UT) END G: $D(DUOUT)  ESSN
  43    I $D(DQOU T) D  G MO NS
  44    .W !,"    days input  must be n umeric num ber."
  45    Q:Y="END"
  46    I Y="" D   G MONS
  47    .W !,"    The month  input Numb er is mand atory."
  48    .W "  You  may not p roceed wit hout it."
  49    I (Y?2N)  S MONTHNUM =Y G OKMOS
  50    G MONS
  51   OKMOS ;
  52     W !!,"PL EASE SELEC T DEVICE F OR PRINTOU T(MUST USE  ""WIDE""  PRINTER) O R ""FILE""  FOR TEXT  FILE ON FS 3BIG: "  ; TLH 4/21/0 8 DEV00441 6
  53    K %IS,IO( "Q") D ^%Z IS Q:POP   S CHFILE=" "
  54    I ION="FI LE" D  ;TL H 4/21/08  DEV004416
  55    .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG"  ;TLH  4/21/08 D EV004416
  56   A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// "  ;TL H 4/21/08  DEV004416
  57    .D CSBRS^ CHSC2  ;TL H 4/21/08  DEV004416
  58    .Q:$D(DFO UT)  Q:$D( DTOUT)  G: $D(DQOUT)  A ;TLH 4/2 1/08 DEV00 4416
  59    .S CHFILE =Y  ;TLH 4 /21/08 DEV 004416
  60    .I Y["."  W !,"DO NO T ENTER AN  EXTENTION . EXTENTIO N WILL BE  '.TXT'" G  A
  61    .Q:Y=""   ;TLH 4/21/ 08 DEV0044 16
  62    .G:Y'?1.8 AN A  ;TLH  4/21/08 D EV004416
  63    .W !!,"Yo ur file wi ll now be  copied to  FS3BIG: "   ;TLH 4/21 /08 DEV004 416
  64    .W "\\ DNS     FS3\FS3BIG \",CHFILE, ".TXT"    ;TLH 4/21/ 08 DEV0044 16
  65    .Q  ;TLH  4/21/08 DE V004416
  66    G:$D(IO(" Q"))!(IO'= IO(0)) QUE UEIT
  67           ;G  OKMOS1
  68           ;Q UE TO PRIN TER
  69           ;; ;;;;;K %IS ,IO("Q") D  ^%ZIS Q:P OP
  70            ; ;;;;;G:$D( IO("Q"))!( IO'=IO(0))  QUEUEIT
  71           ;* ********** ********** ********ne xt to auto matic que  job
  72    ;S ZTSAVE ("CHDATE") ="",ZTSAVE ("*")="",Z TSAVE("MON THNUM")=""
  73    ;S ZTRTN= "OKMOS1^CH MKAEV1",ZT DESC="AEV  VETS",ZTIO =""
  74    ;D ^%ZTLO AD S IOP=0  D HOME^%Z IS
  75   END1 ;
  76    D ^CHMKAE V2
  77    Q
  78    ;
  79   OKMOS1 ;
  80    S PG=1
  81    S T=$C(9)
  82    S DFN=0,U ="^"
  83    S BENESW= 0
  84    ;
  85    D GETDFN, END
  86    Q
  87    ; ALL ELI GIBLE/ACTI VE BENE'S  ON TODAY
  88    ;******** ********** ********** ********** ********** *****
  89    ; CHAMPVA  BENE FILE
  90   GETDFN ;         
  91    I BENESW= 1 D WANTIT
  92    S DFN=$O( ^AHCHVA(DF N)) Q:'DFN
  93    S TOTDFN= TOTDFN+1
  94    G:$D(^AHC HVA("FMP", DFN)) FMP
  95    ;G:'$D(^A HCHVA(DFN, 100)) GETD FN
  96    S TOTDFN1 =TOTDFN1+1
  97    G:'$D(^AH CHVA(DFN,0 )) GETDFN
  98    S SPON=^A HCHVA(DFN, 0)
  99    S VDOB=$P (SPON,U,3)
  100    ;W !,"      ALL DFNS =",DFN
  101    I $E(VDOB ,4,5)'=MON THNUM G GE TDFN ;matc h dob mont
  102    ;W !,"               DFN=",DFN, " ",VDOB
  103    G:'$D(^AH CHVA(DFN,1 )) GETDFN
  104    S SPON1=^ AHCHVA(DFN ,1)
  105    S CHAEV=9 9999999
  106   GETDFNJ5 ;
  107    S CHAEV=$ O(^AHCHVA( DFN,5,CHAE V),-1) G:' CHAEV GETD FN
  108    G:$D(^AHC HVA(DFN,5, CHAEV,0))  GETDFN1
  109    G GETDFN
  110   GETDFN1 ;
  111    S AEVDATA =^AHCHVA(D FN,5,CHAEV ,0)
  112    S AEVSTAT =$P(AEVDAT A,U,1)
  113    S AEVDAT= $P(AEVDATA ,U,3)
  114    S AEVDAT= $E(AEVDAT, 1,7)
  115    ;W !,"        AEVDAT =",DFN," " ,AEVDAT,"  ",AEVSTAT
  116    S Y=AEVDA T D DD^%DT  S AEVPDAT =Y ; FORMA T TO PRINT
  117    I AEVSTAT =1  I AEVD AT>STRDAT  G GETDFN ; ELIMINATE  AEV="Y" LA ST 12 MONT HS
  118    ;W !,"                                          GOOD  AEVDAT 12  MO=",DFN,"  ",AEVDAT, " ",AEVSTA T
  119    S BFN=0
  120   GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N
  121    ;W !,"DFN =",DFN," B FN=",BFN,"  SW=",BENE SW
  122    S BICNT=B ICNT+1
  123    G:$D(^AHC HVA("SB",D FN,BFN)) S B
  124    ;ELIMINAT E FMP
  125    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  126    S BEN0=^A HCHVA(DFN, 100,BFN,0)
  127    S BFNSAV= BFN
  128    ;CHECK DA TES OF ELI GIBILITY F OR BENE
  129    ;
  130    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  NO109
  131    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  NO109
  132    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109 
  133    S J1=0
  134   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1))  G:'J1 GETB FN
  135    S J2=0
  136    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 G2
  137    ;W !,"                       AL L ELIG =", DFN," ",BF N," ",J1,"  ",J2
  138    G:J1>CHDA TE NOTELIG
  139    G:J2<CHDA TE NOTELIG
  140    ;W !,"                                         GOOD E LIG DATES= ",DFN," ", BFN," ",J1 ," ",J2
  141    ;
  142    ;
  143   C1 ;NEED T O FIND CLA IMS IN LAS T 12 MONTH S, SELECT  NO CLAIMS  LAST 12 MO NTHS
  144    ;
  145   L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G NOI CNT:'CHDFN I
  146    ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J
  147    ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G NOC LM:'CHDFNJ
  148    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GOOD ONE:'CHDFN J
  149    S CHDFNK= 99999999
  150   LOOP ;W !, "   LOOP    ",DFN,"    =  ",CHDF NK
  151    ;S CHDFNK =$O(^CHMDF N(CHDFNI,1 00,CHDFNJ, 100,CHDFNK ),-1) G:'C HDFNK NOCL M
  152    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK GOODO NE
  153    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N
  154    G L3
  155   MAIN ;
  156    S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0)
  157    G LOOP:'$ D(^CHMPAY( CLAIMNO,0) )
  158    ;CONVERT  PDI TO CLA IM FILED D ATE
  159    S PDIJ=""
  160    S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1)
  161    G:PDIJ=""  LOOP
  162    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  163    ; !,"        CLAIMS  TO TEST=", DFN," ",BF N," ",TFMD T
  164           I  TFMDT>STRD AT G NO12C LM
  165   GOODONE ;
  166    S BENESW= 1 ; NO CLA IMS LAST 1 2 MONTHS
  167    ;W !,"                 CLAIM OV ER 12 MON  OLD=",DFN, " ",BFN,"  ",TFMDT
  168    S SAVCLMN O=CLAIMNO
  169    S SAVCLMD T=TFMDT
  170    S VNAME=$ P(SPON,U,1 )
  171    S ^CHMZHO LD($J,"AEV -SPONSOR-B ENE-DFNBFN ",VNAME,DF N,BFN)=J1_ U_J2_U_"TW O"
  172    G GETBFN
  173    ;
  174   WANTIT ;SP ONSOR WITH  A BENE WI TH DATES O F ELIGIBIL ITY AND NO  12 MO CLA IMS
  175   OK ;
  176    S BENESW= 0
  177    S T=$C(9)
  178    S CNT=CNT +1
  179    S VNAME=$ P(SPON,U,1 )
  180    S VSEX=$P (SPON,U,2)
  181    S VDOB=$P (SPON,U,3)
  182    S Y=VDOB  D DD^%DT S  VPDOB=Y
  183    S VSSN=$P (SPON,U,9)
  184    S VSSN=$E (VSSN,1,3) _"-"_$E(VS SN,4,5)_"- "_$E(VSSN, 6,9)
  185    ;W !,"                                      SELECTED  THIS ONE=" ,DFN," ",T FMDT
  186    ;S ^CHMZH OLD("AEV-S PONSOR-SPO USE-NOCLAI MS-262",VN AME,DFN,BF NSAV)=VNAM E_U_VSEX_U _VPDOB_U_V SSN_U_AEVS TAT_U_AEVP DAT_U_SAVC LMNO_U_SAV CLMDT_U
  187    Q
  188   QUEUEIT  ;
  189            S  ZTDTH=$H
  190            S  ZTRTN="OK MOS1^CHMKA EV1"
  191            S  ZTDESC="A EV REPORT"
  192            S  ZTSAVE("* ")=""
  193            D  ^%ZTLOAD
  194            W  !!?5,"Rep ort Queued !"
  195            D  HOME^%ZIS  Q
  196            Q
  197   NOZIP ;
  198    S NOZIPCN T=NOZIPCNT +1
  199    G GETBFN
  200   NODFN100 ;
  201    S DFNCNT= DFNCNT+1
  202    G GETDFN
  203   NOICNT ;
  204    S ICNT=IC NT+1
  205    ;W !,"    NO IN CLAI M=",DFN,"  ",BFN
  206    G GETDFN
  207   SB ;
  208    ;W !,"SB=  ",DFN," " ,BFN
  209    S SBCNT=S BCNT+1
  210    S ^CHMZHO LD("SB262" ,DFN,BFN)= ""
  211    G GETBFN
  212   FMP ;
  213    S FMPCNT= FMPCNT+1
  214    S ^CHMZHO LD("FMP262 ",DFN)=""
  215    G GETDFN
  216   NO109 ;
  217    S CNT109= CNT109+1
  218    G GETBFN
  219   NOCLM ;
  220    S NOCLM=N OCLM+1
  221    ;W !,"                                                              NO CLAI M ",DFN,"  ",BFN
  222    S ^CHMZHO LD("NOCLAI M262",DFN, BFN)=""
  223    G GETBFN
  224   NO12CLM ;
  225    S NO12CNT =NO12CNT+1
  226    ;W !,"      NO CLAIM S 12 MOS                             ",DFN, " ",BFN,"  ",TFMDT
  227    S ^CHMZHO LD("NO12CL AIM262",DF N,BFN)=""
  228    G GETBFN
  229   NOTELIG ;
  230    ;W !,"          NOT  ELIG DATES       ",DF N," ",BFN, " ",J1," " ,J2
  231    S ^CHMZHO LD("NOTELI G262",DFN, BFN)=""
  232    S NOAECNT =NOAECNT+1
  233    G GETBFN
  234   END ;
  235    D ^CHMKAE V2
  236    I ION="FI LE" D MOVE   ;TLH 4/2 1/08 DEV00 4416
  237    ;
  238    Q
  239    ;;TLH 4/2 1/08 DEV00 4416 
  240   MOVE 
  241    S ZTRTN=" COPY^CHMKA EV1",ZTDES C="COPY TE XT FILE TO  PC DISK"
  242    S ZTSAVE( "CHFILE")= "",ZTIO=""  D ^%ZTLOA D
  243    ;W !!,"Yo ur file wi ll now be  copied to  FS3BIG: "
  244    ;W "\\ DNS     FS3\FS3BIG \",CHFILE, ".TXT" Q
  245   COPY S CHC OM="HAC_HF S$:[DSMMAN AG]DHCPCOP Y.COM"
  246    S CHVAL=" /NOLOG/QUE UE=SYS$BAT CH"
  247    S CHPAR=C HFILE_".TX T"
  248    ;S X=$ZF( -1,"SUBMIT  CHCOM,CHV AL,CHPAR")
  249    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR)    ;SKD
  250    S CHPAR=" HACFS3"" DNS     COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R)     ;SKD
  251    S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]TEMP.TMP  "_CHPAR)
  252    S X=$ZF(- 1,"DELE HA C_HFS$:[TM P]TEMP.TMP ;*")
  253    Q
  254    ;;TLH 4/2 1/08 DEV00 4416
  255    ; DEVICE
  256    ;W !,"    COUNT=",CN T
  257    Q
  258    Q