SDAMOL ;ALB/CAW - Retroactive Appt. List; 4/15/92
Source file <SDAMOL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; main entry point
|
|
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] |
|
DIV() | ; -- get division data
; input: none ; output: VAUTD := divs selected (VAUTD=1 for all) ; return: was selection made [ 1|yes 0|no] |
|
STOP() | ; -- get stop code data
; input: none ; output: VAUTS := stop codes selected (VAUTS=1 for all) ; 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] |
|
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 | ||
NPDB() | ; -- get which type of database check (credit or database)
; input: none ; output: SDNPDB -- type of database check [WORLOAD | DATABASE] ; return: was selection made [ 1|yes 0|no] |
|
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 ] |
Name | Line Occurrences |
---|---|
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 |