BGP1ALG1 ; IHS/CMI/LAB - measure AHR.A ;
Source file <BGP1ALG1.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS GPRA Information System | 2 | $$LOINC^BGP1D2 $$DATE^BGP1UTL | 
| Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR | 
| DRG Grouper | 1 | $$ICDDX^ICDCODE | 
| IHS Patient | 1 | $$DOB^AUPNPAT | 
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 | 
| Patient Care Component Reports | 1 | $$START1^APCLDF | 
| Taxonomy | 1 | $$ICD^ATXCHK | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ACEI | ;EP - ACE ALLERGY | |
| RESCK(Y) | ; | |
| BETA | ;EP - BETA BLOCKER CONTRAINDICATION/NMI REFUSAL | |
| ARB | ;EP - ARB ALLERGIES | |
| RESAL(Y) | ; | |
| STATIN | ;EP | |
| BETAPOV | ; | |
| ASA | ;EP does patient have an aspirin allergy documented on or before EDATE | 
| Name | Field # of Occurrence | 
|---|---|
| $$START1^APCLDF | BETAPOV+1, BETAPOV+10, ASA+8, ASA+18, ACEI+6, ACEI+15, ARB+6, ARB+15, STATIN+7, STATIN+16 , STATIN+39 | 
| $$ICD^ATXCHK | BETAPOV+22, ASA+31, ACEI+25, ARB+25, STATIN+28 | 
| $$DOB^AUPNPAT | BETAPOV+1, BETAPOV+10, ASA+8, ASA+18, ACEI+6, ACEI+15, ARB+6, ARB+15, STATIN+4, STATIN+7 , STATIN+16 | 
| $$LOINC^BGP1D2 | STATIN+53, STATIN+68 | 
| $$DATE^BGP1UTL | BETAPOV+4, BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+13, BETAPOV+22, BETAPOV+30, ASA+12, ASA+13, ASA+14 , ASA+15, ASA+22, ASA+31, ASA+38, ACEI+9, ACEI+10, ACEI+11, ACEI+12, ACEI+18, ACEI+25 , ACEI+31, ARB+9, ARB+10, ARB+11, ARB+12, ARB+18, ARB+25, ARB+31, STATIN+10, STATIN+11 , STATIN+12, STATIN+13, STATIN+19, STATIN+28, STATIN+36, STATIN+40, STATIN+50, STATIN+54 | 
| $$ICDDX^ICDCODE | BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+19, ASA+13, ASA+14, ASA+15, ASA+28, ACEI+10, ACEI+11 , ACEI+12, ACEI+22, ARB+10, ARB+11, ARB+12, ARB+22, STATIN+11, STATIN+12, STATIN+13, STATIN+25 | 
| $$VAL^XBDIQ1 | BETAPOV+3, BETAPOV+12, BETAPOV+20, ASA+11, ASA+12, ASA+13, ASA+14, ASA+15, ASA+21, ASA+22 , ASA+29, ASA+31, ACEI+8, ACEI+17, ACEI+23, ARB+8, ARB+17, ARB+23, STATIN+9, STATIN+18 , STATIN+26, STATIN+40 | 
| $$FMADD^XLFDT | STATIN+61 | 
| $$FMTE^XLFDT | BETAPOV+1, BETAPOV+10, ASA+8, ASA+18, ACEI+6, ACEI+15, ARB+6, ARB+15, STATIN+7, STATIN+16 , STATIN+39 | 
| $$UP^XLFSTR | BETAPOV+3, BETAPOV+12, BETAPOV+20, BETAPOV+29, ASA+11, ASA+21, ASA+29, ASA+37, ACEI+8, ACEI+17 , ACEI+23, ACEI+30, ARB+8, ARB+17, ARB+23, ARB+30, STATIN+9, STATIN+18, STATIN+26, STATIN+35 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ATXAX("B" | BETAPOV+17, ASA+26, ACEI+20, ARB+20, STATIN+23, STATIN+44, STATIN+57, STATIN+59 | 
| ^ATXLAB - [#9002228] | STATIN+50, STATIN+65, STATIN+66 | 
| ^ATXLAB("B" | STATIN+45, STATIN+58, STATIN+60 | 
| ^AUPNPROB - [#9000011] | BETAPOV+19, BETAPOV+21, BETAPOV+22, ASA+28, ASA+30, ASA+31, ACEI+22, ACEI+24, ACEI+25, ARB+22 , ARB+24, ARB+25, STATIN+25, STATIN+27, STATIN+28 | 
| ^AUPNPROB("AC" | BETAPOV+18, ASA+27, ACEI+21, ARB+21, STATIN+24 | 
| ^AUPNVLAB - [#9000010.09] | STATIN+49, STATIN+50, STATIN+52, STATIN+54, STATIN+64, STATIN+65, STATIN+66, STATIN+67, STATIN+69, RESCK+2 , RESCK+4 | 
| ^AUPNVLAB("AE" | STATIN+46, STATIN+47, STATIN+48, STATIN+61, STATIN+62, STATIN+63 | 
| ^AUPNVPOV - [#9000010.07] | BETAPOV+5, BETAPOV+6, BETAPOV+7, ASA+13, ASA+14, ASA+15, ACEI+10, ACEI+11, ACEI+12, ARB+10 , ARB+11, ARB+12, STATIN+11, STATIN+12, STATIN+13 | 
| ^GMR(120.8 - [#120.8] | BETAPOV+27, BETAPOV+28, BETAPOV+29, BETAPOV+30, ASA+35, ASA+36, ASA+37, ASA+38, ACEI+28, ACEI+29 , ACEI+30, ACEI+31, ARB+28, ARB+29, ARB+30, ARB+31, STATIN+33, STATIN+34, STATIN+35, STATIN+36 | 
| Name | Line Occurrences | 
|---|---|
| $$RESAL | STATIN+74, STATIN+78 | 
| $$RESCK | STATIN+50, STATIN+54 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| B | ARB+4~, STATIN+5~, STATIN+46*, STATIN+61* | 
| BD | ACEI+4~, ARB+4~ | 
| >> BDATE | STATIN+4*, STATIN+39, STATIN+46 | 
| BGPC | BETA+4~, BETA+6*, BETAPOV+4*, BETAPOV+5*, BETAPOV+6*, BETAPOV+7*, BETAPOV+9, BETAPOV+10*, BETAPOV+13*, BETAPOV+14 , BETAPOV+16*, BETAPOV+22*, BETAPOV+24, BETAPOV+26*, BETAPOV+30*, BETAPOV+31, STATIN+5~, STATIN+6*, STATIN+10*, STATIN+11* , STATIN+12*, STATIN+13*, STATIN+15, STATIN+16*, STATIN+19*, STATIN+20, STATIN+22*, STATIN+28*, STATIN+30, STATIN+32* , STATIN+36*, STATIN+37, STATIN+65*, STATIN+66*, STATIN+69* | 
| BGPC( | STATIN+65*, STATIN+66*, STATIN+69*, STATIN+73, STATIN+74, STATIN+76, STATIN+78 | 
| BGPG | BETA+4~, BETAPOV+1!, BETAPOV+10!, ASA+5~, ASA+6!, ASA+18!, ACEI+4~, ACEI+6!, ACEI+15!, ARB+4~ , ARB+6!, ARB+15!, STATIN+5~, STATIN+7!, STATIN+16!, STATIN+39!, STATIN+43*, STATIN+46, STATIN+50*, STATIN+54* , STATIN+56, STATIN+61, STATIN+72*, STATIN+73, STATIN+78*, STATIN+80 | 
| BGPG( | BETAPOV+2, BETAPOV+4, BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+11, BETAPOV+13, ASA+9, ASA+10, ASA+12 , ASA+13, ASA+14, ASA+15, ASA+19, ASA+20, ASA+22, ACEI+7, ACEI+9, ACEI+10, ACEI+11 , ACEI+12, ACEI+16, ACEI+18, ARB+7, ARB+9, ARB+10, ARB+11, ARB+12, ARB+16, ARB+18 , STATIN+8, STATIN+10, STATIN+11, STATIN+12, STATIN+13, STATIN+17, STATIN+19 | 
| BGPG(1 | STATIN+40 | 
| BGPLT | STATIN+5~, STATIN+45*, STATIN+50, STATIN+58*, STATIN+65 | 
| BGPLT2 | STATIN+5~, STATIN+60*, STATIN+66 | 
| BGPY | BETA+4~, BETAPOV+1!, STATIN+5~, STATIN+7! | 
| BGPY( | BETAPOV+4*, BETAPOV+5*, BETAPOV+6*, BETAPOV+7*, BETAPOV+9, BETAPOV+13*, BETAPOV+14, BETAPOV+22*, BETAPOV+24, BETAPOV+30* , BETAPOV+31 | 
| D | ARB+4~, STATIN+5~, STATIN+46*, STATIN+47, STATIN+48, STATIN+50, STATIN+54, STATIN+61*, STATIN+62, STATIN+63 , STATIN+65, STATIN+66, STATIN+69 | 
| DT | BETA+3, ASA+4, ACEI+3, ARB+3, STATIN+3 | 
| E | BETA+4~, BETAPOV+1*, BETAPOV+10*, ASA+5~, ASA+8*, ASA+18*, ACEI+4~, ACEI+6*, ACEI+15*, ARB+4~ , ARB+6*, ARB+15*, STATIN+5~, STATIN+7*, STATIN+16*, STATIN+39*, STATIN+46*, STATIN+61* | 
| ED | ACEI+4~, ARB+4~ | 
| >> EDATE | BETA+2*, BETA+3*, BETAPOV+1, BETAPOV+10, BETAPOV+21, BETAPOV+28, ASA+3*, ASA+4*, ASA+8, ASA+18 , ASA+30, ASA+36, ACEI+2*, ACEI+3*, ACEI+6, ACEI+15, ACEI+24, ACEI+29, ARB+2*, ARB+3* , ARB+6, ARB+15, ARB+24, ARB+29, STATIN+2*, STATIN+3*, STATIN+7, STATIN+16, STATIN+27, STATIN+34 , STATIN+39, STATIN+46, STATIN+61 | 
| G | ASA+5~, ASA+7*, ASA+9, ASA+12*, ASA+13*, ASA+14*, ASA+15*, ASA+17, ASA+19, ASA+22* , ASA+24, ASA+27, ASA+31*, ASA+33, ASA+35, ASA+38*, ASA+39, ACEI+4~, ACEI+5*, ACEI+9* , ACEI+10*, ACEI+11*, ACEI+12*, ACEI+14, ACEI+18*, ACEI+19, ACEI+25*, ACEI+27, ACEI+31*, ACEI+32 , ARB+4~, ARB+5*, ARB+9*, ARB+10*, ARB+11*, ARB+12*, ARB+14, ARB+18*, ARB+19, ARB+25* , ARB+27, ARB+31*, ARB+32 | 
| I | BETAPOV+19*, BETAPOV+22, ASA+5~, ASA+28*, ASA+31, ACEI+4~, ACEI+22*, ACEI+25, ARB+4~, ARB+22* , ARB+25, STATIN+5~, STATIN+25*, STATIN+28 | 
| >> J | STATIN+52*, STATIN+53, STATIN+67*, STATIN+68 | 
| L | STATIN+5~, STATIN+47*, STATIN+48, STATIN+62*, STATIN+63 | 
| N | BETA+4~, BETAPOV+3*, BETAPOV+4, BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+12*, BETAPOV+13, BETAPOV+20*, BETAPOV+22 , BETAPOV+29*, BETAPOV+30, ASA+5~, ASA+11*, ASA+12, ASA+21*, ASA+22, ASA+29*, ASA+31, ASA+37* , ASA+38, ACEI+4~, ACEI+8*, ACEI+9, ACEI+10, ACEI+11, ACEI+12, ACEI+17*, ACEI+18, ACEI+23* , ACEI+25, ACEI+30*, ACEI+31, ARB+4~, ARB+8*, ARB+9, ARB+10, ARB+11, ARB+12, ARB+17* , ARB+18, ARB+23*, ARB+25, ARB+30*, ARB+31, STATIN+5~, STATIN+9*, STATIN+10, STATIN+11, STATIN+12 , STATIN+13, STATIN+18*, STATIN+19, STATIN+26*, STATIN+28, STATIN+35*, STATIN+36 | 
| >> P | BETA+1, BETAPOV+1, BETAPOV+10, BETAPOV+18, BETAPOV+27, ASA+2, ASA+8, ASA+18, ASA+27, ASA+35 , ACEI+1, ACEI+6, ACEI+15, ACEI+21, ACEI+28, ARB+1, ARB+6, ARB+15, ARB+21, ARB+28 , STATIN+1, STATIN+4, STATIN+7, STATIN+16, STATIN+24, STATIN+33, STATIN+39, STATIN+46, STATIN+47, STATIN+48 , STATIN+61, STATIN+62, STATIN+63 | 
| T | BETA+4~, BETAPOV+17*, BETAPOV+22, ASA+5~, ASA+26*, ASA+31, ACEI+4~, ACEI+20*, ACEI+25, ARB+4~ , ARB+20*, ARB+25, STATIN+5~, STATIN+23*, STATIN+28, STATIN+44*, STATIN+51, STATIN+53, STATIN+57*, STATIN+68 | 
| T2 | STATIN+5~, STATIN+59*, STATIN+68 | 
| U | BETAPOV+2, BETAPOV+4, BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+9, BETAPOV+11, BETAPOV+13, BETAPOV+14, BETAPOV+19 , BETAPOV+21, BETAPOV+22, BETAPOV+24, BETAPOV+28, BETAPOV+29, BETAPOV+30, BETAPOV+31, ASA+10, ASA+12, ASA+13 , ASA+14, ASA+15, ASA+20, ASA+22, ASA+28, ASA+30, ASA+31, ASA+36, ASA+37, ASA+38 , ACEI+7, ACEI+9, ACEI+10, ACEI+11, ACEI+12, ACEI+16, ACEI+18, ACEI+22, ACEI+24, ACEI+25 , ACEI+29, ACEI+30, ACEI+31, ARB+7, ARB+9, ARB+10, ARB+11, ARB+12, ARB+16, ARB+18 , ARB+22, ARB+24, ARB+25, ARB+29, ARB+30, ARB+31, STATIN+8, STATIN+10, STATIN+11, STATIN+12 , STATIN+13, STATIN+17, STATIN+19, STATIN+25, STATIN+27, STATIN+28, STATIN+34, STATIN+35, STATIN+36, STATIN+40 , STATIN+50, STATIN+52, STATIN+54, STATIN+65, STATIN+66, STATIN+67, STATIN+69, STATIN+78, RESAL+2, RESCK+2 , RESCK+4 | 
| ULN | RESAL+1~, RESAL+2*, RESAL+3, RESAL+4, RESCK+1~, RESCK+4*, RESCK+5, RESCK+6 | 
| V | RESAL+1~, RESAL+2*, RESAL+4, RESCK+1~, RESCK+2*, RESCK+3, RESCK+6 | 
| X | BETA+4~, BETAPOV+1*, BETAPOV+2*, BETAPOV+4, BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+10*, BETAPOV+11*, BETAPOV+13 , BETAPOV+18*, BETAPOV+19, BETAPOV+20, BETAPOV+21, BETAPOV+22, BETAPOV+27*, BETAPOV+28, BETAPOV+29, BETAPOV+30, ASA+5~ , ASA+8*, ASA+9*, ASA+10, ASA+12, ASA+13, ASA+14, ASA+15, ASA+18*, ASA+19*, ASA+20 , ASA+22, ASA+27*, ASA+28, ASA+29, ASA+30, ASA+31, ASA+35*, ASA+36, ASA+37, ASA+38 , ACEI+4~, ACEI+6*, ACEI+7*, ACEI+9, ACEI+10, ACEI+11, ACEI+12, ACEI+15*, ACEI+16*, ACEI+18 , ACEI+21*, ACEI+22, ACEI+23, ACEI+24, ACEI+25, ACEI+28*, ACEI+29, ACEI+30, ACEI+31, ARB+4~ , ARB+6*, ARB+7*, ARB+9, ARB+10, ARB+11, ARB+12, ARB+15*, ARB+16*, ARB+18, ARB+21* , ARB+22, ARB+23, ARB+24, ARB+25, ARB+28*, ARB+29, ARB+30, ARB+31, STATIN+5~, STATIN+7* , STATIN+8*, STATIN+10, STATIN+11, STATIN+12, STATIN+13, STATIN+16*, STATIN+17*, STATIN+19, STATIN+24*, STATIN+25 , STATIN+26, STATIN+27, STATIN+28, STATIN+33*, STATIN+34, STATIN+35, STATIN+36, STATIN+39*, STATIN+48*, STATIN+49 , STATIN+50, STATIN+52, STATIN+54, STATIN+63*, STATIN+64, STATIN+65, STATIN+66, STATIN+67, STATIN+69, STATIN+73* , STATIN+74, STATIN+76, RESCK+2, RESCK+4 | 
| Y | BETA+4~, BETAPOV+1*, BETAPOV+2*, BETAPOV+3, BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+10*, BETAPOV+11*, BETAPOV+12 , BETAPOV+19*, BETAPOV+22, ASA+5~, ASA+10*, ASA+11, ASA+12, ASA+13, ASA+14, ASA+15, ASA+18* , ASA+20*, ASA+21, ASA+22, ASA+28*, ASA+31, ACEI+4~, ACEI+6*, ACEI+7*, ACEI+8, ACEI+10 , ACEI+11, ACEI+12, ACEI+15*, ACEI+16*, ACEI+17, ACEI+22*, ACEI+25, ARB+4~, ARB+6*, ARB+7* , ARB+8, ARB+10, ARB+11, ARB+12, ARB+15*, ARB+16*, ARB+17, ARB+22*, ARB+25, STATIN+5~ , STATIN+7*, STATIN+8*, STATIN+9, STATIN+11, STATIN+12, STATIN+13, STATIN+16*, STATIN+17*, STATIN+18, STATIN+25* , STATIN+28, STATIN+39*, STATIN+76*, STATIN+77, STATIN+78, RESAL~, RESAL+2, RESCK~ | 
| Z | BETA+4~, BETAPOV+5*, BETAPOV+6*, BETAPOV+7*, ASA+5~, ASA+13*, ASA+14*, ASA+15*, ACEI+4~, ACEI+10* , ACEI+11*, ACEI+12*, ARB+4~, ARB+10*, ARB+11*, ARB+12*, STATIN+11*, STATIN+12*, STATIN+13* |