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 | CHMG43WI.m | Mon Nov 5 16:45:23 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMG43WI.m | Mon Nov 5 17:47:22 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 322 |
Changed | 3 | 6 |
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 | CHMG43WI ; CVA/SKD;IN DIVIDUAL F ACILITY EO B PRINT (t o DNS fs3/CITI_E OB) PER BA TCH # & FA CILITY;7-2 0-05 | |
2 | ;;1.0 | |
3 | ;THIS IS A COPY OF CHMG43MP A ND MODIFIE D TO | |
4 | ;SAVE EOB 'S OF SELE CTED FACIL ITY TO THE DNS FS3\CITI_E OB DIRECTO RY | |
5 | ; | |
6 | ;THIS ROU TINE RUNS ONLY IF ^C HMZHOLD("T DA-CALC",_ _ EXISTS. | |
7 | ;IF EXIST , THEN BAT CH # AND F ACILITY # MUST BE I N GLOBAL. | |
8 | ;JSG;12/1 8/08;DEV00 6308;Separ ate Paid a nd Denied EOBs into two (2) di fferent ou tput files ; | |
9 | U 0 | |
10 | D ^CHMFSE T X CHRESE T | |
11 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
12 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
13 | D HOME^%Z IS | |
14 | ; | |
15 | ;S CHEOBD SK=1 ;SK D, 9-22-05 | |
16 | S CHINFO= 1 ; Print "no check" message f or manual eob. | |
17 | S U="^",A LIGN=0,CHV IM="" K ZT SK | |
18 | A W @IOF S CHQI="" K ^TMP($J," CLAIMS"),^ CHMZHOLD(" CITIEOBPRI NTED"),^CH MZHOLD("ZS KDCITIEOB" ) ;SKD, 9- 23-05 | |
19 | ;promptin g user for Station # and Batch # | |
20 | S DIC("W" )="W "" is from ""_$ $FMTE^XLFD T($P(^(0), ""^"",2)," "5D"")_"" to ""_$$FM TE^XLFDT($ P(^(0),""^ "",3),""5D "")" | |
21 | S DIC=741 030,DIC(0) ="AENQM" D ^DIC S CH BTNUM=+Y W ! | |
22 | G:Y="" EN D1 G:Y="^" END1 G:Y= -1 END1 | |
23 | K DIC | |
24 | S DIC=4,D IC(0)="AEN QM" D ^DIC S CHBTINS T=+Y W ! | |
25 | I Y=-1 D | |
26 | .W !!,"No EOB's fou nd. Check Batch numb er and Fac ility.",! | |
27 | G:Y=-1 EN D1 G:Y="^" END1 G:Y= "" END1 | |
28 | K DIC | |
29 | D PSORT | |
30 | ;R !,"> " ,JSG | |
31 | ;D PRTEOB ;Repl aced, see below: ;JS G;12/18/08 ;DEV006308 ; | |
32 | D PRTEOB( 1) ;Generat e EOB file s for paid claims;JS G;12/18/08 ;DEV006308 ; | |
33 | D PRTEOB( 2) ;Genera te EOB fil es for $0 and denied claims;JS G;12/18/08 ;DEV006308 ; | |
34 | Q | |
35 | PRTEOB(EOB 1) ;(EOB g eneration mode);1 = paid claim s, 2 = $0 and denied claims;JS G;12/18/08 ;DEV006308 ; | |
36 | K CLMCNT S CLMCNT(E OB1)=0 ;Initial ize claim counter;JS G;12/18/08 ;DEV006308 ; | |
37 | S CHBMTH= CHBTNUM,CH TMPBT=0 ; TLH 11/7/0 5 | |
38 | S CHTMPBT =$O(^CHMTD A("B",CHBT NUM,CHTMPB T)) Q:CHTM PBT="" ; TLH 11/7/0 5 | |
39 | I $D(^CHM TDA(CHTMPB T,0)) D ; TLH 11/7/0 5 | |
40 | .S CHBMTH =$P(^CHMTD A(CHTMPBT, 0),"^",3) Q:CHBMTH=" " ; TLH 11/16/ 05 | |
41 | .S CHBMTH =$$FMTE^XL FDT(CHBMTH ,"9D") ; TLH 11/7/0 5 | |
42 | .S CHBYR= $P(CHBMTH, " ",3) ; TLH 11/16/ 05 | |
43 | .S CHBMTH =$$UP^XLFS TR($P(CHBM TH," ",2)) ; TLH 11/7/0 5 | |
44 | .S CHBMTH =CHBMTH_"_ "_CHBYR ; TLH1 11/16 /05 | |
45 | .Q ; TLH 11/7/0 5 | |
46 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) ; AEB 2/27/2 007 | |
47 | ;I CHUCI= "HAC" S IO FILE="HAC_ HFS$:[SCR. CITIEOB]"_ CHBMTH_"_" _CHBTINST_ "_"_"EOB.T XT" ;TLH,1 01805;JSG; DEV006308 | |
48 | IF CHUCI= "HAC" { ;Cr eate Produ ction file names;JSG ;DEV006308 ; | |
49 | S IOFI LE="HAC_HF S$:[SCR.CI TIEOB]"_CH BMTH_"_"_C HBTINST_"_ " | |
50 | IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" } ;Fil e name for paids;JSG ;DEV006308 ; | |
51 | ELSE { S IOFILE= IOFILE_"EO BZERO.TXT" } } ;Fil e name for zeros;JSG ;DEV006308 ; | |
52 | ;I CHUCI= "DEV" S IO FILE="HAC_ HFS$:[DSMM ANAG.CHAMP VA]TEST1_" _CHBMTH_"_ "_CHBTINST _"_"_"EOB. TXT" ;AEB 2/27/2007 JUST FOR D EV | |
53 | ;I CHUCI= "TST" S IO FILE="HAC_ HFS$:[DSMM ANAG.CHAMP VA]TEST1_" _CHBMTH_"_ "_CHBTINST _"_"_"EOB. TXT" ;AEB 2/27/2007 JUST FOR D EV | |
54 | ELSE { S IOFILE="HA C_HFS$:[DS MMANAG.CHA MPVA]TEST1 _"_CHBMTH_ "_"_CHBTIN ST_"_" ;C reate test file name s;JSG;DEV0 06308; | |
55 | IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" } ;Test fi le name fo r paids;JS G;DEV00630 8; | |
56 | ELSE { S IOFILE= IOFILE_"EO BZERO.TXT" } } ;Test fi le name fo r zeros;JS G;DEV00630 8; | |
57 | O IOFILE: "NWS" | |
58 | S FFLG=0 | |
59 | ; FFLG - STATION FO UND FLAG 0 :NO,1:YES | |
60 | ; BATNUM = CITI BAT CH NUMBER | |
61 | ; STNUM = CITI STAT ION NUMBER | |
62 | ; SSTNUM = CITI SUB -STATION N UMBER | |
63 | ; CHDFN - POINTER T O AHCHVA S PONSOR | |
64 | ; CHBFN - POINTER T O AHCHVA B ENE | |
65 | ; CHEBCNT - EOB COU NTS FOR SA ME BENE;JS G;12/18/08 ;DEV006308 ;DO NOT NE ED (DNN) | |
66 | ; CLMPT = CLAIM PO INTER | |
67 | S BATNUM= CHBTNUM | |
68 | ;S STNUM= 0 ; JSG;12/18/ 08;DEV0063 08;DO NOT NEED (DNN) | |
69 | S (STNUM, SSTNUM)=CH BTINST ; Set statio n & substa tion to st ation # fo und in ^CH MTDA;JSG;1 2/18/08;DE V006308; | |
70 | EB1 ;S STN UM=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM)) I 'STNUM D C LS Q ;DNN;JSG;1 2/18/08;DE V006308; | |
71 | ;G:CHB TINST'=STN UM EB1 ;DNN;JSG;1 2/18/08;DE V006308; | |
72 | ;S SST NUM=0 ;DNN;JSG;1 2/18/08;DE V006308; | |
73 | EB2 ;S SST NUM=$O(^CH MZHOLD($J, "TMP_TDA_E OB",BATNUM ,STNUM,SST NUM)) G:'S STNUM EB1 ;DNN;JSG;1 2/18/08;DE V006308; | |
74 | ;G:CHB TINST'=SST NUM EB2 ;DNN;JSG;1 2/18/08;DE V006308; | |
75 | I '$D( ^CHMZHOLD( $J,"TMP_TD A_EOB",BAT NUM,STNUM, SSTNUM,EOB 1)) D CLS Q | |
76 | S CHDF N=0,FFLG=1 ;t lh 7/7/08 DEV005285 to correct issue so all benefi caries are on separa te eobs; | |
77 | EB3 ;S CHD FN=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM,SSTN UM,CHDFN)) G:'CHDFN EB2 ;tlh;7 /7/08;DEV0 05285;JSG; 12/18/08;D EV006308; | |
78 | 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;DE V006308; | |
79 | S CHBF N=0 ;t lh 7/7/08 DEV005285 to correct issue so all benefi caries are on separa te eobs; | |
80 | 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/7 /08;DEV005 285;JSG;12 /18/08;DEV 006308; | |
81 | S CHBF N=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN,CHBFN)) I 'CHBFN G EB3 | |
82 | ;S CHE BCNT=0 ;tlh;7/ 7/08;DEV00 5285;JSG;1 2/18/08;DE V006308; | |
83 | 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/7 /08;DEV005 285;JSG;12 /18/08;DEV 006308; | |
84 | S CLMP T=0 | |
85 | 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/7/08;DEV 005285;JSG ;12/18/08; DEV006308; | |
86 | .S DFN =CHDFN S B FN=CHBFN ;tlh 7/7/0 8 DEV00528 5 to corre ct issue s o all bene ficaries a re on sepa rate eobs | |
87 | .D PRT ;tlh 7/7/0 8 DEV00582 5 to corre ct issue s o all bene ficaries a re on sepa rate eobs | |
88 | .Q ;tlh 7/7/0 8 DHV00528 5 to corre ct issue s o all bene ficaries a re on sepa rate eobs | |
89 | S ^TMP ($J,"CLAIM S",CLMPT)= "" | |
90 | S CLMC NT(EOB1)=C LMCNT(EOB1 )+1 ;JSG;12/1 8/08;DEV00 6308;Incre ment claim counter; | |
91 | G EB6 | |
92 | PRT ; | |
93 | U IOFILE D INDIVI^C HMG43WB | |
94 | Q | |
95 | CLS | |
96 | IF CLMCNT (EOB1)=0 { ;Popu late the o utput file if either has no cl aims;JSG;1 2/18/08;DE V006308; | |
97 | U IOFI LE W !,"** * THERE NO ",$S(EOB1 =1:"PAID", 1:"DENIED" )," CLAIMS FOR THIS STATION ** *",! } | |
98 | C IOFILE | |
99 | S CHTMP=" SET PROTEC TION=(W:RW ED) "_IOFI LE | |
100 | S X=$ZF(- 1,CHTMP) | |
101 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) ;A EB 2/27/20 07 | |
102 | ;I CHUCI= "HAC" S X= $ZF(-1,"SU BMIT HAC_H FS$:[SCR.C ITIEOB]CIT I_EOB_FTP. COM/PARAM= ("_IOFILE_ ")/LOG=HAC _HFS$:[SCR .CITIEOB]" ) ;TLH,101 805 | |
103 | ;I CHUCI= "TST" Q ;Q UIT IF IN TST OR DEV SO TEST D ATA DOES N OT MOVE TO PRODUCTIO N ;AEB 2/2 7/2007 | |
104 | ;I CHUCI= "DEV" Q ;Q UIT IF IN TST OR DEV SO TEST D ATA DOES N OT MOVE TO PRODUCTIO N ;AEB 2/2 7/2007 | |
105 | IF CHUCI= "HAC" { | |
106 | S X=$Z F(-1,"SUBM IT HAC_HFS $:[SCR.CIT IEOB]CITI_ EOB_FTP.CO M/PARAM=(" _IOFILE_") /LOG=HAC_H FS$:[SCR.C ITIEOB]") | |
107 | K ^CHM ZHOLD($J," TMP_TDA_EO B") } ;tlh 7/7 /08 to cor rect issue | |
108 | Q | |
109 | END ; | |
110 | END1 ; | |
111 | K ALIGN,A NS,CHCI,CH QI,CHVI,CL NM,PROVFL, PRNTFLG,CH EOBDSK,IOF ILE,Y,CLMC NT | |
112 | K ^TMP($J ,"CLAIMS") ,^CHMZHOLD ("CITIEOBP RINTED"),^ CHMZHOLD(" ZSKDCITIEO B") ,CHUCI | |
113 | U 0 | |
114 | Q | |
115 | ; | |
116 | QUE ;ADDED FOR TASKM AN JOB | |
117 | ;D NOW^%D TC S DT=X | |
118 | S U="^" | |
119 | S CHFIO=" " | |
120 | S ZTRTN=" SAVE^CHMG4 3WI",ZTDES C="EOB PRI NTING TO DNS FS3\CITI_E OB" | |
121 | S ZTSAVE( "^TMP($J," )="",ZTSAV E("CLNM")= "",ZTSAVE( "GLPAY")=" " | |
122 | S ZTSAVE( "CHINFO")= "",ZTSAVE( "CHPGPT")= "",ZTSAVE( "IOFILE")= "" | |
123 | S ZTSAVE( "CHBD")="" ,ZTSAVE("C HED")="",Z TSAVE("AHB T*")="" | |
124 | S ZTIO="" | |
125 | D ^%ZTLOA D | |
126 | Q | |
127 | ; | |
128 | SBRS D CSB RS^CHSC2 Q | |
129 | R Y:$S($D (DTIME):DT IME,1:60) | |
130 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
131 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
132 | I IOZFO=Y W:$D(IOF) @IOF S (D FOUT,Y)="" Q | |
133 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
134 | Q | |
135 | ; | |
136 | PSORT ; | |
137 | ; CHTDABT = CITI BA TCH NUMBER | |
138 | ; CHTDAST = CITI ST ATION NUMB ER | |
139 | ; CHTADSS T = CITI S UB-STATION NUMBER | |
140 | ; CHTDACP T = CLAIM POINTER | |
141 | ; EOB1 - NUMBER OF EOB FOR ON E PERSON; <<----th is was pri or to DEV0 06308;12/1 8/08; | |
142 | ; EOB1 - 1 for paid claims, 2 for $0 OR denied cl aims ;JSG;DEV0 06308;12/1 8/08; | |
143 | ; CHBTINS T - STATIO N NUMBER I NPUT BY US ER | |
144 | ; CHTFILE - IF TDA NUMBER OVE R 179 USE NEW TDA ST ORAGE GLOB AL OTHERWI SE USE CHM ZHOLD. | |
145 | K ^CHMZHO LD($J,"TMP _TDA_EOB") | |
146 | S CHTFILE ="^CHMZHOL D(""TDA-CA LC""," | |
147 | I CHBTNUM >181 S CHT FILE="^CHT DAEOB(""TD A_EOB""," | |
148 | S EOB1=1 | |
149 | S CTR=0 | |
150 | ;S CHTDAB T="" F S CHTDABT=$O (^CHTDAEOB ("TDA_EOB" ,CHTDABT)) Q:'CHTDAB T D | |
151 | S CHTDABT =CHBTNUM | |
152 | S CHTDAST =0 | |
153 | PS2 S CHTD AST=$O(@(C HTFILE_"CH TDABT,CHTD AST)")) Q: 'CHTDAST | |
154 | I CHTDAST '=CHBTINST G PS2 ; SKIP IF ST ATION NOT THE DESIRE D STATION | |
155 | S CHTDASS T="" | |
156 | PS3 S CHTD ASST=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST)")) G: 'CHTDASST PS2 | |
157 | S CHTDACP T=0 | |
158 | PS4 S CHTD ACPT=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST,CHTDAC PT)")) G:' CHTDACPT P S3 | |
159 | S CTR=CTR +1 | |
160 | S DFN=$P( ^CHMPAY(CH TDACPT,0), "^",21),BF N=$P(^CHMP AY(CHTDACP T,0),"^",2 2) | |
161 | S EOB1=$$ 0PAY^CHMG4 3WA(CHTDAC PT) ;JSG;12 /18/08;DEV 006308;Is it zero $s paid; | |
162 | ;S ^CHMZH OLD($J,"TM P_TDA_EOB" ,CHTDABT,C HTDAST,CHT DASST,DFN, BFN,EOB1,C HTDACPT)=" " ;JSG;12/ 18/08;DEV0 06308; | |
163 | S ^CHMZHO LD($J,"TMP _TDA_EOB", CHTDABT,CH TDAST,CHTD ASST,EOB1, DFN,BFN,CH TDACPT)="" ;JSG;12/ 18/08;DEV0 06308; | |
164 | G PS4 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.