Routine: LRGV

Information

LRGV ;VA/DALIO/RWF - INSTRUMENT GROUP VERIFY DATA ; 13-Aug-2013 09:16 ; MKK

Source Information

Source file <LRGV.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Lab Service	7	^LRGP1 STUFF^LRGV1 ^LRGVK ^LRPARAM $$GETINITS^LRVER3 NEXT^LRVRA (DASH,DUZ)^LRX
Kernel	4	^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$HTE,$$NOW)^XLFDT
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRGV

Entry Points

Name	Comments	DBIA/ICR reference
END	;
SEQ	; Verify by sequence number ; Only select those entries in ^LAH that match the accession area and date ; selected by the user.
ACCLST	; Verify by accession number/UID
DQ	;
NOP	;
LRTRAY	; Verify by tray/cup
HDR	;
WRKLST	; Verify by worklist ; Only select those entries in file #68.2 that match the profile selected ; by the user.
TR2	; Verify by tray/cup ; Only select those entries in ^LAH that match the accession area and date ; selected by the user.
COM	; Ask common questions
ACC2	; Only select those entries in ^LAH that match the accession area and ; date selected by the user.

External References

Name	Field # of Occurrence
^%ZIS	LRGV+30
^%ZISC	END+2
^%ZTLOAD	LRGV+37
$$S^%ZTLOAD	HDR+16
^DIR	COM+9, COM+17, HDR+5
^LRGP1	LRGV+24
STUFF^LRGV1	ACC2+26, TR2+24, SEQ+13, WRKLST+17
^LRGVK	LRGV+5, END+3
^LRPARAM	LRGV+5
$$GETINITS^LRVER3	LRGV+18
NEXT^LRVRA	ACCLST+15
DASH^LRX	ACC2+4, LRTRAY+4, TR2+12, SEQ+9, WRKLST+9
DUZ^LRX	LRGV+11
$$FMTE^XLFDT	DQ+2
$$HTE^XLFDT	HDR+19
$$NOW^XLFDT	DQ+2, ACC2+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued" Line Location: LRGV+38
Function Call: WRITE	Prompt: @IOF Line Location: DQ+6
Function Call: WRITE	Prompt: ! Line Location: ACC2+4
Function Call: WRITE	Prompt: !,"Accession #: ",LRAN Line Location: ACC2+5
Function Call: WRITE	Prompt: " [UID: ",LRUID,"]" Line Location: ACC2+7
Function Call: WRITE	Prompt: " No accession on file for this UID." Line Location: ACC2+9
Function Call: WRITE	Prompt: " <",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^"),">" Line Location: ACC2+10
Function Call: WRITE	Prompt: " Has not been received. Unable to verify." Line Location: ACC2+13
Function Call: WRITE	Prompt: " Has a collection time in the future. Unable to verify." Line Location: ACC2+16
Function Call: WRITE	Prompt: " NO Instrument Data Found." Line Location: ACC2+19
Function Call: WRITE	Prompt: ! Line Location: LRTRAY+4
Function Call: WRITE	Prompt: !!,"Start TRAY: ",LRTRAY Line Location: LRTRAY+5
Function Call: WRITE	Prompt: ! Line Location: TR2+12
Function Call: WRITE	Prompt: !,"Tray ",$J(LRTRAY,3)," Cup ",$J(LRCUP,3) Line Location: TR2+13
Function Call: WRITE	Prompt: ?35,"No Instrument Data Found" Line Location: TR2+14
Function Call: WRITE	Prompt: ?35,"No Instrument Data Found" Line Location: TR2+20
Function Call: WRITE	Prompt: ?35," Does not have a link to an Accession." Line Location: TR2+25
Function Call: WRITE	Prompt: ! Line Location: SEQ+9
Function Call: WRITE	Prompt: !!,"SEQ: ",LRSQ,". Does not have a link to an Accession." Line Location: SEQ+14
Function Call: WRITE	Prompt: ! Line Location: WRKLST+9
Function Call: WRITE	Prompt: !,"Sequence #",$J(LRCUP,4) Line Location: WRKLST+13
Function Call: WRITE	Prompt: ?35,"No Instrument Data Found" Line Location: WRKLST+14
Function Call: WRITE	Prompt: !!,"NOTHING VERIFIED" Line Location: NOP+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+9
Function Call: WRITE	Prompt: "Group verification report - Verify with",$S(LRVRFYAL:"",1:"out")," flags" Line Location: HDR+11
Function Call: WRITE	Prompt: ?(IOM-27)," Date: ",LRDT Line Location: HDR+12
Function Call: WRITE	Prompt: !,"Load/Work list: ",LRLLNM," Panel: ",LRPANEL,?(IOM-27)," Page: ",LRPAGE Line Location: HDR+13
Function Call: WRITE	Prompt: !!,"* Report requested to stop by TaskMan *" Line Location: HDR+18
Function Call: WRITE	Prompt: !,"* Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," *" Line Location: HDR+19
Routine Call	DIR Line Location: COM+9 COM+17 HDR+5
Routine Call	%ZIS Line Location: LRGV+30

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	LRGV+12
^%ZOSF("EON"	LRGV+21
^LAB(69.9 - [#69.9]	LRGV+8
^LAH(	ACC2+18, ACC2+22, ACC2+23, TR2+14, TR2+17, TR2+18, TR2+19!, TR2+21, SEQ+7, SEQ+10 , WRKLST+14, WRKLST+17
^LRO(68 - [#68]	ACCLST+7, ACCLST+9, ACCLST+10, ACC2+8, ACC2+10, ACC2+12, ACC2+15
^LRO(68.2 - [#68.2]	DQ+3, ACCLST+14, WRKLST+7, WRKLST+10
^XUSEC("LRSUPER"	COM+5

Name	Line Occurrences
ACC2	ACCLST+7, ACCLST+15
ACCLST	DQ+5
COM	LRGV+27
END	LRGV+6, LRGV+22, LRGV+25, LRGV+28, LRGV+31, LRGV+39
HDR	DQ+4, ACC2+3, LRTRAY+3, TR2+11, SEQ+8, WRKLST+8
LRTRAY	DQ+5
NOP	LRGV+28
SEQ	DQ+5
TR2	LRTRAY+6
WRKLST	DQ+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	LRGV+30*
DIR	LRGV+13~, COM+2~, COM+15!, HDR+2~
DIR("A"	LRGV+14, COM+7, COM+8, COM+16
DIR("B"	COM+6, COM+16
DIR(0	LRGV+14, COM+6, COM+16, HDR+5
DIRUT	LRGV+22, COM+2~, COM+10, COM+18, HDR+2~, HDR+6
DTOUT	COM+2~, HDR+2~
DUOUT	COM+2~, HDR+2~
DUZ	LRGV+11, COM+5
IO	DQ+1
IO("Q"	LRGV+33, LRGV+35!
IO(0	LRGV+38
IOF	DQ+6, HDR+9
IOM	HDR+12, HDR+13
IOSL	ACC2+3, LRTRAY+3, TR2+11, SEQ+8, WRKLST+8
IOST	DQ+6, HDR+4, HDR+9
>> LRAA	ACCLST+7, ACCLST+9, ACCLST+10, ACC2+8, ACC2+10, ACC2+12, ACC2+15, ACC2+24, TR2+22, SEQ+11 , WRKLST+12*
>> LRAD	ACCLST+7, ACCLST+9, ACCLST+10, ACC2+8, ACC2+10, ACC2+12, ACC2+15, ACC2+24, TR2+22, SEQ+11 , WRKLST+12*
>> LRAN	ACCLST+6, ACCLST+7, ACC2+5, ACC2+8, ACC2+10, ACC2+12, ACC2+15, ACC2+18, ACC2+22, ACC2+25* , ACC2+26, TR2+23, TR2+24, SEQ+12, SEQ+13, WRKLST+12*, WRKLST+14, WRKLST+17
LRANYAA	LRGV+3~, LRGV+8, ACCLST+14
LRCSQQ	END+4!
>> LRCUP	TR2+9, TR2+10, TR2+13, WRKLST+6, WRKLST+7*, WRKLST+10, WRKLST+13
>> LRDT	DQ+2*, HDR+12
LRDUZ	LRGV+3~
LREC	TR2+3~, TR2+7*, TR2+9
>> LRECUP	WRKLST+7
>> LREND	LRGV+6, LRGV+25, LRGV+28, DQ+2, ACCLST+7, ACCLST+15, ACC2+3, ACC2+22, LRTRAY+2, LRTRAY+3 , TR2+9, TR2+11, TR2+17, SEQ+7, SEQ+8, WRKLST+7, WRKLST+8, WRKLST+17, COM+10, COM+13 , COM+18, HDR+6, HDR+7, HDR+17*
>> LRESEQ	SEQ+7
>> LRFAN	ACCLST+6
>> LRFCUP	TR2+6
>> LRFTRAY	LRTRAY+2, TR2+6
>> LRITC	TR2+10*, TR2+14, TR2+17
>> LRLCUP	TR2+7
>> LRLIX	ACCLST+7
>> LRLL	DQ+3, ACCLST+14, ACC2+18, ACC2+22, ACC2+23, TR2+14, TR2+17, TR2+18, TR2+19, TR2+21 , SEQ+7, SEQ+10, WRKLST+7, WRKLST+10, WRKLST+14, WRKLST+17
LRLLNM	DQ+3*, END+4!, HDR+13
>> LRLTRAY	LRTRAY+2, TR2+7
>> LRMAXCUP	TR2+7
LRNGS	END+4!
>> LRNOW	DQ+2*
>> LROUTINE	LRGV+8*
LRPAGE	DQ+2, END+4!, HDR+4, HDR+9, HDR+10, HDR+13
>> LRPANEL	HDR+13
>> LRPROF	ACCLST+14, WRKLST+11
LRSC	TR2+3~, TR2+6*, TR2+9
>> LRSQ	ACC2+21, ACC2+22, ACC2+23, TR2+16, TR2+17, TR2+18, TR2+19, TR2+21, SEQ+6, SEQ+7 , SEQ+10, SEQ+14, WRKLST+16, WRKLST+17
>> LRSS	LRGV+8*
>> LRTIC	TR2+19
>> LRTRAY	LRTRAY+2*, LRTRAY+5, TR2+6, TR2+7, TR2+10, TR2+13
LRUID	LRGV+3~, LRGV+8, ACCLST+14, ACCLST+15, ACC2+7
>> LRUSI	LRGV+22, ACCLST+9
LRVBY	LRGV+3~, LRGV+8*, ACCLST+5, ACCLST+13, ACC2+6
>> LRVRFYAL	COM+4, COM+11, HDR+11
>> LRVWLE	ACCLST+2*, ACCLST+8, ACCLST+10
>> LRWT	DQ+5
>> POP	LRGV+31
U	LRGV+8*
X	LRGV+11, ACC2+23, ACC2+24, ACC2+25, TR2+3~, TR2+21, TR2+22, TR2+23, SEQ+4~, SEQ+10 , SEQ+11, SEQ+12, WRKLST+4~, WRKLST+10*, WRKLST+11, WRKLST+12, COM+2~, HDR+2~
Y	LRGV+18*, LRGV+22, COM+2~, COM+11, COM+18, HDR+2~
ZTDESC	LRGV+34~, LRGV+36*
ZTDTH	LRGV+34~
>> ZTQUEUED	END+1, HDR+4, HDR+16, HDR+19
>> ZTREQ	END+1*
ZTRTN	LRGV+34~, LRGV+36*
ZTSAVE	LRGV+34~
ZTSAVE("LR*"	LRGV+36*
ZTSAVE("^TMP(""LR"",$J,"	LRGV+36*
>> ZTSK	LRGV+38
>> ZTSTOP	HDR+17*

Customize PDF page

Package: Lab Service

Routine: LRGV

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: