APCM13E4 ;IHS/CMI/LAB - IHS MU;
;;1.0;IHS MU PERFORMANCE REPORTS;**2,3**;MAR 26, 2012;Build 1
;;;;;;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(^APCM13OB(APCMIC,0),U,8) ;denom field for this measure
D S^APCM13E1(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(^APCM13OB(APCMIC,0),U,9)
D S^APCM13E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
D SETLIST^APCM13E1
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 - CALCULATE EPRESCRIBING
;for each provider or for the facility count all prescriptions that meet criteria and if it is not written it meets numerator
K ^TMP($J,"PATSRX")
K APCMRXS
D TOTRX
NEW APCMP,N,F
S (APCMD1,APCMN1)=0
I APCMRPTT=1 S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP D
.I $D(APCM100R(APCMP,APCMTIME)) S F=$P(^APCM13OB(APCMIC,0),U,11) D G D
..D S^APCM13E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she had < 100 prescriptions issued during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)
.I $G(APCMADDQ("ANS",APCMIC,24,APCMP))="No",$G(APCMADDQ("ANS",APCMIC,25,APCMP))="No" S F=$P(^APCM13OB(APCMIC,0),U,11) D
..D S^APCM13E1(APCMRPT,APCMIC,"Provider may be eligible for an exclusion on this measure as they not have an onsite pharmacy and do not have a pharmacy within 10 miles accepting electronic prescriptions.",APCMP,APCMRPTT,APCMTIME,F,1)
D .;set denominator value into field
.S F=$P(^APCM13OB(APCMIC,0),U,8) ;denom field for this measure
.S N=$P($G(APCMRXS(APCMP)),U,1) ;returns # of prescriptions^# not written by nature of order
.D S^APCM13E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)
.;now set patient list for this provider
.S P=0 F S P=$O(^TMP($J,"PATSRX",APCMP,P)) Q:P'=+P D
..;Q:'$P(^TMP($J,"PATSRX",APCMP,P),U,1)
..I $P(^TMP($J,"PATSRX",APCMP,P),U,1)=$P(^TMP($J,"PATSRX",APCMP,P),U,2) S APCMVALU="# Prescriptions: "_$P(^TMP($J,"PATSRX",APCMP,P),U,1)_"|||"_" # transmitted electronically: "_+$P(^TMP($J,"PATSRX",APCMP,P),U,2)_"|||1" D Q
...S DFN=P D SETLIST^APCM13E1 Q
..S S="",APCMVALU="Not transmitted electronically: "
..F S S=$O(^TMP($J,"PATSRX",APCMP,P,"SCRIPTS",S)) Q:S="" D
...I '$D(^TMP($J,"PATSRX",APCMP,P,"ELEC",S)) D
....S APCMVALU=APCMVALU_S_";"
..S DFN=P,APCMVALU="# of Prescriptions: "_$P(^TMP($J,"PATSRX",APCMP,P),U,1)_" # transmitted electronically: "_+$P(^TMP($J,"PATSRX",APCMP,P),U,2)_"|||"_APCMVALU,$P(APCMVALU,"|||",3)=0 D SETLIST^APCM13E1
.;numerator?
.S F=$P(^APCM13OB(APCMIC,0),U,9)
.S N=$P($G(APCMRXS(APCMP)),U,2)
.D S^APCM13E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)
K ^TMP($J,"PATSRX")
Q
TOTRX ;EP - did patient have a RX in file 52 with an issue date
;between BD and ED
;SET ARRAY APCMRXS to APCMRXS(prov ien)=denom^numer
NEW ID,C,Y,X,D,S,N,A,B,R,PAT,G
S C=0,N=0
S ID=$$FMADD^XLFDT(APCMBDAT,-1)
F S ID=$O(^PSRX("AC",ID)) Q:ID'=+ID!(ID>APCMEDAT) D
.S X=0 F S X=$O(^PSRX("AC",ID,X)) Q:X'=+X D
..S R=$P($G(^PSRX(X,0)),U,4)
..Q:'R
..;I '$D(APCMPRV(R)) Q ;not a provider of interest
..I '$D(APCMRXS(R)) S APCMRXS(R)=""
..Q:$P($G(^PSRX(X,"STA")),"^")=13
..S D=$P(^PSRX(X,0),U,6)
..S S=$P($G(^PSDRUG(D,0)),U,3)
..Q:S[5
..Q:S[4
..Q:S[3
..Q:S[2
..Q:S[1
..S S=$P($G(^PSRX(X,3)),U,7)
..Q:$$UP^XLFSTR(S)["ADMINISTERED IN CLINIC"
..S PAT=$P(^PSRX(X,0),U,2)
..;quit if demo patient
..Q:$$DEMO^APCLUTL(PAT,$G(APCMDEMO))
..S $P(APCMRXS(R),U,1)=$P(APCMRXS(R),U,1)+1,$P(^TMP($J,"PATSRX",R,PAT),U,1)=$P($G(^TMP($J,"PATSRX",R,PAT)),U,1)+1,^TMP($J,"PATSRX",R,PAT,"SCRIPTS",$P(^PSRX(X,0),U,1))=""
..;
..;now check to see if it has a nature of order not equal to 1-written
..S G=0
..I $E($P(^PSRX(X,0),U,1))?1N D
...S O=$P($G(^PSRX(X,"OR1")),U,2) ;order number
...Q:O=""
...S B=$P($G(^OR(100,O,0)),U,6)
...Q:B=""
...S A=0,G=0 F S A=$O(^OR(100,O,8,A)) Q:A'=+A!(G) D
....S B=$P($G(^OR(100,O,8,A,0)),U,12)
....Q:B=1
....Q:B=""
....S G=1
...S $P(APCMRXS(R),U,2)=$P(APCMRXS(R),U,2)+G,$P(^TMP($J,"PATSRX",R,PAT),U,2)=$P($G(^TMP($J,"PATSRX",R,PAT)),U,2)+G I G S ^TMP($J,"PATSRX",R,PAT,"ELEC",$P(^PSRX(X,0),U,1))="" ;S N=N+G
..S B=0 I $E($P(^PSRX(X,0),U,1))="X" D
...S A=0 F S A=$O(^PSRX(X,"A",A)) Q:A'=+A!(B) D
....I $P(^PSRX(X,"A",A,0),U,5)["E-Prescribe" S B=1
....I $P(^PSRX(X,"A",A,0),U,5)["eRx" S B=1
...S $P(APCMRXS(R),U,2)=$P(APCMRXS(R),U,2)+B,$P(^TMP($J,"PATSRX",R,PAT),U,2)=$P($G(^TMP($J,"PATSRX",R,PAT)),U,2)+B I B S ^TMP($J,"PATSRX",R,PAT,"ELEC",$P(^PSRX(X,0),U,1))=""
Q
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
Q:$$AGE^AUPNPAT(DFN,APCMBDAT)<2
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(APCM2ON(APCMP,APCMTIME)) S F=$P(^APCM13OB(APCMIC,0),U,11) D S^APCM13E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not see anyone over 2 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
..D VS1
.Q
I APCMRPTT=2 D
.S APCMP=APCMFAC
.Q:'$D(APCMHVTP(APCMP))
.D VS1
.Q
Q
VS1 ;set denominator value into field
S F=$P(^APCM13OB(APCMIC,0),U,8) ;denom field for this measure
D S^APCM13E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
;numerator?
S APCMEP=$$HASVS(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT)
S APCMVALU=APCMVALU_"|||"_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)
S F=$P(^APCM13OB(APCMIC,0),U,9)
D S^APCM13E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
D SETLIST^APCM13E1
Q
HASVS(P,BD,ED) ;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 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
Q:$$AGE^AUPNPAT(DFN,APCMBDAT)<13
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(APCM13ON(APCMP,APCMTIME)) S F=$P(^APCM13OB(APCMIC,0),U,11) D S^APCM13E1(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:'$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(APCM13ON(APCMP,APCMTIME)) S F=$P(^APCM13OB(APCMIC,0),U,11) D S^APCM13E1(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:'$D(APCMHVTP(APCMP))
.D ST1
.Q
Q
ST1 ;set denominator value into field
S F=$P(^APCM13OB(APCMIC,0),U,8) ;denom field for this measure
D S^APCM13E1(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(^APCM13OB(APCMIC,0),U,9)
D S^APCM13E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
D SETLIST^APCM13E1
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")
I HF]"" Q 1_U_$$DATE^APCM1UTL($P(HF,U))_" "_$P(HF,U,2)
Q 0
ECHI ;EP - electronic copy of HI
NEW APCMP,APCMECV
K APCMECV
S (APCMD1,APCMN1)=0
I APCMRPTT=1 S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP D
.I $D(APCMECHI(APCMP,APCMTIME)) S F=$P(^APCM13OB(APCMIC,0),U,11) D Q
..D S^APCM13E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not see anyone who requested a copy of their health information during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1) Q
.D ALLV^APCLAPIU(DFN,$$FMADD^XLFDT(APCMEDAT,-365),APCMEDAT,"APCMECV")
.S APCMHV=$$HADV^APCM13CI(DFN,APCMP,$$FMADD^XLFDT(APCMEDAT,-365),APCMEDAT,.APCMECV)
.I 'APCMHV Q ;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=$$HASECHI(DFN,APCMBDAT,$$BDB(APCMEDAT,-4)) ;"" if no requests so not in denom
.Q:APCMEP=""
.S F=$P(^APCM13OB(APCMIC,0),U,8) ;denom field for this measure
.D S^APCM13E1(APCMRPT,APCMIC,$P(APCMEP,U),APCMP,APCMRPTT,APCMTIME,F)
.;S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP)) ;IHS/CMI/LAB - PATCH 7 FIX
.S APCMVALU=$$DATE^APCM1UTL(APCMHV)
.S APCMVALU=APCMVALU_"|||"_$S($P(APCMEP,U,2):"MET: ",1:"NOT MET: ")_$P(APCMEP,U,3)_"|||"_$P(APCMEP,U,2)
.;numerator?
.S F=$P(^APCM13OB(APCMIC,0),U,9)
.D S^APCM13E1(APCMRPT,APCMIC,$P(APCMEP,U,2),APCMP,APCMRPTT,APCMTIME,F)
.D SETLIST^APCM13E1
K APCMECV
Q
HASECHI(P,BD,ED) ;EP - does patient have a ROI
;
NEW A,B,C,D,E,ROI,X,ROII
S ROI="" ;set to 1 if had a good request
S ROII="" ;set to date of reques
S D=$$FMADD^XLFDT(BD,-1)
F S D=$O(^BRNREC("AA",P,D)) Q:D'=+D!(D>ED) D
.S X=0 F S X=$O(^BRNREC("AA",P,D,X)) Q:X'=+X D
..Q:$P($G(^BRNREC(X,11)),U,1)'="E" ;check to see if the request was electronic
..S (A,B)=0 F S A=$O(^BRNREC(X,23,A)) Q:A'=+A D
...I $P($G(^BRNREC(X,23,A,0)),U,3)='"E" Q ;electronic request
...;had a request and it was disseminated electronically
...;was it disseminated within 3 business days?
...S B=$P(^BRNREC(X,23,A,0),U,2)
...I B="" S ROII=ROII_"Request date: "_$$DATE^APCM1UTL(D)_"disseminated: "_$$DATE^APCM1UTL(B)_";" Q
...I B>$$BD(D,3) S ROII=ROII_"Request date: "_$$DATE^APCM1UTL(D)_" disseminated: "_$$DATE^APCM1UTL(B)_";" Q
...S ROI=1_U_1_U_"Request Date: "_$$DATE^APCM1UTL(D)_" disseminated: "_$$DATE^APCM1UTL(B)
I $P(ROI,U,1) Q ROI
I ROII="" Q ""
Q 1_U_0_U_ROII
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(^APCM13OB(APCMIC,0),U,11) D Q
..D S^APCM13E1(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,$$BDB(APCMEDAT,-4),.APCMVSTS) ;RETURNS # OF VISIT^# THAT HAD PWH GIVEN W/IN 3 BUS DAYS
.S F=$P(^APCM13OB(APCMIC,0),U,8) ;denom field for this measure
.D S^APCM13E1(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/PWH: "_$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(^APCM13OB(APCMIC,0),U,9)
.D S^APCM13E1(APCMRPT,APCMIC,$P(APCMEP,U,2),APCMP,APCMRPTT,APCMTIME,F)
.I APCMVALU]"" D SETLIST^APCM13E1
Q
HASCS(P,R,BD,ED,VSTS) ;does patient have a SMOKING STATUS
;
NEW A,B,C,D,E,X,Y,V,PWH,J
;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
.Q:$$VD^APCLV(V)>ED
.S $P(PWH,U,1)=$P(PWH,U,1)+1
.;was there a pwh after the date of the visit up to 3 days after day of visit
.;S D=$P(^AUPNVSIT(V,0),U),D=D-.000001 ;date of visit
.S E=$$BD($$VD^APCLV(V),3)
.S A=$$FMADD^XLFDT($$VD^APCLV(V),-1),B=0
.F S A=$O(^APCHPWHL("AA",P,A)) Q:A'=+A!($P(A,".")>E)!(B) D
..S J=0 F S J=$O(^APCHPWHL("AA",P,A,J)) Q:J'=+J!(B) D
...Q:$P(^APCHPWHL(J,0),U,5)<$P(^AUPNVSIT(V,0),U,1)
...Q:$P($P(^APCHPWHL(J,0),U,5),".")>E
...S B=1
.I B S $P(PWH,U,2)=$P(PWH,U,2)+1
.S $P(PWH,U,3)=$P(PWH,U,3)_$$DATE^APCM1UTL($$VD^APCLV(V))_":"_$S(B:"PWH",1:"No PWH")_";"
Q PWH
BD(D,N) ;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=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
APCM13E4 ;IHS/CMI/LAB - IHS MU;
+1 ;;1.0;IHS MU PERFORMANCE REPORTS;**2,3**;MAR 26, 2012;Build 1
+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(^APCM13OB(APCMIC,0),U,8)
+3 DO S^APCM13E1(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(^APCM13OB(APCMIC,0),U,9)
+9 DO S^APCM13E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
+10 DO SETLIST^APCM13E1
+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 - CALCULATE EPRESCRIBING
+1 ;for each provider or for the facility count all prescriptions that meet criteria and if it is not written it meets numerator
+2 KILL ^TMP($JOB,"PATSRX")
+3 KILL APCMRXS
+4 DO TOTRX
+5 NEW APCMP,N,F
+6 SET (APCMD1,APCMN1)=0
+7 IF APCMRPTT=1
SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:1
+8 IF $DATA(APCM100R(APCMP,APCMTIME))
SET F=$PIECE(^APCM13OB(APCMIC,0),U,11)
Begin DoDot:2
+9 DO S^APCM13E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she had < 100 prescriptions issued during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)
End DoDot:2
GOTO D
+10 IF $GET(APCMADDQ("ANS",APCMIC,24,APCMP))="No"
IF $GET(APCMADDQ("ANS",APCMIC,25,APCMP))="No"
SET F=$PIECE(^APCM13OB(APCMIC,0),U,11)
Begin DoDot:2
+11 DO S^APCM13E1(APCMRPT,APCMIC,"Provider may be eligible for an exclusion on this measure as they not have an onsite pharmacy and do not have a pharmacy within 10 miles accepting electronic prescriptions.",APCMP,APCMRPTT,A
PCMTIME,F,1)
End DoDot:2
D ;set denominator value into field
+1 ;denom field for this measure
SET F=$PIECE(^APCM13OB(APCMIC,0),U,8)
+2 ;returns # of prescriptions^# not written by nature of order
SET N=$PIECE($GET(APCMRXS(APCMP)),U,1)
+3 DO S^APCM13E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)
+4 ;now set patient list for this provider
+5 SET P=0
FOR
SET P=$ORDER(^TMP($JOB,"PATSRX",APCMP,P))
IF P'=+P
QUIT
Begin DoDot:2
+6 ;Q:'$P(^TMP($J,"PATSRX",APCMP,P),U,1)
+7 IF $PIECE(^TMP($JOB,"PATSRX",APCMP,P),U,1)=$PIECE(^TMP($JOB,"PATSRX",APCMP,P),U,2)
SET APCMVALU="# Prescriptions: "_$PIECE(^TMP($JOB,"PATSRX",APCMP,P),U,1)_"|||"_" # transmitted electronically: "_+$PIECE(^TMP($JOB,"PATSRX",APCMP,P),U,2)_"|||1"
Begin DoDot:3
+8 SET DFN=P
DO SETLIST^APCM13E1
QUIT
End DoDot:3
QUIT
+9 SET S=""
SET APCMVALU="Not transmitted electronically: "
+10 FOR
SET S=$ORDER(^TMP($JOB,"PATSRX",APCMP,P,"SCRIPTS",S))
IF S=""
QUIT
Begin DoDot:3
+11 IF '$DATA(^TMP($JOB,"PATSRX",APCMP,P,"ELEC",S))
Begin DoDot:4
+12 SET APCMVALU=APCMVALU_S_";"
End DoDot:4
End DoDot:3
+13 SET DFN=P
SET APCMVALU="# of Prescriptions: "_$PIECE(^TMP($JOB,"PATSRX",APCMP,P),U,1)_" # transmitted electronically: "_+$PIECE(^TMP($JOB,"PATSRX",APCMP,P),U,2)_"|||"_APCMVALU
SET $PIECE(APCMVALU,"|||",3)=0
DO SETLIST^APCM13E1
End DoDot:2
+14 ;numerator?
+15 SET F=$PIECE(^APCM13OB(APCMIC,0),U,9)
+16 SET N=$PIECE($GET(APCMRXS(APCMP)),U,2)
+17 DO S^APCM13E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)
End DoDot:1
+18 KILL ^TMP($JOB,"PATSRX")
+19 QUIT
TOTRX ;EP - did patient have a RX in file 52 with an issue date
+1 ;between BD and ED
+2 ;SET ARRAY APCMRXS to APCMRXS(prov ien)=denom^numer
+3 NEW ID,C,Y,X,D,S,N,A,B,R,PAT,G
+4 SET C=0
SET N=0
+5 SET ID=$$FMADD^XLFDT(APCMBDAT,-1)
+6 FOR
SET ID=$ORDER(^PSRX("AC",ID))
IF ID'=+ID!(ID>APCMEDAT)
QUIT
Begin DoDot:1
+7 SET X=0
FOR
SET X=$ORDER(^PSRX("AC",ID,X))
IF X'=+X
QUIT
Begin DoDot:2
+8 SET R=$PIECE($GET(^PSRX(X,0)),U,4)
+9 IF 'R
QUIT
+10 ;I '$D(APCMPRV(R)) Q ;not a provider of interest
+11 IF '$DATA(APCMRXS(R))
SET APCMRXS(R)=""
+12 IF $PIECE($GET(^PSRX(X,"STA")),"^")=13
QUIT
+13 SET D=$PIECE(^PSRX(X,0),U,6)
+14 SET S=$PIECE($GET(^PSDRUG(D,0)),U,3)
+15 IF S[5
QUIT
+16 IF S[4
QUIT
+17 IF S[3
QUIT
+18 IF S[2
QUIT
+19 IF S[1
QUIT
+20 SET S=$PIECE($GET(^PSRX(X,3)),U,7)
+21 IF $$UP^XLFSTR(S)["ADMINISTERED IN CLINIC"
QUIT
+22 SET PAT=$PIECE(^PSRX(X,0),U,2)
+23 ;quit if demo patient
+24 IF $$DEMO^APCLUTL(PAT,$GET(APCMDEMO))
QUIT
+25 SET $PIECE(APCMRXS(R),U,1)=$PIECE(APCMRXS(R),U,1)+1
SET $PIECE(^TMP($JOB,"PATSRX",R,PAT),U,1)=$PIECE($GET(^TMP($JOB,"PATSRX",R,PAT)),U,1)+1
SET ^TMP($JOB,"PATSRX",R,PAT,"SCRIPTS",$PIECE(^PSRX(X,0),U,1))=""
+26 ;
+27 ;now check to see if it has a nature of order not equal to 1-written
+28 SET G=0
+29 IF $EXTRACT($PIECE(^PSRX(X,0),U,1))?1N
Begin DoDot:3
+30 ;order number
SET O=$PIECE($GET(^PSRX(X,"OR1")),U,2)
+31 IF O=""
QUIT
+32 SET B=$PIECE($GET(^OR(100,O,0)),U,6)
+33 IF B=""
QUIT
+34 SET A=0
SET G=0
FOR
SET A=$ORDER(^OR(100,O,8,A))
IF A'=+A!(G)
QUIT
Begin DoDot:4
+35 SET B=$PIECE($GET(^OR(100,O,8,A,0)),U,12)
+36 IF B=1
QUIT
+37 IF B=""
QUIT
+38 SET G=1
End DoDot:4
+39 ;S N=N+G
SET $PIECE(APCMRXS(R),U,2)=$PIECE(APCMRXS(R),U,2)+G
SET $PIECE(^TMP($JOB,"PATSRX",R,PAT),U,2)=$PIECE($GET(^TMP($JOB,"PATSRX",R,PAT)),U,2)+G
IF G
SET ^TMP($JOB,"PATSRX",R,PAT,"ELEC",$PIECE(^PSRX(X,0),U,1))=""
End DoDot:3
+40 SET B=0
IF $EXTRACT($PIECE(^PSRX(X,0),U,1))="X"
Begin DoDot:3
+41 SET A=0
FOR
SET A=$ORDER(^PSRX(X,"A",A))
IF A'=+A!(B)
QUIT
Begin DoDot:4
+42 IF $PIECE(^PSRX(X,"A",A,0),U,5)["E-Prescribe"
SET B=1
+43 IF $PIECE(^PSRX(X,"A",A,0),U,5)["eRx"
SET B=1
End DoDot:4
+44 SET $PIECE(APCMRXS(R),U,2)=$PIECE(APCMRXS(R),U,2)+B
SET $PIECE(^TMP($JOB,"PATSRX",R,PAT),U,2)=$PIECE($GET(^TMP($JOB,"PATSRX",R,PAT)),U,2)+B
IF B
SET ^TMP($JOB,"PATSRX",R,PAT,"ELEC",$PIECE(^PSRX(X,0),U,1))=""
End DoDot:3
End DoDot:2
End DoDot:1
+45 QUIT
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 IF $$AGE^AUPNPAT(DFN,APCMBDAT)<2
QUIT
+5 NEW APCMP
+6 SET (APCMD1,APCMN1)=0
+7 IF APCMRPTT=1
Begin DoDot:1
+8 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:2
+9 IF $DATA(APCM2ON(APCMP,APCMTIME))
SET F=$PIECE(^APCM13OB(APCMIC,0),U,11)
DO S^APCM13E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not see anyone over 2 during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)
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 VS1
End DoDot:2
+12 QUIT
End DoDot:1
QUIT
+13 IF APCMRPTT=2
Begin DoDot:1
+14 SET APCMP=APCMFAC
+15 IF '$DATA(APCMHVTP(APCMP))
QUIT
+16 DO VS1
+17 QUIT
End DoDot:1
+18 QUIT
VS1 ;set denominator value into field
+1 ;denom field for this measure
SET F=$PIECE(^APCM13OB(APCMIC,0),U,8)
+2 DO S^APCM13E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)
+3 SET APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))
+4 ;numerator?
+5 SET APCMEP=$$HASVS(DFN,$$DOB^AUPNPAT(DFN),APCMEDAT)
+6 SET APCMVALU=APCMVALU_"|||"_$PIECE(APCMEP,U,2)_"|||"_$PIECE(APCMEP,U,1)
+7 SET F=$PIECE(^APCM13OB(APCMIC,0),U,9)
+8 DO S^APCM13E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
+9 DO SETLIST^APCM13E1
+10 QUIT
HASVS(P,BD,ED) ;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 HT]""
IF WT]""
IF BP]""
QUIT 1_U_"Has: HT, WT, BP"
+9 QUIT 0_U_"Has: "_$SELECT(HT]"":"HT ",1:"")_$SELECT(WT]"":"WT ",1:"")_$SELECT(BP]"":"BP ",1:"")
+10 ;
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 IF $$AGE^AUPNPAT(DFN,APCMBDAT)<13
QUIT
+5 NEW APCMP
+6 SET (APCMD1,APCMN1)=0
+7 IF APCMRPTT=1
Begin DoDot:1
+8 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:2
+9 IF $DATA(APCM13ON(APCMP,APCMTIME))
SET F=$PIECE(^APCM13OB(APCMIC,0),U,11)
DO S^APCM13E1(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
+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(APCM13ON(APCMP,APCMTIME))
SET F=$PIECE(^APCM13OB(APCMIC,0),U,11)
DO S^APCM13E1(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 '$DATA(APCMHVTP(APCMP))
QUIT
+16 DO ST1
+17 QUIT
End DoDot:1
+18 QUIT
ST1 ;set denominator value into field
+1 ;denom field for this measure
SET F=$PIECE(^APCM13OB(APCMIC,0),U,8)
+2 DO S^APCM13E1(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(^APCM13OB(APCMIC,0),U,9)
+8 DO S^APCM13E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)
+9 DO SETLIST^APCM13E1
+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 SET HF=$$LASTHF^APCLAPIU(P,"TOBACCO (SMOKING)",,ED,"A")
+6 IF HF]""
QUIT 1_U_$$DATE^APCM1UTL($PIECE(HF,U))_" "_$PIECE(HF,U,2)
+7 QUIT 0
ECHI ;EP - electronic copy of HI
+1 NEW APCMP,APCMECV
+2 KILL APCMECV
+3 SET (APCMD1,APCMN1)=0
+4 IF APCMRPTT=1
SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:1
+5 IF $DATA(APCMECHI(APCMP,APCMTIME))
SET F=$PIECE(^APCM13OB(APCMIC,0),U,11)
Begin DoDot:2
+6 DO S^APCM13E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not see anyone who requested a copy of their health information during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)
QUIT
End DoDot:2
QUIT
+7 DO ALLV^APCLAPIU(DFN,$$FMADD^XLFDT(APCMEDAT,-365),APCMEDAT,"APCMECV")
+8 SET APCMHV=$$HADV^APCM13CI(DFN,APCMP,$$FMADD^XLFDT(APCMEDAT,-365),APCMEDAT,.APCMECV)
+9 ;no visits to this provider for this patient so don't bother, the patient is not in the denominator
IF 'APCMHV
QUIT
+10 ;set denominator value into field
+11 ;"" if no requests so not in denom
SET APCMEP=$$HASECHI(DFN,APCMBDAT,$$BDB(APCMEDAT,-4))
+12 IF APCMEP=""
QUIT
+13 ;denom field for this measure
SET F=$PIECE(^APCM13OB(APCMIC,0),U,8)
+14 DO S^APCM13E1(APCMRPT,APCMIC,$PIECE(APCMEP,U),APCMP,APCMRPTT,APCMTIME,F)
+15 ;S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP)) ;IHS/CMI/LAB - PATCH 7 FIX
+16 SET APCMVALU=$$DATE^APCM1UTL(APCMHV)
+17 SET APCMVALU=APCMVALU_"|||"_$SELECT($PIECE(APCMEP,U,2):"MET: ",1:"NOT MET: ")_$PIECE(APCMEP,U,3)_"|||"_$PIECE(APCMEP,U,2)
+18 ;numerator?
+19 SET F=$PIECE(^APCM13OB(APCMIC,0),U,9)
+20 DO S^APCM13E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,2),APCMP,APCMRPTT,APCMTIME,F)
+21 DO SETLIST^APCM13E1
End DoDot:1
+22 KILL APCMECV
+23 QUIT
HASECHI(P,BD,ED) ;EP - does patient have a ROI
+1 ;
+2 NEW A,B,C,D,E,ROI,X,ROII
+3 ;set to 1 if had a good request
SET ROI=""
+4 ;set to date of reques
SET ROII=""
+5 SET D=$$FMADD^XLFDT(BD,-1)
+6 FOR
SET D=$ORDER(^BRNREC("AA",P,D))
IF D'=+D!(D>ED)
QUIT
Begin DoDot:1
+7 SET X=0
FOR
SET X=$ORDER(^BRNREC("AA",P,D,X))
IF X'=+X
QUIT
Begin DoDot:2
+8 ;check to see if the request was electronic
IF $PIECE($GET(^BRNREC(X,11)),U,1)'="E"
QUIT
+9 SET (A,B)=0
FOR
SET A=$ORDER(^BRNREC(X,23,A))
IF A'=+A
QUIT
Begin DoDot:3
+10 ;electronic request
IF $PIECE($GET(^BRNREC(X,23,A,0)),U,3)='"E"
QUIT
+11 ;had a request and it was disseminated electronically
+12 ;was it disseminated within 3 business days?
+13 SET B=$PIECE(^BRNREC(X,23,A,0),U,2)
+14 IF B=""
SET ROII=ROII_"Request date: "_$$DATE^APCM1UTL(D)_"disseminated: "_$$DATE^APCM1UTL(B)_";"
QUIT
+15 IF B>$$BD(D,3)
SET ROII=ROII_"Request date: "_$$DATE^APCM1UTL(D)_" disseminated: "_$$DATE^APCM1UTL(B)_";"
QUIT
+16 SET ROI=1_U_1_U_"Request Date: "_$$DATE^APCM1UTL(D)_" disseminated: "_$$DATE^APCM1UTL(B)
End DoDot:3
End DoDot:2
End DoDot:1
+17 IF $PIECE(ROI,U,1)
QUIT ROI
+18 IF ROII=""
QUIT ""
+19 QUIT 1_U_0_U_ROII
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(^APCM13OB(APCMIC,0),U,11)
Begin DoDot:2
+5 DO S^APCM13E1(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 PWH GIVEN W/IN 3 BUS DAYS
SET APCMEP=$$HASCS(DFN,APCMP,APCMBDAT,$$BDB(APCMEDAT,-4),.APCMVSTS)
+9 ;denom field for this measure
SET F=$PIECE(^APCM13OB(APCMIC,0),U,8)
+10 DO S^APCM13E1(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/PWH: "_$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(^APCM13OB(APCMIC,0),U,9)
+15 DO S^APCM13E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,2),APCMP,APCMRPTT,APCMTIME,F)
+16 IF APCMVALU]""
DO SETLIST^APCM13E1
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
+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 IF $$VD^APCLV(V)>ED
QUIT
+24 SET $PIECE(PWH,U,1)=$PIECE(PWH,U,1)+1
+25 ;was there a pwh after the date of the visit up to 3 days after day of visit
+26 ;S D=$P(^AUPNVSIT(V,0),U),D=D-.000001 ;date of visit
+27 SET E=$$BD($$VD^APCLV(V),3)
+28 SET A=$$FMADD^XLFDT($$VD^APCLV(V),-1)
SET B=0
+29 FOR
SET A=$ORDER(^APCHPWHL("AA",P,A))
IF A'=+A!($PIECE(A,".")>E)!(B)
QUIT
Begin DoDot:2
+30 SET J=0
FOR
SET J=$ORDER(^APCHPWHL("AA",P,A,J))
IF J'=+J!(B)
QUIT
Begin DoDot:3
+31 IF $PIECE(^APCHPWHL(J,0),U,5)<$PIECE(^AUPNVSIT(V,0),U,1)
QUIT
+32 IF $PIECE($PIECE(^APCHPWHL(J,0),U,5),".")>E
QUIT
+33 SET B=1
End DoDot:3
End DoDot:2
+34 IF B
SET $PIECE(PWH,U,2)=$PIECE(PWH,U,2)+1
+35 SET $PIECE(PWH,U,3)=$PIECE(PWH,U,3)_$$DATE^APCM1UTL($$VD^APCLV(V))_":"_$SELECT(B:"PWH",1:"No PWH")_";"
End DoDot:1
+36 QUIT PWH
BD(D,N) ;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=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
