Produced by Araxis Merge on 12/7/2017 6:27:13 PM Eastern 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 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\902212-CPE005-025 CPD Morning Report EM Claims | CP&E Teams 1-3 Developer Form CPE005-025 CHMRSQP.docx | Thu Dec 7 15:13:22 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\902212-CPE005-025 CPD Morning Report EM Claims | CP&E Teams 1-3 Developer Form CPE005-025 CHMRSQP.docx | Thu Dec 7 20:45:46 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 930 |
Changed | 0 | 0 |
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 | Routine Na me: CHMRS QP | |
2 | Developer Name(s): Hayes Murd ock | |
3 | Associated User Stor y/Stories: CPE005-0 25 | |
4 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
5 | CHMRSQP ;D EN/CJM;STA TUS OF QUE UES/MORNIN G REPORT - PRINT;09/ 01/98 8:4 4 AM | |
6 | ;;V1.03;; ;;Build 10 | |
7 | ;DEN/CJM; V1.03;06/1 1/93 | |
8 | ;DEN/CJM; V1.02;01/2 8/93 | |
9 | ;REVISED BY RLC;12/ 20/95;ADDE D SECTION FOR CMOP C LAIMS | |
10 | ;CPE005-01 6A HM/WTC 8.30.17 | |
11 | ;CPE005-01 6B WTC 9.1 .17 | |
12 | ; | |
13 | MAIN W @IO F D INIT S FLG=0 | |
14 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
15 | D FOOT | |
16 | D INIT7 | |
17 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
18 | D FOOT | |
19 | D INIT10 | |
20 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
21 | D FOOT | |
22 | W !,"NOTE 1: CHAMPV A CLAIMS = CHAMPVA + CFL + CIT I + EM CLA IMS" | |
23 | W !,"NOTE 2: ALL CL AIMS = CHA MPVA + CWV V + SPINA BIFIDA + N ON-VA" | |
24 | D INIT1 | |
25 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","E OB" D DETA IL | |
26 | D FOOT | |
27 | W !,"NOTE 1: CHAMPV A CLAIMS = CHAMPVA + CFL + CIT I + EM CLA IMS" | |
28 | W !,"NOTE 2: ALL CL AIMS = CHA MPVA + CWV V + SPINA BIFIDA + N ON-VA" | |
29 | D INIT9 | |
30 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
31 | D FOOT | |
32 | D INIT6 | |
33 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
34 | D FOOT | |
35 | D INIT5 | |
36 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
37 | D FOOT | |
38 | D INIT2 | |
39 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
40 | D FOOT | |
41 | W !,"NOTE 3: EM CLAI MS = EDI + CVA EDI R O + SB EDI RO + MDMT RX + SXC + CMOP CLAI MS" | |
42 | D INIT8 | |
43 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
44 | D FOOT | |
45 | D INIT3 | |
46 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D D ETAIL | |
47 | D FOOT | |
48 | ;HR-PBM-P HASE 1-Beg in - SLM | |
49 | D INIT11 | |
50 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
51 | D FOOT | |
52 | ;HR-PBM-P HASE 1-End | |
53 | D INIT4 | |
54 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D D ETAIL | |
55 | D FOOT | |
56 | ;HM CPE00 5-016a EDI ReOpen Us er Story | |
57 | D INIT12 | |
58 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
59 | D FOOT | |
60 | ; | |
61 | ; WTC CP E005-016B EDI ReOpen SB User S tory | |
62 | ; | |
63 | D INIT13 | |
64 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
65 | D FOOT | |
66 | ; | |
67 | D KI | |
68 | K ^CHMRSQ 1("MARSQCA LC") | |
69 | END Q | |
70 | ; | |
71 | INIT S CHT ITLE="CPD Morning Re port - Sum mary Aging of Queues " | |
72 | S $Y=99,C HPG=0,CHPG L=66,CHPGW =132,U="^" ;SKD 7- 12-07 DEV0 00272 | |
73 | S CHDTR=$ E(DT,4,7), X=$P($H,", ",2),H=X\3 600,M=X#36 00\60 | |
74 | S:M<10 M= "0"_M S:H< 10 H="0"_H S CHTM=H_ M,CHSITE=" HEALTH ADM INISTRTION CENTER" | |
75 | S Y=$P(CH DTE,".",1) D DD^%DT S CHDTL=Y | |
76 | K CHBL S $P(CHBL,"- ",CHPGW+1) ="" | |
77 | S CHP=1,C HPO=0,CHST ="ALL CLAI MS" | |
78 | Q | |
79 | ; | |
80 | INIT1 S CH P=2,CHPO=1 ,CHST="CIT I CLAIMS" | |
81 | D HDING,S UBHD S FLG =1 | |
82 | Q | |
83 | ; | |
84 | INIT2 S CH P=3,CHPO=2 ,CHST="EM CLAIMS" | |
85 | D SUBHD | |
86 | Q | |
87 | INIT3 S CH P=4,CHPO=3 ,CHST="MDM TRX CLAIMS " | |
88 | D SUBHD | |
89 | Q | |
90 | INIT4 S CH P=5,CHPO=4 ,CHST="CMO P CLAIMS" | |
91 | D HDING,S UBHD | |
92 | Q | |
93 | INIT5 S CH P=6,CHPO=5 ,CHST="NON -VA CLAIMS " | |
94 | D HDING,S UBHD S FLG =2 | |
95 | Q | |
96 | INIT6 S CH P=7,CHPO=6 ,CHST="SB CLAIMS" | |
97 | D SUBHD | |
98 | Q | |
99 | INIT7 S CH P=8,CHPO=7 ,CHST="CHA MPVA CLAIM S" | |
100 | D SUBHD | |
101 | Q | |
102 | INIT8 S CH P=9,CHPO=8 ,CHST="EDI CLAIMS" | |
103 | D HDING,S UBHD | |
104 | Q | |
105 | INIT9 S CH P=10,CHPO= 9,CHST="CW VV CLAIMS" | |
106 | D SUBHD | |
107 | Q | |
108 | INIT10 S C HP=11,CHPO =10,CHST=" CFL CLAIMS " | |
109 | D SUBHD | |
110 | Q | |
111 | ;HR-PBM-P HASE 1-Beg in - SLM | |
112 | INIT11 S C HP=12,CHPO =11,CHST=" SXC CLAIMS " | |
113 | D SUBHD | |
114 | Q | |
115 | ;HR-PBM-P HASE 1-End | |
116 | ; | |
117 | ;HM CPE00 5-016a EDI ReOpen Us er Story | |
118 | INIT12 S C HP=13,CHPO =12,CHST=" CVA EDI RO CLAIMS" | |
119 | D HDING,S UBHD | |
120 | Q | |
121 | ; | |
122 | INIT13; | |
123 | ; | |
124 | ; WTC CPE0 05-016B ED I ReOpen S B User Sto ry | |
125 | ; | |
126 | S CHP=14,C HPO=13,CHS T="SB EDI RO CLAIMS" | |
127 | D HDING,S UBHD | |
128 | Q | |
129 | ; | |
130 | KI K CHBL, CHDTL,CHDT R,CHNEWPG, CHPG,CHPGL | |
131 | K CHPGW,C HSITE,CHTI TLE,CHTITL E1,CHTM,CH CNT,CHO30, CHOLD,CHOD T,QUE | |
132 | K CHP,FLG | |
133 | Q | |
134 | ; | |
135 | DETAIL B:C HP=10 | |
136 | S CHCNT=$ P(^CHMRSQ1 ("MARSQ",Q UE,"CNT"), U,CHP) | |
137 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
138 | ;S CHO30= $P(^CHMRSQ 1("MARSQ", QUE,"O30") ,U,CHP) | |
139 | ;S CHO60= $P(^CHMRSQ 1("MARSQ", QUE,"O60") ,U,CHP) | |
140 | ;S CHO90= $P(^CHMRSQ 1("MARSQ", QUE,"O90") ,U,CHP) | |
141 | ;S CHO91= $P(^CHMRSQ 1("MARSQ", QUE,"O91") ,U,CHP) | |
142 | S CHO10=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O10"), U,CHP) | |
143 | S CHO14=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O14"), U,CHP) | |
144 | S CHO21=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O21"), U,CHP) | |
145 | S CHO29=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O29"), U,CHP) | |
146 | S CHO30=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O30"), U,CHP) | |
147 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
148 | S CHOLD=$ P(^CHMRSQ1 ("MARSQ",Q UE,"OLD"), U,CHP) I C HOLD="" S CHPGPT=1 G D1 | |
149 | S CLMPT=0 ,CLMPT=$O( ^CHMINDEX( "B",CHOLD, CLMPT)) I 'CLMPT S C HPGPT=1 G D1 | |
150 | S X1=CLMP T D PROGTY P^CHFCD001 | |
151 | S:CHPGPT= 1 CHOLD="C V "_CHOLD S:CHPGPT=2 CHOLD="CV "_CHOLD | |
152 | S:CHPGPT= 3 CHOLD="F MP"_CHOLD S:CHPGPT=4 CHOLD="PG W"_CHOLD | |
153 | S:CHPGPT= 5 CHOLD="N V "_CHOLD S:CHPGPT=6 CHOLD="SB "_CHOLD | |
154 | S:CHPGPT= 7 CHOLD="W V "_CHOLD | |
155 | D1 S CHODT =$P(^CHMRS Q1("MARSQ" ,QUE,"ODT" ),U,CHP+CH PO) S:CHOD T["99999" CHODT="" | |
156 | ;I CHODT' ="" S Y=CH ODT D DD^% DT S CHODT =$P(Y,"@", 1) | |
157 | D CKTOP | |
158 | I QUE="QA CPD" W !," QA-CPD" G DET1 | |
159 | I QUE="QA QMD" W !," QA-QMD" G DET1 | |
160 | I QUE="GR P" W !,"GR OUPER" G D ET1 | |
161 | W !,QUE | |
162 | DET1 W ?25 ,$J(CHCNT, 9) ;W ?1 5,$J(CHCNT ,9) ; DEV0 00272, SKD 6-27-07 | |
163 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
164 | ;W ?26,$J (CHO30,7) | |
165 | ;W ?36,$J (CHO60,7) | |
166 | ;W ?46,$J (CHO90,7) | |
167 | ;W ?56,$J (CHO91,7) | |
168 | ;S:CHOLD= 0 CHOLD="" W ?65,CHO LD S:CHOLD ="" CHODT= "" | |
169 | W ?39,$J( CHO10,7) | |
170 | W ?54,$J( CHO14,7) | |
171 | W ?69,$J( CHO21,7) | |
172 | W ?84,$J( CHO29,7) | |
173 | W ?99,$J( CHO30,7) | |
174 | S:CHOLD=0 CHOLD="" W ?115,CHO LD S:CHOLD ="" CHODT= "" ;DEV00 0272, SKD 7-13-07; W ?75,CHOL D | |
175 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
176 | ;W ?60,CH ODT | |
177 | DETEND Q | |
178 | ; | |
179 | FOOT D CKT OP | |
180 | W !," T OTAL" | |
181 | W ?25,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","C NT"),U,CHP ),9) | |
182 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
183 | ;W ?26,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O30"),U,CH P),7) | |
184 | ;W ?36,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O60"),U,CH P),7) | |
185 | ;W ?46,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O90"),U,CH P),7) | |
186 | ;W ?56,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O91"),U,CH P),7) | |
187 | W ?39,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 10"),U,CHP ),7) | |
188 | W ?54,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 14"),U,CHP ),7) | |
189 | W ?69,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 21"),U,CHP ),7) | |
190 | W ?84,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 29"),U,CHP ),7) | |
191 | W ?99,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 30"),U,CHP ),7) | |
192 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
193 | G:CHST="E DI CLAIMS" FOOTEND G :CHST="MDM TRX CLAIMS " FOOTEND | |
194 | G:CHST="C MOP CLAIMS " FOOTEND G:CHST="EM CLAIMS" F OOTEND | |
195 | G:CHST="S XC CLAIMS" FOOTEND G :CHST="CVA EDI RO CL AIMS" FOOT END G:CHST ="SB EDI R O CLAIMS" FOOTEND | |
196 | ;W ! | |
197 | FOOTEND Q | |
198 | ; | |
199 | CKTOP D:$Y >CHPGL HDI NG,SUBHD | |
200 | Q | |
201 | ; | |
202 | HDING S $Y =0,CHPG=CH PG+1,CHSIT E="HEALTH ADMINISTRA TION CENTE R" | |
203 | W:CHPG>1 # | |
204 | W DUZ,?(C HPGW-$L(CH SITE))\2,C HSITE,?(CH PGW-$L(CHP G)-6),"Pag e: ",CHPG | |
205 | W !,CHDTR ,?(CHPGW-$ L(CHTITLE) )\2,CHTITL E | |
206 | W !,CHTM, ?(CHPGW-$L (CHDTL))\2 ,CHDTL | |
207 | Q | |
208 | ; | |
209 | SUBHD ;I C HST="ALL C LAIMS" W ! !,CHST G S UB1 | |
210 | ;W !!,CHS T | |
211 | SUB1 W !!, CHST,?25," Number Of" ,?40,"Clai ms",?55,"C laims",?70 ,"Claims", ?85,"Claim s" | |
212 | W ?100,"C laims" ;M OD PER DEV 000272, SK D 6-27-07 | |
213 | ;W !,"Que ues",?15," Claims",?2 6,"1-30 Dy s",?36,"31 -60 Dys",? 46,"61-90 Dys",?56," >90 Dys" ;;MOD PER DEV000272 , SKD 6-27 -07 | |
214 | W !,"Queu es",?25,"C laims",?39 ,"1-10 Dys ",?54,"11- 14 Dys",?6 9,"15-21 D ys",?84,"2 2-29 Dys", ?99,">30 D ys" ;M OD PER DEV 000272, SK D 6-27-07 | |
215 | W !,$E(CH BL,1,14),? 25,$E(CHBL ,1,9),?39, $E(CHBL,1, 8),?54,$E( CHBL,1,9), ?69,$E(CHB L,1,9) | |
216 | ;W ?56,$E (CHBL,1,7) ;MOD PER DEV000272 , SKD 6-27 -07 | |
217 | W ?84,$E( CHBL,1,9), ?99,$E(CHB L,1,8) ;M OD PER DEV 000272, SK D 6-27-07 | |
218 | Q | |
219 | ; | |
220 | ||
221 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted - Striket hru, Chang ed - Itali cs) | |
222 | CHMRSQP ;D EN/CJM;STA TUS OF QUE UES/MORNIN G REPORT - PRINT;09/ 01/98 8:4 4 AM | |
223 | ;;V1.03;; ;;Build 10 | |
224 | ;DEN/CJM; V1.03;06/1 1/93 | |
225 | ;DEN/CJM; V1.02;01/2 8/93 | |
226 | ;REVISED BY RLC;12/ 20/95;ADDE D SECTION FOR CMOP C LAIMS | |
227 | ;CPE005-01 6A HM/WTC 8.30.17 | |
228 | ;CPE005-01 6B WTC 9.1 .17 | |
229 | ;CPE005-0 25 HM 10/1 2/2017 | |
230 | MAIN W @IO F D INIT S FLG=0 | |
231 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
232 | D FOOT | |
233 | D INIT7 | |
234 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
235 | D FOOT | |
236 | D INIT10 | |
237 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
238 | D FOOT | |
239 | W !,"NOTE 1: CHAMPV A CLAIMS = CHAMPVA + CFL + CIT I + EM CLA IMS" | |
240 | W !,"NOTE 2: ALL CL AIMS = CHA MPVA + CWV V + SPINA BIFIDA + N ON-VA" | |
241 | D INIT1 | |
242 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","E OB" D DETA IL | |
243 | D FOOT | |
244 | W !,"NOTE 1: CHAMPV A CLAIMS = CHAMPVA + CFL + CIT I + EM CLA IMS" | |
245 | W !,"NOTE 2: ALL CL AIMS = CHA MPVA + CWV V + SPINA BIFIDA + N ON-VA" | |
246 | D INIT9 | |
247 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
248 | D FOOT | |
249 | D INIT6 | |
250 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
251 | D FOOT | |
252 | D INIT5 | |
253 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
254 | D FOOT | |
255 | D INIT2 | |
256 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
257 | D FOOT | |
258 | W !,"NOTE 3: EM CLAI MS = EDI + CVA EDI R O + SB EDI RO + MDMT RX + SXC + CMOP CLAI MS" ;HM 12 /12/2017 | |
259 | D INIT8 | |
260 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
261 | D FOOT | |
262 | D INIT3 | |
263 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D D ETAIL | |
264 | D FOOT | |
265 | ;HR-PBM-P HASE 1-Beg in - SLM | |
266 | D INIT11 | |
267 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
268 | D FOOT | |
269 | ;HR-PBM-P HASE 1-End | |
270 | D INIT4 | |
271 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D D ETAIL | |
272 | D FOOT | |
273 | ;HM CPE00 5-016a EDI ReOpen Us er Story | |
274 | D INIT12 | |
275 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
276 | D FOOT | |
277 | ; | |
278 | ; WTC CP E005-016B EDI ReOpen SB User S tory | |
279 | ; | |
280 | D INIT13 | |
281 | F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL | |
282 | D FOOT | |
283 | ; | |
284 | D KI | |
285 | K ^CHMRSQ 1("MARSQCA LC") | |
286 | END Q | |
287 | ; | |
288 | INIT S CHT ITLE="CPD Morning Re port - Sum mary Aging of Queues " | |
289 | S $Y=99,C HPG=0,CHPG L=66,CHPGW =132,U="^" ;SKD 7- 12-07 DEV0 00272 | |
290 | S CHDTR=$ E(DT,4,7), X=$P($H,", ",2),H=X\3 600,M=X#36 00\60 | |
291 | S:M<10 M= "0"_M S:H< 10 H="0"_H S CHTM=H_ M,CHSITE=" HEALTH ADM INISTRTION CENTER" | |
292 | S Y=$P(CH DTE,".",1) D DD^%DT S CHDTL=Y | |
293 | K CHBL S $P(CHBL,"- ",CHPGW+1) ="" | |
294 | S CHP=1,C HPO=0,CHST ="ALL CLAI MS" | |
295 | Q | |
296 | ; | |
297 | INIT1 S CH P=2,CHPO=1 ,CHST="CIT I CLAIMS" | |
298 | D HDING,S UBHD S FLG =1 | |
299 | Q | |
300 | ; | |
301 | INIT2 S CH P=3,CHPO=2 ,CHST="EM CLAIMS" | |
302 | D SUBHD | |
303 | Q | |
304 | INIT3 S CH P=4,CHPO=3 ,CHST="MDM TRX CLAIMS " | |
305 | D SUBHD | |
306 | Q | |
307 | INIT4 S CH P=5,CHPO=4 ,CHST="CMO P CLAIMS" | |
308 | D HDING,S UBHD | |
309 | Q | |
310 | INIT5 S CH P=6,CHPO=5 ,CHST="NON -VA CLAIMS " | |
311 | D HDING,S UBHD S FLG =2 | |
312 | Q | |
313 | INIT6 S CH P=7,CHPO=6 ,CHST="SB CLAIMS" | |
314 | D SUBHD | |
315 | Q | |
316 | INIT7 S CH P=8,CHPO=7 ,CHST="CHA MPVA CLAIM S" | |
317 | D SUBHD | |
318 | Q | |
319 | INIT8 S CH P=9,CHPO=8 ,CHST="EDI CLAIMS" | |
320 | D HDING,S UBHD | |
321 | Q | |
322 | INIT9 S CH P=10,CHPO= 9,CHST="CW VV CLAIMS" | |
323 | D SUBHD | |
324 | Q | |
325 | INIT10 S C HP=11,CHPO =10,CHST=" CFL CLAIMS " | |
326 | D SUBHD | |
327 | Q | |
328 | ;HR-PBM-P HASE 1-Beg in - SLM | |
329 | INIT11 S C HP=12,CHPO =11,CHST=" SXC CLAIMS " | |
330 | D SUBHD | |
331 | Q | |
332 | ;HR-PBM-P HASE 1-End | |
333 | ; | |
334 | ;HM CPE00 5-016a EDI ReOpen Us er Story | |
335 | INIT12 S C HP=13,CHPO =12,CHST=" CVA EDI RO CLAIMS" | |
336 | D HDING,S UBHD | |
337 | Q | |
338 | ; | |
339 | INIT13; | |
340 | ; | |
341 | ; WTC CPE0 05-016B ED I ReOpen S B User Sto ry | |
342 | ; | |
343 | S CHP=14,C HPO=13,CHS T="SB EDI RO CLAIMS" | |
344 | D HDING,S UBHD | |
345 | Q | |
346 | ; | |
347 | KI K CHBL, CHDTL,CHDT R,CHNEWPG, CHPG,CHPGL | |
348 | K CHPGW,C HSITE,CHTI TLE,CHTITL E1,CHTM,CH CNT,CHO30, CHOLD,CHOD T,QUE | |
349 | K CHP,FLG | |
350 | Q | |
351 | ; | |
352 | DETAIL B:C HP=10 | |
353 | S CHCNT=$ P(^CHMRSQ1 ("MARSQ",Q UE,"CNT"), U,CHP) | |
354 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
355 | ;S CHO30= $P(^CHMRSQ 1("MARSQ", QUE,"O30") ,U,CHP) | |
356 | ;S CHO60= $P(^CHMRSQ 1("MARSQ", QUE,"O60") ,U,CHP) | |
357 | ;S CHO90= $P(^CHMRSQ 1("MARSQ", QUE,"O90") ,U,CHP) | |
358 | ;S CHO91= $P(^CHMRSQ 1("MARSQ", QUE,"O91") ,U,CHP) | |
359 | S CHO10=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O10"), U,CHP) | |
360 | S CHO14=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O14"), U,CHP) | |
361 | S CHO21=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O21"), U,CHP) | |
362 | S CHO29=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O29"), U,CHP) | |
363 | S CHO30=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O30"), U,CHP) | |
364 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
365 | S CHOLD=$ P(^CHMRSQ1 ("MARSQ",Q UE,"OLD"), U,CHP) I C HOLD="" S CHPGPT=1 G D1 | |
366 | S CLMPT=0 ,CLMPT=$O( ^CHMINDEX( "B",CHOLD, CLMPT)) I 'CLMPT S C HPGPT=1 G D1 | |
367 | S X1=CLMP T D PROGTY P^CHFCD001 | |
368 | S:CHPGPT= 1 CHOLD="C V "_CHOLD S:CHPGPT=2 CHOLD="CV "_CHOLD | |
369 | S:CHPGPT= 3 CHOLD="F MP"_CHOLD S:CHPGPT=4 CHOLD="PG W"_CHOLD | |
370 | S:CHPGPT= 5 CHOLD="N V "_CHOLD S:CHPGPT=6 CHOLD="SB "_CHOLD | |
371 | S:CHPGPT= 7 CHOLD="W V "_CHOLD | |
372 | D1 S CHODT =$P(^CHMRS Q1("MARSQ" ,QUE,"ODT" ),U,CHP+CH PO) S:CHOD T["99999" CHODT="" | |
373 | ;I CHODT' ="" S Y=CH ODT D DD^% DT S CHODT =$P(Y,"@", 1) | |
374 | D CKTOP | |
375 | I QUE="QA CPD" W !," QA-CPD" G DET1 | |
376 | I QUE="QA QMD" W !," QA-QMD" G DET1 | |
377 | I QUE="GR P" W !,"GR OUPER" G D ET1 | |
378 | W !,QUE | |
379 | DET1 W ?25 ,$J(CHCNT, 9) ;W ?1 5,$J(CHCNT ,9) ; DEV0 00272, SKD 6-27-07 | |
380 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
381 | ;W ?26,$J (CHO30,7) | |
382 | ;W ?36,$J (CHO60,7) | |
383 | ;W ?46,$J (CHO90,7) | |
384 | ;W ?56,$J (CHO91,7) | |
385 | ;S:CHOLD= 0 CHOLD="" W ?65,CHO LD S:CHOLD ="" CHODT= "" | |
386 | W ?39,$J( CHO10,7) | |
387 | W ?54,$J( CHO14,7) | |
388 | W ?69,$J( CHO21,7) | |
389 | W ?84,$J( CHO29,7) | |
390 | W ?99,$J( CHO30,7) | |
391 | S:CHOLD=0 CHOLD="" W ?115,CHO LD S:CHOLD ="" CHODT= "" ;DEV00 0272, SKD 7-13-07; W ?75,CHOL D | |
392 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
393 | ;W ?60,CH ODT | |
394 | DETEND Q | |
395 | ; | |
396 | FOOT D CKT OP | |
397 | W !," T OTAL" | |
398 | W ?25,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","C NT"),U,CHP ),9) | |
399 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
400 | ;W ?26,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O30"),U,CH P),7) | |
401 | ;W ?36,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O60"),U,CH P),7) | |
402 | ;W ?46,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O90"),U,CH P),7) | |
403 | ;W ?56,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O91"),U,CH P),7) | |
404 | W ?39,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 10"),U,CHP ),7) | |
405 | W ?54,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 14"),U,CHP ),7) | |
406 | W ?69,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 21"),U,CHP ),7) | |
407 | W ?84,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 29"),U,CHP ),7) | |
408 | W ?99,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 30"),U,CHP ),7) | |
409 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
410 | G:CHST="E DI CLAIMS" FOOTEND G :CHST="MDM TRX CLAIMS " FOOTEND | |
411 | G:CHST="C MOP CLAIMS " FOOTEND G:CHST="EM CLAIMS" F OOTEND | |
412 | G:CHST="S XC CLAIMS" FOOTEND G :CHST="CVA EDI RO CL AIMS" FOOT END G:CHST ="SB EDI R O CLAIMS" FOOTEND | |
413 | ;W ! | |
414 | FOOTEND Q | |
415 | ; | |
416 | CKTOP D:$Y >CHPGL HDI NG,SUBHD | |
417 | Q | |
418 | ; | |
419 | HDING S $Y =0,CHPG=CH PG+1,CHSIT E="HEALTH ADMINISTRA TION CENTE R" | |
420 | W:CHPG>1 # | |
421 | W DUZ,?(C HPGW-$L(CH SITE))\2,C HSITE,?(CH PGW-$L(CHP G)-6),"Pag e: ",CHPG | |
422 | W !,CHDTR ,?(CHPGW-$ L(CHTITLE) )\2,CHTITL E | |
423 | W !,CHTM, ?(CHPGW-$L (CHDTL))\2 ,CHDTL | |
424 | Q | |
425 | ; | |
426 | SUBHD ;I C HST="ALL C LAIMS" W ! !,CHST G S UB1 | |
427 | ;W !!,CHS T | |
428 | SUB1 W !!, CHST,?25," Number Of" ,?40,"Clai ms",?55,"C laims",?70 ,"Claims", ?85,"Claim s" | |
429 | W ?100,"C laims" ;M OD PER DEV 000272, SK D 6-27-07 | |
430 | ;W !,"Que ues",?15," Claims",?2 6,"1-30 Dy s",?36,"31 -60 Dys",? 46,"61-90 Dys",?56," >90 Dys" ;;MOD PER DEV000272 , SKD 6-27 -07 | |
431 | W !,"Queu es",?25,"C laims",?39 ,"1-10 Dys ",?54,"11- 14 Dys",?6 9,"15-21 D ys",?84,"2 2-29 Dys", ?99,">30 D ys" ;M OD PER DEV 000272, SK D 6-27-07 | |
432 | W !,$E(CH BL,1,14),? 25,$E(CHBL ,1,9),?39, $E(CHBL,1, 8),?54,$E( CHBL,1,9), ?69,$E(CHB L,1,9) | |
433 | ;W ?56,$E (CHBL,1,7) ;MOD PER DEV000272 , SKD 6-27 -07 | |
434 | W ?84,$E( CHBL,1,9), ?99,$E(CHB L,1,8) ;M OD PER DEV 000272, SK D 6-27-07 | |
435 | Q | |
436 | ; | |
437 | ||
438 | ||
439 | Difference s | |
440 | ||
441 | ;CPE005-02 5 HM 10/12 /2017 | |
442 | ||
443 | W !,"NOTE3 : EM CLAIM S = EDI + CVA EDI RO + SB EDI RO + MDMTR X + SXC + CMOP CLAIM S" ;HM 12/ 12/2017 | |
444 | ||
445 | ||
446 | ||
447 | ||
448 | ||
449 | ||
450 | ||
451 | ||
452 | ||
453 | ||
454 | ||
455 | ||
456 | ||
457 | ||
458 | ||
459 | ||
460 | ||
461 | ||
462 | ||
463 | ||
464 | ||
465 | Passed XIN DEX? (Y / N): |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.