Routine: LRGEN2

Package	Total	Call Graph
Kernel	1	$$RJ^XLFSTR
Lab Service	1	^LREXPD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Lab Service	2	LRGEN LRSOR1

Entry Points

External References

Name	Field # of Occurrence
^DIC	TESTS+2, TESTS+6, TYPE+1
^LREXPD	TESTS+9
$$RJ^XLFSTR	MUSH+4, MUSH+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"TEST NOT IMPLEMENTED" Line Location: COAG+0
Function Call: WRITE	Prompt: !!,$C(7),"TEST NOT IMPLEMENTED" Line Location: COAG+2
Function Call: WRITE	Prompt: !!,$C(7),"TEST NOT IMPLEMENTED" Line Location: COAG+5
Function Call: WRITE	Prompt: !!?2,$P(^LAB(60,+Y,0),U)," has a specialized print routine",!?2," and must be selected by itself.",$C(7),! Line Location: LRTP+2
Function Call: WRITE	Prompt: ! Line Location: SPEC+0
Function Call: WRITE	Prompt: !,?20,$P(^LAB(60,LRTP,0),U),?40,$P(^LAB(61,LRTP(LRTP),0),U),?65,$P(^(0),U,2) Line Location: SPEC+0
Function Call: WRITE	Prompt: !!,"Listed above are the site/specimens for 'UNIQUE COLLECTION SAMPLES'",!,"defined for the tests selected. To see reference ranges, a specific",!,"site/specimen must be selected." Line Location: SPEC+1
Function Call: WRITE	Prompt: !!?3,"Specify specimen actually tested. Use BLOOD when Whole blood is tested;",!,"use SERUM when Serum is tested; etc. In doubt press the Return key." Line Location: TYPE+0
Routine Call	DIC Line Location: TESTS+2 TESTS+6 TYPE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
^LAB(61 - [#61]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TESTS+3, MUSH, LRTP+1, LRTP+2, SPEC
^LAB(61 - [#61]	SPEC
^LAB(62 - [#62]	LRTP+1
^TMP("LR"	COAG+4, COAG+7, COAG+9!, MUSH+1, MUSH+4, MUSH+5
^XUSEC("LRLAB"	MUSH

Label References

Name	Line Occurrences
@(	TESTS+5
COAG	SPC+1
LRTP	TESTS+4, TESTS+6, TESTS+7
MUSH	COAG+7
PUSH	MUSH+2, MUSH+7
SPEC	TESTS+7
TYPE	TESTS+7

Naked Globals

Name	Field # of Occurrence
^(	TESTS+3
^(0	LRTP+1, SPEC
^(1	MUSH+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	COAG+6*
DIC	TESTS+2, COAG+9!, TYPE+1
DIC("A"	TYPE+1*!
DIC("S"	TESTS+2*, TESTS+3!, TYPE+1!
DIC(0	TESTS+2, TYPE+1
>> DTOUT	TYPE+1
>> DUOUT	TYPE+1
DUZ	MUSH
>> I	TESTS+6, TESTS+9, COAG+7, SPEC
LRCUTE	TESTS+1~, TESTS+3*, TESTS+4, TESTS+5
>> LRCW	MUSH+4, MUSH+6
>> LRDONT	TESTS+4
>> LREND	TESTS+7, TYPE+1*
>> LREXPD	TESTS+9*
>> LRHDR	COAG+2, COAG+8, COAG+9, MUSH+4, PUSH
>> LRHDR(	COAG+8, PUSH
>> LRHI	MUSH+5*, MUSH+6
>> LRIX	TESTS+4, COAG+2, COAG+8, MUSH+2, MUSH+7, PUSH
>> LRIX(	COAG+8, MUSH+2, MUSH+7, PUSH
>> LRIX(1	COAG+4*
>> LRLO	MUSH+5*, MUSH+6
>> LRND(	MUSH+3*
>> LRNG	COAG+2, COAG+8, MUSH+6, PUSH*
>> LRONESPC	TYPE+1*
>> LRONETST	TESTS+2, TESTS+4, TESTS+6, TESTS+7, LRTP+3*
>> LRORD	COAG+2, COAG+4, COAG+7, MUSH
>> LRORD(	COAG+4, COAG+7, MUSH
>> LRORD(0	COAG+2
>> LRPP(	MUSH+3*
>> LRPR(	MUSH+3*
>> LRPRETTY	TESTS+4*
>> LRPS	COAG+2, COAG+4, MUSH+2, MUSH+7
>> LRSSP	COAG+2, COAG+8, MUSH+2, MUSH+3, MUSH+7, PUSH
>> LRSUB	COAG+8, MUSH+1*, MUSH+2, MUSH+7
>> LRSUB(	COAG+8, MUSH+2, MUSH+7*
>> LRSUB(1	COAG+4*
>> LRTEST	TESTS+9*
>> LRTEST(	TESTS+4, TESTS+9, LRTP+3
>> LRTEST(0	TESTS+7
>> LRTHER	MUSH+5*
>> LRTN	COAG+4, COAG+5, COAG+7, MUSH+1, MUSH+3, MUSH+4, MUSH+5
LRTP	TESTS+7, MUSH+4, MUSH+5, MUSH+6, LRTP, LRTP+1, LRTP+3, SPEC, SPEC+1, SPEC+2! , TYPE+1*
LRTP(	LRTP+1*, SPEC
>> LRTSTS	TESTS+2, TESTS+4, TESTS+5*, COAG+2
LRUT	COAG+2, COAG+8, COAG+9!, MUSH+4, PUSH*
LRXPD	TESTS+8*, TESTS+9, COAG+2!
>> SEX	COAG+6*
U	TESTS+3, COAG+4, COAG+7, MUSH, MUSH+3, MUSH+4, MUSH+5, LRTP+1, LRTP+2, SPEC
>> X	MUSH+1, MUSH+3, MUSH+4, MUSH+5
>> Y	TESTS+2, TESTS+3, TESTS+6, TESTS+7*, LRTP+1, LRTP+2, LRTP+3, TYPE+1

Customize PDF page

Package: Lab Service

Routine: LRGEN2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

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
TESTS	;from LRGEN
MUSH
LRTP
PUSH
COAG	;K LRXPD Q:LRTSTS>18 S LRSSP=0,LRIX=1,(LRPS,LRHDR,LRUT,LRNG)="",LRORD=+$O(LRORD(0)) I LRORD<1 W !!,$C(7),"TEST NOT IMPLEMENTED" Q
SPC	;from LRSOR1
TYPE
SPEC