Routine: LRVRA

Information

LRVRA ;DALOI/JMC-Lab Routine Data Verification by UID ;2/12/97 11:06

Source Information

Source file <LRVRA.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Lab Service	4	P15^LROE1 STOP^LRVR ^LRVR1 PT^LRX
Kernel	2	$$FMADD^XLFDT ($$CJ,$$UP)^XLFSTR
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LRGV LRVR

Entry Points

Name	Comments	DBIA/ICR reference
UID	; Setup accession variables for a given UID.
BLDHELP(LRSD,LRLL,LRPROF)	; Build list of UID's ; Input LRSD - seed value for partial lookups ; if null or missing then return all UID's in xref. ; LRLL - ien of loadlist. ; LRPROF - ien of profile on loadlist. ; Only max of 500 allow to be displayed.
LWP(LRSD)	; Display list of partial UID's available
NEXT	; Retrieve next UID in xref.
LW	; Display list of UID's available
WLN	; Select next accession (UID) to work with.

Name	Field # of Occurrence
^DIR	WLN+5, LW+11, LWP+17
P15^LROE1	WLN+22
STOP^LRVR	WLN+6, LW+12, LWP+19, LWP+22
^LRVR1	LRVRA+15
PT^LRX	WLN+18
$$FMADD^XLFDT	LRVRA+9
$$CJ^XLFSTR	LW+7, LWP+7
$$UP^XLFSTR	WLN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WLN+1
Function Call: WRITE	Prompt: !,"No accession on file for this UID." Line Location: WLN+13
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: WLN+18
Function Call: WRITE	Prompt: !,"You cannot verify an accession which has not been collected.",$C(7) Line Location: WLN+25
Function Call: WRITE	Prompt: !,$C(7),"No results found in UID cross-reference." Line Location: LW+4
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Current Unique Identifiers with Results Available",IOM),!! Line Location: LW+7
Function Call: WRITE	Prompt: ?3,$P($G(^TMP($J,"LR","UIDHELP",K)),"^",2) Line Location: LW+9
Function Call: WRITE	Prompt: ?43,$P($G(^TMP($J,"LR","UIDHELP",(K+J))),"^",2),! Line Location: LW+10
Function Call: WRITE	Prompt: ! Line Location: LW+11
Function Call: WRITE	Prompt: !,$C(7),"No results found in UID cross-reference." Line Location: LWP+4
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Current Unique Identifiers with Results Available",IOM),!! Line Location: LWP+7
Function Call: WRITE	Prompt: ?3,$J(K,3),". ",$P($G(^TMP($J,"LR","UIDHELP",K)),"^",2) Line Location: LWP+10
Function Call: WRITE	Prompt: ?43,$J(K+J,3),". ",$P($G(^TMP($J,"LR","UIDHELP",(K+J))),"^",2) Line Location: LWP+13
Function Call: WRITE	Prompt: ! Line Location: LWP+15
Function Call: WRITE	Prompt: ! Line Location: LWP+16
Function Call: WRITE	Prompt: @IOF Line Location: LWP+18
Routine Call	DIR Line Location: WLN+5 LW+11 LWP+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	LRVRA+8
^LAH(	NEXT+4, BLDHELP+11
^LR - [#63]	WLN+17
^LRO(68 - [#68]	WLN+12, WLN+15, WLN+16, WLN+20, UID+2, BLDHELP+14, BLDHELP+18
^LRO(68.2 - [#68.2]	LRVRA+4, BLDHELP+9
^LRO(69 - [#69]	WLN+24
^TMP($J	LW+9, LW+10, LW+13!, LWP+9, LWP+10, LWP+12, LWP+13, LWP+21, LWP+23!, BLDHELP+7! , BLDHELP+21*

Name	Line Occurrences
$$BLDHELP	LW+3, LWP+3
$$LWP	WLN+9
NEXT	LRVRA+5, LRVRA+14, LRVRA+15, WLN+14, WLN+27
UID	WLN+11, NEXT+7
WLN	LRVRA+14, WLN+10, WLN+12

Name	Field # of Occurrence
^(	WLN+15
^(0	LRVRA+8, WLN+15, WLN+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C5	LRVRA+11!
>> DFN	WLN+17*
DIC	LRVRA+11!
DIR	LRVRA+13~, WLN+2!, LW+1~, LWP+1~
DIR("?"	WLN+3*
DIR("A"	WLN+3, LWP+16
DIR("B"	WLN+4*
DIR(0	WLN+3, LW+11, LWP+16*
DIRUT	LRVRA+13~, WLN+6, LW+1~, LW+12, LWP+1~, LWP+20
DT	LRVRA+9
DTOUT	LRVRA+13~, LW+1~, LWP+1~
DUOUT	LRVRA+13~, LW+1~, LWP+1~, LWP+19
>> EAMODE	LRVRA+12*
I	LW+1~, LW+6, LW+8, LWP+1~, LWP+6, LWP+8, BLDHELP+6~, BLDHELP+10, BLDHELP+11, BLDHELP+12 , BLDHELP+13, BLDHELP+14, BLDHELP+15
IOF	LW+7, LWP+7, LWP+18
IOM	LW+7, LWP+7
IOSL	LW+5, LWP+5
J	LW+1~, LW+5, LW+8, LW+10, LWP+1~, LWP+5, LWP+8, LWP+12, LWP+13, LWP+14
K	LW+1~, LW+3, LW+4, LW+5, LW+8, LW+9, LW+10, LWP+1~, LWP+3, LWP+4 , LWP+5, LWP+8, LWP+9, LWP+10, LWP+11, LWP+12, LWP+13, LWP+14, BLDHELP+6~, BLDHELP+10* , BLDHELP+11, BLDHELP+20, BLDHELP+21*, BLDHELP+22
L	LW+1~, LW+5, LW+6, LWP+1~, LWP+5, LWP+6
LRAA	WLN+12, WLN+15, WLN+16, WLN+20, WLN+21~, UID+4, UID+5, BLDHELP+6~, BLDHELP+9, BLDHELP+16 , BLDHELP+17*, BLDHELP+18
LRAB	LRVRA+11!
LRAD	WLN+12, WLN+15, WLN+16, WLN+20, WLN+21~, UID+3, UID+4, UID+5, BLDHELP+6~, BLDHELP+17 , BLDHELP+18
LRAN	WLN+12, WLN+15, WLN+16, WLN+20, WLN+21~, UID+3, UID+4, UID+5, BLDHELP+6~, BLDHELP+17 , BLDHELP+18
LRANYAA	LRVRA+3~, LRVRA+4*, UID+4, BLDHELP+16
>> LRCDT	WLN+23
>> LRCEN	WLN+15*, WLN+19
>> LRCFL	LRVRA+12*
LRDEL	LRVRA+11!
>> LRDFN	WLN+15*, WLN+17
LRDL	LRVRA+11!
>> LRDPF	WLN+17*
LREND	LRVRA+10, LW+1~, LW+2, LW+6, LWP+1~, LWP+2, LWP+6
LRFP	LRVRA+11!
LRLDT	LRVRA+11!
LRLL	LRVRA+4, LW+3, LWP+3, NEXT+4, BLDHELP~, BLDHELP+8*, BLDHELP+9, BLDHELP+11
LRNG	LRVRA+11!
LRNM	LRVRA+11!
LRNOP	LRVRA+3~, LRVRA+14, WLN+1, WLN+6, WLN+23, WLN+24, WLN+26, WLN+27
>> LRODT	WLN+15*, WLN+24
>> LRORU3	WLN+16*
LRPROF	LRVRA+4, LW+3, LWP+3, BLDHELP~, BLDHELP+8*, BLDHELP+9
LRQUIT	NEXT+1~, NEXT+2, NEXT+4, NEXT+8
LRSD	LWP~, LWP+2, LWP+3, BLDHELP~, BLDHELP+8, BLDHELP+12
LRSET	LRVRA+11!
>> LRSN	WLN+15*, WLN+24
>> LRSTATUS	WLN+22*
LRTEST	LRVRA+11!
>> LRTM60	LRVRA+9*
LRUID	LRVRA+3~, LRVRA+5, WLN+4, WLN+7, WLN+8, WLN+9, WLN+10, LWP+1~, LWP+2, LWP+4 , LWP+21, LWP+24, NEXT+3, NEXT+5~, NEXT+6, NEXT+8, NEXT+9, UID+2, UID+3, UID+4*
LRUIDX	NEXT+1~, NEXT+3, NEXT+4, NEXT+6, NEXT+9
LRVER	LRVRA+11!
M	LWP+1~, LWP+2, LWP+11, LWP+14*, LWP+16
>> PNM	WLN+18
>> SSN	WLN+18
T	LRVRA+11!
U	LRVRA+8, WLN+15, WLN+17, WLN+24
X	LRVRA+7~, LRVRA+8, LRVRA+9, LRVRA+13~, LW+1~, LWP+1~, UID+1~, UID+2, UID+3, UID+4 , UID+5, BLDHELP+6~, BLDHELP+14*, BLDHELP+15, BLDHELP+16, BLDHELP+17
Y	LRVRA+11!, LRVRA+13~, WLN+7, LW+1~, LWP+1~, LWP+20, LWP+21, BLDHELP+6~, BLDHELP+13, BLDHELP+18 , BLDHELP+20*, BLDHELP+21
Z	LRVRA+11!

Customize PDF page

Package: Lab Service

Routine: LRVRA

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: