Routine: LRGP

Package	Total	Call Graph
Lab Service	5	^LRGP1 ^LRGVK ^LRPARAM VER^LRVR1 (DASH,PT)^LRX
Kernel	4	^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$HTE,$$NOW)^XLFDT

Package

Total

Call Graph

Lab Service

^LRGP1 ^LRGVK ^LRPARAM VER^LRVR1 (DASH,PT)^LRX

Kernel

^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$HTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Lab Service	2	LRGP LRGV1

Package

Total

Caller Graph

Lab Service

LRGP LRGV1

Entry Points

Name	Comments	DBIA/ICR reference
ACC	;
WRKLST	;
LRTRAY	;
LRHED	;
MACHSQ	;
PRINT	; ; Check that results belong to same accession area and date since ; results can belong to different accession areas and dates but have ; the same acession number.
CLOSE	;
WRK2	; Display results for each accession number.
DISPLAY	; Display accession info/results
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	LRGP+14
^%ZISC	CLOSE+2
^%ZTLOAD	LRGP+20
$$S^%ZTLOAD	PRINT+6
^LRGP1	LRGP+10
^LRGVK	CLOSE+3
^LRPARAM	LRGP+8
VER^LRVR1	PRINT+35
DASH^LRX	ACC+9, PRINT+36
PT^LRX	PRINT+33
$$FMTE^XLFDT	DQ+2, DISPLAY+8, DISPLAY+10
$$HTE^XLFDT	PRINT+9
$$NOW^XLFDT	DQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued" Line Location: LRGP+21
Function Call: WRITE	Prompt: !,"No Unverified instrument Data for Acc#: ",LRAN Line Location: ACC+8
Function Call: WRITE	Prompt: @IOF Line Location: LRHED+2
Function Call: WRITE	Prompt: !,"Group unverified review listing",?50,"Page: ",LRPAGE Line Location: LRHED+3
Function Call: WRITE	Prompt: !,LRHED,?50,"Date: ",LRDT,!! Line Location: LRHED+4
Function Call: WRITE	Prompt: !!,"Start LRTRAY: ",LRTRAY Line Location: LRTRAY+4
Function Call: WRITE	Prompt: !!,"* Report requested to stop by TaskMan *" Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"* Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," *" Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,?4,"Seq #: ",LRSQ Line Location: PRINT+21
Function Call: WRITE	Prompt: ?43,"Tray: ",LRTRAY Line Location: PRINT+23
Function Call: WRITE	Prompt: ?51," Cup: ",LRCUP Line Location: PRINT+24
Function Call: WRITE	Prompt: !,?5,"Name: ",PNM,?44,"HRCN: ",HRCN Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,"Accession: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^") Line Location: DISPLAY+7
Function Call: WRITE	Prompt: ?30," Results received: ",$$FMTE^XLFDT($P(LRSQ(0),"^",10),"1M") Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,?6,"UID: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3),"UNKNOWN"),"^") Line Location: DISPLAY+9
Function Call: WRITE	Prompt: ?34," Last updated: ",$$FMTE^XLFDT($P(LRSQ(0),"^",11),"1M") Line Location: DISPLAY+10
Routine Call	%ZIS Line Location: LRGP+14

