©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
BGPD30 ; IHS/CMI/LAB - indicator 30 ;
Source file <BGPD30.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOBACCO(P,EDATE) | ;EP
|
|
| I30 | ;EP ;EP - indicator 30
|
|
| S(R,N,P,V) | ;
|
|
| TOBACCO1 | ;check for tobacco documented in health factors
|
|
| TOBACCO0 | ;lookup in health status
|
|
| LASTHF(P,C,EDATE) | ;EP - get last factor in category C for patient P
|
|
| SAGE(R,N,P,S,V) | ;set age into file
|
| Name | Field # of Occurrence |
|---|---|
| $$VAL^XBDIQ1 | TOBACCO0+1, LASTHF+15 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNHF("AA" | TOBACCO0+1, TOBACCO0+3 |
| ^AUPNPAT - [#9000001] | I30+9, I30+16, I30+23, I30+30 |
| ^AUPNVHF("AA" | LASTHF+8, LASTHF+9, LASTHF+11 |
| ^AUTTHF - [#9999999.64] | TOBACCO0+5 |
| ^AUTTHF("AC" | LASTHF+7 |
| ^AUTTHF("B" | LASTHF+4 |
| ^BGPD - [#90240.01] | SAGE+3, SAGE+5*, S+2* |
| ^DPT - [#2] | I30+2, I30+9, I30+16, I30+23, I30+30 |
| ^XTMP("BGPD" | I30+9*, I30+16*, I30+23*, I30+30* |
| Name | Line Occurrences |
|---|---|
| $$LASTHF | TOBACCO1+1 |
| $$TOBACCO | I30+5, I30+12, I30+19, I30+26 |
| SAGE | I30+4, I30+6, I30+7, I30+8, I30+11, I30+13, I30+14, I30+15, I30+18, I30+20 , I30+21, I30+22, I30+25, I30+27, I30+28, I30+29 |
| TOBACCO0 | TOBACCO+8 |
| TOBACCO1 | TOBACCO+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BGP | TOBACCO+4~ |
| >> BGPAGEB | I30+3, I30+10, I30+17, I30+24 |
| >> BGPAGEE | I30+9, I30+16, I30+23, I30+30 |
| >> BGPEDATE | I30+5, I30+12, I30+19, I30+26 |
| >> BGPH | I30+9, I30+16, I30+23, I30+30 |
| >> BGPJ | I30+9, I30+16, I30+23, I30+30 |
| >> BGPLIST(26 | I30+9, I30+16, I30+23, I30+30 |
| >> BGPP | I30+5*, I30+6, I30+7, I30+8, I30+9, I30+12*, I30+13, I30+14, I30+15, I30+16 , I30+19*, I30+20, I30+21, I30+22, I30+23, I30+26*, I30+27, I30+28, I30+29, I30+30 |
| >> BGPRPT | I30+4, I30+6, I30+7, I30+8, I30+11, I30+13, I30+14, I30+15, I30+18, I30+20 , I30+21, I30+22, I30+25, I30+27, I30+28, I30+29 |
| >> BGPSEX | I30+2*, I30+4, I30+6, I30+7, I30+8, I30+11, I30+13, I30+14, I30+15, I30+18 , I30+20, I30+21, I30+22, I30+25, I30+27, I30+28, I30+29 |
| >> BGPTIME | I30+4, I30+6, I30+7, I30+8, I30+9, I30+11, I30+13, I30+14, I30+15, I30+16 , I30+18, I30+20, I30+21, I30+22, I30+23, I30+25, I30+27, I30+28, I30+29, I30+30 |
| BGPTOB | TOBACCO+4~, TOBACCO+5!, TOBACCO+7, TOBACCO+9, TOBACCO1+1!*, TOBACCO0+6*, TOBACCO0+7*, TOBACCO0+8*, TOBACCO0+9*, TOBACCO0+10* |
| C | LASTHF~, LASTHF+2, LASTHF+4*, LASTHF+5, LASTHF+7 |
| D | LASTHF+6~, LASTHF+9*, LASTHF+10, LASTHF+11, LASTHF+13*, LASTHF+14, LASTHF+15 |
| >> DFN | I30+2, I30+5, I30+9, I30+12, I30+16, I30+19, I30+23, I30+26, I30+30 |
| E | TOBACCO+4~, TOBACCO0+3*, TOBACCO0+4 |
| EDATE | TOBACCO~, TOBACCO1+1, TOBACCO0+4, LASTHF~, LASTHF+10 |
| >> F | LASTHF+3* |
| H | LASTHF+6~*, LASTHF+7*, LASTHF+8, LASTHF+9, LASTHF+11 |
| N | SAGE~, SAGE+3, SAGE+5, S~, S+2 |
| O | LASTHF+6~! |
| O( | LASTHF+11*, LASTHF+15 |
| O(0 | LASTHF+13 |
| P | SAGE~, SAGE+3, SAGE+5, S~, S+2, TOBACCO~, TOBACCO+3, TOBACCO1+1, TOBACCO0+1, TOBACCO0+3 , LASTHF~, LASTHF+1, LASTHF+8, LASTHF+9, LASTHF+11 |
| R | SAGE~, SAGE+3, SAGE+5, S~, S+2 |
| S | SAGE~, SAGE+4 |
| U | I30+2, I30+9, I30+16, I30+23, I30+30, SAGE+3, SAGE+5, S+2, TOBACCO0+5 |
| V | SAGE~, SAGE+1, SAGE+4, S~, S+1, S+2 |
| X | SAGE+2~, SAGE+3*, SAGE+4*, SAGE+5, TOBACCO+4~, TOBACCO0+1* |
| Y | SAGE+2~, TOBACCO0+1*, TOBACCO0+2, TOBACCO0+3, TOBACCO0+5*, TOBACCO0+6, TOBACCO0+7, TOBACCO0+8, TOBACCO0+9 |