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

Package: Interim Management Support

Routine: ECTSOP


Information

ECTSOP ;B'ham ISC/PTD-Outpatient Workload Trends by Fiscal Year ;01/29/91 08:00

Source Information

Source file <ECTSOP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  NOW^%DTC  ^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: 1

Package Total Caller Graph
Interim Management Support 1 ECTS WKLD OP  

Entry Points

Name Comments DBIA/ICR reference
V ;;1.05;INTERIM MANAGEMENT SUPPORT;;
BYR
EYR
DEV
ENQ ;ENTRY POINT WHEN QUEUED
LCN
WRTOT
EXIT
HDR ;PRINT REPORT MAIN HEADER
WRTLN
VISIT
PRTCHK

External References

Name Field # of Occurrence
^%DT BYR, EYR
NOW^%DTC HDR+1
^%ZIS DEV, EXIT+1
^%ZISC EXIT+1
^%ZTLOAD DEV+2
^DIR PRTCHK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'VAMC Management' File - #731 is not loaded on your system.",!!
  • Line Location: V+1
Function Call: WRITE
  • Prompt: *7,!!,"'VAMC Management' File - #731 has not been populated on your system.",!!
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !,"You may select the fiscal year RANGE for this report.",!,"(Up to 5 years of data may be displayed.)",!!,"Enter ONLY the 2 or 4 digit year!",!
  • Line Location: V+3
Function Call: WRITE
  • Prompt: *7,!!,"Only a 5 year range may be shown on one report!",!!
  • Line Location: EYR+1
Function Call: WRITE
  • Prompt: *7,!!,"There is NO DATA in the file for the selected date range!",!!
  • Line Location: EYR+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?34
  • Line Location: WRTOT+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WRTOT+0
Function Call: WRITE
  • Prompt: @IOF,!?25,"VAMC OUTPATIENT WORKLOAD TRENDS",!?24,"VISITS FROM FY: "_(1700+BYRDA)_" TO FY: "_(1700+EYRDA)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?45,Y,?70,"PAGE ",PGCT
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,OPT
  • Line Location: WRTLN+0
Routine Call
  • DIR
  • Line Location:
    • PRTCHK
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • EXIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+1
^DG(40.8 - [#40.8] ENQ+1
^ECT(731 - [#731] V+1, V+2, EYR+2, ENQ+1
^TMP($J ENQ+1!*, LCN, EXIT!, VISIT, VISIT+1

Label References

Name Line Occurrences
BYR EYR+1
EXIT BYR, EYR, EYR+3, DEV, DEV+2, LCN
HDR ENQ+2, PRTCHK+1
PRTCHK WRTLN
VISIT WRTLN+1
WRTLN LCN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, HDR+1
%DT BYR*!, EYR*!
%DT("A" BYR*, EYR*
%DT(0 BYR*, EYR*
%H EXIT!
%I EXIT!
%ZIS DEV!*
%ZIS("B" DEV*
BYR BYR*, EYR+1!, EXIT!
BYRDA BYR*, EYR, EYR+1!, EYR+2, ENQ+1, WRTOT+1, EXIT!, HDR+1, HDR+2, WRTLN+1
CNT ENQ+1*, WRTOT+1, EXIT!, HDR+2, WRTLN+1
COL WRTOT+1*, EXIT!, HDR+2*, WRTLN*, WRTLN+1*
CT WRTOT+1*, EXIT!, HDR+2*, WRTLN*, WRTLN+1*
DIR EXIT!
DIR(0 PRTCHK*
DSCH EXIT!
DTOUT BYR, EYR, EXIT!
EYR EYR*, EYR+1!, EXIT!
EYRDA EYR*, EYR+1!, EYR+2, ENQ+1, WRTOT+1, EXIT!, HDR+1, HDR+2, WRTLN+1
FLG EYR+2*, EYR+3, EXIT!
INCR WRTOT+1*, EXIT!, HDR+2*, WRTLN*, WRTLN+1
IO DEV+3, EXIT+1
IO("Q" DEV+1!
IOF HDR+1
IOP DEV!, EXIT+1*
IOSL WRTLN
IOST PRTCHK
J ENQ+1*, WRTOT*, EXIT!
K LCN*, EXIT!
LCN ENQ+1*, EXIT!
LN ENQ+2*, EXIT!, HDR+3
OPT ENQ+1*, ENQ+2*, LCN*, EXIT!, WRTLN, VISIT, VISIT+1
PGCT ENQ+2*, EXIT!, HDR+1*
POP DEV, EXIT!
QFLG ENQ+2*, LCN, EXIT!, WRTLN, PRTCHK*
TOT WRTOT+1*, EXIT!
TOT( ENQ+1*, WRTOT+1, WRTLN+1*
VST ENQ+1*, EXIT!, WRTLN+1, VISIT*, VISIT+1*
X BYR, EYR, EYR+1!, EXIT!
>> XQUIT V+1*, V+2*
Y BYR, EYR, EYR+1!, EXIT!, HDR+1*, PRTCHK
YEAR WRTOT+1*, EXIT!, WRTLN+1*, VISIT, VISIT+1
YR EYR+2*, ENQ+1*, EXIT!, HDR+2*
ZTDESC DEV+1*, EXIT!
ZTRTN DEV+1*, EXIT!
ZTSAVE EXIT!
ZTSAVE("BYRDA" DEV+1*
ZTSAVE("EYRDA" DEV+1*
ZTSK DEV+2!, EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All