Routine: LRGP

Information

LRGP ;DALOI/CJS/RWF - INSTRUMENT GROUP DELTA CHECK DISPLAY ;2/5/91 13:19

Source Information

Source file <LRGP.m>

Call Graph

Call Graph Total: 9

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LRGP LRGV1

Entry Points

Name	Comments	DBIA/ICR reference
DQ	;
CLOSE	;
ACC	;
LRHED	;
LRTRAY	;
MACHSQ	;
WRKLST	;
WRK2	; Display results for each accession number.
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.
DISPLAY	; Display accession info/results

Name	Field # of Occurrence
^%ZIS	LRGP+13
^%ZISC	CLOSE+2
^%ZTLOAD	LRGP+19
$$S^%ZTLOAD	PRINT+6
^LRGP1	LRGP+9
^LRGVK	CLOSE+3
^LRPARAM	LRGP+7
VER^LRVR1	PRINT+35
DASH^LRX	ACC+9, PRINT+36
PT^LRX	PRINT+33
$$FMTE^XLFDT	DQ+2, DISPLAY+5, DISPLAY+7
$$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+20
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,"SSN: ",SSN Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !,"Accession: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: ?30," Results received: ",$$FMTE^XLFDT($P(LRSQ(0),"^",10),"1M") Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,?6,"UID: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3),"UNKNOWN"),"^") Line Location: DISPLAY+6
Function Call: WRITE	Prompt: ?34," Last updated: ",$$FMTE^XLFDT($P(LRSQ(0),"^",11),"1M") Line Location: DISPLAY+7
Routine Call	%ZIS Line Location: LRGP+13

Global Variables Directly Accessed

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+4, DISPLAY+6
^LRO(68.2 - [#68.2]	LRTRAY+1, MACHSQ+1, WRKLST+1, WRKLST+4, WRKLST+6
^TMP("LR"	LRGP+6!

Label References

Name	Line Occurrences
ACC	DQ+3
CLOSE	LRGP+8, LRGP+10, LRGP+14, LRGP+21
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

Naked Globals

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+12*
>> DFN	PRINT+32*
IO	DQ+1
IO("Q"	LRGP+15, LRGP+17!
IO(0	LRGP+20
IOF	DQ+5, LRHED+2
IOSL	ACC+6, PRINT+20
IOST	DQ+5, ACC+6, PRINT+20
LASQ	LRGP+3~, LRGP+5, ACC+4, ACC+7, PRINT+37*
>> LRAA	ACC+3, WRKLST+8*, PRINT+16, PRINT+27, PRINT+29, DISPLAY+4, DISPLAY+6
>> LRAD	ACC+3, WRKLST+8*, PRINT+18, PRINT+27, PRINT+29, DISPLAY+4, DISPLAY+6
>> LRAN	ACC+2, ACC+3, ACC+8, WRKLST+8*, WRK2+3, PRINT+27, PRINT+29, DISPLAY+4, DISPLAY+6
>> LRC	WRKLST+3, WRKLST+4, WRKLST+6
>> LRCUP	LRTRAY+5, LRTRAY+6, WRKLST+3, PRINT+22, PRINT+24
>> LRDCNT	LRGP+5, LRGP+12, DQ+4, PRINT+37*
>> LRDFN	PRINT+29*, PRINT+32
>> LRDPF	PRINT+32*
>> LRDT	DQ+2*, LRHED+4
>> LRECUP	WRKLST+4
>> LREND	LRGP+8, LRGP+10
>> LRESEQ	MACHSQ+5
>> LRFAN	ACC+2
>> LRFCUP	LRTRAY+5
>> LRFTRAY	LRTRAY+4
>> LRGVP	LRGP+5*
>> 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+2
LRPAGE	LRGP+3~, 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+5, DISPLAY+7
>> LRTRAY	LRTRAY+4, LRTRAY+5, LRTRAY+6, PRINT+22, PRINT+23
LRVBY	LRGP+3~
>> LRVTS	PRINT+20
>> LRWT	DQ+3
LRX	WRKLST+5~, WRKLST+6*, WRKLST+7, WRKLST+8
>> PNM	DISPLAY+1
>> POP	LRGP+14
>> SSN	DISPLAY+1
U	LRTRAY+1, MACHSQ+1, WRKLST+1, PRINT+29, PRINT+32
ZTDESC	LRGP+16~, LRGP+18*
ZTDTH	LRGP+16~
>> ZTQUEUED	CLOSE+1, PRINT+6, PRINT+9
>> ZTREQ	CLOSE+1*
ZTRTN	LRGP+16~, LRGP+18*
ZTSAVE	LRGP+16~
ZTSAVE("LR*"	LRGP+18*
ZTSAVE("^TMP(""LR"",$J,"	LRGP+18*
>> ZTSK	LRGP+20
>> 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