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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 254 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 4 | |
91 | ;S X=$ZF( -1,CHTMP) ;DEV0 12893-08 Y JK Mar 201 4 | |
92 | ;X ^%ZOSF ("UCI") S CHUCI=$P(Y ,",",1) ;DEV0 12893-08 Y JK Mar 201 4 | |
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 4 | |
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 4 | |
95 | S FOLDER= "/FS3BIG" ;DEV0 12893-08 Y JK Mar 201 4 | |
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.