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 |