Routine: ADEXSU0

Information

ADEXSU0 ; IHS/HQT/MJL - DENTAL EXTRACT PART 2 ; [ 05/12/1999 5:04 PM ]

Package	Total	Caller Graph
IHS Dental System	1	ADEXSU

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The data storage area contains an incomplete file of previously extracted data." Line Location: ADEXCK+2
Function Call: READ	Prompt: "Ok if I erase it? N//" Formatting: ! Timeout: DTIME Variable: X Line Location: ADEX+0
Function Call: WRITE	Prompt: !,"The incomplete data file was probably created during an aborted extraction",!,"attempt." Line Location: ADEX+1
Function Call: WRITE	Prompt: !," -- data extraction cancelled." Line Location: ADEX+2
Function Call: WRITE	Prompt: !,"Data extracted on " Line Location: ADEX1+0
Function Call: WRITE	Prompt: Y," is still stored.",!,"It will be erased if you continue.",! Line Location: ADEX1+0
Function Call: READ	Prompt: "Ok to continue? N// " Timeout: DTIME Variable: X Line Location: CONFIRM+0
Function Call: WRITE	Prompt: !,"It is ok to clear the data extraction holding file if the data",!,"has already been forwarded to Area for processing.",! Line Location: CONFIRM+1
Function Call: WRITE	Prompt: " -- data extraction cancelled.",! Line Location: CONFIRM+2
Function Call: WRITE	Prompt: !,"REQUEST QUEUED." Line Location: ASKDEV+0
Routine Call	%ZIS Line Location: ASKDEV

Name	Line Occurrences (* Changed, ! Killed)
^ADENDATA	ADEXCK+1
^ADENDATA(0	ADEXCK+2, ADEX1
^DD("DD"	ADEX1

Name	Line Occurrences
ADEX	ADEX+1
ADEX1	ADEXCK+2
ASKDEV	OK
CONFIRM	CONFIRM+1
DATE	DATE+2
OK	ADEXCK+1, ADEX+3
QUE	ASKDEV
QUIT	ADEX+2, CONFIRM+2, DATE+1, DATE+2, ASKDEV

Name	Field # of Occurrence
%DT	DATE!, DATE+1!
%DT("A"	DATE, DATE+1
%DT(0	DATE+1*
>> %ZIS	ASKDEV*
ADEBDT	DATE+1*, QUIT!
ADELAST	QUIT!
ADELDAY	QUIT!
ADEND	DATE+2*, QUIT!
ADERERUN	QUE+2, QUIT!
ADEREX	OK, QUE, QUIT!
ADESTAT	QUIT!
ADEXDA	QUIT!
ADEXDT	QUIT!
ADEXNOD	QUIT!
DTIME	ADEX, CONFIRM
IO	ASKDEV+1
IO("Q"	ASKDEV!
>> POP	ASKDEV
U	ADEX, ADEX1, CONFIRM, DATE*
>> X	ADEX, ADEX+1, ADEX+2, CONFIRM, CONFIRM+1, CONFIRM+2, DATE+2
>> Y	ADEX1*, DATE+1, DATE+2
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE("ADEBDT"	QUE*
>> ZTSAVE("ADECHS"	QUE+1*
>> ZTSAVE("ADEND"	QUE*
>> ZTSAVE("ADERERUN"	QUE+2*
>> ZTSAVE("ADEREX"	QUE*
>> ZTSAVE("ADEXDA"	QUE, QUE+2
>> ZTSAVE("ADEXDT"	QUE*