121. EPMO Open Source Coordination Office Redaction File Detail Report

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

121.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCAL1.m Mon Nov 5 16:44:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCAL1.m Mon Nov 5 17:48:40 2018 UTC

121.2 Comparison summary

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

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

121.4 Active regular expressions

No regular expressions were active.

121.5 Comparison detail

  1   CHMKCAL1 ; HAC/AHJ;AL L BENE'S W ITH RE-CAL C SWITCH=Y ES
  2    ;;V1.0
  3    ;PROJECT  TRACKING # 1351 BY AH J
  4    ;01/21/20 16 SBB MTN 025039 Add ing Status  Comment t o this rep ort.
  5    ;05/12/20 16 SBB BUG 025039 Fix  the whole  report re move GOTOs  and add F or loop.
  6    ;
  7    W !!,"PLE ASE SELECT  DEVICE FO R PRINTOUT  OR ""FILE "" FOR TEX T FILE ON  FS3BIG: "   ;TLH 4/21 /08 DEV004 416
  8    K %IS,IO( "Q") D ^%Z IS Q:POP   S CHFILE=" "
  9    I ION="FI LE" D  ;TL H 4/21/08  DEV004416
  10    .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG"  ;TLH  4/21/08 D EV004416
  11   A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// "  ;TL H 4/21/08  DEV004416
  12    .D CSBRS^ CHSC2  ;TL H 4/21/08  DEV004416
  13    .Q:$D(DFO UT)  Q:$D( DTOUT)  G: $D(DQOUT)  A ;TLH 4/2 1/08 DEV00 4416
  14    .S CHFILE =Y  ;TLH 4 /21/08 DEV 004416
  15    .I Y["."  W !,"DO NO T ENTER AN  EXTENTION . EXTENTIO N WILL BE  '.TXT'" G  A
  16    .Q:Y=""   ;TLH 4/21/ 08 DEV0044 16
  17    .G:Y'?1.8 AN A  ;TLH  4/21/08 D EV004416
  18    .W !!,"Yo ur file wi ll now be  copied to  FS3BIG: "   ;TLH 4/21 /08 DEV004 416
  19    .W "\\ DNS     FS3\FS3BIG \",CHFILE, ".TXT"    ;TLH 4/21/ 08 DEV0044 16
  20    .S CHFILE =CHFILE_". TXT"
  21    .Q  ;TLH  4/21/08 DE V004416
  22    G:$D(IO(" Q"))!(IO'= IO(0)) QUE UEIT
  23    ;
  24   AAA  ;
  25    S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0
  26    S (LINE,P AGE,BCNT,F MPCNT,YES1 8CNT,NO18C NT)=0
  27    S PAGE=0  S T=$C(9)
  28    S DFN=0,U ="^"
  29    K ^CHMZHO LD("NOTELI G1351")
  30    K ^CHMZHO LD("SB1351 ")
  31    K ^CHMZHO LD("FMP135 1")
  32    N QUIT
  33    S QUIT=0 
  34    I ION="FI LE" D  Q:Q UIT
  35    . X ^%ZOS F("UCI") S  UCI=$P(Y, ",",1)
  36    . I UCI'= "HAC" S CH FILE="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_UCI_C HFILE
  37    . I UCI=" HAC" S CHF ILE="HAC_H FS$:[SCR.T EMP_FILES] "_CHFILE
  38    . I '$$OP ENFIWR^CHT FLIB9(.CHF ILE,"CHFIL E") S QUIT =1 Q
  39    . W !
  40    . Q
  41    D HEAD
  42    D GETDFN, END
  43    Q
  44    ;
  45    ;
  46    ; NOT CHE CKED FOR A LL ELIGIBL E/ACTIVE B ENE'S ON T ODAY
  47    ;******** ********** ********** ********** ********** *****
  48    ; CHAMPVA  BENE FILE
  49   GETDFN  ;
  50    S DFN=0 F   S DFN=$O (^AHCHVA(D FN)) Q:'DF N  D  
  51    . Q:'$D(^ AHCHVA(DFN ,0))
  52    . S SPON= ^AHCHVA(DF N,0)
  53    . Q:'$D(^ AHCHVA(DFN ,1))
  54    . S SPON1 =^AHCHVA(D FN,1)
  55    . Q:'$D(^ AHCHVA(DFN ,100))
  56    . Q:$D(^A HCHVA("FMP ",DFN))                                           ;SKI P IF FMP
  57    . S TOTDF N=TOTDFN+1
  58    . S BFN=0  F  S BFN= $O(^AHCHVA (DFN,100,B FN)) Q:'BF N  D  
  59    . . Q:$D( ^AHCHVA("S B",DFN,BFN ))                                     ;SKI P IF SPINA  BIFIDA
  60    . . Q:'$D (^AHCHVA(D FN,100,BFN ,0))
  61    . . Q:$P( ^AHCHVA(DF N,100,BFN, 0),"^",4)= "SF"
  62    . . S TOT CNT=TOTCNT +1
  63    . . Q:'$D (^AHCHVA(D FN,100,BFN ,0))
  64    . . ;TEST  FOR RE-CA LC SWITCH
  65    . . Q:'$D (^AHCHVA(D FN,100,BFN ,8))
  66    . . S CAL CSW=$P(^AH CHVA(DFN,1 00,BFN,8), U,1)
  67    . . Q:CAL CSW'=1
  68    . . S NAM LAB=^AHCHV A(DFN,100, BFN,0)
  69    . . ;
  70    . . N BEN ESTAT,STAT RESN
  71    . . S (BE NESTAT,STA TRESNS,STA TRESNB)=""
  72    . . S STA TRESNS=$S( $P(^AHCHVA (DFN,100,B FN,0),U,12 )'="":12,$ P(^AHCHVA( DFN,100,BF N,0),U,13) '="":13,1: "")
  73    . . ;S ST ATRESNS=$S (:$P(^AHAD IC(554801. 7,$P(^AHCH VA(DFN,100 ,BFN,0),U, 12),0),U,2 ),STATRESN S=13:$P(^A HADIC(5548 01.6,$P(^A HCHVA(DFN, 100,BFN,0) ,U,13),0), U,2),1:"")
  74    . . I STA TRESNS=12  D  
  75    . . . S S TATRESNS=$ O(^AHADIC( 554801.7," B",$P(^AHC HVA(DFN,10 0,BFN,0),U ,12),""))
  76    . . . S S TATRESNS=$ P(^AHADIC( 554801.7,S TATRESNS,0 ),U,2)
  77    . . . Q
  78    . . I STA TRESNS=13  D  
  79    . . . S S TATRESNS=$ O(^AHADIC( 554801.6," B",$P(^AHC HVA(DFN,10 0,BFN,0),U ,13),""))
  80    . . . S S TATRESNS=$ P(^AHADIC( 554801.6,S TATRESNS,0 ),U,2)
  81    . . . Q
  82    . . S BEN ESTAT=$P(N AMLAB,U,5)
  83    . . I BEN ESTAT'=""  D  
  84    . . . S B ENESTAT=$S (BENESTAT= "EA":"ELIG IBLE-ACTIV E",BENESTA T="D":"INE LIGIBLE",1 :BENESTAT)
  85    . . . S B ENESTAT=$S (BENESTAT= "PS":"PEND ING-REVIEW ",BENESTAT ="PR":"PEN DING DEERS  ACCEPTANC E",1:BENES TAT)
  86    . . . S B ENESTAT=$S (BENESTAT= "PC":"PEND ING DEERS- DATA CONFL ICT",BENES TAT="T":"S ENT TO DEE RS-UNEDITA BLE",1:BEN ESTAT)
  87    . . . S B ENESTAT=$S (BENESTAT= "U":"UNKNO WN",BENEST AT="SF":"S ELF",1:BEN ESTAT)
  88    . . . S B ENESTAT=$S (BENESTAT= "PW":"PEND ING HAC VA LIDATION", BENESTAT=" SF":"SELF" ,1:BENESTA T)
  89    . . . S B ENESTAT=$S (BENESTAT= "REN":"RE- ENROLLED", BENESTAT=" DIS":"DISE NROLLED",1 :BENESTAT)
  90    . . . S B ENESTAT=$S (BENESTAT= "DL":"DELE TED",1:BEN ESTAT)
  91    . . . Q                  
  92    . . S SPO NNAME=$P(S PON,U,1)
  93    . . S SPO NSSN=$P(SP ON,U,9)
  94    . . S BEN ENAME=$P(N AMLAB,U,1)
  95    . . S BEN ESSN=$P(NA MLAB,U,9)
  96    . . S BEN EDOB=$P(NA MLAB,U,3)
  97    . . S Y=B ENEDOB D D D^%DT S PB ENEDOB=Y
  98    . . S BEN EACSW="YES "
  99    . . ; FIN D ALL DATE S FOR PERI ODS OF ELI GIBILITY
  100    . . I ION '="FILE" W  !!,DFN,"  ",BFN  ;TL H 5/15/08  DEV004416
  101    . . S PSP ONSSN=$E(S PONSSN,1,3 )_"-"_$E(S PONSSN,4,5 )_"-"_$E(S PONSSN,6,9 )
  102    . . I ION '="FILE" W  !,SPONNAM E,?26,PSPO NSSN  ;TLH  5/15/08 D EV004416
  103    . . I ION ="FILE"  U  CHFILE W  !,SPONNAME _T_PSPONSS N  ;TLH 5/ 15/08 DEV0 04416
  104    . . S PBE NESSN=$E(B ENESSN,1,3 )_"-"_$E(B ENESSN,4,5 )_"-"_$E(B ENESSN,6,9 )
  105    . . I ION '="FILE" W  !,BENENAM E,?26,PBEN ESSN,?40,P BENEDOB    ;TLH 5/15/ 08 DEV0044 16
  106    . . I ION ="FILE"  U  CHFILE W  !,BENENAME _T_PBENESS N_T_PBENED OB  ;TLH 5 /15/08 DEV 004416
  107    . . I ION '="FILE" W  ?54,STATR ESNS
  108    . . I ION ="FILE" U  CHFILE W T _STATRESNS
  109    . . S J1= 9999999 F   S J1=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1),-1)  Q:'J1  D   
  110    . . . S J 2=0 F  S J 2=$O(^AHCH VA(DFN,100 ,BFN,109,J 1,J2)) Q:' J2  D  
  111    . . . . S  Y=J1 D DD ^%DT S PJ1 =Y
  112    . . . . S  Y=J2 D DD ^%DT S PJ2 =Y
  113    . . . . I  ION'="FIL E" W !,?54 ,PJ1,?66," -",PJ2  ;T LH 5/15/08  DEV004416
  114    . . . . I  ION="FILE " U CHFILE  W !,T_T_T _PJ1_" - " _PJ2  ;TLH  5/15/08 D EV004416 
  115    . . . . S  LINE=LINE +1
  116    . . . . Q
  117    . . . Q
  118    . . D OUT
  119    . . Q
  120    . Q
  121    ;END GETD FN
  122    Q
  123    ;
  124   OUT ;
  125    ; NEXT TH REE LINES  DELIMITED  WITH TAB D ELIMITED
  126    ;I ION=FI LE S TEMP= SPONNAME_T _SPONSSN_T _BENENAME_ T_BENESSN_ T_BENEDOB_ T_BENEACSW _T_PJ1_T_P J2  ;TLH 5 /15/08
  127    I ION'="F ILE" I LIN E>35 D HEA D  ;TLH 5/ 14/08 RESO LVE BUG 
  128    S LINE=LI NE+3
  129    S CNT=CNT +1
  130    I ION="FI LE" U CHFI LE W !
  131    ;G GETBFN
  132    Q
  133   HEAD ;
  134    I ION="FI LE" D  Q   ;TLH 5/15/ 08 DEV0044 16
  135    .S PAGE=P AGE+1  ;TL H 5/15/08  DEV004416
  136    .U CHFILE  W !,"HEAL TH ADMINIS TRATION CE NTER"_T_"P AGE"_T_PAG E  ;TLH 5/ 15/08 DEV0 04416 
  137    .U CHFILE  W !,"BENE FICIARY AU TO-CALC RE PORT"  ;TL H 5/15/08  DEV004416
  138    .;W !,"NA ME"_T_"SSN "  ;TLH 5/ 15/08 DEV0 04416
  139    .U CHFILE  W !,"NAME "_T_"SSN"_ T_T_"STATU S COMMENT"   ;SBB 1/2 1/16 
  140    .U CHFILE  W !,"SPON SOR/BENE"_ T_"SPONSOR /BENE"_T_" BENE DOB"_ T_"ELIGIBI LITY PERIO DS"  ;TLH  5/15/08 DE V004416
  141    .Q  ;TLH  5/15/08 DE V004416
  142    S LINE=0
  143    S PAGE=PA GE+1
  144    S TITLE=" HEALTH ADM INISTRATIO N CENTER"
  145    S TAB=80- $L(TITLE)/ 2
  146    W #,DUZ,? TAB,TITLE, ?60,"Page:   ",PAGE
  147    S TITLE=" BENEFICIAR Y AUTO-CAL C REPORT"
  148    S Y=DT D  DD^%DT S T ODAY=Y
  149    W !,TODAY ,?(80-$L(T ITLE)/2),T ITLE
  150    ;W !!!,"N AME",?26," SSN"
  151    W !!!,"NA ME",?26,"S SN",?54,"S TATUS COMM ENT"   ;SB B 1/21/16
  152    W !,"SPON SOR/BENE", ?26,"SPONS OR/BENE"
  153    W ?40,"BE NE DOB",?5 4,"ELIGIBI LITY PERIO DS"
  154    W !,"---- ---------- -------      -------- ---   ---- --------   ---------- ---------- ------"
  155    Q
  156    ;
  157   QUEUEIT ;
  158    S ZTDTH=$ H
  159    S ZTRTN=" AAA^CHMKCA L1"
  160    S ZTDESC= "Beneficia ry Auto Ca lc Report"
  161    S ZTSAVE( "CHFILE")= ""
  162    S ZTSAVE( "*")=""
  163    D ^%ZTLOA D
  164    ;D AAA^CH MKCAL1
  165    W !!?5,"R eport Queu ed!"
  166    D HOME^%Z IS Q
  167    Q
  168   END ;
  169    K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2
  170    K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS
  171    I ION="FI LE" D  Q
  172    . D CLOSE F^CHTFLIB9 (CHFILE,"C HFILE")
  173    . D MOVE   ;TLH 4/21 /08 DEV004 416
  174    . Q
  175    ;
  176    W !,"COUN T = ",CNT
  177    Q
  178    ;;TLH 4/2 1/08 DEV00 4416 
  179   MOVE 
  180    ;S ZTRTN= "COPY^CHMK CAL1",ZTDE SC="COPY T EXT FILE T O PC DISK"
  181    ;S ZTSAVE ("CHFILE") ="",ZTIO=" " D ^%ZTLO AD
  182    ;COPY S C HCOM="HAC_ HFS$:[DSMM ANAG]DHCPC OPY.COM"
  183    ;S CHVAL= "/NOLOG/QU EUE=SYS$BA TCH"
  184    ;S CHPAR= CHFILE_".T XT"
  185    ;S X=$ZF( -1,"SUBMIT  CHCOM,CHV AL,CHPAR")
  186    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR)    ;SKD
  187    ;S CHPAR= "HACFS3"" DNS     COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R)    ;SKD
  188    ;S X=$ZF( -1,"COPY H AC_HFS$:[T MP]TEMP.TM P "_CHPAR)
  189    ;S X=$ZF( -1,"DELE H AC_HFS$:[T MP]TEMP.TM P;*")
  190    ;S CHFILE =CHFILE_". TXT"
  191    ;S X=$ZF( -1,"COPY H AC_HFS$:[D SMMANAG]"_ CHFILE_" H AC_HFS$:[S CR.TEMP_FI LES]"_CHFI LE)
  192    H 5
  193    ;S CHFILE ="HAC_HFS$ :[SCR.TEMP _FILES]"_C HFILE
  194    D FTPFILE ^CHTFLIB9( CHFILE," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  195    Q
  196    ;;TLH 4/2 1/08 DEV00 4416