Routine: ADEFLEX

Package	Total	Call Graph
IHS Dental System	2	RESET2^ADEFFLG ^ADEFLEX0
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	^DIC

Entry Points

External References

Name	Field # of Occurrence
RESET2^ADEFFLG	LOG1+3, LOG2+4
^ADEFLEX0	CTRL+1, LOG1+6, LOG2+4, LOG5+3, LOG6+4
^DIC	LOG4
^XBKVAR	INIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Fluoridation Surveillance Data Extraction for Transmission to Area HQ",!! Line Location: ADEFLEX+2
Function Call: WRITE	Prompt: "RPMS SITE File not properly initialized. Contact Site Manager." Line Location: INIT+1
Function Call: WRITE	Prompt: "The last data extraction was performed on ",ADELDAY Line Location: CTRL+3
Function Call: WRITE	Prompt: " but it ended abnormally." Line Location: CTRL+5
Function Call: WRITE	Prompt: " and it finished normally." Line Location: CTRL+7
Function Call: WRITE	Prompt: !,"LOG FILE CORRUPTED!" Line Location: CTRL+11
Function Call: WRITE	Prompt: !,"LOG FILE CORRUPTED!" Line Location: CTRL+12
Function Call: READ	Timeout: DTIME Line Location: LOG1+0
Function Call: WRITE	Prompt: !!,"Answer 'Yes' to delete all extract flags set on ",ADELDAY," and proceed",!,"with a fresh extraction of all unflagged records. You will be prompted" Line Location: LOG1+1
Function Call: WRITE	Prompt: !,"for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything." Line Location: LOG1+2
Function Call: WRITE	Prompt: !,"Please wait... " Line Location: LOG1+3
Function Call: READ	Prompt: "Do you want to repeat an extraction run earlier today? N// " Formatting: !! Timeout: DTIME Variable: X Line Location: LOG2+0
Function Call: WRITE	Prompt: !!,"Answer 'Yes' to delete all extract flags set earlier today",!,"and proceed with a fresh extraction of unflagged records. You will be" Line Location: LOG2+1
Function Call: WRITE	Prompt: !,"prompted for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything." Line Location: LOG2+2
Function Call: WRITE	Prompt: !,"Please wait... " Line Location: LOG2+4
Function Call: READ	Prompt: "Do you want to DUPLICATE an extraction run previously? N// " Formatting: !! Timeout: DTIME Variable: X Line Location: LOG3+0
Function Call: WRITE	Prompt: !!,"Answer 'Yes' to duplicate a previous extraction. No extraction flags will be",!,"set or reset. You will be asked to select a date from the Data Extraction Log",!,"File. Only records extracted on that day will be stored." Line Location: LOG3+1
Function Call: WRITE	Prompt: " -- Data extraction cancelled" Line Location: LOG4+0
Function Call: WRITE	Prompt: !!,"Ready to repeat extraction performed originally on ",Y(0,0),".",!,"The original record count was ",$S($P(ADEXNOD,U,4)]"":$P(ADEXNOD,U,4),1:0),", but this may be different",!,"today if records have been modified or deleted." Line Location: LOG4+2
Function Call: READ	Prompt: "Are you sure everything's OK? NO// " Formatting: !! Timeout: DTIME Variable: X Line Location: LOG5+0
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N'" Line Location: LOG5+1
Function Call: WRITE	Prompt: " -- Data extraction cancelled" Line Location: LOG5+2
Function Call: READ	Prompt: "Do you want to run a new data extraction today? N//" Formatting: ! Timeout: DTIME Variable: X Line Location: LOG6+0
Function Call: WRITE	Prompt: !!,"Answer 'Y' to extract data from all fluoride records not already flagged",!,"as extracted. You will be asked for a range of dates to extract from.",!,"Answer 'N' to quit without changing anything.",! Line Location: LOG6+1
Function Call: WRITE	Prompt: " -- Data extraction cancelled" Line Location: LOG6+2
Routine Call	DIC Line Location: LOG4

Name	Line Occurrences (* Changed, ! Killed)
^ADELOG - [#9002009]	CTRL+12, CTRL+15, LOG4+1
^ADELOG("LAST"	CTRL+1, CTRL+3, CTRL+11, CTRL+12, CTRL+13, LOG1+5
^AUTTSITE(1	INIT+1
^DD("DD"	CTRL+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	LOG4*!
ADEB	LOG4+1*, QUIT!
ADEFDV	LOG1+3!, LOG2+4
ADELAST	CTRL+3*, CTRL+9, LOG1+3, LOG2+4, LOG6, QUIT!
ADELDAY	CTRL+3*, LOG1+1, QUIT!
ADEND	LOG4+1*, QUIT!
ADERERUN	LOG1+4, LOG2+4, QUIT!
ADEREX	LOG4+1*, QUIT!
ADESTAT	CTRL+3*, CTRL+5, QUIT!
ADEXDA	CTRL+13, CTRL+15, LOG1+5, LOG4+1*, QUIT!
ADEXDT	CTRL+1, LOG1+3, LOG2+4, LOG4+1, LOG6+3*, QUIT!
ADEXNOD	LOG4+1*, LOG4+2, QUIT!
DIC	LOG4*!
DIC("A"	LOG4*
DIC("S"	LOG4*
DIC(0	LOG4*
DT	CTRL+1, CTRL+9, LOG1+3, LOG2+4, LOG6, LOG6+3
DTIME	LOG1, LOG2, LOG3, LOG5, LOG6
U	CTRL+3, CTRL+11, CTRL+12, CTRL+13, CTRL+15, LOG1+5, LOG4+1, LOG4+2
>> X	LOG1, LOG1+1, LOG1+2, LOG1+3, LOG2, LOG2+1, LOG2+2, LOG2+3, LOG3, LOG3+1 , LOG3+2, LOG5, LOG5+1, LOG5+2, LOG6*, LOG6+1, LOG6+2
>> Y	CTRL+3*, LOG4, LOG4+1
>> Y(0	LOG4+2

Customize PDF page

Package: IHS Dental System

Routine: ADEFLEX

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOG6
QUIT
LOG4
LOG5
LOG2
LOG3
LOG1
CTRL	;------->IF NO PREVIOUS EXTRACTION GO SUEX0
INIT
END	;

Name	Line Occurrences
LOG1	CTRL+5, CTRL+15, LOG1+2
LOG2	CTRL+17, LOG2+2
LOG3	CTRL+9, LOG2+3, LOG3+1, LOG6
LOG5	LOG5+1
LOG6	LOG3+2, LOG6+1
QUIT	INIT+1, CTRL+11, CTRL+12, LOG1, LOG1+3, LOG2, LOG3, LOG4, LOG5, LOG5+2 , LOG6, LOG6+2