SDAMOW ;ALB/CAW - Waiting Time Report ; 12/1/91
Source file <SDAMOW.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; main entry point
|
|
EN1 | ||
EN2 | ||
EN3 | ||
ENQ | ||
INIT() | ; -- init vars
|
|
RANGE() | ; select date range
; input: none ; output: SDBEG := begin date ; SDEND := end date ; return: was selection made [ 1|yes 0|no] |
|
SELECT() | ; -- get selection criteria
; input: none ; output: SDSEL := criteria selected ; return: was selection made [ 1|yes 0|no] |
|
SORT() | ; -- how to sort
; input: none ; output: SDSORT := sort selected ; return: was selection made [ 1|yes 0|no] |
|
DIV() | ; -- get division data
; input: none ; output: VAUTD := divs selected (VAUTD=1 for all) ; 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] |
|
CLINICQ | ||
STOP() | ; -- get stop code data
; output: VAUTS := stop codes selected (VAUTS=1 for all) ; return: was selection made [ 1|yes 0|no] |
|
STOPQ | ||
LINE(STR) | ; -- print line
; input: STR := text to insert ; output: none ; return: text to use |
|
QUE() | ; -- que job
; return: did job que [ 1|yes 0|no ] |
|
ASK() | ; -- ask if ok to use specs
; input: all selection variables ; output: none ; return: ok to continue [ 1|yes 0|no] |
|
ASKQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIC(40.7 - [#40.7] | Classic Fileman Calls |