©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
APCLDM6 ; IHS/CMI/LAB - TOBACCO USE ;
Source file <APCLDM6.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component Reports | 2 | $$START1^APCLDF CUML^APCLDM1 |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LASTHT(P,F) | ;PEP - return last ht
|
|
| TOBACCO0 | ;check for tobacco documented in health factors
|
|
| TOBACCO | ;EP
|
|
| TOBCUML | ;
|
|
| BMI(P) | ;PEP - return BMI with last weight,last height
|
|
| RSTAT(R,S) | ;EP - return # pts on register REG with status STAT
|
|
| LASTWT(P,F) | ;PEP - return last wt
|
|
| TOBACCO3 | ;lookup in health status
|
|
| TOBACCO2 | ;check pov file for TOBACCO USE DOC
|
|
| TOBACCO1 | ;check problem file for tobacco use
|
|
| X1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACM(41 - [#9002241] | RSTAT+1, RSTAT+4 |
| ^ATXAX - [#9002226] | TOBACCO3+3 |
| ^ATXAX("B" | TOBACCO3+1 |
| ^AUPNHF("AA" | TOBACCO3+3 |
| ^AUPNPROB - [#9000011] | TOBACCO1+3, TOBACCO1+4 |
| ^AUPNVPOV - [#9000010.07] | TOBACCO2+2, TOBACCO2+3 |
| ^AUPNVSIT("AC" | LASTHT+2 |
| ^AUTNPOV - [#9999999.27] | TOBACCO1+3, TOBACCO1+4, TOBACCO2+2, TOBACCO2+3 |
| ^AUTTHF - [#9999999.64] | TOBACCO3+5 |
| ^TMP("APCL" | TOBACCO+3, TOBACCO+5, TOBACCO+7, TOBACCO+9, TOBACCO+10*, X1*, TOBACCO0+1*, TOBACCO3+6*, TOBACCO1+1*, TOBACCO2+1* |
| Name | Line Occurrences |
|---|---|
| $$LASTHT | BMI+5 |
| $$LASTWT | BMI+4 |
| TOBACCO0 | TOBACCO+4 |
| TOBACCO1 | TOBACCO+6 |
| TOBACCO2 | TOBACCO+8 |
| TOBACCO3 | TOBACCO+2 |
| TOBCUML | TOBACCO+3, TOBACCO+5, TOBACCO+7, TOBACCO+9, TOBACCO+11 |
| X1 | TOBACCO+3, TOBACCO+5, TOBACCO+7, TOBACCO+9, TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | TOBACCO3+1*, TOBACCO3+2, TOBACCO3+3, RSTAT+3~, RSTAT+4*, LASTHT+3~, LASTHT+4*, LASTWT+2~, LASTWT+3*, BMI+2~ , BMI+3*, BMI+4, BMI+5, BMI+7*, BMI+8 |
| APCL | TOBACCO0+1!, TOBACCO1+1!, TOBACCO2+1! |
| APCL(1 | TOBACCO0+1, TOBACCO0+2, TOBACCO0+3, TOBACCO1+1, TOBACCO1+3, TOBACCO1+4, TOBACCO2+1, TOBACCO2+2, TOBACCO2+3 |
| APCLARRY | LASTHT+3~, LASTWT+2~ |
| APCLARRY(1 | LASTHT+4, LASTWT+3 |
| >> APCLCUML | TOBCUML+1 |
| >> APCLDATE | TOBACCO2+1 |
| >> APCLER | X1, TOBACCO0+1*, TOBACCO1+1*, TOBACCO2+1* |
| >> APCLGOT1 | TOBCUML+1* |
| >> APCLPD | TOBACCO0+1, TOBACCO3+3, TOBACCO1+1, TOBACCO2+1 |
| >> APCLSUB | TOBCUML+1* |
| APCLTOB | TOBACCO+1!, TOBCUML+2! |
| APCLTOB( | TOBCUML+1, TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 |
| APCLTOB("" | TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 |
| APCLTOB(42 | TOBACCO0+2*, TOBACCO3+7* |
| APCLTOB(43 | TOBACCO0+3*, TOBACCO3+8*, TOBACCO1+3*, TOBACCO2+2* |
| APCLTOB(44 | TOBACCO+10* |
| APCLTOB(7 | TOBACCO0+4*, TOBACCO3+9*, TOBACCO1+4*, TOBACCO2+3* |
| APCLTOBN | TOBCUML+2!, TOBACCO0+1*, TOBACCO1+1*, TOBACCO2+1* |
| >> APCLX | TOBACCO0+1*, TOBACCO1+1*, TOBACCO2+1* |
| >> APCLY | TOBACCO0+1, TOBACCO1+1, TOBACCO2+1 |
| B | BMI+2~ |
| C | RSTAT+3~, RSTAT+4*, RSTAT+5 |
| E | LASTHT+3~, LASTHT+4*, LASTWT+2~, LASTWT+3* |
| F | LASTHT~, LASTHT+7, LASTWT~ |
| H | LASTHT+3~, LASTHT+4*, LASTHT+5, LASTHT+6*, LASTHT+7, BMI+2~, BMI+5*, BMI+7* |
| P | LASTHT~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT~, LASTWT+1, LASTWT+3, BMI~, BMI+1, BMI+4 , BMI+5 |
| R | RSTAT~, RSTAT+1, RSTAT+4 |
| S | RSTAT~, RSTAT+2, RSTAT+4 |
| U | TOBACCO0+2, TOBACCO0+3, TOBACCO3+5, TOBACCO1+3, TOBACCO1+4, TOBACCO2+2, TOBACCO2+3, RSTAT+4, LASTHT+4, LASTWT+3 |
| W | LASTWT+2~, LASTWT+3*, LASTWT+4, BMI+2~, BMI+4*, BMI+7* |
| X | TOBACCO3+3*, LASTHT+4~, LASTWT+3~ |
| >> Y | TOBACCO3+3*, TOBACCO3+4, TOBACCO3+5*, TOBACCO3+6, TOBACCO3+7, TOBACCO3+8 |