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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SDAMOW

Package: Scheduling

Routine: SDAMOW


Information

SDAMOW ;ALB/CAW - Waiting Time Report ; 12/1/91

Source Information

Source file <SDAMOW.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 4 CLINIC^SDAMO0  ($$DISP,START)^SDAMOW1  $$RANGE^SDAMQ  ASK2^SDDIV  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 FIRST^VAUTOMA  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SDAM RPT WAITING TIME  SDAMOW1  

Entry Points

Name Comments DBIA/ICR reference
SELECT() ; -- get selection criteria
; input: none
; output: SDSEL := criteria selected
; return: was selection made [ 1|yes 0|no]
EN ; main entry point
ASKQ
DIV() ; -- get division data
; input: none
; output: VAUTD := divs selected (VAUTD=1 for all)
; return: was selection made [ 1|yes 0|no]
EN1
RANGE() ; select date range
; input: none
; output: SDBEG := begin date
; SDEND := end date
; return: was selection made [ 1|yes 0|no]
CLINICQ
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]
STOPQ
INIT() ; -- init vars
EN2
EN3
LINE(STR) ; -- print line
; input: STR := text to insert
; output: none
; return: text to use
ASK() ; -- ask if ok to use specs
; input: all selection variables
; output: none
; return: ok to continue [ 1|yes 0|no]
ENQ
SORT() ; -- how to sort
; input: none
; output: SDSORT := sort selected
; return: was selection made [ 1|yes 0|no]
CLINIC() ; -- get clinic data
; input: VAUTD := divisions selected
; output: VAUTC := clinic selected (VAUTC=1 for all)
; return: was selection made [ 1|yes 0|no]
STOP() ; -- get stop code data
; output: VAUTS := stop codes selected (VAUTS=1 for all)
; return: was selection made [ 1|yes 0|no]

External References

Name Field # of Occurrence
^%ZIS EN3+3
^%ZISC ENQ
^%ZTLOAD QUE+6
^DIR SELECT+10, SORT+14, ASK+6
CLINIC^SDAMO0 CLINIC+6
$$DISP^SDAMOW1 ASK+5
START^SDAMOW1 EN3+4
$$RANGE^SDAMQ RANGE+7
ASK2^SDDIV DIV+6
FIRST^VAUTOMA STOP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$LINE("Device Selection")
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !!,"This output requires 132 columns.",!!
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !!,$$LINE("Date Range Selection")
  • Line Location: RANGE+6
Function Call: WRITE
  • Prompt: !!,$$LINE("Type of Report Criteria")
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Sort Selection")
  • Line Location: SORT+5
Function Call: WRITE
  • Prompt: !!,"Note: Top level sort will always be by Division."
  • Line Location: SORT+6
Function Call: WRITE
  • Prompt: !!,$$LINE("Clinic Selection")
  • Line Location: CLINIC+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Stop Codes Selection")
  • Line Location: STOP+4
Routine Call
  • DIR
  • Line Location:
    • SELECT+10
    • SORT+14
    • ASK+6
Routine Call
  • %ZIS
  • Line Location:
    • EN3+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] DIV+5

Label References

Name Line Occurrences
$$ASK EN3
$$CLINIC EN2+2
$$DIV EN2
$$INIT EN1
$$LINE EN3+1, RANGE+6, SELECT+5, SORT+5, DIV+5, CLINIC+5, STOP+4
$$QUE EN3+5
$$RANGE EN1+1
$$SELECT EN1+2
$$SORT EN1+3
$$STOP EN2+3
ASKQ ASK+5
EN1 EN3
EN3 EN2+1
ENQ EN1, EN1+1, EN1+2, EN1+3, EN2, EN2+2, EN2+3, EN3+3, EN3+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN3+3*
DIC EN+1~, STOP+5*
DIR SELECT+10!, SORT+14!, ASK+6!
DIR("A" SELECT+9*, SORT+13*, ASK+6*
DIR("B" SELECT+9*, SORT+13*, ASK+6*
DIR(0 SELECT+9*, SORT+13*, ASK+6*
>> DIRUT SELECT+10, SORT+14, ASKQ
IO("Q" EN3+4, QUE+3!
IOM LINE+7
>> POP EN3+3
SDAMLIST EN+1~
SDBEG EN+1~, RANGE+7
SDEND EN+1~, RANGE+7
SDSEL EN+1~, SELECT+10*, SELECT+11
SDSORT EN+1~, EN2+1, EN2+2, EN2+3, SORT+14*, SORT+15
STR LINE~, LINE+6*, LINE+7, LINE+8
U DIV+5
VAUTC EN+1~, EN2+1*, ENQ+1!, CLINIC+7!, CLINICQ
VAUTD EN+1~, ENQ+1!, DIV+6!, DIV+7
>> VAUTNI STOP+5*
VAUTS EN2+1*, ENQ+1!, STOP+7!, STOPQ
>> VAUTSTR STOP+5*
>> VAUTVB STOP+5*
X SELECT+6*, SELECT+7*, SELECT+8*, SELECT+9, SORT+7*, SORT+8*, SORT+9*, SORT+10*, SORT+11*, SORT+12*
, SORT+13, LINE+5~, LINE+7*, LINE+8, QUE+5*
>> Y EN3+5*, SELECT+10, SORT+14, DIV+6, CLINIC+7, STOP+7, ASK+5*, ASKQ
>> ZTDESC QUE+4*
>> ZTQUEUED ENQ
>> ZTRTN QUE+4*
>> ZTSAVE( QUE+5*
ZTSK QUE+3!, QUE+6, QUE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All