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