Routine: ADEFLEX0

Package	Total	Call Graph
VA Fileman	4	^%DT FILE^DICN ^DIE ^DIK
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS Dental System	1	(ERR1,ERR2,ERR3,ERR4,ERR5,ERR6,ERR7,ERR8,ERR9)^ADEFLEX1
IHS VA Utilities	1	^XBKVAR

Package

Total

Call Graph

VA Fileman

^%DT FILE^DICN ^DIE ^DIK

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

IHS Dental System

(ERR1,ERR2,ERR3,ERR4,ERR5,ERR6,ERR7,ERR8,ERR9)^ADEFLEX1

IHS VA Utilities

^XBKVAR

Package	Total	Caller Graph
IHS Dental System	2	ADEFLEX ADEFLEX1

Package

Total

Caller Graph

IHS Dental System

ADEFLEX ADEFLEX1

External References

Name	Field # of Occurrence
^%DT	DATE, DATE+1
^%ZIS	ASKDEV
^%ZISC	END+9
^%ZTLOAD	QUE+1
ERR1^ADEFLEX1	S2+2
ERR2^ADEFLEX1	S2+3
ERR3^ADEFLEX1	S2+3
ERR4^ADEFLEX1	S3+2
ERR5^ADEFLEX1	S3+6
ERR6^ADEFLEX1	S3+7
ERR7^ADEFLEX1	S3+8
ERR8^ADEFLEX1	S3+9
ERR9^ADEFLEX1	S3+10
FILE^DICN	START+21
^DIE	END+6, S3+13
^DIK	START+13
^XBKVAR	ADEFLEX0+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Fluoride Data Extraction for Transmission to Area/DPSB",!! Line Location: ADEFLEX0+3
Function Call: WRITE	Prompt: "The data extraction holding area will be purged if you continue.",! Line Location: ADEFLEX0+6
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 a cartridge",!,"containing that extracted data has been made and sent to AREA or DPSB.",! Line Location: CONFIRM+1
Function Call: WRITE	Prompt: " -- data extraction canceled.",! Line Location: CONFIRM+2
Function Call: WRITE	Prompt: !,"REQUEST QUEUED." Line Location: ASKDEV+0
Function Call: WRITE	Prompt: !!,?15,"PROCESSING COMPLETE. ",ADERC-1," RECORDS PROCESSED." Line Location: END+8
Function Call: WRITE	Prompt: !!!,?15,"FLUORIDATION DATA EXTRACTION BEGUN...",!!,?15,"RECORD SCANNING " Line Location: START+2
Function Call: WRITE	Prompt: "." Line Location: S3+14
Routine Call	DIE Line Location: END+6 S3+13
Routine Call	%ZIS Line Location: ASKDEV

FileNo	Call Tags
^ADELOG - [#9002009]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ADEFDATA	ADEFLEX0+5, START+5, START+6!, S3+12*
^ADEFDATA(0	END*
^ADEFLU - [#9002002.1]	S2+2, S3+2, S3+3
^ADEFLU("AB"	S1, S2+1, S3+1
^ADELOG - [#9002009]	START+11
^ADEWS - [#9002004]	S2+3
^AUTTLOC - [#9999999.06]	END
^AUTTSITE(1	END
^DIC(16 - [#16]	S3+8, S3+9
^DIC(4 - [#4]	END

Name	Line Occurrences
ASKDEV	OK
CONFIRM	CONFIRM+1
DATE	DATE+2
END	S1
OK	ADEFLEX0+5
QUE	ASKDEV
QUIT	CONFIRM+2, DATE+1, DATE+2, ASKDEV
S1	S2+1
S2	S3+1
S3	S3+4, S3+5, S3+14
START	ASKDEV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE*
>> %DT("A"	DATE, DATE+1
>> %DT(0	DATE+1*
>> %ZIS	ASKDEV*
ADEB	DATE+1*, END, QUIT!, START+4, START+18
ADEBD	QUIT!, START+4, S1, S2+1, S3+1, S3+12
ADED0	QUIT!, S1, S2+1, S2+2, S3+1, S3+2, S3+3, S3+13
ADED1	QUIT!, S2+1, S3+1, S3+2, S3+3, S3+13
ADEDUZ	QUIT!
ADEEQ	QUIT!, S3+6*, S3+12
ADEFDV	QUIT!
ADEID	QUIT!, S3+7, S3+8, S3+9, S3+12
ADELAST	END+2~, END+3, END+7!, QUIT!, START+16~, START+19, START+23!
ADELDAY	QUIT!
ADEND	DATE+2*, END, QUIT!, START+18, S1
ADENM	QUIT!, S2+1, S2+3
ADENO	QUIT!, S3+3*, S3+4, S3+5, S3+6, S3+7, S3+10
ADEPPM	QUIT!, S3+10*, S3+12
ADERC	END, END+4, END+5, END+8, QUIT!, START+4, S3+12
ADERERUN	QUE+1, QUIT!, START+8
ADERES	QUIT!
ADEREX	OK, QUE, END+5, QUIT!, START+15, S3+4, S3+5, S3+13
ADERR	QUIT!
ADESFC	QUIT!, S2+1, S2+3, S3+12
ADESSN	QUIT!, S3+9*
ADESTAT	QUIT!
ADESUB	START+6*, START+7!
ADEWP	QUIT!, S2+2, S2+3
ADEXDA	END+3, QUIT!, START+9, START+10, START+11, START+12, START+22*
ADEXDT	QUIT!, START+17, S3+5
ADEXNOD	QUIT!
DA	END+2~, END+3, END+7!, START+12, START+14!, S3+13*
DD	START+20!
DIC	START+16~, START+17*, START+23!
DIC("DR"	START+18*
DIC(0	START+17*
DIE	END+2~, END+3, END+7!, S3+13
DIK	START+12*, START+14!
DO	START+20!
DR	END+2~, END+4, END+5, END+7!, START+16~, START+23!, S3+13*
DR(2	S3+13*
DT	END, S3+13
DTIME	CONFIRM
IO	ASKDEV+1, START+1
IO("Q"	ASKDEV!
>> POP	ASKDEV
U	CONFIRM, DATE*, END, S2+2, S2+3, S3+4, S3+5, S3+6, S3+7, S3+9 , S3+10, S3+12
X	CONFIRM, CONFIRM+1, CONFIRM+2, DATE+2, START+16~, START+17, START+23!
>> Y	DATE+1, DATE+2, START+22
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE("ADEB"	QUE*
>> ZTSAVE("ADEND"	QUE*
>> ZTSAVE("ADERERUN"	QUE+1*
>> ZTSAVE("ADEREX"	QUE*
>> ZTSAVE("ADEXDA"	QUE, QUE+1
>> ZTSAVE("ADEXDT"	QUE*

Customize PDF page

Package: IHS Dental System

Routine: ADEFLEX0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: