63. EPMO Open Source Coordination Office Redaction File Detail Report

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

63.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHL3030.m Mon Nov 5 16:43:30 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHL3030.m Mon Nov 5 17:41:44 2018 UTC

63.2 Comparison summary

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

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

63.4 Active regular expressions

No regular expressions were active.

63.5 Comparison detail

  1   CHL3030  ; AHJ/DEN;SE LECT VETS  WITH DIC R EASON FOR  REPORT
  2    ;V1.1
  3    ;
  4    ;OUTPUT L IST ON FS3 BIG
  5    ;
  6    ; MODIFIC ATIONS         CR
  7    ; PN 09-1 9-2007                           DEV003030- 01
  8    ; IDENTIF IED BY IDE NTIFIER 00 1
  9    ;
  10    ;
  11    S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0
  12    S (BCNT,F MPCNT,YES1 8CNT,NO18C NT,FCNT,DC NT)=0
  13    S PG=1
  14    S DFN=0,U ="^"
  15    S SFILENO =""
  16    S T=$C(9)
  17    S PDAMT=0
  18    S PCNT=0  ;001 PROCE SSING COUN TER
  19    ;001 COMM ENTED OUT  THE DEVICE  AND FILE  AND WILL M OVE THEM T O THERE OW N LINE TAG  
  20    ;EVERTHIN G HAS BEEN  PROCESSED .  THIS WI LL REDUCE  PROCESS TI ME AS THE  FILE WILL
  21    ;NOT HAVE  TO BE OPE N THE WHOL E TIME THE  FILE IS R UNNING
  22    ;S DEVICE  ="HACFS3" " DNS     decnet HAC dec741!"": :D:[FS3BIG ]DICMAILIN FO.TXT"
  23    ;O DEVICE  C DEVICE: "D"
  24    ;O DEVICE :"NWV" ;st art at fro nt of file
  25    ;
  26    ;O FIO:"A WU" ;add o n to last  file
  27    K ^CHMZHO LD("NAME-A DD3030")
  28    K ^CHMZHO LD("NO18CL AIM3030")
  29    K ^CHMZHO LD("YES5YR CLAIM3030" )
  30    K ^CHMZHO LD("NOTELI G3030")
  31    K ^CHMZHO LD("SB3030 ")
  32    K ^CHMZHO LD("FMP303 0")
  33    K ^CHMZHO LD("NOCLAI M3030")
  34    K ^CHMZHO LD("CHL303 0") ;001 N EW TEMP GL OBAL
  35    ;
  36    S EA="DIE D ON ACTIV E DUTY",EB ="DIED WHI LE P&T ",E C="DIED OF  SC DISABI LITY",ED=" P&T/PERM &  TOTL DISA BL",EE="DV B TAPE",EF ="MIL RET  DIET WHILE  P&T",EG=" DIE/P&T WH ILE ROTC"
  37    ;
  38   A1 ;
  39    ;FIND TOD AYS DATE F OR AGE TES T
  40    D NOW^%DT C S RUNTIM E=%
  41    S Y=$E(RU NTIME,1,7)
  42    S CHDATE= Y
  43    ;  5 YEAR S BACK = 1 826 DAYS C LAIMS
  44    ;CHANGE N EXT LINE F OR NUMBER  OF DAYS (Y RS) BACK T O LOOK AT  CLAIMS
  45    S X1=CHDA TE S X2=-1 826 D C^%D TC S STRDA T=X
  46    ;
  47    ;S DFN=97 56
  48    ;
  49    S TODAY=C HDATE ;TOD AYS DATE
  50    S DAT18=S TRDAT ;STA RT DATE
  51    ;001 CHAN GED TO CAL L OUTPUT L INE TAG WH ICH WILL C ALL END PR OCESS RETU RNED HERE
  52    ;D GETDFN ,END
  53    D GETDFN, OUTPUT
  54    Q      ;0 01 END OF  ROUTINE
  55    ;
  56    ;******** ********** ********** ********** ********** *****
  57   GETDFN S D FN=$O(^AHC HVA(DFN))  I DFN="" Q
  58    G:'$D(^AH CHVA(DFN,1 00)) GETDF N
  59    I '$D(^AH CHVA("DIC" ,DFN)) G G ETDFN      ;001 MOVED  CODE UP I F NOT "DIC " THEN GET  NEXT
  60    S SPON0=^ AHCHVA(DFN ,0)
  61    ;I $P(SPO N0,U,15)'= "" G GETDF N ;001 NO  3884 FILES
  62    S SPON109 =$G(^AHCHV A(DFN,109, 1,0))
  63    I $P(SPON 109,U,1)'= "" G GETDF N
  64    ;I $P(SPO N109,U,4)' ="" G GETD FN
  65    S RETRN=0
  66    D INELREA       ;CHE CK FOR INE LIGIBLE RE ASON
  67    I RETRN=1  G GETDFN
  68    S SNAME=$ P(SPON0,U, 1) ; SPONS OR NAME
  69    S SSSN=$P (SPON0,U,9 ) ;SPONSOR  SSN
  70    S SFILENO =$P(SPON0, U,7)
  71    I SFILENO ="" G GETD FN
  72    ;001 TOOK  OUT CAUSE  THERE IS  NO RECORD  OF THIS IN  PRODUCTIO N SO THIS  WOULD NEVE R RUN NOT
  73    ;SURE WHY  IT IS IN  THIS ROUTI NE OTHER T HAN A COMP ARE
  74    ;I '$D(^C HMZHOLD("C -FILE-NO-3 030",SFILE NO)) G GET DFN
  75    S SREAS=$ P(SPON0,U, 14)
  76    S PCNT=PC NT+1
  77    I PCNT=1  W "Process ing"
  78    I PCNT#50 0=0 W "."
  79    ;NEED TO  COPY NEXT  FILE TO TE MP FILE FO R NEXT LIN E MATCH
  80    ;
  81    G:'$D(SFI LENO) GETD FN
  82    ;
  83    ;MATCH BE NE C-FILE  NO TO DIC  FILE HERE
  84    ;001 DONT  NEED TO W RITE OUT T O SCREEN C OMMENTING  OUT
  85    ;W !,"SPO NSOR  CFIL E NO =",SF ILENO
  86    ;001 MOVE D CODE UP  IF NOT "DI C" THEN GE T NEXT
  87    ;I '$D(^C HMZHOLD("C -FILE-NO-3 030",SFILE NO)) G GET DFN
  88    ;I '$D(^A HCHVA("DIC ",DFN)) G  GETDFN
  89    ;NEXT TWO  LINE FOR  TEST ONLY  ++++++++++ ++++++++++ ++++++++
  90    ;W !,"                           MATCH=",S FILENO
  91    ;G GETDFN
  92    ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++++ +++++
  93    ;
  94    S TOTDFN= TOTDFN+1
  95    S BFN=0
  96    ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++++ +++++
  97   GETBFN ;GE TS THE BFN
  98    S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN G ETDFN
  99    ; ELIMINA TE SPINA B IFIDA AND  FMP
  100    G SB:$D(^ AHCHVA("SB ",DFN,BFN) )
  101    G FMP:$D( ^AHCHVA("F MP",DFN))
  102    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  103    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109
  104    S TOTCNT= TOTCNT+1
  105    ;001 NOT  SURE WHY T HE FOLLOWI NG 6 LINES  OF CODE A RE HERE? T HESE ELIGI BLE DATES  ARE
  106    ;NOT THE  DATES THAT  ARE ON TE H CR FOR T ODAY TO 5  YEARS BACK  SO I AM C OMMENTING  OUT
  107    S J1=9999 9999
  108   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1),- 1) Q:'J1
  109    S J2=0
  110    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 G2
  111    ;
  112    ;
  113    G:J1>CHDA TE NOTELIG
  114    G:J2<CHDA TE NOTELIG
  115    ;
  116    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETDFN
  117    S NAMLAB= ^AHCHVA(DF N,100,BFN, 0)
  118    S BNAME=$ P(NAMLAB,U ,1) ;BENE  NAME
  119    S BSSN=$P (NAMLAB,U, 9) ;BENE S SN
  120    ;
  121   C1 ;NEED T O FIND CLA IMS FROM S TART DATE  TO TODAY F OR THIS BE NE
  122    S YAECNT= YAECNT+1
  123   L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G GET DFN:'CHDFN I
  124    ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J
  125    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G NOCL M:'CHDFNJ
  126    ;S CHDFNK =99999999
  127    S CHDFNK= 0
  128   LOOP ;W !, "   LOOP    ",DFN,"    =  ",CHDF NK
  129    ;S CHDFNK =$O(^CHMDF N(CHDFNI,1 00,CHDFNJ, 100,CHDFNK ),-1) G:'C HDFNK NOCL M
  130    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ) G:'CHDFN K OK ;AFTE R LAST CLA IM
  131    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N
  132    G L3
  133   MAIN ;
  134    S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0)
  135    G LOOP:'$ D(^CHMPAY( CLAIMNO,0) )
  136    ;
  137    ;CONVERT  PDI TO CLA IM FILED D ATE
  138    S PDIJ=""
  139    S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1)
  140    G:PDIJ=""  LOOP
  141    ;W !,DFND ATA
  142    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  143    ;
  144    ; ******* ********** *********
  145    G:TFMDT<S TRDAT NO18 CLM ;001 D ATE RANGE  OF TODAY
  146    G:TFMDT>T ODAY NO18C LM  ;MINUS  5 YEARS B ACK
  147   M1 ;
  148    S CLAIMDA T=TFMDT
  149    ;
  150    ; Accept  Bene with  claims dat e between  start/toda y
  151    G:'$D(^CH MPAY(CLAIM NO,1)) LOO P
  152    S CLMREC= ^CHMPAY(CL AIMNO,1)
  153    S CLMAMT= $P(CLMREC, U,1)
  154    S PDAMT=P DAMT+CLMAM T
  155    G LOOP
  156   OK ;
  157    S PPDAMT= $J(PDAMT,1 2,2)
  158    I PDAMT'> .99 G GETB FN
  159    I SREAS=1  S PREAS=E A
  160    I SREAS=2  S PREAS=E B
  161    I SREAS=3  S PREAS=E C
  162    I SREAS=4  S PREAS=E D
  163    I SREAS=5  S PREAS=E E
  164    I SREAS=6  S PREAS=E F
  165    I SREAS=7  S PREAS=E G
  166    ;S TMPS=S NAME_T_SSS N_T_PREAS_ T_BNAME_T_ BSSN_T_PPD AMT
  167    ;001 COMM ENTED OUT  THE LINE A BOVE TO AN D REPLACED  WITH LINE  BELOW TO  SET INFO I NTO TMP
  168    ;GLOBAL T O WRITE OU T TO THE F ILE FROM T HE OUTPUT  LINE TAG
  169    S ^CHMZHO LD("CHL303 0",DFN,BFN )=SNAME_U_ SSSN_U_PRE AS_U_BNAME _U_BSSN_U_ PPDAMT
  170    ;W !,DFN, " ",BFN,"  ",SNAME,"  ",SSSN," " ,SREAS," " ,BNAME," " ,BSSN," ", PPDAMT
  171    ;U DEVICE  W !,TMPS  **001 COMM ENTED OUT  WRITTING I N OUTPUT S ECTION
  172    S ^CHMZHO LD("YES5YR CLAIM3030" ,DFN,BFN)= DFN_U_BFN_ U_SNAME_U_ SSSN_U_PRE AS_U_BNAME _U_BSSN_U_ PPDAMT_U
  173    S ^CHMZHO LD("YES5YR CLAIMFILEN O",SFILENO ,CNT)=DFN_ U_BFN_U
  174    S PDAMT=0
  175    S CNT=CNT +1
  176    G GETBFN
  177    Q
  178   SB ;
  179    ;W !,"SB=  ",DFN," " ,BFN
  180    S SBCNT=S BCNT+1
  181    S ^CHMZHO LD("SB3030 ",DFN,BFN) =""
  182    G GETBFN
  183   FMP ;
  184    S FMPCNT= FMPCNT+1
  185    S ^CHMZHO LD("FMP303 0",DFN,BFN )=""
  186    G GETBFN
  187   NO109 ;
  188    S CNT109= CNT109+1
  189    G GETBFN
  190   NOCLM ;
  191    S NOCLM=N OCLM+1
  192    S ^CHMZHO LD("NOCLAI M3030",DFN ,BFN)=""
  193    G GETBFN
  194   NO18CLM ;
  195    S NO18CNT =NO18CNT+1
  196    ;W !,"NO  CLAIMS 18  MOS                            " ,DFN," ",B FN," ",TFM DT
  197    S ^CHMZHO LD("NO18CL AIM3030",D FN,BFN)=""
  198    G LOOP
  199    ;
  200   NOTELIG ;
  201    ;W !,"          NOT  ELIG DATES       ",DF N," ",BFN, " ",J1," " ,J2
  202    S ^CHMZHO LD("NOTELI G3030",DFN ,BFN)=""
  203    S NOAECNT =NOAECNT+1
  204    G GETBFN
  205   OUTPUT ;00 1 OUTPUT S ECTION WIL L SEND THE  INFO TO T HE FILE
  206    S DEVICE  ="HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]DICMAILIN FO.TXT"
  207    O DEVICE  C DEVICE:" D"
  208    O DEVICE: "NWV" ;sta rt at fron t of file
  209    S DFN=0
  210    F  S DFN= $O(^CHMZHO LD("CHL303 0",DFN)) Q :DFN=""  D
  211    . S BFN=0
  212    . F  S BF N=$O(^CHMZ HOLD("CHL3 030",DFN,B FN)) Q:BFN =""  D
  213    .. S FILE =$G(^CHMZH OLD("CHL30 30",DFN,BF N))
  214    .. S TMPS =$TR(FILE, "^",T)       ;001 TRA NSLATES "^ " TO TAB
  215    .. U DEVI CE W !,TMP S
  216    .. Q
  217    .Q
  218    D END
  219    Q
  220   END ;
  221    ;C FIO  * * 001 COMM ENTED OUT   NO FILE C ALLED FIO
  222    C DEVICE
  223    ;W !,"DAT E = ",STRD AT
  224    W !,"TOTA L COUNT =  ",CNT
  225    K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2
  226    K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U
  227    Q
  228    ;
  229   INELREA ;I NELIGIBLE  REASON
  230    S J=0,CHI NEL="",TST REA=""
  231    F  S J=$O (^ACHHVA(D FN,100,J))  Q:J=""  D
  232    . S CHINE L=$P(^ACHH VA(DFN,100 ,J,0),"^", 12)
  233    . S TSTRE A=^(AHADIC (554801.7, "B",CHINEL ,TSTREA))
  234    . I TSTRE A=12 S RET RN=1
  235    . Q
  236    Q
  237