Routine: ABMPPAD1

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR
IHS VA Utilities	1	^XBFMK
Third Party Billing	1	EN^ABMPPFLR

Package	Total	Caller Graph
Third Party Billing	3	ABMMUFC3 ABMPPAD2 ABMPPADJ

Entry Points

Name	Comments	DBIA/ICR reference
DISPCK	;EP
EDIT	;EP
ADD	;EP
EDIT2	;EP
XIT	;EP
SETVAR	;EP

External References

Name	Field # of Occurrence
EN^ABMPPFLR	XIT+1
^DIE	EDIT+28
^DIR	ADD+4, ADD+12, EDIT+5, EDIT+45, EDIT2+4, EDIT2+31, EDIT2+60, EDIT2+67, EDIT2+76
^XBFMK	EDIT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ADD+1
Function Call: WRITE	Prompt: !,"No insurer at that entry" Line Location: ADD+6
Function Call: WRITE	Prompt: !,"Cannot add/edit the active insurer!" Line Location: ADD+8
Function Call: WRITE	Prompt: !,"Ok, let's edit ",$P($G(^AUTNINS(ABMIIEN,0)),U),! Line Location: ADD+9
Function Call: WRITE	Prompt: !! Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"No insurer at that entry" Line Location: EDIT+7
Function Call: WRITE	Prompt: !,"Cannot add/edit the active/pending insurer!" Line Location: EDIT+9
Function Call: WRITE	Prompt: !,"Ok, let's edit ",$P($G(^AUTNINS(ABMIIEN,0)),U),! Line Location: EDIT+10
Function Call: WRITE	Prompt: "PAYMENT ",$J(ABMPP(ABMIIEN,ABMCAT,ABMLN),10,2) Line Location: EDIT+36
Function Call: WRITE	Prompt: ?30,"[",$P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,2),"]",$E($P($G(^BAR(90052.01,$P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,2),0)),U),1,18) Line Location: EDIT+39
Function Call: WRITE	Prompt: ?50,"[",$P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,3),"]",$E($P($G(^BARTBL($P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,3),0)),U),1,18) Line Location: EDIT+40
Function Call: WRITE	Prompt: ?75,"[",$P(^BARADJ($P(ABMPP(ABMIIEN,ABMCAT,ABMLN),U,4),0),U),"]" Line Location: EDIT+41
Function Call: WRITE	Prompt: !,"Must use Add because there are no transactions to edit!" Line Location: EDIT+42
Routine Call	DIE Line Location: EDIT+28
Routine Call	DIR Line Location: ADD+4 ADD+12 EDIT+5 EDIT+45 EDIT2+4 EDIT2+31 EDIT2+60 EDIT2+67 EDIT2+76

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	DISPCK+12, DISPCK+13, DISPCK+14, DISPCK+15, EDIT+15, EDIT+18, EDIT+19, EDIT+21
^AUTNINS - [#9999999.18]	ADD+9, EDIT+10
^BAR(90052.01 - [#90052.01]	EDIT+39
^BARADJ - [#90056.06]	EDIT+41, EDIT2+66
^BARTBL - [#90052.02]	EDIT+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	DISPCK+13*, DISPCK+14, DISPCK+15, XIT+3!
ABM("A"	DISPCK+11, DISPCK+12, DISPCK+13
ABM("CLM"	DISPCK+10*, DISPCK+12, DISPCK+13
>> ABMADJC	EDIT2+13, EDIT2+14, EDIT2+15, EDIT2+16, EDIT2+17, EDIT2+18, EDIT2+19, EDIT2+20, EDIT2+21, EDIT2+35 , EDIT2+36, EDIT2+37, EDIT2+38, EDIT2+39, EDIT2+40, EDIT2+41, EDIT2+42, EDIT2+43, EDIT2+54*
>> ABMAMT	EDIT2+5*, EDIT2+6, EDIT2+12, EDIT2+45, EDIT2+46, EDIT2+47, EDIT2+48, EDIT2+49, EDIT2+50, EDIT2+51 , EDIT2+52
>> ABMBFIEN	EDIT+17, EDIT+18, EDIT+19, EDIT+21, EDIT+22
>> ABMBINS	EDIT+21*, EDIT+22
>> ABMBNUM	EDIT+19*
>> ABMBSTA	EDIT+15*, EDIT+16, EDIT+18
ABMCAT	ADD+14, ADD+16, EDIT+30, EDIT+31, EDIT+33, EDIT+34, EDIT+36, EDIT+37, EDIT+38, EDIT+39 , EDIT+40, EDIT+41, EDIT+49, EDIT+51*, EDIT+53, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8, EDIT2+9 , EDIT2+11, EDIT2+13, EDIT2+22, EDIT2+23, EDIT2+30, EDIT2+32, EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61 , EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69, EDIT2+70, EDIT2+71, EDIT2+77, EDIT2+78, EDIT2+79, XIT+4!
>> ABMCHK	DISPCK+3, DISPCK+4, DISPCK+9, DISPCK+16
>> ABMDCLM(	XIT+2
ABMDIF	EDIT+50!, EDIT2+6*, EDIT2+10
ABME	XIT+3!
ABMEFLG	ADD+5, ADD+6, ADD+8, ADD+13, EDIT+2!, EDIT+6, EDIT+7, EDIT+9, EDIT+42, EDIT+46*
>> ABMEXPM	DISPCK+5, DISPCK+7, DISPCK+8, DISPCK+9
ABMEXPMS	DISPCK+6!, DISPCK+8*, DISPCK+9
ABMIIEN	ADD+7, ADD+8, ADD+9, ADD+16, EDIT+8, EDIT+9, EDIT+10, EDIT+14, EDIT+24, EDIT+26 , EDIT+31, EDIT+33, EDIT+34, EDIT+36, EDIT+38, EDIT+39, EDIT+40, EDIT+41, EDIT+48, EDIT+51 , EDIT+53, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8, EDIT2+13, EDIT2+22, EDIT2+23, EDIT2+30, EDIT2+32 , EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69, EDIT2+70, EDIT2+71 , EDIT2+77, EDIT2+78, EDIT2+79, XIT+4!
>> ABMILST(	EDIT+14, EDIT+22*, EDIT+24
ABMINS	XIT+4!
ABMLAMT	XIT+5!
ABMLFLG	EDIT+50!, EDIT+51, EDIT+53, EDIT+54*
ABMLN	ADD+15, ADD+16, EDIT+20, EDIT+32, EDIT+33, EDIT+34, EDIT+35, EDIT+36, EDIT+38, EDIT+39 , EDIT+40, EDIT+41, EDIT+52, EDIT+53, EDIT+54, EDIT2+13, EDIT2+22, EDIT2+23, EDIT2+30, EDIT2+32 , EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69, EDIT2+70, EDIT2+71 , EDIT2+77, EDIT2+78, EDIT2+79, XIT+4!
ABMLNPK	EDIT+45!
ABMLNSV	ADD+15*, EDIT+42, EDIT+43, XIT+5!
>> ABMOAMT	EDIT2+7*, EDIT2+14, EDIT2+15, EDIT2+16, EDIT2+17, EDIT2+18, EDIT2+19, EDIT2+20, EDIT2+21, EDIT2+36 , EDIT2+37, EDIT2+38, EDIT2+39, EDIT2+40, EDIT2+41, EDIT2+42, EDIT2+43
ABMOFLG	EDIT2+24*, EDIT2+25!
ABMOPDT	XIT+5!
>> ABMP("C0"	XIT+2*
>> ABMP("CDFN"	DISPCK+10, EDIT+15, EDIT+18, XIT+2
>> ABMP("EXP"	DISPCK+3, DISPCK+7, XIT+9*
>> ABMP("OBAMT"	DISPCK+6!, DISPCK+15*, DISPCK+16
>> ABMP("PDFN"	DISPCK+14
>> ABMP("SCRN"	XIT+7*
>> ABMP("TOT"	XIT+8*
ABMPL	XIT+3!
ABMPL(	ADD+6, ADD+7, ADD+8, EDIT+7, EDIT+8, EDIT+9
>> ABMPM("COI"	SETVAR+2, EDIT2+17, EDIT2+39, EDIT2+48
>> ABMPM("DED"	SETVAR+1, EDIT2+16, EDIT2+38, EDIT2+47
>> ABMPM("GRP"	SETVAR+3, EDIT2+19, EDIT2+41, EDIT2+50
>> ABMPM("NONC"	SETVAR+2, EDIT2+15, EDIT2+37, EDIT2+46
>> ABMPM("PCR"	SETVAR+4, EDIT2+21, EDIT2+43, EDIT2+52
>> ABMPM("PD"	SETVAR+1, EDIT2+10
>> ABMPM("PENS"	SETVAR+3, EDIT2+18, EDIT2+40, EDIT2+49
>> ABMPM("REF"	SETVAR+3, EDIT2+20, EDIT2+42, EDIT2+51
>> ABMPM("TOT"	SETVAR+1*, XIT+8, XIT+9
>> ABMPM("WO"	SETVAR+2, EDIT2+14, EDIT2+36, EDIT2+45
>> ABMPP(	ADD+16, EDIT+31, EDIT+33, EDIT+34!, EDIT+36, EDIT+38, EDIT+39, EDIT+40, EDIT+41, EDIT+48 , EDIT+51, EDIT+53, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8, EDIT2+13, EDIT2+22, EDIT2+23, EDIT2+30 , EDIT2+32, EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69, EDIT2+70* , EDIT2+71, EDIT2+77, EDIT2+78, EDIT2+79*
>> ABMPPIEN	ADD+15, EDIT+47, EDIT+48, EDIT+54, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8
ABMPR	XIT+4!
ABMPREC	XIT+6!
ABMPRIS	ADD+2, EDIT+3, XIT+3!
>> ABMS("TOT"	XIT+8*
ABMSFLG	DISPCK+6!, XIT+1
ABMSTAT	XIT+4!
ABMTTYP	XIT+4!
ABMV	XIT+3!
>> DA	EDIT+26*
>> DA(1	EDIT+24*, EDIT+25
DIC	XIT+5!
DIE	EDIT+25*, XIT+5!
DIR	ADD+4!, ADD+12!, EDIT+5!, EDIT+45!, EDIT2+4!, EDIT2+26!, EDIT2+31!, EDIT2+55!, EDIT2+60!, EDIT2+63! , EDIT2+67!, EDIT2+72!, EDIT2+76!
DIR("A"	ADD+3, ADD+11, EDIT+4, EDIT+44, EDIT2+2, EDIT2+29, EDIT2+58, EDIT2+65, EDIT2+75*
DIR("B"	EDIT2+3, EDIT2+30, EDIT2+59, EDIT2+66, EDIT2+74*
DIR("S"	EDIT2+28, EDIT2+57
DIR(0	ADD+2, ADD+10, EDIT+3, EDIT+43, EDIT2+1, EDIT2+27, EDIT2+56, EDIT2+64, EDIT2+73*
>> DIROUT	ADD+5, ADD+13, EDIT+6, EDIT+46
>> DIRUT	ADD+5, ADD+13, EDIT+6, EDIT+46
DR	EDIT+27*, XIT+5!
>> DTOUT	ADD+5, ADD+13, EDIT+6, EDIT+46
>> DUOUT	ADD+5, ADD+13, EDIT+6, EDIT+46
DUZ(2	DISPCK+12, DISPCK+13, DISPCK+14, DISPCK+15, EDIT+15, EDIT+18, EDIT+19, EDIT+21, XIT+2
U	DISPCK+14, DISPCK+15, ADD+8, ADD+9, EDIT+9, EDIT+10, EDIT+19, EDIT+21, EDIT+34, EDIT+38 , EDIT+39, EDIT+40, EDIT+41, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8, EDIT2+13, EDIT2+22, EDIT2+23 , EDIT2+30, EDIT2+32, EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69 , EDIT2+70, EDIT2+71, EDIT2+77, EDIT2+78, EDIT2+79
X	EDIT2+26!, EDIT2+32, EDIT2+55!, EDIT2+61, EDIT2+63!, EDIT2+68, EDIT2+72!
Y	ADD+6, ADD+7, ADD+8, ADD+14, EDIT+7, EDIT+8, EDIT+9, EDIT+47, EDIT2+5, EDIT2+8 , EDIT2+26!, EDIT2+32, EDIT2+34, EDIT2+45, EDIT2+46, EDIT2+47, EDIT2+48, EDIT2+49, EDIT2+50, EDIT2+51 , EDIT2+52, EDIT2+54, EDIT2+55!, EDIT2+61, EDIT2+62, EDIT2+63!, EDIT2+68, EDIT2+69, EDIT2+72!, EDIT2+77

Customize PDF page

Package: Third Party Billing

Routine: ABMPPAD1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: