APCHSMU2 ; IHS/CMI/LAB - utilities for hmr ;
Source file <APCHSMU2.m>
Package | Total | Call Graph |
---|---|---|
DRG Grouper | 2 | ($$CODEABA,$$ICDDX,$$ICDOP)^ICDEX ($$CODEN,$$CPT)^ICPTCOD |
IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
Patient Care Component | 1 | ($$FFD,$$REF,$$TYPEREF)^APCHSMU |
Patient Care Component Reports | 1 | $$LASTTD^APCLAPI4 |
Taxonomy | 1 | $$ICD^ATXAPI |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRCREFT(P,BDATE,EDATE,T) | ;EP - return ien of proc
|
|
CPTI(P,BDATE,EDATE,CPTI) | ;EP - did patient have this cpt (ien) in date range
|
|
WH(P,BDATE,EDATE,T,F) | ;EP
|
|
RADREF(P,BDATE,EDATE,T) | ;EP - return ien of CPT entry if patient had this CPT
|
|
S(X) | ;
|
|
LASTDXI(P,T,BDATE,EDATE) | ;EP
|
|
LASTTD(P) | ;EP
|
|
CPT(P,BDATE,EDATE,T,F) | ;EP - return ien of CPT entry if patient had this CPT
|
|
CPTREFT(P,BDATE,EDATE,T) | ;EP - return ien of CPT entry if patient had this CPT
|
|
LASTDX(P,T,BDATE,EDATE) | ;EP
|
|
MAMREF | ;EP
|
|
LASTCPTI(P,T,BDATE,EDATE) | ;EP
|
|
LASTPRCI(P,T,BDATE,EDATE) | ;EP
|
|
LASTPRC(P,T,BDATE,EDATE) | ;EP
|
Name | Field # of Occurrence |
---|---|
$$FFD^APCHSMU | CPTREFT+10, RADREF+12 |
$$REF^APCHSMU | MAMREF+1, MAMREF+2, MAMREF+3, MAMREF+4, MAMREF+5, MAMREF+6, MAMREF+7, MAMREF+8, MAMREF+9, MAMREF+10 , MAMREF+11 |
$$TYPEREF^APCHSMU | CPTREFT+10, RADREF+12 |
$$LASTTD^APCLAPI4 | LASTTD+2 |
$$ICD^ATXAPI | CPT+14, LASTDX+16, LASTPRC+15, CPTREFT+9, RADREF+10, PRCREFT+9 |
$$CODEABA^ICDEX | LASTDXI+7, LASTPRCI+7 |
$$ICDDX^ICDEX | LASTDX+17, LASTDXI+16 |
$$ICDOP^ICDEX | LASTPRC+16, LASTPRCI+16, PRCREFT+10 |
$$CODEN^ICPTCOD | LASTCPTI+7 |
$$CPT^ICPTCOD | CPT+26, LASTCPTI+16 |
$$VAL^XBDIQ1 | CPTREFT+10, RADREF+12 |
$$FMADD^XLFDT | WH+5, CPT+5, CPTREFT+4, RADREF+4, PRCREFT+4 |
$$FMTE^XLFDT | WH+20, CPT+22, CPTREFT+10, RADREF+12 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX("B" | LASTDX+7, LASTPRC+7 |
^AUPNPREF - [#9000022] | CPTREFT+8, RADREF+8, RADREF+11, PRCREFT+8, PRCREFT+10 |
^AUPNPREF("AA" | CPTREFT+7, CPTREFT+8, RADREF+7, RADREF+8, PRCREFT+7, PRCREFT+8 |
^AUPNVCPT - [#9000010.18] | CPT+14, CPT+21, CPT+22, CPT+26, LASTCPTI+13 |
^AUPNVCPT("AA" | CPTI+6, CPTI+9, LASTCPTI+11, LASTCPTI+12 |
^AUPNVCPT("AD" | CPT+12, CPT+13 |
^AUPNVPOV - [#9000010.07] | LASTDX+13, LASTDXI+13 |
^AUPNVPOV("AA" | LASTDX+11, LASTDX+12, LASTDXI+11, LASTDXI+12 |
^AUPNVPRC - [#9000010.08] | LASTPRC+13, LASTPRCI+13 |
^AUPNVPRC("AA" | LASTPRC+11, LASTPRC+12, LASTPRCI+11, LASTPRCI+12 |
^AUPNVSIT - [#9000010] | CPT+11, CPT+21, CPT+22, CPT+26 |
^AUPNVSIT("AA" | CPT+9, CPT+10 |
^BWPCD - [#9002086.1] | WH+9, WH+10, WH+11, WH+19, WH+20 |
^BWPCD("C" | WH+8 |
^DPT - [#2] | LASTDX+5, LASTDXI+5, LASTPRC+5, LASTPRCI+5, LASTCPTI+5 |
^ICD9 - [#80] | LASTDX+15 |
^ICPT - [#81] | CPTI+5 |
^RAMIS(71 - [#71] | RADREF+9, MAMREF+1, MAMREF+2, MAMREF+3, MAMREF+4, MAMREF+5, MAMREF+6, MAMREF+7, MAMREF+8, MAMREF+9 , MAMREF+10, MAMREF+11 |
Name | Line Occurrences |
---|---|
S | MAMREF+1, MAMREF+2, MAMREF+3, MAMREF+4, MAMREF+5, MAMREF+6, MAMREF+7, MAMREF+8, MAMREF+9, MAMREF+10 , MAMREF+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | S+1~* |
APCHDX1 | LASTDX+3~, LASTDX+4*, LASTDX+11*, LASTDX+12, LASTDX+17, LASTDXI+3~, LASTDXI+4*, LASTDXI+11*, LASTDXI+12, LASTDXI+16 , LASTPRC+3~, LASTPRC+4*, LASTPRC+11*, LASTPRC+12, LASTPRC+16, LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+11*, LASTPRCI+12, LASTPRCI+16 , LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+11*, LASTCPTI+12, LASTCPTI+16 |
APCHDX2 | LASTDX+3~, LASTDX+4*, LASTDX+12*, LASTDX+13, LASTDX+17, LASTDXI+3~, LASTDXI+4*, LASTDXI+12*, LASTDXI+13, LASTDXI+16 , LASTPRC+3~, LASTPRC+4*, LASTPRC+12*, LASTPRC+13, LASTPRC+16, LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+12*, LASTPRCI+13, LASTPRCI+16 , LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+12*, LASTCPTI+13, LASTCPTI+16 |
APCHDX3 | LASTDX+3~, LASTDX+4*, LASTDX+13*, LASTDX+14, LASTDX+15, LASTDX+16, LASTDX+17, LASTDXI+3~, LASTDXI+4*, LASTDXI+13* , LASTDXI+14, LASTDXI+15, LASTDXI+16, LASTPRC+3~, LASTPRC+4*, LASTPRC+13*, LASTPRC+14, LASTPRC+15, LASTPRC+16, LASTPRCI+3~ , LASTPRCI+4*, LASTPRCI+13*, LASTPRCI+14, LASTPRCI+15, LASTPRCI+16, LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+13*, LASTCPTI+14, LASTCPTI+15 , LASTCPTI+16 |
APCHDX4 | LASTDX+3~, LASTDX+4*, LASTDX+9*, LASTDX+11, LASTDX+12, LASTDX+17*, LASTDX+20, LASTDXI+4*, LASTDXI+9*, LASTDXI+11 , LASTDXI+12, LASTDXI+16*, LASTDXI+19, LASTPRC+3~, LASTPRC+4*, LASTPRC+9*, LASTPRC+11, LASTPRC+12, LASTPRC+16*, LASTPRC+19 , LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+9*, LASTPRCI+11, LASTPRCI+12, LASTPRCI+16*, LASTPRCI+19, LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+9* , LASTCPTI+11, LASTCPTI+12, LASTCPTI+16*, LASTCPTI+19 |
APCHDX5 | LASTDXI+3~ |
APCHDXBD | LASTDX+3~, LASTDX+10*, LASTDX+11, LASTDXI+3~, LASTDXI+10*, LASTDXI+11, LASTPRC+3~, LASTPRC+10*, LASTPRC+11, LASTPRCI+3~ , LASTPRCI+10*, LASTPRCI+11, LASTCPTI+3~, LASTCPTI+10*, LASTCPTI+11 |
APCHDXED | LASTDX+3~, LASTDX+10*, LASTDX+11, LASTDXI+3~, LASTDXI+10*, LASTDXI+11, LASTPRC+3~, LASTPRC+10*, LASTPRC+11, LASTPRCI+3~ , LASTPRCI+10*, LASTPRCI+11, LASTCPTI+3~, LASTCPTI+10*, LASTCPTI+11 |
>> APCHLAST | MAMREF+1, MAMREF+2, MAMREF+3, MAMREF+4, MAMREF+5, MAMREF+6, MAMREF+7, MAMREF+8, MAMREF+9, MAMREF+10 , MAMREF+11 |
>> APCHSPAT | MAMREF+1, MAMREF+2, MAMREF+3, MAMREF+4, MAMREF+5, MAMREF+6, MAMREF+7, MAMREF+8, MAMREF+9, MAMREF+10 , MAMREF+11 |
>> APCHSTEX( | S+1, S+2* |
APCHSVDT | CPT+24~, CPT+26* |
APCHTX5 | LASTDX+3~, LASTDX+4*, LASTDX+7*, LASTDX+8, LASTDX+16, LASTDXI+3~, LASTDXI+4*, LASTDXI+7*, LASTDXI+8, LASTDXI+15 , LASTPRC+3~, LASTPRC+4*, LASTPRC+7*, LASTPRC+8, LASTPRC+15, LASTPRCI+3~, LASTPRCI+4*, LASTPRCI+7*, LASTPRCI+8, LASTPRCI+15 , LASTCPTI+3~, LASTCPTI+4*, LASTCPTI+7*, LASTCPTI+8, LASTCPTI+11, LASTCPTI+12, LASTCPTI+15 |
BD | CPT+7~, CPT+8*, CPT+9, CPTI+7~, CPTI+8*, CPTI+9 |
BDATE | WH~, WH+5*, WH+12, CPT~, CPT+5*, CPT+8, LASTDX~, LASTDX+5*, LASTDX+10, LASTDXI~ , LASTDXI+5*, LASTDXI+10, LASTPRC~, LASTPRC+5*, LASTPRC+10, LASTPRCI~, LASTPRCI+5*, LASTPRCI+10, CPTI~, CPTI+3 , CPTI+8, LASTCPTI~, LASTCPTI+5*, LASTCPTI+10, CPTREFT~, CPTREFT+4*, CPTREFT+8, RADREF~, RADREF+4*, RADREF+8 , PRCREFT~, PRCREFT+4*, PRCREFT+8 |
C | RADREF+5~, RADREF+9*, RADREF+10, RADREF+12, S+1~*, S+2 |
CPTI | CPTI~, CPTI+2, CPTI+5, CPTI+9 |
D | WH+7~, WH+11*, WH+12, WH+13, WH+19*, WH+20*, CPT+7~, CPTI+7~, CPTREFT+8*, CPTREFT+10 , RADREF+8*, RADREF+12, PRCREFT+8*, PRCREFT+10 |
DT | LASTDX+6, LASTDXI+6, LASTPRC+6, LASTPRCI+6, LASTCPTI+6 |
ED | CPT+7~, CPT+8*, CPT+9*, CPT+10, CPTI+7~, CPTI+8*, CPTI+9* |
EDATE | WH~, WH+4, WH+5, WH+13, CPT~, CPT+4, CPT+5, CPT+8, LASTDX~, LASTDX+6* , LASTDX+10, LASTDXI~, LASTDXI+6*, LASTDXI+10, LASTPRC~, LASTPRC+6*, LASTPRC+10, LASTPRCI~, LASTPRCI+6*, LASTPRCI+10 , CPTI~, CPTI+4, CPTI+8, LASTCPTI~, LASTCPTI+6*, LASTCPTI+10, CPTREFT~, CPTREFT+3, CPTREFT+4, CPTREFT+8 , RADREF~, RADREF+3, RADREF+4, RADREF+8, PRCREFT~, PRCREFT+3, PRCREFT+4, PRCREFT+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 , CPTI+7~, CPTI+8*, CPTI+9*, CPTI+10, CPTREFT+5~, CPTREFT+6*, CPTREFT+7, CPTREFT+8, CPTREFT+10*, CPTREFT+12 , RADREF+5~, RADREF+6*, RADREF+7, RADREF+8, RADREF+12*, RADREF+14, PRCREFT+5~, PRCREFT+6*, PRCREFT+7, PRCREFT+8* , PRCREFT+10*, PRCREFT+12 |
I | CPTREFT+5~, CPTREFT+7*, CPTREFT+8, CPTREFT+9, CPTREFT+10, RADREF+5~, RADREF+7*, RADREF+8, RADREF+9, PRCREFT+5~ , PRCREFT+7*, PRCREFT+8, PRCREFT+9, PRCREFT+10 |
>> N | RADREF+11* |
P | WH~, WH+1, WH+8, CPT~, CPT+1, CPT+9, CPT+10, LASTDX~, LASTDX+1, LASTDX+5 , LASTDX+11, LASTDX+12, LASTDXI~, LASTDXI+1, LASTDXI+5, LASTDXI+11, LASTDXI+12, LASTPRC~, LASTPRC+1, LASTPRC+5 , LASTPRC+11, LASTPRC+12, LASTPRCI~, LASTPRCI+1, LASTPRCI+5, LASTPRCI+11, LASTPRCI+12, CPTI~, CPTI+1, CPTI+6 , CPTI+9, LASTCPTI~, LASTCPTI+1, LASTCPTI+5, LASTCPTI+11, LASTCPTI+12, CPTREFT~, CPTREFT+1, CPTREFT+7, CPTREFT+8 , RADREF~, RADREF+1, RADREF+7, RADREF+8, LASTTD~, LASTTD+1, LASTTD+2, PRCREFT~, PRCREFT+1, PRCREFT+7 , PRCREFT+8 |
T | WH~, WH+2, WH+10, CPT~, CPT+2, CPT+14, LASTDX~, LASTDX+7, LASTDXI~, LASTDXI+7 , LASTPRC~, LASTPRC+7, LASTPRCI~, LASTPRCI+7, LASTCPTI~, LASTCPTI+7, CPTREFT~, CPTREFT+2, CPTREFT+9, RADREF~ , RADREF+2, RADREF+10, PRCREFT~, PRCREFT+2, PRCREFT+9 |
U | WH+10, WH+11, WH+19, WH+20, CPT+14, CPT+21, CPT+22, CPT+26, LASTDX+5, LASTDX+13 , LASTDX+17, LASTDXI+5, LASTDXI+13, LASTDXI+16, LASTPRC+5, LASTPRC+13, LASTPRC+16, LASTPRCI+5, LASTPRCI+13, LASTPRCI+16 , LASTCPTI+5, LASTCPTI+13, LASTCPTI+16, CPTREFT+7, CPTREFT+8, RADREF+7, RADREF+8, RADREF+9, RADREF+11, PRCREFT+7 , PRCREFT+8, PRCREFT+10, MAMREF+1, MAMREF+2, MAMREF+3, MAMREF+4, MAMREF+5, MAMREF+6, MAMREF+7, MAMREF+8 , MAMREF+9, MAMREF+10, MAMREF+11 |
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*, CPTI+7~, MAMREF+1*, MAMREF+2*, MAMREF+3*, MAMREF+4*, MAMREF+5* , MAMREF+6*, MAMREF+7*, MAMREF+8*, MAMREF+9*, MAMREF+10*, MAMREF+11* |
X | WH+7~, CPT+7~, CPT+13*, CPT+14, CPTI+7~, CPTREFT+5~, CPTREFT+8*, RADREF+5~, RADREF+8*, PRCREFT+5~ , PRCREFT+8*, MAMREF+1*, MAMREF+2*, MAMREF+3*, MAMREF+4*, MAMREF+5*, MAMREF+6*, MAMREF+7*, MAMREF+8*, MAMREF+9* , MAMREF+10*, MAMREF+11*, S~, S+2 |
Y | WH+7~, CPT+7~, CPTI+7~, CPTREFT+5~, CPTREFT+8*, CPTREFT+10, RADREF+5~, RADREF+8*, RADREF+11, RADREF+12 , PRCREFT+5~, PRCREFT+8*, PRCREFT+10 |
Z | CPTREFT+5~, RADREF+5~, PRCREFT+5~ |