Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP8ALG

BGP8ALG.m

Go to the documentation of this file.
  1. BGP8ALG ; IHS/CMI/LAB - measure AHR.A ;
  1. ;;18.1;IHS CLINICAL REPORTING;;MAY 25, 2018;Build 66
  1. ;
  1. ;
  1. BETA(P,EDATE) ;EP - BETA BLOCKER ALLERGY/ADR
  1. ;P - patient DFN
  1. ;EDATE - ending date of search for ALLERGY/ADR
  1. ;
  1. ;return value = piece 1 = 1 for yes, ALLERGY/ADR found
  1. ; blank for no, ALLERGY/ADR not found
  1. ; piece 2 = text of what was found
  1. ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of BETA BLOCK,
  1. ; BBLOCK or B BLOCK
  1. ; any problem list entry of 995.0-995.3 or V14.8 with
  1. ; a narrative of BETA BLOCK, BBLOCK or B BLOCK
  1. ; any pov 995.0-995.3 with ECODE E942.0
  1. ; allergy tracking entry containing BETA BLOCK
  1. ;
  1. G BETA^BGP8ALG1
  1. ;
  1. ;
  1. ;
  1. ASA(P,EDATE) ;does patient have an aspirin ALLERGY/ADR
  1. ;P - PATIENT DFN
  1. ;EDATE - ENDING DATE TO LOOK FOR DATA
  1. ;
  1. ;return value = piece 1 = 1 for yes, ALLERGY/ADR found
  1. ; blank for no, ALLERGY/ADR not found
  1. ; piece 2 = text of what was found
  1. ;
  1. ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ASPIRIN or ASA
  1. ; any problem list entry of 995.0-995.3 or V14.8 with
  1. ; a narrative of ASPIRIN or ASA
  1. ; any pov 995.0-995.3 with ecode E935.3
  1. ; allergy tracking entry containing ASPIRIN or ASA
  1. ;
  1. ;
  1. G ASA^BGP8ALG1
  1. ;
  1. ACEI(P,EDATE) ;EP does patient have an ACEI ALLERGY/ADR
  1. ;P - patient DFN
  1. ;EDATE - ending date of search for ALLERGY/ADR
  1. ;
  1. ;return value = piece 1 = 1 for yes, ALLERGY/ADR found
  1. ; BLANK for no, ALLERGY/ADR not found
  1. ; piece 2 = text of what was found
  1. ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ACEI or ACE INHIBITOR
  1. ; any problem list entry of 995.0-995.3 or V14.8 with
  1. ; a narrative of ASPIRIN or ASA
  1. ; any pov 995.0-995.3 with ecode E942.6
  1. ; allergy tracking entry containing ACE I or ACEI
  1. ;
  1. G ACEI^BGP8ALG1
  1. ;
  1. ARB(P,EDATE) ;EP does patient have an ARB ALLERGY/ADR
  1. ;P - patient DFN
  1. ;EDATE - ending date of search for ALLERGY/ADR
  1. ;
  1. ;return value = piece 1 = 1 for yes, ALLERGY/ADR found
  1. ; BLANK for no, ALLERGY/ADR not found
  1. ; piece 2 = text of what was found
  1. ;Logic: any pov 995.0-995.3 or V14.8 with a narrative of ARB or ANGIOTENSIN RECEPTOR BLOCKER
  1. ; any problem list entry of 995.0-995.3 or V14.8 with
  1. ; a narrative of ASPIRIN or ASA
  1. ; any pov 995.0-995.3 with ecode E942.6
  1. ; allergy tracking entry containing ARB or ANGIOTENSIN RECEPTOR BLOCKER
  1. ;
  1. G ARB^BGP8ALG1
  1. ;
  1. STATIN(P,BDATE,EDATE) ;EP does patient have an STATIN ALLERGY/ADR
  1. ;P - patient DFN
  1. ;
  1. ;return value = piece 1 = 1 for yes, ALLERGY/ADR found
  1. ; blank for no, ALLERGY/ADR not found
  1. ; piece 2 = text of what was found
  1. ;LOGIC:
  1. ; ANY OF THE FOLLOWING DOCUMENTED EVER BEFORE EDATE
  1. ; any pov 995.0-995.3 or V14.8 with a narrative of STATIN or STATINS
  1. ; any problem list entry of 995.0-995.3 or V14.8 with
  1. ; a narrative of STATIN or STATINS
  1. ; any pov 995.0-995.3 with ecode E942.9
  1. ; allergy tracking entry containing STATIN or STATINS
  1. ;
  1. ; ANY OF THE FOLLOWING DOCUMENTED BETWEEN BDATE AND EDATE
  1. ; ALT and/or AST > 3x upper limit of normal on 2 or more consecutive
  1. ; visits between bdate and edate
  1. ; creatine kinase levels >10x ULN or CK>10,000 IU/L between bdate and edate
  1. ; pov in BGP MYOPATHY/MYALGIA taxonomy between BDATE and EDATE
  1. ;
  1. G STATIN^BGP8ALG2
  1. ;