Routine: ABMEF19

Information

ABMEF19 ; IHS/ASDST/DMJ - Electronic HCFA-1500 V2.0 Envoy Version ;

Package	Total	Call Graph
Third Party Billing	10	^ABMEAA0 ^ABMEBA0 ^ABMEH15 ^ABMEH20 ^ABMEH30 ^ABMEH40 ^ABMEH61 ^ABMEH90 ^ABMEH95 ^ABMEH99
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	2	^%ZISC OPEN^%ZISH
MailMan	2	XMZ^XMA2 ENT1^XMD
IHS VA Utilities	1	$$JDT^XBFUNC

Package

Total

Call Graph

Third Party Billing

^ABMEAA0 ^ABMEBA0 ^ABMEH15 ^ABMEH20 ^ABMEH30 ^ABMEH40 ^ABMEH61 ^ABMEH90
^ABMEH95 ^ABMEH99

VA Fileman

^DIC ^DIE $$GET1^DIQ ^DIR

Kernel

^%ZISC OPEN^%ZISH

MailMan

XMZ^XMA2 ENT1^XMD

IHS VA Utilities

$$JDT^XBFUNC

Package	Total	Caller Graph
Third Party Billing	10	ABMEAA0 ABMEEPRV ABMEFA0 ABMEFB0 ABMEH30 ABMEH61 ABMEH62 ABMEH63 ABMEH99 ABMERUT2

Package

Total

Caller Graph

Third Party Billing

ABMEAA0 ABMEEPRV ABMEFA0 ABMEFB0 ABMEH30 ABMEH61 ABMEH62 ABMEH63
ABMEH99 ABMERUT2

Entry Points

Name	Comments	DBIA/ICR reference
CLAIM	;one claim
END	;end of file
BATCH	;new batch
WRITE	;EP - write record to file
START	;
ENVOY()	; EP - Is the an Envoy format? ; ABM2.49 IHS/FCS/DRS 09/21/01 ; ; A call to this is needed when making changes to code used by ; other formats, such as ABMEH61
FMTNAME()
CLOSE	;
ENVOY15()	; EP - Is this the Envoy 1500 format? ; ABM2.49 IHS/FCS/DRS 09/21/01 ; ; A call to this is needed when making changes to code used by ; other formats, such as ABMEH20
OPEN	; ; OPEN FILE
LOOP	;loop through bills

External References

Name	Field # of Occurrence
^%ZISC	CLOSE+2
OPEN^%ZISH	OPEN+42
^ABMEAA0	CLAIM+8
^ABMEBA0	BATCH+6
^ABMEH15	BATCH+9
^ABMEH20	CLAIM+16
^ABMEH30	CLAIM+20
^ABMEH40	CLAIM+32
^ABMEH61	CLAIM+36
^ABMEH90	CLAIM+38
^ABMEH95	BATCH+3, END+2
^ABMEH99	END+6
^DIC	START+7, OPEN+7
^DIE	START+20, CLAIM+44
$$GET1^DIQ	FMTNAME
^DIR	OPEN+17, OPEN+25, OPEN+39
$$JDT^XBFUNC	OPEN+31
XMZ^XMA2	OPEN+50
ENT1^XMD	CLOSE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"File could not be created/opened.",! Line Location: START+16
Function Call: WRITE	Prompt: !,"Submission # ",ABMR(1,50),! Line Location: CLAIM+9
Function Call: WRITE	Prompt: !,"Writing bills to file.",! Line Location: CLAIM+10
Function Call: WRITE	Prompt: "." Line Location: CLAIM+14
Function Call: WRITE	Prompt: !!,"Finished.",!! Line Location: END+10
Function Call: WRITE	Prompt: !,"MM SEND TO DOMAIN NOT DEFINED.",! Line Location: OPEN+46
Routine Call	DIE Line Location: START+20 CLAIM+44
Routine Call	DIC Line Location: START+7 OPEN+7
Routine Call	DIR Line Location: OPEN+17 OPEN+25 OPEN+39

