217. EPMO Open Source Coordination Office Redaction File Detail Report

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

217.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMSIELG.m Mon Nov 5 16:44:02 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMSIELG.m Mon Nov 5 17:51:30 2018 UTC

217.2 Comparison summary

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

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

217.4 Active regular expressions

No regular expressions were active.

217.5 Comparison detail

  1   CHMSIELG ; CVA/AEB;CR EATE A FIL E WITH SPO N INELIG/B ENE'S WITH  PERIODS;7 -20-05
  2    ;;1.0
  3    ;THIS IS  A COPY OF  CHMG43WI A ND MODIFIE D TO 
  4    ;SAVE EOB 'S OF ALL  FACILITIES  TO  DNS     FS3\CITI_E OB
  5    ;
  6    ;;DEV0128 93-08 YJK  Mar 2014 
  7    U 0 W !," REPORT WIL L PRINT TO  FS3BIG WI TH A NAME  OF: SPON_I NELIG_PRT. TXT",!! 
  8   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  9    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  10    D HOME^ZI S
  11    S ZTRTN=" CALC^CHMSI ELG",ZTDES C="CHAMPVA  BENE'S WI TH PERIODS  AND SPON  INELIG",ZT IO=""
  12    D ^%ZTLOA D
  13    W !!,"YOU R TASK NUM BER IS : " ,ZTSK
  14    ;D CALC^C HMSIELG
  15   QEND K CHF Y,ION
  16    ;K ^CHMZH OLD($J)
  17    Q
  18   CALC  ;
  19    I '$D(DT)  D NOW^%DT C S DT=X
  20    S DFN=0 K  CHMZHOLD( $J,"SPON_I NELIG")
  21   B1 S DFN=$ O(^AHCHVA( "AS","I",D FN)) G:'DF N PRT
  22    G:'$D(^AH CHVA(DFN,0 )) B1
  23    S SREC=^A HCHVA(DFN, 0)
  24    S CHSNAM= $P(SREC,"^ ",1) G:CHS NAM="" B1
  25    G:CHSNAM[ "(SN)" B1   ;SKIP IF  STUB NAME  SPONSOR
  26    G:$D(^AHA DIC(554804 .07,"B",CH SNAM)) B1   ;SKIP IF  DELETED SP ONSOR
  27    I $P(SREC ,"^",5)'=" I" G B1
  28    S CHSST=$ P(SREC,"^" ,5)
  29    S CHSST1= "INELIGIBL E"
  30    I CHSST=" E" S CHSST 1="ELIGIBL E"
  31    I CHSST=" PR" S CHSS T1="PENDIN G REVIEW"
  32    I CHSST=" U" S CHSST 1="UNKNOWN "
  33    S BFN=0
  34   B2 S BFN=$ O(^AHCHVA( DFN,100,BF N)) G:'BFN  B1
  35    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  B2 S BREC =^AHCHVA(D FN,100,BFN ,0)
  36    S CHBNAM= $P(BREC,"^ ",1) G:CHB NAM="" B2
  37    G:CHSNAM[ "(SN)" B1   ;SKIP IF  STUB NAME  SPONSOR
  38    S CHBSTAT =$P(BREC," ^",5)
  39    S CHBSSN= $P(BREC,"^ ",9)
  40    G:$D(^AHA DIC(554804 .07,"B",CH BNAM)) B2
  41    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) B2
  42    S CHB109D T=99999999
  43   B3 S CHB10 9DT=$O(^AH CHVA(DFN,1 00,BFN,109 ,CHB109DT) ,-1) G:'CH B109DT B2
  44    S CHE109D T=9999999
  45    S CHE109D T=$O(^AHCH VA(DFN,100 ,BFN,109,C HE109DT),- 1) G:'CHE1 09DT B2
  46    S CHBSTAT 1="ELIGIBL E-ACTIVE"
  47    I CHBSTAT ="D" S CHB STAT1="INE LIGIBLE"
  48    I CHBSTAT ="PS" S CH BSTAT1="PE NDING REVI EW"
  49    I CHBSTAT ="PR" S CH BSTAT1="PE NDING DEER S ACC"
  50    I CHBSTAT ="PC" S CH BSTAT1="PE NDING DEER S DATA CON FLICT"
  51    I CHBSTAT ="T" S CHB STAT1="SEN T TO DEERS "
  52    I CHBSTAT ="U" S CHB STAT1="UNK NOWN"
  53    I CHBSTAT ="SF" S CH BSTAT1="SE LF"
  54    I CHBSTAT ="PW" S CH BSTAT1="PE NDING HAC  VALIDATION "
  55    D CLM
  56    S ^CHMZHO LD($J,"SPO N_INELIG", DFN,BFN)=C HBNAM_"^"_ CHSNAM_"^" _CHBSSN_"^ "_CHBSTAT1 _"^"_CHSST 1_"^"_CHB1 09DT_"^"_C HE109DT_"^ "_CLMFLG_" ^"_CHCLMAM T
  57    G B2
  58   PRT ;
  59    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) S T =$C(9)
  60    I CHUCI = "HAC" S IO FILE="HAC_ HFS$:[SCR. TEMP_FILES ]SPON_INEL IG_PRT.TXT "
  61    I (CHUCI= "TST")!(CH UCI="DEV")  S IOFILE= "HAC_HFS$: [DSMMANAG. CHAMPVA]SP ON_INELIG_ PRT.TXT"   ;JUST FOR  DEV
  62    ;O IOFILE :"NWS"                                                          ; DEV012893- 08 YJK Mar  2014 
  63    S FILE="S PON_INELIG _PRT.TXT"                                            ; DEV012893- 08 YJK Mar  2014 
  64    S IOFILE= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LE                             ; DEV012893- 08 YJK Mar  2014 
  65    I UCI'="H AC" S IOFI LE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILE                             ;DEV012 893-08 YJK  Mar 2014 
  66    S X=$ZF(- 1,"DELETE  "_IOFILE_" ;*")                                      ; DEV012893- 08 YJK Mar  2014 
  67    X "D $SYS TEM.Proces s.SetZEOF( 1)"                                       ; DEV012893- 08 YJK Aug  2015
  68    I '$$OPEN FIWR^CHTFL IB9(.IOFIL E,"IOFILE" ) G CLS                        ; DEV012893- 08 YJK Mar  2014 
  69    D HEAD
  70    I '$D(^CH MZHOLD($J, "SPON_INEL IG")) U IO FILE W !," NO DATA FO UND" G CLS
  71    S DFN=1
  72   PRT1 S DFN =$O(^CHMZH OLD($J,"SP ON_INELIG" ,DFN)) G:' DFN CLS
  73    S BFN=0
  74   PRT2 S BFN =$O(^CHMZH OLD($J,"SP ON_INELIG" ,DFN,BFN))  G:'BFN PR T1
  75    S CHBNAME =$P(^CHMZH OLD($J,"SP ON_INELIG" ,DFN,BFN), "^",1)
  76    S CHBSSN= $P(^CHMZHO LD($J,"SPO N_INELIG", DFN,BFN)," ^",3)
  77    S CHSNAME =$P(^CHMZH OLD($J,"SP ON_INELIG" ,DFN,BFN), "^",2)
  78    S CHBSTAT =$P(^CHMZH OLD($J,"SP ON_INELIG" ,DFN,BFN), "^",4)
  79    S CHSSTAT =$P(^CHMZH OLD($J,"SP ON_INELIG" ,DFN,BFN), "^",5)
  80    S CHFLG=$ P(^CHMZHOL D($J,"SPON _INELIG",D FN,BFN),"^ ",8)
  81    S:CHFLG=0  CHFLG="NO " S:CHFLG= 1 CHFLG="Y ES"
  82    S CHCLMAM T=$P(^CHMZ HOLD($J,"S PON_INELIG ",DFN,BFN) ,"^",9)
  83    U IOFILE  W CHSNAME_ T_CHSSTAT_ T_CHBNAME_ T_CHBSSN_T _CHBSTAT_T _CHFLG_T_C HCLMAMT,!
  84    G PRT2
  85   CLS
  86    ;C IOFILE  H 5                                                              ;DEV012893 -08 YJK Ma r 2014   
  87    D CLOSEF^ CHTFLIB9(I OFILE,"IOF ILE") H 5                                   ;DEV012893 -08 YJK Ma r 2014 
  88    X "D $SYS TEM.Proces s.SetZEOF( 1)"                                         ;DEV012893 -08 YJK Au g 2015                            
  89   END ;
  90    ;S CHTMP= "SET PROTE CTION=(W:R WED) "_IOF ILE                                                         ;DEV0 12893-08 Y JK Mar 201
  91    ;S X=$ZF( -1,CHTMP)                                                                                    ;DEV0 12893-08 Y JK Mar 201
  92    ;X ^%ZOSF ("UCI") S  CHUCI=$P(Y ,",",1)                                                                ;DEV0 12893-08 Y JK Mar 201
  93    ;I CHUCI= "HAC" S X= $ZF(-1,"SU BMIT HAC_H FS$:[SCR.T EMP_FILES] REC_COPY.C OM/PARAM=( "_IOFILE_" )")  ;DEV0 12893-08 Y JK Mar 201
  94    ;I (CHUCI ="DEV")!(C HUCI="TST" ) Q  ;STOP  AND DO NO T MOVE DAT A INTO PRO DUCTION  A EB 2/27/20 07   ;DEV0 12893-08 Y JK Mar 201
  95    S FOLDER= "/FS3BIG"                                                                                    ;DEV0 12893-08 Y JK Mar 201
  96    D FTPFILE ^CHTFLIB9( IOFILE," DNS     fs3. DNS             ",FOLDER," PUT")                                ;DEV012893 -08 YJK Ma r 2014 
  97    Q
  98   END1 ;   
  99    K ALIGN,A NS,CHCI,CH QI,CHVI,CL NM,PROVFL, PRNTFLG,CH EOBDSK,Y
  100    K ^TMP($J ,"CLAIMS") ,^CHMZHOLD ("CITIEOBP RINTED"),^ CHMZHOLD(" ZSKDCITIEO B") ,CHUCI
  101    U 0
  102    Q
  103    ;
  104   HEAD ;
  105    U IOFILE  W "SPONSOR  NAME"_T_" SPONSOR ST ATUS"_T_"B ENE NAME"_ T_"BENE SS N"_T_"BENE  STATUS",!
  106    Q
  107   CLM  ;CHEC K FOR PAID  CLAIMS OV ER $1.00
  108    S CHKDT=+ $E(DT,1,3) -7
  109    S CHKDT=C HKDT_$E(DT ,4,7)  ;AE B 8/30/200 7  7 YEARS  FORM TODA YS DATE
  110    S CLMFLG= 0,CHCLMAMT =0
  111    Q:'$D(^CH MDFN("B",D FN))
  112    S CHDFNPT =0
  113   CLM1 S CHD FNPT=$O(^C HMDFN("B", DFN,CHDFNP T)) Q:'CHD FNPT
  114    Q:'$D(^CH MDFN(CHDFN PT,100,"B" ,BFN))
  115    S CHBFNPT =0
  116   CLM2 S CHB FNPT=$O(^C HMDFN(CHDF NPT,100,"B ",BFN,CHBF NPT)) G:'C HBFNPT CLM 1
  117    G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,100))  CLM2
  118    S CHDCLPT =0
  119   CLM3 S CHD CLPT=$O(^C HMDFN(CHDF NPT,100,CH BFNPT,100, CHDCLPT))  G:'CHDCLPT  CLM2
  120    G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,100,C HDCLPT,0))  CLM3
  121    S CHCLPT= $P(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,100,CHDCL PT,0),"^", 1) G:CHCLP T="" CLM3
  122    G:'$D(^CH MPAY(CHCLP T,0)) CLM3  G:'$D(^CH MPAY(CHCLP T,1)) CLM3  S REC0=^C HMPAY(CHCL PT,0),REC1 =^CHMPAY(C HCLPT,1)
  123    I $P(REC0 ,"^",2)=0  G CLM3 I $ P(REC0,"^" ,2)=10 G C LM3
  124    S CHDOS=$ P(REC0,"^" ,10) G:CHD OS="" CLM3
  125    I CHDOS<C HKDT G CLM 3
  126    I +$P(REC 1,"^",1)<1 .00 G CLM3
  127    S CHCLMAM T=CHCLMAMT +$P(REC1," ^",1)
  128    S:CLMFLG' =1 CLMFLG= 1
  129    G CLM3