Routine: LRPHSET

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"BUILDING THE LIST" Line Location: ADD+0
Function Call: WRITE	Prompt: !,"The collection list for ",Y," still exists, you must clear it before ",!,"building a new list." Line Location: MANUAL+2
Function Call: WRITE	Prompt: !,"There is some data in the current collection list." Line Location: MANUAL+3
Function Call: WRITE	Prompt: !,"Labels last printed on ",Y,! Line Location: MANUAL+3
Function Call: WRITE	Prompt: !,"Do you wish to add entries.) " Line Location: A+0
Function Call: WRITE	Prompt: !,"Your wish is my command. Please enter Yes or No." Line Location: A+0
Function Call: WRITE	Prompt: !,"Are you ready to clear the current collection list",!,"and start a new one" Line Location: B+0
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o." Line Location: B+0
Function Call: WRITE	Prompt: !,+LRCOUNT," specimens added to collection list." Line Location: END+1
Function Call: WRITE	Prompt: !,"The date should be today's date." Condition for execution: %=0 Line Location: NOW+0
Function Call: WRITE	Prompt: @IOF Line Location: ROLL+1

Name	Line Occurrences (* Changed, ! Killed)
^BLRSITE - [#9009029]	ADD+2
^LAB(69.9 - [#69.9]	LRPHSET+6, NEW*, MANUAL+1, TIME, TIME+1, ROLL+6, ROLL+7
^LRO(69.1 - [#69.1]	NEW!*, MANUAL+1, MANUAL+2, MANUAL+3, A

Name	Field # of Occurrence
>> %	A, A+1, B, B+1, NOW*
%DT	END1!, NOW, NOW+1, ROLL+4*
%DT("A"	NOW*
%DT("B"	NOW+1, TIME, TIME+3
%H	END1!
%ZA	END1!
%ZB	END1!
%ZC	END1!
BLRA	BLRRL+2~, BLRRL+3*, BLRRL+4
>> BLRALTDZ	ADD+2
BLRLCLNT	END1+1!
>> BLROPT	LRPHSET+5*
>> BLROPT(0	LRPHSET+5*
BLROR	END1+1!, BLRRL~
BLROR(	BLRRL+3
BLRORDLC	ADD+2, END1+1!
DA	END1!
DIC	END1!
DO	END1!
DT	NEW, ADD, MANUAL+1, A, NOW
DUZ(2	ADD+2
>> I	A, B
I2	END1!
I5	END1!
IOF	ROLL+3
LABEL	END1!
LRBED	END1!
LRCCOM	END1!
>> LRCOUNT	END+1
LRCS	END1!
LRCSN	END1!
LRCSS	END1!
LRDTI	LRPHSET+6, NEW, MANUAL+1, MANUAL+2, NOW!, NOW+2*
LRDUZ	END!, END1!
LREND	LRPHSET+6, END1+2!, ROLL+6
LREXP	END1!
LRFIN	END1!
LRFLOG	END1!
LRGCOM	END1!
LRIOZERO	END1!
LRLABLTF	LRPHSET+6*, END1!
LRLBL	END1+2!
LRLBLD	END1!
LRLWC	END1!
LRM	END1!
LRNCWL	END1!
LRNIDT	END1!
LRNOLABL	END1!
LROCN	END1!
>> LROCT	MANUAL+2*
>> LRODT	ADD*
LROID	END1!
LROLRDFN	END1!
LRORDER	END1!
LRORDR	END1!
LRORDTIM	END1!
LROSN	END1!
LROT	END1!
LROUTINE	END1!
LRPARAM	LRPHSET+5!
LRPHSET	ADD*, END!, END1!
LRQ	END1+2!
LRSLIP	END1+2!
LRSSX	END1+2!
LRSTA	END1+2!
LRSTIK	END1+2!
LRSUM	END1+2!
LRSXN	END1+2!
>> LRTE	LRPHSET+6, NEW, MANUAL+1*, MANUAL+2, MANUAL+3
LRTJ	END!, END1!
LRTOP	END1+2!
LRTP	END1+2!
LRTSTNM	END1+2!
LRUR	END1+2!
LRUSNM	END1+2!
LRWPC	END1+2!
S5	END1+2!
TIME	ADD+1*, END1+2!
TIME1	ADD+1*, END1+2!
TIME3	ADD+1*, END1+2!
U	LRPHSET+5, LRPHSET+6, ADD+2, MANUAL+2, MANUAL+3, A, TIME+1, ROLL+6, ROLL+7
>> X	NOW+1, ROLL+4
>> XQY0	LRPHSET+5
>> Y	MANUAL+2, MANUAL+3, NOW, NOW+2, TIME, TIME+1, TIME+2*, TIME+3
>> Z	TIME+2*
ZTIO	END1+2!
>> ZTQUEUED	LRPHSET+6, ADD, END, END+1, NOW, NOW+1, RUNING, ROLL+6, ROLL+7
>> ZTREQ	END*

Information

Name	Comments	DBIA/ICR reference
A
END1
B
END
MANUAL	;ENTRY POINT
BLRRL(BLROR)	; Do the shipping manifest and message here
RUNING
ADD
TIME
NEW
NOW
ROLL	;ROLLOVER NOT FINISHED OR NOT RUN...BLOCKS COLLECTION LIST ; W @IOF S X="N",%DT="ET" D ^%DT ; ----- BEGIN IHS/OIT/MKK - Modification LR5.21026