BGP7D7 ; IHS/CMI/LAB - measure 31 06 Nov 2014 2:31 PM ;
Source file <BGP7D7.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS GPRA Information System | 7 | $$TOBHF^BGP7D712 PREGSCRN^BGP7D713 PREG^BGP7D714 ($$CPT,$$IPLSNOID)^BGP7DU $$DATE^BGP7UTL $$LASTDX^BGP7UTL1 ($$ICD,$$ICDDX)^BGP7UTL2 | 
| 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^BGP7D712 | TA+1 | 
| PREGSCRN^BGP7D713 | PREGSCRN+1 | 
| PREG^BGP7D714 | PREG+1 | 
| $$CPT^BGP7DU | CPTSM+2 | 
| $$IPLSNOID^BGP7DU | DX+15, DXSL+15, DXU+15, DXS+15 | 
| $$DATE^BGP7UTL | TA+23, TA+24, TA+25, TA+27, TA+28, TA+32, TA+34, TA+38, TA+39, TA+44 , TA+45, TA+46, TA+47, TOBACCO0+7, LASTHF+13 | 
| $$LASTDX^BGP7UTL1 | DX+2, DXSL+2, DXU+2, DXS+2 | 
| $$ICD^BGP7UTL2 | PED+17, DX+11, DXSL+11, DXU+11, DXS+11 | 
| $$ICDDX^BGP7UTL2 | 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 | 
| ^BGPSNOMG - [#90558.21] | PED+34 | 
| ^BGPSNOMG("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+47, TAEND+4! | 
| BGP20M | I18+12*, TAEND+4! | 
| >> BGP365 | I023+4 | 
| >> BGPACTCL | TA+48, 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+48, 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+48, 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+42, TAEND+3, I023+1!, I023+3*, I023+5* | 
| >> BGPN10 | I18+1* | 
| BGPN2 | I18+1*, TA+21*, TA+22*, TA+23*, TA+24*, TA+25*, TA+27*, TA+28*, I023+1!, I023+3* | 
| BGPN3 | I18+1*, TA+31*, TA+32*, TA+34*, I023+1! | 
| BGPN4 | I18+1*, TA+37*, TA+38*, TA+39*, I023+1! | 
| >> BGPN5 | I18+1*, TA+41* | 
| >> BGPN6 | I18+1* | 
| >> BGPN7 | I18+1* | 
| >> BGPN8 | I18+1* | 
| >> BGPN9 | I18+1* | 
| >> BGPRTYPE | TAEND+3 | 
| >> BGPSCPT | TA+8*, TA+14, TA+26, TA+27, TA+28, TA+33, TA+34, TA+38, TA+45 | 
| BGPSDX | TA+2*, TA+10, TA+44, TAEND+4! | 
| >> BGPSEX | I18+10 | 
| >> BGPSLDX | TA+5*, TA+11, TA+25, TA+39 | 
| >> BGPSMDX | TA+4*, TA+16, TA+24, TA+32 | 
| >> BGPSTOP | I18+2*, I18+11*, I023+2* | 
| BGPTOB | TA+1*, TA+9, TA+19, TA+21, TA+22, TA+41, TA+43, 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+23 | 
| >> BGPVAL | TA+17*, TA+21*, TA+22*, TA+23*, TA+24*, TA+25*, TA+27*, TA+28*, TA+31*, TA+32* , TA+34*, TA+37*, TA+38*, TA+39*, TA+41*, TA+42, TA+43*, TA+44*, TA+45*, TA+46* , TA+47*, TA+49, TAEND+2 | 
| BGPVALUE | TA+17*, TA+49*, TAEND+2*, I023+1!, I023+4*, I023+5, I023+6* | 
| BGPXPHD | I18+1*, TA+6*, TA+12, TA+46, 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+31, TA+37, TA+41, 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+31, TA+32 , TA+33, TA+34, TA+37, TA+38, TA+39, TA+41, TA+43, TA+44, TA+45, TA+46 , TA+47, 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+48*, TA+49, 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* |