Routine: TIUEN113

Information

TIUEN113 ; SLC/JAK - Environment Check for TIU*1*113 ;28-AUG-2001 08:43

Name	Comments	DBIA/ICR reference
MAIN	; -- Control Unit ; Check all Hospital Location entries for division and all ; Medical Center Division entries for institution file pointer; ; if not all data present, quit

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking DIVISION for all Hospital Location file (#44)" Line Location: MAIN+6
Function Call: WRITE	Prompt: !,"entries <AND> INSTITUTION FILE POINTER for all Medical" Line Location: MAIN+7
Function Call: WRITE	Prompt: !,"Center Division file (#40.8) entries..." Line Location: MAIN+8
Function Call: WRITE	Prompt: !! Line Location: MAIN+9
Function Call: WRITE	Prompt: !,"Sorry...DIVISION cannot be determined for all Hospital" Line Location: MAIN+21
Function Call: WRITE	Prompt: !,"Location file (#44) entries <AND/OR> INSTITUTION FILE" Line Location: MAIN+22
Function Call: WRITE	Prompt: !,"POINTER cannot be determined for all Medical Center" Line Location: MAIN+23
Function Call: WRITE	Prompt: !,"Division file (#40.8) entries. Please review and correct" Line Location: MAIN+24
Function Call: WRITE	Prompt: !,"both files as necessary." Line Location: MAIN+25
Function Call: WRITE	Prompt: !!," ABORTING INSTALLATION " Line Location: MAIN+26
Function Call: WRITE	Prompt: !," Files are OK " Line Location: MAIN+28