FileNo	Call Tags
^DIZ(8980 - [#8980]	Classic Fileman Calls
^ABMDTXST - [#9002274.6]	Classic Fileman Calls, GET1^DIQ
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	CLAIM+2, CLAIM+3, CLAIM+4
^ABMDPARM(	START+13, OPEN+24, OPEN+45
^ABMDTXST - [#9002274.6]	START+3, LOOP+8, LOOP+9, CLAIM+1
^ABMNINS("ALF"	OPEN+32, OPEN+43*
^AUTNINS - [#9999999.18]	START+10, OPEN+28
^AUTTLOC - [#9999999.06]	OPEN+48
^DIC(4.2 - [#4.2]	OPEN+47
^DIZ(8980 - [#8980]	OPEN+12, OPEN+19!, WRITE+4, CLOSE+3
^XMB(3.9 - [#3.9]	WRITE+11, CLOSE+5

Name	Line Occurrences
$$FMTNAME	ENVOY15+3, ENVOY+3
BATCH	CLAIM+13
CLAIM	LOOP+9
CLOSE	END+9
END	START+22
LOOP	START+21
OPEN	START+15
WRITE	CLAIM+12, CLAIM+18, CLAIM+24, CLAIM+27, CLAIM+30, CLAIM+34, CLAIM+40, BATCH+5, BATCH+8, BATCH+11 , END+4, END+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	END+11!
>> ABMAPRV	LOOP+7, LOOP+8, LOOP+9, CLAIM+13, BATCH+12
>> ABMBIL0	CLAIM+4*, CLAIM+5, CLAIM+6
ABME	END+11!
ABMEF	END+11!
ABMEF("BATCH#"	LOOP+2, BATCH+1
ABMEF("LINE"	CLAIM+11, CLAIM+17, CLAIM+23, CLAIM+26, CLAIM+29, CLAIM+33, CLAIM+39, BATCH+4, BATCH+7, BATCH+10 , END+3, END+7, WRITE+4, WRITE+7, WRITE+11
ABMFN	START+19, END+11!, OPEN+11, OPEN+37, OPEN+38, OPEN+41, OPEN+42, OPEN+43, OPEN+52
>> ABMJDT	OPEN+31*, OPEN+33, OPEN+37
ABMLF	END+11!, OPEN+32, OPEN+33, OPEN+34
ABMLNUM	END+11!, OPEN+34, OPEN+35, OPEN+36*, OPEN+37
>> ABMOPRV	LOOP+6, CLAIM+7, CLAIM+13, BATCH+2, BATCH+12
>> ABMP("BDFN"	CLAIM+1*, CLAIM+2, CLAIM+3, CLAIM+4, CLAIM+42
>> ABMP("DOMAIN"	OPEN+45, OPEN+46, OPEN+47, CLOSE+6
>> ABMP("FILE#"	OPEN+10*, OPEN+12, OPEN+19, WRITE+4, CLOSE+3
>> ABMP("FTYPE"	START+13, START+14, OPEN+2, OPEN+21, OPEN+44, WRITE+2, WRITE+5, WRITE+9, CLOSE+2, CLOSE+3 , CLOSE+4
>> ABMP("INS"	START+2, START+3, START+4, START+9, START+10, START+11, OPEN+28, OPEN+32, OPEN+43
>> ABMP("ITYPE"	START+10*
>> ABMP("L#"	LOOP+1, WRITE+3, WRITE+4, WRITE+10*, WRITE+11, CLOSE+5
>> ABMP("LDFN"	CLAIM+5*
>> ABMP("MP"	LOOP+3*
>> ABMP("VTYP"	CLAIM+6*
>> ABMP("WRITE"	LOOP+4*, WRITE+1
>> ABMP("XMIT"	START+3, START+18, LOOP+8, LOOP+9, CLAIM+1, CLAIM+43, FMTNAME
ABMPATH	END+11!, OPEN+27*, OPEN+42
ABMR	LOOP+5!, CLAIM+15!, CLAIM+19!, CLAIM+31!, CLAIM+35!, CLAIM+37!, END+1!, END+5!, END+11!
ABMR(1	CLAIM+9
>> ABMRCID	OPEN+28, OPEN+29, OPEN+30, OPEN+37
ABMREC	END+11!
ABMREC(1	CLAIM+11
ABMREC(10	BATCH+7
ABMREC(15	BATCH+10
ABMREC(20	CLAIM+17
ABMREC(30	CLAIM+22, CLAIM+23
ABMREC(31	CLAIM+25, CLAIM+26
ABMREC(32	CLAIM+28, CLAIM+29
ABMREC(40	CLAIM+33
ABMREC(90	CLAIM+39
ABMREC(95	BATCH+4, END+3
ABMREC(99	END+7
ABMRT	LOOP+5!
ABMRV	END+11!
>> ABMTXIEN	LOOP+9*, CLAIM+1
>> DA	START+18, CLAIM+42
DIC	START+5, OPEN+4, OPEN+8!
DIC("S"	OPEN+6*
DIC(0	START+6, OPEN+5
>> DIE	START+17, CLAIM+41
DIR	OPEN+18!, OPEN+25!, OPEN+39!
DIR("A"	OPEN+14, OPEN+23, OPEN+38*
DIR("B"	OPEN+16, OPEN+24, OPEN+38*
DIR(0	OPEN+15, OPEN+22, OPEN+38*
>> DR	START+19, CLAIM+43
DT	OPEN+31, CLOSE+3, CLOSE+5
DUZ	OPEN+49
DUZ(2	START+3, START+13, LOOP+8, LOOP+9, CLAIM+1, CLAIM+2, CLAIM+3, CLAIM+4, OPEN+24, OPEN+45 , OPEN+48
>> I	CLAIM+21*, CLAIM+22, CLAIM+23, CLAIM+25, CLAIM+26, CLAIM+28, CLAIM+29, CLOSE+3
IO	WRITE+6
IO(0	WRITE+8
>> POP	START+16, OPEN+3, OPEN+9, OPEN+20, OPEN+26, OPEN+40, OPEN+43, OPEN+46, OPEN+51*
U	START+10, OPEN+47
X	ENVOY15+3~*, ENVOY15+4
>> XMDUZ	OPEN+49*
>> XMSUB	OPEN+48*
>> XMY(".5@"	CLOSE+6*
>> XMZ	OPEN+51, OPEN+52, OPEN+53, WRITE+11, CLOSE+5
>> Y	START+8, START+9, OPEN+9, OPEN+10, OPEN+11, OPEN+19, OPEN+20, OPEN+26, OPEN+27, OPEN+40 , OPEN+41

Customize PDF page

Package: Third Party Billing

Routine: ABMEF19

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller 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: