ECRUTL ;ALB/ESD - Event Capture Report Utilities ;1 Aug 97
Source file <ECRUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ASKLOC() | ; Ask report location(s) (institution)
; Input: None ; Output: 1 if successful - location(s) will be in array ECLOC ; 0 if unsuccessful |
|
ASKLOCQ | ||
LOCARRY | ;-- Get location(s) from "LOC" xref of DMMS Units (#720) fld of
; INSTITUTION file and create ECLOC array |
|
SEL() | ;-- Select one location from ECLOC array
|
|
GETNUM | ||
SELQ | ||
ASKDSS() | ; Ask DSS Unit(s)
; Input: None ; Output: 1 if successful - DSS Units will be in array ECDSSU ; 0 if unsuccessful |
|
ASKDSSQ | ||
ALLU | ;-- Get all DSS Units and create ECDSSU array
|
|
ALLUQ | ||
SPECU | ;-- Get specific DSS Units
|
|
SPECUQ | ||
SELU | ;-- Create ECDSSU array containing DSS Units after checking for validity and access to Unit
|
|
GETU | ||
SELUQ | ||
VALID(IEN) | ;-- Check DSS Unit for use by Event Capture
|
|
DISPU(TYP) | ;-- Display DSS Units
|
|
DISPUQ | ||
HLPTXT | ;; Enter the number corresponding to the location you want to select.
|
|
NOUNITS | ;; You do not have access to any DSS Units.
|
|
ERRMSG | ;; If you are responsible for printing this report, contact your Event
|
|
INVALID | ;; This DSS Unit is either inactive or cannot be used with the
|
|
STDT() | ; Get Start Date
; Input: None ; Output: 1 if successful - start date in ECSTDT ; 0 if unsuccessful |
|
EN | ||
STDTQ | ||
ENDDT(STDT) | ; Get End Date
; Input: STDT - Start Date ; Output: 1 if successful - end date in ECENDDT ; 0 if unsuccessful |
|
ENDDTQ | ||
REASON | ;* Prompt to report Procedure Reasons
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|