Routine: LRMILL

Package	Total	Call Graph
Lab Service	3	GROUP^LRWU2 ^LRWU4 (DT,PT)^LRX
VA Fileman	2	^DIC ^DIE

Entry Points

External References

Name	Field # of Occurrence
^DIC	LRINST+2
^DIE	SETONE+3
GROUP^LRWU2	WHATEST+4
^LRWU4	INSERT+2
DT^LRX	LRINST+1
PT^LRX	SHOW+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select only from the ",$P(^LRO(68,LRDAA,0),U)," accession area" Line Location: INSERT+1
Function Call: WRITE	Prompt: !,"Sorry but this accession is in the wrong group" Line Location: INSERT+2
Function Call: WRITE	Prompt: !!," >> ADDED <<" Line Location: IN5+1
Function Call: READ	Prompt: "Next Accession NUMBER: " Formatting: !! Timeout: DTIME Variable: LRAN Line Location: IN7+0
Function Call: WRITE	Prompt: !,"Enter just the number part of the accession" Line Location: IN7+1
Function Call: WRITE	Prompt: !,$C(7),"This accesion doesn't exist" Line Location: IN7+2
Function Call: WRITE	Prompt: !," OPERATION NOT COMPLETE" Line Location: NOPE+0
Function Call: WRITE	Prompt: !,"Load list is busy now, Please try later." Line Location: LRINST+3
Function Call: WRITE	Prompt: !,"NO TESTS FREE TO ADD" Line Location: WHATEST+3
Function Call: WRITE	Prompt: !,PNM,?40,SSN Line Location: SHOW+2
Function Call: WRITE	Prompt: !,PNM,?40,HRCN Line Location: SHOW+3
Routine Call	DIE Line Location: SETONE+3
Routine Call	DIC Line Location: LRINST+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRO(68.2 - [#68.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.07 - [#62.07]	LRINST+6
^LR - [#63]	SHOW+1
^LRO(68 - [#68]	INSERT+1, IN7, MV2*, WHATEST+1, WHATEST+2, SHOW+1
^LRO(68.2 - [#68.2]	IN5, FINISH, LRINST+2, LRINST+3, LRINST+4, LRINST+5, LRINST+7, LRINST+8, SETONE+1, MV2*
^TMP("LR"	LRINST+1!

Label References

Name	Line Occurrences
END	INSERT+1
FINISH	INSERT+2, IN2, IN7
IN2	INSERT+2, IN7
IN7	IN2, IN7+1, IN7+2
LRINST	INSERT+1
MV2	SETONE+2
SETONE	IN5+1
SHOW	IN2
WHATEST	IN2

Naked Globals

Name	Field # of Occurrence
^(	LRINST+6, LRINST+8*, WHATEST+2
^(0	IN5*, LRINST+7, WHATEST+1, WHATEST+2, SHOW+1
^(2	FINISH*, LRINST+5
^(3	LRINST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
A	END!
AGE	END+2!
D	END+2!
>> DA	SETONE+3*
>> DA(1	SETONE+3*
>> DA(2	SETONE+3*
DFN	END+2!, SHOW+3*
DIC	END!, LRINST+1!, LRINST+2*
DIC(0	LRINST+2*
>> DIE	SETONE+3*
DOB	END+2!
>> DR	SETONE+3*
DT	LRINST+1, LRINST+8
DTIME	IN7
DUZ	LRINST+8
G	END+2!
>> G1	WHATEST+4*
G2	WHATEST+2!*, WHATEST+3!
G2(	SETONE+2, WHATEST+2*
>> G4	WHATEST+4*
HRCN	END+2!, SHOW+3
I	END!, SETONE+2, WHATEST+2
K	END+2!
LRAA	INSERT+2, IN7, END!, SETONE+1, MV2, WHATEST+1, WHATEST+2, SHOW+1
LRACC	INSERT+2*!
LRAD	IN7, END!, LRINST+1*, SETONE+1, MV2, WHATEST+1, WHATEST+2, SHOW+1
LRAN	INSERT+2, IN7*, IN7+1, END+2!, SETONE+1, MV2, WHATEST+1, WHATEST+2, SHOW+1
LRCUP	FINISH, END!, LRINST+5*, SETONE+1, SETONE+3, MV2
LRDAA	INSERT+1, INSERT+2, END!, LRINST+7*, LRINST+8
LRDFN	END!, SHOW+1*
LRDPF	END!, SHOW+3*
LREXEC	END+2!
LRFULL	END!, LRINST+5*
LRHOLD	LRINST+1!
LRINST	INSERT+1, IN5, FINISH, END!, LRINST+2, LRINST+3, LRINST+4, LRINST+5, LRINST+7, LRINST+8 , SETONE+1, SETONE+3, MV2
LRINSTIT	END!, LRINST+5, LRINST+6
LRIX	END!, SETONE+2*, MV2
LRLLOC	END+2!
LRMAXCUP	END!, LRINST+5*
LRPROF	END!
>> LRSPEC	SETONE+1, WHATEST+1*
LRTRANS	IN5, END!, LRINST+5, LRINST+6
LRTRAY	IN5, FINISH, END!, LRINST+5, LRINST+7, LRINST+8, SETONE+1, SETONE+3, MV2
LRTSTS	END!, LRINST+1!
LRTX	END!, SETONE+2*, MV2
LRTYPE	END!, LRINST+5*, LRINST+7
LRWPROF	END!, LRINST+7*, SETONE+1
LRWRD	END!
PNM	END+2!, SHOW+3
SEX	END+2!
SSN	END+2!
T	END+2!
U	INSERT+1, IN2, FINISH, LRINST+1*, LRINST+3, LRINST+4, LRINST+5, LRINST+7, LRINST+8, SETONE+1 , MV2, WHATEST+2, SHOW+3
X	IN2, END!, WHATEST+2!, SHOW+1*, SHOW+3
X(	SETONE+2
X9	END+2!
Y	END!, LRINST+2
Y(0	LRINST+5
Y(2	LRINST+5*
Z	END!

Customize PDF page

Package: Lab Service

Routine: LRMILL

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
INSERT	;Add a sample to next cup
MV2
FINISH
END
SHOW	;Show the patient
LRINST	;Get loadlist data
IN5
SETONE	;Set tests into cup and update accession
IN7
IN2
WHATEST	;
NOPE