Prompt: !!,*7,"Enter Y to sort by the Regional Office number you",!,"select or enter N to get ALL Regional Offices reported."
Line Location: SORT+1
Function Call: WRITE
Prompt: !,*7,"Invalid response.",!!
Line Location: SORT+4
Function Call: READ
Variable: RONUM
Timeout: DTIME
Line Location: RONUM+0
Function Call: WRITE
Prompt: *7
Line Location: RONUM+0
Function Call: WRITE
Prompt: *7," Must be 3 numbers plus optional 1 to 4 alphanumeric modifier",!!
Line Location: RONUM+1
Function Call: WRITE
Prompt: !,?5,"The entry of future dates is NOT allowed.",!
Line Location: DATE+0
Function Call: WRITE
Prompt: !!,*7,"Invalid date sequence. Beginning date must be before the ending date.",!!
Line Location: DATE+4
Function Call: WRITE
Prompt: *7,!!,"You have no division code. Please contact the site manager.",!!
Line Location: DUZ2+1
Function Call: WRITE
Prompt: *7,!!,"Your division code is invalid.",!!
Line Location: DUZ2+3
Function Call: WRITE
Prompt: *7,!!,"Your division has no station number defined in the INSTITUTION file.",!,"Please consult IRM to request a unique station number for your division.",!!