BGP8ALG.m

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

 ;;18.1;IHS CLINICAL REPORTING;;MAY 25, 2018;Build 66

 ;

 ;

BETA(P,EDATE) ;EP - BETA BLOCKER ALLERGY/ADR

 ;P - patient DFN

 ;EDATE - ending date of search for ALLERGY/ADR

 ;

 ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 ;                         blank for no, ALLERGY/ADR not found

 ;               piece 2 = text of what was found

 ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of BETA BLOCK,

 ;       BBLOCK or B BLOCK

 ;       any problem list entry of 995.0-995.3 or V14.8 with

 ;       a narrative of BETA BLOCK, BBLOCK or B BLOCK

 ;       any pov 995.0-995.3 with ECODE E942.0

 ;       allergy tracking entry containing BETA BLOCK

 ;

 G BETA^BGP8ALG1

 ;

 ;

 ;

ASA(P,EDATE) ;does patient have an aspirin ALLERGY/ADR

 ;P - PATIENT DFN

 ;EDATE - ENDING DATE TO LOOK FOR DATA

 ;

 ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 ;                         blank for no, ALLERGY/ADR not found

 ;               piece 2 = text of what was found

 ;

 ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ASPIRIN or ASA

 ;       any problem list entry of 995.0-995.3 or V14.8 with

 ;       a narrative of ASPIRIN or ASA

 ;       any pov 995.0-995.3 with ecode E935.3

 ;       allergy tracking entry containing ASPIRIN or ASA

 ;

 ;

 G ASA^BGP8ALG1

 ;

ACEI(P,EDATE) ;EP does patient have an ACEI ALLERGY/ADR

 ;P - patient DFN

 ;EDATE - ending date of search for ALLERGY/ADR

 ;

 ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 ;                         BLANK for no, ALLERGY/ADR not found

 ;               piece 2 = text of what was found

 ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ACEI or ACE INHIBITOR

 ;       any problem list entry of 995.0-995.3 or V14.8 with

 ;       a narrative of ASPIRIN or ASA

 ;       any pov 995.0-995.3 with ecode E942.6

 ;       allergy tracking entry containing ACE I or ACEI

 ;

 G ACEI^BGP8ALG1

 ;

ARB(P,EDATE) ;EP does patient have an ARB ALLERGY/ADR

 ;P - patient DFN

 ;EDATE - ending date of search for ALLERGY/ADR

 ;

 ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 ;                         BLANK for no, ALLERGY/ADR not found

 ;               piece 2 = text of what was found

 ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ARB or ANGIOTENSIN RECEPTOR BLOCKER

 ;       any problem list entry of 995.0-995.3 or V14.8 with

 ;       a narrative of ASPIRIN or ASA

 ;       any pov 995.0-995.3 with ecode E942.6

 ;       allergy tracking entry containing ARB or ANGIOTENSIN RECEPTOR BLOCKER

 ;

 G ARB^BGP8ALG1

 ;

STATIN(P,BDATE,EDATE) ;EP does patient have an STATIN ALLERGY/ADR

 ;P - patient DFN

 ;

 ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 ;                         blank for no, ALLERGY/ADR not found

 ;               piece 2 = text of what was found

 ;LOGIC:

 ;       ANY OF THE FOLLOWING DOCUMENTED EVER BEFORE EDATE

 ;       any pov 995.0-995.3 or V14.8 with a narrative of STATIN or STATINS

 ;       any problem list entry of 995.0-995.3 or V14.8 with

 ;       a narrative of STATIN or STATINS

 ;       any pov 995.0-995.3 with ecode E942.9

 ;       allergy tracking entry containing STATIN or STATINS

 ;

 ;       ANY OF THE FOLLOWING DOCUMENTED BETWEEN BDATE AND EDATE

 ;       ALT and/or AST > 3x upper limit of normal on 2 or more consecutive

 ;       visits between bdate and edate

 ;       creatine kinase levels >10x ULN or CK>10,000 IU/L between bdate and edate

 ;       pov in BGP MYOPATHY/MYALGIA taxonomy between BDATE and EDATE

 ;

 G STATIN^BGP8ALG2

 ;

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

 +1       ;;18.1;IHS CLINICAL REPORTING;;MAY 25, 2018;Build 66

 +2       ;

 +3       ;

