©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BGP9D7 ; IHS/CMI/LAB - measure 31 ;
Source file <BGP9D7.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 3 | ($$CPT,$$TRAN)^BGP9DU $$DATE^BGP9UTL ($$LASTDX,$$LASTPRC)^BGP9UTL1 |
| 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 |
|---|---|---|
| PREG(P,BDATE,EDATE,NORXCHR) | ;EP
|
|
| MA | ;now check for abortion or miscarriage
|
|
| I18 | ;EP
|
|
| LOINC(A,B) | ;
|
|
| AGE | ;
|
|
| TOBACCO(P,BDATE,EDATE) | ;EP
|
|
| I023 | ;EP - PHN
|
|
| PED(P,BDATE,EDATE) | ;EP
|
|
| PHNV(P,BDATE,EDATE,HOMELOC) | ;
|
|
| DX(P,BDATE,EDATE) | ;EP
|
|
| LASTHF(P,C,BDATE,EDATE) | ;EP - get last factor in category C for patient P
|
|
| CPTSM(P,BDATE,EDATE) | ;EP - did pat have smoking cpt?
|
|
| 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+6, MA+2 |
| $$CLINIC^APCLV | HOME+2, PREG+12 |
| $$PRIMPROV^APCLV | PREG+14 |
| $$ICD^ATXCHK | PROB+8, MA+12, DX+10 |
| $$AGE^AUPNPAT | AGE+2 |
| $$CPT^BGP9DU | MA+18, MA+21, CPTSM+2 |
| $$TRAN^BGP9DU | MA+24, MA+27 |
| $$DATE^BGP9UTL | TA+27, TA+28, TA+29, TA+30, TOBACCO0+7, LASTHF+13 |
| $$LASTDX^BGP9UTL1 | DX+2 |
| $$LASTPRC^BGP9UTL1 | MA+4 |
| $$ICDDX^ICDCODE | DX+3, DX+11 |
| $$VAL^XBDIQ1 | TOBACCO0+1, LASTHF+13 |
| $$VALI^XBDIQ1 | PHNV+10 |
| $$FMADD^XLFDT | I18+10, I18+12, PREG+17 |
| $$FMDIFF^XLFDT | AGE+1 |
| $$FMTE^XLFDT | PHNV+3, DENT+2, PED+3, PREG+6, MA+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX - [#9002226] | LOINC+3, LOINC+5 |
| ^ATXAX("B" | 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 | TA+33!, 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+1 |
| $$PED | TA+4 |
| $$PHNV | I023+4 |
| $$PREG | I18+10 |
| $$TOBACCO | TA+1 |
| AGE | PHNV+16 |
| HOME | PHNV+15 |
| MA | PREG+19 |
| PROB | PREG+8 |
| TOBACCO0 | TOBACCO+4 |
| TOBACCO1 | TOBACCO+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | TA+12*, TA+13*, TA+14*, TA+15, TA+17, TA+32!, PHNV+10*, PHNV+11*, PHNV+12, PHNV+14 , HOME+2, HOME+4, PED+5*, PED+10*, PED+11*, PED+12*, PED+13*, PED+14*, PED+15*, PED+16* , PED+17*, PED+18*, PED+19*, PED+20*, PED+21*, PED+22*, PED+23*, PED+24, 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 | TA+32!, PHNV+2*, PHNV+3, DENT+2*, LOINC~, LOINC+2, LOINC+4 |
| B | TA+32!, PHNV+3*, DENT+2*, DENT+8*, PREG+1~, PREG+2*, PREG+9*, PREG+17*, PREG+19, PROB+1 , LOINC~, LOINC+3, LOINC+5 |
| BDATE | TA+32!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+3, PREG~, PREG+6, PROB+6 , MA+4, DX~, DX+2, DX+8, TOBACCO~, TOBACCO1+1, TOBACCO0+5, LASTHF~, LASTHF+8, CPTSM~ , CPTSM+2 |
| BGP | TOBACCO+1! |
| BGP1320 | I18+1*, TA+5*, TA+9, TA+27, TA+32! |
| BGP20M | I18+12*, TA+1, TA+3, TA+4, TA+5, TA+6, TA+32! |
| >> BGP365 | TA+1, TA+3, TA+4, TA+5, TA+6, I023+4 |
| >> BGPACTCL | TA+20 |
| >> BGPACTUP | I18+3, I023+2 |
| >> BGPAGEB | I18+2, I18+4, I18+5, I18+6, I18+7, I18+8, I18+9 |
| >> BGPBOMB | AGE+7 |
| BGPD | PREG+1~, PREG+2*, PREG+16*, PROB+11, PROB+12*, MA+2, MA+9, MA+18, MA+21, MA+24 , MA+27 |
| >> BGPD1 | I18+1*, I18+3*, I18+11, TA+20 |
| >> 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+1, TA+3, TA+4, TA+5, TA+6, TA+20 |
| >> BGPD9 | I18+1* |
| BGPDX | PREG+1~ |
| BGPDX( | PREG+16* |
| >> BGPEDATE | I18+10, I18+12, TA+1, TA+3, TA+4, TA+5, TA+6, I023+4 |
| BGPG | PED+1!, PED+4, PREG+1~, PREG+4!, PREG+8, MA+2!, MA+4*, MA+5, DX+1! |
| BGPG( | PED+5, PED+6, PED+10, PED+11, PED+12, PED+13, PED+14, PED+15, PED+16, PED+17 , PED+18, PED+19, PED+20, PED+21, PED+22, PED+23, PREG+9, PREG+11, PREG+12, PREG+14 |
| BGPG(1 | MA+3, DX+2*, DX+3 |
| >> BGPHOME | I023+4 |
| BGPN1 | I18+1*, TA+2*, TA+7*, TA+8*, TA+9*, TA+10*, I023+1!, I023+3*, I023+5* |
| BGPN2 | I18+1*, TA+15*, I023+1!, I023+3* |
| BGPN3 | I18+1*, TA+17*, I023+1! |
| BGPN4 | I18+1*, TA+16*, TA+17, I023+1! |
| >> BGPN5 | I18+1*, TA+19* |
| >> BGPN6 | I18+1* |
| >> BGPSCPT | TA+6*, TA+10, TA+15, TA+16, TA+17, TA+30 |
| BGPSDX | TA+3*, TA+7, TA+13, TA+14, TA+15, TA+17, TA+28, TA+32! |
| >> BGPSEX | I18+10 |
| >> BGPSTOP | I18+2*, I18+11*, I023+2* |
| BGPTOB | TA+1*, TA+2, TA+11, TA+26, TOBACCO+1!, TOBACCO+3, TOBACCO+5, TOBACCO1+1!*, TOBACCO0+7* |
| BGPVALUE | TA+31*, I023+1!, I023+4*, I023+5, I023+6* |
| BGPXPND | I18+1*, TA+4*, TA+8, TA+29, TA+32! |
| C | TA+32!, PHNV+5*, PHNV+13*, PHNV+14*, PHNV+17, HOME+2*, HOME+4*, AGE+3*, AGE+4*, AGE+5* , AGE+6*, PREG+12*, PREG+13, PREG+14*, PREG+15, LASTHF~, LASTHF+1*, LASTHF+2, LASTHF+4 |
| CNT | PREG+1~, PREG+2*, PREG+16*, PREG+19 |
| D | TA+32!, PHNV+7*, PHNV+8*, PED+5*, PREG+11*, PREG+16, PREG+17, TOBACCO1+1!, 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+3, TA+4, TA+5, TA+6, I023+4 |
| E | TA+32!, PHNV+3*, DENT+2*, PED+3*, PREG+6*, MA+2*, TOBACCO0+3*, TOBACCO0+4, TOBACCO0+5, TOBACCO0+7 , TOBACCO0+8! |
| EDATE | TA+32!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+3, PREG~, PREG+6, PREG+17 , PROB+5, MA+2, MA+4, MA+10, MA+18, MA+21, MA+24, MA+27, DX~, DX+2 , DX+7, TOBACCO~, TOBACCO1+1, TOBACCO0+4, LASTHF~, LASTHF+7, CPTSM~, CPTSM+2 |
| F | TA+11*, TA+15, TA+16, TA+17, TA+19, TA+22, TA+23, TA+24, TA+25, TA+32! |
| >> G | DENT+4*, DENT+8*, DENT+10, DENT+11, PROB+3*, PROB+9*, PROB+11, PROB+12, MA+7*, MA+13* , MA+15, DX+5*, DX+11*, DX+13 |
| H | TA+32!, TOBACCO1+1!, 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 |
| NORXCHR | PREG~, PREG+3*, PREG+13, PREG+15 |
| O | TOBACCO1+1!, LASTHF+3! |
| O( | LASTHF+9*, LASTHF+13 |
| O(0 | LASTHF+11 |
| P | TA+32!, PHNV~, PHNV+3, AGE+1, AGE+2, DENT~, DENT+2, PED~, PED+3, PREG~ , PREG+6, PROB+3, MA+2, MA+4, MA+7, MA+18, MA+21, MA+24, MA+27, DX~ , DX+2, DX+5, TOBACCO~, TOBACCO1+1, TOBACCO0+1, TOBACCO0+3, LASTHF~, LASTHF+5, LASTHF+6, LASTHF+9 , CPTSM~, CPTSM+2 |
| >> Q | PHNV+8*, PHNV+9, PHNV+10 |
| S | TA+22*, TA+23*, TA+24*, TA+25*, TA+26*, TA+27*, TA+28*, TA+29*, TA+30*, TA+31 , TA+32! |
| >> T | PED+5*, PED+6*, PED+7, PED+8, PED+9*, PED+10, PED+11, PED+12, PED+13, PED+14 , PED+15, PED+16, PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23, 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+11, TA+13, TA+14, TA+15, TA+16, TA+17, TA+26, TA+27, TA+28, TA+29 , TA+30, 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+13, PED+14, PED+15, PED+16 , PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23, PREG+11, PREG+12, PREG+14 , 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+20*, TA+21*, TA+31, TA+32!, PHNV+5*, PHNV+8, HOME+2, HOME+4, AGE+1, AGE+2 , DENT+4*, DENT+5, DENT+6, DENT+7, DENT+8 |
| X | TA+32!, PHNV+5*, DENT+4*, PED+3*, PED+5*, PED+6, PED+10, PED+11, PED+12, PED+13 , PED+14, PED+15, PED+16, PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23 , PREG+6*, PREG+9*, PREG+11, PREG+12, PREG+14, 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 | TA+32!, PHNV+5*, PHNV+7*, PED+2*, PED+3, PREG+5*, PREG+6, 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 | TA+32!, PHNV+7*, DENT+8* |