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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABMDRPER

Package: Third Party Billing

Routine: ABMDRPER


Information

ABMDRPER ; IHS/ASDST/DMJ - UTILITY TO DISPLAY % COMPLETE SCALE ;

Source Information

Source file <ABMDRPER.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Third Party Billing 2 $$MDT^ABMDUTL  $$EN^ABMVDF  
VA Fileman 1 NOW^%DTC  

Entry Points

Name Comments DBIA/ICR reference
CURR ;EP for writing scale
ERR
CHK1
CHK2
START ;EP for entering utility
XIT
TEST
END ;EP for cleaning up

External References

Name Field # of Occurrence
NOW^%DTC START+8, END+2
$$MDT^ABMDUTL START+8, END+2
$$EN^ABMVDF START+2, CURR+6, CURR+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF")
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,?(40-($L(ABMR("%X"))\2)),ABMR("%X")
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!?3,"Total Records to Process.....: ",ABMR("R")
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !?3,"Currently Processing Record..: 1"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!?3,"Starting Time................: "
  • Line Location: START+8
Function Call: WRITE
  • Prompt: $$MDT^ABMDUTL(%)
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!,?(40-($L(ABMR("%X"))\2)),ABMR("%X"),!
  • Line Location: START+10
Function Call: WRITE
  • Prompt: ?13,0
  • Line Location: START+11
Function Call: WRITE
  • Prompt: ?($X+3)
  • Line Location: START+11
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: ABMR("%I")=10
  • Line Location: START+11
Function Call: WRITE
  • Prompt: ABMR("%I")
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !?13,"|"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: "----|"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: ABMR
  • Line Location: CURR+4
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("RVN")
  • Line Location: CURR+6
Function Call: WRITE
  • Prompt: "|"
  • Line Location: CURR+8
Function Call: WRITE
  • Prompt: !!?3,"Ending Time..................: "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: $$MDT^ABMDUTL(%),!!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,*7,"NECESSARY VARIABLES NOT DEFINED!"
  • Line Location: ERR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] TEST
^AUPNVSIT(0 TEST

Label References

Name Line Occurrences
CURR TEST
END TEST+1
ERR CHK1, CHK2
START TEST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+8, END+2
ABMR CURR+2, CURR+4, END+3!, CHK2, TEST*
ABMR( START+3*, CURR+2
ABMR("%I" START+3*, START+11*, START+12*
ABMR("%X" START+4*, START+5, START+9*, START+10
ABMR("%XIT" ERR*
ABMR("C%" START+1*, CURR+1, CURR+2, CURR+5, CURR+7, CURR+10*
ABMR("R" START+3, START+6, CHK1, TEST*
ABMR("T" TEST*
ABMR("X%" START+13*, CURR+5, CURR+10*
>> DX CURR+4*, CURR+5*
>> DY CURR+4*, CURR+5*
IO(0 START+4, CURR+3, END+1
>> IOXY CURR+4, CURR+6
U TEST
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All