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

Package: Event Capture

Routine: ECSCR


Information

ECSCR ;BIR/MAM,TTH,JPW-Retrieve Event Capture Location ;1 May 96

Source Information

Source file <ECSCR.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Event Capture 1 $$NAM^ECSCR  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Event Capture 2 ECSCR  ECSCRN  

Entry Points

Name Comments DBIA/ICR reference
END ;Exit routine
LL ; select location
LOC
ASK
ASK2 ;Display selection to the user.
NAM() ;Display procedure name.

External References

Name Field # of Occurrence
^DIR ASK2+6
$$NAM^ECSCR ASK2+3
$$CPT^ICPTCOD NAM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Choose Event Capture Location for this event code screen.",!
  • Line Location: ECSCR+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LL+2
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if this procedure will be "_$P(ECWORD,"^",2)_" from all locations,",!,"or ""NO"" to "_$P(ECWORD,"^",3)_" location.",!!
  • Line Location: LL+4
Function Call: WRITE
  • Prompt: @IOF,!,"Event Capture Locations: ",!
  • Line Location: LL+5
Function Call: WRITE
  • Prompt: !,CNT_". "_$P(LOC(CNT),"^")
  • Line Location: LOC+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Select Location: "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the location you want to select.",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"This location has already been selected."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: " "_$P(LOC(X),"^")
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Event Code Screen Information:"
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !,"----------------------------",!
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: !,"DSS Unit : "_ECDN,!,"Category : "_ECCN,!,"Procedure: "_$$NAM^ECSCR
  • Line Location: ASK2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+5
Routine Call
  • DIR
  • Line Location:
    • ASK2+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] ECSCR+2

Label References

Name Line Occurrences
ASK ASK, ASK+2, ASK+4
END ECSCR+5
LL ECSCR+6, LL+4
LOC ECSCR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ECSCR+2*, LOC*
>> DIR("A" ASK2+5*
>> DIR("B" ASK2+5*
>> DIR(0 ASK2+5*
DIRUT ASK2+4!, ASK2+6
DTIME LL+2, ASK
>> ECANS ASK2+6*
>> ECCN ASK2+3
>> ECDN ASK2+3
>> ECL ECSCR+4*, ECSCR+6, LL+2*, ASK+3*
>> ECLOC ECSCR+4*, LL+1*, LL+3*
ECN ECSCR+5!
>> ECOUT ECSCR+2*
>> ECP NAM+1, NAM+3, NAM+4, NAM+5
ECPC NAM+2~, NAM+4*, NAM+5
ECPF NAM+2~, NAM+3*, NAM+5
>> ECPN NAM+5*, NAM+6
>> ECWORD LL+1*, LL+2, LL+4
ECY ECSCR+5!
>> I ECSCR+2*, LOC*
IOF ECSCR+5, LL+5
>> LOC( ECSCR+2*, LOC, ASK, ASK+3
>> LOC(1 ECSCR+4
>> LOC(2 ECSCR+4, ECSCR+5, ECSCR+6
>> LOC1( ASK+2, ASK+3*
>> LOC1(1 ECSCR+4*
>> NUM ASK+3*
U NAM+5
>> X ECSCR+2*, LL+2*, LL+4, ASK*, ASK+1, ASK+2, ASK+3
Y ECSCR+2*, ASK2+4!, ASK2+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All