Routine: LRGV1

Information

LRGV1 ;DALOI/RWF - PART2 OF INSTRUMENT GROUP VERIFY DATA ;2/8/91 09:29

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	4	DISPLAY^LRGP ^LRGV2 TEST^LRVR1 PT^LRX
Kernel	2	$$S^%ZTLOAD ($$FMTE,$$HTE)^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: 1

Package	Total	Caller Graph
Lab Service	1	LRGV

Entry Points

Name	Comments	DBIA/ICR reference
STUFF	;from LRGV
NOP	; unlock from above
INFO	;

Name	Field # of Occurrence
$$S^%ZTLOAD	STUFF+3
DISPLAY^LRGP	STUFF+61
^LRGV2	STUFF+85
TEST^LRVR1	STUFF+40
PT^LRX	STUFF+58
$$FMTE^XLFDT	STUFF+72
$$HTE^XLFDT	STUFF+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* Report requested to stop by TaskMan *" Line Location: STUFF+5
Function Call: WRITE	Prompt: !,"* Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," *" Line Location: STUFF+6
Function Call: WRITE	Prompt: !,"Unable to obtain lock on sequence #",LRSQ Line Location: STUFF+13
Function Call: WRITE	Prompt: !?5,"Corrupt Accession ",! Line Location: STUFF+21
Function Call: WRITE	Prompt: " Auto Sequence #",LRSQ Line Location: STUFF+34
Function Call: WRITE	Prompt: ?40,"Accession NOT found." Line Location: STUFF+36
Function Call: WRITE	Prompt: ?45,"There's NO Instrument Data " Line Location: STUFF+54
Function Call: WRITE	Prompt: ! Line Location: STUFF+61
Function Call: WRITE	Prompt: !,"Unable to obtain lock on LAB DATA file" Line Location: STUFF+64
Function Call: WRITE	Prompt: !,"DATA HEADER MISSING " Line Location: STUFF+67
Function Call: WRITE	Prompt: !," Specimen: ",LRSPNAM Line Location: STUFF+71
Function Call: WRITE	Prompt: ?26," Collection date/time: ",$$FMTE^XLFDT($P(LR0,"^"),"1M"),! Line Location: STUFF+72
Function Call: WRITE	Prompt: !," << SPECIMEN IS NOT ",LRSPNAM," >> " Line Location: STUFF+75
Function Call: WRITE	Prompt: !,"Some Data Already Verified ",! Line Location: STUFF+79
Function Call: WRITE	Prompt: !,"Some Unverified Data Already Entered. " Line Location: STUFF+82
Function Call: WRITE	Prompt: !,">> Accession: ",LRAN," NOT VERIFIED <<" Line Location: NOP+3
Function Call: WRITE	Prompt: $C(7) Line Location: NOP+4
Function Call: WRITE	Prompt: !,"Sequence #: ",LRSQ Line Location: INFO+2
Function Call: WRITE	Prompt: ?20,"TRAY: ",$P(X,"^") Line Location: INFO+6
Function Call: WRITE	Prompt: ?33,"CUP: ",$P(X,"^",2) Line Location: INFO+7
Function Call: WRITE	Prompt: ?45,"DUPLICATE " Line Location: INFO+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	STUFF+70
^LAH(	STUFF+12, STUFF+16, STUFF+18, STUFF+37, STUFF+44, STUFF+46, STUFF+52, STUFF+53, STUFF+88, NOP+2 , INFO+3
^LR - [#63]	STUFF+58, STUFF+63, STUFF+66, STUFF+81, STUFF+87, NOP+1
^LRO(68 - [#68]	STUFF+20, STUFF+24, STUFF+27, STUFF+28, STUFF+31, STUFF+35
^TMP("LR"	STUFF+39!

Label References

Name	Line Occurrences
INFO	STUFF+49
NOP	STUFF+22, STUFF+49, STUFF+55, STUFF+67, STUFF+76, STUFF+83

Naked Globals

Name	Field # of Occurrence
^(0	STUFF+58
^(3	STUFF+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	STUFF+60*
>> DFN	STUFF+58*
IOST	NOP+4
>> LR0	STUFF+66*, STUFF+67, STUFF+69, STUFF+72, STUFF+74, STUFF+78
>> LRAA	STUFF+17, STUFF+20, STUFF+24, STUFF+27, STUFF+28, STUFF+31, STUFF+35, STUFF+47
>> LRAD	STUFF+17, STUFF+20, STUFF+24, STUFF+27, STUFF+28, STUFF+31, STUFF+35, STUFF+47
>> LRAN	STUFF+17, STUFF+20, STUFF+24, STUFF+27, STUFF+28, STUFF+31, STUFF+35, STUFF+44, STUFF+47, NOP+3
>> LRDFN	STUFF+25*, STUFF+58, STUFF+63, STUFF+66, STUFF+81, STUFF+87, NOP+1
>> LRDPF	STUFF+58*, STUFF+74
>> LRI	STUFF+43, STUFF+44, STUFF+45, STUFF+46
>> LRI(0	STUFF+46*, STUFF+47
>> LRIDT	STUFF+29, STUFF+30, STUFF+63, STUFF+66, STUFF+81, STUFF+87, NOP+1
>> LRLL	STUFF+12, STUFF+16, STUFF+18, STUFF+37, STUFF+44, STUFF+46, STUFF+52, STUFF+53, STUFF+88, NOP+2 , INFO+3
>> LRLLOC	STUFF+25, STUFF+26
>> LRMETH	STUFF+52*
>> LRODT	STUFF+25*
>> LRORD	STUFF+27*
>> LRORU3	STUFF+31*
LRQUIT	STUFF+8~, STUFF+10, STUFF+44, STUFF+48, STUFF+50
LRSA	STUFF+33!
LRSB	STUFF+33!
>> LRSN	STUFF+25*
>> LRSPEC	STUFF+69, STUFF+70, STUFF+74
>> LRSPNAM	STUFF+69, STUFF+70, STUFF+71, STUFF+75
>> LRSQ	STUFF+12, STUFF+13, STUFF+16, STUFF+18, STUFF+34, STUFF+37, STUFF+45, STUFF+52, STUFF+53, STUFF+88 , NOP+2, INFO+2, INFO+3
>> LRSQ(0	STUFF+16*, STUFF+17
>> LRVF	STUFF+78*, STUFF+79
>> LRWT	INFO+5
>> SEX	STUFF+59*
U	STUFF+17, STUFF+20, STUFF+25, STUFF+29, STUFF+52, STUFF+58, STUFF+69, STUFF+70, STUFF+74, STUFF+78
X	STUFF+24, STUFF+25, STUFF+33!, STUFF+69, STUFF+70, INFO+1~, INFO+3*, INFO+6, INFO+7
X(3	STUFF+28*, STUFF+29, STUFF+30
>> ZTQUEUED	STUFF+3, STUFF+6
>> ZTSTOP	STUFF+4*

Customize PDF page

Package: Lab Service