Produced by Araxis Merge on 11/9/2018 12:34:05 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 | CHMLFEE1.m | Mon Nov 5 16:45:27 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLFEE1.m | Fri Nov 9 03:14:15 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 246 |
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 | CHMLFEE1 ; CVA/HBG;FE E PAYMENT EXTRACT FO R CLAIM CH ECK;06/30/ 96 10:51 PM | |
2 | ;V1.0 | |
3 | MENU W @IO F | |
4 | W !! S X= "HAC/FEE B asis Data Extract" | |
5 | W ?(40-($ L(X)\2)),X | |
6 | W !! | |
7 | S DIR(0)= "S^1:Infor mation;2:R un the ON- LINE Pre-C ount;3:QUE UE the Dat a Extract Mail Messa ge;4:Quit" | |
8 | D ^DIR | |
9 | Q:'X Q:Y =4 | |
10 | I Y=1 D I NFO R X G MENU | |
11 | G:Y=2 PRE CNT G:Y=3 QUE | |
12 | Q | |
13 | PRECNT ;Th is section will loop through a ll FEE bas is payment s by patie nt | |
14 | ;and coun t the numb er of serv ices that fall after 1/1/95 an d will | |
15 | ;precount the numbe r of messa ges that w ill be gen erated to the users | |
16 | ;mail acc ount and w ill give a rough siz e estimate for each mail messa ge | |
17 | W !!,"THI S OPTION M AY TAKE SE VERAL MINU TES TO COM PLETE - PL EASE BE PA TIENT",! | |
18 | S CCT=0,M MCT=0,MM=1 K ^TMP($J ),HAC | |
19 | S DPT=0 F S DPT=$O (^FBAAC(DP T)) Q:'DPT D W "." | |
20 | .Q:'$D(^D PT(DPT,0)) S SEX=$P (^(0),"^", 2),DOB=$P( ^(0),"^",3 ) | |
21 | .S VEN=0 F S VEN=$ O(^FBAAC(D PT,1,VEN)) Q:'VEN D | |
22 | ..Q:'$D(^ FBAAC(DPT, 1,VEN,0)) | |
23 | ..S K=0 F S K=$O(^ FBAAC(DPT, 1,VEN,1,K) ) Q:'K D I MMCT>14 000 S MM=M M+1,MMCT=1 | |
24 | ...Q:'$D( ^FBAAC(DPT ,1,VEN,1,K ,0)) S TD T=$P(^(0), "^",1) | |
25 | ...Q:TDT< 2950000 | |
26 | ...S CCT= CCT+1 | |
27 | ...S PTRE C=DPT_"^"_ SEX_"^"_DO B_"^"_VEN_ "^"_TDT | |
28 | ...S L=0, LCT=0 F S L=$O(^FBA AC(DPT,1,V EN,1,K,1,L )) Q:'L D Q:LCT>39 | |
29 | ....Q:'$D (^FBAAC(DP T,1,VEN,1, K,1,L,0)) S REC=^(0 ) | |
30 | ....S MMC T=MMCT+1 | |
31 | ....S PX= "",X=$P(RE C,"^",1) I X'="" Q:' $D(^ICPT(X ,0)) S PX =$P(^(0)," ^",1) | |
32 | ....S $P( REC,"^",1) =PX | |
33 | ....S LCT =LCT+1,DX= "" | |
34 | ....S X=$ P(REC,"^", 23) I X'=" " S:$D(^IC D9(X,0)) D X=$P(^(0), "^",1) | |
35 | ....S $P( REC,"^",23 )=DX | |
36 | ....S ^TM P($J,"FEE" ,MM,MMCT,0 )=CCT_"^"_ LCT_"^"_PT REC_"^"_RE C | |
37 | ....S:'$D (HAC(MM)) HAC(MM)=0 | |
38 | ....S HAC (MM)=HAC(M M)+$L(^TMP ($J,"FEE", MM,MMCT,0) ) | |
39 | W !! | |
40 | I '$D(HAC ) D G END | |
41 | .W !,"Thi s process will not g enerate an y data - p lease call " | |
42 | .W !,"How ard Green at 303.331 .7533" | |
43 | W !,"This process w ill genera te ",MM," DHCP mail messages t o your mai l account" | |
44 | S MM=0 F S MM=$O(H AC(MM)) Q: 'MM D | |
45 | .W !,"Mes sage ",MM, " will con tain: ",H AC(MM)," B ytes" | |
46 | G END | |
47 | INFO W !! | |
48 | W !,"This process w ill extrac t and stor e data con tained in the FEE" | |
49 | W !,"PAYM ENTS File (^FBAAC). The data will be te mporarily stored" | |
50 | W !,"in t he ^tmp gl obal. Whe n complete , a series of mail m essages" | |
51 | W !,"will be genera ted to the initiatin g users ma il account . Please" | |
52 | W !,"forw ard all of these mes sages to:" | |
53 | W !!,"
|
|
54 | W !,"is n ot known. Thank you for your assistance ." | |
55 | W !!,"PRE SS <RETURN > TO CONTI NUE " | |
56 | Q | |
57 | QUE S IOP= "Q" S ZTIO ="" | |
58 | S ZTRTN=" MAIN^CHMLF EE1",ZTDES C="HAC/FEE PAYMENT D ATA EXTRAC T" | |
59 | D ^%ZTLOA D S IOP="H OME" D HOM E^%ZIS | |
60 | END Q | |
61 | MAIN ;This section w ill run in backgroun d and will follow th e same log ic | |
62 | ;as the p recnt sect ion. The data will temporaril y be store d in | |
63 | ;^tmp and will be u sed as the basis of the mail m essages th at should be | |
64 | ; forward ed to the HAC. | |
65 | S CCT=0,M MCT=0,MM=1 K ^TMP($J ) | |
66 | S DPT=0 F S DPT=$O (^FBAAC(DP T)) Q:'DPT D | |
67 | .Q:'$D(^D PT(DPT,0)) S SEX=$P (^(0),"^", 2),DOB=$P( ^(0),"^",3 ) | |
68 | ..Q:'$D(^ FBAAC(DPT, 1,VEN,0)) | |
69 | .S VEN=0 F S VEN=$ O(^FBAAC(D PT,1,VEN)) Q:'VEN D | |
70 | ..Q:'$D(^ FBAAC(DPT, 1,VEN,0)) | |
71 | ..S K=0 F S K=$O(^ FBAAC(DPT, 1,VEN,1,K) ) Q:'K D I MMCT>14 000 S MM=M M+1,MMCT=1 | |
72 | ...Q:'$D( ^FBAAC(DPT ,1,VEN,1,K ,0)) S TD T=$P(^(0), "^",1) | |
73 | ...Q:TDT< 2950000 | |
74 | ...S CCT= CCT+1 | |
75 | ...S PTRE C=DPT_"^"_ SEX_"^"_DO B_"^"_VEN_ "^"_TDT | |
76 | ...S L=0, LCT=0 F S L=$O(^FBA AC(DPT,1,V EN,1,K,1,L )) Q:'L D Q:LCT>39 | |
77 | ....Q:'$D (^FBAAC(DP T,1,VEN,1, K,1,L,0)) S REC=^(0 ) | |
78 | ....S MMC T=MMCT+1 | |
79 | ....S PX= "",X=$P(RE C,"^",1) I X'="" Q:' $D(^ICPT(X ,0)) S PX =$P(^(0)," ^",1) | |
80 | ....S $P( REC,"^",1) =PX | |
81 | ....S LCT =LCT+1,DX= "" | |
82 | ....S X=$ P(REC,"^", 23) I X'=" " S:$D(^IC D9(X,0)) D X=$P(^(0), "^",1) | |
83 | ....S $P( REC,"^",23 )=DX | |
84 | ....S ^TM P($J,"FEE" ,MM,MMCT,0 )=CCT_"^"_ LCT_"^"_PT REC_"^"_RE C | |
85 | MAIL ;This section w ill create a mail me ssage for each of th e sub glob als | |
86 | ;created in the ^tm p($j globa l. The me ssages wil l be maile d to the | |
87 | ;user run ning this routine an d must be forwarded to: | |
88 | ;PII | |
89 | I '$D(^TM P($J,"FEE" )) D ERRMA IL G END | |
90 | S MM=0 F S MM=$O(^ TMP($J,"FE E",MM)) Q: 'MM D | |
91 | .S XMTEXT ="^TMP($J, ""FEE"","_ MM_"," | |
92 | .S XMSUB= "FEE BASIS EXTRACT - MESSAGE: "_MM | |
93 | .S XMDUZ= DUZ,XMY(DU Z)="" | |
94 | .D ^XMD | |
95 | END1 K ^TM P($J,"FEE" ),CCT,MMCT ,MM,DPT,VE N,SEX,DOB, TDT,K,PTRE C,L,LCT,RE C ; scott doan 03.1 8.05 | |
96 | K X,PX,DX | |
97 | Q | |
98 | ; | |
99 | ; SUBRO UTINES | |
100 | ; | |
101 | ERRMAIL ;T his sectio n will be called in the event that there is no acc umuilation | |
102 | ;of data in the ^tm p($j globa l | |
103 | D NOW^%DT C | |
104 | S ^TMP($J ,"FEE",1,1 ,0)="EXTRA CT PROCESS FAILED ON "_% | |
105 | S XMTEXT= "^TMP($J," "FEE"",1," | |
106 | S XMSUB=" FEE BASIS EXTRACT - ERROR MESS AGE" | |
107 | S XMDUZ=D UZ,XMY(DUZ )="" | |
108 | D ^XMD | |
109 | K ^TMP($J ,"FEE",1) | |
110 | Q | |
111 | DATA ;This section w as created to genera te a sampl e ^tmp( gl obal for | |
112 | ;testing purposes. It will n ot be call ed by the receiving station | |
113 | K ^TMP($J ) | |
114 | S ^TMP($J ,"FEE",1,1 ,0)="DATA^ DATA" | |
115 | S ^TMP($J ,"FEE",1,2 ,0)="DATA^ DATA" | |
116 | S ^TMP($J ,"FEE",1,3 ,0)="DATA^ DATA" | |
117 | S ^TMP($J ,"FEE",1,4 ,0)="DATA^ DATA" | |
118 | S ^TMP($J ,"FEE",1,5 ,0)="DATA^ DATA" | |
119 | S ^TMP($J ,"FEE",1,6 ,0)="DATA^ DATA" | |
120 | S ^TMP($J ,"FEE",1,7 ,0)="DATA^ DATA" | |
121 | S ^TMP($J ,"FEE",2,1 ,0)="DATA^ DATA" | |
122 | S ^TMP($J ,"FEE",2,2 ,0)="DATA^ DATA" | |
123 | S ^TMP($J ,"FEE",2,3 ,0)="DATA^ DATA" | |
124 | S ^TMP($J ,"FEE",2,4 ,0)="DATA^ DATA" | |
125 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.