Routine: ABMDE2

Package	Total	Call Graph
Third Party Billing	6	(PAUSE,SUM)^ABMDE1 (,SEL)^ABMDE2X ^ABMDE2X1 SEL^ABMDEOPT ^ABMDERR ^ABMDWARN
VA Fileman	4	DD^%DT ^DIK $$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
OPT	;
DISP	;
INS	;
INSR	; Insurer Info
XIT
HD	;
DXIT
D2
D3
LOOP	;LOOP HERE
D1	;EP - Delete Insurer Multiple on claim

External References

Name	Field # of Occurrence
DD^%DT	DISP+87
PAUSE^ABMDE1	DISP+4, INSR+6, INS+6
SUM^ABMDE1	DISP+5
^ABMDE2X	DISP+8
SEL^ABMDE2X	INS+13
^ABMDE2X1	DISP+9
SEL^ABMDEOPT	OPT+18
^ABMDERR	LOOP+15
^ABMDWARN	OPT+16
^DIK	D3+4
$$GET1^DIQ	DISP+92, INS+28
^DIR	D1+9, D2+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OPT+17
Function Call: WRITE	Prompt: $P($G(^ABMDEXP(+ABMV("X6"),0)),U) Line Location: DISP+23
Function Call: WRITE	Prompt: $P($G(^ABMDEXP(+ABMV("X6"),0)),U) Line Location: DISP+45
Function Call: WRITE	Prompt: ?40,"Export Mode.: " Line Location: DISP+65
Function Call: WRITE	Prompt: $P($G(^ABMDEXP(+ABMV("X6"),0)),U) Line Location: DISP+65
Function Call: WRITE	Prompt: ?40,"Export Mode.: ",$P(^ABMDEXP(ABMP("VTYP",999),0),U) Line Location: DISP+66
Function Call: WRITE	Prompt: !,ABMX,! Line Location: DISP+73
Function Call: WRITE	Prompt: "["_ABMMSPRS_"]-"_$$GET1^DIQ(9000037,ABMMSPSV,.04) Line Location: DISP+92
Function Call: WRITE	Prompt: "NOT MSP ELIGIBLE" Line Location: DISP+93
Function Call: WRITE	Prompt: !?13,"BILLING ENTITY",?39,"STATUS",?52,"POLICY HOLDER" Line Location: HD+1
Function Call: WRITE	Prompt: !,?5,"==============================",?37,"==========",?49,"==============================" Line Location: HD+2
Function Call: WRITE	Prompt: 7,!?5," ERROR: No "_ABMZ("ITEM")_" Exists, at Least One is Required! *",! Line Location: LOOP+9
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]" Line Location: INS+19
Function Call: WRITE	Prompt: ?5,$P(ABMZ(ABM("I")),U) Line Location: INS+23
Function Call: WRITE	Prompt: ?37,ABM("Y0") Line Location: INS+24
Function Call: WRITE	Prompt: ?49,$P($P(ABMV("X2"),U),";",2) Line Location: INS+25
Function Call: WRITE	Prompt: !,"Cannot delete only insurer on claim!" Line Location: D2+0
Function Call: WRITE	Prompt: ! Line Location: D2+1
Function Call: WRITE	Prompt: !,"Cannot delete active insurer!" Line Location: D2+2
Routine Call	DIR Line Location: D1+9 D2+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	OPT+6, OPT+7, OPT+12, DISP+32, DISP+53, LOOP+3, LOOP+4, LOOP+5, INS+1, INS+2 , INS+4, INS+20, INS+22
^ABMDEXP - [#9002274.08]	DISP+45, DISP+46, DISP+65, DISP+66
^AUPNMSP - [#9000037]	DISP+90, DISP+92
^AUPNMSP("C"	DISP+74, DISP+78, DISP+80
^AUTNINS - [#9999999.18]	INS+10, INS+22
^DD(9002274.3013	INS+17

Label References

Name	Line Occurrences
@(	OPT+21
D2	D1+1, D1+2
DISP	OPT+10
DXIT	D1+3, D1+11
HD	INSR+7, INS+6
INS	LOOP+6
INSR	DISP+6
LOOP	INSR+8
OPT	OPT+23
XIT	OPT+11, OPT+19, OPT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DISP+85!, DISP+89!
ABM	OPT+1!, LOOP+2, LOOP+3, LOOP+4, XIT!
ABM(	INS+30*
ABM("DO"	OPT+20*, OPT+21
ABM("E"	LOOP+12, LOOP+13, LOOP+14, INS+26*
ABM("I"	LOOP+3*, INS+3, INS+9, INS+10, INS+19, INS+20, INS+22, INS+23
ABM("PRI"	INS+29*, INS+30
ABM("X"	LOOP+5*, INS+10, INS+11, INS+28
ABM("X0"	INS+4*, INS+5, INS+7, INS+10, INS+15
ABM("XIEN"	LOOP+4*, LOOP+5, INS+1, INS+2, INS+4, INS+10
ABM("Y"	INS+15*, INS+16, INS+18, INS+26
ABM("Y0"	INS+14, INS+17, INS+18*, INS+24
ABME	OPT+1!, LOOP+10!
ABME(	LOOP+14*, INS+26
ABME("CONT"	LOOP+11*, LOOP+16!
ABMFLAG	DISP+75!, DISP+77, DISP+78, DISP+80, DISP+81*, DISP+84, DISP+95!
ABMG	OPT+1!, XIT!
ABMG(	LOOP+13, LOOP+14, INS+26*
>> ABMITYP	INS+28*, INS+29
ABMMSP	DISP+75!, DISP+77, DISP+78, DISP+79, DISP+80, DISP+81, DISP+82, DISP+86
ABMMSPDT	DISP+88*, DISP+91, DISP+97!
>> ABMMSPRS	DISP+90*, DISP+92
ABMMSPSV	DISP+75!, DISP+77, DISP+79, DISP+80, DISP+82, DISP+90, DISP+92, DISP+95!
>> ABMP("C0"	DISP+6
>> ABMP("CDFN"	OPT+6, OPT+7, OPT+12, DISP+7, DISP+32, DISP+53, LOOP+3, LOOP+4, LOOP+5, INS+1 , INS+2, INS+4, INS+12, INS+20, INS+22, D3+1
>> ABMP("DDL"	DISP+3
>> ABMP("DFLT"	OPT+12, OPT+14
>> ABMP("FLAT"	DISP+38, DISP+42, DISP+49, DISP+59, DISP+63, DISP+69
>> ABMP("GL"	DISP+7, INS+12
>> ABMP("OPT"	OPT+4, OPT+8, OPT+15*
>> ABMP("OVER"	OPT+22
>> ABMP("PDFN"	DISP+74, DISP+78, DISP+80
>> ABMP("VDT"	DISP+80, DISP+81
>> ABMP("VTYP"	DISP+30, DISP+33, DISP+37, DISP+46, DISP+49, DISP+51, DISP+53, DISP+54, DISP+57, DISP+58 , DISP+65, DISP+66, DISP+68, DISP+69
ABMV	OPT+1!
ABMV("X1"	INS+20
ABMV("X2"	INS+25
ABMV("X5"	DISP+31, DISP+34, DISP+43, DISP+47, DISP+52, DISP+55, DISP+64, DISP+67
ABMV("X6"	DISP+29, DISP+36, DISP+40, DISP+45, DISP+48, DISP+50, DISP+57, DISP+61, DISP+65, DISP+68
>> ABMW	OPT+16
ABMX	DISP+71, DISP+72, DISP+73, DISP+94, DISP+96!, DXIT!
ABMX("ANS"	D2+1*, D2+2, D2+3, D3+2
>> ABMZ(	INS+10*, INS+20, INS+22, INS+23, D2+2, D2+3, D3+2
>> ABMZ("DIC"	INSR+4*
>> ABMZ("DR"	INSR+2, LOOP+8
>> ABMZ("ITEM"	INSR+3*, LOOP+9, D1+4, D1+7
>> ABMZ("LNUM"	LOOP+1, LOOP+8, INS+5
>> ABMZ("NUM"	OPT+2, OPT+13, LOOP+1, LOOP+9, INS+3*, D1+1, D1+2, D1+3, D1+6, D2
>> ABMZ("PG"	OPT+9, DISP+2
>> ABMZ("SUB"	INSR+1*, D3+3
>> ABMZ("TITL"	DISP+1*
>> ABMZ("UNBILL"	LOOP+1, INS+8, INS+9*
>> ABMZ("X"	INSR+5*
>> ABMZ(1	LOOP+1*
>> DA	D3+2*
>> DA(1	D3+1*, D3+3
>> DIK	D3+3*
DIR	D1+6!, D1+10!, D2+1!, D2+4!
DIR("?"	D1+7*
DIR("A"	D1+8, D2+3
DIR(0	D1+6, D2+1
>> DIROUT	OPT+11, OPT+19, OPT+22, DISP+3, INSR+6, INS+6, D1+11, D2+5
>> DTOUT	OPT+11, OPT+19, OPT+22, DISP+3, INSR+6, INS+6, D1+11, D2+5
>> DUOUT	OPT+11, OPT+19, OPT+22, DISP+3, INSR+6, INS+6, D1+11, D2+5
DUZ(2	OPT+6, OPT+7, OPT+12, DISP+32, DISP+53, LOOP+3, LOOP+4, LOOP+5, INS+1, INS+2 , INS+4, INS+20, INS+22
IOSL	DISP+3, INSR+6, INS+6
U	OPT+12, DISP+6, DISP+29, DISP+31, DISP+34, DISP+36, DISP+40, DISP+42, DISP+43, DISP+45 , DISP+46, DISP+47, DISP+48, DISP+49, DISP+50, DISP+52, DISP+55, DISP+57, DISP+61, DISP+63 , DISP+64, DISP+65, DISP+66, DISP+67, DISP+68, DISP+69, DISP+90, DISP+92, LOOP+5, INS+2 , INS+5, INS+7, INS+10, INS+15, INS+17, INS+20, INS+22, INS+23, INS+25, D2+2 , D2+3, D3+2
>> Y	OPT+19, OPT+20, DISP+86, DISP+88, INS+11, D1+1, D1+2, D1+11, D2+1, D3

Customize PDF page

Package: Third Party Billing

Routine: ABMDE2

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: