APCM14E4 ;IHS/CMI/LAB - IHS MU;
;;1.0;IHS MU PERFORMANCE REPORTS;**5,6**;MAR 26, 2012;Build 65
;;;;;;Build 3
AL ;EP - CALCULATE ALLERY LIST
;for each provider or for the facility find out if this
;patient had a visit of A, O, R, S to this provider or facility
;if so, then check to see if they any ALLERGIES OR NAA documented in report period
NEW APCMP
S (APCMD1,APCMN1)=0
I APCMRPTT=1 D Q
.S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP D
..Q:'$D(APCMHVTP(APCMP)) ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
..D AL1
..Q
I APCMRPTT=2 D
.S APCMP=APCMFAC
.Q:'$D(APCMHVTP(APCMP))
.D AL1
.Q
Q
AL1 ;
;set denominator value into field
S F=$P(^APCM14OB(APCMIC,0),U,8) ;denom field for this measure
D S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
;numerator?
S APCMEP=$$HASAL(DFN,APCMBDAT,APCMEDAT)
S APCMVALU=APCMVALU_"|||"_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)
S F=$P(^APCM14OB(APCMIC,0),U,9)
D S^APCM14E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
D SETLIST^APCM14E1
Q
HASAL(P,BD,ED) ;does patient have an allergy entered before end of report period
;
NEW A,B,C,D,E,X
;check in allergy tracking for a "drug" allergy ever
S E=""
S X=0 F S X=$O(^GMR(120.8,"B",P,X)) Q:X'=+X!(E) D
.S A=$$VAL^XBDIQ1(120.8,X,3.1)
.S D=$P($P(^GMR(120.8,X,0),U,4),".")
.I D>ED Q ;after report period
.I A]"",A["DRUG" S E=1_U_"Allergy: "_$$VAL^XBDIQ1(120.8,X,.02)_" entered on "_$$DATE^APCM1UTL(D) Q
I E]"" Q E
;now check for no known allergies
I $D(^GMR(120.86,P,0)),$P(^GMR(120.86,P,0),U,2)=0 D
.S D=$P($P(^GMR(120.86,P,0),U,4),".",1)
.Q:D>ED ;after ed
.S E=1_U_"NKA noted on "_$$FMTE^XLFDT($P($P(^GMR(120.86,P,0),U,4),".",1))
I E]"" Q E
S D=$$LASTNAA^APCLAPI6(P,,ED,"D")
I D]"" S E="1^No Active Allergies on "_$$DATE^APCM1UTL(D)
Q E
EPRES ;EP
G EPRES^APCM14E3
VS ;EP - CALCULATE VITAL SIGNS
;for each provider or for the facility find out if this
;patient had a visit of A, O, R, S to this provider or facility
;if so, then check to see if they have vital signs documented anytime before end of report period
NEW APCMP,APCMFIED,APCMFIEN
S APCMFIED=$P(^APCM14OB(APCMIC,0),U,8)
S APCMFIEN=$P(^APCM14OB(APCMIC,0),U,9)
S APCMBPON=0,APCMNOHW=0
S (APCMD1,APCMN1)=0
I APCMRPTT=1 D Q
.S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP D
..;S F=$P(^APCM14OB(APCMIC,0),U,18),APCMNP=$P(^DD(9001302.0311,F,0),U,4),N=$P(APCMNP,";"),P=$P(APCMNP,";",2)
..;S APCME=$$V^APCM14ER(1,APCMRPT,N,P,APCMP,"I",APCMRPTT) Q:APCME="X" ;don't bother as this one is excluded
..;D S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F,1)
..S APCMFIED=$P(^APCM14OB(APCMIC,0),U,8)
..S APCMFIEN=$P(^APCM14OB(APCMIC,0),U,9)
..S APCMBPON=0,APCMNOHW=0
..I $G(APCMADDQ("ANS",APCMIC,24,APCMP))="Yes" D Q
...;SET EXCLUSION
...S F=$P(^APCM14OB(APCMIC,0),U,11) D S^APCM14E1(APCMRPT,APCMIC,"Yes",APCMP,APCMRPTT,APCMTIME,F,1)
...;SET SKIP
...S F=$P(^APCM14OB(APCMIC,0),U,18)
...D S^APCM14E1(APCMRPT,APCMIC,"X",APCMP,APCMRPTT,APCMTIME,F,1)
...;set associated measures with skip "X"
...S X=0 F S X=$O(^APCM14OB(APCMIC,29,X)) Q:X'=+X D
....S Y=$P(^APCM14OB(APCMIC,29,X,0),U,1)
....S Y=$O(^APCM14OB("B",Y,0))
....S F=$P(^APCM14OB(Y,0),U,18)
....D S^APCM14E1(APCMRPT,Y,"X",APCMP,APCMRPTT,APCMTIME,F,1)
..I $G(APCMADDQ("ANS",APCMIC,25,APCMP))="Yes"!($G(APCMADDQ("ANS",APCMIC,27,APCMP))="Yes") D G VSC
...S Z=$O(^APCM14OB("B","S1.008.EP.2",0)),APCMFIED=$P(^APCM14OB(Z,0),U,8),APCMFIEN=$P(^APCM14OB(Z,0),U,9)
...S APCMNOBP=1 ;no BP use S1.008.EP.2
...F Z="S1.008.EP.1","S1.008.EP" S Y=$O(^APCM14OB("B",Z,0)) D
....S F=$P(^APCM14OB(Y,0),U,18)
....D S^APCM14E1(APCMRPT,Y,"X",APCMP,APCMRPTT,APCMTIME,F,1)
....I Z="S1.008.EP" Q
....S F=$P(^APCM14OB(Y,0),U,11)
....D S^APCM14E1(APCMRPT,Y,"Yes",APCMP,APCMRPTT,APCMTIME,F,1)
...S Y=$O(^APCM14OB("B","S1.008.EP.2",0))
...S F=$P(^APCM14OB(Y,0),U,11)
...D S^APCM14E1(APCMRPT,Y,"N/A",APCMP,APCMRPTT,APCMTIME,F,1)
..I $G(APCMADDQ("ANS",APCMIC,28,APCMP))="Yes" D G VSC
...S APCMNOHW=1 ;no BP use S1.008.EP.1
...S Z=$O(^APCM14OB("B","S1.008.EP.1",0)),APCMFIED=$P(^APCM14OB(Z,0),U,8),APCMFIEN=$P(^APCM14OB(Z,0),U,9)
...F Z="S1.008.EP","S1.008.EP.2" S Y=$O(^APCM14OB("B",Z,0)) D
....S F=$P(^APCM14OB(Y,0),U,18)
....D S^APCM14E1(APCMRPT,APCMIC,"X",APCMP,APCMRPTT,APCMTIME,F,1)
....I Z="S1.008.EP" Q
....S F=$P(^APCM14OB(Y,0),U,11)
....D S^APCM14E1(APCMRPT,Y,"Yes",APCMP,APCMRPTT,APCMTIME,F,1)
...S Y=$O(^APCM14OB("B","S1.008.EP.1",0))
...S F=$P(^APCM14OB(Y,0),U,11)
...D S^APCM14E1(APCMRPT,Y,"N/A",APCMP,APCMRPTT,APCMTIME,F,1)
..I $G(APCMADDQ("ANS",APCMIC,24,APCMP))="No" D G VSC
...F Z="S1.008.EP.1","S1.008.EP.2" S Y=$O(^APCM14OB("B",Z,0)) D
....S F=$P(^APCM14OB(Y,0),U,18)
....D S^APCM14E1(APCMRPT,APCMIC,"X",APCMP,APCMRPTT,APCMTIME,F,1)
VSC ..;
..Q:'$D(APCMHVTP(APCMP)) ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
..D VS1
.Q
I APCMRPTT=2 D
.S APCMP=APCMFAC
.Q:'$D(APCMHVTP(APCMP))
.D VS1
.Q
Q
VS1 ;set denominator value into field
I $$AGE^AUPNPAT(DFN,APCMHVTP(APCMP))<3,$G(APCMADDQ("ANS",APCMIC,28,APCMP))="Yes" Q
S F=APCMFIED ;$P(^APCM14OB(APCMIC,0),U,8) ;denom field for this measure
D S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
;numerator?
I APCMRPTT=1 S APCMEP=$$HASVSEP(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT,APCMHVTP(APCMP))
I APCMRPTT=2 S APCMEP=$$HASVS(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT,APCMHVTP(APCMP))
S APCMVALU=APCMVALU_"|||"_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)
S F=APCMFIEN ;$P(^APCM14OB(APCMIC,0),U,9)
D S^APCM14E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
D SETLIST^APCM14E1
Q
HASVS(P,BD,ED,VD) ;does patient have a problem entered before end of report period
;
NEW A,B,C,D,E,HT,WT,BP
S C=0
S (HT,WT,BP)=""
S HT=$$LASTITEM^APCLAPIU(P,"HT","MEASUREMENT",BD,ED)
S WT=$$LASTITEM^APCLAPIU(P,"WT","MEASUREMENT",BD,ED)
S BP=$$LASTITEM^APCLAPIU(P,"BP","MEASUREMENT",BD,ED)
I BP]"" S BP="BP"
I BP="",$$AGE^AUPNPAT(P,VD)<3 S BP="N/A <3 yrs"
I HT]"",WT]"",BP]"" Q 1_U_"Has: HT, WT, "_BP
Q 0_U_"Has: "_$S(HT]"":"HT ",1:"")_$S(WT]"":"WT ",1:"")_$S(BP]"":"BP ",1:"")
HASVSEP(P,BD,ED,VD) ;does patient have a HT/WT/BP entered before end of report period
;
NEW A,B,C,D,E,HT,WT,BP,M
S M=$O(^APCM14OB("B","S1.008.EP",0))
S C=0
S (HT,WT,BP)=""
S HT=$$LASTITEM^APCLAPIU(P,"HT","MEASUREMENT",BD,ED)
S WT=$$LASTITEM^APCLAPIU(P,"WT","MEASUREMENT",BD,ED)
S BP=$$LASTITEM^APCLAPIU(P,"BP","MEASUREMENT",BD,ED)
I BP]"" S BP="BP"
I BP="",$$AGE^AUPNPAT(P,VD)<3 S BP="BP not relevant <3"
I $G(APCMADDQ("ANS",M,24,APCMP))="No",HT]"",WT]"",BP]"" Q 1_U_"Has: HT, WT, "_BP
I $G(APCMADDQ("ANS",M,25,APCMP))="Yes",HT]"",WT]"" Q 1_U_"Has: HT, WT, BP not relevant"
I $G(APCMADDQ("ANS",M,27,APCMP))="Yes",HT]"",WT]"" Q 1_U_"Has: HT, WT, BP not relevant"
I $G(APCMADDQ("ANS",M,28,APCMP))="Yes",BP]"" Q 1_U_"Has: BP, HT&WT not relevant"
I $G(APCMADDQ("ANS",M,24,APCMP))="Yes",HT]"",WT]"",BP]"" Q 1_U_"Has: HT, WT, BP"
Q 0_U_"Has: "_$S(HT]"":"HT ",1:"")_$S(WT]"":"WT ",1:"")_$S(BP]"":"BP ",1:"")
;
ST ;EP - CALCULATE SMOKING STATUS
;for each provider or for the facility find out if this
;patient had a visit of A, O, R, S to this provider or facility
;if so, then check to see if they have SMOKING STATUS documented anytime before end of report period
NEW APCMP
S (APCMD1,APCMN1)=0
I APCMRPTT=1 D Q
.S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP D
..I $D(APCM14ON(APCMP,APCMTIME)) S F=$P(^APCM14OB(APCMIC,0),U,11) D S^APCM14E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not see anyone over 13 during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1) Q
..Q:$$AGE^AUPNPAT(DFN,APCMBDAT)<13
..Q:'$D(APCMHVTP(APCMP)) ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
..D ST1
I APCMRPTT=2 D
.S APCMP=APCMFAC
.I $D(APCM14ON(APCMP,APCMTIME)) S F=$P(^APCM14OB(APCMIC,0),U,11) D S^APCM14E1(APCMRPT,APCMIC,"Hospital is excluded from this measure as did not admit anyone over 13 during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1) Q
.Q:$$AGE^AUPNPAT(DFN,APCMBDAT)<13
.Q:'$D(APCMHVTP(APCMP))
.D ST1
.Q
Q
ST1 ;set denominator value into field
S F=$P(^APCM14OB(APCMIC,0),U,8) ;denom field for this measure
D S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
;numerator?
S APCMEP=$$HASST(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT)
S APCMVALU=APCMVALU_"|||"_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)
S F=$P(^APCM14OB(APCMIC,0),U,9)
D S^APCM14E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
D SETLIST^APCM14E1
Q
HASST(P,BD,ED) ;does patient have a SMOKING STATUS
;
NEW A,B,C,D,E,HF
S C=0
S HF=""
;S HF=$$LASTHF^APCLAPIU(P,"TOBACCO (SMOKING)",,ED,"A")
F A="F002","F004","F108","F109","F110","F111","F121","F122" S B=$$LASTITEM^APCLAPIU(P,A,"HEALTH",,ED,"A") I B]"" S D($P(B,U,1))=$P(B,U,2)
;ZW D
I '$D(D) Q 0
S HF=$O(D(999999999),-1) Q 1_U_$$DATE^APCM1UTL(HF)_" "_$P(D(HF),U,1)
Q 0
CS ;EP - CLINICAL SUMMARIES ON EACH VISIT
NEW APCMP
S (APCMD1,APCMN1)=0
I APCMRPTT=1 S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP D
.I $D(APCMOFFV(APCMP,APCMTIME)) S F=$P(^APCM14OB(APCMIC,0),U,11) D Q
..D S^APCM14E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not have any office visits during the EHR Reporting Period.",APCMP,APCMRPTT,APCMTIME,F,1) Q
.Q:'$D(APCMHVTP(APCMP)) ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
.;set denominator value into field
.S APCMEP=$$HASCS(DFN,APCMP,APCMBDAT,APCMEDAT,.APCMVSTS) ;RETURNS # OF VISIT^# THAT HAD CS GIVEN W/IN 3 BUS DAYS
.S F=$P(^APCM14OB(APCMIC,0),U,8) ;denom field for this measure
.D S^APCM14E1(APCMRPT,APCMIC,$P(APCMEP,U),APCMP,APCMRPTT,APCMTIME,F)
.;S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
.I $P(APCMEP,U,1) S APCMVALU="# visits: "_$P(APCMEP,U,1)_" - # w/CS: "_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,3)_"|||"_$S('(+$P(APCMEP,U,1)):0,$P(APCMEP,U,1)=$P(APCMEP,U,2):1,1:0)
.;numerator?
.S F=$P(^APCM14OB(APCMIC,0),U,9)
.D S^APCM14E1(APCMRPT,APCMIC,$P(APCMEP,U,2),APCMP,APCMRPTT,APCMTIME,F)
.I APCMVALU]"" D SETLIST^APCM14E1
Q
HASCS(P,R,BD,ED,VSTS) ;does patient have a SMOKING STATUS
;
NEW A,B,C,D,E,X,Y,V,PWH,J,EDUC
;LOOP THROUGH ALL VISITS AND COUNT VISIT AND PWH'S
S PWH="0^0"
;RETURN 3RD PIECE AS LIST OF VISITS WITH A "PWH" or "No PWH"
S X=0 F S X=$O(VSTS(X)) Q:X'=+X D
.S G=0
.S V=$P(VSTS(X),U,5)
.I '$D(^AUPNVSIT(V,0)) Q
.I $P(^AUPNVSIT(V,0),U,11) Q ;deleted
.I "AOSM"'[$P(^AUPNVSIT(V,0),U,7) Q ;not correct service category/OFFICE VISIT
.S C=$$CLINIC^APCLV(V,"C")
.Q:C=30
.Q:C=77
.I C=76 Q ;no lab
.I C=63 Q ;no radiology
.I C=39 Q ;no pharmacy
.S Y=0 F S Y=$O(^AUPNVPRV("AD",V,Y)) Q:Y'=+Y!(G) D
..I $P($G(^AUPNVPRV(Y,0)),U)'=R Q
..I $P($G(^AUPNVPRV(Y,0)),U,4)'="P" Q
..S G=1
.Q:'G ;not a visit to this provider
.S $P(PWH,U,1)=$P(PWH,U,1)+1
.;is there a yes in phr access field on or before visit date?
.S A=0,B="" F S A=$O(^AUPNPAT(P,88,A)) Q:A'=+A!(A>$$VD^APCLV(V)) S B=A
.I B]"",$P(^AUPNPAT(P,88,B,0),U,2) D Q ;meets numerator as had phr access on visit date
..S $P(PWH,U,2)=$P(PWH,U,2)+1
..S $P(PWH,U,3)=$P(PWH,U,3)_$S($P(PWH,U,3)]"":";",1:"")_"VD: "_$$DATE^APCM1UTL($$VD^APCLV(V))_"-"_"PHR ACCESS YES on "_$$DATE^APCM1UTL(B)
.S E=$$BD($$VD^APCLV(V),3)
.;GET DATES OF PRINT AND MAKE SURE 1 IS ON OR BEFORE VALUE IN E
.S A=0,G=0 F S A=$O(^APCCDPL(V,1,"B",A)) Q:A'=+A!(G) D
..S B=0 F S B=$O(^APCCDPL(V,1,"B",A,B)) Q:B'=+B!(G) D
...I $P(A,".")>E Q ;greater than 3 business days
...I $P(A,".")<$$VD^APCLV(V) ;before visit date??
...Q:$P(^APCCDPL(V,1,B,0),U,4)'=1 ;CLINICAL SUMMARY ONLY
...;Q:$P(^APCCDPL(V,1,B,0),U,2)'="P" ;printed only
...S G=1
...S $P(PWH,U,2)=$P(PWH,U,2)+1
...S $P(PWH,U,3)=$P(PWH,U,3)_$S($P(PWH,U,3)]"":";",1:"")_"VD: "_$$DATE^APCM1UTL($$VD^APCLV(V))_"-"_"Document printed on "_$$DATE^APCM1UTL($P(A,"."))
.Q:G
.;IF NONE OF THESE CHECK FOR REFUSAL ON VISIT DATE
.S A=0,G="" F S A=$O(^AUPNPREF("AC",P,A)) Q:A'=+A!(G) D
..Q:$$GET1^DIQ(9000022,A,.01)'="SNOMED"
..Q:$$GET1^DIQ(9000022,A,.03,"I")'=$$VD^APCLV(V) ;must be refused on visit date
..Q:$$GET1^DIQ(9000022,A,1301,"I")'=422735006
..S G=1
.I G D
..S $P(PWH,U,2)=$P(PWH,U,2)+1
..S $P(PWH,U,3)=$P(PWH,U,3)_$S($P(PWH,U,3)]"":";",1:"")_"VD: "_$$DATE^APCM1UTL($$VD^APCLV(V))_"-"_"Declined CS on "_$$DATE^APCM1UTL($$VD^APCLV(V))
Q PWH
BD(D,N) ;EP n business days from this date
NEW O,C,Q,R,T
S C=0,T=""
S O=D F S O=$$FMADD^XLFDT(O,1) Q:C=N D
.S Q=$$DOW^XLFDT(O,1)
.I Q=0 Q
.I Q=6 Q
.Q:$D(^HOLIDAY(O))
.S C=C+1,T=O
Q T
BDB(D,N) ;EP - 3 business days from this date
NEW O,C,Q,R,T
S C=0,T=""
S O=D F S O=$$FMADD^XLFDT(O,-1) Q:C=$P(N,"-",2) D
.S Q=$$DOW^XLFDT(O,1)
.I Q=0 Q
.I Q=6 Q
.Q:$D(^HOLIDAY(O))
.S C=C+1,T=O
Q T
APCM14E4 ;IHS/CMI/LAB - IHS MU;
+1 ;;1.0;IHS MU PERFORMANCE REPORTS;**5,6**;MAR 26, 2012;Build 65
+2 ;;;;;;Build 3
AL ;EP - CALCULATE ALLERY LIST
+1 ;for each provider or for the facility find out if this
+2 ;patient had a visit of A, O, R, S to this provider or facility
+3 ;if so, then check to see if they any ALLERGIES OR NAA documented in report period
+4 NEW APCMP
+5 SET (APCMD1,APCMN1)=0
+6 IF APCMRPTT=1
Begin DoDot:1
+7 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:2
+8 ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
IF '$DATA(APCMHVTP(APCMP))
QUIT
+9 DO AL1
+10 QUIT
End DoDot:2
End DoDot:1
QUIT
+11 IF APCMRPTT=2
Begin DoDot:1
+12 SET APCMP=APCMFAC
+13 IF '$DATA(APCMHVTP(APCMP))
QUIT
+14 DO AL1
+15 QUIT
End DoDot:1
+16 QUIT
AL1 ;
+1 ;set denominator value into field
+2 ;denom field for this measure
SET F=$PIECE(^APCM14OB(APCMIC,0),U,8)
+3 DO S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
+4 SET APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
+5 ;numerator?
+6 SET APCMEP=$$HASAL(DFN,APCMBDAT,APCMEDAT)
+7 SET APCMVALU=APCMVALU_"|||"_$PIECE(APCMEP,U,2)_"|||"_$PIECE(APCMEP,U,1)
+8 SET F=$PIECE(^APCM14OB(APCMIC,0),U,9)
+9 DO S^APCM14E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
+10 DO SETLIST^APCM14E1
+11 QUIT
HASAL(P,BD,ED) ;does patient have an allergy entered before end of report period
+1 ;
+2 NEW A,B,C,D,E,X
+3 ;check in allergy tracking for a "drug" allergy ever
+4 SET E=""
+5 SET X=0
FOR
SET X=$ORDER(^GMR(120.8,"B",P,X))
IF X'=+X!(E)
QUIT
Begin DoDot:1
+6 SET A=$$VAL^XBDIQ1(120.8,X,3.1)
+7 SET D=$PIECE($PIECE(^GMR(120.8,X,0),U,4),".")
+8 ;after report period
IF D>ED
QUIT
+9 IF A]""
IF A["DRUG"
SET E=1_U_"Allergy: "_$$VAL^XBDIQ1(120.8,X,.02)_" entered on "_$$DATE^APCM1UTL(D)
QUIT
End DoDot:1
+10 IF E]""
QUIT E
+11 ;now check for no known allergies
+12 IF $DATA(^GMR(120.86,P,0))
IF $PIECE(^GMR(120.86,P,0),U,2)=0
Begin DoDot:1
+13 SET D=$PIECE($PIECE(^GMR(120.86,P,0),U,4),".",1)
+14 ;after ed
IF D>ED
QUIT
+15 SET E=1_U_"NKA noted on "_$$FMTE^XLFDT($PIECE($PIECE(^GMR(120.86,P,0),U,4),".",1))
End DoDot:1
+16 IF E]""
QUIT E
+17 SET D=$$LASTNAA^APCLAPI6(P,,ED,"D")
+18 IF D]""
SET E="1^No Active Allergies on "_$$DATE^APCM1UTL(D)
+19 QUIT E
EPRES ;EP
+1 GOTO EPRES^APCM14E3
VS ;EP - CALCULATE VITAL SIGNS
+1 ;for each provider or for the facility find out if this
+2 ;patient had a visit of A, O, R, S to this provider or facility
+3 ;if so, then check to see if they have vital signs documented anytime before end of report period
+4 NEW APCMP,APCMFIED,APCMFIEN
+5 SET APCMFIED=$PIECE(^APCM14OB(APCMIC,0),U,8)
+6 SET APCMFIEN=$PIECE(^APCM14OB(APCMIC,0),U,9)
+7 SET APCMBPON=0
SET APCMNOHW=0
+8 SET (APCMD1,APCMN1)=0
+9 IF APCMRPTT=1
Begin DoDot:1
+10 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:2
+11 ;S F=$P(^APCM14OB(APCMIC,0),U,18),APCMNP=$P(^DD(9001302.0311,F,0),U,4),N=$P(APCMNP,";"),P=$P(APCMNP,";",2)
+12 ;S APCME=$$V^APCM14ER(1,APCMRPT,N,P,APCMP,"I",APCMRPTT) Q:APCME="X" ;don't bother as this one is excluded
+13 ;D S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F,1)
+14 SET APCMFIED=$PIECE(^APCM14OB(APCMIC,0),U,8)
+15 SET APCMFIEN=$PIECE(^APCM14OB(APCMIC,0),U,9)
+16 SET APCMBPON=0
SET APCMNOHW=0
+17 IF $GET(APCMADDQ("ANS",APCMIC,24,APCMP))="Yes"
Begin DoDot:3
+18 ;SET EXCLUSION
+19 SET F=$PIECE(^APCM14OB(APCMIC,0),U,11)
DO S^APCM14E1(APCMRPT,APCMIC,"Yes",APCMP,APCMRPTT,APCMTIME,F,1)
+20 ;SET SKIP
+21 SET F=$PIECE(^APCM14OB(APCMIC,0),U,18)
+22 DO S^APCM14E1(APCMRPT,APCMIC,"X",APCMP,APCMRPTT,APCMTIME,F,1)
+23 ;set associated measures with skip "X"
+24 SET X=0
FOR
SET X=$ORDER(^APCM14OB(APCMIC,29,X))
IF X'=+X
QUIT
Begin DoDot:4
+25 SET Y=$PIECE(^APCM14OB(APCMIC,29,X,0),U,1)
+26 SET Y=$ORDER(^APCM14OB("B",Y,0))
+27 SET F=$PIECE(^APCM14OB(Y,0),U,18)
+28 DO S^APCM14E1(APCMRPT,Y,"X",APCMP,APCMRPTT,APCMTIME,F,1)
End DoDot:4
End DoDot:3
QUIT
+29 IF $GET(APCMADDQ("ANS",APCMIC,25,APCMP))="Yes"!($GET(APCMADDQ("ANS",APCMIC,27,APCMP))="Yes")
Begin DoDot:3
+30 SET Z=$ORDER(^APCM14OB("B","S1.008.EP.2",0))
SET APCMFIED=$PIECE(^APCM14OB(Z,0),U,8)
SET APCMFIEN=$PIECE(^APCM14OB(Z,0),U,9)
+31 ;no BP use S1.008.EP.2
SET APCMNOBP=1
+32 FOR Z="S1.008.EP.1","S1.008.EP"
SET Y=$ORDER(^APCM14OB("B",Z,0))
Begin DoDot:4
+33 SET F=$PIECE(^APCM14OB(Y,0),U,18)
+34 DO S^APCM14E1(APCMRPT,Y,"X",APCMP,APCMRPTT,APCMTIME,F,1)
+35 IF Z="S1.008.EP"
QUIT
+36 SET F=$PIECE(^APCM14OB(Y,0),U,11)
+37 DO S^APCM14E1(APCMRPT,Y,"Yes",APCMP,APCMRPTT,APCMTIME,F,1)
End DoDot:4
+38 SET Y=$ORDER(^APCM14OB("B","S1.008.EP.2",0))
+39 SET F=$PIECE(^APCM14OB(Y,0),U,11)
+40 DO S^APCM14E1(APCMRPT,Y,"N/A",APCMP,APCMRPTT,APCMTIME,F,1)
End DoDot:3
GOTO VSC
+41 IF $GET(APCMADDQ("ANS",APCMIC,28,APCMP))="Yes"
Begin DoDot:3
+42 ;no BP use S1.008.EP.1
SET APCMNOHW=1
+43 SET Z=$ORDER(^APCM14OB("B","S1.008.EP.1",0))
SET APCMFIED=$PIECE(^APCM14OB(Z,0),U,8)
SET APCMFIEN=$PIECE(^APCM14OB(Z,0),U,9)
+44 FOR Z="S1.008.EP","S1.008.EP.2"
SET Y=$ORDER(^APCM14OB("B",Z,0))
Begin DoDot:4
+45 SET F=$PIECE(^APCM14OB(Y,0),U,18)
+46 DO S^APCM14E1(APCMRPT,APCMIC,"X",APCMP,APCMRPTT,APCMTIME,F,1)
+47 IF Z="S1.008.EP"
QUIT
+48 SET F=$PIECE(^APCM14OB(Y,0),U,11)
+49 DO S^APCM14E1(APCMRPT,Y,"Yes",APCMP,APCMRPTT,APCMTIME,F,1)
End DoDot:4
+50 SET Y=$ORDER(^APCM14OB("B","S1.008.EP.1",0))
+51 SET F=$PIECE(^APCM14OB(Y,0),U,11)
+52 DO S^APCM14E1(APCMRPT,Y,"N/A",APCMP,APCMRPTT,APCMTIME,F,1)
End DoDot:3
GOTO VSC
+53 IF $GET(APCMADDQ("ANS",APCMIC,24,APCMP))="No"
Begin DoDot:3
+54 FOR Z="S1.008.EP.1","S1.008.EP.2"
SET Y=$ORDER(^APCM14OB("B",Z,0))
Begin DoDot:4
+55 SET F=$PIECE(^APCM14OB(Y,0),U,18)
+56 DO S^APCM14E1(APCMRPT,APCMIC,"X",APCMP,APCMRPTT,APCMTIME,F,1)
End DoDot:4
End DoDot:3
GOTO VSC
VSC ;
+1 ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
IF '$DATA(APCMHVTP(APCMP))
QUIT
+2 DO VS1
End DoDot:2
+3 QUIT
End DoDot:1
QUIT
+4 IF APCMRPTT=2
Begin DoDot:1
+5 SET APCMP=APCMFAC
+6 IF '$DATA(APCMHVTP(APCMP))
QUIT
+7 DO VS1
+8 QUIT
End DoDot:1
+9 QUIT
VS1 ;set denominator value into field
+1 IF $$AGE^AUPNPAT(DFN,APCMHVTP(APCMP))<3
IF $GET(APCMADDQ("ANS",APCMIC,28,APCMP))="Yes"
QUIT
+2 ;$P(^APCM14OB(APCMIC,0),U,8) ;denom field for this measure
SET F=APCMFIED
+3 DO S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
+4 SET APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
+5 ;numerator?
+6 IF APCMRPTT=1
SET APCMEP=$$HASVSEP(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT,APCMHVTP(APCMP))
+7 IF APCMRPTT=2
SET APCMEP=$$HASVS(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT,APCMHVTP(APCMP))
+8 SET APCMVALU=APCMVALU_"|||"_$PIECE(APCMEP,U,2)_"|||"_$PIECE(APCMEP,U,1)
+9 ;$P(^APCM14OB(APCMIC,0),U,9)
SET F=APCMFIEN
+10 DO S^APCM14E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
+11 DO SETLIST^APCM14E1
+12 QUIT
HASVS(P,BD,ED,VD) ;does patient have a problem entered before end of report period
+1 ;
+2 NEW A,B,C,D,E,HT,WT,BP
+3 SET C=0
+4 SET (HT,WT,BP)=""
+5 SET HT=$$LASTITEM^APCLAPIU(P,"HT","MEASUREMENT",BD,ED)
+6 SET WT=$$LASTITEM^APCLAPIU(P,"WT","MEASUREMENT",BD,ED)
+7 SET BP=$$LASTITEM^APCLAPIU(P,"BP","MEASUREMENT",BD,ED)
+8 IF BP]""
SET BP="BP"
+9 IF BP=""
IF $$AGE^AUPNPAT(P,VD)<3
SET BP="N/A <3 yrs"
+10 IF HT]""
IF WT]""
IF BP]""
QUIT 1_U_"Has: HT, WT, "_BP
+11 QUIT 0_U_"Has: "_$SELECT(HT]"":"HT ",1:"")_$SELECT(WT]"":"WT ",1:"")_$SELECT(BP]"":"BP ",1:"")
HASVSEP(P,BD,ED,VD) ;does patient have a HT/WT/BP entered before end of report period
+1 ;
+2 NEW A,B,C,D,E,HT,WT,BP,M
+3 SET M=$ORDER(^APCM14OB("B","S1.008.EP",0))
+4 SET C=0
+5 SET (HT,WT,BP)=""
+6 SET HT=$$LASTITEM^APCLAPIU(P,"HT","MEASUREMENT",BD,ED)
+7 SET WT=$$LASTITEM^APCLAPIU(P,"WT","MEASUREMENT",BD,ED)
+8 SET BP=$$LASTITEM^APCLAPIU(P,"BP","MEASUREMENT",BD,ED)
+9 IF BP]""
SET BP="BP"
+10 IF BP=""
IF $$AGE^AUPNPAT(P,VD)<3
SET BP="BP not relevant <3"
+11 IF $GET(APCMADDQ("ANS",M,24,APCMP))="No"
IF HT]""
IF WT]""
IF BP]""
QUIT 1_U_"Has: HT, WT, "_BP
+12 IF $GET(APCMADDQ("ANS",M,25,APCMP))="Yes"
IF HT]""
IF WT]""
QUIT 1_U_"Has: HT, WT, BP not relevant"
+13 IF $GET(APCMADDQ("ANS",M,27,APCMP))="Yes"
IF HT]""
IF WT]""
QUIT 1_U_"Has: HT, WT, BP not relevant"
+14 IF $GET(APCMADDQ("ANS",M,28,APCMP))="Yes"
IF BP]""
QUIT 1_U_"Has: BP, HT&WT not relevant"
+15 IF $GET(APCMADDQ("ANS",M,24,APCMP))="Yes"
IF HT]""
IF WT]""
IF BP]""
QUIT 1_U_"Has: HT, WT, BP"
+16 QUIT 0_U_"Has: "_$SELECT(HT]"":"HT ",1:"")_$SELECT(WT]"":"WT ",1:"")_$SELECT(BP]"":"BP ",1:"")
+17 ;
ST ;EP - CALCULATE SMOKING STATUS
+1 ;for each provider or for the facility find out if this
+2 ;patient had a visit of A, O, R, S to this provider or facility
+3 ;if so, then check to see if they have SMOKING STATUS documented anytime before end of report period
+4 NEW APCMP
+5 SET (APCMD1,APCMN1)=0
+6 IF APCMRPTT=1
Begin DoDot:1
+7 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:2
+8 IF $DATA(APCM14ON(APCMP,APCMTIME))
SET F=$PIECE(^APCM14OB(APCMIC,0),U,11)
DO S^APCM14E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not see anyone over 13 during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)
QUIT
+9 IF $$AGE^AUPNPAT(DFN,APCMBDAT)<13
QUIT
+10 ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
IF '$DATA(APCMHVTP(APCMP))
QUIT
+11 DO ST1
End DoDot:2
End DoDot:1
QUIT
+12 IF APCMRPTT=2
Begin DoDot:1
+13 SET APCMP=APCMFAC
+14 IF $DATA(APCM14ON(APCMP,APCMTIME))
SET F=$PIECE(^APCM14OB(APCMIC,0),U,11)
DO S^APCM14E1(APCMRPT,APCMIC,"Hospital is excluded from this measure as did not admit anyone over 13 during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)
QUIT
+15 IF $$AGE^AUPNPAT(DFN,APCMBDAT)<13
QUIT
+16 IF '$DATA(APCMHVTP(APCMP))
QUIT
+17 DO ST1
+18 QUIT
End DoDot:1
+19 QUIT
ST1 ;set denominator value into field
+1 ;denom field for this measure
SET F=$PIECE(^APCM14OB(APCMIC,0),U,8)
+2 DO S^APCM14E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
+3 SET APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
+4 ;numerator?
+5 SET APCMEP=$$HASST(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT)
+6 SET APCMVALU=APCMVALU_"|||"_$PIECE(APCMEP,U,2)_"|||"_$PIECE(APCMEP,U,1)
+7 SET F=$PIECE(^APCM14OB(APCMIC,0),U,9)
+8 DO S^APCM14E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
+9 DO SETLIST^APCM14E1
+10 QUIT
HASST(P,BD,ED) ;does patient have a SMOKING STATUS
+1 ;
+2 NEW A,B,C,D,E,HF
+3 SET C=0
+4 SET HF=""
+5 ;S HF=$$LASTHF^APCLAPIU(P,"TOBACCO (SMOKING)",,ED,"A")
+6 FOR A="F002","F004","F108","F109","F110","F111","F121","F122"
SET B=$$LASTITEM^APCLAPIU(P,A,"HEALTH",,ED,"A")
IF B]""
SET D($PIECE(B,U,1))=$PIECE(B,U,2)
+7 ;ZW D
+8 IF '$DATA(D)
QUIT 0
+9 SET HF=$ORDER(D(999999999),-1)
QUIT 1_U_$$DATE^APCM1UTL(HF)_" "_$PIECE(D(HF),U,1)
+10 QUIT 0
CS ;EP - CLINICAL SUMMARIES ON EACH VISIT
+1 NEW APCMP
+2 SET (APCMD1,APCMN1)=0
+3 IF APCMRPTT=1
SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:1
+4 IF $DATA(APCMOFFV(APCMP,APCMTIME))
SET F=$PIECE(^APCM14OB(APCMIC,0),U,11)
Begin DoDot:2
+5 DO S^APCM14E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not have any office visits during the EHR Reporting Period.",APCMP,APCMRPTT,APCMTIME,F,1)
QUIT
End DoDot:2
QUIT
+6 ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
IF '$DATA(APCMHVTP(APCMP))
QUIT
+7 ;set denominator value into field
+8 ;RETURNS # OF VISIT^# THAT HAD CS GIVEN W/IN 3 BUS DAYS
SET APCMEP=$$HASCS(DFN,APCMP,APCMBDAT,APCMEDAT,.APCMVSTS)
+9 ;denom field for this measure
SET F=$PIECE(^APCM14OB(APCMIC,0),U,8)
+10 DO S^APCM14E1(APCMRPT,APCMIC,$PIECE(APCMEP,U),APCMP,APCMRPTT,APCMTIME,F)
+11 ;S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
+12 IF $PIECE(APCMEP,U,1)
SET APCMVALU="# visits: "_$PIECE(APCMEP,U,1)_" - # w/CS: "_$PIECE(APCMEP,U,2)_"|||"_$PIECE(APCMEP,U,3)_"|||"_$SELECT('(+$PIECE(APCMEP,U,1)):0,$PIECE(APCMEP,U,1)=$PIECE(APCMEP,U,2):1,1:0)
+13 ;numerator?
+14 SET F=$PIECE(^APCM14OB(APCMIC,0),U,9)
+15 DO S^APCM14E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,2),APCMP,APCMRPTT,APCMTIME,F)
+16 IF APCMVALU]""
DO SETLIST^APCM14E1
End DoDot:1
+17 QUIT
HASCS(P,R,BD,ED,VSTS) ;does patient have a SMOKING STATUS
+1 ;
+2 NEW A,B,C,D,E,X,Y,V,PWH,J,EDUC
+3 ;LOOP THROUGH ALL VISITS AND COUNT VISIT AND PWH'S
+4 SET PWH="0^0"
+5 ;RETURN 3RD PIECE AS LIST OF VISITS WITH A "PWH" or "No PWH"
+6 SET X=0
FOR
SET X=$ORDER(VSTS(X))
IF X'=+X
QUIT
Begin DoDot:1
+7 SET G=0
+8 SET V=$PIECE(VSTS(X),U,5)
+9 IF '$DATA(^AUPNVSIT(V,0))
QUIT
+10 ;deleted
IF $PIECE(^AUPNVSIT(V,0),U,11)
QUIT
+11 ;not correct service category/OFFICE VISIT
IF "AOSM"'[$PIECE(^AUPNVSIT(V,0),U,7)
QUIT
+12 SET C=$$CLINIC^APCLV(V,"C")
+13 IF C=30
QUIT
+14 IF C=77
QUIT
+15 ;no lab
IF C=76
QUIT
+16 ;no radiology
IF C=63
QUIT
+17 ;no pharmacy
IF C=39
QUIT
+18 SET Y=0
FOR
SET Y=$ORDER(^AUPNVPRV("AD",V,Y))
IF Y'=+Y!(G)
QUIT
Begin DoDot:2
+19 IF $PIECE($GET(^AUPNVPRV(Y,0)),U)'=R
QUIT
+20 IF $PIECE($GET(^AUPNVPRV(Y,0)),U,4)'="P"
QUIT
+21 SET G=1
End DoDot:2
+22 ;not a visit to this provider
IF 'G
QUIT
+23 SET $PIECE(PWH,U,1)=$PIECE(PWH,U,1)+1
+24 ;is there a yes in phr access field on or before visit date?
+25 SET A=0
SET B=""
FOR
SET A=$ORDER(^AUPNPAT(P,88,A))
IF A'=+A!(A>$$VD^APCLV(V))
QUIT
SET B=A
+26 ;meets numerator as had phr access on visit date
IF B]""
IF $PIECE(^AUPNPAT(P,88,B,0),U,2)
Begin DoDot:2
+27 SET $PIECE(PWH,U,2)=$PIECE(PWH,U,2)+1
+28 SET $PIECE(PWH,U,3)=$PIECE(PWH,U,3)_$SELECT($PIECE(PWH,U,3)]"":";",1:"")_"VD: "_$$DATE^APCM1UTL($$VD^APCLV(V))_"-"_"PHR ACCESS YES on "_$$DATE^APCM1UTL(B)
End DoDot:2
QUIT
+29 SET E=$$BD($$VD^APCLV(V),3)
+30 ;GET DATES OF PRINT AND MAKE SURE 1 IS ON OR BEFORE VALUE IN E
+31 SET A=0
SET G=0
FOR
SET A=$ORDER(^APCCDPL(V,1,"B",A))
IF A'=+A!(G)
QUIT
Begin DoDot:2
+32 SET B=0
FOR
SET B=$ORDER(^APCCDPL(V,1,"B",A,B))
IF B'=+B!(G)
QUIT
Begin DoDot:3
+33 ;greater than 3 business days
IF $PIECE(A,".")>E
QUIT
+34 ;before visit date??
IF $PIECE(A,".")<$$VD^APCLV(V)
+35 ;CLINICAL SUMMARY ONLY
IF $PIECE(^APCCDPL(V,1,B,0),U,4)'=1
QUIT
+36 ;Q:$P(^APCCDPL(V,1,B,0),U,2)'="P" ;printed only
+37 SET G=1
+38 SET $PIECE(PWH,U,2)=$PIECE(PWH,U,2)+1
+39 SET $PIECE(PWH,U,3)=$PIECE(PWH,U,3)_$SELECT($PIECE(PWH,U,3)]"":";",1:"")_"VD: "_$$DATE^APCM1UTL($$VD^APCLV(V))_"-"_"Document printed on "_$$DATE^APCM1UTL($PIECE(A,"."))
End DoDot:3
End DoDot:2
+40 IF G
QUIT
+41 ;IF NONE OF THESE CHECK FOR REFUSAL ON VISIT DATE
+42 SET A=0
SET G=""
FOR
SET A=$ORDER(^AUPNPREF("AC",P,A))
IF A'=+A!(G)
QUIT
Begin DoDot:2
+43 IF $$GET1^DIQ(9000022,A,.01)'="SNOMED"
QUIT
+44 ;must be refused on visit date
IF $$GET1^DIQ(9000022,A,.03,"I")'=$$VD^APCLV(V)
QUIT
+45 IF $$GET1^DIQ(9000022,A,1301,"I")'=422735006
QUIT
+46 SET G=1
End DoDot:2
+47 IF G
Begin DoDot:2
+48 SET $PIECE(PWH,U,2)=$PIECE(PWH,U,2)+1
+49 SET $PIECE(PWH,U,3)=$PIECE(PWH,U,3)_$SELECT($PIECE(PWH,U,3)]"":";",1:"")_"VD: "_$$DATE^APCM1UTL($$VD^APCLV(V))_"-"_"Declined CS on "_$$DATE^APCM1UTL($$VD^APCLV(V))
End DoDot:2
End DoDot:1
+50 QUIT PWH
BD(D,N) ;EP n business days from this date
+1 NEW O,C,Q,R,T
+2 SET C=0
SET T=""
+3 SET O=D
FOR
SET O=$$FMADD^XLFDT(O,1)
IF C=N
QUIT
Begin DoDot:1
+4 SET Q=$$DOW^XLFDT(O,1)
+5 IF Q=0
QUIT
+6 IF Q=6
QUIT
+7 IF $DATA(^HOLIDAY(O))
QUIT
+8 SET C=C+1
SET T=O
End DoDot:1
+9 QUIT T
BDB(D,N) ;EP - 3 business days from this date
+1 NEW O,C,Q,R,T
+2 SET C=0
SET T=""
+3 SET O=D
FOR
SET O=$$FMADD^XLFDT(O,-1)
IF C=$PIECE(N,"-",2)
QUIT
Begin DoDot:1
+4 SET Q=$$DOW^XLFDT(O,1)
+5 IF Q=0
QUIT
+6 IF Q=6
QUIT
+7 IF $DATA(^HOLIDAY(O))
QUIT
+8 SET C=C+1
SET T=O
End DoDot:1
+9 QUIT T
