Produced by Araxis Merge on 12/7/2017 6:27:12 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 CHMRSQC1.docx | Thu Dec 7 15:13:24 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 CHMRSQC1.docx | Thu Dec 7 20:42:33 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 2438 |
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 QC1 | |
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 | CHMRSQC1 ; CVA/AEB;ST ATUS OF QU EUES/MORNI NG REPORT - CALC SUB ROUTINES;0 9/01/98 8 :44 AM | |
6 | ;;V1.0;;; ;Build 7 | |
7 | ;COPY OF CHMRSQC | |
8 | ; CPE005- 016A HM 8/ 29/17 | |
9 | ; CPE005- 016B WTC 9 /1/17 | |
10 | ; | |
11 | INIT D NOW ^%DTC S RU NTIME=% | |
12 | S U="^" | |
13 | I '$D(^CH MRSQ1("MAR SQ","RESTA RT")) S ^C HMRSQ1("MA RSQ","REST ART")=$$FY R(DT) | |
14 | S RESTART =^CHMRSQ1( "MARSQ","R ESTART") | |
15 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
16 | ;S (CHCNT T,CHO30T,C HCNTTI,CHO 30TI,CHCNT TE,CHO30TE ,CHCNTTM,C HO30TM,CHC NTTC,CHO30 TC)=0 | |
17 | ;S (CHCNT TN,CHO30TN ,CHCNTTS,C HO30TS,CHC NTTH,CHO30 TH,CHCNTTF ,CHO30TF)= 0 | |
18 | ;S (CHO90 T,CHO60T,C HO91T,CHO9 1TI,CHO60T I,CHO90TC, CHO91TC,CH O60TC)=0 | |
19 | ;S (CHO91 TH,CHO90TH ,CHO60TH,C HO60TM,CHO 90TM,CHO91 TM)=0 | |
20 | ;S (CHO91 TE,CHO90TE ,CHO60TE,C HO91TS,CHO 90TS,CHO60 TS)=0 | |
21 | ;S (CHO91 TN,CHO90TN ,CHO60TN,C HO60TF,CHO 90TF,CHO91 TF)=0 | |
22 | ;S (CHO91 TI,CHO90TI ,CHO60TI)= 0 | |
23 | ;S (CHCNT TW,CHO30TW ,CHO60TW,C HO90TW,CHO 91TW)=0 | |
24 | ;S (CHCNT TL,CHO30TL ,CHO60TL,C HO90TL,CHO 91TL)=0 | |
25 | S (CHCNTT ,CHO10T,CH O14T,CHO21 T,CHO29T,C HO30T)=0 | |
26 | S (CHCNTT I,CHO10TI, CHO14TI,CH O21TI,CHO2 9TI,CHO30T I)=0 | |
27 | S (CHCNTT E,CHO10TE, CHO14TE,CH O21TE,CHO2 9TE,CHO30T E)=0 | |
28 | S (CHCNTT F,CHO10TF, CHO14TF,CH O21TF,CHO2 9TF,CHO30T F)=0 | |
29 | S (CHCNTT M,CHO10TM, CHO14TM,CH O21TM,CHO2 9TM,CHO30T M)=0 | |
30 | S (CHCNTT C,CHO10TC, CHO14TC,CH O21TC,CHO2 9TC,CHO30T C)=0 | |
31 | S (CHCNTT N,CHO10TN, CHO14TN,CH O21TN,CHO2 9TN,CHO30T N)=0 | |
32 | S (CHCNTT S,CHO10TS, CHO14TS,CH O21TS,CHO2 9TS,CHO30T S)=0 | |
33 | S (CHCNTT H,CHO10TH, CHO14TH,CH O21TH,CHO2 9TH,CHO30T H)=0 | |
34 | S (CHCNTT L,CHO10TL, CHO14TL,CH O21TL,CHO2 9TL,CHO30T L)=0 | |
35 | S (CHCNTT W,CHO10TW, CHO14TW,CH O21TW,CHO2 9TW,CHO30T W)=0 | |
36 | ;HR-PBM-P HASE 1-Beg in - SLM | |
37 | ;Followin g line add ed for SXC ... | |
38 | S (CHCNTT X,CHO10TX, CHO14TX,CH O21TX,CHO2 9TX,CHO30T X)=0 | |
39 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
40 | ;HR-PBM-P HASE 1-End | |
41 | ;HM CPE00 5-016A 8/2 9/2017 | |
42 | S (CHCNTT R,CHO10TR, CHO14TR,CH O21TR,CHO2 9TR,CHO30T R)=0 | |
43 | ; | |
44 | ; WTC CPE0 05-016B 9/ 1/17 | |
45 | ; | |
46 | S (CHCNTTB ,CHO10TB,C HO14TB,CHO 21TB,CHO29 TB,CHO30TB )=0 ; | |
47 | ; | |
48 | INITEND Q | |
49 | ; | |
50 | CPGLC I '$ D(^CHMRSQ1 ("MARSQ")) Q | |
51 | K ^CHMRSQ 1("MARSQC" ) | |
52 | S %X="^CH MRSQ1(""MA RSQ""," | |
53 | S %Y="^CH MRSQ1(""MA RSQC""," | |
54 | D %XY^%RC R | |
55 | Q | |
56 | ; | |
57 | CPGLS I '$ D(^CHMRSQ1 ("MARSQC") ) Q | |
58 | K ^CHMRSQ 1("MARSQ") | |
59 | S %X="^CH MRSQ1(""MA RSQC""," | |
60 | S %Y="^CH MRSQ1(""MA RSQ""," | |
61 | D %XY^%RC R | |
62 | Q | |
63 | ; | |
64 | KI ; | |
65 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
66 | ;K CHCNT, CHCNTT,CHD IQ,CHDT30, CHI,CHJ,CH O30,CHO30T ,CHO21,CHO 21T,CHO21T I | |
67 | ;K CHODT, CHOLD,CHCN TI,CHCNTTI ,CHO30I,CH O30TI,CHOD TI,CHOLDI, CHVENPT | |
68 | ;K QCL,QD T,QREC,QST AT,QUE,CHD T21,CHO21I ,CHCNTTE,C HCNTE,CHO2 1E,CHO30E | |
69 | ;K CHO21T E,CHO30TE, CHCNTTC,CH CNTC,CHO21 C,CHO30C,C HO21TC,CHO 30TC | |
70 | ;K CHCNTT M,CHCNTM,C HO21M,CHO3 0M,CHO30TM ,CHCNTTN,C HCNTF | |
71 | ;K CHCNTT S,CHO21TS, CHO30TS,CH CNTTH,CHO2 1TH,CHO30T H,CHO21TN | |
72 | ;K CHCNTW ,CHO30W,CH O60W,CHO90 W,CHO91W | |
73 | ;K CHCNTL ,CHO30L,CH O60L,CHO90 L,CHO91L | |
74 | ;K CHCNTT W,CHO30TW, CHO60TW,CH O90TW,CHO9 1TW | |
75 | ;K CHCNTT L,CHO30TL, CHO60TL,CH O90TL,CHO9 1TL | |
76 | K CHCNT,C HDIQ,CHI,C HJ,CHODT,C HOLD,CHODT I,CHOLDI,C HVENPT,QCL ,QDT,QREC, QSTAT,QUE | |
77 | K CHCNTT, CHO10T,CHO 14T,CHO21T ,CHO29T,CH O30T | |
78 | K CHCNTTI ,CHO10TI,C HO14TI,CHO 21TI,CHO29 TI,CHO30TI | |
79 | K CHCNTTE ,CHO10TE,C HO14TE,CHO 21TE,CHO29 TE,CHO30TE | |
80 | K CHCNTTF ,CHO10TF,C HO14TF,CHO 21TF,CHO29 TF,CHO30TF | |
81 | K CHCNTTM ,CHO10TM,C HO14TM,CHO 21TM,CHO29 TM,CHO30TM | |
82 | K CHCNTTC ,CHO10TC,C HO14TC,CHO 21TC,CHO29 TC,CHO30TC | |
83 | K CHCNTTN ,CHO10TN,C HO14TN,CHO 21TN,CHO29 TN,CHO30TN | |
84 | K CHCNTTS ,CHO10TS,C HO14TS,CHO 21TS,CHO29 TS,CHO30TS | |
85 | K CHCNTTH ,CHO10TH,C HO14TH,CHO 21TH,CHO29 TH,CHO30TH | |
86 | K CHCNTTW ,CHO10TW,C HO14TW,CHO 21TW,CHO29 TW,CHO30TW | |
87 | ;HR-PBM-P HASE 1-Beg in - SLM | |
88 | ;Followin g lines ad ded for SX C... | |
89 | ;K CHCNTX ,CHO10X,CH O14X,CHO21 X,CHO29X,C HO30X | |
90 | K CHCNTTX ,CHO10TX,C HO14TX,CHO 21TX,CHO29 TX,CHO30TX | |
91 | ;HR-PBM -PHASE 1-E nd | |
92 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
93 | ;HM CPE00 5-016A 8/2 9/2017 | |
94 | K CHCNTTR ,CHO10TR,C HO14TR,CHO 21TR,CHO29 TR,CHO30TR | |
95 | ; | |
96 | ; WTC CPE0 05-016B 9/ 1/17 | |
97 | K CHCNTTB, CHO10TB,CH O14TB,CHO2 1TB,CHO29T B,CHO30TB ; | |
98 | ; | |
99 | ; | |
100 | DUP F CHST AT=0,1 S C HQDT=0 F S CHQDT=$O (^CHMDPCL( 741010.13, "C",CHSTAT ,CHQDT)) Q :'CHQDT S CHI=0 F S CHI=$O(^ CHMDPCL(74 1010.13,"C ",CHSTAT,C HQDT,CHI)) Q:'CHI D DUP1 | |
101 | DUPEND Q | |
102 | ; | |
103 | DUP1 G:'$D (^CHMDPCL( 741010.13, CHI,0)) DU P1END | |
104 | S QREC=^C HMDPCL(741 010.13,CHI ,0) | |
105 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
106 | G:QDT>CHD TE DUP1END | |
107 | G:QCL="" DUP1END S X1=QCL D P ROGTYP^CHF CD001 | |
108 | G:'$D(@(G LPAY_"QCL, 0)")) DUP1 END | |
109 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
110 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) | |
111 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
112 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
113 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
114 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
115 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
116 | D CNT^CHM RSQC1 | |
117 | DUP1END Q | |
118 | ; | |
119 | VEN F CHST AT=0,1,3,4 S CHI=0 F S CHI=$O (^CHMQVN(" D",CHSTAT, CHI)) Q:'C HI D VEN1 | |
120 | VENEND Q | |
121 | ; | |
122 | VEN1 G:'$D (^CHMQVN(C HI,0)) VEN 1END | |
123 | S QREC=^C HMQVN(CHI, 0) | |
124 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
125 | S CHJ=0 | |
126 | V1 S CHJ=$ O(^CHMQVN( CHI,10,CHJ )) G:'CHJ VEN1END | |
127 | G:'$D(^CH MQVN(CHI,1 0,CHJ,0)) V1 | |
128 | S QRECJ=^ CHMQVN(CHI ,10,CHJ,0) | |
129 | S QDT=$P( $P(QRECJ,U ,2),".",1) ,QCL=$P(QR ECJ,U,1),Q STATJ=$P(Q RECJ,U,6) | |
130 | G:QSTATJ= 1 V1 | |
131 | G:QDT>CHD TE V1 | |
132 | G:QCL="" V1 I QCL=7 845662 | |
133 | S X1=QCL D PROGTYP^ CHFCD001 | |
134 | G:'$D(@(G LPAY_"QCL, 0)")) V1 | |
135 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
136 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
137 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
138 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
139 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
140 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
141 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
142 | D CNT^CHM RSQC1 | |
143 | G V1 | |
144 | VEN1END Q | |
145 | ; | |
146 | EOB S CHST AT=0,CHI=0 F S CHI= $O(^CHMEOB Q("C",CHST AT,CHI)) Q :'CHI D E OB1 | |
147 | S CHSTAT= 0,CHI=0 F S CHI=$O( ^CHNVEOBQ( "C",CHSTAT ,CHI)) Q:' CHI D NEO B | |
148 | EOBEND Q | |
149 | ; | |
150 | EOB1 G:'$D (^CHMEOBQ( CHI,0)) EO B1END | |
151 | S QREC=^C HMEOBQ(CHI ,0) | |
152 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
153 | G:QDT>CHD TE EOB1END | |
154 | G:QCL="" EOB1END | |
155 | S X1=QCL D PROGTYP^ CHFCD001 | |
156 | G:'$D(@(G LPAY_"QCL, 0)")) EOB1 END | |
157 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
158 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
159 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
160 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
161 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
162 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
163 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
164 | D CNT^CHM RSQC1 | |
165 | EOB1END Q | |
166 | NEOB G:'$D (^CHNVEOBQ (CHI,0)) E OB1END | |
167 | S QREC=^C HNVEOBQ(CH I,0) | |
168 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
169 | G:QDT>CHD TE EOB1END | |
170 | G:QCL="" EOB1END | |
171 | S X1=QCL D PROGTYP^ CHFCD001 | |
172 | G:'$D(@(G LPAY_"QCL, 0)")) EOB1 END | |
173 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
174 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
175 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
176 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
177 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
178 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
179 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
180 | D CNT^CHM RSQC1 | |
181 | Q | |
182 | GRP S GRPJ =$P(^CHMSN A(741008.0 2,0),"^",3 ) Q:'GRPJ | |
183 | Q:'$D(^CH MSNA(74100 8.02,GRPJ, 0)) | |
184 | S GRPK=0 | |
185 | GRP1 S GRP K=$O(^CHMS NA(741008. 02,GRPJ,1, GRPK)) G:G RPK="" GRP END | |
186 | G:'$D(^CH MSNA(74100 8.02,GRPJ, 1,GRPK,0)) GRP1 | |
187 | S QCLM=$P (^CHMSNA(7 41008.02,G RPJ,1,GRPK ,0),U,1) | |
188 | G:QCLM="" GRP1 | |
189 | ;S QCL=$O (^CHMINDEX ("B",QCLM, QCL)) G:'Q CL GRP1 ;SKD 6-29- 07 DEV0002 72 | |
190 | S QCL=$O( ^CHMINDEX( "B",QCLM,0 )) G:'QCL GRP1 ;SKD 6-29- 07 DEV0002 72 | |
191 | S X1=QCL D PROGTYP^ CHFCD001 | |
192 | G:'$D(@(G LPAY_"QCL, 0)")) GRP1 | |
193 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
194 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
195 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
196 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
197 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
198 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
199 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
200 | D CNT^CHM RSQC1 G GR P1 | |
201 | GRPEND Q | |
202 | ; | |
203 | CAL S CHDI Q=$O(^CHMS NA(741008. 05,"B",CHD IQ)) G:'CH DIQ CALEND | |
204 | G:CHDIQ>C HDTE CAL | |
205 | S CHI=0,C HI=$O(^CHM SNA(741008 .05,"B",CH DIQ,CHI)) G:'CHI CAL | |
206 | G:'$D(^CH MSNA(74100 8.05,CHI,0 )) CAL S Q REC=^(0) | |
207 | S QSTAT=$ P(QREC,U,3 ),QCL="",Q DT=$P($P(Q REC,U,1)," .",1) | |
208 | G:QSTAT=2 !(QSTAT=3) CAL | |
209 | S CHJ=0 | |
210 | F S CHJ= $O(^CHMSNA (741008.05 ,CHI,1,CHJ )) Q:'CHJ D | |
211 | .S QCL=$P (^CHMSNA(7 41008.05,C HI,1,CHJ,0 ),U,1) | |
212 | .Q:QCL="" | |
213 | .S X1=QCL D PROGTYP ^CHFCD001 | |
214 | .Q:'$D(@( GLPAY_"QCL ,0)")) | |
215 | .S QCLJ=9 99999999,Q CLJ=$O(@(G LPAY_"QCL, ""PDI"",QC LJ)"),-1) | |
216 | .I QCLJ'= "",$D(@(GL PAY_"QCL," "PDI"",QCL J,0)")) D | |
217 | ..S TMPQD T=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1) | |
218 | ..;S QDT= $$JULFM(TM PQDT) ;Y2 K | |
219 | ..S QDT=$ $PDIJULFM^ CHMFPDI2(T MPQDT) | |
220 | .D CNT^CH MRSQC1 | |
221 | G CAL | |
222 | CALEND D N VABTH | |
223 | Q | |
224 | CAP S CHDI Q=$O(^CHMS NA(741008. 03,"B",CHD IQ)) G:'CH DIQ CAPEND | |
225 | G:CHDIQ>C HDTE CAP | |
226 | S CHI=0,C HI=$O(^CHM SNA(741008 .03,"B",CH DIQ,CHI)) G:'CHI CAP | |
227 | G:'$D(^CH MSNA(74100 8.03,CHI,0 )) CAP S Q REC=^(0) | |
228 | S QSTAT=$ P(QREC,U,3 ),QCL="",Q DT=$P($P(Q REC,U,1)," .",1) | |
229 | G:QSTAT=2 !(QSTAT=3) CAP | |
230 | S CHJ=0 | |
231 | F S CHJ= $O(^CHMSNA (741008.03 ,CHI,1,CHJ )) Q:'CHJ D | |
232 | .S QCL=$P (^CHMSNA(7 41008.03,C HI,1,CHJ,0 ),U,1) | |
233 | .Q:QCL="" | |
234 | .S X1=QCL D PROGTYP ^CHFCD001 | |
235 | .Q:'$D(@( GLPAY_"QCL ,0)")) | |
236 | .S QCLJ=9 99999999,Q CLJ=$O(@(G LPAY_"QCL, ""PDI"",QC LJ)"),-1) | |
237 | .I QCLJ'= "",$D(@(GL PAY_"QCL," "PDI"",QCL J,0)")) D | |
238 | ..S TMPQD T=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1) | |
239 | ..;S QDT= $$JULFM(TM PQDT) ; Y 2K | |
240 | ..S QDT=$ $PDIJULFM^ CHMFPDI2(T MPQDT) | |
241 | .D CNT^CH MRSQC1 | |
242 | G CAP | |
243 | CAPEND D N VABTH | |
244 | Q | |
245 | ;EDIRO S CHDIQ=$O(^ CHMSNA(741 008.03,"B" ,CHDIQ)) G :'CHDIQ CA PENI | |
246 | ;G:CHDIQ> CHDTE EDIR O | |
247 | ;S CHI=0, CHI=$O(^CH MSNA(74100 8.03,"B",C HDIQ,CHI)) G:'CHI ED IRO | |
248 | ;G:'$D(^C HMSNA(7410 08.03,CHI, 0)) EDIRO S QREC=^(0 ) | |
249 | ;S QSTAT= $P(QREC,U, 3),QCL="", QDT=$P($P( QREC,U,1), ".",1) | |
250 | ;G:QSTAT= 2!(QSTAT=3 ) EDIRO | |
251 | ;S CHJ=0 | |
252 | ;F S CHJ =$O(^CHMSN A(741008.0 3,CHI,1,CH J)) Q:'CHJ D | |
253 | ;.S QCL=$ P(^CHMSNA( 741008.03, CHI,1,CHJ, 0),U,1) | |
254 | ;.Q:QCL=" " | |
255 | ;.S X1=QC L D PROGTY P^CHFCD001 | |
256 | ;.Q:'$D(@ (GLPAY_"QC L,0)")) | |
257 | ;.S QCLJ= 999999999, QCLJ=$O(@( GLPAY_"QCL ,""PDI"",Q CLJ)"),-1) | |
258 | ;.I QCLJ' ="",$D(@(G LPAY_"QCL, ""PDI"",QC LJ,0)")) D | |
259 | ;..S TMPQ DT=$P(@(GL PAY_"QCL," "PDI"",QCL J,0)"),"^" ,1) | |
260 | ;..;S QDT =$$JULFM(T MPQDT) ; Y2K | |
261 | ;..S QDT= $$PDIJULFM ^CHMFPDI2( TMPQDT) | |
262 | ;.D CNT^C HMRSQC1 | |
263 | ;G EDIRO | |
264 | ;CAPENI D NVABTH | |
265 | ;Q | |
266 | NVABTH S C HDIQ=$O(^C HHACASF(74 13002.2,"B ",CHDIQ)) G:'CHDIQ N VABED | |
267 | G:CHDIQ>C HDTE NVABT H | |
268 | S CHI=0,C HI=$O(^CHH ACASF(7413 002.2,"B", CHDIQ,CHI) ) G:'CHI N VABTH | |
269 | G:'$D(^CH HACASF(741 3002.2,CHI ,0)) NVABT H | |
270 | G:$P(^CHH ACASF(7413 002.2,CHI, 0),"^",2)= 3 NVABTH | |
271 | S CHJ=0 | |
272 | NVA1 S CHJ =$O(^CHHAC ASF(741300 2.2,CHI,10 0,CHJ)) G: 'CHJ NVABT H | |
273 | G:'$D(^CH HACASF(741 3002.2,CHI ,100,CHJ,0 )) NVA1 | |
274 | G:QUE="CA L"&($P(^CH HACASF(741 3002.2,CHI ,100,CHJ,0 ),"^",9)=1 ) NVA1 | |
275 | G:QUE="CA P"&($P(^CH HACASF(741 3002.2,CHI ,100,CHJ,0 ),"^",9)=0 ) NVA1 | |
276 | S CHK=0 | |
277 | NVA2 S CHK =$O(^CHHAC ASF(741300 2.2,CHI,10 0,CHJ,200, CHK)) G:'C HK NVA1 | |
278 | G:'$D(^CH HACASF(741 3002.2,CHI ,100,CHJ,2 00,CHK,0)) NVA2 | |
279 | S CHL=0 | |
280 | NVA3 S CHL =$O(^CHHAC ASF(741300 2.2,CHI,10 0,CHJ,200, CHK,300,CH L)) G:'CHL NVA2 | |
281 | G:'$D(^CH HACASF(741 3002.2,CHI ,100,CHJ,2 00,CHK,300 ,CHL,0)) N VA3 | |
282 | S QREC=^C HHACASF(74 13002.2,CH I,100,CHJ, 200,CHK,30 0,CHL,0) | |
283 | S QSTAT=$ P(QREC,"^" ,4),QDT=$P (CHI,".",1 ),QCL=$P(Q REC,"^",1) | |
284 | G:QCL="" NVA3 | |
285 | S X1=QCL D PROGTYP^ CHFCD001 | |
286 | G:'$D(@(G LPAY_"QCL, 0)")) NVA3 | |
287 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
288 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
289 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
290 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
291 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
292 | D CNT^CHM RSQC1 | |
293 | G NVA3 | |
294 | NVABED Q | |
295 | CNT Q:QCL= "" | |
296 | S CHCNT=C HCNT+1,CHC NTT=CHCNTT +1 | |
297 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
298 | ;I QDT'<C HDT30 S CH O30=CHO30+ 1,CHO30T=C HO30T+1 | |
299 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60=CHO 60+1,CHO60 T=CHO60T+1 | |
300 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90=CHO 90+1,CHO90 T=CHO90T+1 | |
301 | ;I QDT<CH DT90 S CHO 91=CHO91+1 ,CHO91T=CH O91T+1 | |
302 | I QDT'<CH DT10 S CHO 10=CHO10+1 ,CHO10T=CH O10T+1 | |
303 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14=CHO1 4+1,CHO14T =CHO14T+1 | |
304 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21=CHO2 1+1,CHO21T =CHO21T+1 | |
305 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29=CHO2 9+1,CHO29T =CHO29T+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
306 | I QDT<CHD T30 S CHO3 0=CHO30+1, CHO30T=CHO 30T+1 ;AE B 2/2/2009 DEV004170 CHANGED C HDT29 TO C HDT30 | |
307 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
308 | I QDT<CHO DT S CHODT =QDT_U_CHI ,CHOLD=$P( @(GLPAY_"Q CL,0)"),U, 1) | |
309 | D CNTI,CN TEDI,CNTF, CNTMDX,CNT SXC,CNTCMP ,CNTNVA,CN TSB,CNTHAC ,CNTWV,CNT EDIRO,CNTE DISB ; WTC 9/1/17 | |
310 | CNTEND Q | |
311 | ; | |
312 | CNTI Q:'$D (@(GLPAY_" QCL,0)")) I $P(@(GL PAY_"QCL,0 )"),U,3)=" " G CNTIEN D | |
313 | S CHVENPT =$P(@(GLPA Y_"QCL,0)" ),U,3) | |
314 | I '$D(^CH MVEN(CHVEN PT,1)) G C NTIEND | |
315 | I $P(^CHM VEN(CHVENP T,1),U,16) '=1 G CNTI END | |
316 | S CHCNTI= CHCNTI+1,C HCNTTI=CHC NTTI+1 | |
317 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
318 | ;I QDT'<C HDT30 S CH O30I=CHO30 I+1,CHO30T I=CHO30TI+ 1 | |
319 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60I=CH O60I+1,CHO 60TI=CHO60 TI+1 | |
320 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90I=CH O90I+1,CHO 90TI=CHO90 TI+1 | |
321 | ;I QDT<CH DT90 S CHO 91I=CHO91I +1,CHO91TI =CHO91TI+1 | |
322 | I QDT'<CH DT10 S CHO 10I=CHO10I +1,CHO10TI =CHO10TI+1 | |
323 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14I=CHO 14I+1,CHO1 4TI=CHO14T I+1 | |
324 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21I=CHO 21I+1,CHO2 1TI=CHO21T I+1 | |
325 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29I=CHO 29I+1,CHO2 9TI=CHO29T I+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
326 | I QDT<CHD T30 S CHO3 0I=CHO30I+ 1,CHO30TI= CHO30TI+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
327 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
328 | I QDT<CHO DTI S CHOD TI=QDT_U_C HI,CHOLDI= $P(@(GLPAY _"QCL,0)") ,U,1) | |
329 | CNTIEND Q | |
330 | ; | |
331 | CNTEDI Q:' $D(@(GLPAY _"QCL,""ZE MC"")")) | |
332 | S CHCNTE= CHCNTE+1,C HCNTTE=CHC NTTE+1 | |
333 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
334 | ;I QDT'<C HDT30 S CH O30E=CHO30 E+1,CHO30T E=CHO30TE+ 1 | |
335 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60E=CH O60E+1,CHO 60TE=CHO60 TE+1 | |
336 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90E=CH O90E+1,CHO 90TE=CHO90 TE+1 | |
337 | ;I QDT<CH DT90 S CHO 91E=CHO91E +1,CHO91TE =CHO91TE+1 | |
338 | I QDT'<CH DT10 S CHO 10E=CHO10E +1,CHO10TE =CHO10TE+1 | |
339 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14E=CHO 14E+1,CHO1 4TE=CHO14T E+1 | |
340 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21E=CHO 21E+1,CHO2 1TE=CHO21T E+1 | |
341 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29E=CHO 29E+1,CHO2 9TE=CHO29T E+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
342 | I QDT<CHD T30 S CHO3 0E=CHO30E+ 1,CHO30TE= CHO30TE+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
343 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
344 | I QDT<CHO DTE S CHOD TE=QDT_U_C HI,CHOLDE= $P(@(GLPAY _"QCL,0)") ,U,1) | |
345 | Q | |
346 | CNTF ;COUN T X12 AND OCR ONLY | |
347 | Q:'$D(@(G LPAY_"QCL, ""ZEMC"")" )) | |
348 | I $D(@(GL PAY_"QCL," "ZEMC"")") ) Q:$D(@(G LPAY_"QCL, ""ZEMC""," "MDMTRX"") ")) | |
349 | I $D(@(GL PAY_"QCL," "ZEMC"")") ) Q:$D(@(G LPAY_"QCL, ""ZEMC""," "CMOP"")") ) | |
350 | I $D(@(GL PAY_"QCL," "ZEMC"")") ) Q:$D(@(G LPAY_"QCL, ""ZEMC""," "SXC"")")) | |
351 | S CHCNTF= CHCNTF+1,C HCNTTF=CHC NTTF+1 | |
352 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
353 | ;I QDT'<C HDT30 S CH O30F=CHO30 F+1,CHO30T F=CHO30TF+ 1 | |
354 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60F=CH O60F+1,CHO 60TF=CHO60 TF+1 | |
355 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90F=CH O90F+1,CHO 90TF=CHO90 TF+1 | |
356 | ;I QDT<CH DT90 S CHO 91F=CHO91F +1,CHO91TF =CHO91TF+1 | |
357 | I QDT'<CH DT10 S CHO 10F=CHO10F +1,CHO10TF =CHO10TF+1 | |
358 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14F=CHO 14F+1,CHO1 4TF=CHO14T F+1 | |
359 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21F=CHO 21F+1,CHO2 1TF=CHO21T F+1 | |
360 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29F=CHO 29F+1,CHO2 9TF=CHO29T F+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
361 | I QDT<CHD T30 S CHO3 0F=CHO30F+ 1,CHO30TF= CHO30TF+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
362 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
363 | I QDT<CHO DTF S CHOD TF=QDT_U_C HI,CHOLDF= $P(@(GLPAY _"QCL,0)") ,U,1) | |
364 | Q | |
365 | CNTMDX Q:' $D(@(GLPAY _"QCL,""ZE MC"",""MDM TRX"")")) | |
366 | S CHCNTM= CHCNTM+1,C HCNTTM=CHC NTTM+1 | |
367 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
368 | ;I QDT'<C HDT30 S CH O30M=CHO30 M+1,CHO30T M=CHO30TM+ 1 | |
369 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60M=CH O60M+1,CHO 60TM=CHO60 TM+1 | |
370 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90M=CH O90M+1,CHO 90TM=CHO90 TM+1 | |
371 | ;I QDT<CH DT90 S CHO 91M=CHO91M +1,CHO91TM =CHO91TM+1 | |
372 | I QDT'<CH DT10 S CHO 10M=CHO10M +1,CHO10TM =CHO10TM+1 | |
373 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14M=CHO 14M+1,CHO1 4TM=CHO14T M+1 | |
374 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21M=CHO 21M+1,CHO2 1TM=CHO21T M+1 | |
375 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29M=CHO 29M+1,CHO2 9TM=CHO29T M+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
376 | I QDT<CHD T30 S CHO3 0M=CHO30M+ 1,CHO30TM= CHO30TM+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
377 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
378 | I QDT<CHO DTM S CHOD TM=QDT_U_C HI,CHOLDM= $P(@(GLPAY _"QCL,0)") ,U,1) | |
379 | Q | |
380 | ;HR-PBM-P HASE 1-Beg in - SLM | |
381 | ;The foll owing subr outine add ed for cou nting SXC data... | |
382 | CNTSXC Q:' $D(@(GLPAY _"QCL,""ZE MC"",""SXC "")")) | |
383 | S CHCNTX= CHCNTX+1,C HCNTTX=CHC NTTX+1 | |
384 | ;the foll owing line added... SLM 02/22/ 08 | |
385 | ; | |
386 | I QDT'<CH DT10 S CHO 10X=CHO10X +1,CHO10TX =CHO10TX+1 | |
387 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14X=CHO 14X+1,CHO1 4TX=CHO14T X+1 | |
388 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21X=CHO 21X+1,CHO2 1TX=CHO21T X+1 | |
389 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29X=CHO 29X+1,CHO2 9TX=CHO29T X+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
390 | I QDT<CHD T30 S CHO3 0X=CHO30X+ 1,CHO30TX= CHO30TX+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
391 | I QDT<CHO DTX S CHOD TX=QDT_U_C HI,CHOLDX= $P(@(GLPAY _"QCL,0)") ,U,1) | |
392 | Q | |
393 | ;HR-PBM-P HASE 1-End | |
394 | CNTCMP Q:' $D(@(GLPAY _"QCL,""ZE MC"",""CMO P"")")) | |
395 | S CHCNTC= CHCNTC+1,C HCNTTC=CHC NTTC+1 | |
396 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
397 | ;I QDT'<C HDT30 S CH O30C=CHO30 C+1,CHO30T C=CHO30TC+ 1 | |
398 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60C=CH O60C+1,CHO 60TC=CHO60 TC+1 | |
399 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90C=CH O90C+1,CHO 90TC=CHO90 TC+1 | |
400 | ;I QDT<CH DT90 S CHO 91C=CHO91C +1,CHO91TC =CHO91TC+1 | |
401 | I QDT'<CH DT10 S CHO 10C=CHO10C +1,CHO10TC =CHO10TC+1 | |
402 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14C=CHO 14C+1,CHO1 4TC=CHO14T C+1 | |
403 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21C=CHO 21C+1,CHO2 1TC=CHO21T C+1 | |
404 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29C=CHO 29C+1,CHO2 9TC=CHO29T C+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
405 | I QDT<CHD T30 S CHO3 0C=CHO30C+ 1,CHO30TC= CHO30TC+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
406 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
407 | I QDT<CHO DTC S CHOD TC=QDT_U_C HI,CHOLDC= $P(@(GLPAY _"QCL,0)") ,U,1) | |
408 | Q | |
409 | CNTPDI S C HCNT=CHCNT +1,CHCNTT= CHCNTT+1 | |
410 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
411 | ;I QDT'<C HDT30 S CH O30=CHO30+ 1,CHO30T=C HO30T+1 | |
412 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60=CHO 60+1,CHO60 T=CHO60T+1 | |
413 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90=CHO 90+1,CHO90 T=CHO90T+1 | |
414 | ;I QDT<CH DT90 S CHO 91=CHO91+1 ,CHO91T=CH O91T+1 | |
415 | I QDT'<CH DT10 S CHO 10=CHO10+1 ,CHO10T=CH O10T+1 | |
416 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14=CHO1 4+1,CHO14T =CHO14T+1 | |
417 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21=CHO2 1+1,CHO21T =CHO21T+1 | |
418 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29=CHO2 9+1,CHO29T =CHO29T+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
419 | I QDT<CHD T30 S CHO3 0=CHO30+1, CHO30T=CHO 30T+1 ;AE B 2/2/2009 DEV004170 CHANGED C HDT29 TO C HDT30 | |
420 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
421 | I QDT<CHO DT S CHODT =QDT_U_CHI ,CHOLD=QPD I | |
422 | S CHOLD=$ E(CHOLD,8, 13) | |
423 | Q | |
424 | CNTNVA Q:C HPGPT'=5 | |
425 | Q:'$D(@(G LPAY_"QCL, 0)")) | |
426 | S CHCNTN= CHCNTN+1,C HCNTTN=CHC NTTN+1 | |
427 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
428 | ;I QDT'<C HDT30 S CH O30N=CHO30 N+1,CHO30T N=CHO30TN+ 1 | |
429 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60N=CH O60N+1,CHO 60TN=CHO60 TN+1 | |
430 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90N=CH O90N+1,CHO 90TN=CHO90 TN+1 | |
431 | ;I QDT<CH DT90 S CHO 91N=CHO91N +1,CHO91TN =CHO91TN+1 | |
432 | I QDT'<CH DT10 S CHO 10N=CHO10N +1,CHO10TN =CHO10TN+1 | |
433 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14N=CHO 14N+1,CHO1 4TN=CHO14T N+1 | |
434 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21N=CHO 21N+1,CHO2 1TN=CHO21T N+1 | |
435 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29N=CHO 29N+1,CHO2 9TN=CHO29T N+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
436 | I QDT<CHD T30 S CHO3 0N=CHO30N+ 1,CHO30TN= CHO30TN+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
437 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
438 | I QDT<CHO DTN S CHOD TN=QDT_U_C HI,CHOLDN= $P(@(GLPAY _"QCL,0)") ,U,1) | |
439 | Q | |
440 | CNTSB Q:'$ D(@(GLPAY_ "QCL,0)")) I '$D(CH PGPT) S X1 =QCL D PRO GTYP^CHFCD 001 | |
441 | Q:CHPGPT' =6 | |
442 | S CHCNTS= CHCNTS+1,C HCNTTS=CHC NTTS+1 | |
443 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
444 | ;I QDT'<C HDT30 S CH O30S=CHO30 S+1,CHO30T S=CHO30TS+ 1 | |
445 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60S=CH O60S+1,CHO 60TS=CHO60 TS+1 | |
446 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90S=CH O90S+1,CHO 90TS=CHO90 TS+1 | |
447 | ;I QDT<CH DT90 S CHO 91S=CHO91S +1,CHO91TS =CHO91TS+1 | |
448 | I QDT'<CH DT10 S CHO 10S=CHO10S +1,CHO10TS =CHO10TS+1 | |
449 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14S=CHO 14S+1,CHO1 4TS=CHO14T S+1 | |
450 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21S=CHO 21S+1,CHO2 1TS=CHO21T S+1 | |
451 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29S=CHO 29S+1,CHO2 9TS=CHO29T S+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
452 | I QDT<CHD T30 S CHO3 0S=CHO30S+ 1,CHO30TS= CHO30TS+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
453 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
454 | I QDT<CHO DTS S CHOD TS=QDT_U_C HI,CHOLDS= $P(@(GLPAY _"QCL,0)") ,U,1) | |
455 | Q | |
456 | CNTHAC Q:' $D(@(GLPAY _"QCL,0)") ) I '$D(C HPGPT) S X 1=QCL D PR OGTYP^CHFC D001 | |
457 | Q:CHPGPT> 2 | |
458 | S CHCNTH= CHCNTH+1,C HCNTTH=CHC NTTH+1 | |
459 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
460 | ;I QDT'<C HDT30 S CH O30H=CHO30 H+1,CHO30T H=CHO30TH+ 1 | |
461 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60H=CH O60H+1,CHO 60TH=CHO60 TH+1 | |
462 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90H=CH O90H+1,CHO 90TH=CHO90 TH+1 | |
463 | ;I QDT<CH DT90 S CHO 91H=CHO91H +1,CHO91TH =CHO91TH+1 | |
464 | I QDT'<CH DT10 S CHO 10H=CHO10H +1,CHO10TH =CHO10TH+1 | |
465 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14H=CHO 14H+1,CHO1 4TH=CHO14T H+1 | |
466 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21H=CHO 21H+1,CHO2 1TH=CHO21T H+1 | |
467 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29H=CHO 29H+1,CHO2 9TH=CHO29T H+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
468 | I QDT<CHD T30 S CHO3 0H=CHO30H+ 1,CHO30TH= CHO30TH+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
469 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
470 | I QDT<CHO DTH S CHOD TH=QDT_U_C HI,CHOLDH= $P(@(GLPAY _"QCL,0)") ,U,1) | |
471 | ;If CHAMP VA claim i s CFL then count CFL Claim | |
472 | I $$CFLCH K^CHTFLIB( QCL) D CNT CFL | |
473 | Q | |
474 | CNTWV Q:'$ D(@(GLPAY_ "QCL,0)")) I '$D(CH PGPT) S X1 =QCL D PRO GTYP^CHFCD 001 | |
475 | Q:CHPGPT' =7 | |
476 | S CHCNTW= CHCNTW+1,C HCNTTW=CHC NTTW+1 | |
477 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
478 | ;I QDT'<C HDT30 S CH O30W=CHO30 W+1,CHO30T W=CHO30TW+ 1 | |
479 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60W=CH O60W+1,CHO 60TW=CHO60 TW+1 | |
480 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90W=CH O90W+1,CHO 90TW=CHO90 TW+1 | |
481 | ;I QDT<CH DT90 S CHO 91W=CHO91W +1,CHO91TW =CHO91TW+1 | |
482 | I QDT'<CH DT10 S CHO 10W=CHO10W +1,CHO10TW =CHO10TW+1 | |
483 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14W=CHO 14W+1,CHO1 4TW=CHO14T W+1 | |
484 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21W=CHO 21W+1,CHO2 1TW=CHO21T W+1 | |
485 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29W=CHO 29W+1,CHO2 9TW=CHO29T W+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
486 | I QDT<CHD T30 S CHO3 0W=CHO30W+ 1,CHO30TW= CHO30TW+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
487 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
488 | I QDT<CHO DTW S CHOD TW=QDT_U_C HI,CHOLDW= $P(@(GLPAY _"QCL,0)") ,U,1) | |
489 | Q | |
490 | CNTCFL N D OS,DOB,AGE ,CLFDFN,CL FBFN | |
491 | S CHCNTL= CHCNTL+1,C HCNTTL=CHC NTTL+1 | |
492 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
493 | ;I QDT'<C HDT30 S CH O30L=CHO30 L+1,CHO30T L=CHO30TL+ 1 | |
494 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60L=CH O60L+1,CHO 60TL=CHO60 TL+1 | |
495 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90L=CH O90L+1,CHO 90TL=CHO90 TL+1 | |
496 | ;I QDT<CH DT90 S CHO 91L=CHO91L +1,CHO91TL =CHO91TL+1 | |
497 | I QDT'<CH DT10 S CHO 10L=CHO10L +1,CHO10TL =CHO10TL+1 | |
498 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14L=CHO 14L+1,CHO1 4TL=CHO14T L+1 | |
499 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21L=CHO 21L+1,CHO2 1TL=CHO21T L+1 | |
500 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29L=CHO 29L+1,CHO2 9TL=CHO29T L+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
501 | I QDT<CHD T30 S CHO3 0L=CHO30L+ 1,CHO30TL= CHO30TL+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
502 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
503 | I QDT<CHO DTL S CHOD TL=QDT_U_C HI,CHOLDL= $P(@(GLPAY _"QCL,0)") ,U,1) | |
504 | Q | |
505 | ; ;HR-PBM -PHASE 1-B egin - SLM | |
506 | TOTSET S ^ CHMRSQ1("M ARSQC","TO TAL","CNT" )=CHCNTT_U _CHCNTTI_U _CHCNTTE_U _CHCNTTM_U _CHCNTTC_U _CHCNTTN_U _CHCNTTS_U _CHCNTTH_U _CHCNTTF_U _CHCNTTW_U _CHCNTTL_U _CHCNTTX_U _CHCNTTR_U _CHCNTTB ; WTC 9/1/1 7 | |
507 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
508 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O30")=CHO 30T_U_CHO3 0TI_U_CHO3 0TE_U_CHO3 0TM_U_CHO3 0TC_U_CHO3 0TN_U_CHO3 0TS_U_CHO3 0TH_U_CHO3 0TF_U_CHO3 0TW_U_CHO3 0TL | |
509 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O60")=CHO 60T_U_CHO6 0TI_U_CHO6 0TE_U_CHO6 0TM_U_CHO6 0TC_U_CHO6 0TN_U_CHO6 0TS_U_CHO6 0TH_U_CHO6 0TF_U_CHO6 0TW_U_CHO6 0TL | |
510 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O90")=CHO 90T_U_CHO9 0TI_U_CHO9 0TE_U_CHO9 0TM_U_CHO9 0TC_U_CHO9 0TN_U_CHO9 0TS_U_CHO9 0TH_U_CHO9 0TF_U_CHO9 0TW_U_CHO9 0TL | |
511 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O91")=CHO 91T_U_CHO9 1TI_U_CHO9 1TE_U_CHO9 1TM_U_CHO9 1TC_U_CHO9 1TN_U_CHO9 1TS_U_CHO9 1TH_U_CHO9 1TF_U_CHO9 1TW_U_CHO9 1TL | |
512 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O10")=CHO1 0T_U_CHO10 TI_U_CHO10 TE_U_CHO10 TM_U_CHO10 TC_U_CHO10 TN_U_CHO10 TS_U_CHO10 TH_U_CHO10 TF_U_CHO10 TW_U_CHO10 TL_U_CHO10 TX_U_CHO10 TR_U_CHO10 TB ; WTC 9 /1/17 | |
513 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O14")=CHO1 4T_U_CHO14 TI_U_CHO14 TE_U_CHO14 TM_U_CHO14 TC_U_CHO14 TN_U_CHO14 TS_U_CHO14 TH_U_CHO14 TF_U_CHO14 TW_U_CHO14 TL_U_CHO14 TX_U_CHO14 TR_U_CHO14 TB ; WTC 9 /1/17 | |
514 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O21")=CHO2 1T_U_CHO21 TI_U_CHO21 TE_U_CHO21 TM_U_CHO21 TC_U_CHO21 TN_U_CHO21 TS_U_CHO21 TH_U_CHO21 TF_U_CHO21 TW_U_CHO21 TL_U_CHO21 TX_U_CHO21 TR_U_CHO21 TB ; WTC 9 /1/17 | |
515 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O29")=CHO2 9T_U_CHO29 TI_U_CHO29 TE_U_CHO29 TM_U_CHO29 TC_U_CHO29 TN_U_CHO29 TS_U_CHO29 TH_U_CHO29 TF_U_CHO29 TW_U_CHO29 TL_U_CHO29 TX_U_CHO29 TR_U_CHO29 TB ; WTC 9 /1/17 | |
516 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O30")=CHO3 0T_U_CHO30 TI_U_CHO30 TE_U_CHO30 TM_U_CHO30 TC_U_CHO30 TN_U_CHO30 TS_U_CHO30 TH_U_CHO30 TF_U_CHO30 TW_U_CHO30 TL_U_CHO30 TX_U_CHO30 TR_U_CHO30 TB ; WTC 9 /1/17 | |
517 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
518 | TOTEND Q | |
519 | ; | |
520 | ;HM CPE00 5-016A 08/ 28/2017 | |
521 | CNTEDIRO N DOS,DOB,A GE,CLFDFN, CLFBFN,TMP QDTR,OCLJ | |
522 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
523 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) | |
524 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
525 | .S TMPQDT R=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1),PRIND=$ E(TMPQDTR, 8,9) | |
526 | .I PRIND= 97 D | |
527 | ..;HM ADD ED COUNTS FOR EM CLA IMS SECTIO N FOR ALL PROGRAM IN DICATORS O F 97 | |
528 | ..S CHCNT R=CHCNTR+1 ,CHCNTTR=C HCNTTR+1,C HCNTE=CHCN TE+1,CHCNT TE=CHCNTTE +1 ;HM 10/ 12/2017 | |
529 | ..I QDT'< CHDT10 S C HO10R=CHO1 0R+1,CHO10 TR=CHO10TR +1,CHO10E= CHO10E+1,C HO10TE=CHO 10TE+1 ;HM 10/12/201 7 | |
530 | ..I QDT<C HDT10 I QD T'<CHDT14 S CHO14R=C HO14R+1,CH O14TR=CHO1 4TR+1,CHO1 4E=CHO14E+ 1,CHO14TE= CHO14TE+1 ;HM 10/12/ 2017 | |
531 | ..I QDT<C HDT14 I QD T'<CHDT21 S CHO21R=C HO21R+1,CH O21TR=CHO2 1TR+1,CHO2 1E=CHO21E+ 1,CHO21TE= CHO21TE+1 ;HM 10/12/ 2017 | |
532 | ..I QDT<C HDT21 I QD T'<CHDT30 S CHO29R=C HO29R+1,CH O29TR=CHO2 9TR+1,CHO2 9E=CHO29E+ 1,CHO29TE= CHO29TE+1 ;HM 10/12/ 2017 | |
533 | ..I QDT<C HDT30 S CH O30R=CHO30 R+1,CHO30T R=CHO30TR+ 1,CHO30E=C HO30E+1,CH O30TE=CHO3 0TE+1 ;HM 10/12/2017 | |
534 | Q | |
535 | ; | |
536 | CNTEDISB; | |
537 | ; | |
538 | ; CPE005- 016B EDI R e-Open SB (program i ndicator 9 0) | |
539 | ; | |
540 | N TMPQDTR, OCLJ,PRIND ; | |
541 | S QCLJ=999 999999,QCL J=$O(@(GLP AY_"QCL,"" PDI"",QCLJ )"),-1) ; | |
542 | I QCLJ'="" ,$D(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)")) ; | |
543 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D ; | |
544 | .S TMPQDT R=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1),PRIND=$ E(TMPQDTR, 8,9) ; | |
545 | .I PRIND= 90 D ; | |
546 | ..;HM ADD ED COUNTS FOR EM CLA IMS SECTIO N FOR ALL PROGRAM IN DICATORS O F 97 | |
547 | ..S CHCNTB =CHCNTB+1, CHCNTTB=CH CNTTB+1,CH CNTE=CHCNT E+1,CHCNTT E=CHCNTTE+ 1 ;HM 10/1 2/2017 | |
548 | ..I QDT'< CHDT10 S C HO10B=CHO1 0B+1,CHO10 TB=CHO10TB +1,CHO10E= CHO10E+1,C HO10TE=CHO 10TE+1 ;HM 10/12/201 7 | |
549 | ..I QDT<C HDT10 I QD T'<CHDT14 S CHO14B=C HO14B+1,CH O14TB=CHO1 4TB+1,CHO1 4E=CHO14E+ 1,CHO14TE= CHO14TE+1 ;HM 10/12/ 2017 | |
550 | ..I QDT<C HDT14 I QD T'<CHDT21 S CHO21B=C HO21B+1,CH O21TB=CHO2 1TB+1,CHO2 1E=CHO21E+ 1,CHO21TE= CHO21TE+1 ;HM 10/12/ 2017 | |
551 | ..I QDT<C HDT21 I QD T'<CHDT30 S CHO29B=C HO29B+1,CH O29TB=CHO2 9TB+1,CHO2 9E=CHO29E+ 1,CHO29TE= CHO29TE+1 ;HM 10/12/ 2017 | |
552 | ..I QDT<C HDT30 S CH O30B=CHO30 B+1,CHO30T B=CHO30TB+ 1,CHO30E=C HO30E+1,CH O30TE=CHO3 0TE+1 ;HM 10/12/2017 | |
553 | Q | |
554 | ; | |
555 | QREP ; | |
556 | ;I '$D(CH FIO) S CHF IO="CHAMPV A_EDI:[KER MIT]SOQ"_C HDTE_".RPT " ;ADDED F OR TESTING | |
557 | S %ZIS="Q ",IOP="Q;" _CHFIO D ^ %ZIS G:POP QREPEND | |
558 | S ZTRTN=" ^CHMRSQP", ZTDESC="ST ATUS OF QU EUES PRINT ",ZTDTH=$H | |
559 | S ZTSAVE( "CHDT")="" ,ZTSAVE("C HDTB")="", ZTSAVE("CH DTE")="",Z TSAVE("CHF IO")="" | |
560 | K ZTIO | |
561 | D ^%ZTLOA D | |
562 | ;D ^CHMRS QP | |
563 | QREPEND Q | |
564 | ; | |
565 | REP D MAIN ^CHMRSQP | |
566 | Q | |
567 | ; | |
568 | FMJUL(FDT) ;CONVERT FM DATE TO JULIAN DA TE | |
569 | N D1,D2,D 3 | |
570 | I '$D(FDT ) S FDT=DT | |
571 | S X=$E(FD T,1,3)_"00 00" D H^%D TC S D2=%H | |
572 | S X=FDT D H^%DTC S D1=%H | |
573 | S D3=D1-D 2+1 S:D3<1 00 D3="0"_ D3 S:D3<10 D3="0"_D3 | |
574 | S D3=$E(F DT,2,3)_D3 | |
575 | Q D3 | |
576 | ; | |
577 | JULFM(JDT) ;CONVERT JULIAN DAT E TO FM DA TE | |
578 | I '$D(JDT ) S JDT=$$ FMJUL(DT) | |
579 | S X=1900+ $E(JDT,1,2 )-1700_"00 00" D H^%D TC | |
580 | S %H=%H+$ E(JDT,3,5) -1 D YMD^% DTC | |
581 | Q X | |
582 | ; | |
583 | FYR(FDT) ; RETURN FIS CAL YEAR A S YYY1001 FROM FM DA TE | |
584 | N Y,M,FYR | |
585 | I '$D(FDT ) S FDT=DT | |
586 | S Y=$E(FD T,1,3),M=$ E(FDT,4,5) | |
587 | S FYR=Y_" 1001" I M< 10 S Y=Y-1 ,FYR=Y_"10 01" | |
588 | Q FYR | |
589 | ; | |
590 | ||
591 | 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) | |
592 | CHMRSQC1 ; CVA/AEB;ST ATUS OF QU EUES/MORNI NG REPORT - CALC SUB ROUTINES;0 9/01/98 8 :44 AM | |
593 | ;;V1.0;;; ;Build 7 | |
594 | ;COPY OF CHMRSQC | |
595 | ; CPE005- 016A HM 8/ 29/17 | |
596 | ; CPE005- 016B WTC 9 /1/17 | |
597 | ; | |
598 | INIT D NOW ^%DTC S RU NTIME=% | |
599 | S U="^" | |
600 | I '$D(^CH MRSQ1("MAR SQ","RESTA RT")) S ^C HMRSQ1("MA RSQ","REST ART")=$$FY R(DT) | |
601 | S RESTART =^CHMRSQ1( "MARSQ","R ESTART") | |
602 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
603 | ;S (CHCNT T,CHO30T,C HCNTTI,CHO 30TI,CHCNT TE,CHO30TE ,CHCNTTM,C HO30TM,CHC NTTC,CHO30 TC)=0 | |
604 | ;S (CHCNT TN,CHO30TN ,CHCNTTS,C HO30TS,CHC NTTH,CHO30 TH,CHCNTTF ,CHO30TF)= 0 | |
605 | ;S (CHO90 T,CHO60T,C HO91T,CHO9 1TI,CHO60T I,CHO90TC, CHO91TC,CH O60TC)=0 | |
606 | ;S (CHO91 TH,CHO90TH ,CHO60TH,C HO60TM,CHO 90TM,CHO91 TM)=0 | |
607 | ;S (CHO91 TE,CHO90TE ,CHO60TE,C HO91TS,CHO 90TS,CHO60 TS)=0 | |
608 | ;S (CHO91 TN,CHO90TN ,CHO60TN,C HO60TF,CHO 90TF,CHO91 TF)=0 | |
609 | ;S (CHO91 TI,CHO90TI ,CHO60TI)= 0 | |
610 | ;S (CHCNT TW,CHO30TW ,CHO60TW,C HO90TW,CHO 91TW)=0 | |
611 | ;S (CHCNT TL,CHO30TL ,CHO60TL,C HO90TL,CHO 91TL)=0 | |
612 | S (CHCNTT ,CHO10T,CH O14T,CHO21 T,CHO29T,C HO30T)=0 | |
613 | S (CHCNTT I,CHO10TI, CHO14TI,CH O21TI,CHO2 9TI,CHO30T I)=0 | |
614 | S (CHCNTT E,CHO10TE, CHO14TE,CH O21TE,CHO2 9TE,CHO30T E)=0 | |
615 | S (CHCNTT F,CHO10TF, CHO14TF,CH O21TF,CHO2 9TF,CHO30T F)=0 | |
616 | S (CHCNTT M,CHO10TM, CHO14TM,CH O21TM,CHO2 9TM,CHO30T M)=0 | |
617 | S (CHCNTT C,CHO10TC, CHO14TC,CH O21TC,CHO2 9TC,CHO30T C)=0 | |
618 | S (CHCNTT N,CHO10TN, CHO14TN,CH O21TN,CHO2 9TN,CHO30T N)=0 | |
619 | S (CHCNTT S,CHO10TS, CHO14TS,CH O21TS,CHO2 9TS,CHO30T S)=0 | |
620 | S (CHCNTT H,CHO10TH, CHO14TH,CH O21TH,CHO2 9TH,CHO30T H)=0 | |
621 | S (CHCNTT L,CHO10TL, CHO14TL,CH O21TL,CHO2 9TL,CHO30T L)=0 | |
622 | S (CHCNTT W,CHO10TW, CHO14TW,CH O21TW,CHO2 9TW,CHO30T W)=0 | |
623 | ;HR-PBM-P HASE 1-Beg in - SLM | |
624 | ;Followin g line add ed for SXC ... | |
625 | S (CHCNTT X,CHO10TX, CHO14TX,CH O21TX,CHO2 9TX,CHO30T X)=0 | |
626 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
627 | ;HR-PBM-P HASE 1-End | |
628 | ;HM CPE00 5-016A 8/2 9/2017 | |
629 | S (CHCNTT R,CHO10TR, CHO14TR,CH O21TR,CHO2 9TR,CHO30T R)=0 | |
630 | ; | |
631 | ; WTC CPE0 05-016B 9/ 1/17 | |
632 | ; | |
633 | S (CHCNTTB ,CHO10TB,C HO14TB,CHO 21TB,CHO29 TB,CHO30TB )=0 ; | |
634 | ; | |
635 | INITEND Q | |
636 | ; | |
637 | CPGLC I '$ D(^CHMRSQ1 ("MARSQ")) Q | |
638 | K ^CHMRSQ 1("MARSQC" ) | |
639 | S %X="^CH MRSQ1(""MA RSQ""," | |
640 | S %Y="^CH MRSQ1(""MA RSQC""," | |
641 | D %XY^%RC R | |
642 | Q | |
643 | ; | |
644 | CPGLS I '$ D(^CHMRSQ1 ("MARSQC") ) Q | |
645 | K ^CHMRSQ 1("MARSQ") | |
646 | S %X="^CH MRSQ1(""MA RSQC""," | |
647 | S %Y="^CH MRSQ1(""MA RSQ""," | |
648 | D %XY^%RC R | |
649 | Q | |
650 | ; | |
651 | KI ; | |
652 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
653 | ;K CHCNT, CHCNTT,CHD IQ,CHDT30, CHI,CHJ,CH O30,CHO30T ,CHO21,CHO 21T,CHO21T I | |
654 | ;K CHODT, CHOLD,CHCN TI,CHCNTTI ,CHO30I,CH O30TI,CHOD TI,CHOLDI, CHVENPT | |
655 | ;K QCL,QD T,QREC,QST AT,QUE,CHD T21,CHO21I ,CHCNTTE,C HCNTE,CHO2 1E,CHO30E | |
656 | ;K CHO21T E,CHO30TE, CHCNTTC,CH CNTC,CHO21 C,CHO30C,C HO21TC,CHO 30TC | |
657 | ;K CHCNTT M,CHCNTM,C HO21M,CHO3 0M,CHO30TM ,CHCNTTN,C HCNTF | |
658 | ;K CHCNTT S,CHO21TS, CHO30TS,CH CNTTH,CHO2 1TH,CHO30T H,CHO21TN | |
659 | ;K CHCNTW ,CHO30W,CH O60W,CHO90 W,CHO91W | |
660 | ;K CHCNTL ,CHO30L,CH O60L,CHO90 L,CHO91L | |
661 | ;K CHCNTT W,CHO30TW, CHO60TW,CH O90TW,CHO9 1TW | |
662 | ;K CHCNTT L,CHO30TL, CHO60TL,CH O90TL,CHO9 1TL | |
663 | K CHCNT,C HDIQ,CHI,C HJ,CHODT,C HOLD,CHODT I,CHOLDI,C HVENPT,QCL ,QDT,QREC, QSTAT,QUE | |
664 | K CHCNTT, CHO10T,CHO 14T,CHO21T ,CHO29T,CH O30T | |
665 | K CHCNTTI ,CHO10TI,C HO14TI,CHO 21TI,CHO29 TI,CHO30TI | |
666 | K CHCNTTE ,CHO10TE,C HO14TE,CHO 21TE,CHO29 TE,CHO30TE | |
667 | K CHCNTTF ,CHO10TF,C HO14TF,CHO 21TF,CHO29 TF,CHO30TF | |
668 | K CHCNTTM ,CHO10TM,C HO14TM,CHO 21TM,CHO29 TM,CHO30TM | |
669 | K CHCNTTC ,CHO10TC,C HO14TC,CHO 21TC,CHO29 TC,CHO30TC | |
670 | K CHCNTTN ,CHO10TN,C HO14TN,CHO 21TN,CHO29 TN,CHO30TN | |
671 | K CHCNTTS ,CHO10TS,C HO14TS,CHO 21TS,CHO29 TS,CHO30TS | |
672 | K CHCNTTH ,CHO10TH,C HO14TH,CHO 21TH,CHO29 TH,CHO30TH | |
673 | K CHCNTTW ,CHO10TW,C HO14TW,CHO 21TW,CHO29 TW,CHO30TW | |
674 | ;HR-PBM-P HASE 1-Beg in - SLM | |
675 | ;Followin g lines ad ded for SX C... | |
676 | ;K CHCNTX ,CHO10X,CH O14X,CHO21 X,CHO29X,C HO30X | |
677 | K CHCNTTX ,CHO10TX,C HO14TX,CHO 21TX,CHO29 TX,CHO30TX | |
678 | ;HR-PBM -PHASE 1-E nd | |
679 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
680 | ;HM CPE00 5-016A 8/2 9/2017 | |
681 | K CHCNTTR ,CHO10TR,C HO14TR,CHO 21TR,CHO29 TR,CHO30TR | |
682 | ; | |
683 | ; WTC CPE0 05-016B 9/ 1/17 | |
684 | K CHCNTTB, CHO10TB,CH O14TB,CHO2 1TB,CHO29T B,CHO30TB ; | |
685 | ; | |
686 | ; | |
687 | DUP F CHST AT=0,1 S C HQDT=0 F S CHQDT=$O (^CHMDPCL( 741010.13, "C",CHSTAT ,CHQDT)) Q :'CHQDT S CHI=0 F S CHI=$O(^ CHMDPCL(74 1010.13,"C ",CHSTAT,C HQDT,CHI)) Q:'CHI D DUP1 | |
688 | DUPEND Q | |
689 | ; | |
690 | DUP1 G:'$D (^CHMDPCL( 741010.13, CHI,0)) DU P1END | |
691 | S QREC=^C HMDPCL(741 010.13,CHI ,0) | |
692 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
693 | G:QDT>CHD TE DUP1END | |
694 | G:QCL="" DUP1END S X1=QCL D P ROGTYP^CHF CD001 | |
695 | G:'$D(@(G LPAY_"QCL, 0)")) DUP1 END | |
696 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
697 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) | |
698 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
699 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
700 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
701 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
702 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
703 | D CNT^CHM RSQC1 | |
704 | DUP1END Q | |
705 | ; | |
706 | VEN F CHST AT=0,1,3,4 S CHI=0 F S CHI=$O (^CHMQVN(" D",CHSTAT, CHI)) Q:'C HI D VEN1 | |
707 | VENEND Q | |
708 | ; | |
709 | VEN1 G:'$D (^CHMQVN(C HI,0)) VEN 1END | |
710 | S QREC=^C HMQVN(CHI, 0) | |
711 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
712 | S CHJ=0 | |
713 | V1 S CHJ=$ O(^CHMQVN( CHI,10,CHJ )) G:'CHJ VEN1END | |
714 | G:'$D(^CH MQVN(CHI,1 0,CHJ,0)) V1 | |
715 | S QRECJ=^ CHMQVN(CHI ,10,CHJ,0) | |
716 | S QDT=$P( $P(QRECJ,U ,2),".",1) ,QCL=$P(QR ECJ,U,1),Q STATJ=$P(Q RECJ,U,6) | |
717 | G:QSTATJ= 1 V1 | |
718 | G:QDT>CHD TE V1 | |
719 | G:QCL="" V1 I QCL=7 845662 | |
720 | S X1=QCL D PROGTYP^ CHFCD001 | |
721 | G:'$D(@(G LPAY_"QCL, 0)")) V1 | |
722 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
723 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
724 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
725 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
726 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
727 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
728 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
729 | D CNT^CHM RSQC1 | |
730 | G V1 | |
731 | VEN1END Q | |
732 | ; | |
733 | EOB S CHST AT=0,CHI=0 F S CHI= $O(^CHMEOB Q("C",CHST AT,CHI)) Q :'CHI D E OB1 | |
734 | S CHSTAT= 0,CHI=0 F S CHI=$O( ^CHNVEOBQ( "C",CHSTAT ,CHI)) Q:' CHI D NEO B | |
735 | EOBEND Q | |
736 | ; | |
737 | EOB1 G:'$D (^CHMEOBQ( CHI,0)) EO B1END | |
738 | S QREC=^C HMEOBQ(CHI ,0) | |
739 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
740 | G:QDT>CHD TE EOB1END | |
741 | G:QCL="" EOB1END | |
742 | S X1=QCL D PROGTYP^ CHFCD001 | |
743 | G:'$D(@(G LPAY_"QCL, 0)")) EOB1 END | |
744 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
745 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
746 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
747 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
748 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
749 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
750 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
751 | D CNT^CHM RSQC1 | |
752 | EOB1END Q | |
753 | NEOB G:'$D (^CHNVEOBQ (CHI,0)) E OB1END | |
754 | S QREC=^C HNVEOBQ(CH I,0) | |
755 | S QDT=$P( $P(QREC,U, 1),".",1), QCL=$P(QRE C,U,2),QST AT=$P(QREC ,U,3) | |
756 | G:QDT>CHD TE EOB1END | |
757 | G:QCL="" EOB1END | |
758 | S X1=QCL D PROGTYP^ CHFCD001 | |
759 | G:'$D(@(G LPAY_"QCL, 0)")) EOB1 END | |
760 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
761 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
762 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
763 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
764 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
765 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
766 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
767 | D CNT^CHM RSQC1 | |
768 | Q | |
769 | GRP S GRPJ =$P(^CHMSN A(741008.0 2,0),"^",3 ) Q:'GRPJ | |
770 | Q:'$D(^CH MSNA(74100 8.02,GRPJ, 0)) | |
771 | S GRPK=0 | |
772 | GRP1 S GRP K=$O(^CHMS NA(741008. 02,GRPJ,1, GRPK)) G:G RPK="" GRP END | |
773 | G:'$D(^CH MSNA(74100 8.02,GRPJ, 1,GRPK,0)) GRP1 | |
774 | S QCLM=$P (^CHMSNA(7 41008.02,G RPJ,1,GRPK ,0),U,1) | |
775 | G:QCLM="" GRP1 | |
776 | ;S QCL=$O (^CHMINDEX ("B",QCLM, QCL)) G:'Q CL GRP1 ;SKD 6-29- 07 DEV0002 72 | |
777 | S QCL=$O( ^CHMINDEX( "B",QCLM,0 )) G:'QCL GRP1 ;SKD 6-29- 07 DEV0002 72 | |
778 | S X1=QCL D PROGTYP^ CHFCD001 | |
779 | G:'$D(@(G LPAY_"QCL, 0)")) GRP1 | |
780 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
781 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
782 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
783 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
784 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
785 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
786 | ;S QDT=$$ JULFM(@(GL PAY_"QCL," "PDI"",QCL J,0)")) | |
787 | D CNT^CHM RSQC1 G GR P1 | |
788 | GRPEND Q | |
789 | ; | |
790 | CAL S CHDI Q=$O(^CHMS NA(741008. 05,"B",CHD IQ)) G:'CH DIQ CALEND | |
791 | G:CHDIQ>C HDTE CAL | |
792 | S CHI=0,C HI=$O(^CHM SNA(741008 .05,"B",CH DIQ,CHI)) G:'CHI CAL | |
793 | G:'$D(^CH MSNA(74100 8.05,CHI,0 )) CAL S Q REC=^(0) | |
794 | S QSTAT=$ P(QREC,U,3 ),QCL="",Q DT=$P($P(Q REC,U,1)," .",1) | |
795 | G:QSTAT=2 !(QSTAT=3) CAL | |
796 | S CHJ=0 | |
797 | F S CHJ= $O(^CHMSNA (741008.05 ,CHI,1,CHJ )) Q:'CHJ D | |
798 | .S QCL=$P (^CHMSNA(7 41008.05,C HI,1,CHJ,0 ),U,1) | |
799 | .Q:QCL="" | |
800 | .S X1=QCL D PROGTYP ^CHFCD001 | |
801 | .Q:'$D(@( GLPAY_"QCL ,0)")) | |
802 | .S QCLJ=9 99999999,Q CLJ=$O(@(G LPAY_"QCL, ""PDI"",QC LJ)"),-1) | |
803 | .I QCLJ'= "",$D(@(GL PAY_"QCL," "PDI"",QCL J,0)")) D | |
804 | ..S TMPQD T=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1) | |
805 | ..;S QDT= $$JULFM(TM PQDT) ;Y2 K | |
806 | ..S QDT=$ $PDIJULFM^ CHMFPDI2(T MPQDT) | |
807 | .D CNT^CH MRSQC1 | |
808 | G CAL | |
809 | CALEND D N VABTH | |
810 | Q | |
811 | CAP S CHDI Q=$O(^CHMS NA(741008. 03,"B",CHD IQ)) G:'CH DIQ CAPEND | |
812 | G:CHDIQ>C HDTE CAP | |
813 | S CHI=0,C HI=$O(^CHM SNA(741008 .03,"B",CH DIQ,CHI)) G:'CHI CAP | |
814 | G:'$D(^CH MSNA(74100 8.03,CHI,0 )) CAP S Q REC=^(0) | |
815 | S QSTAT=$ P(QREC,U,3 ),QCL="",Q DT=$P($P(Q REC,U,1)," .",1) | |
816 | G:QSTAT=2 !(QSTAT=3) CAP | |
817 | S CHJ=0 | |
818 | F S CHJ= $O(^CHMSNA (741008.03 ,CHI,1,CHJ )) Q:'CHJ D | |
819 | .S QCL=$P (^CHMSNA(7 41008.03,C HI,1,CHJ,0 ),U,1) | |
820 | .Q:QCL="" | |
821 | .S X1=QCL D PROGTYP ^CHFCD001 | |
822 | .Q:'$D(@( GLPAY_"QCL ,0)")) | |
823 | .S QCLJ=9 99999999,Q CLJ=$O(@(G LPAY_"QCL, ""PDI"",QC LJ)"),-1) | |
824 | .I QCLJ'= "",$D(@(GL PAY_"QCL," "PDI"",QCL J,0)")) D | |
825 | ..S TMPQD T=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1) | |
826 | ..;S QDT= $$JULFM(TM PQDT) ; Y 2K | |
827 | ..S QDT=$ $PDIJULFM^ CHMFPDI2(T MPQDT) | |
828 | .D CNT^CH MRSQC1 | |
829 | G CAP | |
830 | CAPEND D N VABTH | |
831 | Q | |
832 | ;EDIRO S CHDIQ=$O(^ CHMSNA(741 008.03,"B" ,CHDIQ)) G :'CHDIQ CA PENI | |
833 | ;G:CHDIQ> CHDTE EDIR O | |
834 | ;S CHI=0, CHI=$O(^CH MSNA(74100 8.03,"B",C HDIQ,CHI)) G:'CHI ED IRO | |
835 | ;G:'$D(^C HMSNA(7410 08.03,CHI, 0)) EDIRO S QREC=^(0 ) | |
836 | ;S QSTAT= $P(QREC,U, 3),QCL="", QDT=$P($P( QREC,U,1), ".",1) | |
837 | ;G:QSTAT= 2!(QSTAT=3 ) EDIRO | |
838 | ;S CHJ=0 | |
839 | ;F S CHJ =$O(^CHMSN A(741008.0 3,CHI,1,CH J)) Q:'CHJ D | |
840 | ;.S QCL=$ P(^CHMSNA( 741008.03, CHI,1,CHJ, 0),U,1) | |
841 | ;.Q:QCL=" " | |
842 | ;.S X1=QC L D PROGTY P^CHFCD001 | |
843 | ;.Q:'$D(@ (GLPAY_"QC L,0)")) | |
844 | ;.S QCLJ= 999999999, QCLJ=$O(@( GLPAY_"QCL ,""PDI"",Q CLJ)"),-1) | |
845 | ;.I QCLJ' ="",$D(@(G LPAY_"QCL, ""PDI"",QC LJ,0)")) D | |
846 | ;..S TMPQ DT=$P(@(GL PAY_"QCL," "PDI"",QCL J,0)"),"^" ,1) | |
847 | ;..;S QDT =$$JULFM(T MPQDT) ; Y2K | |
848 | ;..S QDT= $$PDIJULFM ^CHMFPDI2( TMPQDT) | |
849 | ;.D CNT^C HMRSQC1 | |
850 | ;G EDIRO | |
851 | ;CAPENI D NVABTH | |
852 | ;Q | |
853 | NVABTH S C HDIQ=$O(^C HHACASF(74 13002.2,"B ",CHDIQ)) G:'CHDIQ N VABED | |
854 | G:CHDIQ>C HDTE NVABT H | |
855 | S CHI=0,C HI=$O(^CHH ACASF(7413 002.2,"B", CHDIQ,CHI) ) G:'CHI N VABTH | |
856 | G:'$D(^CH HACASF(741 3002.2,CHI ,0)) NVABT H | |
857 | G:$P(^CHH ACASF(7413 002.2,CHI, 0),"^",2)= 3 NVABTH | |
858 | S CHJ=0 | |
859 | NVA1 S CHJ =$O(^CHHAC ASF(741300 2.2,CHI,10 0,CHJ)) G: 'CHJ NVABT H | |
860 | G:'$D(^CH HACASF(741 3002.2,CHI ,100,CHJ,0 )) NVA1 | |
861 | G:QUE="CA L"&($P(^CH HACASF(741 3002.2,CHI ,100,CHJ,0 ),"^",9)=1 ) NVA1 | |
862 | G:QUE="CA P"&($P(^CH HACASF(741 3002.2,CHI ,100,CHJ,0 ),"^",9)=0 ) NVA1 | |
863 | S CHK=0 | |
864 | NVA2 S CHK =$O(^CHHAC ASF(741300 2.2,CHI,10 0,CHJ,200, CHK)) G:'C HK NVA1 | |
865 | G:'$D(^CH HACASF(741 3002.2,CHI ,100,CHJ,2 00,CHK,0)) NVA2 | |
866 | S CHL=0 | |
867 | NVA3 S CHL =$O(^CHHAC ASF(741300 2.2,CHI,10 0,CHJ,200, CHK,300,CH L)) G:'CHL NVA2 | |
868 | G:'$D(^CH HACASF(741 3002.2,CHI ,100,CHJ,2 00,CHK,300 ,CHL,0)) N VA3 | |
869 | S QREC=^C HHACASF(74 13002.2,CH I,100,CHJ, 200,CHK,30 0,CHL,0) | |
870 | S QSTAT=$ P(QREC,"^" ,4),QDT=$P (CHI,".",1 ),QCL=$P(Q REC,"^",1) | |
871 | G:QCL="" NVA3 | |
872 | S X1=QCL D PROGTYP^ CHFCD001 | |
873 | G:'$D(@(G LPAY_"QCL, 0)")) NVA3 | |
874 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
875 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
876 | .S TMPQDT =$P(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)"),"^",1 ) | |
877 | .;S QDT=$ $JULFM(TMP QDT) ; Y2 K | |
878 | .S QDT=$$ PDIJULFM^C HMFPDI2(TM PQDT) | |
879 | D CNT^CHM RSQC1 | |
880 | G NVA3 | |
881 | NVABED Q | |
882 | CNT Q:QCL= "" | |
883 | S CHCNT=C HCNT+1,CHC NTT=CHCNTT +1 | |
884 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
885 | ;I QDT'<C HDT30 S CH O30=CHO30+ 1,CHO30T=C HO30T+1 | |
886 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60=CHO 60+1,CHO60 T=CHO60T+1 | |
887 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90=CHO 90+1,CHO90 T=CHO90T+1 | |
888 | ;I QDT<CH DT90 S CHO 91=CHO91+1 ,CHO91T=CH O91T+1 | |
889 | I QDT'<CH DT10 S CHO 10=CHO10+1 ,CHO10T=CH O10T+1 | |
890 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14=CHO1 4+1,CHO14T =CHO14T+1 | |
891 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21=CHO2 1+1,CHO21T =CHO21T+1 | |
892 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29=CHO2 9+1,CHO29T =CHO29T+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
893 | I QDT<CHD T30 S CHO3 0=CHO30+1, CHO30T=CHO 30T+1 ;AE B 2/2/2009 DEV004170 CHANGED C HDT29 TO C HDT30 | |
894 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
895 | I QDT<CHO DT S CHODT =QDT_U_CHI ,CHOLD=$P( @(GLPAY_"Q CL,0)"),U, 1) | |
896 | D CNTI,CN TEDI,CNTF, CNTMDX,CNT SXC,CNTCMP ,CNTNVA,CN TSB,CNTHAC ,CNTWV,CNT EDIRO,CNTE DISB ; WTC 9/1/17 | |
897 | CNTEND Q | |
898 | ; | |
899 | CNTI Q:'$D (@(GLPAY_" QCL,0)")) I $P(@(GL PAY_"QCL,0 )"),U,3)=" " G CNTIEN D | |
900 | S CHVENPT =$P(@(GLPA Y_"QCL,0)" ),U,3) | |
901 | I '$D(^CH MVEN(CHVEN PT,1)) G C NTIEND | |
902 | I $P(^CHM VEN(CHVENP T,1),U,16) '=1 G CNTI END | |
903 | S CHCNTI= CHCNTI+1,C HCNTTI=CHC NTTI+1 | |
904 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
905 | ;I QDT'<C HDT30 S CH O30I=CHO30 I+1,CHO30T I=CHO30TI+ 1 | |
906 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60I=CH O60I+1,CHO 60TI=CHO60 TI+1 | |
907 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90I=CH O90I+1,CHO 90TI=CHO90 TI+1 | |
908 | ;I QDT<CH DT90 S CHO 91I=CHO91I +1,CHO91TI =CHO91TI+1 | |
909 | I QDT'<CH DT10 S CHO 10I=CHO10I +1,CHO10TI =CHO10TI+1 | |
910 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14I=CHO 14I+1,CHO1 4TI=CHO14T I+1 | |
911 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21I=CHO 21I+1,CHO2 1TI=CHO21T I+1 | |
912 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29I=CHO 29I+1,CHO2 9TI=CHO29T I+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
913 | I QDT<CHD T30 S CHO3 0I=CHO30I+ 1,CHO30TI= CHO30TI+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
914 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
915 | I QDT<CHO DTI S CHOD TI=QDT_U_C HI,CHOLDI= $P(@(GLPAY _"QCL,0)") ,U,1) | |
916 | CNTIEND Q | |
917 | ; | |
918 | CNTEDI Q:' $D(@(GLPAY _"QCL,""ZE MC"")")) | |
919 | S CHCNTE= CHCNTE+1,C HCNTTE=CHC NTTE+1 | |
920 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
921 | ;I QDT'<C HDT30 S CH O30E=CHO30 E+1,CHO30T E=CHO30TE+ 1 | |
922 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60E=CH O60E+1,CHO 60TE=CHO60 TE+1 | |
923 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90E=CH O90E+1,CHO 90TE=CHO90 TE+1 | |
924 | ;I QDT<CH DT90 S CHO 91E=CHO91E +1,CHO91TE =CHO91TE+1 | |
925 | I QDT'<CH DT10 S CHO 10E=CHO10E +1,CHO10TE =CHO10TE+1 | |
926 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14E=CHO 14E+1,CHO1 4TE=CHO14T E+1 | |
927 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21E=CHO 21E+1,CHO2 1TE=CHO21T E+1 | |
928 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29E=CHO 29E+1,CHO2 9TE=CHO29T E+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
929 | I QDT<CHD T30 S CHO3 0E=CHO30E+ 1,CHO30TE= CHO30TE+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
930 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
931 | I QDT<CHO DTE S CHOD TE=QDT_U_C HI,CHOLDE= $P(@(GLPAY _"QCL,0)") ,U,1) | |
932 | Q | |
933 | CNTF ;COUN T X12 AND OCR ONLY | |
934 | Q:'$D(@(G LPAY_"QCL, ""ZEMC"")" )) | |
935 | I $D(@(GL PAY_"QCL," "ZEMC"")") ) Q:$D(@(G LPAY_"QCL, ""ZEMC""," "MDMTRX"") ")) | |
936 | I $D(@(GL PAY_"QCL," "ZEMC"")") ) Q:$D(@(G LPAY_"QCL, ""ZEMC""," "CMOP"")") ) | |
937 | I $D(@(GL PAY_"QCL," "ZEMC"")") ) Q:$D(@(G LPAY_"QCL, ""ZEMC""," "SXC"")")) | |
938 | S CHCNTF= CHCNTF+1,C HCNTTF=CHC NTTF+1 | |
939 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
940 | ;I QDT'<C HDT30 S CH O30F=CHO30 F+1,CHO30T F=CHO30TF+ 1 | |
941 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60F=CH O60F+1,CHO 60TF=CHO60 TF+1 | |
942 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90F=CH O90F+1,CHO 90TF=CHO90 TF+1 | |
943 | ;I QDT<CH DT90 S CHO 91F=CHO91F +1,CHO91TF =CHO91TF+1 | |
944 | I QDT'<CH DT10 S CHO 10F=CHO10F +1,CHO10TF =CHO10TF+1 | |
945 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14F=CHO 14F+1,CHO1 4TF=CHO14T F+1 | |
946 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21F=CHO 21F+1,CHO2 1TF=CHO21T F+1 | |
947 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29F=CHO 29F+1,CHO2 9TF=CHO29T F+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
948 | I QDT<CHD T30 S CHO3 0F=CHO30F+ 1,CHO30TF= CHO30TF+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
949 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
950 | I QDT<CHO DTF S CHOD TF=QDT_U_C HI,CHOLDF= $P(@(GLPAY _"QCL,0)") ,U,1) | |
951 | Q | |
952 | CNTMDX Q:' $D(@(GLPAY _"QCL,""ZE MC"",""MDM TRX"")")) | |
953 | S CHCNTM= CHCNTM+1,C HCNTTM=CHC NTTM+1 | |
954 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
955 | ;I QDT'<C HDT30 S CH O30M=CHO30 M+1,CHO30T M=CHO30TM+ 1 | |
956 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60M=CH O60M+1,CHO 60TM=CHO60 TM+1 | |
957 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90M=CH O90M+1,CHO 90TM=CHO90 TM+1 | |
958 | ;I QDT<CH DT90 S CHO 91M=CHO91M +1,CHO91TM =CHO91TM+1 | |
959 | I QDT'<CH DT10 S CHO 10M=CHO10M +1,CHO10TM =CHO10TM+1 | |
960 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14M=CHO 14M+1,CHO1 4TM=CHO14T M+1 | |
961 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21M=CHO 21M+1,CHO2 1TM=CHO21T M+1 | |
962 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29M=CHO 29M+1,CHO2 9TM=CHO29T M+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
963 | I QDT<CHD T30 S CHO3 0M=CHO30M+ 1,CHO30TM= CHO30TM+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
964 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
965 | I QDT<CHO DTM S CHOD TM=QDT_U_C HI,CHOLDM= $P(@(GLPAY _"QCL,0)") ,U,1) | |
966 | Q | |
967 | ;HR-PBM-P HASE 1-Beg in - SLM | |
968 | ;The foll owing subr outine add ed for cou nting SXC data... | |
969 | CNTSXC Q:' $D(@(GLPAY _"QCL,""ZE MC"",""SXC "")")) | |
970 | S CHCNTX= CHCNTX+1,C HCNTTX=CHC NTTX+1 | |
971 | ;the foll owing line added... SLM 02/22/ 08 | |
972 | ; | |
973 | I QDT'<CH DT10 S CHO 10X=CHO10X +1,CHO10TX =CHO10TX+1 | |
974 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14X=CHO 14X+1,CHO1 4TX=CHO14T X+1 | |
975 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21X=CHO 21X+1,CHO2 1TX=CHO21T X+1 | |
976 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29X=CHO 29X+1,CHO2 9TX=CHO29T X+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
977 | I QDT<CHD T30 S CHO3 0X=CHO30X+ 1,CHO30TX= CHO30TX+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
978 | I QDT<CHO DTX S CHOD TX=QDT_U_C HI,CHOLDX= $P(@(GLPAY _"QCL,0)") ,U,1) | |
979 | Q | |
980 | ;HR-PBM-P HASE 1-End | |
981 | CNTCMP Q:' $D(@(GLPAY _"QCL,""ZE MC"",""CMO P"")")) | |
982 | S CHCNTC= CHCNTC+1,C HCNTTC=CHC NTTC+1 | |
983 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
984 | ;I QDT'<C HDT30 S CH O30C=CHO30 C+1,CHO30T C=CHO30TC+ 1 | |
985 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60C=CH O60C+1,CHO 60TC=CHO60 TC+1 | |
986 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90C=CH O90C+1,CHO 90TC=CHO90 TC+1 | |
987 | ;I QDT<CH DT90 S CHO 91C=CHO91C +1,CHO91TC =CHO91TC+1 | |
988 | I QDT'<CH DT10 S CHO 10C=CHO10C +1,CHO10TC =CHO10TC+1 | |
989 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14C=CHO 14C+1,CHO1 4TC=CHO14T C+1 | |
990 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21C=CHO 21C+1,CHO2 1TC=CHO21T C+1 | |
991 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29C=CHO 29C+1,CHO2 9TC=CHO29T C+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
992 | I QDT<CHD T30 S CHO3 0C=CHO30C+ 1,CHO30TC= CHO30TC+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
993 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
994 | I QDT<CHO DTC S CHOD TC=QDT_U_C HI,CHOLDC= $P(@(GLPAY _"QCL,0)") ,U,1) | |
995 | Q | |
996 | CNTPDI S C HCNT=CHCNT +1,CHCNTT= CHCNTT+1 | |
997 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
998 | ;I QDT'<C HDT30 S CH O30=CHO30+ 1,CHO30T=C HO30T+1 | |
999 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60=CHO 60+1,CHO60 T=CHO60T+1 | |
1000 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90=CHO 90+1,CHO90 T=CHO90T+1 | |
1001 | ;I QDT<CH DT90 S CHO 91=CHO91+1 ,CHO91T=CH O91T+1 | |
1002 | I QDT'<CH DT10 S CHO 10=CHO10+1 ,CHO10T=CH O10T+1 | |
1003 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14=CHO1 4+1,CHO14T =CHO14T+1 | |
1004 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21=CHO2 1+1,CHO21T =CHO21T+1 | |
1005 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29=CHO2 9+1,CHO29T =CHO29T+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
1006 | I QDT<CHD T30 S CHO3 0=CHO30+1, CHO30T=CHO 30T+1 ;AE B 2/2/2009 DEV004170 CHANGED C HDT29 TO C HDT30 | |
1007 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
1008 | I QDT<CHO DT S CHODT =QDT_U_CHI ,CHOLD=QPD I | |
1009 | S CHOLD=$ E(CHOLD,8, 13) | |
1010 | Q | |
1011 | CNTNVA Q:C HPGPT'=5 | |
1012 | Q:'$D(@(G LPAY_"QCL, 0)")) | |
1013 | S CHCNTN= CHCNTN+1,C HCNTTN=CHC NTTN+1 | |
1014 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
1015 | ;I QDT'<C HDT30 S CH O30N=CHO30 N+1,CHO30T N=CHO30TN+ 1 | |
1016 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60N=CH O60N+1,CHO 60TN=CHO60 TN+1 | |
1017 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90N=CH O90N+1,CHO 90TN=CHO90 TN+1 | |
1018 | ;I QDT<CH DT90 S CHO 91N=CHO91N +1,CHO91TN =CHO91TN+1 | |
1019 | I QDT'<CH DT10 S CHO 10N=CHO10N +1,CHO10TN =CHO10TN+1 | |
1020 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14N=CHO 14N+1,CHO1 4TN=CHO14T N+1 | |
1021 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21N=CHO 21N+1,CHO2 1TN=CHO21T N+1 | |
1022 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29N=CHO 29N+1,CHO2 9TN=CHO29T N+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
1023 | I QDT<CHD T30 S CHO3 0N=CHO30N+ 1,CHO30TN= CHO30TN+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
1024 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
1025 | I QDT<CHO DTN S CHOD TN=QDT_U_C HI,CHOLDN= $P(@(GLPAY _"QCL,0)") ,U,1) | |
1026 | Q | |
1027 | CNTSB Q:'$ D(@(GLPAY_ "QCL,0)")) I '$D(CH PGPT) S X1 =QCL D PRO GTYP^CHFCD 001 | |
1028 | Q:CHPGPT' =6 | |
1029 | S CHCNTS= CHCNTS+1,C HCNTTS=CHC NTTS+1 | |
1030 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
1031 | ;I QDT'<C HDT30 S CH O30S=CHO30 S+1,CHO30T S=CHO30TS+ 1 | |
1032 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60S=CH O60S+1,CHO 60TS=CHO60 TS+1 | |
1033 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90S=CH O90S+1,CHO 90TS=CHO90 TS+1 | |
1034 | ;I QDT<CH DT90 S CHO 91S=CHO91S +1,CHO91TS =CHO91TS+1 | |
1035 | I QDT'<CH DT10 S CHO 10S=CHO10S +1,CHO10TS =CHO10TS+1 | |
1036 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14S=CHO 14S+1,CHO1 4TS=CHO14T S+1 | |
1037 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21S=CHO 21S+1,CHO2 1TS=CHO21T S+1 | |
1038 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29S=CHO 29S+1,CHO2 9TS=CHO29T S+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
1039 | I QDT<CHD T30 S CHO3 0S=CHO30S+ 1,CHO30TS= CHO30TS+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
1040 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
1041 | I QDT<CHO DTS S CHOD TS=QDT_U_C HI,CHOLDS= $P(@(GLPAY _"QCL,0)") ,U,1) | |
1042 | Q | |
1043 | CNTHAC Q:' $D(@(GLPAY _"QCL,0)") ) I '$D(C HPGPT) S X 1=QCL D PR OGTYP^CHFC D001 | |
1044 | Q:CHPGPT> 2 | |
1045 | S CHCNTH= CHCNTH+1,C HCNTTH=CHC NTTH+1 | |
1046 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
1047 | ;I QDT'<C HDT30 S CH O30H=CHO30 H+1,CHO30T H=CHO30TH+ 1 | |
1048 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60H=CH O60H+1,CHO 60TH=CHO60 TH+1 | |
1049 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90H=CH O90H+1,CHO 90TH=CHO90 TH+1 | |
1050 | ;I QDT<CH DT90 S CHO 91H=CHO91H +1,CHO91TH =CHO91TH+1 | |
1051 | I QDT'<CH DT10 S CHO 10H=CHO10H +1,CHO10TH =CHO10TH+1 | |
1052 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14H=CHO 14H+1,CHO1 4TH=CHO14T H+1 | |
1053 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21H=CHO 21H+1,CHO2 1TH=CHO21T H+1 | |
1054 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29H=CHO 29H+1,CHO2 9TH=CHO29T H+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
1055 | I QDT<CHD T30 S CHO3 0H=CHO30H+ 1,CHO30TH= CHO30TH+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
1056 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
1057 | I QDT<CHO DTH S CHOD TH=QDT_U_C HI,CHOLDH= $P(@(GLPAY _"QCL,0)") ,U,1) | |
1058 | ;If CHAMP VA claim i s CFL then count CFL Claim | |
1059 | I $$CFLCH K^CHTFLIB( QCL) D CNT CFL | |
1060 | Q | |
1061 | CNTWV Q:'$ D(@(GLPAY_ "QCL,0)")) I '$D(CH PGPT) S X1 =QCL D PRO GTYP^CHFCD 001 | |
1062 | Q:CHPGPT' =7 | |
1063 | S CHCNTW= CHCNTW+1,C HCNTTW=CHC NTTW+1 | |
1064 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
1065 | ;I QDT'<C HDT30 S CH O30W=CHO30 W+1,CHO30T W=CHO30TW+ 1 | |
1066 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60W=CH O60W+1,CHO 60TW=CHO60 TW+1 | |
1067 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90W=CH O90W+1,CHO 90TW=CHO90 TW+1 | |
1068 | ;I QDT<CH DT90 S CHO 91W=CHO91W +1,CHO91TW =CHO91TW+1 | |
1069 | I QDT'<CH DT10 S CHO 10W=CHO10W +1,CHO10TW =CHO10TW+1 | |
1070 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14W=CHO 14W+1,CHO1 4TW=CHO14T W+1 | |
1071 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21W=CHO 21W+1,CHO2 1TW=CHO21T W+1 | |
1072 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29W=CHO 29W+1,CHO2 9TW=CHO29T W+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
1073 | I QDT<CHD T30 S CHO3 0W=CHO30W+ 1,CHO30TW= CHO30TW+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
1074 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
1075 | I QDT<CHO DTW S CHOD TW=QDT_U_C HI,CHOLDW= $P(@(GLPAY _"QCL,0)") ,U,1) | |
1076 | Q | |
1077 | CNTCFL N D OS,DOB,AGE ,CLFDFN,CL FBFN | |
1078 | S CHCNTL= CHCNTL+1,C HCNTTL=CHC NTTL+1 | |
1079 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
1080 | ;I QDT'<C HDT30 S CH O30L=CHO30 L+1,CHO30T L=CHO30TL+ 1 | |
1081 | ;I QDT<CH DT30 I QDT '<CHDT60 S CHO60L=CH O60L+1,CHO 60TL=CHO60 TL+1 | |
1082 | ;I QDT<CH DT60 I QDT '<CHDT90 S CHO90L=CH O90L+1,CHO 90TL=CHO90 TL+1 | |
1083 | ;I QDT<CH DT90 S CHO 91L=CHO91L +1,CHO91TL =CHO91TL+1 | |
1084 | I QDT'<CH DT10 S CHO 10L=CHO10L +1,CHO10TL =CHO10TL+1 | |
1085 | I QDT<CHD T10 I QDT' <CHDT14 S CHO14L=CHO 14L+1,CHO1 4TL=CHO14T L+1 | |
1086 | I QDT<CHD T14 I QDT' <CHDT21 S CHO21L=CHO 21L+1,CHO2 1TL=CHO21T L+1 | |
1087 | I QDT<CHD T21 I QDT' <CHDT30 S CHO29L=CHO 29L+1,CHO2 9TL=CHO29T L+1 ;AEB 2/2/2009 D EV004170 C HANGED CHD T29 TO CHD T30 | |
1088 | I QDT<CHD T30 S CHO3 0L=CHO30L+ 1,CHO30TL= CHO30TL+1 ;AEB 2/2/ 2009 DEV00 4170 CHANG ED CHDT29 TO CHDT30 | |
1089 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
1090 | I QDT<CHO DTL S CHOD TL=QDT_U_C HI,CHOLDL= $P(@(GLPAY _"QCL,0)") ,U,1) | |
1091 | Q | |
1092 | ; ;HR-PBM -PHASE 1-B egin - SLM | |
1093 | TOTSET S ^ CHMRSQ1("M ARSQC","TO TAL","CNT" )=CHCNTT_U _CHCNTTI_U _CHCNTTE_U _CHCNTTM_U _CHCNTTC_U _CHCNTTN_U _CHCNTTS_U _CHCNTTH_U _CHCNTTF_U _CHCNTTW_U _CHCNTTL_U _CHCNTTX_U _CHCNTTR_U _CHCNTTB ; WTC 9/1/1 7 | |
1094 | ;BEG MOD PER DEV000 272, SKD 6 -27-07 | |
1095 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O30")=CHO 30T_U_CHO3 0TI_U_CHO3 0TE_U_CHO3 0TM_U_CHO3 0TC_U_CHO3 0TN_U_CHO3 0TS_U_CHO3 0TH_U_CHO3 0TF_U_CHO3 0TW_U_CHO3 0TL | |
1096 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O60")=CHO 60T_U_CHO6 0TI_U_CHO6 0TE_U_CHO6 0TM_U_CHO6 0TC_U_CHO6 0TN_U_CHO6 0TS_U_CHO6 0TH_U_CHO6 0TF_U_CHO6 0TW_U_CHO6 0TL | |
1097 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O90")=CHO 90T_U_CHO9 0TI_U_CHO9 0TE_U_CHO9 0TM_U_CHO9 0TC_U_CHO9 0TN_U_CHO9 0TS_U_CHO9 0TH_U_CHO9 0TF_U_CHO9 0TW_U_CHO9 0TL | |
1098 | ;S ^CHMRS Q1("MARSQC ","TOTAL", "O91")=CHO 91T_U_CHO9 1TI_U_CHO9 1TE_U_CHO9 1TM_U_CHO9 1TC_U_CHO9 1TN_U_CHO9 1TS_U_CHO9 1TH_U_CHO9 1TF_U_CHO9 1TW_U_CHO9 1TL | |
1099 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O10")=CHO1 0T_U_CHO10 TI_U_CHO10 TE_U_CHO10 TM_U_CHO10 TC_U_CHO10 TN_U_CHO10 TS_U_CHO10 TH_U_CHO10 TF_U_CHO10 TW_U_CHO10 TL_U_CHO10 TX_U_CHO10 TR_U_CHO10 TB ; WTC 9 /1/17 | |
1100 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O14")=CHO1 4T_U_CHO14 TI_U_CHO14 TE_U_CHO14 TM_U_CHO14 TC_U_CHO14 TN_U_CHO14 TS_U_CHO14 TH_U_CHO14 TF_U_CHO14 TW_U_CHO14 TL_U_CHO14 TX_U_CHO14 TR_U_CHO14 TB ; WTC 9 /1/17 | |
1101 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O21")=CHO2 1T_U_CHO21 TI_U_CHO21 TE_U_CHO21 TM_U_CHO21 TC_U_CHO21 TN_U_CHO21 TS_U_CHO21 TH_U_CHO21 TF_U_CHO21 TW_U_CHO21 TL_U_CHO21 TX_U_CHO21 TR_U_CHO21 TB ; WTC 9 /1/17 | |
1102 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O29")=CHO2 9T_U_CHO29 TI_U_CHO29 TE_U_CHO29 TM_U_CHO29 TC_U_CHO29 TN_U_CHO29 TS_U_CHO29 TH_U_CHO29 TF_U_CHO29 TW_U_CHO29 TL_U_CHO29 TX_U_CHO29 TR_U_CHO29 TB ; WTC 9 /1/17 | |
1103 | S ^CHMRSQ 1("MARSQC" ,"TOTAL"," O30")=CHO3 0T_U_CHO30 TI_U_CHO30 TE_U_CHO30 TM_U_CHO30 TC_U_CHO30 TN_U_CHO30 TS_U_CHO30 TH_U_CHO30 TF_U_CHO30 TW_U_CHO30 TL_U_CHO30 TX_U_CHO30 TR_U_CHO30 TB ; WTC 9 /1/17 | |
1104 | ;END MOD PER DEV000 272, SKD 6 -27-07 | |
1105 | TOTEND Q | |
1106 | ; | |
1107 | ;HM CPE00 5-016A 08/ 28/2017 | |
1108 | CNTEDIRO N DOS,DOB,A GE,CLFDFN, CLFBFN,TMP QDTR,OCLJ | |
1109 | S QCLJ=99 9999999,QC LJ=$O(@(GL PAY_"QCL," "PDI"",QCL J)"),-1) | |
1110 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) | |
1111 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D | |
1112 | .S TMPQDT R=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1),PRIND=$ E(TMPQDTR, 8,9) | |
1113 | .I PRIND= 97 D | |
1114 | ..;HM ADD ED COUNTS FOR EM CLA IMS SECTIO N FOR ALL PROGRAM IN DICATORS O F 97 | |
1115 | ..S CHCNT R=CHCNTR+1 ,CHCNTTR=C HCNTTR+1,C HCNTE=CHCN TE+1,CHCNT TE=CHCNTTE +1 ;HM 10/ 12/2017 | |
1116 | ..I QDT'< CHDT10 S C HO10R=CHO1 0R+1,CHO10 TR=CHO10TR +1,CHO10E= CHO10E+1,C HO10TE=CHO 10TE+1 ;HM 10/12/201 7 | |
1117 | ..I QDT<C HDT10 I QD T'<CHDT14 S CHO14R=C HO14R+1,CH O14TR=CHO1 4TR+1,CHO1 4E=CHO14E+ 1,CHO14TE= CHO14TE+1 ;HM 10/12/ 2017 | |
1118 | ..I QDT<C HDT14 I QD T'<CHDT21 S CHO21R=C HO21R+1,CH O21TR=CHO2 1TR+1,CHO2 1E=CHO21E+ 1,CHO21TE= CHO21TE+1 ;HM 10/12/ 2017 | |
1119 | ..I QDT<C HDT21 I QD T'<CHDT30 S CHO29R=C HO29R+1,CH O29TR=CHO2 9TR+1,CHO2 9E=CHO29E+ 1,CHO29TE= CHO29TE+1 ;HM 10/12/ 2017 | |
1120 | ..I QDT<C HDT30 S CH O30R=CHO30 R+1,CHO30T R=CHO30TR+ 1,CHO30E=C HO30E+1,CH O30TE=CHO3 0TE+1 ;HM 10/12/2017 | |
1121 | Q | |
1122 | ; | |
1123 | CNTEDISB; | |
1124 | ; | |
1125 | ; CPE005- 016B EDI R e-Open SB (program i ndicator 9 0) | |
1126 | ; | |
1127 | N TMPQDTR, OCLJ,PRIND ; | |
1128 | S QCLJ=999 999999,QCL J=$O(@(GLP AY_"QCL,"" PDI"",QCLJ )"),-1) ; | |
1129 | I QCLJ'="" ,$D(@(GLPA Y_"QCL,""P DI"",QCLJ, 0)")) ; | |
1130 | I QCLJ'=" ",$D(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)")) D ; | |
1131 | .S TMPQDT R=$P(@(GLP AY_"QCL,"" PDI"",QCLJ ,0)"),"^", 1),PRIND=$ E(TMPQDTR, 8,9) ; | |
1132 | .I PRIND= 90 D ; | |
1133 | ..;HM ADD ED COUNTS FOR EM CLA IMS SECTIO N FOR ALL PROGRAM IN DICATORS O F 97 | |
1134 | ..S CHCNTB =CHCNTB+1, CHCNTTB=CH CNTTB+1,CH CNTE=CHCNT E+1,CHCNTT E=CHCNTTE+ 1 ;HM 10/1 2/2017 | |
1135 | ..I QDT'< CHDT10 S C HO10B=CHO1 0B+1,CHO10 TB=CHO10TB +1,CHO10E= CHO10E+1,C HO10TE=CHO 10TE+1 ;HM 10/12/201 7 | |
1136 | ..I QDT<C HDT10 I QD T'<CHDT14 S CHO14B=C HO14B+1,CH O14TB=CHO1 4TB+1,CHO1 4E=CHO14E+ 1,CHO14TE= CHO14TE+1 ;HM 10/12/ 2017 | |
1137 | ..I QDT<C HDT14 I QD T'<CHDT21 S CHO21B=C HO21B+1,CH O21TB=CHO2 1TB+1,CHO2 1E=CHO21E+ 1,CHO21TE= CHO21TE+1 ;HM 10/12/ 2017 | |
1138 | ..I QDT<C HDT21 I QD T'<CHDT30 S CHO29B=C HO29B+1,CH O29TB=CHO2 9TB+1,CHO2 9E=CHO29E+ 1,CHO29TE= CHO29TE+1 ;HM 10/12/ 2017 | |
1139 | ..I QDT<C HDT30 S CH O30B=CHO30 B+1,CHO30T B=CHO30TB+ 1,CHO30E=C HO30E+1,CH O30TE=CHO3 0TE+1 ;HM 10/12/2017 | |
1140 | Q | |
1141 | ; | |
1142 | QREP ; | |
1143 | ;I '$D(CH FIO) S CHF IO="CHAMPV A_EDI:[KER MIT]SOQ"_C HDTE_".RPT " ;ADDED F OR TESTING | |
1144 | S %ZIS="Q ",IOP="Q;" _CHFIO D ^ %ZIS G:POP QREPEND | |
1145 | S ZTRTN=" ^CHMRSQP", ZTDESC="ST ATUS OF QU EUES PRINT ",ZTDTH=$H | |
1146 | S ZTSAVE( "CHDT")="" ,ZTSAVE("C HDTB")="", ZTSAVE("CH DTE")="",Z TSAVE("CHF IO")="" | |
1147 | K ZTIO | |
1148 | D ^%ZTLOA D | |
1149 | ;D ^CHMRS QP | |
1150 | QREPEND Q | |
1151 | ; | |
1152 | REP D MAIN ^CHMRSQP | |
1153 | Q | |
1154 | ; | |
1155 | FMJUL(FDT) ;CONVERT FM DATE TO JULIAN DA TE | |
1156 | N D1,D2,D 3 | |
1157 | I '$D(FDT ) S FDT=DT | |
1158 | S X=$E(FD T,1,3)_"00 00" D H^%D TC S D2=%H | |
1159 | S X=FDT D H^%DTC S D1=%H | |
1160 | S D3=D1-D 2+1 S:D3<1 00 D3="0"_ D3 S:D3<10 D3="0"_D3 | |
1161 | S D3=$E(F DT,2,3)_D3 | |
1162 | Q D3 | |
1163 | ; | |
1164 | JULFM(JDT) ;CONVERT JULIAN DAT E TO FM DA TE | |
1165 | I '$D(JDT ) S JDT=$$ FMJUL(DT) | |
1166 | S X=1900+ $E(JDT,1,2 )-1700_"00 00" D H^%D TC | |
1167 | S %H=%H+$ E(JDT,3,5) -1 D YMD^% DTC | |
1168 | Q X | |
1169 | ; | |
1170 | FYR(FDT) ; RETURN FIS CAL YEAR A S YYY1001 FROM FM DA TE | |
1171 | N Y,M,FYR | |
1172 | I '$D(FDT ) S FDT=DT | |
1173 | S Y=$E(FD T,1,3),M=$ E(FDT,4,5) | |
1174 | S FYR=Y_" 1001" I M< 10 S Y=Y-1 ,FYR=Y_"10 01" | |
1175 | Q FYR | |
1176 | ; | |
1177 | ||
1178 | ||
1179 | Difference s | |
1180 | ..;HM ADDE D COUNTS F OR EM CLAI MS SECTION FOR ALL P ROGRAM IND ICATORS OF 97 | |
1181 | ..S CHCNTR =CHCNTR+1, CHCNTTR=CH CNTTR+1,CH CNTE=CHCNT E+1,CHCNTT E=CHCNTTE+ 1 ;HM 10/1 2/2017 | |
1182 | ..I QDT'< CHDT10 S C HO10R=CHO1 0R+1,CHO10 TR=CHO10TR +1,CHO10E= CHO10E+1,C HO10TE=CHO 10TE+1 ;HM 10/12/201 7 | |
1183 | ..I QDT<C HDT10 I QD T'<CHDT14 S CHO14R=C HO14R+1,CH O14TR=CHO1 4TR+1,CHO1 4E=CHO14E+ 1,CHO14TE= CHO14TE+1 ;HM 10/12/ 2017 | |
1184 | ..I QDT<C HDT14 I QD T'<CHDT21 S CHO21R=C HO21R+1,CH O21TR=CHO2 1TR+1,CHO2 1E=CHO21E+ 1,CHO21TE= CHO21TE+1 ;HM 10/12/ 2017 | |
1185 | ..I QDT<C HDT21 I QD T'<CHDT30 S CHO29R=C HO29R+1,CH O29TR=CHO2 9TR+1,CHO2 9E=CHO29E+ 1,CHO29TE= CHO29TE+1 ;HM 10/12/ 2017 | |
1186 | ..I QDT<C HDT30 S CH O30R=CHO30 R+1,CHO30T R=CHO30TR+ 1,CHO30E=C HO30E+1,CH O30TE=CHO3 0TE+1 ;HM 10/12/2017 | |
1187 | Q | |
1188 | ||
1189 | ..;HM ADDE D COUNTS F OR EM CLAI MS SECTION FOR ALL P ROGRAM IND ICATORS OF 97 | |
1190 | ..S CHCNTB =CHCNTB+1, CHCNTTB=CH CNTTB+1,CH CNTE=CHCNT E+1,CHCNTT E=CHCNTTE+ 1 ;HM 10/1 2/2017 | |
1191 | ..I QDT'< CHDT10 S C HO10B=CHO1 0B+1,CHO10 TB=CHO10TB +1,CHO10E= CHO10E+1,C HO10TE=CHO 10TE+1 ;HM 10/12/201 7 | |
1192 | ..I QDT<C HDT10 I QD T'<CHDT14 S CHO14B=C HO14B+1,CH O14TB=CHO1 4TB+1,CHO1 4E=CHO14E+ 1,CHO14TE= CHO14TE+1 ;HM 10/12/ 2017 | |
1193 | ..I QDT<C HDT14 I QD T'<CHDT21 S CHO21B=C HO21B+1,CH O21TB=CHO2 1TB+1,CHO2 1E=CHO21E+ 1,CHO21TE= CHO21TE+1 ;HM 10/12/ 2017 | |
1194 | ..I QDT<C HDT21 I QD T'<CHDT30 S CHO29B=C HO29B+1,CH O29TB=CHO2 9TB+1,CHO2 9E=CHO29E+ 1,CHO29TE= CHO29TE+1 ;HM 10/12/ 2017 | |
1195 | ..I QDT<C HDT30 S CH O30B=CHO30 B+1,CHO30T B=CHO30TB+ 1,CHO30E=C HO30E+1,CH O30TE=CHO3 0TE+1 ;HM 10/12/2017 | |
1196 | Q | |
1197 | ||
1198 | ||
1199 | ||
1200 | ||
1201 | ||
1202 | ||
1203 | ||
1204 | ||
1205 | ||
1206 | ||
1207 | ||
1208 | ||
1209 | ||
1210 | ||
1211 | ||
1212 | ||
1213 | ||
1214 | ||
1215 | ||
1216 | ||
1217 | ||
1218 | ||
1219 | 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.