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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ECDSUTIL

Package: Event Capture

Routine: ECDSUTIL


Information

ECDSUTIL ;BIR/RHK,TTH - Event Capture Utilities ;4 May 95

Source Information

Source file <ECDSUTIL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Event Capture 1 ^ECL  
List Manager 1 $$UPPER^VALM1  

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

Package Total Caller Graph
Event Capture 7 ECBEN2A  ECBEP1B  ECDSSYN  ECED2  ECED3  ECMUTL  ECSCRN  

Entry Points

Name Comments DBIA/ICR reference
UNIT ;Select DSS Unit
SETVAR ;Set variable from the selected DSS Unit.
ADREAS(ECSPTR) ; Add procedure reason(s) to the EC Procedure Reason (#720.4)
; file and pointers to the EC Event Code Screens/Proc Reason
; Link (#720.5) file
ASK
ADREASQ
GETSCRN(ECPPTR) ; Get EC Event Code Screens (#720.3) file internal entry number
; (IEN)
GETSCRNQ
GETPRO() ;Get procedure from user and determine type
; Input: None
; Output: 1^type of procedure: X = procedure number
; N = CPT or national number
; A = name of procedure
; S = procedure synonym
; or -1 if unsuccessful
GETPROQ
SRCHTM(ANS) ; Lookup for procedures in ^TMP("ECPRO",$J)
; Input: Procedure type (see first output in GETPRO function above)
; Output: ECPCNT: -1 = no (or bad) procedure type
; 0 = procedure is in local ECPNAME array
; (for A and S types)
; number = procedure number (for X and N types)
SRCHTMQ
PRLST() ;Print list if more than one procedure matches
CHOOSE
PRLSTQ
ERRMSG ;Invalid procedure error message
ERRMSG2 ;Spacebar/return error message
KILLV ;

External References

Name Field # of Occurrence
^DIC UNIT+8, SETVAR+5, ASK+3
FILE^DICN ASK+11
^DIE ASK+7
^DIR GETPRO+14
^ECL UNIT+1
$$UPPER^VALM1 SRCHTM+19, SRCHTM+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DSS Unit: ",ECDN
  • Line Location: UNIT+4
Function Call: WRITE
  • Prompt: !?5,I,?10,$P(ECPNAME(I),"^",2)
  • Line Location: PRLST+7
Function Call: READ
  • Variable: ECRESP
  • Timeout: DTIME
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: CHOOSE+2
Function Call: WRITE
  • Prompt: !!,"Enter a valid procedure or press ""^"" to exit.",!
  • Line Location: ERRMSG+2
Function Call: WRITE
  • Prompt: !!?5,"One procedure must be entered before using spacebar/return",!?5,"to get the same procedure.",!
  • Line Location: ERRMSG2+2
Routine Call
  • DIC
  • Line Location:
    • UNIT+8
    • SETVAR+5
    • ASK+3
Routine Call
  • DIE
  • Line Location:
    • ASK+7
Routine Call
  • DIR
  • Line Location:
    • GETPRO+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECR - [#720.4] Classic Fileman Calls
^ECL - [#720.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] SETVAR+1
^ECD - [#724] UNIT+4, UNIT+5, UNIT+6, SETVAR+3
^ECH - [#721] GETSCRN+12
^ECJ - [#720.3] GETSCRN+22
^ECJ("AP" UNIT+2, GETSCRN+17
^ECL("AC" ASK+9
^ECL("AD" GETSCRN+22
^TMP("ECLKUP" SRCHTM+31, SRCHTM+40
^TMP("ECPRO" SRCHTM+22, SRCHTM+25, SRCHTM+28, SRCHTM+35, SRCHTM+39

Label References

Name Line Occurrences
ADREASQ ASK+1
ASK ASK+12
CHOOSE CHOOSE+2
GETPROQ GETPRO+15
GETSCRNQ GETSCRN+7, GETSCRN+13, GETSCRN+18
PRLSTQ PRLST+4, PRLST+8, CHOOSE+1
SETVAR UNIT+3
SRCHTMQ SRCHTM+12, SRCHTM+13, SRCHTM+22, SRCHTM+25, SRCHTM+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS SRCHTM~, SRCHTM+12, SRCHTM+13*, SRCHTM+16*, SRCHTM+22, SRCHTM+25, SRCHTM+28*, SRCHTM+31, SRCHTM+34, SRCHTM+35
, SRCHTM+39, SRCHTM+40
>> CNT UNIT+2*, UNIT+3
DA ADREAS+4~, ASK+7*, ASK+8!
DD ASK+11!
DIC UNIT+8*!, SETVAR+4*, SETVAR+5!, ADREAS+4~, ASK+2*, ASK+7, ASK+8!, ASK+10*
DIC("A" UNIT+8*, SETVAR+4*, ASK+2*
DIC("DR" ASK+10*
DIC("S" UNIT+8*, SETVAR+4*
DIC(0 UNIT+8*, SETVAR+4*, ASK+2*, ASK+10*
DIE ADREAS+4~, ASK+7*, ASK+8!
DIR GETPROQ!
DIR("A" GETPRO+13*
DIR(0 GETPRO+13*
DIRUT GETPRO+15, GETPROQ!
DLAYGO ADREAS+4~, ASK+2*, ASK+8!, ASK+10*
DO ASK+11!
DR ADREAS+4~, ASK+7*
DTIME CHOOSE+1
DTOUT ADREAS+4~, ASK+4, GETPRO+15, GETPROQ!
DUOUT ADREAS+4~, ASK+4, GETPRO+15, GETPROQ!
ECANS GETPRO+11~, GETPRO+12*, GETPRO+17*, GETPRO+19, GETPRO+20, GETPRO+22*, GETPRO+24*, GETPROQ+1
>> ECC SETVAR+6*, SETVAR+7*
>> ECCN SETVAR+6*, SETVAR+7*
ECD UNIT+2*, UNIT+4, UNIT+5, UNIT+6, UNIT+9*, SETVAR+3!
ECD(0 SETVAR+1*, SETVAR+2
>> ECDN UNIT+4*, UNIT+9*
>> ECERR SETVAR+3, SETVAR+5*
ECFL PRLST+2~, PRLST+3*, PRLST+5, PRLST+6*, PRLST+8
ECL UNIT+1, UNIT+2, UNIT+8!, SETVAR+3!
ECMAX PRLST+2~, PRLST+3*, PRLST+7*, CHOOSE+1, CHOOSE+2
ECMODS GETPRO+12!*, GETPRO+20*, GETPRO+21*
ECMS SETVAR+1*, SETVAR+3!
ECNODE0 GETSCRN+8~, GETSCRN+9*, GETSCRN+12*, GETSCRN+13, GETSCRN+17
ECNOGO SRCHTM+10~, SRCHTM+36*, SRCHTM+38*, SRCHTM+39
ECOST SETVAR+1*, SETVAR+3!
>> ECPCE SETVAR+2*
ECPCNT SRCHTM+11*, SRCHTM+22*, SRCHTM+25*, SRCHTM+31*, SRCHTM+39*, SRCHTM+40*, KILLV+1!
ECPNAM SRCHTM+10~, SRCHTM+11*, SRCHTM+35*, SRCHTM+37, SRCHTM+39
ECPNAME PRLST+4, KILLV+1!
ECPNAME( SRCHTM+39*, PRLST+5, PRLST+7, PRLSTQ
ECPNAME(2 PRLST+6
ECPPTR GETSCRN~, GETSCRN+7, GETSCRN+12
ECPROCED GETPRO+23*, SRCHTM+13, SRCHTM+19*, SRCHTM+22, SRCHTM+25, SRCHTM+28, SRCHTM+38, KILLV+1!
ECPROS KILLV+1!
ECPRPTR ADREAS+4~, ASK+6*, ASK+7, ASK+9, ASK+10
ECPUNAM SRCHTM+10~, SRCHTM+37*, SRCHTM+38
ECRESP PRLST+2~, PRLST+3*, PRLST+6*, CHOOSE*, CHOOSE+1*, CHOOSE+2, PRLSTQ
ECS SETVAR+1*, SETVAR+3!
ECSIEN GETSCRN+8~, GETSCRN+9*, GETSCRN+17*, GETSCRN+18, GETSCRN+22*, GETSCRNQ
ECSN SETVAR+1*, SETVAR+3!
ECSPTR ADREAS~, ASK*, ASK+1, ASK+9, ASK+10
ECX KILLV+1!
I SRCHTM+10~, SRCHTM+38*, PRLST+2~, PRLST+3*, PRLST+5*, PRLST+7
J SRCHTM+10~, SRCHTM+11*, SRCHTM+39*
U UNIT+9, SETVAR+1, SETVAR+2, SETVAR+3, GETSCRN+17, GETSCRN+22
X ADREAS+4~, ASK+10*
>> XX UNIT+2*
Y UNIT+5*, UNIT+8, UNIT+9, SETVAR+5, SETVAR+6, ADREAS+4~, ASK+4, ASK+5, ASK+6, ASK+8!
, GETPRO+11~, GETPRO+15, GETPRO+16, GETPRO+17, GETPRO+20*, GETPRO+23
Y(0 UNIT+6*, SETVAR+1, SETVAR+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All