Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECR - [#720.4] Classic Fileman Calls
^ECL - [#720.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call