Routine: LAMIAUT0

Information

LAMIAUT0 ;SLC/FHS - MICRO AUTO INSTRUMENT PROGRAM VITEK ;7/20/90 09:31 ;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"ACCESS IS DENIED ",$C(7) Line Location: ACCESS+0
Function Call: WRITE	Prompt: $C(7),!!!,?10,"No Load List For "_$P(Y,U,2),! Line Location: ACCESS+7
Function Call: WRITE	Prompt: !!,$C(7),$P(Y(0),U)," Has no data TRY LATER " Line Location: ACCESS+8
Function Call: WRITE	Prompt: !!?10,"End of Data",!!,$C(7) Line Location: ACCESS+13
Function Call: READ	Variable: X Timeout: DTIME Line Location: LRANX+1
Function Call: WRITE	Prompt: !!," Enter number Part of Accession "_LRAN_" // " Line Location: LRANX+1
Function Call: WRITE	Prompt: !?7,"RETRANSMIT THE FILE",! Line Location: LRANX+2
Function Call: WRITE	Prompt: !?7,"NO DATA FOR THIS NUMBER",! Line Location: LRANX+3
Function Call: WRITE	Prompt: !!,$C(7)," THERE ARE NO ACCESSIONS FOR THIS DATE " Line Location: DATE+8
Function Call: WRITE	Prompt: !?7,"Not accessioned -- Would you like a list " Line Location: OK+0
Function Call: WRITE	Prompt: " NOT ACCESSIONED " Line Location: SHOW+1
Function Call: READ	Formatting: !! Prompt: " PRESS RETURN FOR MORE " Variable: X Timeout: DTIME Line Location: WAIT+0
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+0