Routine: SDAMO

Information

SDAMO ;ALB/MJK - AM Mgt Reports ; 12/1/91

Source file <SDAMO.m>

Package	Total	Call Graph
Scheduling	3	STATS^SDAMOS $$RANGE^SDAMQ ASK2^SDDIV
IHS Changes To Scheduling	1	CLINIC^BSDU
Registration	1	FIRST^VAUTOMA
VA Fileman	1	^DIR

Package	Total	Caller Graph
Scheduling	6	SDAM RPT MANAGEMENT SDAMO0 SDAMOC SDAMOS SDAMOS0 SDROUT

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
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
STOPQ
INIT()	; -- init vars
LINE(STR)	; -- print line ; input: STR := text to insert ; output: none ; return: text to use
ENQ
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: VAUTC := stop codes selected (VAUTC=1 for all) ; return: was selection made [ 1\|yes 0\|no]

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$LINE("Date Range Selection") Line Location: RANGE+6
Function Call: WRITE	Prompt: !!,$$LINE("Statistics 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	Field # of Occurrence
DIC	EN+1~, STOP+5*
DIR	SELECT+10!
DIR("A"	SELECT+9*
DIR("B"	SELECT+9*
DIR(0	SELECT+9*
>> DIRUT	SELECT+10
IOM	LINE+7
SDAMLIST	EN+1~
SDBEG	EN+1~, RANGE+7
SDEND	EN+1~, RANGE+7
SDSEL	EN+1~, EN1+3, SELECT+10, SELECT+11
SDSORT	EN+1~
STR	LINE~, LINE+6*, LINE+7, LINE+8
U	DIV+5
VAUTC	EN+1~, CLINIC+10!, CLINICQ, STOP+7!, STOPQ
VAUTD	EN+1~, DIV+6!, DIV+7
>> VAUTNI	STOP+5*
>> VAUTSTR	STOP+5*
>> VAUTVB	STOP+5*
X	SELECT+6, SELECT+7, SELECT+8, SELECT+9, LINE+5~, LINE+7, LINE+8
>> Y	SELECT+10, DIV+6, CLINIC+10, STOP+7