Name	Line Occurrences (* Changed, ! Killed)
^LAH(	LRTRAY+7, MACHSQ+5, WRK2+3, PRINT+11, PRINT+13
^LR - [#63]	PRINT+32
^LRO(68 - [#68]	ACC+3, PRINT+27, PRINT+29, DISPLAY+7, DISPLAY+9
^LRO(68.2 - [#68.2]	LRTRAY+1, MACHSQ+1, WRKLST+1, WRKLST+4, WRKLST+6
^TMP("LR"	LRGP+7!

Name	Line Occurrences
ACC	DQ+3
CLOSE	LRGP+9, LRGP+11, LRGP+15, LRGP+22
DISPLAY	PRINT+34
LRHED	ACC+1, ACC+6, LRTRAY+2, MACHSQ+2, WRKLST+2, PRINT+20
LRTRAY	DQ+3
MACHSQ	DQ+3
PRINT	LRTRAY+7, MACHSQ+5, WRK2+3
WRK2	ACC+5, WRKLST+9
WRKLST	DQ+3

Name	Field # of Occurrence
^(	PRINT+29
^(0	PRINT+29, PRINT+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	LRGP+13*
>> DFN	PRINT+32*
>> HRCN	DISPLAY+3
IO	DQ+1
IO("Q"	LRGP+16, LRGP+18!
IO(0	LRGP+21
IOF	DQ+5, LRHED+2
IOSL	ACC+6, PRINT+20
IOST	DQ+5, ACC+6, PRINT+20
LASQ	LRGP+4~, LRGP+6, ACC+4, ACC+7, PRINT+37*
>> LRAA	ACC+3, WRKLST+8*, PRINT+16, PRINT+27, PRINT+29, DISPLAY+7, DISPLAY+9
>> LRAD	ACC+3, WRKLST+8*, PRINT+18, PRINT+27, PRINT+29, DISPLAY+7, DISPLAY+9
>> LRAN	ACC+2, ACC+3, ACC+8, WRKLST+8*, WRK2+3, PRINT+27, PRINT+29, DISPLAY+7, DISPLAY+9
>> LRC	WRKLST+3, WRKLST+4, WRKLST+6
>> LRCUP	LRTRAY+5, LRTRAY+6, WRKLST+3, PRINT+22, PRINT+24
>> LRDCNT	LRGP+6, LRGP+13, DQ+4, PRINT+37*
>> LRDFN	PRINT+29*, PRINT+32
>> LRDPF	PRINT+32*
>> LRDT	DQ+2*, LRHED+4
>> LRECUP	WRKLST+4
>> LREND	LRGP+9, LRGP+11
>> LRESEQ	MACHSQ+5
>> LRFAN	ACC+2
>> LRFCUP	LRTRAY+5
>> LRFTRAY	LRTRAY+4
>> LRGVP	LRGP+6*
>> LRHED	ACC+1, LRHED+4, LRTRAY+1, MACHSQ+1, WRKLST+1
>> LRITC	LRTRAY+6*, LRTRAY+7
>> LRLCUP	LRTRAY+5
>> LRLIX	ACC+3
>> LRLL	LRTRAY+1, LRTRAY+7, MACHSQ+1, MACHSQ+5, WRKLST+1, WRKLST+4, WRKLST+6, WRK2+3, PRINT+11, PRINT+13
>> LRLTRAY	LRTRAY+4, LRTRAY+5
>> LRMAXCUP	LRTRAY+5
>> LRNAME	ACC+1
>> LRNOW	DQ+2*
>> LRODT	PRINT+29*
>> LRORD	PRINT+29*, DISPLAY+5
LRPAGE	LRGP+4~, DQ+2, LRHED+1, LRHED+3
>> LRSN	PRINT+29*, PRINT+30
>> LRSQ	LRTRAY+6, LRTRAY+7, MACHSQ+4, MACHSQ+5, WRK2+2, WRK2+3, PRINT+11, PRINT+13, PRINT+21
>> LRSQ(0	PRINT+13*, PRINT+16, PRINT+18, PRINT+22, DISPLAY+8, DISPLAY+10
>> LRTRAY	LRTRAY+4, LRTRAY+5, LRTRAY+6, PRINT+22, PRINT+23
LRVBY	LRGP+4~
>> LRVTS	PRINT+20
>> LRWT	DQ+3
LRX	WRKLST+5~, WRKLST+6*, WRKLST+7, WRKLST+8
>> PNM	DISPLAY+3
>> POP	LRGP+15
U	LRTRAY+1, MACHSQ+1, WRKLST+1, PRINT+29, PRINT+32
ZTDESC	LRGP+17~, LRGP+19*
ZTDTH	LRGP+17~
>> ZTQUEUED	CLOSE+1, PRINT+6, PRINT+9
>> ZTREQ	CLOSE+1*
ZTRTN	LRGP+17~, LRGP+19*
ZTSAVE	LRGP+17~
ZTSAVE("LR*"	LRGP+19*
ZTSAVE("^TMP(""LR"",$J,"	LRGP+19*
>> ZTSK	LRGP+21
>> ZTSTOP	ACC+3, ACC+5, LRTRAY+4, LRTRAY+5, LRTRAY+7, MACHSQ+5, WRKLST+4, WRK2+3, PRINT+7*

Customize PDF page

Package: Lab Service

Routine: LRGP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: