Routine: ASDAIU1

Information

ASDAIU1 ; IHS/ADC/PDW/ENM - AIU BY CLINIC ; [ 03/25/1999 11:48 AM ]

Source file <ASDAIU1.m>

Package	Total	Call Graph
IHS Changes To Scheduling	3	^ASDAIU START^ASDHS $$DIV^ASDUT
Scheduling	3	ROUT^SDDIV END^SDROUT1 (DIV,DT)^SDUTL
Registration	2	ZIS^DGUTQ CLINIC^VAUTOMA
VA Fileman	2	^%DT ^DIR
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
Scheduling	1	SD IHS AIU

Name	Comments	DBIA/ICR reference
SORT	; -- ask user for sort option
END	; -- eoj
A5	;
CHOICE	; -- ask if printing for one patient or by clinic

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHOICE+8
Routine Call	DIR Line Location: CHOICE+6 SORT+7

Name	Line Occurrences
END	CHOICE+6, CHOICE+8, SORT+7, SORT+10, SORT+13

Name	Field # of Occurrence
>> %DT	SORT+12*
>> %DT("A"	SORT+12*, SORT+13!
%I	END+2!
ADGDEV	A5+4*, A5+5!
ALL	END+1!
C	END+2!
>> DGPGM	A5+3*
DIR	CHOICE+1!, CHOICE+6!, SORT+2!, SORT+7!
DIR("?"	CHOICE+3, CHOICE+4, CHOICE+5, SORT+4, SORT+5, SORT+6
DIR("A"	CHOICE+2, SORT+3
DIR("B"	CHOICE+1, SORT+2
DIR(0	CHOICE+1, SORT+2
>> DIRUT	CHOICE+6, SORT+7
DIV	CHOICE+8*, SORT+9, END+1!
DT	SORT+11
I	END+2!
IO("Q"	A5+7
ORD	END+1!
ORDER	SORT+1, SORT+7, SORT+10, END+1!
>> POP	A5+6
RMSEL	END+1!
>> SDATE	SORT+13*
SDEF	END+2!
SDIQ	CHOICE+9*, END+1!
SDREP	CHOICE+9*, END+1!
SDSP	END+1!
SDSTART	CHOICE+9*, END+1!
SDX	CHOICE+9*, END+2!
>> SDZEF	A5+1*
>> SDZHS	A5+1*
>> SDZMP	A5+1*
V	END+2!
>> VAR	A5+2*
>> VAUTD	SORT+9*
>> VAUTNI	SORT+10*
X	END+2!
Y	CHOICE+6, CHOICE+8, SORT+7, SORT+10, SORT+13, END+2!