Produced by Araxis Merge on 11/9/2018 12:33:56 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 | CHMG43WA.m | Mon Nov 5 16:40:30 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMG43WA.m | Mon Nov 5 17:47:21 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 294 |
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 | CHMG43WA ; CVA/SKD;AL L EOB PRIN T (to DNS FS3\CITI_E OB) PER BA TCH # & FA CILITY;7-2 0-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 | ;JSG;12/1 8/08;DEV00 6308;Separ ate Paid a nd Denied EOBs into two (2) di fferent ou tput files ; | |
7 | U 0 | |
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^%Z IS | |
11 | ; | |
12 | S CHEOBDS K=1 | |
13 | S CHINFO= 1 ; Print "no check" message f or manual eob. | |
14 | S U="^",A LIGN=0,CHV IM="" K ZT SK | |
15 | A W @IOF S CHQI="" K ^TMP($J," CLAIMS"),^ CHMZHOLD(" CITIEOBPRI NTED") ;SKD, 9-23 -05 | |
16 | ;promptin g user for Batch # | |
17 | S DIC("W" )="W "" is from ""_$ $FMTE^XLFD T($P(^(0), ""^"",2)," "5D"")_"" to ""_$$FM TE^XLFDT($ P(^(0),""^ "",3),""5D "")" | |
18 | S DIC=741 030,DIC(0) ="AENQM" D ^DIC S CH BTNUM=+Y W ! ;USING TDA FILE | |
19 | G:Y="" EN D1 G:Y="^" END1 G:Y= -1 END1 | |
20 | K DIC D PSORT ;CR EATE NEW S ORT TO PRI NT EACH ST ATION AEB 1/22/2007 | |
21 | S Z=0 | |
22 | F S Z=$O (^CHMTDA(C HBTNUM,100 ,Z)) G:'Z END1 D | |
23 | .Q:'$D(^C HMTDA(CHBT NUM,100,Z, 0)) | |
24 | .K ^TMP($ J,"CLAIMS" ) | |
25 | .S CHBTIN ST="",CHBT INST=$P($G (^CHMTDA(C HBTNUM,100 ,Z,0)),U,1 ) Q:CHBTIN ST="" | |
26 | .;D PRINT EOB ;Replace d, see bel ow: ;12/18 /08;DEV006 308; | |
27 | .;D END ;Replace d, see bel ow: ;12/18 /08;DEV006 308; | |
28 | .D PRINTE OB(1),END ;Gene rate EOB f iles for p aid claims ;JSG;12/18 /08;DEV006 308; | |
29 | .D PRINTE OB(2),END ;Gen erate EOB files for $0 and den ied claims ;JSG;12/18 /08;DEV006 308; | |
30 | .Q | |
31 | Q | |
32 | ; | |
33 | PRINTEOB(E OB1) ;(EOB generatio n mode);1 = paid cla ims, 2 = $ 0 and deni ed claims; JSG;12/18/ 08;DEV0063 08; | |
34 | K IOFILE | |
35 | K CLMCNT S CLMCNT(E OB1)=0 ;Initi alize clai m counter; JSG;12/18/ 08;DEV0063 08; | |
36 | S CHBMTH= CHBTNUM,CH TMPBT=0 ;T LH 11/7/05 | |
37 | S CHTMPBT =$O(^CHMTD A("B",CHBT NUM,CHTMPB T)) Q:CHTM PBT="" ;T LH 11/7/05 | |
38 | I $D(^CHM TDA(CHTMPB T,0)) D ;T LH 11/7/05 | |
39 | .S CHBMTH =$P(^CHMTD A(CHTMPBT, 0),"^",3) Q:CHBMTH=" " ;T LH 11/16/0 5 | |
40 | .S CHBMTH =$$FMTE^XL FDT(CHBMTH ,"9D") ;T LH 11/7/05 | |
41 | .S CHBYR= $P(CHBMTH, " ",3) ;T LH 11/16/0 5 | |
42 | .S CHBMTH =$$UP^XLFS TR($P(CHBM TH," ",2)) ;T LH 11/16/0 5 | |
43 | .S CHBMTH =CHBMTH_"_ "_CHBYR ;T LH11/16/05 | |
44 | .Q ;T LH 11/7/05 | |
45 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) ;A EB 2/27/20 07 | |
46 | ;I CHUCI ="HAC" S I OFILE="HAC _HFS$:[SCR .CITIEOB]" _CHBMTH_"_ "_CHBTINST _"_"_"EOB. TXT" ; TLH,101805 | |
47 | IF CHUCI= "HAC" { ;C reate Prod uction fil e names;JS G;DEV00630 8; | |
48 | S IOFI LE="HAC_HF S$:[SCR.CI TIEOB]"_CH BMTH_"_"_C HBTINST_"_ " | |
49 | IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" } ;Fi le name fo r paids;JS G;DEV00630 8; | |
50 | ELSE { S IOFILE= IOFILE_"EO BZERO.TXT" } } ;Fi le name fo r zeros;JS G;DEV00630 8; | |
51 | ;I (CHUCI ="TST")!(C HUCI="DEV" ) S IOFILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]T EST_"_CHBM TH_"_"_CHB TINST_"_"_ "EOB.TXT" ;JUST FOR DEV AEB 2/27/2007 | |
52 | ELSE { S IOFILE="HA C_HFS$:[DS MMANAG.CHA MPVA]TEST_ "_CHBMTH_" _"_CHBTINS T_"_" ;C reate test file name s;JSG;DEV0 06308; | |
53 | IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" } ;Test fi le name fo r paids;JS G;DEV00630 8; | |
54 | ELSE { S IOFILE= IOFILE_"EO BZERO.TXT" } } ;Test fi le name fo r zeros;JS G;DEV00630 8; | |
55 | O IOFILE: "NWS" | |
56 | S FFLG=1 | |
57 | ; BATNUM = CITI BAT CH NUMBER | |
58 | ; STNUM = CITI STAT ION NUMBER | |
59 | ; SSTNUM = CITI SUB -STATION N UMBER | |
60 | ; CHDFN - POINTER T O AHCHVA S PONSOR | |
61 | ; CHBFN - POINTER T O AHCHVA B ENE | |
62 | ; CHEBCNT - EOB COU NTS FOR SA ME BENE | |
63 | ; CLMPT = CLAIM PO INTER | |
64 | S BATNUM= CHBTNUM | |
65 | ;S STNUM= 0 ;JSG;12/18 /08;DEV006 308;DO NOT NEED (DNN ) | |
66 | S (STNUM, SSTNUM)=CH BTINST ;Set stati on & subst ation to s tation # f ound in ^C HMTDA;JSG; 12/18/08;D EV006308; | |
67 | EB1 ;S STN UM=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM)) I 'STNUM D C LS Q ;DNN;JSG; 12/18/08;D EV006308; | |
68 | ;G:CHB TINST'=STN UM EB1 ;DNN;JSG; 12/18/08;D EV006308; | |
69 | ;S SST NUM=0 ;DNN;JSG; 12/18/08;D EV006308; | |
70 | I '$D( ^CHMZHOLD( $J,"TMP_TD A_EOB",BAT NUM,STNUM, SSTNUM,EOB 1)) D CLS Q | |
71 | EB2 ;S SST NUM=$O(^CH MZHOLD($J, "TMP_TDA_E OB",BATNUM ,STNUM,SST NUM)) G:'S STNUM EB1 ;DNN;JSG; 12/18/08;D EV006308; | |
72 | ;G:CHB TINST'=SST NUM EB2 ;DNN;JSG; 12/18/08;D EV006308; | |
73 | S CHDF N=0 ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs to all fam ily member s | |
74 | EB3 ;S CHD FN=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM,SSTN UM,CHDFN)) G:'CHDFN EB2 ;TLH; 7/14/08;DE V005285;DN N;JSG;DEV0 06308; | |
75 | S CHDF N=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN)) I 'CH DFN D CLS Q ;JSG;DEV 006308;Get sponsor | |
76 | S CHBF N=0 ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs to all fam ily member s | |
77 | EB4 ;S CHB FN=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM,SSTN UM,CHDFN,C HBFN)) I ' CHBFN G EB 3 ;TLH;7/ 14/08;DEV0 05285;DNN; JSG;DEV006 308; | |
78 | S CHBF N=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN,CHBFN)) I 'CHBFN G EB3 ;JSG ;DEV006308 ;Get bene | |
79 | ;S CHE BCNT=0 ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs to all fam ily member s;DNN;JSG; DEV006308; | |
80 | EB5 ;S CHE BCNT=$O(^C HMZHOLD($J ,"TMP_TDA_ EOB",BATNU M,STNUM,SS TNUM,CHDFN ,CHBFN,CHE BCNT)) G:' CHEBCNT EB 4 ;TLH 7/ 14/08 DEV0 05285 to s eparate eo bs to all family mem bers;DNN;J SG;DEV0063 08; | |
81 | S CLMP T=0 | |
82 | EB6 S CLMP T=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN,CHBFN,C LMPT)) I ' CLMPT D G EB4 ;TLH 7/14/08 D EV005285 t o separate eobs to a ll family members | |
83 | .S DFN =CHDFN S B FN=CHBFN ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs to all fam ily member s | |
84 | .D PRT ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs to all fam ily member s | |
85 | .Q ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs to all fam ily member s | |
86 | S ^TMP ($J,"CLAIM S",CLMPT)= "" | |
87 | S CLMC NT(EOB1)=C LMCNT(EOB1 )+1 ;JSG;12/1 8/08;DEV00 6308;Incre ment claim counter; | |
88 | ;S ^TM P($J,"CLAI MS",N,PROV FL)=^CHTDA EOB("TDA_E OB",K,L,M, N) | |
89 | G EB6 | |
90 | PRT S CHPG PT=1 | |
91 | Q:'$D(^TM P($J,"CLAI MS")) | |
92 | U IOFILE D INDIVI^C HMG43WB ; AEB 1/22/2 007 CHNAG E TO ^CHMG 43WB FOR L IVE | |
93 | K ^TMP($J ,"CLAIMS") ,^TMP($J," EOB") | |
94 | Q | |
95 | CLS | |
96 | IF CLMCNT (EOB1)=0 { ;Populat e the outp ut file if either ha s no claim s;JSG;12/1 8/08;DEV00 6308; | |
97 | U IOFI LE W !,"** * THERE NO ",$S(EOB1 =1:"PAID", 1:"DENIED" )," CLAIMS FOR THIS STATION ** *",! } | |
98 | C IOFILE H 5 | |
99 | Q | |
100 | END S CHTM P="SET PRO TECTION=(W :RWED) "_I OFILE | |
101 | S X=$ZF(- 1,CHTMP) | |
102 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
103 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.CI TIEOB]CITI _EOB_FTP.C OM/PARAM=( "_IOFILE_" )/LOG=HAC_ HFS$:[SCR. CITIEOB]") ; TLH,10 1805 | |
104 | ;I (CHUCI ="DEV")!(C HUCI="TST" ) Q ;STOP AND DO NO T MOVE DAT A INTO PRO DUCTION A EB 2/27/20 07 | |
105 | Q | |
106 | END1 ; | |
107 | K ALIGN,A NS,CHCI,CH QI,CHVI,CL NM,PROVFL, PRNTFLG,CH EOBDSK,Y,C LMCNT | |
108 | K ^TMP($J ,"CLAIMS") ,^CHMZHOLD ("CITIEOBP RINTED"),^ CHMZHOLD(" ZSKDCITIEO B") ,CHUCI | |
109 | U 0 | |
110 | Q | |
111 | ; | |
112 | SBRS D CSB RS^CHSC2 Q | |
113 | R Y:$S($D (DTIME):DT IME,1:60) | |
114 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
115 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
116 | I IOZFO=Y W:$D(IOF) @IOF S (D FOUT,Y)="" Q | |
117 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
118 | Q | |
119 | ; | |
120 | PSORT ; | |
121 | ; CHTDABT = CITI BA TCH NUMBER | |
122 | ; CHTDAST = CITI ST ATION NUMB ER | |
123 | ; CHTADSS T = CITI S UB-STATION NUMBER | |
124 | ; CHTDACP T = CLAIM POINTER | |
125 | ; EOB1 - NUMBER OF EOB FOR ON E PERSON; <<----th is was pri or to DEV0 06308;12/1 8/08; | |
126 | ; EOB1 - 1 for paid claims, 2 for $0 OR denied cl aims ;JSG;DEV0 06308;12/1 8/08; | |
127 | ; CHTFILE - IF TDA NUMBER OVE R 179 USE NEW TDA ST ORAGE GLOB AL OTHERWI SE USE CHM ZHOLD. | |
128 | K ^CHMZHO LD($J,"TMP _TDA_EOB") | |
129 | S CHTFILE ="^CHMZHOL D(""TDA-CA LC""," | |
130 | I CHBTNUM >181 S CHT FILE="^CHT DAEOB(""TD A_EOB""," | |
131 | S EOB1=1 | |
132 | S CTR=0 | |
133 | ;S CHTDAB T="" F S CHTDABT=$O (^CHTDAEOB ("TDA_EOB" ,CHTDABT)) Q:'CHTDAB T D | |
134 | S CHTDABT =CHBTNUM | |
135 | S CHTDAST =0 | |
136 | PS2 S CHTD AST=$O(@(C HTFILE_"CH TDABT,CHTD AST)")) Q: 'CHTDAST | |
137 | S CHTDASS T="" | |
138 | PS3 S CHTD ASST=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST)")) G: 'CHTDASST PS2 | |
139 | S CHTDACP T=0 | |
140 | PS4 S CHTD ACPT=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST,CHTDAC PT)")) G:' CHTDACPT P S3 | |
141 | S CTR=CTR +1 | |
142 | S DFN=$P( ^CHMPAY(CH TDACPT,0), "^",21),BF N=$P(^CHMP AY(CHTDACP T,0),"^",2 2) | |
143 | S EOB1=$$ 0PAY(CHTDA CPT) ;JSG;12 /18/08;DEV 006308;Is it zero $s paid; | |
144 | ;S ^CHMZH OLD($J,"TM P_TDA_EOB" ,CHTDABT,C HTDAST,CHT DASST,DFN, BFN,EOB1,C HTDACPT)=" " ;JSG;12/ 18/08;DEV0 06308; | |
145 | S ^CHMZHO LD($J,"TMP _TDA_EOB", CHTDABT,CH TDAST,CHTD ASST,EOB1, DFN,BFN,CH TDACPT)="" ;JSG;12/ 18/08;DEV0 06308; | |
146 | G PS4 | |
147 | 0PAY(CIEN) ;(Claim E IN);Is cla im a zero $ pay?: ;JSG;12/ 18/08;DEV0 06308; | |
148 | N X Q:'$D (^CHMPAY(C IEN,1),X) 2 ;Return $ 0 (2) pay if no pay record; | |
149 | Q $S(+$P( X,U)>0:1,1 :2) ;Return 2 if $0, else 1; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.