BGP8D7 ; IHS/CMI/LAB - measure 31 06 Nov 2014 2:31 PM ;
Source file <BGP8D7.m>
Package | Total | Call Graph |
---|---|---|
IHS GPRA Information System | 7 | $$TOBHF^BGP8D712 PREGSCRN^BGP8D713 PREG^BGP8D714 ($$CPT,$$IPLSNOID)^BGP8DU $$DATE^BGP8UTL $$LASTDX^BGP8UTL1 ($$ICD,$$ICDDX)^BGP8UTL2 |
Patient Care Component Reports | 2 | $$START1^APCLDF $$CLINIC^APCLV |
IHS Patient | 1 | $$AGE^AUPNPAT |
IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
Kernel | 1 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT |
Name | Comments | DBIA/ICR reference |
---|---|---|
DXSL(P,BDATE,EDATE) | ;EP - WAS THERE A SMOKELESS USER DX?
|
|
LASTHF(P,C,BDATE,EDATE) | ;EP - get last factor in category C for patient P
|
|
I18 | ;EP
|
|
DXU(P,BDATE,EDATE) | ;EP - WAS THERE A USER DX?
|
|
TAEND | ;now check pregnancy if necessary
|
|
AGE | ;
|
|
LOINC(A,B) | ;
|
|
PREG(P,BDATE,EDATE,NORXCHR,NORX,FORM,CPBD,CPED) | ;EP
|
|
I023 | ;EP - PHN
|
|
PED(P,BDATE,EDATE) | ;EP
|
|
PHNV(P,BDATE,EDATE,HOMELOC) | ;
|
|
DX(P,BDATE,EDATE) | ;EP - WAS THERE SCREENING?
|
|
DXS(P,BDATE,EDATE) | ;EP - WAS THERE A SMOKING USER DX?
|
|
PREGSCRN | ;
|
|
HOME | ;
|
|
TOBACCO1 | ;check for tobacco documented in health factors
|
|
TOBACCO0 | ;lookup in health status
|
|
TOBACCO(P,BDATE,EDATE,CESSIN) | ;EP - USED FOR TOBACCO SCREEN ONLY
|
|
CPTSM(P,BDATE,EDATE) | ;EP - did pat have TOBACCO SCREENING cpt?
|
|
DENT(P,BDATE,EDATE) | ;EP
|
|
TA | ;EP - called from elder
|
Name | Field # of Occurrence |
---|---|
$$START1^APCLDF | PHNV+3, DENT+2, PED+4 |
$$CLINIC^APCLV | HOME+2 |
$$AGE^AUPNPAT | AGE+2 |
$$TOBHF^BGP8D712 | TA+1 |
PREGSCRN^BGP8D713 | PREGSCRN+1 |
PREG^BGP8D714 | PREG+1 |
$$CPT^BGP8DU | CPTSM+2 |
$$IPLSNOID^BGP8DU | DX+15, DXSL+15, DXU+15, DXS+15 |
$$DATE^BGP8UTL | TA+24, TA+25, TA+26, TA+28, TA+29, TA+33, TA+35, TA+39, TA+40, TA+49 , TA+50, TA+51, TA+52, TOBACCO0+7, LASTHF+13 |
$$LASTDX^BGP8UTL1 | DX+2, DXSL+2, DXU+2, DXS+2 |
$$ICD^BGP8UTL2 | PED+17, DX+11, DXSL+11, DXU+11, DXS+11 |
$$ICDDX^BGP8UTL2 | PED+16, DX+3, DX+12, DXSL+3, DXSL+12, DXU+3, DXU+12, DXS+3, DXS+12 |
$$VAL^XBDIQ1 | TOBACCO0+1, LASTHF+13 |
$$VALI^XBDIQ1 | PHNV+10 |
$$FMADD^XLFDT | I18+10, I18+12 |
$$FMDIFF^XLFDT | AGE+1 |
$$FMTE^XLFDT | PHNV+3, DENT+2, PED+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX - [#9002226] | LOINC+3, LOINC+5 |
^ATXAX("B" | PED+17, DX+4, DXSL+4, DXU+4, DXS+4, CPTSM+2 |
^AUPNHF("AA" | TOBACCO0+1, TOBACCO0+3 |
^AUPNPROB - [#9000011] | DX+6, DX+7, DX+8, DX+9, DX+10, DX+12, DXSL+6, DXSL+7, DXSL+8, DXSL+9 , DXSL+10, DXSL+12, DXU+6, DXU+7, DXU+8, DXU+9, DXU+10, DXU+12, DXS+6, DXS+7 , DXS+8, DXS+9, DXS+10, DXS+12 |
^AUPNPROB("AC" | DX+5, DXSL+5, DXU+5, DXS+5 |
^AUPNVDEN - [#9000010.05] | DENT+9 |
^AUPNVDEN("AD" | DENT+9 |
^AUPNVHF("AA" | LASTHF+5, LASTHF+6, LASTHF+9 |
^AUPNVPED - [#9000010.16] | PED+8 |
^AUPNVPRV - [#9000010.06] | PHNV+8 |
^AUPNVPRV("AD" | PHNV+8 |
^AUPNVSIT - [#9000010] | HOME+4, AGE+1, AGE+2, DENT+6, DENT+7, DENT+8, DENT+9 |
^AUTTADA - [#9999999.31] | DENT+9 |
^AUTTEDT - [#9999999.09] | PED+10, PED+11 |
^AUTTHF - [#9999999.64] | TOBACCO0+6 |
^AUTTHF("AC" | LASTHF+4 |
^AUTTHF("B" | LASTHF+1 |
^BGPSNOMR - [#90560.21] | PED+34 |
^BGPSNOMR("B" | PED+6 |
^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+8 |
$$DENT | TA+7 |
$$DX | TA+2 |
$$DXS | TA+4 |
$$DXSL | TA+5 |
$$DXU | TA+3 |
$$LASTHF | TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8 |
$$PED | TA+6 |
$$PHNV | I023+4 |
$$PREG | I18+10 |
AGE | PHNV+16 |
HOME | PHNV+15 |
PREGSCRN | TAEND+3 |
TAEND | TA+18 |
TOBACCO0 | TOBACCO+5 |
TOBACCO1 | TOBACCO+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | TAEND+4!, PHNV+10*, PHNV+11*, PHNV+12, PHNV+14, HOME+2, HOME+4, PED+7*, PED+12*, PED+13* , PED+14*, 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*, PED+31*, PED+32*, PED+33*, PED+34*, PED+35 , 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+9*, LOINC~, LOINC+3, LOINC+5 |
BDATE | TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+4, PREG~, DX~, DX+2 , DX+9, DX+15, DXSL~, DXSL+2, DXSL+9, DXSL+15, DXU~, DXU+2, DXU+9, DXU+15 , DXS~, DXS+2, DXS+9, DXS+15, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8, TOBACCO0+5 , LASTHF~, LASTHF+8, CPTSM~, CPTSM+2 |
BGP | TOBACCO+1! |
BGP1320 | I18+1*, TA+7*, TA+13, TA+52, TAEND+4! |
BGP20M | I18+12*, TAEND+4! |
>> BGP365 | I023+4 |
>> BGPACTCL | TA+53, TAEND+1 |
>> BGPACTUP | I18+3, I023+2 |
>> BGPAGEB | I18+2, I18+4, I18+5, I18+6, I18+7, I18+8, I18+9 |
>> BGPBDATE | I18+10, TA+1, TA+2, TA+3, TA+4, TA+5, TA+6, TA+7, TA+8 |
>> BGPBOMB | AGE+7 |
>> BGPD1 | I18+1*, I18+3*, I18+11, TA+53, 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+53, TAEND+1, TAEND+3 |
>> BGPD9 | I18+1* |
>> BGPEDATE | I18+10, I18+12, TA+1, TA+2, TA+3, TA+4, TA+5, TA+6, TA+7, TA+8 , I023+4 |
BGPG | PED+1~, PED+2!, PED+5, DX+1!, DXSL+1!, DXU+1!, DXS+1! |
BGPG( | PED+7, PED+8, PED+12, PED+13, PED+14, 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, PED+31 , PED+32, PED+33, PED+34 |
BGPG(1 | DX+2*, DX+3, DXSL+2*, DXSL+3, DXU+2*, DXU+3, DXS+2*, DXS+3 |
>> BGPHOME | I023+4 |
BGPN1 | I18+1*, TA+9*, TA+10*, TA+11*, TA+12*, TA+13*, TA+14*, TA+15*, TA+16*, TA+18 , TA+47, TAEND+3, I023+1!, I023+3*, I023+5* |
>> BGPN10 | I18+1* |
>> BGPN11 | I18+1*, TA+45* |
>> BGPN12 | I18+1* |
>> BGPN13 | I18+1* |
>> BGPN14 | I18+1* |
>> BGPN15 | I18+1* |
BGPN2 | I18+1*, TA+21*, TA+22*, TA+23*, TA+24*, TA+25*, TA+26*, TA+28*, TA+29*, I023+1! , I023+3* |
BGPN3 | I18+1*, TA+32*, TA+33*, TA+35*, I023+1! |
BGPN4 | I18+1*, TA+38*, TA+39*, TA+40*, I023+1! |
>> BGPN5 | I18+1*, TA+42* |
>> BGPN6 | I18+1* |
>> BGPN7 | I18+1* |
>> BGPN8 | I18+1* |
>> BGPN9 | I18+1* |
>> BGPRTYPE | TAEND+3 |
>> BGPSCPT | TA+8*, TA+14, TA+27, TA+28, TA+29, TA+34, TA+35, TA+39, TA+50 |
BGPSDX | TA+2*, TA+10, TA+49, TAEND+4! |
>> BGPSEX | I18+10 |
>> BGPSLDX | TA+5*, TA+11, TA+26, TA+40 |
>> BGPSMDX | TA+4*, TA+16, TA+25, TA+33 |
>> BGPSTOP | I18+2*, I18+11*, I023+2* |
BGPTOB | TA+1*, TA+9, TA+19, TA+21, TA+22, TA+23, TA+42, TA+48, TOBACCO+1!, TOBACCO+4 , TOBACCO+6, TOBACCO1+1!, TOBACCO1+2*, TOBACCO1+3, TOBACCO1+4*, TOBACCO1+5, TOBACCO1+6*, TOBACCO1+7, TOBACCO1+8*, TOBACCO0+7* |
>> BGPUDX | TA+3*, TA+15, TA+24 |
>> BGPVAL | TA+17*, TA+21*, TA+22*, TA+23*, TA+24*, TA+25*, TA+26*, TA+28*, TA+29*, TA+32* , TA+33*, TA+35*, TA+38*, TA+39*, TA+40*, TA+42*, TA+46*, TA+47, TA+48*, TA+49* , TA+50*, TA+51*, TA+52*, TA+54, TAEND+2 |
BGPVALUE | TA+17*, TA+54*, TAEND+2*, I023+1!, I023+4*, I023+5, I023+6* |
BGPXPHD | I18+1*, TA+6*, TA+12, TA+51, 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*, LASTHF~, LASTHF+1*, LASTHF+2, LASTHF+4 |
CESSIN | TOBACCO~, TOBACCO+2*, TOBACCO1+6 |
CPBD | PREG~ |
CPED | PREG~ |
D | TAEND+4!, PHNV+7*, PHNV+8*, PED+1~, PED+7*, 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+1, TA+2, TA+3, TA+4, TA+5, TA+6, TA+7, TA+8, I023+4 |
E | TAEND+4!, PHNV+3*, DENT+2*, PED+1~, PED+4*, TOBACCO0+3*, TOBACCO0+4, TOBACCO0+5, TOBACCO0+7, TOBACCO0+8! |
EDATE | TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+4, PREG~, DX~, DX+2 , DX+8, DX+15, DXSL~, DXSL+2, DXSL+8, DXSL+15, DXU~, DXU+2, DXU+8, DXU+15 , DXS~, DXS+2, DXS+8, DXS+15, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8, TOBACCO0+4 , LASTHF~, LASTHF+7, CPTSM~, CPTSM+2 |
F | TA+19*, TA+21, TA+22, TA+23, TA+32, TA+38, TA+42, TA+45, TA+46, TAEND+4! |
FORM | PREG~ |
>> G | DENT+4*, DENT+9*, DENT+11, DENT+12, DX+5*, DX+12*, DX+14, DX+15*, DX+16, DXSL+5* , DXSL+12*, DXSL+14, DXSL+15*, DXSL+16, DXU+5*, DXU+12*, DXU+14, DXU+15*, DXU+16, DXS+5* , DXS+12*, DXS+14, DXS+15*, DXS+16 |
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 |
NORX | PREG~ |
NORXCHR | PREG~ |
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+4, PREG~ , DX~, DX+2, DX+5, DX+15, DXSL~, DXSL+2, DXSL+5, DXSL+15, DXU~, DXU+2 , DXU+5, DXU+15, DXS~, DXS+2, DXS+5, DXS+15, 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+1~, PED+15*, PED+16*, PED+17 |
SN | PED+1~, PED+6*, PED+34 |
T | PED+1~, PED+7*, PED+8*, PED+9, PED+10, PED+11*, PED+12, PED+13, PED+14, PED+15 , 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, PED+31, PED+32, PED+33, PED+34, DX+4*, DX+11 , DXSL+4*, DXSL+11, DXU+4*, DXU+11, DXS+4*, DXS+11 |
U | TA+21, TA+22, TA+23, TA+24, TA+25, TA+26, TA+27, TA+28, TA+29, TA+32 , TA+33, TA+34, TA+35, TA+38, TA+39, TA+40, TA+42, TA+45, TA+46, TA+48 , TA+49, TA+50, TA+51, TA+52, 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+7, DENT+8, DENT+9, DENT+12, PED+8, PED+11, PED+12, PED+13, PED+14, 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, PED+31, PED+32, PED+33, PED+34, DX+3, DX+6, DX+7 , DX+8, DX+9, DX+10, DX+12, DX+15, DXSL+3, DXSL+6, DXSL+7, DXSL+8, DXSL+9 , DXSL+10, DXSL+12, DXSL+15, DXU+3, DXU+6, DXU+7, DXU+8, DXU+9, DXU+10, DXU+12 , DXU+15, DXS+3, DXS+6, DXS+7, DXS+8, DXS+9, DXS+10, DXS+12, DXS+15, TOBACCO0+6 , LOINC+2, LOINC+4, CPTSM+3 |
V | TA+53*, TA+54, 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, DENT+9 |
X | TAEND+4!, PHNV+5*, DENT+4*, PED+1~, PED+4*, PED+7*, PED+8, PED+12, PED+13, PED+14 , 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, PED+31, PED+32, PED+33, PED+34, DX+5*, DX+6 , DX+7, DX+8, DX+9, DX+10, DX+12, DXSL+5*, DXSL+6, DXSL+7, DXSL+8, DXSL+9 , DXSL+10, DXSL+12, DXU+5*, DXU+6, DXU+7, DXU+8, DXU+9, DXU+10, DXU+12, DXS+5* , DXS+6, DXS+7, DXS+8, DXS+9, DXS+10, DXS+12, TOBACCO0+1*, TOBACCO0+8!, CPTSM+1~, CPTSM+2* , CPTSM+3 |
Y | TAEND+4!, PHNV+5*, PHNV+7*, PED+1~, PED+3*, PED+4, DX+10*, DX+11, DX+12, DXSL+10* , DXSL+11, DXSL+12, DXU+10*, DXU+11, DXU+12, DXS+10*, DXS+11, DXS+12, 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+9* |