ABMUTLP ; IHS/ASDST/DMJ - PAYER UTILITIES ;
Source file <ABMUTLP.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 4 | DBFX^ABMDEFIP 4^ABMDLCK2 ($$RCID,PCN)^ABMERUTL (OVER,PAYED,SOP)^ABMUTLP2 |
IHS Patient | 1 | $$HISTMBI^AUPNMBI |
Kernel | 1 | $$UP^XLFSTR |
VA Fileman | 1 | $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRVT | ;private
|
|
PST(X) | ;EP - primary, secondary, tertiary
|
|
MPP(X) | ;EP - medicare primary payer
|
|
ISET | ; EP
|
|
GRP(X) | ;EP - group name & #
|
|
TCR(X) | ; EP
; Total credits for bill |
|
MCD | ;mcd
|
|
RCID(X) | ;EP - receiver id
|
|
PNUM(X) | ;EP - patient policy#
|
|
SBR(X,ABMDUZ2) | ;PEP - subscriber
|
|
PAYED | ; EP
; Build Ins Pymt Array |
|
SOP | ;EP - source of pay (claim filing indicator)
|
|
TRIM(%X,%F,%V) | ;EP
|
|
SNUM(X) | ;EP - subscriber policy#
|
|
MCDBFX(X,Y) | ; EP
; Fix BILL Ins Multiple if broken ptr mcd ; INPUT:X = IEN (CLAIM OR BILL) ; Y = INS IEN UNDER FIELD #13 (INS MULTIPLE) ; OUTPUT: |
|
REL(X) | ;EP - rel.
|
|
SNDR(X,Y) | ;EP - sender id
|
|
OVER(ABMOLN) | ;EP - get override values from 3P Ins file
|
|
MCR | ;mcr
|
|
SET(X,ABMDUZ2) | ; EP set up standard vars
|
|
MGET | ; EP
; Get new ptr |
Name | Field # of Occurrence |
---|---|
DBFX^ABMDEFIP | ISET+23 |
4^ABMDLCK2 | MGET+8 |
$$RCID^ABMERUTL | RCID+16 |
PCN^ABMERUTL | SET+25 |
OVER^ABMUTLP2 | OVER+1 |
PAYED^ABMUTLP2 | PAYED+2 |
SOP^ABMUTLP2 | SOP+1 |
$$HISTMBI^AUPNMBI | MCR+10, MCR+35 |
$$GET1^DIQ | SET+22, ISET+15, MGET+7, SBR+17, SBR+18, MCR+26, MPP+9, RCID+14 |
$$UP^XLFSTR | TRIM+2 |
FileNo | Call Tags |
---|---|
^AUTNINS - [#9999999.18] | GET1^DIQ |
^AUTTINTY - [#9999999.181] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMDBILL( | SET+8, SET+20, ISET+8, ISET+11, ISET+13, ISET+18, ISET+20, ISET+21, ISET+24, ISET+26 , TCR+5, TCR+6, MCDBFX+8, MCDBFX+9, MCDBFX+10, MCDBFX+12*, MPP+5, MPP+7, MPP+15, MPP+17 |
^ABMDPARM( | RCID+14 |
^ABMNINS( | SET+23, SNDR+14, SNDR+17 |
^ABMRECVR - [#9002274.095] | RCID+9, SNDR+11, SNDR+12 |
^ABMRECVR("C" | RCID+5, RCID+7, SNDR+8, SNDR+9 |
^ABMREFID - [#9002274.11] | SET+23 |
^AUPN3PPH - [#9000003.1] | MCD+14, MCD+19, PRVT+4, PRVT+16, GRP+4 |
^AUPNMCD - [#9000004] | ISET+22, MGET+5, MCD+2, MCD+3, MCD+11, MCD+12, MCD+16 |
^AUPNMCR - [#9000003] | MCR+39 |
^AUPNPRVT - [#9000006] | PRVT+2, PRVT+3, PRVT+4, PRVT+8, PRVT+16 |
^AUPNRRE - [#9000005] | MCR+14 |
^AUTNEGRP - [#9999999.77] | GRP+5, GRP+6, GRP+7 |
^AUTNINS - [#9999999.18] | MCR+1, MCR+26, RCID+15 |
^AUTTLOC - [#9999999.06] | SNDR+18 |
^AUTTMCS - [#9999999.32] | MCR+40 |
^AUTTRLSH - [#9999999.36] | MCD+6, MCD+7, PRVT+11, PRVT+12 |
^AUTTRRP - [#9999999.33] | MCR+15 |
^DIC(40.7 - [#40.7] | SET+19 |
Name | Line Occurrences |
---|---|
$$SBR | SNUM+2, PNUM+2, REL+2 |
GRP | MCD+20, PRVT+17 |
ISET | SBR+5, PST+2 |
MCD | SBR+15, SBR+17 |
MCR | SBR+20 |
MGET | MCDBFX+11 |
PRVT | SBR+18, SBR+21 |
SET | SBR+4, PST+1 |
SOP | SBR+12 |
Name | Field # of Occurrence |
---|---|
^(0 | ISET+13, MCDBFX+12*, MCR+14, MCR+39 |
^(2 | PRVT+4, PRVT+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%F | TRIM~, TRIM+2*, TRIM+3, TRIM+4 |
%L | TRIM+2~*, TRIM+4*, TRIM+5 |
%R | TRIM+2~*, TRIM+3*, TRIM+5 |
%V | TRIM~, TRIM+2*, TRIM+3, TRIM+4 |
%X | TRIM~, TRIM+2, TRIM+3, TRIM+4, TRIM+5 |
>> ABM("TCREDITS" | TCR+3*, TCR+6*, TCR+7, TCR+8! |
>> ABMB0 | SET+12, SET+13, SET+14, SET+15, SET+16, SET+17, SET+18, ISET+4 |
>> ABMB6 | SET+9, SET+10, SET+11* |
ABMCDNUM | SET+4!, ISET+2!, ISET+20*, ISET+22, ISET+24*, MCD+1*, MCD+2, MCD+3, MCD+11, MCD+12 , MCD+16 |
ABMCHIEN | RCID+7*, RCID+9, RCID+10!, SNDR+9*, SNDR+11, SNDR+12, SNDR+13! |
>> ABMCNT | PST+3*, PST+8*, PST+9 |
ABMDUZ2 | SET~, SET+3*, SET+8, SET+20, SET+23, ISET+8, ISET+11, ISET+13, ISET+18, ISET+20 , ISET+21, ISET+24, ISET+26, TCR+5, TCR+6, MCDBFX+8, MCDBFX+9, MCDBFX+10, MCDBFX+12, SBR~ , SBR+3*, SBR+4 |
>> ABME("INS" | ISET+13*, ISET+15, ISET+18 |
>> ABME("INS#" | ISET+6*, ISET+25*, ISET+26, ISET+27 |
>> ABME("ITYPE" | ISET+15*, ISET+16, ISET+18, ISET+19, ISET+27 |
>> ABME("PRIO" | ISET+5*, ISET+8*, ISET+11 |
ABMHIC | MCR+14*, MCR+16, MCR+17!, MCR+39*, MCR+41, MCR+42! |
ABMI | SBR+7~, SBR+8*, SBR+9*, SBR+10, SBR+11, MCD+2, MCD+3, MCD+6, MCD+7, MCD+9 , MCD+10, MCD+11, MCD+12, MCD+13, MCD+14, MCD+15, MCD+16, MCD+17, MCD+18, MCD+19 , MCD+20, PRVT+3, PRVT+4, PRVT+5, PRVT+6, PRVT+7, PRVT+8, PRVT+11, PRVT+12, PRVT+14 , PRVT+16, PRVT+17, MCR+12, MCR+13, MCR+16, MCR+20, MCR+21, MCR+22, MCR+23, MCR+37 , MCR+38, MCR+41, MCR+45, MCR+46, MCR+47, MCR+48, GRP+2, GRP+3, GRP+6, GRP+7 , GRP+8, GRP+9 |
ABMIEN | PRVT+1*, PRVT+2, PRVT+3, PRVT+4, PRVT+8, PRVT+16, MPP+3~, MPP+4*, MPP+5, MPP+7 , MPP+15, MPP+17 |
ABMINS | SBR+7~, SBR+10*, SBR+11, SBR+15, SBR+16, SBR+17, SBR+18, SBR+20, MCD+1, PRVT+1 , MCR+1, MCR+26 |
>> ABML( | MGET+10, MGET+13 |
>> ABML(0 | MGET+9 |
>> ABMLOOP | RCID+6 |
ABMMBI | MCR+8!, MCR+9*, MCR+10*, MCR+11*, MCR+12, MCR+33!, MCR+34*, MCR+35*, MCR+36*, MCR+37 |
ABMMBI( | MCR+12, MCR+37 |
ABMMBI(999999999 | MCR+11, MCR+36 |
ABMMPP | MPP+13~, MPP+14*, MPP+20*, MPP+21 |
ABMOLN | OVER~ |
ABMP | MCDBFX+5~ |
ABMP( | MGET+13* |
ABMP("BDFN" | SET+5*, SET+8, SET+20, ISET+8, ISET+11, ISET+13, ISET+18, ISET+20, ISET+21, ISET+23 , ISET+24, ISET+26 |
ABMP("BTYP" | SET+14* |
ABMP("CLIN" | SET+18*, SET+19* |
ABMP("D0" | MCDBFX+6*, MCDBFX+8, MCDBFX+9, MCDBFX+10, MCDBFX+12 |
ABMP("D1" | MCDBFX+7*, MCDBFX+8, MCDBFX+12 |
ABMP("EXP" | SET+15*, SET+24 |
ABMP("GRP#" | SBR+32*, MCR+22*, MCR+47*, GRP+2*, GRP+6*, GRP+8 |
ABMP("GRPNM" | SBR+31*, GRP+3*, GRP+7*, GRP+8, GRP+9* |
ABMP("INS" | SET+17*, SET+22, SET+23, ISET+3!, ISET+4*, ISET+8, ISET+11, ISET+26*, ISET+27*, MGET+10* , MGET+11, MGET+13, SBR+9, SBR+10, SBR+11, PST+7, PST+9 |
ABMP("INSCO" | MGET+2*, MGET+7, MGET+11 |
ABMP("ITYPE" | SET+22*, SET+23 |
ABMP("LDFN" | SET+13* |
ABMP("PDFN" | SET+12*, ISET+21*, ISET+22, MCDBFX+9*, SBR+24, MCD+10, MCD+15, PRVT+2, PRVT+3, PRVT+4 , PRVT+6, PRVT+8, PRVT+16, MCR+10, MCR+14, MCR+23, MCR+35, MCR+39, MCR+48 |
ABMP("PH" | SBR+26*, MCD+2*, MCD+9, MCD+14, MCD+18, MCD+19, MCD+20, PRVT+3*, PRVT+5, PRVT+14 , PRVT+16, PRVT+17 |
ABMP("PNUM" | SBR+27*, SBR+29, SBR+30*, MCD+11*, MCD+16*, PRVT+4*, MCR+12*, MCR+13, MCR+16*, MCR+20 , MCR+37*, MCR+38, MCR+41*, MCR+45, PNUM+3 |
ABMP("PRI" | MGET+9*, MGET+10, MGET+13 |
ABMP("PTR" | MGET+3*, MGET+4, MGET+5 |
ABMP("REL" | SBR+25*, MCD+3*, MCD+6*, MCD+7*, MCD+13*, MCD+17*, PRVT+7*, PRVT+8*, PRVT+11*, PRVT+12* , MCR+21*, MCR+46*, REL+3 |
ABMP("RTYPE" | SET+23*, SET+24* |
ABMP("SNUM" | SBR+28*, SBR+29*, SBR+30, MCD+12*, MCD+19*, PRVT+16*, MCR+20*, MCR+45*, SNUM+3 |
ABMP("SOP" | SBR+33* |
ABMP("VDT" | SET+20*, MCDBFX+10* |
ABMP("VTYP" | SET+16*, SET+23 |
ABMP("ZERO" | MCDBFX+8*, MGET+2, MGET+3 |
ABMP(1 | MCDBFX+12 |
ABMP(2 | MCDBFX+12 |
ABMPINS | MPP+6~, MPP+7*, MPP+9, MPP+18 |
ABMPRFX | MCR+14*, MCR+15*, MCR+16, MCR+17! |
ABMPSQ | SBR+6!, SBR+11*, SBR+22*, SBR+23, SBR+25, SBR+26, SBR+27, SBR+28, SBR+31, SBR+32 , SBR+33 |
ABMPTYP | MPP+6~, MPP+9*, MPP+10 |
>> ABMR("GS" | SNDR+12 |
>> ABMR("ISA" | SNDR+11 |
ABMSBR | SBR+6!, SBR+23*, SBR+24*, SBR+34, SNUM+2*, PNUM+2*, REL+2* |
ABMSBR( | SBR+23, MCD+10*, MCD+15*, MCD+18*, PRVT+6*, PRVT+14*, MCR+23*, MCR+48* |
ABMSUFX | MCR+39*, MCR+40*, MCR+41, MCR+42! |
ABMX0 | MPP+16~, MPP+17*, MPP+18, MPP+19 |
DUZ(2 | SET+3, SBR+3, MPP+5, MPP+7, MPP+15, MPP+17, RCID+14, SNDR+14, SNDR+17, SNDR+18 |
I | SET+6~, SET+7*, SET+8, SET+9*, SET+10, SET+11, ISET+9~, ISET+10*, ISET+11*, ISET+13 , ISET+20, ISET+23, ISET+24, ISET+26, TCR+4*, TCR+5*, TCR+6, MGET+12~, MGET+13*, PST+5~ , PST+6*, PST+7*, PST+9, MPP+11~, MPP+12*, MPP+15*, MPP+17 |
>> J | TCR+6* |
U | SET+12, SET+13, SET+14, SET+15, SET+16, SET+17, SET+18, SET+19, SET+20, SET+23 , ISET+4, ISET+13, ISET+18, ISET+20, ISET+21, ISET+22, ISET+24, ISET+27, MCDBFX+10, MCDBFX+12 , MGET+2, MGET+3, SBR+11, SBR+15, SBR+16, SBR+20, MCD+1, MCD+2, MCD+3, MCD+6 , MCD+7, MCD+11, MCD+12, MCD+16, MCD+19, PRVT+1, PRVT+2, PRVT+3, PRVT+4, PRVT+8 , PRVT+11, PRVT+12, PRVT+16, MCR+1, MCR+12, MCR+14, MCR+15, MCR+26, MCR+37, MCR+39 , MCR+40, PST+9, GRP+4, GRP+6, GRP+7, MPP+7, MPP+18, MPP+19, RCID+9, RCID+14 , RCID+15, SNDR+11, SNDR+12, SNDR+14, SNDR+17, SNDR+18 |
X | SET~, SET+5, TCR~, TCR+5, TCR+6, TCR+7*, TCR+9, MCDBFX~, MCDBFX+6, SBR~ , SBR+4, PST~, PST+1, PST+4*, PST+9*, PST+10*, PST+11, GRP~, GRP+4*, GRP+5 , GRP+6, GRP+7, SNUM~, SNUM+2, SNUM+3*, SNUM+4, PNUM~, PNUM+2, PNUM+3*, PNUM+4 , REL~, REL+2, MPP~, MPP+2, MPP+4, RCID~, RCID+3*, RCID+5, RCID+7, RCID+14 , RCID+15, RCID+16, SNDR~, SNDR+3*, SNDR+8, SNDR+9, SNDR+14, SNDR+17 |
Y | MCDBFX~, MCDBFX+7, RCID+2!, RCID+9*, RCID+11, RCID+14*, RCID+15*, RCID+16*, RCID+17, SNDR~ , SNDR+4*, SNDR+14 |
Z | SNDR+5~, SNDR+11*, SNDR+12*, SNDR+14*, SNDR+17*, SNDR+18*, SNDR+19 |