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

BGP2CON.m

Go to the documentation of this file. 
BGP2CON ; IHS/CMI/LAB - measure AHR.A ;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;

 ;

BETA(P,BDATE,EDATE,NMIB,NMIE) ;EP - BETA BLOCKER CONTRAINDICATION

 ;P - patient DFN

 ;BDATE - beginning date to search for contraindication

 ;EDATE - ending date of search for contraindication

 ;NMIB - beginning date to search for NMI Refusal (not medically indicated)

 ;NMIE - ending date to search for NMI Refusal (not medically indicated)

 ;

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

 ;                         BLANK for no, contraindication not found

 ;               piece 2 = text of what was found

 ;logic:

 ;2 different asthma diagnoses on 2 different dates between bdate and edate

 ;Hypotension dx between bdate and edate

 ;heart block >1 degree diagnosis between bdate and edate

 ;sinus bradycardia 1 dx between bdate and edate

 ;COPD - 2 diagnoses between bdate and edate on different dates

 ;NMI Refusal documented for beta blocker between NMIB and NMIE

 ;CPT G8011 between NMIB and NMIE

 ;

 G BETA^BGP2CON1

 ;

 ;

ASA(P,BDATE,EDATE,NMIB,NMIE) ;EP - does patient have an aspirin CONTRAINDICATION

 ;P - PATIENT DFN

 ;BDATE - BEGINNING DATE TO LOOK FOR DATA

 ;EDATE - ENDING DATE TO LOOK FOR DATA

 ;NMIB - nmi beginning date

 ;NMIE - ending date to look for nmi

 ;

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

 ;                         blank for no, contraindication not found

 ;               piece 2 = text of what was found

 ;

 ;Non-discontinued Prescription for warfarin between bdate and edate.

 ;Diagnosis 459.0 - Hemorrage DX EVER before EDATE

 ;NMI Refusal between NMIB and NMIE

 ;CPT G8008 between NMIB and NMIE

 ;

 G ASA^BGP2CON1

 ;

ACEI(P,BDATE,EDATE,NMIB,NMIE) ;EP does patient have an ACEI contraidication

 ;P - patient DFN

 ;BDATE - beginning date to search for contraindication

 ;EDATE - ending date of search for contraindication

 ;NMIBD - beginning date to search for NMI Refusal (not medically indicated)

 ;NMIED - ending date to search for NMI Refusal (not medically indicated)

 ;

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

 ;                         blank for no, contraindication not found

 ;               piece 2 = text of what was found

 ;LOGIC:

 ;diagnosis between BDATE and EDATE in BGP CMS AORTIC STENOSIS DXS

 ;NMI Refusal for drug in BGP HEDIS ACEI MEDS taxonomy between NMIB and NMIE

 ;NMI Refusal for drug in BGP HEDIS ARB MEDS taxonomy between NMIB and NMIE

 G ACEI^BGP2CON1

 ;

STATIN(P,BDATE,EDATE,NMIB,NMIE) ;EP does patient have an STATIN contraidication

 ;P - patient DFN

 ;BDATE - beginning date to search for contraindication

 ;EDATE - ending date of search for contraindication

 ;NMIBD - beginning date to search for NMI Refusal (not medically indicated)

 ;NMIED - ending date to search for NMI Refusal (not medically indicated)

 ;

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

 ;                         blank for no, contraindication not found

 ;               piece 2 = text of what was found

 ;LOGIC:

 ;PREGNANCY diagnosis between BDATE and EDATE 

 ;NMI Refusal for drug in BGP HEDIS STATIN MEDS taxonomy between NMIB and NMIE

 ;BREASTFEEDING education between BDATE and EDATE

 ;BREASTFEEDING POV between BDATE and EDATE

 ;alchohol Hepatitis pov between BDATE and EDATE

 ;

 G STATIN^BGP2CON1

 ;