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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIR  

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

Package Total Caller Graph
Event Capture 11 ECMFECS  ECOSSUM  ECPAT  ECPROV2  ECRDSSA  ECRDSSU  ECRPCLS  ECRPRSN  
ECRRPT  ECRRPT1  ECRRPT2  

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

External References

Name Field # of Occurrence
^DIC GETU+3
^DIR ASKLOC+13, GETNUM+2, ASKDSS+9, ALLU+9, SPECU+5, GETU+14, EN+2, ENDDT+9, REASON+10

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
Routine Call
  • DIC
  • Line Location:
    • GETU+3
Routine Call
  • DIR
  • Line Location:
    • ASKLOC+13
    • GETNUM+2
    • ASKDSS+9
    • ALLU+9
    • SPECU+5
    • GETU+14
    • EN+2
    • ENDDT+9
    • REASON+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOCARRY+5
^ECD - [#724] VALID+2
^ECD("B" ALLU+3
^VA(200 - [#200] ALLU+4
^XUSEC("ECALLU" ASKDSS+6

Label References

Name Line Occurrences
$$DISPU GETU+12
$$SEL ASKLOC+18
$$VALID ALLU+4, GETU+10, GETU+11
@( ASKDSS+11
ASKDSSQ ASKDSS+10
ASKLOCQ ASKLOC+9, ASKLOC+13, ASKLOC+14
DISPUQ DISPU+2
EN EN+3
ENDDTQ ENDDT+6, ENDDT+9
GETNUM GETNUM+4
GETU GETU+5, GETU+16
HLPTXT GETNUM+1, GETNUM+4
LOCARRY ASKLOC+6
NOUNITS ALLU+7
SELQ GETNUM+3
SELU SPECU+7
SELUQ GETU+4, GETU+12, GETU+15
SPECUQ SPECU+6
STDTQ EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC GETU+1*, GETU+3!
DIC("A" GETU+1*
DIC("S" GETU+2*
DIC(0 GETU+1*
DIR ASKLOC+13!, GETNUM+2!, ASKDSS+9!, ALLU+1~, SPECU+5!, GETU+14!, EN+2!, ENDDT+9!, REASON+12!
DIR("?" ASKLOC+12*, GETNUM+1*, SPECU+4*, GETU+13*, EN+1*, ENDDT+8*, REASON+8*, REASON+9*
DIR("A" ASKLOC+12*, GETNUM+1*, ASKDSS+8*, SPECU+3*, GETU+13*, EN+1*, ENDDT+7*, REASON+6*
DIR("B" ASKLOC+12*, ASKDSS+8*, SPECU+3*, GETU+13*, REASON+7*
DIR(0 ASKLOC+12*, GETNUM+1*, ASKDSS+7*, ALLU+9*, SPECU+3*, GETU+13*, EN+1*, ENDDT+7*, REASON+5*
DIRUT ASKLOC+5~, ASKLOC+13, GETNUM~, GETNUM+3, ASKDSS+5~, ASKDSS+10, SPECU+1~, SPECU+6, GETU!, GETU+15
SELUQ, EN~, EN+2, ENDDT+5~, ENDDT+9
DT EN+3
DTOUT GETU!, GETU+4, SELUQ
DUOUT ASKLOC+5~, GETNUM~, ASKDSS+5~, SPECU+1~, GETU!, GETU+4, SELUQ, EN~, ENDDT+5~
DUZ ASKDSS+6, ALLU+4
ECCNT LOCARRY+3~, LOCARRY+4*, LOCARRY+5*
ECD ASKDSS+5~, ALLU+1~, ALLU+2*, ALLU+3*, ALLU+5
ECDSSU ASKDSSQALLU+6, GETU+16!, SELUQ+1, SELUQ+2!, DISPU+2, DISPUQ
ECDSSU( ALLU+5*, GETU+6, GETU+10*, DISPU+4
>> ECENDDT ENDDT+10*, ENDDTQ
ECKEY ASKDSS+5~, ASKDSS+6*, ASKDSS+8, ALLU+4
ECLNAM LOCARRY+3~, LOCARRY+4*, LOCARRY+5*
ECLNUM LOCARRY+3~, LOCARRY+4*, LOCARRY+5*
ECLOC ASKLOC+13!, ASKLOC+22!, ASKLOCQ
ECLOC( ASKLOC+17, ASKLOC+20, ASKLOC+21!, LOCARRY+5*, GETNUM+4
ECLOC(1 ASKLOC+20*
ECLOC(2 ASKLOC+9
>> ECLOC1( LOCARRY+5*
ECN ASKLOC+5~, GETNUM+3*, GETNUM+5*, SELQ, ASKDSS+5~, ALLU+1~, ALLU+2*, ALLU+3*, ALLU+4, ALLU+5
ECNT ASKDSS+5~
ECNUM ASKLOC+5~, ASKLOC+18*, ASKLOC+19, ASKLOC+20, ASKLOC+22
>> ECRY REASON+11*
>> ECSTDT EN+4*, STDTQ
ECX ASKLOC+5~, ASKLOC+17*, ASKLOC+21*, ASKDSS+5~, ALLU+1~, ALLU+2*, ALLU+5*, SELU+1~, SELU+2*, GETU+6
GETU+10*, GETU+16*
I ASKDSS+5~, ALLU+1~, ALLU+8*, SELU+1~, GETU+6*, GETU+11*
IEN VALID~, VALID+2
IOF ASKLOC+16, DISPU+3
NODE VALID+1~, VALID+2*, VALID+3
STDT ENDDT~, ENDDT+6, ENDDT+7
TYP DISPU~, DISPU+3
X DISPU+1~, DISPU+4*
Y ASKLOC+5~, ASKLOC+14, ASKLOC+15, GETNUM~, GETNUM+4, GETNUM+5, ASKDSS+5~, ASKDSS+11, ALLU+1~, SPECU+1~
SPECU+6, SELU+1~, GETU!, GETU+5, GETU+6, GETU+8*, GETU+9, GETU+10, GETU+11, GETU+12
GETU+16, EN~, EN+3, EN+4, ENDDT+5~, ENDDT+10, REASON+11, REASON+12!
Z SELU+1~, SELU+2*, GETU+12*

Marked Items

Name Field # of Occurrence
$T(ERRMSG+I ALLU+8
$T(HLPTXT GETNUM+1, GETNUM+4
$T(INVALID+I GETU+11
$T(NOUNITS ALLU+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All