Routine: LRLLS3

Package	Total	Call Graph
Lab Service	3	ZAP^LRVR3 ^LRWU4 PT^LRX
VA Fileman	2	^DIC YN^DICN

Package

Total

Call Graph

ZAP^LRVR3 ^LRWU4 PT^LRX

^DIC YN^DICN

Package	Total	Caller Graph
Lab Service	2	LRLL NEW 1ST SEQUENCE # LRLL3
Automated Lab Instruments	1	LAMIAUT8

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRACC," ",PNM," ",HRCN Line Location: SHOW+3
Function Call: WRITE	Prompt: !?5,$P(^LAB(60,+X,0),U),?20," " Line Location: SHOW+4
Function Call: WRITE	Prompt: !?5,$P(^LAB(60,+X,0),U) Line Location: SH2+0
Function Call: WRITE	Prompt: " ",$P(^LRO(68.2,+$P(X,";"),0),U)," TRAY:",$P(X,";",2)," CUP:",$P(X,";",3) Line Location: SH2+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: NEWNUM+0
Function Call: WRITE	Prompt: !,"Enter the ""new starting"" sequence number: " Line Location: NEWNUM+0
Routine Call	DIC Line Location: NWSEQNM+1

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	SHOW+4, SH2
^LAH(	NEWNUM+2, NEWNUM+3*
^LR - [#63]	SHOW+1
^LRO(68 - [#68]	SHOW+1, SHOW+4, CL2+1*
^LRO(68.2 - [#68.2]	SH2+1, CLEAR+1, CLEAR+2*, CL1, CL1+1!, CL2, CL2+1, CL2+2!

Name	Field # of Occurrence
^(	SHOW+1, SHOW+4
^(0	SHOW+1, CL2, CL2+1

Name	Field # of Occurrence
>> %	NEWNUM+1*
A	END!
C	CLEAR+2!, CL1*, CL2, CL2+1, CL2+2
>> DFN	SHOW+1*
DIC	NWSEQNM+1*!, END!
DIC("S"	NWSEQNM+1*
DIC(0	NWSEQNM+1*
DTIME	NEWNUM
>> HRCN	SHOW+3
I	CL2+1, NEWNUM+2, END!
J	NEWNUM*, NEWNUM+1, NEWNUM+2, NEWNUM+3, END!
>> LRAA	SHOW+1, SHOW+4
>> LRACC	SHOW+1*, SHOW+3
>> LRAD	SHOW+1, SHOW+4
>> LRAN	SHOW, SHOW+1, SHOW+4
>> LRDFN	SHOW+1*
>> LRDPF	SHOW+1*
>> LRINST	CLEAR+1, CLEAR+2, CL1, CL1+1, CL2, CL2+1, CL2+2
LRLL	NWSEQNM+1*, NEWNUM+2, NEWNUM+3, END!
>> PNM	SHOW+3
T	SHOW+4, CLEAR+1, CLEAR+2!, CL1, CL1+1, CL2, CL2+1, CL2+2
U	SHOW+1, SHOW+4, SH2, SH2+1, CL2, CL2+1
X	SHOW+4, SH2, SH2+1, CLEAR+2!, CL2, CL2+1, NEWNUM, END!
Y	CLEAR+2!, CL2*, CL2+1, NWSEQNM+1, END!
Z	CLEAR+2!, CL2*, CL2+1, END!

Information

Name	Comments	DBIA/ICR reference
SH2
EN	;
END
SHOW
CLEAR	;unload any test that has not been verified, from LRLL3
NEWNUM
NWSEQNM	;SET A NEW STARTING SEQUENCE NUMBER
CL1
CL2