©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
BHSPMH2 ;IHS/MSC/MGH - Health Summary for Patient wellness handout ;17-Mar-2009 15:49;MGH
Source file <BHSPMH2.m>
| Package | Total | Caller Graph |
|---|---|---|
| Health Summary Components | 2 | BHSPMH1 BHSPMH3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETLABSX | ;get lab tests ordered today
|
|
| BHSLHD | ;
|
|
| TYPEREF(N) | ;
|
|
| LOINC(A,B) | ;
|
|
| LAB(P,T,LT) | ;EP
|
|
| DATE(D) | ;EP - convert to slashed date
|
|
| GETLABS | ;get todays labs from V Lab File
|
|
| REF(P,T,D) | ;return refusal string after date D for test is tax T
|
|
| REF1(P,F,I,D,T) | ; ;
|
| Name | Field # of Occurrence |
|---|---|
| $$FMTE^XLFDT | LAB+14 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX - [#9002226] | LOINC+3, LOINC+5 |
| ^ATXLAB - [#9002228] | LAB+5, REF+4 |
| ^AUPNPREF - [#9000022] | TYPEREF+1 |
| ^AUPNPREF("AA" | REF1+6, REF1+8 |
| ^AUPNVLAB - [#9000010.09] | LAB+5, LAB+7, LAB+14, GETLABS+6, GETLABS+8 |
| ^AUPNVLAB("AE" | LAB+2, LAB+3, LAB+4, GETLABS+2, GETLABS+3, GETLABS+5 |
| ^AUPNVSIT - [#9000010] | LAB+14 |
| ^DPT - [#2] | GETLABSX+3, GETLABS+1 |
| ^LAB(60 - [#60] | GETLABSX+8, GETLABS+4 |
| ^LAB(95.3 - [#95.3] | LOINC+2, LOINC+4 |
| ^LRO(69 - [#69] | GETLABSX+5, GETLABSX+6, GETLABSX+7 |
| Name | Line Occurrences |
|---|---|
| $$DATE | REF1+10, REF1+12 |
| $$LOINC | LAB+8 |
| $$REF | LAB+13, LAB+14 |
| $$REF1 | REF+5 |
| $$TYPEREF | REF1+10, REF1+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | LOINC+1~, LOINC+2*, LOINC+3, LOINC+4*, LOINC+5, REF+6*, TYPEREF+1~*, TYPEREF+2, TYPEREF+3, TYPEREF+4 |
| A | LOINC~, LOINC+2, LOINC+4 |
| B | LOINC~, LOINC+3, LOINC+5 |
| BHSCTR | GETLABSX+2~, GETLABS+6*, GETLABS+7, GETLABS+8 |
| >> BHSDFN | GETLABSX+3 |
| BHSLR | GETLABSX+2~, GETLABSX+3*, GETLABSX+4, GETLABSX+5, GETLABS+1* |
| BHSLRO | GETLABSX+2~, GETLABSX+4*, GETLABSX+5*, GETLABSX+6, GETLABSX+7 |
| BHSREF | REF+4~, REF+6 |
| BHSREF( | REF+6 |
| BHSREF(9999999 | REF+5* |
| >> BHSSDFN | GETLABS+1, GETLABS+2, GETLABS+3, GETLABS+5 |
| BHSSIVD | GETLABSX+2~, GETLABS+2, GETLABS+3, GETLABS+5 |
| BHST | REF+4~*, REF+5 |
| BHSTCTR | GETLABSX+2~, GETLABSX+7* |
| BHSTEST | GETLABSX+2~, GETLABSX+8*, GETLABSX+9, GETLABS+4*, GETLABS+8 |
| BHSTST | GETLABSX+2~ |
| BHSTST( | GETLABSX+9*, GETLABS+4*, GETLABS+8* |
| BHSTSTP | GETLABSX+2~, GETLABSX+4*, GETLABSX+6*, GETLABSX+7, GETLABSX+8, GETLABS+2*, GETLABS+3*, GETLABS+4, GETLABS+5 |
| BHSVLAB | GETLABSX+2~, GETLABS+2*, GETLABS+5*, GETLABS+6, GETLABS+8 |
| D | LAB+2~*, LAB+3, LAB+4, DATE~, DATE+1, DATE+2, REF~, REF+3*, REF+5, REF1~ , REF1+4*, REF1+10 |
| DT | GETLABSX+5, GETLABSX+6, GETLABSX+7 |
| F | REF1~, REF1+2, REF1+6, REF1+8 |
| G | LAB+2~*, LAB+3, LAB+4, LAB+5*, LAB+9*, LAB+13, LAB+14 |
| I | REF1~, REF1+3, REF1+6, REF1+8 |
| J | LAB+2~, LAB+7*, LAB+8 |
| LT | LAB~, LAB+1*, LAB+6, LAB+8 |
| N | REF1+6~, REF1+8*, REF1+10, REF1+12, TYPEREF~, TYPEREF+1 |
| P | LAB~, LAB+2, LAB+3, LAB+4, LAB+13, LAB+14, REF~, REF+1, REF+5, REF1~ , REF1+1, REF1+6, REF1+8 |
| R | LAB+2~, LAB+13* |
| T | LAB~, LAB+5, LAB+13, LAB+14, REF~, REF+2, REF+4, REF1~, REF1+5*, REF1+10 , REF1+11 |
| U | LAB+5, LAB+7, LAB+14, LOINC+2, LOINC+4, REF+5, TYPEREF+1, GETLABSX+8, GETLABS+4, GETLABS+8 |
| V | LAB+2~, REF+4~, REF+5*, REF+6* |
| X | LAB+2~, LAB+3*, LAB+4, LAB+5, REF1+6~*, REF1+7, REF1+8, REF1+9 |
| Y | LAB+4*, LAB+5, LAB+7, LAB+9, REF1+9~*, REF1+10, REF1+11, REF1+12 |