Routine: SDAMOCC

Information

SDAMOCC ;IOFIO BAYPINES/TEH - AM Mgt Reports ; 12/1/91

Source file <SDAMOCC.m>

Package	Total	Call Graph
Scheduling	4	CLINIC^SDAMO0 STATS^SDAMOC $$RANGE^SDAMQ ASK2^SDDIV
VA Fileman	2	^%DT ^DIR
Registration	1	FIRST^VAUTOMA

Package	Total	Caller Graph
Scheduling	3	SDAM CANCELLED CLINIC RPT SDAMOC SDAMOC0

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
ASKBDT	;
EN1
RANGE()	; select date range ; input: none ; output: SDBEG := begin date ; SDEND := end date ; return: was selection made [ 1\|yes 0\|no]
CLINICQ
STOPQ
CLINIC()	; -- get clinic data ; input: VAUTD := divisions selected ; output: VAUTC := clinic selected (VAUTC=1 for all) ; return: was selection made [ 1\|yes 0\|no]
INIT()	; -- init vars
LINE(STR)	; -- print line ; input: STR := text to insert ; output: none ; return: text to use
ASKEDT	;
STOP()	; -- get stop code data ; output: VAUTC := stop codes selected (VAUTC=1 for all) ; return: was selection made [ 1\|yes 0\|no]
ENQ
DIV()	; -- get division data ; input: none ; output: VAUTD := divs selected (VAUTD=1 for all) ; return: was selection made [ 1\|yes 0\|no]

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$LINE("Date Range Selection"),! Line Location: ASKBDT+1
Function Call: WRITE	Prompt: !!,"Invalid Date!",! Line Location: ASKBDT+5
Function Call: WRITE	Prompt: !!,"Invalid Date!",! Line Location: ASKEDT+4
Function Call: WRITE	Prompt: !!,"Ending Date must be equal to or greater than Beginning Date." Line Location: ASKEDT+5
Function Call: WRITE	Prompt: !!,$$LINE("Date Range Selection") Line Location: RANGE+6
Function Call: WRITE	Prompt: !!,$$LINE("Statisitcs Criteria") Line Location: SELECT+5
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

Name	Line Occurrences
$$INIT	EN1
$$LINE	ASKBDT+1, RANGE+6, SELECT+5, DIV+5, CLINIC+5, STOP+4
ASKBDT	ASKBDT+5
ASKEDT	ASKEDT+4, ASKEDT+5
ENQ	EN1

Name	Field # of Occurrence
%DT	ASKBDT+2, ASKBDT+6!, ASKEDT+1, ASKEDT+6!
%DT("A"	ASKBDT+2, ASKEDT+1
DIC	EN+1~, STOP+5*
DIR	SELECT+10!
DIR("A"	SELECT+9*
DIR("B"	SELECT+9*
DIR(0	SELECT+9*
DIRUT	EN+1~, SELECT+10
IOM	LINE+7
SDAMLIST	EN+1~
SDBEG	EN+1~, ASKBDT+3*, ASKEDT+5, RANGE+7
SDEND	EN+1~, ASKEDT+2*, ASKEDT+5, RANGE+7
SDSEL	EN+1~, ASKEDT+8, ASKEDT+9, SELECT+10*, SELECT+11
SDSORT	EN+1~
STR	LINE~, LINE+6*, LINE+7, LINE+8
U	DIV+5
VAUTC	EN+1~, CLINIC+7!, CLINICQ, STOP+7!, STOPQ
VAUTD	EN+1~, DIV+6!, DIV+7
VAUTNI	EN+1~, STOP+5*
VAUTSTR	EN+1~, STOP+5*
VAUTVB	EN+1~, STOP+5*
X	ASKBDT+4, ASKEDT+3, SELECT+6, SELECT+7, SELECT+8, SELECT+9, LINE+5~, LINE+7, LINE+8
Y	EN+1~, ASKBDT+3, ASKBDT+5, ASKBDT+6!, ASKEDT+2, ASKEDT+4, ASKEDT+6!, SELECT+10, DIV+6, CLINIC+7 , STOP+7