Routine: ADEXSU

Package	Total	Call Graph
IHS Dental System	2	RESET2^ADERFLG ADEXCK^ADEXSU0
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	^DIC

Entry Points

External References

Name	Field # of Occurrence
RESET2^ADERFLG	LOG1+5, LOG2+4
ADEXCK^ADEXSU0	CTRL+1, LOG1+8, LOG2+4, LOG5+3, LOG6+4
^DIC	LOG4
^XBKVAR	INIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Dental Service Data Extraction for Transmission to Area HQ",!! Line Location: ADEXSU+2
Function Call: WRITE	Prompt: "RPMS SITE File not properly initialized. Contact Site Manager." Line Location: INIT+1
Function Call: WRITE	Prompt: "DENTAL SITE PARAMETER File not initialized. Contact Site Manager." Line Location: INIT+2
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 visits. 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: 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 visits. 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: 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 visits 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 visits 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 dental 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+6
^ADEPARAM - [#9002006]	INIT+2, INIT+3
^AUTTSITE(1	INIT+1, INIT+2, INIT+3
^DD("DD"	CTRL+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	LOG4*!
ADEBDT	LOG4+1*, QUIT!
ADECHS	INIT+3*, QUIT!
ADELAST	CTRL+3*, CTRL+9, LOG1+4, LOG2+4, LOG6, QUIT!
ADELDAY	CTRL+3*, LOG1+1, QUIT!
ADEND	LOG4+1*, QUIT!
ADERDV	LOG1+4, LOG1+5!, LOG2+4
ADERERUN	LOG1+7, LOG2+4, QUIT!
ADEREX	LOG4+1*, QUIT!
ADESTAT	CTRL+3*, CTRL+5, QUIT!
ADEXDA	CTRL+13, CTRL+15, LOG1+6!, LOG4+1*, QUIT!
ADEXDT	CTRL+1, LOG1+4, 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+4, LOG2+4, LOG6, LOG6+3
DTIME	LOG1, LOG2, LOG3, LOG5, LOG6
U	INIT+3, CTRL+3, CTRL+11, CTRL+12, CTRL+13, CTRL+15, LOG1+6, 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: ADEXSU

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, INIT+2, CTRL+11, CTRL+12, LOG1, LOG1+3, LOG2, LOG3, LOG4, LOG5 , LOG5+2, LOG6, LOG6+2