Routine: SDAMOL

Package	Total	Call Graph
Scheduling	4	CLINIC^SDAMO0 MAIN^SDAMOL1 ASK2^SDDIV DATE^SDUTL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	FIRST^VAUTOMA
VA Fileman	1	^DIR

Package	Total	Caller Graph
Scheduling	1	SDAM RPT RETROACTIVE LIST

Entry Points

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]
INIT()	; -- init vars
RANGE()	; select date range ; input: none ; output: SDBEG := begin date ; SDEND := end date ; return: was selection made [ 1\|yes 0\|no]
CLINICQ
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
ENQ
LINE(STR)	; -- print line ; input: STR := text to insert ; output: none ; return: text to use
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]
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 ; input: none ; output: VAUTS := stop codes selected (VAUTS=1 for all) ; return: was selection made [ 1\|yes 0\|no]

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+10
Function Call: WRITE	Prompt: !!,$$LINE("Date Range Selection") Line Location: RANGE+6
Function Call: WRITE	Prompt: !!,$$LINE("Division Selection") Line Location: DIV+5
Function Call: WRITE	Prompt: !!,$$LINE("Stop Code Selection") Line Location: STOP+5
Function Call: WRITE	Prompt: !!,$$LINE("Visit Selection Criteria") Line Location: SELECT+5
Function Call: WRITE	Prompt: !!,$$LINE("Clinic Selection") Line Location: CLINIC+5
Function Call: WRITE	Prompt: !!,$$LINE("NPDB Close-Out Check Selection") Line Location: NPDB+5
Routine Call	DIR Line Location: SELECT+8 NPDB+8
Routine Call	%ZIS Line Location: EN+10

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP("SDRAL"	ENQ+1!
^TMP("SDRL"	ENQ+1!

Name	Line Occurrences
$$CLINIC	EN+9
$$DIV	EN+6
$$INIT	EN+3
$$LINE	RANGE+6, DIV+5, STOP+5, SELECT+5, CLINIC+5, NPDB+5
$$NPDB	EN+4
$$QUE	EN+12
$$RANGE	EN+5
$$SELECT	EN+7
$$STOP	EN+8
ENQ	EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11

Name	Field # of Occurrence
>> %ZIS	EN+10*
BEGDATE	RANGE+7~
DIC	EN+2~, STOP+7*
DIC("S"	STOP+7*
DIC(0	STOP+7*
DIR	SELECT+8!, NPDB+8!
DIR("A"	SELECT+7, NPDB+7
DIR("B"	SELECT+7, NPDB+7
DIR(0	SELECT+6, NPDB+6
>> DIRUT	SELECT+8, NPDB+11
ENDDATE	RANGE+7~
IO("Q"	EN+11, QUE+3!
IOM	LINE+7
>> POP	EN+10
SDBD	EN+2~, RANGE+9
SDBEG	EN+2~, RANGE+8, RANGE+9
>> SDDIV	INIT+1*
SDED	EN+2~, RANGE+9
SDEND	EN+2~, RANGE+8, RANGE+9, RANGE+10
SDNPDB	EN+2~, NPDB+11*, NPDB+12
SDSEL	EN+2~, EN+8, EN+9, SELECT+8*, SELECT+9
>> SDT00	RANGE+9*
STR	LINE~, LINE+6*, LINE+7, LINE+8
VAUTC	EN+2~, CLINIC+7!, CLINICQ
VAUTD	EN+2~, DIV+6!, DIV+7
>> VAUTNI	STOP+6*
VAUTS	EN+2~, STOP+8!, STOP+9
>> VAUTSTR	STOP+6*
>> VAUTVB	STOP+6*
X	LINE+5~, LINE+7, LINE+8, QUE+5
>> Y	EN+12*, DIV+6, STOP+8, SELECT+8, CLINIC+7, NPDB+11
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7