BETA(P,EDATE) ;EP - BETA BLOCKER ALLERGY/ADR

 +1       ;P - patient DFN

 +2       ;EDATE - ending date of search for ALLERGY/ADR

 +3       ;

 +4       ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 +5       ;                         blank for no, ALLERGY/ADR not found

 +6       ;               piece 2 = text of what was found

 +7       ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of BETA BLOCK,

 +8       ;       BBLOCK or B BLOCK

 +9       ;       any problem list entry of 995.0-995.3 or V14.8 with

 +10      ;       a narrative of BETA BLOCK, BBLOCK or B BLOCK

 +11      ;       any pov 995.0-995.3 with ECODE E942.0

 +12      ;       allergy tracking entry containing BETA BLOCK

 +13      ;

 +14       GOTO BETA^BGP8ALG1

 +15      ;

 +16      ;

 +17      ;

ASA(P,EDATE) ;does patient have an aspirin ALLERGY/ADR

 +1       ;P - PATIENT DFN

 +2       ;EDATE - ENDING DATE TO LOOK FOR DATA

 +3       ;

 +4       ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 +5       ;                         blank for no, ALLERGY/ADR not found

 +6       ;               piece 2 = text of what was found

 +7       ;

 +8       ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ASPIRIN or ASA

 +9       ;       any problem list entry of 995.0-995.3 or V14.8 with

 +10      ;       a narrative of ASPIRIN or ASA

 +11      ;       any pov 995.0-995.3 with ecode E935.3

 +12      ;       allergy tracking entry containing ASPIRIN or ASA

 +13      ;

 +14      ;

 +15       GOTO ASA^BGP8ALG1

 +16      ;

ACEI(P,EDATE) ;EP does patient have an ACEI ALLERGY/ADR

 +1       ;P - patient DFN

 +2       ;EDATE - ending date of search for ALLERGY/ADR

 +3       ;

 +4       ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 +5       ;                         BLANK for no, ALLERGY/ADR not found

 +6       ;               piece 2 = text of what was found

 +7       ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ACEI or ACE INHIBITOR

 +8       ;       any problem list entry of 995.0-995.3 or V14.8 with

 +9       ;       a narrative of ASPIRIN or ASA

 +10      ;       any pov 995.0-995.3 with ecode E942.6

 +11      ;       allergy tracking entry containing ACE I or ACEI

 +12      ;

 +13       GOTO ACEI^BGP8ALG1

 +14      ;

ARB(P,EDATE) ;EP does patient have an ARB ALLERGY/ADR

 +1       ;P - patient DFN

 +2       ;EDATE - ending date of search for ALLERGY/ADR

 +3       ;

 +4       ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 +5       ;                         BLANK for no, ALLERGY/ADR not found

 +6       ;               piece 2 = text of what was found

 +7       ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ARB or ANGIOTENSIN RECEPTOR BLOCKER

 +8       ;       any problem list entry of 995.0-995.3 or V14.8 with

 +9       ;       a narrative of ASPIRIN or ASA

 +10      ;       any pov 995.0-995.3 with ecode E942.6

 +11      ;       allergy tracking entry containing ARB or ANGIOTENSIN RECEPTOR BLOCKER

 +12      ;

 +13       GOTO ARB^BGP8ALG1

 +14      ;

STATIN(P,BDATE,EDATE) ;EP does patient have an STATIN ALLERGY/ADR

 +1       ;P - patient DFN

 +2       ;

 +3       ;return value = piece 1 = 1 for yes, ALLERGY/ADR found

 +4       ;                         blank for no, ALLERGY/ADR not found

 +5       ;               piece 2 = text of what was found

 +6       ;LOGIC:

 +7       ;       ANY OF THE FOLLOWING DOCUMENTED EVER BEFORE EDATE

 +8       ;       any pov 995.0-995.3 or V14.8 with a narrative of STATIN or STATINS

 +9       ;       any problem list entry of 995.0-995.3 or V14.8 with

 +10      ;       a narrative of STATIN or STATINS

 +11      ;       any pov 995.0-995.3 with ecode E942.9

 +12      ;       allergy tracking entry containing STATIN or STATINS

 +13      ;

 +14      ;       ANY OF THE FOLLOWING DOCUMENTED BETWEEN BDATE AND EDATE

 +15      ;       ALT and/or AST > 3x upper limit of normal on 2 or more consecutive

 +16      ;       visits between bdate and edate

 +17      ;       creatine kinase levels >10x ULN or CK>10,000 IU/L between bdate and edate

 +18      ;       pov in BGP MYOPATHY/MYALGIA taxonomy between BDATE and EDATE

 +19      ;

 +20       GOTO STATIN^BGP8ALG2

 +21      ;