Routine: LRMIV1

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Lab Service	7	LOOK^LRCAPV1 BRMK^LRMIPSZ2 LRANX^LRMIU4 (BB,PAT1)^LRMIV2 BACT^LRMIV4 UPDATE^LRPXRM PT^LRX
IHS Changes To Lab	3	^BLRALAF $$ADDON^BLRUTIL $$PATCH^BLRUTIL4
VA Fileman	3	%XY^%RCR (FILE,YN)^DICN ^DIE

Package

Total

Call Graph

Lab Service

LOOK^LRCAPV1 BRMK^LRMIPSZ2 LRANX^LRMIU4 (BB,PAT1)^LRMIV2 BACT^LRMIV4 UPDATE^LRPXRM PT^LRX

IHS Changes To Lab

^BLRALAF $$ADDON^BLRUTIL $$PATCH^BLRUTIL4

VA Fileman

%XY^%RCR (FILE,YN)^DICN ^DIE

Package	Total	Caller Graph
Lab Service	1	LRMIV

Package

Total

Caller Graph

Lab Service

LRMIV

External References

Name	Field # of Occurrence
%XY^%RCR	MOVE+2
^BLRALAF	T6+13
$$ADDON^BLRUTIL	T6+13
$$PATCH^BLRUTIL4	T6+3, T6+4, T6+12
FILE^DICN	MOVE+1
YN^DICN	T1+3, T5
^DIE	T51
LOOK^LRCAPV1	PAT
BRMK^LRMIPSZ2	T51
LRANX^LRMIU4	PAT
BB^LRMIV2	T4+3
PAT1^LRMIV2	T6+3, T6+4
BACT^LRMIV4	T51+1
UPDATE^LRPXRM	T6+4, T6+12
PT^LRX	T4+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter the accession number" Line Location: PAT+0
Function Call: WRITE	Prompt: !,?5,I Line Location: PAT1+1
Function Call: READ	Prompt: "What tray: " Formatting: ! Timeout: DTIME Variable: X Line Location: T1+0
Function Call: WRITE	Prompt: !,"Enter a number" Line Location: T1+0
Function Call: WRITE	Prompt: !,"Can't MANUALLY add to a SEQUENCE instrument data file." Line Location: T1+2
Function Call: WRITE	Prompt: !,"Enter manually" Line Location: T1+3
Function Call: READ	Prompt: "What cup: " Formatting: ! Timeout: DTIME Variable: X Line Location: T2+0
Function Call: WRITE	Prompt: !,"Enter a number" Line Location: T2+0
Function Call: WRITE	Prompt: !,?5,I Line Location: T2+2
Function Call: WRITE	Prompt: !,"No data for that accession." Line Location: T3+0
Function Call: READ	Prompt: "Choose sequence number: " Formatting: ! Timeout: DTIME Variable: X Line Location: T3+1
Function Call: WRITE	Prompt: !,"Enter a number" Line Location: T3+1
Function Call: WRITE	Prompt: !,"No data there" Line Location: T3+3
Function Call: WRITE	Prompt: ?25," ",PNM,?47," ",SSN Line Location: T4+4
Function Call: WRITE	Prompt: ?25," ",PNM,?47," ",HRCN Line Location: T4+5
Function Call: WRITE	Prompt: !,"The Bact data has been approved, ADDING Data MAY change previous reported",!,"values. Are you sure you want to do this " Line Location: T5+0
Function Call: WRITE	Prompt: !,"DATA NOT LOADED.",! Line Location: T5+0
Function Call: WRITE	Prompt: !,"Enter YES to reload data. NO to not reload data." Line Location: T5+1
Function Call: WRITE	Prompt: !!,"Data moved over" Line Location: T5+6
Function Call: WRITE	Prompt: !,"DATA APPROVED BUT NOT VERIFIED",! Line Location: T6+1
Function Call: WRITE	Prompt: !,"DATA APPROVED BUT NOT VERIFIED",! Line Location: T6+2
Function Call: WRITE	Prompt: !,"DATA APPROVED BUT NOT VERIFIED",! Line Location: T6+3
Function Call: WRITE	Prompt: !,"DATA APPROVED BUT NOT VERIFIED",! Line Location: T6+4
Function Call: WRITE	Prompt: !,"DATA APPROVED AND VERIFIED",! Line Location: T6+5
Function Call: WRITE	Prompt: !,"DATA APPROVED AND VERIFIED",! Line Location: T6+10
Function Call: WRITE	Prompt: "DATA NOT APPROVED OR VERIFIED. " Line Location: T6+16
Function Call: WRITE	Prompt: "INITIALS DO NOT MATCH." Line Location: T6+17
Function Call: WRITE	Prompt: !,"Type ""^"" to skip " Line Location: WAIT+0
Function Call: READ	Timeout: 10 Variable: X Line Location: WAIT1+0
Routine Call	DIE Line Location: T51

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAH(	PAT1+1, T2+2, T3+3, T5+4, T5+5!, WAIT1, MOVE+1
^LR - [#63]	T4+2, T4+3, T4+5, T5, T5+2, T5+3, T6+9
^LRO(68 - [#68]	T4+1
^LRO(68.2 - [#68.2]	T1+2
^VA(200 - [#200]	T6+8, T6+17

Name	Line Occurrences
LRMIV1	WAIT1
MOVE	T5+4
PAT1	PAT
T1	T1, T1+3
T2	T1+1, T2
T3	PAT1+2, T1+3, T1+4, T3+1, T3+3
T4	PAT1+2
T5	T5+1
T51	T6+3, T6+4
T6	T6+17
WAIT1	WAIT1

Name	Field # of Occurrence
^(	T4+1, T5+3, T5+4
^(0	T4+1, T4+2, T4+5
^(1	T5, T6+9*
^(3	T4+1
^(5	T4+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	T1+3, T5!, T5+1!, T5+2!
>> %X	MOVE+2*
>> %Y	MOVE+2*
>> DA	T51*
>> DA(1	T51, MOVE+1
>> DA(2	MOVE+1*
>> DFN	T4+5*
DIC	MOVE+1*!
DIC(0	MOVE+1*
>> DIE	T51*
>> DR	T51*
>> DR(1	T51*
>> DR(2	T51*
>> DR(3	T51*
DT	T6+9
DTIME	PAT, T1, T2, T3+1, T6
DUZ	T6+8, T6+9, T6+17
DUZ(2	T6+13
>> HRCN	T4+5
>> I	PAT, PAT1+1, T2+2*
>> I1	T5+3, T5+4, MOVE+1
>> I2	T5+4, MOVE+1
>> LRAA	T4+1
>> LRAD	T4+1
LRAN	PAT!, PAT1+1, T4+1, WAIT1
>> LRANOK	PAT*
>> LRCAPOK	PAT*
>> LRCDT	T4+1*
>> LRDFN	T4+1*, T4+2, T4+3, T4+5, T5, T5+2, T5+3, T51, T6+4, T6+9 , T6+12, MOVE+1
>> LRDPF	T4+5*
>> LREAL	T4+1*
>> LREND	T51+1*
>> LRHC	T5+6*
>> LRI	T4+1*
>> LRIDT	T4+1*, T4+2, T4+3, T5, T5+2, T5+3, T51, T6+4, T6+9, T6+12 , MOVE+1
>> LRLL	PAT1+1, T1+2, T2+2, T3+3, T5+4, T5+5, WAIT1, MOVE+1
LRORG	T5+3!*
LRORG(	T5+3*, T5+4
>> LRPARAM	PAT
LRPRGSQ	PAT1+1!, T2+2!, T3+2!, T6+3!, T6+4!
LRPRGSQ(	PAT1+1, T2+2, T4!
>> LRSPEC	T4+1*
>> LRSQ	PAT1+1, T1+3, T2+2, T3+3, T4, T5+4, T5+5, MOVE+1
>> LRTRAY	T1+1*, T2+1
>> LRTRCP	T2+1*, T2+2
>> LRUNDO	T4+5, T5+2
>> N	PAT1+1, PAT1+2, T2+2, T3, T3+1, T3+3
>> PNM	T4+5
U	PAT, T4+1, T4+5, T5+2, T5+5, T6+9, WAIT1
>> X	PAT, T1, T1+1, T2, T2+1, T3+1, T3+2, T3+3, T5+4, T5+5 , T6, T6+3, T6+4, T6+8, T6+16, T6+17, WAIT1, MOVE+1*
>> Y	MOVE+1
>> Y(0	T4+2*

Customize PDF page

Package: Lab Service

Routine: LRMIV1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

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
PAT1	;
MOVE	;Move data into ^LR(LRDFN,"MI",LRIDT,3,
PAT
WAIT1
T6
T51
T4
T5
T2
T3
T1
WAIT