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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECTDSUR

Package: Interim Management Support

Routine: ECTDSUR


Information

ECTDSUR ;B'ham ISC/DMA-Surgery Workload ;01/29/91 08:00

Source Information

Source file <ECTDSUR.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  NOW^%DTC  

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 ECTD SUR STATS  

Entry Points

Name Comments DBIA/ICR reference
V ;;1.05;INTERIM MANAGEMENT SUPPORT;;
BDAT
EDAT
DEQ ;gather and print data
PRINT ;
DONE
END
GET ;
QUE

External References

Name Field # of Occurrence
^%DT BDAT, EDAT
NOW^%DTC PRINT+3
^%ZIS EDAT+1, END
^%ZISC DONE
^%ZTLOAD QUE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'Surgery' File - #130 is not loaded on your system.",!!
  • Line Location: V+1
Function Call: WRITE
  • Prompt: *7,!!,"'Surgery' File - #130 has not been populated on your system.",!!
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !,"Ending date must be later than beginning date",!
  • Line Location: EDAT+0
Function Call: WRITE
  • Prompt: !,?15,"SURGERY CASES FOR THE PERIOD ",$E(ECBD,4,5),"/",$E(ECBD,6,7),"/",$E(ECBD,2,3)," TO ",$E(ECED,4,5),"/",$E(ECED,6,7),"/",$E(ECED,2,3)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!?45,Y,?70,"PAGE ",PGCT
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,?35,"COMPLETED",?47,"CANCELLED",?61,"TOTAL",?71,"PERCENT",!,"SPECIALTY",?37,"CASES",?49,"CASES",?61,"CASES",?70,"CANCELLED",!,LN
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?19,"NO DATA AVAILABLE FOR SELECTED DATE RANGE.",!!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?3,$S(SC="zz":"NOT SPECIFIED",1:SC),?35,$J(CO,5,0),?47,$J(CA,5,0)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?61,$J(TOT,5,0),?71,$J((100*CA/TOT),5,1)
  • Condition for execution: TOT
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?35
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?10,"TOTAL",?35,$J(COT,5,0),?47,$J(CAT,5,0)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?61,$J(TOT,5,0),?71,$J(100*CAT/TOT,5,1)
  • Condition for execution: TOT
  • Line Location: PRINT+8
Routine Call
  • %ZIS
  • Line Location:
    • EDAT+1
    • END

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+3
^DIC(45.3 - [#45.3] GET+1
^SRF - [#130] V+1, DEQ+3, GET+3, GET+4
^SRF("AC" DEQ+3
^SRF(0 V+2
^TMP($J DEQ+1!, PRINT+5, PRINT+6, END!, GET+7, GET+8*

Label References

Name Line Occurrences
BDAT EDAT
DONE PRINT+5
END BDAT, EDAT, EDAT+1, QUE
GET DEQ+3
QUE EDAT+2

Naked Globals

Name Field # of Occurrence
^( PRINT+6, GET+3, GET+7*
^(0 DEQ+3, GET+1
^(30 GET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+3, END!
%DT BDAT!*, END!
%DT("A" BDAT*, EDAT*
%H END!
%I END!
%ZIS EDAT+1*, END!
CA PRINT+6*, END!
CAT PRINT+2*, PRINT+6*, PRINT+8, END!
CO PRINT+6*, END!
COT PRINT+2*, PRINT+6*, PRINT+8, END!
DATA DEQ+3*, PRINT+6*, END!, GET+1
ECBD BDAT*, EDAT, DEQ+3, PRINT+3, END!
ECD DEQ+3*, END!
ECD0 DEQ+3*, END!, GET+3, GET+4
ECED EDAT*, DEQ+2*, DEQ+3, PRINT+3, END!
IO DEQ+1, END
IO("Q" EDAT+2
IOF PRINT+1, DONE
ION QUE
>> IOP END*
IOST DONE
J PRINT+6*, PRINT+7*, END!
LN PRINT+2*, PRINT+4, END!
PGCT PRINT+2*, PRINT+3*, END!
POP EDAT+1, END!
SC PRINT+6*, END!, GET+1*, GET+7, GET+8
SPP END!, GET+1*
TOT PRINT+6*, PRINT+8*, END!
X END!, GET+2*, GET+3*, GET+4*, GET+5, GET+8
>> XQUIT V+1*, V+2*
Y BDAT, EDAT, PRINT+3*, END!
ZTDESC END!, QUE*
ZTIO END!, QUE*
ZTRTN END!, QUE*
ZTSAVE END!
ZTSAVE("ECBD" QUE*
ZTSAVE("ECED" QUE*
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All