Routine: ABMECDSP

Package	Total	Call Graph
Third Party Billing	2	DISP^ABMECDS2 $$EN^ABMVDF
VA Fileman	2	DD^%DT ^DIR

Package	Total	Caller Graph
Third Party Billing	3	ABMECDS2 ABMECS ABMECS2

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
GDATA1	; ; Loop through bills that have been approved but not yet exported. ; "AC","A" cross-reference of ^ABMDBILL
DETHEAD	;
DISPDET	;
SUMHEAD	; ; Column headings for summary report
SUMPGHD	; ; Page hdr for add'l pages of summary rpt
START	;
INIT	;
CLEANUP	;
ASKSEQ	; ; Ask user the sequence number for which they want to see detail
DISPMULT	;
RETURN	; ; Press return to cont
ASKDET	; ; Ask user if they wish to see detail
LOOP	; ; If the bill is to be exported electronically, collect data and ; and build temporary summary "S" and detail "D" globals
EMCREAT(ABMER,ABMSEQ)	; EP ; Called from 'EMC Create a Batch'

External References

Name	Field # of Occurrence
DD^%DT	DISPDET+20, DISPMULT+23
DISP^ABMECDS2	START+4, EMCREAT+8, DISP+1
$$EN^ABMVDF	SUMPGHD+4, DETHEAD+3
^DIR	ASKDET+6, ASKSEQ+11, ASKSEQ+65, RETURN+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no electronic bills awaiting transmission." Line Location: GDATA1+5
Function Call: WRITE	Prompt: ! Line Location: ASKDET+2
Function Call: WRITE	Prompt: ! Line Location: ASKSEQ+2
Function Call: WRITE	Prompt: !!,$J(ABMSEQ,3),?5,"+ "_$P($G(^ABMRECVR(ABM("CHIEN"),0)),U) Line Location: ASKSEQ+18
Function Call: WRITE	Prompt: ?38,$J(ABMCHT(ABMSEQ,"VTYP"),3),?44,$P($G(^ABMDEXP(ABMCHT(ABMSEQ,"EXP"),0)),U) Line Location: ASKSEQ+19
Function Call: WRITE	Prompt: ?60,$J(ABMCHT(ABMSEQ,"TOT"),4),?69,$J($FN(ABMCHT(ABMSEQ,"AMT"),",",2),10) Line Location: ASKSEQ+20
Function Call: WRITE	Prompt: ! Line Location: ASKSEQ+21
Function Call: WRITE	Prompt: ! Line Location: ASKSEQ+61
Function Call: WRITE	Prompt: !!?20,"TOTAL",?68,$J($FN(ABMTOT,",",2),10) Line Location: DISPDET+29
Function Call: WRITE	Prompt: !!?20,"TOTAL",?68,$J($FN(ABMTOT,",",2),10) Line Location: DISPMULT+32
Function Call: WRITE	Prompt: !,"SEQ",?6,"INSURER",?33,"BILL TYPE",?44,"EXPORT MODE",?57,"# OF BILLS",?71,"BILL AMT",!,ABME("-"),! Line Location: SUMHEAD+8
Function Call: WRITE	Prompt: ! Line Location: RETURN+2
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),!?21,"SUMMARY OF BILLS READY FOR SUBMISSION",?70,"Page: ",ABMSUMPG,!! Line Location: SUMPGHD+4
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),!?27,"BILLS READY FOR SUBMISSION",?70,"Page: ",ABMDETPG Line Location: DETHEAD+3
Function Call: WRITE	Prompt: !?10,"FORMAT: ",$P(^ABMDEXP($P(ABMER(ABMSEQ),U,3),0),U,7),! Line Location: DETHEAD+4
Function Call: WRITE	Prompt: !,ABME("=") Line Location: DETHEAD+5
Function Call: WRITE	Prompt: !,"BILL #",?13,"HRN",?21,"PATIENT",?48,"SERVICE DATE FROM",?72,"AMOUNT" Line Location: DETHEAD+6
Function Call: WRITE	Prompt: !,ABME("-") Line Location: DETHEAD+7
Routine Call	DIR Line Location: ASKDET+6 ASKSEQ+11 ASKSEQ+65 RETURN+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	GDATA1+4, LOOP+3, LOOP+13, DISPDET+15, DISPDET+18, DISPMULT+18, DISPMULT+21
^ABMDEXP - [#9002274.08]	LOOP+7, ASKSEQ+19, ASKSEQ+54, DETHEAD+4
^ABMDVTYP - [#9002274.8]	DISPDET+10, DISPMULT+13
^ABMRECVR - [#9002274.095]	ASKSEQ+18
^AUPNPAT - [#9000001]	DISPDET+16, DISPMULT+19
^AUTNINS - [#9999999.18]	ASKSEQ+51, DISPMULT+13
^AUTTLOC - [#9999999.06]	LOOP+9
^DPT - [#2]	DISPDET+17, DISPMULT+20
^TMP($J	START+3, EMCREAT+7, INIT+1!, GDATA1+5, LOOP+14, LOOP+15, LOOP+16, ASKSEQ+16, ASKSEQ+23, ASKSEQ+26 , ASKSEQ+28, ASKSEQ+38, ASKSEQ+40, ASKSEQ+41, ASKSEQ+42*, ASKSEQ+44, ASKSEQ+46, ASKSEQ+48, ASKSEQ+50, ASKSEQ+52 , ASKSEQ+53, DISPDET+1, DISPDET+7, DISPDET+8, DISPDET+11, DISPDET+12, DISPMULT+6, DISPMULT+8, DISPMULT+10, DISPMULT+11 , DISPMULT+14, DISPMULT+15, CLEANUP+1!

Label References

Name	Line Occurrences
ASKDET	START+5
ASKSEQ	START+8, EMCREAT+9
CLEANUP	START+14, START+16
DETHEAD	START+11, DISPDET+23, DISPMULT+26
DISPDET	START+12
DISPMULT	DISPDET+1
GDATA1	START+2, EMCREAT+6
INIT	START+1, EMCREAT+5
LOOP	GDATA1+4
RETURN	START+15, GDATA1+5, DISPDET+23, DISPMULT+26
SUMHEAD	SUMPGHD+5
SUMPGHD	ASKSEQ+55

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM("CHIEN"	ASKSEQ+17, ASKSEQ+18, ASKSEQ+23, ASKSEQ+26, ASKSEQ+28, DISPMULT+5, DISPMULT+6*, DISPMULT+8
>> ABMB	ASKSEQ+39, ASKSEQ+40, ASKSEQ+42
ABMBAMT	LOOP+13, LOOP+14, LOOP+16, DISPDET+12, DISPDET+13, DISPDET+14, DISPDET+22, DISPMULT+15*, DISPMULT+16, DISPMULT+17 , DISPMULT+25, CLEANUP+2!
ABMBILL0	LOOP+3*, LOOP+4, LOOP+5, LOOP+8, LOOP+11, LOOP+12, CLEANUP+2!
>> ABMCHLST	SUMHEAD+3
>> ABMCHT(	ASKSEQ+19, ASKSEQ+20
ABMCNT	ASKSEQ+53*, ASKSEQ+57, ASKSEQ+60, CLEANUP+2!
ABMDET	START+7, ASKDET+8*, CLEANUP+2!
ABMDETPG	DETHEAD+2*, DETHEAD+3, CLEANUP+2!
ABME	CLEANUP+2!
ABME(	DISPDET+15, DISPMULT+18
ABME("-"	INIT+2*, SUMHEAD+6, SUMHEAD+8, DETHEAD+7
ABME("="	INIT+3*, DETHEAD+5
ABME("LDFN"	LOOP+8*, LOOP+9
ABME(1	DISPDET+22, DISPMULT+25
ABME(3	DISPDET+16, DISPMULT+19
ABME(5	DISPDET+16, DISPDET+17, DISPMULT+19, DISPMULT+20
ABMEQUIT	START+14, INIT+5, GDATA1+5, ASKSEQ+23, ASKSEQ+26, ASKSEQ+28, DISPDET+7, DISPDET+11, DISPDET+23, DISPDET+24 , DISPDET+28, DISPMULT+10, DISPMULT+14, DISPMULT+26, DISPMULT+27, DISPMULT+31, RETURN+3, RETURN+7*, CLEANUP+2!
ABMER	EMCREAT~, CLEANUP+2!
ABMER(	ASKSEQ+17, DISPDET+2, DISPDET+3, DISPDET+4, DISPMULT+1, DISPMULT+2, DETHEAD+4
ABMEXP	LOOP+5, LOOP+6, LOOP+7, LOOP+14, LOOP+15, LOOP+16, ASKSEQ+27, ASKSEQ+28, ASKSEQ+40, ASKSEQ+41 , ASKSEQ+42, ASKSEQ+49, ASKSEQ+50, ASKSEQ+52, ASKSEQ+53, ASKSEQ+54, DISPDET+2, DISPDET+11, DISPDET+12, DISPMULT+1* , DISPMULT+14, DISPMULT+15, CLEANUP+3!
ABMEXPD	ASKSEQ+54*, ASKSEQ+57, ASKSEQ+60, CLEANUP+3!
ABMHRN	DISPDET+16, DISPDET+22, DISPMULT+19, DISPMULT+25, CLEANUP+3!
ABMIEN	DISPDET+9, DISPDET+11, DISPDET+12, DISPDET+15, DISPDET+18, DISPMULT+12, DISPMULT+14, DISPMULT+15, DISPMULT+18, DISPMULT+21 , CLEANUP+3!
ABMINS	ASKSEQ+51*, ASKSEQ+57, ASKSEQ+60, CLEANUP+3!
ABMINS("IEN"	LOOP+12, LOOP+14, LOOP+15, LOOP+16, ASKSEQ+22, ASKSEQ+23, ASKSEQ+26, ASKSEQ+28, ASKSEQ+38, ASKSEQ+40 , ASKSEQ+41, ASKSEQ+42, ASKSEQ+45, ASKSEQ+46, ASKSEQ+48, ASKSEQ+50, ASKSEQ+51, ASKSEQ+52, ASKSEQ+53, DISPDET+3 , DISPDET+7, DISPDET+8, DISPDET+11, DISPDET+12, DISPMULT+7, DISPMULT+8, DISPMULT+10, DISPMULT+11, DISPMULT+13, DISPMULT+14 , DISPMULT+15
ABMLOC	LOOP+9, LOOP+10, LOOP+16, ASKSEQ+37, ASKSEQ+38, ASKSEQ+40, ASKSEQ+41, ASKSEQ+42, ASKSEQ+43, ASKSEQ+44 , ASKSEQ+46, ASKSEQ+48, ASKSEQ+50, ASKSEQ+52, ASKSEQ+53, ASKSEQ+57, DISPDET+5, DISPDET+7, DISPDET+8, DISPDET+10 , DISPDET+11, DISPDET+12, DISPMULT+3, DISPMULT+9, DISPMULT+10*, DISPMULT+11, DISPMULT+13, DISPMULT+14, DISPMULT+15, CLEANUP+3!
>> ABMNEXT	ASKSEQ+9, ASKSEQ+10
ABMORE	ASKSEQ+55, SUMPGHD+2!, CLEANUP+3!
ABMPAT	DISPDET+17, DISPDET+22, DISPMULT+20, DISPMULT+25, CLEANUP+3!
ABMSEQ	START+9, EMCREAT~, INIT+4, ASKSEQ+14, ASKSEQ+15, ASKSEQ+16, ASKSEQ+17, ASKSEQ+18, ASKSEQ+19, ASKSEQ+20 , ASKSEQ+23, ASKSEQ+26, ASKSEQ+28, ASKSEQ+68*, DISPDET+1, DISPDET+2, DISPDET+3, DISPDET+4, DISPMULT+1, DISPMULT+2 , DISPMULT+6, DISPMULT+8, DETHEAD+4, CLEANUP+3!
ABMSITE	DISPDET+6, DISPDET+14, DISPDET+26, DISPDET+27, DISPMULT+4, DISPMULT+17, DISPMULT+29, DISPMULT+30, CLEANUP+4!
ABMSRV	DISPDET+18, DISPDET+19, DISPDET+21, DISPDET+22, DISPMULT+21, DISPMULT+22, DISPMULT+24, DISPMULT+25, CLEANUP+4!
ABMSUMPG	SUMPGHD+3*, SUMPGHD+4, CLEANUP+4!
ABMTAMT	ASKSEQ+52*, ASKSEQ+57, ASKSEQ+60, CLEANUP+4!
ABMTOT	DISPDET+13, DISPDET+29, DISPMULT+16, DISPMULT+32, CLEANUP+4!
ABMVTYPE	LOOP+11, LOOP+14, LOOP+15, LOOP+16, ASKSEQ+25, ASKSEQ+26, ASKSEQ+28, ASKSEQ+40, ASKSEQ+41, ASKSEQ+42 , ASKSEQ+47, ASKSEQ+48, ASKSEQ+50, ASKSEQ+52, ASKSEQ+53, ASKSEQ+57, ASKSEQ+60, DISPDET+4, DISPDET+8, DISPDET+10 , DISPDET+11, DISPDET+12, DISPMULT+2*, DISPMULT+11, DISPMULT+13, DISPMULT+14, DISPMULT+15, CLEANUP+2!
>> DA	GDATA1+3, GDATA1+4, LOOP+3, LOOP+13, LOOP+16
DIR	ASKDET+7!, ASKSEQ+12!, ASKSEQ+66!, RETURN+6!
DIR("?"	ASKSEQ+10*
DIR("A"	ASKDET+4, ASKSEQ+9, ASKSEQ+63*
DIR("B"	ASKDET+5, ASKSEQ+64
DIR(0	ASKDET+3, ASKSEQ+8, ASKSEQ+62, RETURN+4
>> DTOUT	START+6, START+9, ASKSEQ+13
>> DUOUT	START+6, START+9, ASKSEQ+13
DUZ(2	GDATA1+4, LOOP+3, LOOP+13, DISPDET+15, DISPDET+18, DISPMULT+18, DISPMULT+21
>> I	DISPDET+15, DISPMULT+18
IOSL	DISPDET+23, DISPMULT+26
U	LOOP+4, LOOP+5, LOOP+7, LOOP+8, LOOP+9, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15 , ASKSEQ+17, ASKSEQ+18, ASKSEQ+19, ASKSEQ+41, ASKSEQ+42, ASKSEQ+51, ASKSEQ+52, ASKSEQ+53, ASKSEQ+54, DISPDET+2 , DISPDET+3, DISPDET+4, DISPDET+10, DISPDET+15, DISPDET+16, DISPDET+17, DISPDET+18, DISPMULT+1, DISPMULT+2, DISPMULT+13 , DISPMULT+18, DISPMULT+19, DISPMULT+20, DISPMULT+21, DETHEAD+4
>> Y	ASKDET+8, ASKSEQ+14, ASKSEQ+68, DISPDET+19, DISPDET+21, DISPMULT+22, DISPMULT+24, RETURN+7

Customize PDF page

Package: Third Party Billing

Routine: ABMECDSP

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

Label References

Local Variables

Legend: