BGP9REF.m

BGP9REF ; IHS/CMI/LAB - measure AHR.A ;

 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 ;

 ;

BETA(P,BDATE,EDATE) ;EP - BETA BLOCKER REFUSAL

 ;P - patient DFN

 ;BDATE - beginning date to search for REFUSAL

 ;EDATE - ending date of search for REFUSAL

 ;bdate - default is edate-365

 ;edate - default is DT

 ;

 ;return value = piece 1 = 1 for yes, refusal found

 ;                         BLANK for no, refusal not found

 ;               piece 2 = text of what was found

 ;logic:

 ;refusal of any med in BGP HEDIS BETA BLOCKER MEDS taxonomy

 ;

 G BETA^BGP9REF1

 ;

ASA(P,BDATE,EDATE) ;EP - ASPIRIN REFUSAL

 ;P - patient DFN

 ;BDATE - beginning date to search for REFUSAL

 ;EDATE - ending date of search for REFUSAL

 ;bdate - default is edate-365

 ;edate - default is DT

 ;

 ;return value = piece 1 = 1 for yes, refusal found

 ;                         BLANK for no, refusal not found

 ;               piece 2 = text of what was found

 ;logic:

 ;refusal of any med in DM AUDIT ASPIRIN DRUGS or BGP ANTI-PLATELET DRUGS taxonomies

 ;

 G ASA^BGP9REF1

 ;

ACEI(P,BDATE,EDATE) ;EP - ACEI REFUSAL

 ;P - patient DFN

 ;BDATE - beginning date to search for REFUSAL

 ;EDATE - ending date of search for REFUSAL

 ;bdate - default is edate-365

 ;edate - default is DT

 ;

 ;return value = piece 1 = 1 for yes, refusal found

 ;                         BLANK for no, refusal not found

 ;               piece 2 = text of what was found

 ;logic:

 ;refusal of any med in BGP HEDIS ACEI MEDS taxonomy

 ;

 G ACEI^BGP9REF1

 ;

ARB(P,BDATE,EDATE) ;EP - ARB REFUSAL

 ;P - patient DFN

 ;BDATE - beginning date to search for REFUSAL

 ;EDATE - ending date of search for REFUSAL

 ;bdate - default is edate-365

 ;edate - default is DT

 ;

 ;return value = piece 1 = 1 for yes, refusal found

 ;                         BLANK for no, refusal not found

 ;               piece 2 = text of what was found

 ;logic:

 ;refusal of any med in BGP HEDIS ARB MEDS

 ;

 G ARB^BGP9REF1

 ;

STATIN(P,BDATE,EDATE) ;EP - STATIN REFUSAL

 ;P - patient DFN

 ;BDATE - beginning date to search for REFUSAL

 ;EDATE - ending date of search for REFUSAL

 ;bdate - default is edate-365

 ;edate - default is DT

 ;

 ;return value = piece 1 = 1 for yes, refusal found

 ;                         BLANK for no, refusal not found

 ;               piece 2 = text of what was found

 ;logic:

 ;refusal of any med in BGP HEDIS STATIN MEDS

 ;

 G STATIN^BGP9REF1

 ;

BGP9REF   ; IHS/CMI/LAB - measure AHR.A ;

 +1       ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 +2       ;

 +3       ;

BETA(P,BDATE,EDATE) ;EP - BETA BLOCKER REFUSAL

 +1       ;P - patient DFN

 +2       ;BDATE - beginning date to search for REFUSAL

 +3       ;EDATE - ending date of search for REFUSAL

 +4       ;bdate - default is edate-365

 +5       ;edate - default is DT

 +6       ;

 +7       ;return value = piece 1 = 1 for yes, refusal found

 +8       ;                         BLANK for no, refusal not found

 +9       ;               piece 2 = text of what was found

 +10      ;logic:

 +11      ;refusal of any med in BGP HEDIS BETA BLOCKER MEDS taxonomy

 +12      ;

 +13       GOTO BETA^BGP9REF1

 +14      ;

ASA(P,BDATE,EDATE) ;EP - ASPIRIN REFUSAL

 +1       ;P - patient DFN

 +2       ;BDATE - beginning date to search for REFUSAL

 +3       ;EDATE - ending date of search for REFUSAL

 +4       ;bdate - default is edate-365

 +5       ;edate - default is DT

 +6       ;

 +7       ;return value = piece 1 = 1 for yes, refusal found

 +8       ;                         BLANK for no, refusal not found

 +9       ;               piece 2 = text of what was found

 +10      ;logic:

 +11      ;refusal of any med in DM AUDIT ASPIRIN DRUGS or BGP ANTI-PLATELET DRUGS taxonomies

 +12      ;

 +13       GOTO ASA^BGP9REF1

 +14      ;

ACEI(P,BDATE,EDATE) ;EP - ACEI REFUSAL

 +1       ;P - patient DFN

 +2       ;BDATE - beginning date to search for REFUSAL

 +3       ;EDATE - ending date of search for REFUSAL

 +4       ;bdate - default is edate-365

 +5       ;edate - default is DT

 +6       ;

 +7       ;return value = piece 1 = 1 for yes, refusal found

 +8       ;                         BLANK for no, refusal not found

 +9       ;               piece 2 = text of what was found

 +10      ;logic:

 +11      ;refusal of any med in BGP HEDIS ACEI MEDS taxonomy

 +12      ;

 +13       GOTO ACEI^BGP9REF1

 +14      ;

ARB(P,BDATE,EDATE) ;EP - ARB REFUSAL

 +1       ;P - patient DFN

 +2       ;BDATE - beginning date to search for REFUSAL

 +3       ;EDATE - ending date of search for REFUSAL

 +4       ;bdate - default is edate-365

 +5       ;edate - default is DT

 +6       ;

 +7       ;return value = piece 1 = 1 for yes, refusal found

 +8       ;                         BLANK for no, refusal not found

 +9       ;               piece 2 = text of what was found

 +10      ;logic:

 +11      ;refusal of any med in BGP HEDIS ARB MEDS

 +12      ;

 +13       GOTO ARB^BGP9REF1

 +14      ;

STATIN(P,BDATE,EDATE) ;EP - STATIN REFUSAL

 +1       ;P - patient DFN

 +2       ;BDATE - beginning date to search for REFUSAL

 +3       ;EDATE - ending date of search for REFUSAL

 +4       ;bdate - default is edate-365

 +5       ;edate - default is DT

 +6       ;

 +7       ;return value = piece 1 = 1 for yes, refusal found

 +8       ;                         BLANK for no, refusal not found

 +9       ;               piece 2 = text of what was found

 +10      ;logic:

 +11      ;refusal of any med in BGP HEDIS STATIN MEDS

 +12      ;

 +13       GOTO STATIN^BGP9REF1

 +14      ;