Routine: LRLABXOL

Information

LRLABXOL ;RVAMC/PLS/DALISC/FHS - REPRINT ACCESSION LABELS FOR ENTIRE ORDER ; 5/19/93 07:40

Source file <LRLABXOL.m>

Package	Total	Call Graph
Lab Service	3	(LBLTYP,PSET)^LRLABLD (IOCHK,K,PRINT)^LRLABXT $$GOT^LROE
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
Lab Service	1	LRLABXOL

Name	Comments	DBIA/ICR reference
EN
END	;
SQ	; Search for accession numbers and build LRORD array 'ORD #(SEQ #,ACC AREA,ACC DATE, ACC #)=""'
1
2	;
QUE	;
PRINT	; Loop thru array and print labels.

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: LRORD Line Location: 1+1
Function Call: WRITE	Prompt: !,"Enter a whole number for the order number." Line Location: 1+1
Function Call: WRITE	Prompt: " ORDER NUMBER NOT FOUND" Line Location: 1+4
Function Call: WRITE	Prompt: !!,"All tests for this order have been canceled." Line Location: 1+5
Function Call: WRITE	Prompt: !,"Labels have been tasked to print ",! Line Location: 1+9
Function Call: WRITE	Prompt: !?10,"Label(s) Printed",! Line Location: 1+12

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69 - [#69]	1+3, QUE+2, 2+2, SQ+1, SQ+3, SQ+4

Name	Field # of Occurrence
DTIME	1+1
IO	PRINT+1
IO(0	1, 1+12
>> LRAA	SQ+4, SQ+5, PRINT+2, PRINT+5*, PRINT+7
>> LRAD	SQ+4, SQ+5, PRINT+6, PRINT+7
>> LRAN	SQ+4, SQ+5, PRINT+6, PRINT+7
LRHDR	EN+3, 1+1, 1+12, END+1!
>> LRLABLIO	EN+1, 1+7
>> LRLABLIO("Q"	1+6
>> LRODT	1+3, 1+4, 1+5, QUE+1, QUE+2*, 2+2, SQ+1, SQ+3, SQ+4
LRORD	1+1, 1+2, 1+3, 1+5, 1+11!, QUE+2, 2+2, PRINT+3, PRINT+8~, END+1!
LRORD(	SQ+5*, PRINT+7!
>> LRSN	2+1, 2+2, SQ+1, SQ+3, SQ+4, SQ+5, PRINT+4*, PRINT+7
LRX	PRINT+3*, PRINT+4, PRINT+5, PRINT+6, PRINT+8~
SEQ	SQ+2, SQ+3, SQ+4, END+1!
U	SQ+4
>> X	SQ+4*
>> ZTDESC	1+7*
>> ZTIO	1+7*
>> ZTQUEUED	QUE+3
>> ZTREQ	QUE+3*
>> ZTRTN	1+7*
>> ZTSAVE("LR*"	1+7*
ZTSK	EN!, END+1!