©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
BGPD29 ; IHS/CMI/LAB - indicator 29 ;
Source file <BGPD29.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| Patient Care Component Reports | 1 | $$START1^APCLDF |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| I29 | ;EP ;EP - indicator 29
|
|
| S1 | ;
|
|
| SETPA(R,N,P,P1,S,V) | ;
|
|
| HTWTSD(P,BDATE,EDATE) | ;get last ht / wt on same day
|
|
| BMI(P,EDATE,AGE) | ;EP
|
|
| OB(P,BMI,A) | ;EP obese
|
|
| HT(P,BDATE,EDATE) | ;EP
|
|
| WT(P,BDATE,EDATE) | ;EP
|
|
| OW(P,BMI,A) | ;EP overweight
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCLBMI - [#9001003.9] | OB+7, OB+8, OW+7, OW+8 |
| ^APCLBMI("H" | OB+4, OB+5, OW+4, OW+5 |
| ^AUPNPAT - [#9000001] | I29+18 |
| ^AUPNVPOV - [#9000010.07] | WT+8 |
| ^AUPNVPOV("AD" | WT+6, WT+7 |
| ^BGPD - [#90240.01] | SETPA+2, SETPA+8* |
| ^DPT - [#2] | I29+2, I29+18, OB+2, OW+2, BMI+7 |
| ^XTMP("BGPD" | I29+18* |
| Name | Line Occurrences |
|---|---|
| $$BMI | I29+3, I29+6 |
| $$HT | BMI+8 |
| $$HTWTSD | BMI+12 |
| $$OB | I29+5, I29+8 |
| $$OW | I29+4, I29+7 |
| $$WT | BMI+6 |
| S1 | I29+9, I29+10, I29+11, I29+12, I29+13, I29+14, I29+15, I29+16, I29+17 |
| SETPA | S1+2, S1+3, S1+4, S1+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | HT+2~, HT+3*, WT+2~, BMI+2~, BMI+4*, BMI+5, BMI+11*, BMI+13, BMI+14, BMI+18* , BMI+19, HTWTSD+2~, HTWTSD+4*, HTWTSD+9* |
| %DT | BMI+2~ |
| A | OB~, OB+4, OB+5, OW~, OW+4, OW+5 |
| AGE | BMI~, BMI+5 |
| B | BMI+2~ |
| BDATE | HT~, HT+3, WT~, WT+3, BMI+2~, BMI+3*, BMI+6, BMI+12, HTWTSD~, HTWTSD+4 , HTWTSD+9 |
| >> BGPAGEE | I29+3, I29+4, I29+5, I29+6, I29+7, I29+8, I29+9, I29+10, I29+11, I29+12 , I29+13, I29+14, I29+15, I29+16, I29+17, I29+18 |
| BGPARRY | HT+2~ |
| BGPARRY(1 | HT+3 |
| >> BGPBMI | I29+3*, I29+4, I29+5, I29+6*, I29+7, I29+8, I29+18 |
| >> BGPBMIC | I29+3*, I29+6*, S1+3 |
| >> BGPEDATE | I29+3, I29+6 |
| >> BGPH | I29+18 |
| >> BGPJ | I29+18 |
| BGPL | WT+2~, WT+3! |
| BGPL( | WT+4, WT+5, WT+6, WT+15 |
| BGPLCHT | HTWTSD+13~*, HTWTSD+14 |
| BGPLD | WT+2~, WT+7*, WT+8 |
| BGPLHTS | HTWTSD+2~ |
| BGPLHTS( | HTWTSD+5!, HTWTSD+7, HTWTSD+13 |
| BGPLHTS1 | HTWTSD+2~, HTWTSD+7! |
| BGPLHTS1( | HTWTSD+7*, HTWTSD+13 |
| >> BGPLIST(25 | I29+18 |
| BGPLN | WT+2~, WT+4*, WT+5, WT+6, WT+15 |
| BGPLW | WT+2~, WT+3*, WT+4, WT+6*, WT+7, WT+15*, WT+17 |
| BGPLWTS | HTWTSD+2~ |
| BGPLWTS( | HTWTSD+10!, HTWTSD+12, HTWTSD+13 |
| BGPLWTS1 | HTWTSD+2~, HTWTSD+12! |
| BGPLWTS1( | HTWTSD+12*, HTWTSD+13 |
| BGPLX | WT+2~, WT+3* |
| BGPLZ | WT+2~, WT+5*, WT+6, WT+7 |
| >> BGPOBE | I29+5*, I29+8*, S1+5 |
| >> BGPOVW | I29+4*, I29+7*, S1+4 |
| >> BGPPN | I29+9*, I29+10*, I29+11*, I29+12*, I29+13*, I29+14*, I29+15*, I29+16*, I29+17*, S1+2 , S1+3, S1+4, S1+5 |
| >> BGPPP | I29+9*, I29+10*, I29+11*, I29+12*, I29+13*, I29+14*, I29+15*, I29+16*, I29+17*, S1+2 , S1+3, S1+4, S1+5 |
| >> BGPRPT | S1+2, S1+3, S1+4, S1+5 |
| >> BGPSEX | I29+2*, S1+2, S1+3, S1+4, S1+5 |
| >> BGPTIME | I29+9, I29+10, I29+11, I29+12, I29+13, I29+14, I29+15, I29+16, I29+17, I29+18 |
| BMI | OB~, OB+1, OB+7, OB+8, OW~, OW+1, OW+7, OW+8 |
| D | BMI+2~ |
| >> DFN | I29+2, I29+3, I29+4, I29+5, I29+6, I29+7, I29+8, I29+18 |
| E | HT+2~, HT+3*, WT+2~, WT+3*, HTWTSD+4*, HTWTSD+9* |
| EDATE | HT~, HT+3, WT~, WT+3, BMI~, BMI+3*, BMI+6, BMI+8, BMI+12, HTWTSD~ , HTWTSD+4, HTWTSD+9 |
| F | SETPA+1~, SETPA+4*, SETPA+5*, SETPA+7 |
| H | HT+2~, HT+3*, HT+4, HT+5, HT+6*, HT+7, BMI+2~, BMI+8*, BMI+11*, BMI+15* , BMI+18* |
| >> HDATE | BMI+7*, BMI+8 |
| ICD | WT+2~, WT+8*, WT+9, WT+10, WT+11, WT+12, WT+13, WT+14 |
| M | SETPA+1~, SETPA+3*, SETPA+6*, SETPA+7 |
| N | SETPA~, SETPA+2, SETPA+8 |
| P | SETPA~, SETPA+2, SETPA+8, OB~, OB+2, OW~, OW+2, HT~, HT+1, HT+3 , WT~, WT+1, WT+3, BMI~, BMI+1, BMI+6, BMI+7, BMI+8, BMI+12, HTWTSD~ , HTWTSD+1, HTWTSD+4, HTWTSD+9 |
| P1 | SETPA~, SETPA+5, SETPA+6 |
| R | SETPA~, SETPA+2, SETPA+8, OB+4~*, OB+5*, OB+6, OB+7, OB+8, OW+4~*, OW+5* , OW+6, OW+7, OW+8 |
| S | SETPA~, SETPA+5, SETPA+6, OB+2~*, OB+3, OB+4, OB+5, OW+2~*, OW+3, OW+4 , OW+5 |
| U | I29+2, I29+18, SETPA+2, SETPA+8, OB+2, OB+7, OB+8, OW+2, OW+7, OW+8 , HT+3, WT+5, WT+6, WT+8, WT+15, BMI+7, HTWTSD+5, HTWTSD+7, HTWTSD+10, HTWTSD+12 , HTWTSD+13 |
| V | SETPA~, SETPA+5, SETPA+6 |
| W | BMI+2~, BMI+6*, BMI+11*, BMI+15*, BMI+18* |
| X | SETPA+1~, SETPA+2*, SETPA+3, SETPA+4, SETPA+7*, SETPA+8, HT+3~, WT+2~, BMI+12*, BMI+13 , BMI+14, BMI+15, HTWTSD+2~, HTWTSD+4~, HTWTSD+7*, HTWTSD+9~, HTWTSD+12*, HTWTSD+13* |
| Y | SETPA+1~, HTWTSD+2~, HTWTSD+5*, HTWTSD+10* |