10. EPMO Open Source Coordination Office Redaction File Detail Report

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.

10.1 Files compared

# 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

10.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 2438
Changed 0 0
Inserted 0 0
Removed 0 0

10.3 Comparison options

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

10.4 Active regular expressions

No regular expressions were active.

10.5 Comparison detail

  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):