Routine: LAMIVTL1

Package	Total	Call Graph
Lab Service	3	$$DTF^LRAFUNC1 RANGE^LRWU2 (INF,PT)^LRX
VA Fileman	2	YN^DICN ^DIR
Automated Lab Instruments	1	^LAMIVTL2

Package

Total

Call Graph

Lab Service

$$DTF^LRAFUNC1 RANGE^LRWU2 (INF,PT)^LRX

VA Fileman

YN^DICN ^DIR

Automated Lab Instruments

^LAMIVTL2

Package	Total	Caller Graph
Automated Lab Instruments	1	LAMIVTL0

Package

Total

Caller Graph

Automated Lab Instruments

LAMIVTL0

Name	Comments	DBIA/ICR reference
CONTROL	;
EN	; From LAMIAUT0 BY FHS
PAT	;
SETUP	; ; Set up variables for PROCESSING
INIT	;
EXP	; From LAMIAUT4 BY FHS
V9	;

Name	Field # of Occurrence
YN^DICN	PAT+19
^DIR	V9+7
^LAMIVTL2	CONTROL+4
$$DTF^LRAFUNC1	PAT+4
RANGE^LRWU2	V9+10
INF^LRX	EXP+5
PT^LRX	PAT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CONTROL+1
Function Call: WRITE	Prompt: !,"ACC # (",LRAN,") " Line Location: PAT+2
Function Call: WRITE	Prompt: $$DTF^LRAFUNC1(LRCDT),!!?10,PNM," SSN: ",SSN," LOC: ",LRLLOC Line Location: PAT+3
Function Call: WRITE	Prompt: $$DTF^LRAFUNC1(LRCDT),!!?10,PNM," HRCN: ",HRCN," LOC: ",LRLLOC Line Location: PAT+4
Function Call: WRITE	Prompt: !?5,"Specimen: " Line Location: PAT+5
Function Call: WRITE	Prompt: $S($D(^LAB(61,+LRSPEC,0)):$P(^(0),U),1:"Unknown") Line Location: PAT+6
Function Call: WRITE	Prompt: " Sample: ",$S($D(^LAB(62,+LRSAMP,0)):$P(^(0),U),1:"Unknown"),! Line Location: PAT+7
Function Call: WRITE	Prompt: !," Comment on Specimem " Line Location: PAT+9
Function Call: WRITE	Prompt: ?30,^(I,0),! Line Location: PAT+11
Function Call: WRITE	Prompt: !,"GRAM STAIN " Line Location: PAT+13
Function Call: WRITE	Prompt: ?15,^(I,0),! Line Location: PAT+15
Function Call: WRITE	Prompt: !,"Comment on Specimen : ",^(99) Line Location: PAT+16
Function Call: WRITE	Prompt: !!?10,"Is this the correct patient/specimen? " Line Location: PAT+18
Function Call: WRITE	Prompt: !!,PNM," ",SSN,!,LRACCN Line Location: EXP+3
Function Call: WRITE	Prompt: !!,PNM," ",HRCN,!,LRACCN Line Location: EXP+4
Function Call: WRITE	Prompt: !!?5,$P(^LAB(61,LRSPEC,0),U)," ",$P(^LAB(62,LRSAMP,0),U),! Line Location: EXP+6
Function Call: WRITE	Prompt: !,I," ",LRNAME(I) Line Location: EXP+22
Function Call: WRITE	Prompt: ?25," verified" Line Location: EXP+23
Function Call: WRITE	Prompt: ! Line Location: V9+1
Function Call: WRITE	Prompt: !!?7,"Incorrect test number ",$C(7) Line Location: V9+10
Routine Call	DIR Line Location: V9+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	EXP+13
^LAB(61 - [#61]	PAT+6, EXP+6
^LAB(62 - [#62]	PAT+7, EXP+6
^LR - [#63]	EN+3, PAT+12, PAT+15, PAT+16
^LRO(68 - [#68]	SETUP+4, SETUP+13, SETUP+17, EN+1, EN+2, EXP+9, EXP+23
^LRO(69 - [#69]	PAT+8, PAT+11
^TMP("LR"	EXP+7!
^VA(200 - [#200]	EN+4

Name	Line Occurrences
CONTROL	INIT+3
EXP	CONTROL+3, V9+10
SETUP	CONTROL+2

Name	Field # of Occurrence
^(	SETUP+4, EN+1, PAT+11, PAT+15, EXP+10
^(0	EN+2, EN+4, PAT+6, PAT+7, EXP+13, EXP+23
^(3	SETUP+13
^(99	PAT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAT+17*, PAT+20
>> A	PAT+11, PAT+15
>> DFN	EN+3*
>> DIR("?"	V9+6*
>> DIR("A"	V9+4*
>> DIR("B"	V9+5*
>> DIR(0	V9+3*
>> DTOUT	V9+8
>> DUOUT	V9+8
>> HRCN	PAT+4, EXP+4
>> I	PAT+10, PAT+11, PAT+14, PAT+15, EXP+9, EXP+10, EXP+12, EXP+13, EXP+14, EXP+15 , EXP+16, EXP+17, EXP+19*, EXP+20, EXP+21, EXP+22, EXP+23
IOF	CONTROL+1
>> LRAA	SETUP+4, SETUP+13, SETUP+17, EN+1, EN+2, EXP+9, EXP+23
>> LRACCN	SETUP+4*, EXP+4
>> LRAD	SETUP+4, SETUP+13, EN+1, EN+2, EXP+9, EXP+23
>> LRALL	EXP+18, EXP+21, V9+2*, V9+9
>> LRAN	SETUP+2*, SETUP+4, SETUP+13, EN+1, EN+2, PAT+2, EXP+9, EXP+23
>> LRANX	SETUP+2
>> LRCDT	SETUP+14*, PAT+4
>> LRDFN	SETUP+5*, EN+3, PAT+12, PAT+15, PAT+16
>> LRDPF	SETUP+6*
>> LRDTR	SETUP+15*
>> LREAL	SETUP+16*
>> LREND	INIT+2, V9+8
>> LRI	EN+1*, EN+2
>> LRIDT	SETUP+13*, PAT+12, PAT+15, PAT+16
>> LRLLOC	SETUP+7*, PAT+4
LRNAME	EXP+7!
LRNAME(	EXP+14, EXP+15, EXP+16, EXP+19, EXP+20, EXP+22, EXP+23
>> LRNODE	SETUP+4, SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, SETUP+13, SETUP+14, SETUP+15 , SETUP+16
>> LRNOTO	EXP+23*
>> LRNTN	EXP+11*, EXP+19
>> LRODT	SETUP+9*, PAT+8, PAT+11
>> LRPHY	SETUP+8*, EN+4
>> LRPHYN	EN+4*
>> LRSAMP	EN+2*, PAT+7, EXP+6
>> LRSN	SETUP+10*, PAT+8, PAT+11
>> LRSPEC	EN+2*, PAT+6, EXP+6
>> LRSUB	SETUP+17*
LRTEST	EXP+7!
LRTEST(	EXP+10, EXP+13, EXP+14, EXP+15, EXP+17
LRTS	EXP+7!, EXP+20*
LRTS(	EXP+16, EXP+17
>> N	EXP+8, EXP+10, EXP+11, EXP+12
>> OK	INIT+1, CONTROL+2, CONTROL+3, PAT+20, V9+8*
>> PNM	PAT+4, EXP+4
U	SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, SETUP+13, SETUP+14, SETUP+15, SETUP+16, SETUP+17 , EN+2, EN+3, EN+4, PAT+6, PAT+7, EXP+6, EXP+13, EXP+14, EXP+23
>> X	V9+10
>> X9	V9+10
>> Y	V9+9*

Customize PDF page

Package: Automated Lab Instruments

Routine: LAMIVTL1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: