©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
BHSDM6 ;IHS/CIA/MGH - Health Summary for Diabetic Supplement ;04-Aug-2011 14:33;MGH
Source file <BHSDM6.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Summary Components | 2 | $$REFDF^BHSDM3 $$DNKA^BHSDM4 |
| Patient Care Component Reports | 2 | $$START1^APCLDF ($$CLINIC,$$PRIMPROV)^APCLV |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Kernel | 1 | $$FMTE^XLFDT |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOBU | ;;
|
|
| CHEST(P) | ;EP - get date of last chest xray from V RAD or V CPT
|
|
| TOBACCO | ;EP
|
|
| DENTAL(P,APCHSED) | ;EP
|
|
| ADA(V) | ;any ada other than 9991
|
|
| TOBACCO3 | ;lookup in health status
|
|
| TOBACCO2 | ;check pov file for TOBACCO USE DOC
|
|
| TOBACCO1 | ;check problem file for tobacco use
|
|
| TOBACCO0 | ;check for tobacco documented in health factors
|
| Name | Field # of Occurrence |
|---|---|
| $$START1^APCLDF | DENTAL+3, DENTAL+6, DENTAL+9, TOBACCO1+2, TOBACCO2+1, CHEST+12, CHEST+14 |
| $$CLINIC^APCLV | DENTAL+15, DENTAL+19 |
| $$PRIMPROV^APCLV | DENTAL+13 |
| $$REFDF^BHSDM3 | DENTAL+17 |
| $$DNKA^BHSDM4 | DENTAL+13, DENTAL+15, DENTAL+19 |
| $$GET1^DIQ | TOBACCO0+17 |
| $$ICDDX^ICDCODE | TOBACCO1+4 |
| $$VAL^XBDIQ1 | TOBACCO3+13 |
| $$FMTE^XLFDT | DENTAL+5, DENTAL+7, DENTAL+9, DENTAL+14, DENTAL+16, DENTAL+20, DENTAL+21, TOBACCO0+18, TOBACCO3+13, CHEST+16 |
| FileNo | Call Tags |
|---|---|
| ^AUPNVHF - [#9000010.23] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNHF("AA" | TOBACCO3+6, TOBACCO3+7, TOBACCO3+9 |
| ^AUPNPROB - [#9000011] | TOBACCO1+4, TOBACCO1+5 |
| ^AUPNVCPT("AA" | CHEST+10 |
| ^AUPNVDEN - [#9000010.05] | ADA+3 |
| ^AUPNVDEN("AD" | DENTAL+19, ADA+3 |
| ^AUPNVHF("AA" | TOBACCO0+11, TOBACCO0+12, TOBACCO0+13 |
| ^AUPNVPOV - [#9000010.07] | TOBACCO2+2, TOBACCO2+3 |
| ^AUPNVRAD - [#9000010.22] | CHEST+6, CHEST+7 |
| ^AUPNVRAD("AC" | CHEST+5 |
| ^AUPNVSIT - [#9000010] | CHEST+6 |
| ^AUTNPOV - [#9999999.27] | TOBACCO1+4, TOBACCO1+5, TOBACCO2+2, TOBACCO2+3 |
| ^AUTTADA - [#9999999.31] | ADA+3 |
| ^AUTTEXAM("B" | DENTAL+17 |
| ^AUTTHF("AC" | TOBACCO0+10, TOBACCO3+5 |
| ^AUTTHF("B" | TOBACCO0+7, TOBACCO3+2 |
| ^ICPT("B" | CHEST+9 |
| ^RAMIS(71 - [#71] | CHEST+7 |
| ^TMP($J | DENTAL+8!, DENTAL+11, DENTAL+12! |
| Name | Line Occurrences |
|---|---|
| $$ADA | DENTAL+13, DENTAL+15, DENTAL+19 |
| TOBACCO0 | TOBACCO+4 |
| TOBACCO1 | TOBACCO+8 |
| TOBACCO2 | TOBACCO+10 |
| TOBACCO3 | TOBACCO+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | DENTAL+3~*, DENTAL+4*, DENTAL+5, DENTAL+6*, DENTAL+7*, DENTAL+9*, DENTAL+11*, CHEST+12*, CHEST+14* |
| APCH | TOBACCO1+1!, TOBACCO2+1! |
| APCH(1 | TOBACCO1+2, TOBACCO1+4, TOBACCO1+5, TOBACCO2+1, TOBACCO2+2, TOBACCO2+3 |
| APCHSED | DENTAL~, DENTAL+5, DENTAL+7, DENTAL+9 |
| APCHV | DENTAL+8! |
| APCHV( | DENTAL+13, DENTAL+15, DENTAL+19 |
| APCHV(9999999 | DENTAL+11* |
| APCHX | TOBACCO1+1!, TOBACCO1+2*, TOBACCO2+1* |
| BHDTOB | TOBACCO+1!, TOBACCO+5, TOBACCO+7, TOBACCO+9, TOBACCO+11, TOBACCO+12*, TOBACCO0+18*, TOBACCO3+13*, TOBACCO1+4*, TOBACCO1+5* , TOBACCO2+2*, TOBACCO2+3* |
| >> BHSDFN | TOBACCO3+6, TOBACCO3+7, TOBACCO3+9, TOBACCO1+2, TOBACCO2+1 |
| BHST | TOBACCO0+2~, TOBACCO0+4* |
| BHSY | DENTAL+1~, DENTAL+2!, DENTAL+6!, DENTAL+8!, DENTAL+9*, CHEST+12!, CHEST+14! |
| BHSY(1 | DENTAL+4, DENTAL+7, CHEST+13, CHEST+15 |
| BTIU | TOBACCO0+2~ |
| C | TOBACCO3+1~, TOBACCO3+2*, TOBACCO3+3, TOBACCO3+5 |
| CTG | TOBACCO0+2~, TOBACCO0+4, TOBACCO0+5*, TOBACCO0+6, TOBACCO0+7 |
| CTGN | TOBACCO0+2~, TOBACCO0+7*, TOBACCO0+10 |
| D | DENTAL+13~*, DENTAL+15*, DENTAL+19*, TOBACCO3+4~, TOBACCO3+7*, TOBACCO3+8, TOBACCO3+9, TOBACCO3+11*, TOBACCO3+12, TOBACCO3+13 , CHEST+3~, CHEST+10*, CHEST+11 |
| DENTDATE | DENTAL+1~, DENTAL+2!, DENTAL+4*, DENTAL+17, DENTAL+21 |
| >> DFN | TOBACCO0+3, TOBACCO0+11, TOBACCO0+12, TOBACCO0+13 |
| DT | DENTAL+9 |
| E | DENTAL+1~, DENTAL+3*, DENTAL+6*, DENTAL+9*, TOBACCO1+2*, TOBACCO2+1*, CHEST+12*, CHEST+14* |
| G | DENTAL+13~*, DENTAL+14, DENTAL+15*, DENTAL+16, DENTAL+17*, DENTAL+18, DENTAL+19*, DENTAL+20, CHEST+3~, ADA+2~ , ADA+3*, ADA+4 |
| H | TOBACCO3+4~*, TOBACCO3+5*, TOBACCO3+6, TOBACCO3+7, TOBACCO3+9 |
| HF | TOBACCO0+2~, TOBACCO0+9*, TOBACCO0+10*, TOBACCO0+11, TOBACCO0+12, TOBACCO0+13 |
| HFDT | TOBACCO0+2~, TOBACCO0+12*, TOBACCO0+13, TOBACCO0+16*, TOBACCO0+17, TOBACCO0+18 |
| LCHEST | CHEST+3~, CHEST+4*, CHEST+8*, CHEST+11*, CHEST+13*, CHEST+15*, CHEST+16 |
| LIST | TOBACCO0+2~ |
| LIST( | TOBACCO0+13*, TOBACCO0+17 |
| LIST(0 | TOBACCO0+15, TOBACCO0+16 |
| O | TOBACCO3+4~! |
| O( | TOBACCO3+9*, TOBACCO3+13 |
| O(0 | TOBACCO3+11 |
| P | DENTAL~, DENTAL+3, DENTAL+6, DENTAL+9, DENTAL+17, CHEST~, CHEST+2, CHEST+5, CHEST+10, CHEST+12 , CHEST+14 |
| PROV | DENTAL+13~*, DENTAL+15*, DENTAL+19* |
| RESULT | TOBACCO0+2~, TOBACCO0+17*, TOBACCO0+18 |
| T | CHEST+3~, CHEST+9* |
| U | DENTAL+4, DENTAL+7, DENTAL+11, TOBACCO1+4, TOBACCO1+5, TOBACCO2+2, TOBACCO2+3, CHEST+6, CHEST+7, CHEST+13 , CHEST+15, ADA+3 |
| V | DENTAL+13~*, DENTAL+15*, DENTAL+19*, CHEST+5*, CHEST+6*, CHEST+8, ADA~, ADA+1, ADA+3 |
| X | TOBACCO0+2~, CHEST+3~, CHEST+5*, CHEST+6, CHEST+7, CHEST+9*, CHEST+10, ADA+2~, ADA+3* |
| Y | CHEST+3~, CHEST+5*, CHEST+7*, CHEST+8, ADA+2~, ADA+3* |
| Z | CHEST+3~, ADA+2~ |
| Name | Field # of Occurrence |
|---|---|
| $T(TOBU+BHST | TOBACCO0+5 |