ABMUTL8 ; IHS/ASDST/DMJ - 837 UTILITIES ;
Source file <ABMUTL8.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 4 | $$DX^ABMCVAPI $$FMT^ABMERUTL (ANES,CDSET,OCSET,OSSET,PXSET)^ABMUTL8A $$RCID^ABMUTLP |
Name | Comments | DBIA/ICR reference |
---|---|---|
DXA(X) | ;EP - Admitting DX
|
|
837 | ;EP - override for 837 5010 formats
|
|
OSSET(X) | ;EP -occurrence span set
|
|
PTAX(X) | ;EP - provider taxonomy
|
|
STRIP(X) | ;EP - strip trailing null data elements
|
|
PXSET(X) | ;EP -set px array
|
|
OCSET(X) | ;EP -occurrence set
|
|
OVER(ABMLN,ABMPCE) | ;EP - get override values from 3P Insurer file
|
|
WR(X) | ;EP - write to file
|
|
DXSET2(X) | ;EP - set dx array
|
|
AN(X) | ;EP - alpha numeric only
|
|
CDSET(X) | ;EP - condition code set
|
|
DXSET(X) | ;EP - set dx array
|
|
VASET(X) | ;EP -value code set
|
|
ANES(X) | ;EP - anesthesia charges set
|
|
DXP(X) | ;EP - Primary DX
|
|
DXE(X) | ;EP - E-Code
|
|
HRN(X) | ;PEP - HRN
; First look at Visit Loc for HRN ; If not then look at Parent Loc for HRN ; If not, loop Satellite Locs for said parent until one is found. |
Name | Field # of Occurrence |
---|---|
$$DX^ABMCVAPI | DXA+5, DXE+5, DXSET+15, DXSET+17, DXSET2+25, DXSET2+37, DXSET2+38, DXSET2+41, DXSET2+47, DXSET2+48 |
$$FMT^ABMERUTL | 837+53, 837+54 |
ANES^ABMUTL8A | ANES+1 |
CDSET^ABMUTL8A | CDSET+2 |
OCSET^ABMUTL8A | OCSET+2 |
OSSET^ABMUTL8A | OSSET+2 |
PXSET^ABMUTL8A | PXSET+2 |
$$RCID^ABMUTLP | WR+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMDBILL( | DXA+2, DXA+3, DXA+9, DXE+2, DXSET+8, DXSET+10, DXSET+17, DXSET2+7, DXSET2+9, DXSET2+21 , DXSET2+23, DXSET2+26, DXSET2+30, DXSET2+32, DXSET2+41, DXSET2+42, DXSET2+43, DXSET2+46, DXSET2+47, DXSET2+48 , VASET+6, VASET+7 |
^ABMDCODE - [#9002274.03] | VASET+10 |
^ABMNINS( | OVER+9, OVER+10, OVER+14, 837+3, 837+9, 837+11, 837+27, 837+30, 837+35, 837+36 |
^AUPNPAT - [#9000001] | HRN+4, HRN+10, HRN+15 |
^BAR(90052.05 | HRN+8, HRN+9, HRN+14 |
Name | Line Occurrences |
---|---|
$$STRIP | WR+3 |
DXSET | DXP+2 |
DXSET2 | DXSET+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABMBTYP | DXA+2~*, DXA+9, DXA+10 |
ABMCHAR | AN+3*, AN+4, AN+13! |
ABMCHAR( | AN+4*, AN+6 |
>> ABMCNT | DXSET+6*, DXSET+11*, DXSET+12, DXSET+13, DXSET+15, DXSET2+5*, DXSET2+19*, DXSET2+21, DXSET2+23, DXSET2+25 , DXSET2+26, DXSET2+28*, DXSET2+39*, DXSET2+41, DXSET2+42, DXSET2+43, VASET+3*, VASET+8*, VASET+9, VASET+10 , VASET+15 |
>> ABMDEBUG | WR+6, WR+10 |
>> ABMDELI | WR+1*, WR+2*, WR+9 |
ABMDX | DXSET+4!, DXSET2+2! |
ABMDX( | DXSET+12*, DXSET+13*, DXSET+15*, DXSET2+21*, DXSET2+23*, DXSET2+25*, DXSET2+26*, DXSET2+43* |
ABMDX("ADM" | DXSET+17*, DXSET2+47* |
ABMDX("ADMTYP" | DXSET2+48* |
ABMDX(1 | DXP+3 |
>> ABMDXA | DXA+3*, DXA+4, DXA+5*, DXA+6, DXA+7*, DXA+9*, DXA+10*, DXA+11 |
ABMDXE | DXE+2*, DXE+3, DXE+5*, DXE+6, DXSET2+3! |
ABMDXE( | DXSET2+41*, DXSET2+42* |
>> ABMDXP | DXP+3*, DXP+4 |
>> ABME("RTYPE" | 837+3, 837+4, 837+5, 837+6, 837+9, 837+11, 837+24, 837+25, 837+27, 837+30 , 837+35, 837+36, 837+52, 837+53, 837+54, 837+55 |
>> ABME("VTYP" | 837+1! |
>> ABMELE | 837+7*, 837+9*, 837+11, 837+12, 837+13, 837+14, 837+15, 837+16, 837+17, 837+18 , 837+19, 837+21, 837+22, 837+23, 837+28*, 837+30*, 837+35, 837+36, 837+39, 837+40 , 837+41, 837+42, 837+43, 837+44, 837+45, 837+46, 837+48, 837+49, 837+51 |
>> ABMELEM | 837+12*, 837+13*, 837+14*, 837+15*, 837+16*, 837+17*, 837+18*, 837+19*, 837+21*, 837+22* , 837+23*, 837+24, 837+25, 837+39*, 837+40*, 837+41*, 837+42*, 837+43*, 837+44*, 837+45* , 837+46*, 837+48*, 837+49*, 837+51*, 837+52, 837+53, 837+54, 837+55 |
>> ABMLINE | VASET+7*, VASET+10, VASET+15 |
ABMLN | OVER~, OVER+9, OVER+10, OVER+14 |
>> ABMLOOP | 837+3, 837+9, 837+11, 837+27, 837+30, 837+35, 837+36 |
ABMOVTYP | OVER+2~, OVER+9*, OVER+10*, OVER+12, OVER+14 |
>> ABMP("EXP" | DXSET+3, DXSET2+26, DXSET2+43, OVER+8, 837+3, 837+9, 837+11, 837+27, 837+30, 837+35 , 837+36 |
>> ABMP("INS" | WR+2, OVER+9, OVER+10, OVER+14, 837+3, 837+9, 837+11, 837+27, 837+30, 837+35 , 837+36 |
>> ABMP("LDFN" | HRN+4, HRN+8, HRN+9, OVER+9, OVER+10, OVER+14, 837+3, 837+9, 837+11, 837+27 , 837+30, 837+35, 837+36 |
>> ABMP("VDT" | DXA+5, DXE+5, DXSET+15, DXSET+17, DXSET2+25, DXSET2+37, DXSET2+38, DXSET2+41, DXSET2+47, DXSET2+48 |
>> ABMP("VTYP" | OVER+10, 837+36 |
>> ABMPAR | HRN+7*, HRN+8*, HRN+9*, HRN+10, HRN+12, HRN+14 |
ABMPCE | OVER~, OVER+9, OVER+10, OVER+14 |
ABMR | WR+13! |
ABMR( | 837+5!, 837+6*, 837+24*, 837+52* |
ABMREC | WR+13! |
ABMREC( | WR+3, 837+4*, 837+25*, 837+55* |
>> ABMSAT | HRN+13*, HRN+14*, HRN+15 |
>> ABMSTOT | WR+11* |
>> ABMSTRNG | WR+3*, WR+4, WR+7*, WR+8 |
>> ABMT("EXP" | OVER+8*, OVER+9, OVER+10, OVER+14 |
ABMVA | VASET+2! |
ABMVA( | VASET+9*, VASET+10*, VASET+15* |
>> ABMVALUE | OVER+1*, OVER+12, OVER+14*, OVER+15, 837+35*, 837+36*, 837+38, 837+52, 837+53*, 837+54* , 837+55 |
DUZ(2 | DXA+2, DXA+3, DXA+9, DXE+2, DXSET+8, DXSET+10, DXSET+17, DXSET2+7, DXSET2+9, DXSET2+21 , DXSET2+23, DXSET2+26, DXSET2+30, DXSET2+32, DXSET2+41, DXSET2+42, DXSET2+43, DXSET2+46, DXSET2+47, DXSET2+48 , VASET+6, VASET+7 |
>> HRN | HRN+4*, HRN+6, HRN+10*, HRN+11, HRN+14, HRN+15*, HRN+16 |
I | DXSET+5~, DXSET+7*, DXSET+8*, DXSET+10, DXSET2+4~, DXSET2+6*, DXSET2+7*, DXSET2+9, DXSET2+29*, DXSET2+30* , DXSET2+32, VASET+4~, VASET+5*, VASET+6*, VASET+7, STRIP+2~, STRIP+3*, STRIP+4, AN+1~, AN+2* , AN+3, AN+5*, AN+6*, AN+7, AN+8, AN+9, AN+10, AN+11, AN+12 |
IO | WR+5 |
IO(0 | WR+6, WR+12 |
J | DXA+9, DXSET+5~, DXSET+9*, DXSET+10*, DXSET+15, DXSET2+4~, DXSET2+8*, DXSET2+9*, DXSET2+21, DXSET2+23 , DXSET2+25, DXSET2+26, DXSET2+31*, DXSET2+32*, DXSET2+37, DXSET2+38, DXSET2+41, DXSET2+42, DXSET2+43 |
U | DXA+2, DXA+3, DXA+5, DXA+9, DXE+2, DXE+5, DXSET+15, DXSET+17, DXSET2+21, DXSET2+23 , DXSET2+25, DXSET2+26, DXSET2+37, DXSET2+38, DXSET2+41, DXSET2+42, DXSET2+43, DXSET2+46, DXSET2+47, DXSET2+48 , VASET+10, VASET+15 |
X | HRN~, HRN+4, HRN+10, HRN+15, DXP~, DXP+2, DXA~, DXA+2, DXA+3, DXA+9 , DXE~, DXE+2, DXSET~, DXSET+3, DXSET+8, DXSET+10, DXSET+17, DXSET2~, DXSET2+7, DXSET2+9 , DXSET2+21, DXSET2+23, DXSET2+26, DXSET2+30, DXSET2+32, DXSET2+41, DXSET2+42, DXSET2+43, DXSET2+46, DXSET2+47 , DXSET2+48, PXSET~, PXSET+2, OSSET~, OSSET+2, OCSET~, OCSET+2, VASET~, VASET+6, VASET+7 , CDSET~, CDSET+2, ANES~, ANES+1, WR~, WR+3, STRIP~, STRIP+1, STRIP+3, STRIP+4 , AN~, AN+2, AN+3, AN+12*, AN+14, PTAX~, PTAX+2*, PTAX+3 |
>> Y | STRIP+4*, STRIP+5 |