Routine: LAMIVTL3

Information

LAMIVTL3 ;DAL/HOAK 3RD VITEK LITERAL VERIFY RCR ; 01/02/96 08:00

Name	Comments	DBIA/ICR reference
INIT	;
MOVE	;Move data into ^LR(LRDFN,"MI",LRIDT,3,
SET	;
CHKLAH	;
SLICK	;
GLEEP	; ; This block removes all ^LR except logging node and comments
JOBTIME	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GLEEP+3
Function Call: WRITE	Prompt: @IOF Line Location: GLEEP+12
Function Call: WRITE	Prompt: !!,IODHLT,LRJOB,!,IODHLB,LRJOB Line Location: JOBTIME+3
Function Call: WRITE	Prompt: IORVON Line Location: JOBTIME+7
Function Call: WRITE	Prompt: "->" Line Location: JOBTIME+8
Function Call: WRITE	Prompt: IORVOFF Line Location: JOBTIME+9
Function Call: WRITE	Prompt: IODHLT,2($E((I/70)100,1,4)),"% " Line Location: JOBTIME+11
Function Call: WRITE	Prompt: IODHLB,2($E((I/70)100,1,4)),"% " Line Location: JOBTIME+13
Function Call: WRITE	Prompt: !!,IODHLT,"DONE",!,IODHLB,"DONE" Line Location: JOBTIME+14