Routine: ABMPPADJ

Package	Total	Call Graph
Third Party Billing	7	(PAUSE,SUM)^ABMDE1 PRTORD^ABMDEOK1 SEL^ABMDEOPT (ADD,DISPCK,EDIT,EDIT2,SETVAR,XIT)^ABMPPAD1 ^ABMPPAD3 ^ABMPPFLR $$EN^ABMVDF
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Third Party Billing	2	ABMDESM ABMPPAD2

Entry Points

Name	Comments	DBIA/ICR reference
DISPCK	; chk if no complete insurer OR if 2 export modes on claim; don't do if either is true
DISP
EDIT	;
GATHER
ADD	;
EDIT2	;
XIT	;
DOLAMT(AMT)	;

External References

Name	Field # of Occurrence
PAUSE^ABMDE1	DISP+7
SUM^ABMDE1	DISP+6
PRTORD^ABMDEOK1	DISPCK+3
SEL^ABMDEOPT	DISP+104
ADD^ABMPPAD1	ADD+1
DISPCK^ABMPPAD1	DISPCK+16
EDIT^ABMPPAD1	EDIT+1
EDIT2^ABMPPAD1	EDIT2+1
SETVAR^ABMPPAD1	GATHER+2, DISP+1
XIT^ABMPPAD1	XIT+1
^ABMPPAD3	GATHER+111
^ABMPPFLR	GATHER+112, EDIT2+2
$$EN^ABMVDF	DISP+44, DISP+62
$$GET1^DIQ	DISPCK+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Payment Amount....: " Line Location: DISP+39
Function Call: WRITE	Prompt: $$DOLAMT(ABMPM("PD")) Line Location: DISP+39
Function Call: WRITE	Prompt: ?40,"ORIGINAL BILL AMOUNT: ",$J(+$G(ABMP("OBAMT")),10,2) Line Location: DISP+40
Function Call: WRITE	Prompt: !,"Deductible Amount.: ",$$DOLAMT(ABMPM("DED")) Line Location: DISP+41
Function Call: WRITE	Prompt: ?40,"Current Charges.....: ",$J(+$G(ABMPM("TOT")),10,2) Line Location: DISP+42
Function Call: WRITE	Prompt: !,"Co-pay/ins Amount.: ",$$DOLAMT(ABMPM("COI")) Line Location: DISP+43
Function Call: WRITE	Prompt: ?40,"Current Bill Amount.: ",$$EN^ABMVDF("HIN"),$J(+$G(ABMP("CBAMT")),10,2),$$EN^ABMVDF("HIF") Line Location: DISP+44
Function Call: WRITE	Prompt: !,"Write Off.........: ",$$DOLAMT(ABMPM("WO")) Line Location: DISP+45
Function Call: WRITE	Prompt: !,"Non-Covered Amount: ",$$DOLAMT(ABMPM("NONC")) Line Location: DISP+46
Function Call: WRITE	Prompt: !,"Penalty Amount....: ",$$DOLAMT(ABMPM("PENS")) Line Location: DISP+47
Function Call: WRITE	Prompt: !,"Grouper Allowance.: ",$$DOLAMT(ABMPM("GRP")) Line Location: DISP+48
Function Call: WRITE	Prompt: !,"Refund............: ",$$DOLAMT(ABMPM("REF")) Line Location: DISP+49
Function Call: WRITE	Prompt: !,"Payment Credits...: ",$$DOLAMT(ABMPM("PCR")) Line Location: DISP+50
Function Call: WRITE	Prompt: ", ",$P($G(^AUTTPIC(ABMCOV,0)),U) Line Location: DISP+68
Function Call: WRITE	Prompt: !?14,"COVERAGE TYPE: ",$P($G(^AUTTPIC(ABMCOV,0)),U) Line Location: DISP+69
Function Call: WRITE	Prompt: !?6,"PAYMENT: ",ABMDAMT Line Location: DISP+80
Function Call: WRITE	Prompt: ?28,"[",$P(ABMPREC,U,2),"] ",$E($P($G(^BAR(90052.01,$P(ABMPREC,U,2),0)),U),1,18) Line Location: DISP+84
Function Call: WRITE	Prompt: ?48,"[",$P(ABMPREC,U,3),"] ",$E($P($G(^BARTBL($P(ABMPREC,U,3),0)),U),1,18) Line Location: DISP+85
Function Call: WRITE	Prompt: !,ABMDASH,! Line Location: DISP+91
Function Call: WRITE	Prompt: "ERROR: STANDARD ADJUSTMENT CODE NOT ENTERED FOR ADJUSTMENT",! Line Location: DISP+95
Function Call: WRITE	Prompt: "ERROR: STANDARD ADJUSTMENT REASON DOESN'T MATCH ADJUSTMENT CATEGORY/REASON",! Line Location: DISP+96
Function Call: WRITE	Prompt: "ERROR: NEGATIVE BALANCE ON BILL NOT ALLOWED",! Line Location: DISP+97
Function Call: WRITE	Prompt: ABMDASH,! Line Location: DISP+98
Function Call: WRITE	Prompt: "Use the EDIT option to populate the Standard Adjustment Reason Code",! Line Location: DISP+99

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTNINS - [#9999999.18]	GET1^DIQ
^AUTTINTY - [#9999999.181]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	GATHER+7, GATHER+10, GATHER+11, GATHER+14, GATHER+16, GATHER+19, GATHER+20, GATHER+37, GATHER+39, GATHER+41 , GATHER+42, GATHER+43, GATHER+54, GATHER+55, GATHER+56!, GATHER+83, GATHER+85, GATHER+86, GATHER+87
^ABMDCLM - [#9002274.3]	DISPCK+9, DISPCK+10, DISPCK+12, DISPCK+13, DISP+10, DISP+11, DISP+12, DISP+13, DISP+64, DISP+67
^ABMDPARM(	GATHER+4, GATHER+59, GATHER+60
^ABMNINS(	DISPCK+3, DISPCK+12
^AUPNPAT - [#9000001]	GATHER+3
^AUTNINS - [#9999999.18]	DISP+60, DISP+65
^AUTTPIC - [#9999999.65]	DISP+66, DISP+68, DISP+69
^BAR(90052.01 - [#90052.01]	DISP+84
^BAR(90052.05	GATHER+69, GATHER+70, GATHER+72, GATHER+74, GATHER+75
^BAR(90052.06	GATHER+67, GATHER+68
^BARAC(	GATHER+80, GATHER+81
^BARADJ - [#90056.06]	DISP+87, DISP+88, DISP+89
^BARADJ("C"	GATHER+107
^BARBL(	GATHER+78, GATHER+80, GATHER+81
^BARTBL - [#90052.02]	DISP+85
^BARTR(	GATHER+93, GATHER+94, GATHER+100, GATHER+101, GATHER+104

Label References

Name	Line Occurrences
$$DOLAMT	DISP+39, DISP+41, DISP+43, DISP+45, DISP+46, DISP+47, DISP+48, DISP+49, DISP+50, DISP+78
@(	DISP+107
DISP	DISP+107
EDIT2	ADD+3
XIT	DISP+7, DISP+105, DISP+106

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM("DO"	DISP+107*
>> ABMA	DISPCK+7, DISPCK+9, DISPCK+10, DISPCK+12
>> ABMADJC	GATHER+26, GATHER+29, GATHER+30, GATHER+31, GATHER+32, GATHER+33, GATHER+34, GATHER+35, GATHER+36, GATHER+47 , GATHER+48, GATHER+50, GATHER+51, GATHER+101, GATHER+104, GATHER+106, GATHER+107
>> ABMADJT	GATHER+27*, GATHER+48
ABMAFLG	DISPCK+8!, DISPCK+12*, DISPCK+14, DISPCK+15!
>> ABMAI	DISPCK+10*, DISPCK+11, DISPCK+12, DISPCK+13
>> ABMAIEN	GATHER+78*, GATHER+79, GATHER+80, GATHER+81, GATHER+93
>> ABMAMT	GATHER+23, GATHER+29, GATHER+30, GATHER+31, GATHER+32, GATHER+33, GATHER+34, GATHER+35, GATHER+36*, GATHER+47 , GATHER+48
>> ABMBFIEN	GATHER+9, GATHER+10, GATHER+11, GATHER+14, GATHER+16, GATHER+19, GATHER+20, GATHER+37, GATHER+39, GATHER+41 , GATHER+42, GATHER+43, GATHER+53, GATHER+54, GATHER+55, GATHER+56, GATHER+83, GATHER+85, GATHER+86, GATHER+87 , GATHER+90
>> ABMBINS	GATHER+19, GATHER+37, GATHER+39, GATHER+42, GATHER+43, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+52 , GATHER+53, GATHER+81, GATHER+83, GATHER+86, GATHER+87*, GATHER+90, GATHER+106, GATHER+107, GATHER+108, GATHER+109
>> ABMBNUM	GATHER+11, GATHER+59, GATHER+60*, GATHER+78
>> ABMBSTA	GATHER+6, GATHER+7, GATHER+8, GATHER+10
>> ABMBSUF	GATHER+4*, GATHER+59
>> ABMC("CONT"	DISP+7*
>> ABMCAT	GATHER+23, GATHER+25, GATHER+47, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+52, GATHER+102, GATHER+103 , GATHER+104, GATHER+105, GATHER+106, GATHER+107, GATHER+108, GATHER+109, DISP+23, DISP+24, DISP+26, DISP+27 , DISP+28, DISP+29, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37 , DISP+70, DISP+71*, DISP+73, DISP+74, DISP+76, DISP+77, DISP+80, DISP+83
>> ABMCHK	GATHER
>> ABMCOV	DISP+63, DISP+64, DISP+66, DISP+67*, DISP+68, DISP+69
>> ABMDAMT	DISP+76, DISP+78, DISP+80, DISP+82
>> ABMDASH	DISP+2*, DISP+91, DISP+98
>> ABMEFLG	ADD+2, EDIT+2
ABMHOLD	GATHER+62*, GATHER+79!, GATHER+110!
>> ABMIIEN	DISP+11, DISP+15, DISP+21, DISP+22, DISP+24, DISP+26, DISP+27, DISP+28, DISP+30, DISP+31 , DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37, DISP+54, DISP+56*, DISP+57, DISP+58 , DISP+60, DISP+65, DISP+71, DISP+73, DISP+74, DISP+76, DISP+83
>> ABMILST(	GATHER+53, GATHER+90
>> ABMINS	DISP+9, DISP+10, DISP+11, DISP+12, DISP+13, DISP+15, DISP+58*, DISP+64, DISP+67
>> ABMIPRI	DISP+19, DISP+20, DISP+22
>> ABMLN	GATHER+15, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+52, GATHER+92, GATHER+106, GATHER+107, GATHER+108* , GATHER+109, DISP+25, DISP+26, DISP+27, DISP+28, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34 , DISP+35, DISP+36, DISP+37, DISP+72, DISP+73*, DISP+74, DISP+75, DISP+76, DISP+83
>> ABMLNSV	DISP+75*
ABMMFLG	DISPCK+4!, DISPCK+8!, DISPCK+13, DISPCK+14, DISPCK+15!, DISP!, DISP+88, DISP+89*, DISP+96, DISP+98 , DISP+100!
ABMNFLG	DISP+39!, DISP+77, DISP+79!, DOLAMT+1
>> ABMOPDT	GATHER+22, GATHER+55, GATHER+95*
>> ABMP("CBAMT"	DISP+18, DISP+27, DISP+44, DISP+97
>> ABMP("CDFN"	DISPCK+9, DISPCK+10, DISPCK+12, DISPCK+13, GATHER+7, GATHER+10, DISP+10, DISP+11, DISP+12, DISP+13 , DISP+64, DISP+67
>> ABMP("DDL"	DISP+6
>> ABMP("DFLT"	DISP+103*
>> ABMP("EXP"	DISPCK+3, DISP+94
>> ABMP("INS"	DISPCK+3
>> ABMP("ITYP"	DISPCK+3
>> ABMP("LDFN"	DISPCK+3, DISPCK+12, GATHER+4, GATHER+59, GATHER+60, GATHER+63
>> ABMP("NC"	DISP+17
>> ABMP("OBAMT"	DISP+40
>> ABMP("OPT"	DISP+102*
>> ABMP("PDFN"	GATHER+3
>> ABMP("SCRN"	DISP+4*
>> ABMP("TOT"	DISP+17
>> ABMP("VDT"	GATHER+72, GATHER+74
>> ABMP("VTYP"	DISPCK+3
>> ABMPAR	GATHER+64, GATHER+67, GATHER+75, GATHER+76, GATHER+77
>> ABMPHRN	GATHER+3*, GATHER+60
>> ABMPIEN	GATHER+13, GATHER+14, GATHER+16, GATHER+52, GATHER+55
>> ABMPL(	DISP+15*, DISP+20, DISP+22, DISP+53, DISP+56, DISP+57, DISP+58
ABMPM	DISPCK+5!, GATHER+1!
ABMPM("COI"	DISP+33*, DISP+43
ABMPM("DED"	DISP+32*, DISP+41
ABMPM("GRP"	DISP+35*, DISP+48
ABMPM("NONC"	DISP+31*, DISP+46
ABMPM("PCR"	DISP+37*, DISP+50
ABMPM("PD"	DISP+28*, DISP+39
ABMPM("PENS"	DISP+34*, DISP+47
ABMPM("REF"	DISP+36*, DISP+49
ABMPM("TOT"	DISP+17*, DISP+42
ABMPM("WO"	DISP+30*, DISP+45
ABMPP	DISPCK+6~, GATHER+1!
ABMPP(	GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+52, GATHER+106, GATHER+107, GATHER+108, GATHER+109*, DISP+24 , DISP+26, DISP+27, DISP+28, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36 , DISP+37, DISP+71, DISP+73, DISP+74, DISP+76, DISP+83
>> ABMPREC	GATHER+16, GATHER+20, GATHER+22, GATHER+23, GATHER+26, GATHER+27, GATHER+28, GATHER+29, GATHER+30, GATHER+31 , GATHER+32, GATHER+33, GATHER+34, GATHER+35, GATHER+36, GATHER+54, DISP+83, DISP+84, DISP+85, DISP+86 , DISP+87, DISP+88, DISP+89, DISP+90
>> ABMPRI	DISP+12, DISP+15, DISP+52, DISP+53*, DISP+55, DISP+56, DISP+57, DISP+58, DISP+60, DISP+61
>> ABMPRIS	DISP+55*
>> ABMREC	GATHER+94*, GATHER+95, GATHER+96, GATHER+106
>> ABMSAR	GATHER+28*, GATHER+48
>> ABMSAT	GATHER+63*, GATHER+69, GATHER+70, GATHER+72, GATHER+74, GATHER+75
ABMSFLG	DISPCK+4!, DISP!, DISP+90, DISP+95, DISP+97, DISP+98, DISP+100!
>> ABMSTAT	DISP+13, DISP+14, DISP+15, DISP+57, DISP+59*, DISP+62
ABMTFLAG	DISPCK+4!, GATHER+13, GATHER+21, GATHER+57, GATHER+112, GATHER+114*
ABMTFLG	GATHER+40, GATHER+41, GATHER+44, GATHER+45!, GATHER+84, GATHER+85, GATHER+88, GATHER+89!
ABMTIEN	GATHER+40, GATHER+41, GATHER+42, GATHER+43, GATHER+45!, GATHER+84, GATHER+85, GATHER+86, GATHER+87, GATHER+89!
>> ABMTRIEN	GATHER+92, GATHER+93, GATHER+94, GATHER+100, GATHER+101, GATHER+104
>> ABMTTYP	GATHER+100, GATHER+103, GATHER+104, GATHER+106, GATHER+107
>> ABMZ("PG"	DISP+5*
>> ABMZ("TITL"	DISP+3*
AMT	DOLAMT~, DOLAMT+1
>> DA	GATHER+66, GATHER+67, GATHER+68, GATHER+69, GATHER+70, GATHER+72, GATHER+74, GATHER+75
>> DIROUT	DISP+7, DISP+106
>> DTOUT	DISP+7, DISP+106
>> DUOUT	DISP+7, DISP+106
DUZ(2	DISPCK+9, DISPCK+10, DISPCK+12, DISPCK+13, GATHER+3, GATHER+7, GATHER+10, GATHER+11, GATHER+14, GATHER+16 , GATHER+19, GATHER+20, GATHER+37, GATHER+39, GATHER+41, GATHER+42, GATHER+43, GATHER+54, GATHER+55, GATHER+56 , GATHER+62, GATHER+77, GATHER+78, GATHER+79, GATHER+80, GATHER+81, GATHER+83, GATHER+85, GATHER+86, GATHER+87 , GATHER+93, GATHER+94, GATHER+100, GATHER+101, GATHER+104, GATHER+110*, DISP+10, DISP+11, DISP+12, DISP+13 , DISP+64, DISP+67
U	DISPCK+3, DISPCK+10, DISPCK+12, DISPCK+13, GATHER+3, GATHER+4, GATHER+11, GATHER+19, GATHER+20, GATHER+22 , GATHER+23, GATHER+26, GATHER+27, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+32, GATHER+33, GATHER+34 , GATHER+35, GATHER+36, GATHER+37, GATHER+42, GATHER+43, GATHER+49, GATHER+50, GATHER+51, GATHER+52, GATHER+54 , GATHER+55, GATHER+59, GATHER+60, GATHER+70, GATHER+72, GATHER+74, GATHER+75, GATHER+80, GATHER+81, GATHER+86 , GATHER+87, GATHER+95, GATHER+96, GATHER+100, GATHER+101, GATHER+104, GATHER+106, GATHER+107, GATHER+108, GATHER+109 , DISP+11, DISP+12, DISP+13, DISP+27, DISP+28, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34 , DISP+35, DISP+36, DISP+37, DISP+57, DISP+58, DISP+60, DISP+65, DISP+66, DISP+68, DISP+69 , DISP+74, DISP+76, DISP+84, DISP+85, DISP+86, DISP+87, DISP+88, DISP+89, DISP+90
>> Y	DISP+105, DISP+107

Customize PDF page

Package: Third Party Billing

Routine: ABMPPADJ

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: