BGP2C2X ; IHS/CMI/LAB - calc CMS measures 26 Sep 2004 11:28 AM ;
Source file <BGP2C2X.m>
Package | Total | Call Graph |
---|---|---|
IHS GPRA Information System | 6 | (ACEIALG1,ACEIRX1)^BGP2C11 (CESS1,EN,SMOKER1)^BGP2C12 ACEICON1^BGP2C13 ($$DENT,$$DX,$$TOBACCO)^BGP2D7 $$DATE^BGP2UTL $$LASTPRC^BGP2UTL1 |
DRG Grouper | 2 | ($$ICDDX,$$ICDOP)^ICDCODE $$CPT^ICPTCOD |
Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR |
Patient Care Component Reports | 2 | $$START1^APCLDF ($$CLINIC,$$PRIMPOV)^APCLV |
IHS Patient | 1 | ($$AGE,$$DOB,$$HRN)^AUPNPAT |
IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
Taxonomy | 1 | $$ICD^ATXCHK |
Name | Comments | DBIA/ICR reference |
---|---|---|
LVAD | ;
|
|
HF | ;
|
|
ACEIRX | ;
|
|
LVF(P,BGPD,BGPY) | ;does patient have LVSD
|
|
LVAD1(P,BD,ED,BGPY) | ;
|
|
CESS1(P,BDATE,EDATE,BGPY) | ;
|
|
CESS | ;
|
|
LVADEX(P,BD,ED) | ;
|
|
HFDX(V) | ;
|
|
TRANS(H) | ;
|
|
CPTC(Z) | ;
|
|
EF | ;
|
|
LVSD | ;
|
|
DSCH(H) | ;
|
|
CEFPROC | ;now see if any procedures
|
|
ACEIALG | ;
|
|
LVSD1(P,BGPD,BGPY) | ;
|
|
SMOKER1(P,BGPA,BGPD,BGPY) | ;
|
|
EXPIRED(H) | ;
|
|
SMOKER | ;EP
|
|
TRANSIN(H) | ;
|
|
CEFCPT | ;now get all cpts
|
|
ACEICONT | ;
|
|
CEFMEAS | ;now get all measurements CEF
|
|
AMA(H) | ;
|
Name | Field # of Occurrence |
---|---|
$$START1^APCLDF | CEFMEAS+1, LVSD1+15, CESS1+3, CESS1+14 |
$$CLINIC^APCLV | CESS1+20 |
$$PRIMPOV^APCLV | HF+5, HF+26, HFDX+1 |
$$ICD^ATXCHK | CEFPROC+6, CEFCPT+6, CEFCPT+17, LVSD1+8, LVSD1+28, LVSD1+39, HFDX+5, LVAD1+6, SMOKER1+6 |
$$AGE^AUPNPAT | HF+3, HF+7, HF+24 |
$$DOB^AUPNPAT | CEFMEAS+1, LVSD1+15 |
$$HRN^AUPNPAT | HF+3, HF+24 |
ACEIALG1^BGP2C11 | ACEIALG+3 |
ACEIRX1^BGP2C11 | ACEIRX+3 |
CESS1^BGP2C12 | CESS+3 |
EN^BGP2C12 | CESS+6 |
SMOKER1^BGP2C12 | SMOKER+3 |
ACEICON1^BGP2C13 | ACEICONT+3 |
$$DENT^BGP2D7 | SMOKER1+7 |
$$DX^BGP2D7 | SMOKER1+5 |
$$TOBACCO^BGP2D7 | SMOKER1+3 |
$$DATE^BGP2UTL | HF+4, HF+25, CEFMEAS+5, CEFPROC+10, CEFCPT+10, CEFCPT+21, CEFCPT+33, LVSD1+12, LVSD1+20, LVSD1+32 , LVSD1+43, LVAD1+11, SMOKER1+6, SMOKER1+8, CESS1+10, CESS1+11, CESS1+12, CESS1+21, CESS1+22, CESS1+34 |
$$LASTPRC^BGP2UTL1 | LVADEX+1 |
$$ICDDX^ICDCODE | HF+36, LVSD1+6 |
$$ICDOP^ICDCODE | CEFPROC+4, LVSD1+26, LVAD1+4 |
$$CPT^ICPTCOD | CEFCPT+4, CEFCPT+10, CEFCPT+14, CEFCPT+21, LVSD1+37, LVSD1+43 |
$$VAL^XBDIQ1 | HF+9, HF+15, HF+27, HF+28, HF+37, CEFPROC+10, LVSD1+12, LVSD1+32, LVAD1+11 |
$$FMADD^XLFDT | SMOKER1+3, SMOKER1+5, SMOKER1+7 |
$$FMTE^XLFDT | CEFMEAS+1, LVSD1+15, CESS1+3, CESS1+14 |
$$UP^XLFSTR | HF+37 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX("B" | CEFPROC+5, CEFCPT+5, CEFCPT+16, LVSD1+7, LVSD1+27, LVSD1+38, HFDX+3, LVAD1+5, SMOKER1+6 |
^AUPNPREF - [#9000022] | CESS1+29 |
^AUPNPREF("AA" | CESS1+26, CESS1+27, CESS1+28 |
^AUPNVCPT - [#9000010.18] | CEFCPT+2, CEFCPT+3, CEFCPT+7, LVSD1+35, LVSD1+40 |
^AUPNVCPT("AC" | CEFCPT+1, LVSD1+34 |
^AUPNVDEN - [#9000010.05] | CESS1+22 |
^AUPNVDEN("AD" | CESS1+22 |
^AUPNVINP - [#9000010.02] | AMA+1, EXPIRED+1, DSCH+1, TRANSIN+1, TRANS+1 |
^AUPNVMSR - [#9000010.01] | CEFMEAS+3, CEFMEAS+4, LVSD1+17, LVSD1+18 |
^AUPNVPED - [#9000010.16] | CESS1+6 |
^AUPNVPOV - [#9000010.07] | HF+34, HF+35, HF+36, LVSD1+4, LVSD1+5, LVSD1+9 |
^AUPNVPOV("AC" | LVSD1+3 |
^AUPNVPOV("AD" | HF+33 |
^AUPNVPRC - [#9000010.08] | CEFPROC+2, CEFPROC+3, CEFPROC+7, LVSD1+24, LVSD1+25, LVSD1+29, LVSD1+36, LVAD1+2, LVAD1+3, LVAD1+7 |
^AUPNVPRC("AC" | CEFPROC+1, LVSD1+23, LVAD1+1 |
^AUPNVSIT - [#9000010] | CEFPROC+8, CEFCPT+8, CEFCPT+19, LVSD1+10, LVSD1+30, LVSD1+41, LVAD1+8, CESS1+17, CESS1+18, CESS1+19 , CESS1+21, CESS1+22 |
^AUPNVTC - [#9000010.33] | CEFCPT+12, CEFCPT+13, CEFCPT+18 |
^AUPNVTC("AC" | CEFCPT+11 |
^AUTTADA - [#9999999.31] | CESS1+22 |
^AUTTEDT - [#9999999.09] | CESS1+8, CESS1+9, CESS1+33 |
^BMCREF - [#90001] | CEFCPT+24, CEFCPT+28, CEFCPT+33 |
^BMCREF("D" | CEFCPT+23 |
^BMCTDXC - [#90001.51] | CEFCPT+26, CEFCPT+27, CEFCPT+33 |
^BMCTSVC - [#90001.52] | CEFCPT+30, CEFCPT+31 |
^DG(405.1 - [#405.1] | AMA+3, EXPIRED+3, TRANSIN+3, TRANS+3 |
^DPT - [#2] | HF+3, HF+17, HF+18, HF+20, HF+24, HF+29, HF+32, HF+39, EF+1, EF+5 , LVSD+1, LVSD+5, ACEIALG+1, ACEIALG+4, ACEIALG+6, ACEICONT+1, ACEICONT+4, ACEICONT+6, ACEIRX+1, ACEIRX+5 , SMOKER+1, SMOKER+5, CESS+1, CESS+5 |
^TMP($J | CESS1+13!, CESS1+15, CESS1+16 |
^XTMP("BGP2C1" | HF+17, HF+18*, HF+20*, HF+29*, HF+32*, HF+39*, EF+1*, EF+5*, LVSD+1*, LVSD+5* , ACEIALG+1*, ACEIALG+4*, ACEIALG+6*, ACEICONT+1*, ACEICONT+4*, ACEICONT+6*, ACEIRX+1*, ACEIRX+5*, SMOKER+1*, SMOKER+5* , CESS+1*, CESS+5* |
Name | Line Occurrences |
---|---|
$$CPTC | CEFCPT+32 |
$$DSCH | HF+4, HF+8, HF+25, ACEIALG+3, ACEICONT+3, ACEIRX+3, SMOKER+3, CESS+3 |
$$HFDX | HF+2 |
$$LVADEX | HF+8 |
LVF | EF+3 |
LVSD1 | LVSD+3 |
Name | Field # of Occurrence |
---|---|
^( | HF+39* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | CESS1+4*, CESS1+5* |
>> A | CESS1+14* |
>> B | CESS1+14*, CESS1+20*, CESS1+21, CESS1+22* |
BD | LVF+1~, LVADEX~, LVADEX+1, LVAD1~, LVAD1+10 |
BDATE | CESS1~, CESS1+3, CESS1+14, CESS1+31 |
BGPA | SMOKER1~, SMOKER1+3, SMOKER1+5, SMOKER1+7 |
>> BGPALLED( | CESS1+5, CESS1+6, CESS1+10, CESS1+11, CESS1+12 |
>> BGPALLED(1 | CESS1+4 |
BGPASAAL | SMOKER+2!, SMOKER+3, CESS+2!, CESS+3 |
BGPASAAL( | SMOKER+4, SMOKER+5, CESS+4, CESS+5 |
BGPC | LVF+1~, LVF+3*, CEFMEAS+5*, CEFPROC+10*, CEFCPT+10*, CEFCPT+21*, CEFCPT+33*, LVSD1+1~, LVSD1+2*, LVSD1+12* , LVSD1+20*, LVSD1+32*, LVSD1+43*, LVAD1+11*, SMOKER1+1*, SMOKER1+4*, SMOKER1+6*, SMOKER1+8*, CESS1+1*, CESS1+10* , CESS1+11*, CESS1+12*, CESS1+21*, CESS1+22*, CESS1+34* |
>> BGPCOUNT("L1" | HF+21* |
>> BGPCOUNT("L2" | HF+30* |
BGPD | LVF~, CEFMEAS+1, LVSD1~, LVSD1+11, LVSD1+15, SMOKER1~ |
BGPDATA | EF+2!, EF+3, LVSD+2!, LVSD+3, ACEIALG+2!, ACEIALG+3, ACEIALG+4, ACEICONT+2!, ACEICONT+3, ACEICONT+4 , ACEIRX+2!, ACEIRX+3 |
BGPDATA( | EF+4, EF+5, LVSD+4, LVSD+5, ACEIALG+5, ACEIALG+6, ACEICONT+5, ACEICONT+6, ACEIRX+4, ACEIRX+5 |
BGPDENT | SMOKER1+2~, SMOKER1+7*, SMOKER1+8 |
BGPDX | SMOKER1+2~, SMOKER1+5*, SMOKER1+6 |
BGPG | LVF+1~, CEFMEAS+1!, LVSD1+15! |
BGPG( | CEFMEAS+2, CEFMEAS+5, LVSD1+16, LVSD1+20 |
>> BGPH | HF+17, HF+18, HF+20, HF+29, HF+32, HF+39, EF+1, EF+5, LVSD+1, LVSD+5 , ACEIALG+1, ACEIALG+4, ACEIALG+6, ACEICONT+1, ACEICONT+4, ACEICONT+6, ACEIRX+1, ACEIRX+5, SMOKER+1, SMOKER+5 , CESS+1, CESS+5 |
>> BGPIND | HF+17, HF+18, HF+20, HF+21, HF+29, HF+30, HF+32, HF+39, EF+1, EF+5 , LVSD+1, LVSD+5, ACEIALG+1, ACEIALG+4, ACEIALG+6, ACEICONT+1, ACEICONT+4, ACEICONT+6, ACEIRX+1, ACEIRX+5 , SMOKER+1, SMOKER+5, CESS+1, CESS+5 |
>> BGPJ | HF+17, HF+18, HF+20, HF+29, HF+32, HF+39, EF+1, EF+5, LVSD+1, LVSD+5 , ACEIALG+1, ACEIALG+4, ACEIALG+6, ACEICONT+1, ACEICONT+4, ACEICONT+6, ACEIRX+1, ACEIRX+5, SMOKER+1, SMOKER+5 , CESS+1, CESS+5 |
>> BGPORDER | HF+17, HF+18, HF+20, HF+29, HF+32, HF+39, EF+1, EF+5, LVSD+1, LVSD+5 , ACEIALG+1, ACEIALG+4, ACEIALG+6, ACEICONT+1, ACEICONT+4, ACEICONT+6, ACEIRX+1, ACEIRX+5, SMOKER+1, SMOKER+5 , CESS+1, CESS+5 |
>> BGPSKIP | HF+6*, HF+7*, HF+8*, HF+23 |
BGPTOB | SMOKER1+2~, SMOKER1+3*, SMOKER1+4 |
>> BGPVINP | HF+4, HF+8, HF+9, HF+15, HF+25, HF+27, HF+28, ACEIALG+3, ACEICONT+3, ACEIRX+3 , SMOKER+3, CESS+3 |
>> BGPVSIT | HF+2, HF+5, HF+17, HF+18, HF+20, HF+26, HF+29, HF+32, HF+33, HF+39 , EF+1, EF+5, LVSD+1, LVSD+5, ACEIALG+1, ACEIALG+4, ACEIALG+6, ACEICONT+1, ACEICONT+3, ACEICONT+4 , ACEICONT+6, ACEIRX+1, ACEIRX+5, SMOKER+1, SMOKER+5, CESS+1, CESS+5 |
>> BGPVSIT0 | HF+3, HF+4, HF+7, HF+8, HF+24, HF+25, ACEICONT+3, ACEIRX+3, SMOKER+3, CESS+3 |
>> BGPX | HF+3*, HF+4*, HF+5*, HF+7*, HF+8*, HF+10*, HF+16*, HF+18, HF+24*, HF+25* , HF+26*, HF+27*, HF+28*, HF+29 |
BGPY | LVF~, LVF+3!, LVSD1~, LVAD1~, SMOKER1~, SMOKER1+1!, CESS1~, CESS1+1!, CESS1+24 |
BGPY( | CEFMEAS+5*, CEFPROC+10*, CEFCPT+10*, CEFCPT+21*, CEFCPT+33*, LVSD1+12*, LVSD1+20*, LVSD1+32*, LVSD1+43*, LVAD1+11* , SMOKER1+4*, SMOKER1+6*, SMOKER1+8*, CESS1+10*, CESS1+11*, CESS1+12*, CESS1+21*, CESS1+22*, CESS1+34* |
BGPZ | HF+6!, HF+19 |
BGPZ( | HF+19 |
BGPZ(1 | HF+7*, HF+8* |
BGPZ1 | HF+19!*, HF+20* |
>> C | HF+33*, HF+38*, HF+39, CEFCPT+28*, CEFCPT+29, CEFCPT+30, CEFCPT+31, HFDX+1*, HFDX+2, HFDX+5 |
>> D | CESS1+5*, CESS1+27*, CESS1+28 |
>> DFN | HF+3, HF+7, HF+8, HF+17, HF+18, HF+20, HF+24, HF+29, HF+32, HF+39 , EF+1, EF+3, EF+5, LVSD+1, LVSD+3, LVSD+5, ACEIALG+1, ACEIALG+3, ACEIALG+4, ACEIALG+6 , ACEICONT+1, ACEICONT+3, ACEICONT+4, ACEICONT+6, ACEIRX+1, ACEIRX+3, ACEIRX+5, SMOKER+1, SMOKER+3, SMOKER+5 , CESS+1, CESS+3, CESS+5, CEFMEAS+1, LVSD1+15 |
DT | EF+3, LVSD+3 |
DUZ(2 | HF+3, HF+24 |
>> E | CEFMEAS+1*, LVSD1+15*, CESS1+3*, CESS1+14* |
ED | LVF+1~, LVADEX~, LVADEX+1, LVAD1~, LVAD1+9 |
EDATE | CESS1~, CESS1+3, CESS1+14, CESS1+32 |
>> G | CESS1+16*, CESS1+26*, CESS1+27, CESS1+28 |
H | AMA~, AMA+1, EXPIRED~, EXPIRED+1, DSCH~, DSCH+1, TRANSIN~, TRANSIN+1, TRANS~, TRANS+1 |
I | HF+36*, HF+39, LVF+1~, CEFPROC+3*, CEFPROC+4, CEFPROC+6, CEFCPT+3*, CEFCPT+4, CEFCPT+6, CEFCPT+10 , CEFCPT+13*, CEFCPT+14, CEFCPT+17, CEFCPT+21, CEFCPT+24*, CEFCPT+25, CEFCPT+26, CEFCPT+27, CEFCPT+33, LVSD1+1~ , LVSD1+5*, LVSD1+6, LVSD1+8, LVSD1+25*, LVSD1+26, LVSD1+28, LVSD1+36*, LVSD1+37, LVSD1+39, LVSD1+43 , LVAD1+3*, LVAD1+4, LVAD1+6, CESS1+28*, CESS1+29 |
N | HF+37*, HF+39, LVF+1~, CEFMEAS+4*, CEFMEAS+5, LVSD1+18*, LVSD1+19, LVSD1+20 |
P | LVF~, CEFMEAS+1, CEFPROC+1, CEFCPT+1, CEFCPT+11, CEFCPT+23, LVSD1~, LVSD1+3, LVSD1+15, LVSD1+23 , LVSD1+34, LVADEX~, LVADEX+1, LVAD1~, LVAD1+1, SMOKER1~, SMOKER1+3, SMOKER1+5, SMOKER1+7, CESS1~ , CESS1+3, CESS1+14, CESS1+26, CESS1+27, CESS1+28 |
T | LVF+1~, CEFPROC+5*, CEFPROC+6, CEFCPT+5*, CEFCPT+6, CEFCPT+16*, CEFCPT+17, LVSD1+1~, LVSD1+7*, LVSD1+8 , LVSD1+27*, LVSD1+28, LVSD1+38*, LVSD1+39, HFDX+3*, HFDX+4, HFDX+5, LVAD1+5*, LVAD1+6, CESS1+5* , CESS1+6*, CESS1+7, CESS1+8, CESS1+9*, CESS1+10, CESS1+11, CESS1+12 |
U | HF+3, HF+4, HF+5, HF+7, HF+8, HF+10, HF+16, HF+17, HF+18, HF+20 , HF+24, HF+25, HF+26, HF+27, HF+28, HF+29, HF+32, HF+35, HF+36, HF+39 , EF+1, EF+5, LVSD+1, LVSD+5, ACEIALG+1, ACEIALG+4, ACEIALG+6, ACEICONT+1, ACEICONT+3, ACEICONT+4 , ACEICONT+6, ACEIRX+1, ACEIRX+3, ACEIRX+5, SMOKER+1, SMOKER+3, SMOKER+5, CESS+1, CESS+3, CESS+5 , CEFMEAS+2, CEFMEAS+3, CEFMEAS+4, CEFMEAS+5, CEFPROC+3, CEFPROC+4, CEFPROC+7, CEFPROC+8, CEFCPT+3, CEFCPT+4 , CEFCPT+7, CEFCPT+8, CEFCPT+10, CEFCPT+13, CEFCPT+14, CEFCPT+18, CEFCPT+19, CEFCPT+21, CEFCPT+24, CEFCPT+27 , CEFCPT+28, CEFCPT+31, CEFCPT+33, LVSD1+5, LVSD1+6, LVSD1+9, LVSD1+10, LVSD1+16, LVSD1+17, LVSD1+18 , LVSD1+20, LVSD1+25, LVSD1+26, LVSD1+29, LVSD1+30, LVSD1+36, LVSD1+37, LVSD1+40, LVSD1+41, LVSD1+43 , AMA+1, AMA+3, EXPIRED+1, EXPIRED+3, DSCH+1, TRANSIN+1, TRANSIN+3, TRANS+1, TRANS+3, LVAD1+3 , LVAD1+4, LVAD1+7, LVAD1+8, SMOKER1+4, SMOKER1+6, SMOKER1+8, CESS1+6, CESS1+9, CESS1+10, CESS1+11 , CESS1+12, CESS1+16, CESS1+18, CESS1+19, CESS1+21, CESS1+22, CESS1+29, CESS1+33 |
V | CEFPROC+7*, CEFPROC+8*, CEFPROC+10, CEFCPT+7*, CEFCPT+8*, CEFCPT+10, CEFCPT+18*, CEFCPT+19*, CEFCPT+21, CEFCPT+31* , CEFCPT+32, CEFCPT+33, LVSD1+1~, LVSD1+9*, LVSD1+10*, LVSD1+11, LVSD1+12, LVSD1+29*, LVSD1+30*, LVSD1+32 , LVSD1+40*, LVSD1+41*, LVSD1+43, HFDX~, HFDX+1, LVAD1+7*, LVAD1+8*, LVAD1+9, LVAD1+10, LVAD1+11 , CESS1+16*, CESS1+17, CESS1+18, CESS1+19, CESS1+20, CESS1+21, CESS1+22 |
X | HF+19*, HF+33*, HF+34, HF+35, HF+36, HF+37, EF+4*, EF+5, LVSD+4*, LVSD+5 , ACEIALG+5*, ACEIALG+6, ACEICONT+5*, ACEICONT+6, ACEIRX+4*, ACEIRX+5, SMOKER+4*, SMOKER+5, CESS+4*, CESS+5 , LVF+1~, CEFMEAS+1*, CEFMEAS+2*, CEFMEAS+5, CEFPROC+1*, CEFPROC+2, CEFPROC+3, CEFPROC+7, CEFPROC+10, CEFCPT+1* , CEFCPT+2, CEFCPT+3, CEFCPT+7, CEFCPT+11*, CEFCPT+12, CEFCPT+13, CEFCPT+18, CEFCPT+23*, CEFCPT+24, CEFCPT+28 , CEFCPT+33, LVSD1+1~, LVSD1+3*, LVSD1+4, LVSD1+5, LVSD1+9, LVSD1+12, LVSD1+15*, LVSD1+16*, LVSD1+20 , LVSD1+23*, LVSD1+24, LVSD1+25, LVSD1+29, LVSD1+32, LVSD1+34*, LVSD1+35, LVSD1+36, LVSD1+40, AMA+1* , AMA+2, AMA+3*, AMA+4, EXPIRED+1*, EXPIRED+2, EXPIRED+3*, EXPIRED+4, TRANSIN+1*, TRANSIN+2, TRANSIN+3* , TRANSIN+4, TRANS+1*, TRANS+2, TRANS+3*, TRANS+4, LVADEX+1*, LVADEX+2, LVAD1+1*, LVAD1+2, LVAD1+3 , LVAD1+7, LVAD1+11, CESS1+3*, CESS1+5*, CESS1+6, CESS1+10, CESS1+11, CESS1+12, CESS1+16*, CESS1+26* , CESS1+27, CESS1+28, CESS1+33 |
Y | LVF+1~, CEFMEAS+1*, CEFMEAS+2*, CEFMEAS+3, CEFMEAS+4, CEFPROC+4*, CEFPROC+10, CEFCPT+4*, CEFCPT+10, CEFCPT+14* , CEFCPT+15, CEFCPT+21, LVSD1+1~, LVSD1+6*, LVSD1+12, LVSD1+15*, LVSD1+16*, LVSD1+17, LVSD1+18, LVSD1+26* , LVSD1+32, LVSD1+37*, LVSD1+43, LVAD1+4*, LVAD1+11, CESS1+2*, CESS1+3, CESS1+33*, CESS1+34 |
Z | HF+9*, HF+10, HF+15*, HF+16, LVF+1~, CPTC~, CPTC+1, CPTC+2, CPTC+3, CESS1+22* , CESS1+29*, CESS1+30, CESS1+31, CESS1+32, CESS1+34 |