BHSMU2 ;IHS/CIA/MGH - Health Summary Utilities ;17-Mar-2009 16:21;MGH
Source file <BHSMU2.m>
Package | Total | Call Graph |
---|---|---|
DRG Grouper | 1 | $$CPT^ICPTCOD |
Health Summary Components | 1 | (,$$BI)^BHSMU1 |
Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
Patient Care Component Reports | 1 | $$START1^APCLDF |
Taxonomy | 1 | $$ICD^ATXCHK |
Package | Total | Caller Graph |
---|---|---|
Health Summary Components | 2 | BHSDM3 BHSDM4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
LASTTDO | ;
|
|
LASTTDN | ;
|
|
WH(P,BDATE,EDATE,T,F) | ;EP
|
|
LASTFLN | ;
|
|
LASTFLO | ;
|
|
LASTPNO | ;
|
|
LASTTD(P) | ;EP
|
|
CPT(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT
|
|
LASTPN(P) | ;EP
|
|
LASTPNN | ;
|
|
LASTFLU(P) | ;EP
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVCPT - [#9000010.18] | CPT+14, CPT+21, CPT+22, CPT+26 |
^AUPNVCPT("AA" | LASTTD+6, LASTPN+6, LASTFLU+6 |
^AUPNVCPT("AD" | CPT+12, CPT+13 |
^AUPNVIMM - [#9000010.11] | LASTTDN+2, LASTTDN+5, LASTTDO+2, LASTTDO+5, LASTPNN+2, LASTPNN+5, LASTPNO+2, LASTPNO+5, LASTFLN+2, LASTFLN+5 , LASTFLO+2, LASTFLO+5 |
^AUPNVIMM("AC" | LASTTDN+1, LASTTDO+1, LASTPNN+1, LASTPNO+1, LASTFLN+1, LASTFLO+1 |
^AUPNVSIT - [#9000010] | LASTTDN+6, LASTTDO+6, LASTPNN+6, LASTPNO+6, LASTFLN+6, LASTFLO+6, CPT+11, CPT+21, CPT+22, CPT+26 |
^AUPNVSIT("AA" | CPT+9, CPT+10 |
^AUTTIMM - [#9999999.14] | LASTTDN+3, LASTTDN+4, LASTTDO+3, LASTTDO+4, LASTPNN+3, LASTPNN+4, LASTPNO+3, LASTPNO+4, LASTFLN+3, LASTFLN+4 , LASTFLO+3, LASTFLO+4 |
^BWPCD - [#9002086.1] | WH+9, WH+10, WH+11, WH+19, WH+20 |
^BWPCD("C" | WH+8 |
^ICPT("B" | LASTTD+6, LASTPN+6, LASTFLU+6 |
Name | Line Occurrences |
---|---|
LASTFLN | LASTFLU+4 |
LASTFLO | LASTFLU+3 |
LASTPNN | LASTPN+4 |
LASTPNO | LASTPN+3 |
LASTTDN | LASTTD+4 |
LASTTDO | LASTTD+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | LASTTD+6*, LASTPN+6*, LASTFLU+6*, LASTFLU+7*, LASTFLU+9*, LASTFLU+11*, LASTFLU+13* |
%DT | LASTTD+1~, LASTPN+1~, LASTFLU+1~ |
APCHSVDT | CPT+24~, CPT+26* |
B | LASTTD+1~, LASTTDN+2*, LASTTDN+3, LASTTDN+4*, LASTTDN+7, LASTTDN+8, LASTTDN+9, LASTTDN+10, LASTTDN+11, LASTTDN+12 , LASTTDN+13, LASTTDN+14, LASTTDN+15, LASTTDN+16, LASTTDO+2*, LASTTDO+3, LASTTDO+4*, LASTTDO+7, LASTTDO+8, LASTTDO+9 , LASTTDO+10, LASTTDO+11, LASTPN+1~, LASTPNN+2*, LASTPNN+3, LASTPNN+4*, LASTPNN+7, LASTPNN+8, LASTPNN+9, LASTPNO+2* , LASTPNO+3, LASTPNO+4*, LASTPNO+7, LASTFLU+1~, LASTFLN+2*, LASTFLN+3, LASTFLN+4*, LASTFLN+7, LASTFLN+8, LASTFLN+9 , LASTFLN+10, LASTFLO+2*, LASTFLO+3, LASTFLO+4*, LASTFLO+7 |
BD | CPT+7~, CPT+8*, CPT+9 |
BDATE | WH~, WH+5*, WH+12, CPT~, CPT+5*, CPT+8 |
BHSY | LASTTD+1~, LASTPN+1~, LASTFLU+1~, LASTFLU+7!, LASTFLU+9!, LASTFLU+11!, LASTFLU+13! |
BHSY(1 | LASTFLU+8, LASTFLU+10, LASTFLU+12, LASTFLU+14 |
D | LASTTD+1~, LASTTDN+5*, LASTTDN+6*, LASTTDN+7, LASTTDN+8, LASTTDN+9, LASTTDN+10, LASTTDN+11, LASTTDN+12, LASTTDN+13 , LASTTDN+14, LASTTDN+15, LASTTDN+16, LASTTDO+5*, LASTTDO+6*, LASTTDO+7, LASTTDO+8, LASTTDO+9, LASTTDO+10, LASTTDO+11 , LASTPN+1~, LASTPNN+5*, LASTPNN+6*, LASTPNN+7, LASTPNN+8, LASTPNN+9, LASTPNO+5*, LASTPNO+6*, LASTPNO+7, LASTFLU+1~ , LASTFLN+5*, LASTFLN+6*, LASTFLN+7, LASTFLN+8, LASTFLN+9, LASTFLN+10, LASTFLO+5*, LASTFLO+6*, LASTFLO+7, WH+7~ , WH+11*, WH+12, WH+13, WH+19*, WH+20*, CPT+7~ |
E | LASTTD+1~, LASTPN+1~, LASTFLU+1~, LASTFLU+7*, LASTFLU+9*, LASTFLU+11*, LASTFLU+13* |
ED | CPT+7~, CPT+8*, CPT+9*, CPT+10 |
EDATE | WH~, WH+4, WH+5, WH+13, CPT~, CPT+4, CPT+5, CPT+8 |
F | WH~, WH+3*, WH+17, WH+18, WH+19, WH+20, CPT~, CPT+3*, CPT+19, CPT+20 , CPT+21, CPT+22, CPT+26 |
G | WH+7~, WH+8*, WH+14*, WH+16, WH+17, WH+18, WH+19, WH+20, CPT+7~, CPT+8* , CPT+9, CPT+10, CPT+13, CPT+14*, CPT+18, CPT+19, CPT+20, CPT+21, CPT+22, CPT+26 |
P | LASTTD~, LASTTD+6, LASTTDN+1, LASTTDO+1, LASTPN~, LASTPN+6, LASTPNN+1, LASTPNO+1, LASTFLU~, LASTFLU+6 , LASTFLU+7, LASTFLU+9, LASTFLU+11, LASTFLU+13, LASTFLN+1, LASTFLO+1, WH~, WH+1, WH+8, CPT~ , CPT+1, CPT+9, CPT+10 |
T | LASTTD+6*, LASTPN+6*, LASTFLU+6*, WH~, WH+2, WH+10, CPT~, CPT+2, CPT+14 |
TDD | LASTTD+1~, LASTTD+2!, LASTTD+7, LASTPN+1~, LASTPN+2!, LASTPN+7, LASTFLU+1~, LASTFLU+2!, LASTFLU+15 |
TDD( | LASTTD+6*, LASTPN+6*, LASTFLU+6* |
TDD(0 | LASTTD+8, LASTPN+8, LASTFLU+16 |
TDD(9999999 | LASTTDN+7*, LASTTDN+8*, LASTTDN+9*, LASTTDN+10*, LASTTDN+11*, LASTTDN+12*, LASTTDN+13*, LASTTDN+14*, LASTTDN+15*, LASTTDN+16* , LASTTDO+7*, LASTTDO+8*, LASTTDO+9*, LASTTDO+10*, LASTTDO+11*, LASTPNN+7*, LASTPNN+8*, LASTPNN+9*, LASTPNO+7*, LASTFLU+8* , LASTFLU+10*, LASTFLU+12*, LASTFLU+14*, LASTFLN+7*, LASTFLN+8*, LASTFLN+9*, LASTFLN+10*, LASTFLO+7* |
U | LASTTDN+2, LASTTDN+4, LASTTDN+5, LASTTDN+6, LASTTDO+2, LASTTDO+4, LASTTDO+5, LASTTDO+6, LASTPNN+2, LASTPNN+4 , LASTPNN+5, LASTPNN+6, LASTPNO+2, LASTPNO+4, LASTPNO+5, LASTPNO+6, LASTFLU+8, LASTFLU+10, LASTFLU+12, LASTFLU+14 , LASTFLN+2, LASTFLN+4, LASTFLN+5, LASTFLN+6, LASTFLO+2, LASTFLO+4, LASTFLO+5, LASTFLO+6, WH+10, WH+11 , WH+19, WH+20, CPT+14, CPT+21, CPT+22, CPT+26 |
V | WH+7~, WH+8*, WH+9, WH+10, WH+11, WH+14, CPT+7~, CPT+10*, CPT+11, CPT+12 , CPT+13, CPT+21*, CPT+22*, CPT+26* |
X | LASTTD+1~, LASTTD+6*, LASTTDN+1*, LASTTDN+2, LASTTDN+5, LASTTDO+1*, LASTTDO+2, LASTTDO+5, LASTPN+1~, LASTPN+6* , LASTPNN+1*, LASTPNN+2, LASTPNN+5, LASTPNO+1*, LASTPNO+2, LASTPNO+5, LASTFLU+1~, LASTFLU+6*, LASTFLN+1*, LASTFLN+2 , LASTFLN+5, LASTFLO+1*, LASTFLO+2, LASTFLO+5, WH+7~, CPT+7~, CPT+13*, CPT+14 |
Y | LASTTD+1~, LASTPN+1~, LASTFLU+1~, WH+7~, CPT+7~ |
Name | Field # of Occurrence |
---|---|
$T(FLUCPTS+%^BHSMU1 | LASTFLU+6 |
$T(PNCPTS+%^BHSMU1 | LASTPN+6 |
$T(TDCPTS+%^BHSMU1 | LASTTD+6 |