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

Package: Third Party Billing

Routine: ABMDES1


Information

ABMDES1 ; IHS/ASDST/DMJ - Display Summarized UB-82/92 Info ;

Source Information

Source file <ABMDES1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Third Party Billing 3 PREV^ABMDFUTL  $$GETREV^ABMDUTL  $$EN^ABMVDF  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Third Party Billing 2 ABMDES11  ABMDESM  

Entry Points

Name Comments DBIA/ICR reference
UB82 ;EP for printing UB-82/92 charge summary
HD ;HEADER
TOT ;

External References

Name Field # of Occurrence
PREV^ABMDFUTL TOT+7
$$GETREV^ABMDUTL UB82+7
$$EN^ABMVDF HD+1
^DIR UB82+4, TOT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?70,$J($FN($P(ABMS(ABMS),U,5),",",2),9)
  • Line Location: UB82+8
Function Call: WRITE
  • Prompt: !,$P(ABMS("CPT",ABMS),U),?29,"|",$P(ABMS("CPT",ABMS),U,2),?43,$P(ABMS("CPT",ABMS),U,3),?51,$J($P(ABMS("CPT",ABMS),U,4),3),?58,$J($FN($P(ABMS("CPT",ABMS),U,5),",",2),9)
  • Line Location: UB82+9
Function Call: WRITE
  • Prompt: !?58,"---------"
  • Line Location: UB82+10
Function Call: WRITE
  • Prompt: !?10,"TOTAL CHARGE",?43,"0001",?58,$J($FN(ABMS("TOT"),",",2),9)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !?39,"Non-Covd Charges:",?57,$J("("_$FN($P(ABMS($P(ABMP("FLAT"),U,2)),U,5),",",2),10),")"
  • Line Location: TOT+8
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF")
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?22,ABMP("HEADER")
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!,"Active Insurer: ",$P($G(^AUTNINS(ABMP("INS"),0)),U),!
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?42,"Revn",?60,"Total"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?71,"Non-cvd"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !?10," Description",?42,"Code",?50,"Units",?59,"Charges"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?71,"Charges"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,ABMS("I")
  • Line Location: HD+8
Routine Call
  • DIR
  • Line Location:
    • UB82+4
    • TOT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDEXP - [#9002274.08] HD+2
^AUTNINS - [#9999999.18] HD+5
^AUTTREVN - [#9999999.72] UB82+5

Label References

Name Line Occurrences
HD UB82+2, UB82+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABMP("EXP" HD+2
>> ABMP("FLAT" UB82+5, UB82+6, UB82+8, TOT+8, HD+6, HD+7
>> ABMP("FORM" HD+2*, HD+3
>> ABMP("HEADER" HD+3*, HD+4
>> ABMP("INS" HD+5
>> ABMP("PD" TOT+10, TOT+11
>> ABMP("RESP" TOT+8*, TOT+9*, TOT+13
>> ABMP("TOT" TOT+2*
>> ABMP("WO" TOT+10, TOT+12
>> ABMS UB82+3*, UB82+5, UB82+6, UB82+7, UB82+8, UB82+9*
>> ABMS( UB82+3, UB82+6, UB82+7, UB82+8, TOT+8
>> ABMS("CPT" UB82+6, UB82+9
>> ABMS("I" UB82+3*, UB82+8, HD+8*
>> ABMS("TOT" TOT+1, TOT+2
DIR TOT+4!
DIR(0 UB82+4*, TOT+4*
>> DIROUT UB82+3, UB82+4
>> DTOUT UB82+3, UB82+4
>> DUOUT UB82+3, UB82+4
IOSL UB82+4, TOT+3
U UB82+5, UB82+6, UB82+7, UB82+8, UB82+9, TOT+8, HD+2, HD+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All