Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABMECDSP

Package: Third Party Billing

Routine: ABMECDSP


Information

ABMECDSP ; IHS/ASDST/DMJ - ELECTRONIC CLAIMS DISPLAY (SUMMARY) ;

Source Information

Source file <ABMECDSP.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All