Routine: ABMEBDSP

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Third Party Billing	3	$$BDT^ABMDUTL $$FMT^ABMERUTL $$EN^ABMVDF
VA Fileman	3	DD^%DT ^DIC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
SET	;SET UP SOME THINGS
END	; ; Find ending export batch
BATCHLST	;
STOT	;SITE TOTAL
DOC	; ; The purpose of this routine is to show the user summary ; information of a specified electronically transmitted batch ; of bills. The data is grouped by bill type within site with ; subtotals shown. A grand total (amt billed) is also shown. ; The data fields are: bill number, health record number, ; patient name, service date from, and amount billed.
LIST	; EP
BEG	; ; Find beginning export batch
START	;START HERE ; Find the requested transmission batch in the transmission ; file. Screen out those entries that don't have an EMC ; file name.
QUE	;QUE TO TASKMAN
HD	;HEADER FOR DETAIL LISTING
PRINT	; ; Callable point for queuing
SEL	; ; Select device
LOOP	; Loop through the bills of specified batch to gather data and ; print the report.
DTAIL	;DISPLAY DETAIL

External References

Name	Field # of Occurrence
DD^%DT	SET+11, DTAIL+28
^%ZIS	SEL+4, SEL+6
HOME^%ZIS	SEL+5
^%ZISC	PRINT+25
^%ZTLOAD	QUE+7
$$BDT^ABMDUTL	BATCHLST+12
$$FMT^ABMERUTL	DTAIL+19, BATCHLST+18
$$EN^ABMVDF	PRINT+22, PRINT+24, LOOP+16, LOOP+17, DTAIL+15, DTAIL+16, DTAIL+19, HD+5, HD+6, HD+8 , HD+9, HD+10, HD+11, HD+12, HD+13, HD+15, STOT+1
^DIC	BEG+7, END+4
^DIR	LIST+38, LIST+46, SEL+5, PRINT+23, HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BEG+2
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: !!,"INVALID RANGE!" Line Location: END+8
Function Call: WRITE	Prompt: !!,"Checking...",! Line Location: LIST+1
Function Call: WRITE	Prompt: !!,$$EN^ABMVDF("HIN"),"E N D O F R E P O R T",$$EN^ABMVDF("HIF"),! Line Location: PRINT+22
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: PRINT+24
Function Call: WRITE	Prompt: !!?20,$$EN^ABMVDF("HIN"),"Insurer total: ",$$EN^ABMVDF("HIF"),?40,ABME("CNT")_$S(ABME("CNT")=1:" bill",1:" bills"),?68,$J($FN(ABME("TOT"),",",2),10) Line Location: LOOP+16
Function Call: WRITE	Prompt: !!,$$EN^ABMVDF("HIN"),"BATCH TOTAL: ",$$EN^ABMVDF("HIF"),?40,ABME("CUMCNT")_$S(ABME("CUMCNT")=1:" bill",1:" bills"),?68,$J($FN(ABME("CUMTOT"),",",2),10) Line Location: LOOP+17
Function Call: WRITE	Prompt: !?3,ABME(1),?13,ABME("HRN"),?21,$P($G(^DPT(+ABME(5),0)),U),?51,ABME(71),?68,$J($FN(ABME(21),",",2),10) Line Location: DTAIL+31
Function Call: WRITE	Prompt: ! Line Location: HD+3
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),!,?30,$$EN^ABMVDF("HIN"),"BATCH SUMMARY",?70,"Page: ",$$EN^ABMVDF("HIF"),ABME("PG") Line Location: HD+5
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("HIN"),"BATCH DATE: ",$$EN^ABMVDF("HIF"),ABME("BDATE") Line Location: HD+6
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("HIN"),"INSURER: ",$$EN^ABMVDF("HIF"),ABME("INS") Line Location: HD+8
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("HIN"),"CLEARINGHOUSE: ",$$EN^ABMVDF("HIF"),$P($G(^ABMRECVR($P($G(^ABMDTXST(DUZ(2),ABMP("XMIT"),3,ABMP("SIEN"),0)),U,7),0)),U) Line Location: HD+9
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("HIN"),"FORMAT: ",$$EN^ABMVDF("HIF"),ABME("FORMAT") Line Location: HD+10
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("HIN"),"EMC FILE NAME: ",$$EN^ABMVDF("HIF"),ABME("EMC") Line Location: HD+11
Function Call: WRITE	Prompt: ?50,$$EN^ABMVDF("HIN"),"GROUP CONTROL #: ",$$EN^ABMVDF("HIF"),ABME("GRPN") Line Location: HD+12
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("HIN"),ABME("EQ") Line Location: HD+13
Function Call: WRITE	Prompt: !,"BILL #",?13,"HRN",?21,"PATIENT",?48,"SERVICE DATE FROM",?72,"AMOUNT" Line Location: HD+14
Function Call: WRITE	Prompt: !,ABME("-"),!,$$EN^ABMVDF("HIF") Line Location: HD+15
Function Call: WRITE	Prompt: !!,$$EN^ABMVDF("HIN"),"SITE/BILL TYPE TOTAL:",$$EN^ABMVDF("HIF"),?68,$J($FN(ABME("STOT"),",",2),10) Line Location: STOT+1
Function Call: WRITE	Prompt: ! Line Location: BATCHLST+1
Routine Call	%ZIS Line Location: SEL+5
Routine Call	DIC Line Location: BEG+7 END+4
Routine Call	DIR Line Location: LIST+38 LIST+46 SEL+5 PRINT+23 HD+1
Routine Call	%ZIS Line Location: SEL+4 SEL+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABMDTXST - [#9002274.6]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	LOOP+5, LOOP+6, DTAIL+11, DTAIL+12, DTAIL+25, DTAIL+26
^ABMDEXP - [#9002274.08]	LIST+7, SET+14, SET+15, BATCHLST+13
^ABMDTXST - [#9002274.6]	LIST+6, LIST+7, LIST+8, LIST+9, LIST+11, LIST+21, LIST+22, SET+9, SET+13, SET+16 , SET+18, SET+21, SET+23, SET+24, SET+25, LOOP+3, LOOP+4, DTAIL+18, DTAIL+19, HD+8 , HD+9, BATCHLST+10, BATCHLST+12, BATCHLST+13, BATCHLST+15, BATCHLST+16, BATCHLST+17, BATCHLST+18
^ABMRECVR - [#9002274.095]	HD+9, BATCHLST+15
^AUPNPAT - [#9000001]	DTAIL+30
^AUTNINS - [#9999999.18]	SET+17, BATCHLST+16
^AUTTLOC - [#9999999.06]	DTAIL+15
^DPT - [#2]	DTAIL+31
^VA(200 - [#200]	BATCHLST+17

Label References

Name	Line Occurrences
BATCHLST	LIST+32, LIST+42
BEG	END+8
DTAIL	LOOP+7
HD	SET+34, DTAIL+32
QUE	SEL+5
SET	PRINT+19
START	LIST+49
STOT	DTAIL+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	SEL+2*
>> %ZIS("A"	SEL+3*
ABME	PRINT+26!
ABME(	DTAIL+12*
ABME("-"	SET+32*, HD+15
ABME("BDATE"	SET+12*, HD+6
ABME("CNT"	SET+29, LOOP+10, LOOP+12, LOOP+16
ABME("CUMCNT"	PRINT+9, LOOP+12, LOOP+17
ABME("CUMTOT"	PRINT+8, LOOP+13, LOOP+17
ABME("EMC"	SET+18*, HD+11
ABME("EQ"	SET+33*, HD+13
ABME("FORMAT"	SET+15*, HD+10
ABME("GRPN"	SET+24, SET+25, HD+12
ABME("HRN"	DTAIL+30*, DTAIL+31
ABME("INS"	SET+17*, DTAIL+19, DTAIL+23, HD+8
ABME("OLDBTYP"	SET+31, DTAIL+13, DTAIL+22
ABME("OLDINS"	DTAIL+23*
ABME("OLDLOC"	SET+30, DTAIL+13, DTAIL+14, DTAIL+21
ABME("PG"	PRINT+2, HD+1, HD+2, HD+5
ABME("STOT"	SET+28, LOOP+8, STOT+1, STOT+2*
ABME("TOT"	SET+27, LOOP+9, LOOP+13, LOOP+16, LOOP+18*
ABME("XCNT"	PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+18, LOOP+16, LOOP+17, HD+3, BATCHLST+2, BATCHLST+3 , BATCHLST+5, BATCHLST+7, BATCHLST+9, BATCHLST+12
ABME("XMITB"	BEG+9*, END+8, LIST+5
ABME("XMITE"	END+7*, END+8, LIST+6
ABME(1	DTAIL+31
ABME(2	DTAIL+13, DTAIL+16, DTAIL+22
ABME(21	LOOP+8, LOOP+9, DTAIL+25*, DTAIL+31
ABME(3	DTAIL+13, DTAIL+15, DTAIL+21, DTAIL+30
ABME(5	DTAIL+30, DTAIL+31
ABME(71	DTAIL+26, DTAIL+27, DTAIL+29, DTAIL+31
>> ABMECHK	LIST+53, LIST+54, LIST+55
>> ABMGDT	SET+21*, SET+22, SET+23
>> ABMGIEN	SET+23*, SET+24
>> ABMP("ANS"	LIST+28, LIST+39, LIST+40, LIST+41, LIST+49, LIST+50, LIST+52
>> ABMP("CHKLIST"	LIST+3!, LIST+12, LIST+23, LIST+24
>> ABMP("EXP"	SET+13*, SET+14, SET+15
>> ABMP("GCN"	LIST+9, LIST+11, LIST+14, LIST+15, LIST+18, LIST+19, LIST+21, LIST+22, LIST+26, PRINT+17* , PRINT+18, BATCHLST+8, BATCHLST+9*, BATCHLST+12
>> ABMP("GLIST"	LIST+15*, LIST+17, LIST+19
>> ABMP("INS"	SET+16*, SET+17
>> ABMP("ITYP"	BATCHLST+11*, BATCHLST+14
>> ABMP("SAV"	SET+10, HD+3, HD+4
>> ABMP("SIEN"	LIST+8, LIST+9, LIST+11, LIST+14, LIST+22, LIST+26, PRINT+15, PRINT+16, PRINT+18, DTAIL+18 , HD+8, HD+9, BATCHLST+6, BATCHLST+7*, BATCHLST+9, BATCHLST+15, BATCHLST+18
>> ABMP("XCNT"	LIST+4, LIST+13, LIST+14, LIST+25*, LIST+26, LIST+28, LIST+29, LIST+34, LIST+44
>> ABMP("XCNTL"	LIST+16, LIST+17
>> ABMP("XGMIT"	LIST+20, LIST+21, LIST+22, LIST+23, LIST+24, LIST+26
>> ABMP("XLIST"	LIST+2!, LIST+14, LIST+26, LIST+54, LIST+55!, PRINT+12, PRINT+14, PRINT+16, PRINT+18, LOOP+16 , LOOP+17, BATCHLST+3, BATCHLST+5, BATCHLST+7, BATCHLST+9
>> ABMP("XMIT"	LIST+5, LIST+6, LIST+7, LIST+8, LIST+9, LIST+11, LIST+12, LIST+14, PRINT+13, PRINT+14 , PRINT+16, PRINT+18, SET+9, SET+13, SET+16, SET+18, SET+21, SET+23, SET+24, SET+25 , LOOP+3, LOOP+4, DTAIL+18, DTAIL+19, HD+3, HD+4, HD+8, HD+9, BATCHLST+4, BATCHLST+5 , BATCHLST+7, BATCHLST+9, BATCHLST+10, BATCHLST+12, BATCHLST+13, BATCHLST+15, BATCHLST+16, BATCHLST+17, BATCHLST+18
>> ABMPIT	BATCHLST+10*, BATCHLST+11
>> ABMQUIT	LIST+33, LIST+47, LIST+50*, LIST+51
>> ABMSEL	LIST+28, LIST+48, LIST+55
DA	LIST+35!, LIST+43!, LOOP+4*, LOOP+5, LOOP+6, DTAIL+11, DTAIL+12, DTAIL+25, DTAIL+26
DIC	BEG+3*, END+5!, LIST+35!, LIST+43!
DIC("A"	BEG+6, END+3
DIC("S"	BEG+4*
DIC(0	BEG+5*
DIE	LIST+35!, LIST+43!
DIR	LIST+35!, LIST+38!, LIST+43!, LIST+46!, SEL+5!, PRINT+23!, HD+1!
DIR("A"	LIST+37, LIST+45
DIR(0	LIST+36, LIST+44, SEL+5, PRINT+23, HD+1*
DUZ(2	LIST+6, LIST+7, LIST+8, LIST+9, LIST+11, LIST+21, LIST+22, SET+9, SET+13, SET+16 , SET+18, SET+21, SET+23, SET+24, SET+25, LOOP+3, LOOP+4, LOOP+5, LOOP+6, DTAIL+11 , DTAIL+12, DTAIL+18, DTAIL+19, DTAIL+25, DTAIL+26, HD+8, HD+9, BATCHLST+10, BATCHLST+12, BATCHLST+13 , BATCHLST+15, BATCHLST+16, BATCHLST+17, BATCHLST+18
I	LOOP+2, LOOP+3, LOOP+4, DTAIL+10~, DTAIL+12*
IO	SEL+5
IO("S"	SEL+6, PRINT+25
IO(0	SEL+5
ION	SEL+6
>> IOP	SEL+6*
IOSL	DTAIL+32, HD+3
IOST	PRINT+23, PRINT+24, HD+1, HD+3
>> POP	SEL+4
U	LIST+7, LIST+9, LIST+11, SET+9, SET+14, SET+15, SET+17, SET+18, SET+24, SET+25 , LOOP+6, DTAIL+18, DTAIL+19, DTAIL+25, DTAIL+26, DTAIL+31, HD+8, HD+9, BATCHLST+10, BATCHLST+12 , BATCHLST+13, BATCHLST+15, BATCHLST+16, BATCHLST+17, BATCHLST+18
X	LIST+35!, LIST+43!
Y	BEG+8, BEG+9, END+6, END+7, LIST+35!, LIST+39, LIST+43!, LIST+47, LIST+48, PRINT+20 , SET+9, SET+12, LOOP+3, LOOP+7, LOOP+14, DTAIL+27, DTAIL+29, DTAIL+32, HD+1
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+1*
>> ZTSAVE("ABM*"	QUE+5*
>> ZTSAVE("ABME(""XMITB"")"	QUE+4*
>> ZTSAVE("ABME(""XMITE"")"	QUE+3*
ZTSK	QUE+6!, QUE+8

Customize PDF page

Package: Third Party Billing

Routine: ABMEBDSP

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: