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
Print Page as PDF
Routine: ECRUTL

Package: Event Capture

Routine: ECRUTL


Information

ECRUTL ;ALB/ESD - Event Capture Report Utilities ;1 Aug 97

Source Information

Source file <ECRUTL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLOC+11
Function Call: WRITE
  • Prompt: @IOF,!,"Event Capture Locations:",!
  • Line Location: ASKLOC+16
Function Call: WRITE
  • Prompt: ECX_". ",$P(ECLOC(ECX),"^",2),!
  • Line Location: ASKLOC+17
Function Call: WRITE
  • Prompt: !!,$P($T(HLPTXT),";;",2)
  • Line Location: GETNUM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDSS+7
Function Call: WRITE
  • Prompt: !!,$P($T(NOUNITS),";;",2),!
  • Line Location: ALLU+7
Function Call: WRITE
  • Prompt: !,$P($T(ERRMSG+I),";;",2)
  • Line Location: ALLU+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ALLU+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SPECU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GETU+0
Function Call: WRITE
  • Prompt: !,?10,"But you already selected that one... try again."
  • Line Location: GETU+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GETU+11
Function Call: WRITE
  • Prompt: !?5,$P($T(INVALID+I),";;",2)
  • Line Location: GETU+11
Function Call: WRITE
  • Prompt: !!?10," *** NO DSS UNITS SELECTED ***"
  • Line Location: GETU+12
Function Call: WRITE
  • Prompt: !
  • Line Location: GETU+13
Function Call: WRITE
  • Prompt: !!,?10,"Deleting selection...",!
  • Line Location: SELUQ+1
Function Call: WRITE
  • Prompt: @IOF,!!,$S($G(TYP)="All":TYP,1:"Selected")_" DSS Units:",!
  • Line Location: DISPU+3
Function Call: WRITE
  • Prompt: !?5,X_". ",$P(ECDSSU(X),"^",2)
  • Line Location: DISPU+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPU+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"*** Future dates are not allowed ***"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+7
Info |  Source |  Entry Points |  Interaction Calls