Routine: ADEXSU3

Name	Comments	DBIA/ICR reference
TASK1	;Send bulletin that extraction started on device #
TASK	;EP
ERR	;;Called to trap unexpected errors and resume procesing
FY(ADEDT)	;;Returns beginning of ADEADEDT's fiscal year in FM form
TEND
EXIT	;
FIN	;EP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?15,"RECORDS PROCESSED: ",ADERC,! Line Location: FIN+1
Function Call: WRITE	Prompt: !,"THE ABOVE ERRORS SHOULD BE CORRECTED BEFORE THE NEXT DENTAL DATA EXTRACTION.",! Line Location: FIN+2
Function Call: WRITE	Prompt: !,?15,"P R O C E S S I N G C O M P L E T E D",!! Line Location: FIN+3
Function Call: WRITE	Prompt: !,"An unexpected error occurred while processing",!,"entry number ",ADEA," in the DENTAL PROCEDURE file." Line Location: ERR+1
Function Call: WRITE	Prompt: !,"Local variables at the time of the error will be saved in the error trap.",!,"Processing will RESUME after logging the error",! Line Location: ERR+3
Function Call: WRITE	Prompt: "and displaying an error message" Line Location: ERR+4
Function Call: WRITE	Prompt: "." Line Location: ERR+5
Function Call: WRITE	Prompt: !!,"Now resuming dental data extraction process." Line Location: ERR+7

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR+2, ERR+6
^%ZOSF("TRAP"	ERR+8
^ADELOG("LAST"	TASK+8, TASK+10, TASK+13
^ADENDATA(0	TASK1+9
^ADEPARAM - [#9002006]	TASK1+6
^AUTTSITE(1	TASK1+6

Name	Line Occurrences
$$FY	TASK1+3
@(	ERR+6
TASK1	TASK+8
TEND	TASK+4, TASK+7, TASK+10, TASK+13, TASK1+15, TASK1+19, TASK1+24

Name	Field # of Occurrence
ADEA	EXIT+1!, ERR+1
ADEADACP	EXIT+1!
ADEADAF	EXIT+1!
ADEADAQ	EXIT+1!
ADEASF	EXIT+1!
ADEASITE	EXIT+1!
ADEB	EXIT+1!
ADEBDT	EXIT+1!, TASK1+3*, TEND!
ADEBS6	EXIT+1!
ADEC	EXIT+1!
ADECHS	EXIT+3!, TASK1+6*
ADECOD	EXIT+2!
ADED	EXIT+1!
ADEDA	EXIT+2!
ADEDF	EXIT+1!
ADEDFN	EXIT+1!
ADEDMFLG	EXIT+1!
ADEDOB	EXIT+1!
ADEDT	EXIT+2!, FY~, FY+5
ADEEDT	EXIT+1!
ADEERR	FIN+2!, EXIT+1!
ADEFN	EXIT+1!
ADEFNO	EXIT+1!
ADEFY	FY+1~, FY+5*, FY+7, FY+8!
ADEHRN	EXIT+1!
ADEIDX	EXIT+1!
ADELAST	EXIT+2!
ADELDAY	EXIT+2!
ADENAT	EXIT+1!
ADEND	EXIT+2!, TASK1+4*, TEND!
ADENODE	EXIT+1!
ADERC	FIN+1, EXIT+1!, TASK1+9*, TASK1+11, TASK1+15, TASK1+18, TEND!
ADERDV	EXIT+1!
ADEREPD	EXIT+1!
ADERERUN	EXIT+2!
ADEREX	EXIT+2!
ADERR12	EXIT+2!
ADERR13	EXIT+2!
ADERROR	EXIT+2!
ADESERV	EXIT+1!
ADESEX	EXIT+1!
ADESITE	EXIT+1!
ADESTAT	EXIT+2!
ADESUFAC	EXIT+1!
ADESVCS	EXIT+1!
ADETCOST	EXIT+1!
ADETYPE	EXIT+2!
ADEVDTE	EXIT+2!
ADEVDTP	EXIT+2!
ADEVISDT	EXIT+2!
ADEVNODE	EXIT+2!
ADEXDA	EXIT+2!
ADEXDT	EXIT+2!, TASK1+5*, TEND!
ADEXNOD	EXIT+2!
ADEZIP	EXIT+2!
ADEZTSK	EXIT+2!
AUFLG	TASK1+19, TEND!
AUFLG(1	TASK1+21
DT	TASK+13, TASK1+3, TASK1+4, TASK1+5
DUZ	TASK+4
DUZ(0	TASK+7
IO	TASK+3, TASK1+1
U	TASK+13, TASK1+6, TASK1+9, FY+5
>> X	ERR+8*
>> XBGL	TASK1+11*
>> XBIO	TASK1+11*
>> XBMED	TASK1+11*
>> XMB	TASK+11, TASK1+1, TASK1+14*
>> XMB(1	TASK1+1, TASK1+15, TASK1+18*
>> XMB(2	TASK1+15, TASK1+20, TASK1+21, TASK1+25
>> XMB(3	TASK1+15, TASK1+22, TASK1+26*
>> XMDUZ	TASK+11, TASK1+1, TASK1+14*
>> ZTQUEUED	FIN+5, ERR+4
>> ZTSK	FIN+5

Information