BGP2D7 ; IHS/CMI/LAB - measure 31 ;
Source file <BGP2D7.m>
Package | Total | Call Graph |
---|---|---|
IHS GPRA Information System | 5 | $$TOBHF^BGP2D712 PREGSCRN^BGP2D713 ($$CPT,$$TRAN)^BGP2DU $$DATE^BGP2UTL ($$LASTDX,$$LASTPRC)^BGP2UTL1 |
Patient Care Component Reports | 2 | $$START1^APCLDF ($$CLINIC,$$PRIMPROV)^APCLV |
DRG Grouper | 1 | $$ICDDX^ICDCODE |
IHS Patient | 1 | $$AGE^AUPNPAT |
IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
Kernel | 1 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT |
Taxonomy | 1 | $$ICD^ATXCHK |
Name | Comments | DBIA/ICR reference |
---|---|---|
TOBACCO(P,BDATE,EDATE,CESSIN) | ;EP - USED FOR TOBACCO SCREEN ONLY
|
|
MA | ;now check for abortion or miscarriage
|
|
I18 | ;EP
|
|
DX(P,BDATE,EDATE) | ;EP
|
|
TAEND | ;now check pregnancy if necessary
|
|
AGE | ;
|
|
LOINC(A,B) | ;
|
|
I023 | ;EP - PHN
|
|
PED(P,BDATE,EDATE) | ;EP
|
|
PHNV(P,BDATE,EDATE,HOMELOC) | ;
|
|
PREG(P,BDATE,EDATE,NORXCHR,NORX) | ;EP
|
|
LASTHF(P,C,BDATE,EDATE) | ;EP - get last factor in category C for patient P
|
|
CPTSM(P,BDATE,EDATE) | ;EP - did pat have TOBACCO SCREENING cpt?
|
|
PREGSCRN | ;
|
|
HOME | ;
|
|
TOBACCO1 | ;check for tobacco documented in health factors
|
|
TOBACCO0 | ;lookup in health status
|
|
PROB | ;
|
|
DENT(P,BDATE,EDATE) | ;EP
|
|
TA | ;EP - called from elder
|
Name | Field # of Occurrence |
---|---|
$$START1^APCLDF | PHNV+3, DENT+2, PED+3, PREG+7, MA+2 |
$$CLINIC^APCLV | HOME+2, PREG+13 |
$$PRIMPROV^APCLV | PREG+16 |
$$ICD^ATXCHK | TA+17, PED+15, PROB+8, MA+12, DX+10 |
$$AGE^AUPNPAT | AGE+2 |
$$TOBHF^BGP2D712 | TA+2 |
PREGSCRN^BGP2D713 | PREGSCRN+1 |
$$CPT^BGP2DU | MA+18, MA+21, CPTSM+2 |
$$TRAN^BGP2DU | MA+24, MA+27 |
$$DATE^BGP2UTL | TA+22, TA+23, TA+24, TA+28, TA+30, TA+34, TA+39, TA+40, TA+41, TA+42 , TOBACCO0+7, LASTHF+13 |
$$LASTDX^BGP2UTL1 | DX+2 |
$$LASTPRC^BGP2UTL1 | MA+4 |
$$ICDDX^ICDCODE | PED+14, DX+3, DX+11 |
$$VAL^XBDIQ1 | TOBACCO0+1, LASTHF+13 |
$$VALI^XBDIQ1 | PHNV+10 |
$$FMADD^XLFDT | I18+10, I18+12, PREG+19 |
$$FMDIFF^XLFDT | AGE+1 |
$$FMTE^XLFDT | PHNV+3, DENT+2, PED+3, PREG+7, MA+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX - [#9002226] | LOINC+3, LOINC+5 |
^ATXAX("B" | TA+16, PED+15, PROB+2, MA+6, MA+17, MA+20, MA+23, MA+26, DX+4, CPTSM+2 |
^AUPNHF("AA" | TOBACCO0+1, TOBACCO0+3 |
^AUPNPROB - [#9000011] | PROB+4, PROB+5, PROB+6, PROB+7, PROB+9, MA+8, MA+9, MA+10, MA+11, DX+6 , DX+7, DX+8, DX+9, DX+11 |
^AUPNPROB("AC" | PROB+3, MA+7, DX+5 |
^AUPNVDEN - [#9000010.05] | DENT+8 |
^AUPNVDEN("AD" | DENT+8 |
^AUPNVHF("AA" | LASTHF+5, LASTHF+6, LASTHF+9 |
^AUPNVPED - [#9000010.16] | PED+6 |
^AUPNVPRV - [#9000010.06] | PHNV+8 |
^AUPNVPRV("AD" | PHNV+8 |
^AUPNVSIT - [#9000010] | HOME+4, AGE+1, AGE+2, DENT+5, DENT+6, DENT+7, DENT+8 |
^AUTTADA - [#9999999.31] | DENT+8 |
^AUTTEDT - [#9999999.09] | PED+8, PED+9 |
^AUTTHF - [#9999999.64] | TOBACCO0+6 |
^AUTTHF("AC" | LASTHF+4 |
^AUTTHF("B" | LASTHF+1 |
^DD(9000010.06 | PHNV+10 |
^DIC(7 - [#7] | PHNV+11 |
^DPT - [#2] | AGE+1 |
^LAB(95.3 - [#95.3] | LOINC+2, LOINC+4 |
^TMP($J | TAEND+5!, I023+7!, PHNV+2!, PHNV+4, PHNV+5, DENT+1!, DENT+3, DENT+4 |
Name | Line Occurrences |
---|---|
$$CPTSM | TA+6 |
$$DENT | TA+5 |
$$DX | TA+3 |
$$LASTHF | TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8 |
$$PED | TA+4 |
$$PHNV | I023+4 |
$$PREG | I18+10 |
AGE | PHNV+16 |
HOME | PHNV+15 |
MA | PREG+21 |
PREGSCRN | TAEND+3 |
PROB | PREG+9 |
TAEND | TA+13 |
TOBACCO0 | TOBACCO+5 |
TOBACCO1 | TOBACCO+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | TA+15*, TA+17*, TA+22, TA+28, TAEND+4!, PHNV+10*, PHNV+11*, PHNV+12, PHNV+14, HOME+2 , HOME+4, PED+5*, PED+10*, PED+11*, PED+12*, PED+15*, PED+16*, PED+17*, PED+18*, PED+19* , PED+20*, PED+21*, PED+22*, PED+23*, PED+24*, PED+25*, PED+26*, PED+27*, PED+28*, PED+29* , PED+30, PREG+1~, MA+18*, MA+19, MA+21*, MA+22, MA+24*, MA+25, MA+27*, MA+28 , LOINC+1~, LOINC+2*, LOINC+3, LOINC+4*, LOINC+5 |
A | TAEND+4!, PHNV+2*, PHNV+3, DENT+2*, LOINC~, LOINC+2, LOINC+4 |
B | TAEND+4!, PHNV+3*, DENT+2*, DENT+8*, PREG+1~, PREG+2*, PREG+10*, PREG+19*, PREG+21, PROB+1 , LOINC~, LOINC+3, LOINC+5 |
BDATE | TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+3, PREG~, PREG+7, PROB+6 , MA+4, DX~, DX+2, DX+8, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8, TOBACCO0+5 , LASTHF~, LASTHF+8, CPTSM~, CPTSM+2 |
BGP | TOBACCO+1! |
BGP1320 | I18+1*, TA+5*, TA+10, TA+42, TAEND+4! |
BGP20M | I18+12*, TAEND+4! |
>> BGP365 | I023+4 |
>> BGPACTCL | TA+43, TAEND+1 |
>> BGPACTUP | I18+3, I023+2 |
>> BGPAGEB | I18+2, I18+4, I18+5, I18+6, I18+7, I18+8, I18+9 |
>> BGPBDATE | TA+2, TA+3, TA+4, TA+5, TA+6 |
>> BGPBOMB | AGE+7 |
BGPD | PREG+1~, PREG+2*, PREG+18*, PROB+11, PROB+12*, MA+2, MA+9, MA+18, MA+21, MA+24 , MA+27 |
>> BGPD1 | I18+1*, I18+3*, I18+11, TA+43, TAEND+1 |
>> BGPD2 | I18+1*, I18+4*, I18+11 |
>> BGPD3 | I18+1*, I18+5*, I18+11 |
>> BGPD4 | I18+1*, I18+6*, I18+11 |
>> BGPD5 | I18+1*, I18+7*, I18+11 |
>> BGPD6 | I18+1*, I18+8*, I18+11 |
>> BGPD7 | I18+1*, I18+9*, I18+11 |
>> BGPD8 | I18+1*, I18+10*, I18+11, TA+43, TAEND+1, TAEND+3 |
>> BGPD9 | I18+1* |
BGPDX | PREG+1~ |
BGPDX( | PREG+18* |
>> BGPEDATE | I18+10, I18+12, TA+2, TA+3, TA+4, TA+5, TA+6, I023+4 |
BGPG | PED+1!, PED+4, PREG+1~, PREG+5!, PREG+9, MA+2!, MA+4*, MA+5, DX+1! |
BGPG( | PED+5, PED+6, PED+10, PED+11, PED+12, PED+15, PED+16, PED+17, PED+18, PED+19 , PED+20, PED+21, PED+22, PED+23, PED+24, PED+25, PED+26, PED+27, PED+28, PED+29 , PREG+10, PREG+12, PREG+13, PREG+16 |
BGPG(1 | MA+3, DX+2*, DX+3 |
>> BGPHOME | I023+4 |
BGPN1 | I18+1*, TA+7*, TA+8*, TA+9*, TA+10*, TA+11*, TA+13, TA+37, TAEND+3, I023+1! , I023+3*, I023+5* |
>> BGPN10 | I18+1* |
BGPN2 | I18+1*, TA+20*, TA+21*, TA+22*, TA+23*, TA+24*, I023+1!, I023+3* |
BGPN3 | I18+1*, TA+27*, TA+28*, TA+30*, I023+1! |
BGPN4 | I18+1*, TA+33*, TA+34*, I023+1! |
>> BGPN5 | I18+1*, TA+36* |
>> BGPN6 | I18+1* |
>> BGPN7 | I18+1* |
>> BGPN8 | I18+1* |
>> BGPN9 | I18+1* |
>> BGPRTYPE | TAEND+3 |
>> BGPSCPT | TA+6*, TA+11, TA+23, TA+24, TA+29, TA+30, TA+34, TA+40 |
BGPSDX | TA+3*, TA+8, TA+17, TA+22, TA+28, TA+39, TAEND+4! |
>> BGPSEX | I18+10 |
>> BGPSTOP | I18+2*, I18+11*, I023+2* |
BGPTOB | TA+2*, TA+7, TA+14, TA+20, TA+21, TA+36, TA+38, TOBACCO+1!, TOBACCO+4, TOBACCO+6 , TOBACCO1+1!, TOBACCO1+2*, TOBACCO1+3, TOBACCO1+4*, TOBACCO1+5, TOBACCO1+6*, TOBACCO1+7, TOBACCO1+8*, TOBACCO0+7* |
>> BGPVAL | TA+12*, TA+20*, TA+21*, TA+22*, TA+23*, TA+24*, TA+27*, TA+28*, TA+30*, TA+33* , TA+34*, TA+36*, TA+37, TA+38*, TA+39*, TA+40*, TA+41*, TA+42*, TA+44, TAEND+2 |
BGPVALUE | TA+12*, TA+44*, TAEND+2*, I023+1!, I023+4*, I023+5, I023+6* |
BGPXPWD | I18+1*, TA+4*, TA+9, TA+41, TAEND+4! |
C | TAEND+4!, PHNV+5*, PHNV+13*, PHNV+14*, PHNV+17, HOME+2*, HOME+4*, AGE+3*, AGE+4*, AGE+5* , AGE+6*, PREG+1~, PREG+13*, PREG+14, PREG+15, PREG+16*, PREG+17, LASTHF~, LASTHF+1*, LASTHF+2 , LASTHF+4 |
CESSIN | TOBACCO~, TOBACCO+2*, TOBACCO1+6 |
CNT | PREG+1~, PREG+2*, PREG+18*, PREG+21 |
D | TAEND+4!, PHNV+7*, PHNV+8*, PED+5*, PREG+1~, PREG+12*, PREG+18, PREG+19, TOBACCO1+2!, TOBACCO1+4! , TOBACCO1+6!, TOBACCO1+8!, LASTHF+3*, LASTHF+6*, LASTHF+7, LASTHF+8, LASTHF+9, LASTHF+11*, LASTHF+12, LASTHF+13 |
>> DAYS | AGE+1*, AGE+3, AGE+4 |
>> DFN | I18+10, TA+2, TA+3, TA+4, TA+5, TA+6, I023+4 |
E | TAEND+4!, PHNV+3*, DENT+2*, PED+3*, PREG+7*, MA+2*, TOBACCO0+3*, TOBACCO0+4, TOBACCO0+5, TOBACCO0+7 , TOBACCO0+8! |
EDATE | TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+3, PREG~, PREG+7, PREG+19 , PROB+5, MA+2, MA+4, MA+10, MA+18, MA+21, MA+24, MA+27, DX~, DX+2 , DX+7, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8, TOBACCO0+4, LASTHF~, LASTHF+7, CPTSM~ , CPTSM+2 |
F | TA+14*, TA+20, TA+21, TA+27, TA+33, TA+36, TAEND+4! |
G | DENT+4*, DENT+8*, DENT+10, DENT+11, PREG+1~, PROB+3*, PROB+9*, PROB+11, PROB+12, MA+7* , MA+13*, MA+15, DX+5*, DX+11*, DX+13 |
H | TAEND+4!, TOBACCO1+2!, TOBACCO1+4!, TOBACCO1+6!, TOBACCO1+8!, LASTHF+3*, LASTHF+4*, LASTHF+5, LASTHF+6, LASTHF+9 |
HOMELOC | PHNV~, PHNV+1*, HOME+3, HOME+4 |
>> HV | HOME+1*, HOME+2*, HOME+4*, AGE+3, AGE+4, AGE+5, AGE+6 |
>> I | TA+17* |
NORX | PREG~, PREG+4*, PREG+15 |
NORXCHR | PREG~, PREG+3*, PREG+14, PREG+17 |
O | TOBACCO1+2!, TOBACCO1+4!, TOBACCO1+6!, TOBACCO1+8!, LASTHF+3! |
O( | LASTHF+9*, LASTHF+13 |
O(0 | LASTHF+11 |
P | TAEND+4!, PHNV~, PHNV+3, AGE+1, AGE+2, DENT~, DENT+2, PED~, PED+3, PREG~ , PREG+7, PROB+3, MA+2, MA+4, MA+7, MA+18, MA+21, MA+24, MA+27, DX~ , DX+2, DX+5, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8, TOBACCO0+1, TOBACCO0+3, LASTHF~ , LASTHF+5, LASTHF+6, LASTHF+9, CPTSM~, CPTSM+2 |
>> Q | PHNV+8*, PHNV+9, PHNV+10 |
S | TAEND+4!, PED+13*, PED+14*, PED+15 |
T | TA+16*, TA+17, PED+5*, PED+6*, PED+7, PED+8, PED+9*, PED+10, PED+11, PED+12 , PED+13, PED+15, PED+16, PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23 , PED+24, PED+25, PED+26, PED+27, PED+28, PED+29, PREG+1~, PROB+2*, PROB+8, MA+6* , MA+12, MA+17*, MA+18, MA+20*, MA+21, MA+23*, MA+24, MA+26*, MA+27, DX+4* , DX+10 |
U | TA+17, TA+20, TA+21, TA+22, TA+23, TA+24, TA+27, TA+28, TA+29, TA+30 , TA+33, TA+34, TA+36, TA+38, TA+39, TA+40, TA+41, TA+42, I023+6, PHNV+5 , PHNV+8, PHNV+10, PHNV+11, PHNV+13, PHNV+14, HOME+2, HOME+4, AGE+1, AGE+2, AGE+3 , AGE+4, AGE+5, AGE+6, DENT+4, DENT+6, DENT+7, DENT+8, DENT+11, PED+6, PED+9 , PED+10, PED+11, PED+12, PED+15, PED+16, PED+17, PED+18, PED+19, PED+20, PED+21 , PED+22, PED+23, PED+24, PED+25, PED+26, PED+27, PED+28, PED+29, PREG+12, PREG+13 , PREG+16, PROB+4, PROB+5, PROB+6, PROB+7, PROB+9, MA+8, MA+9, MA+10, MA+11 , DX+3, DX+6, DX+7, DX+8, DX+9, DX+11, TOBACCO0+6, LOINC+2, LOINC+4, CPTSM+3 |
V | TA+43*, TA+44, TAEND+1*, TAEND+2, TAEND+4!, PHNV+5*, PHNV+8, HOME+2, HOME+4, AGE+1 , AGE+2, DENT+4*, DENT+5, DENT+6, DENT+7, DENT+8 |
X | TAEND+4!, PHNV+5*, DENT+4*, PED+3*, PED+5*, PED+6, PED+10, PED+11, PED+12, PED+15 , PED+16, PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23, PED+24, PED+25 , PED+26, PED+27, PED+28, PED+29, PREG+1~, PREG+7*, PREG+10*, PREG+12, PREG+13, PREG+16 , PROB+3*, PROB+4, PROB+5, PROB+6, PROB+7, PROB+9, MA+2*, MA+7*, MA+8, MA+9 , MA+10, MA+11, DX+5*, DX+6, DX+7, DX+8, DX+9, DX+11, TOBACCO0+1*, TOBACCO0+8! , CPTSM+1~, CPTSM+2*, CPTSM+3 |
Y | TAEND+4!, PHNV+5*, PHNV+7*, PED+2*, PED+3, PREG+1~, PREG+6*, PREG+7, PROB+7*, PROB+8 , MA+2*, MA+11*, MA+12, DX+9*, DX+10, DX+11, TOBACCO0+1*, TOBACCO0+2, TOBACCO0+3, TOBACCO0+6* , TOBACCO0+7, TOBACCO0+8! |
>> YRS | AGE+2*, AGE+4, AGE+5, AGE+6 |
Z | TAEND+4!, PHNV+7*, DENT+8* |