Routine: LA7CSHL

Package

Total

Call Graph

^%ZISC $$OPEN^%ZISH

QUEMU2^LA7CHDR

UYEXPORT^BLRCCPED

^DIR

Name	Comments	DBIA/ICR reference
GET(AC)	;-- get the data needed for the call
MAIN	;-- this is the main routine driver
WRITE(LA76249,DIR,FILE)	;-- write out the file
SAMP(A,D,N,SPC)	;-- get collection sample
ACC()	;-- ask for the accession

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Accession not on file" Line Location: MAIN+4
Function Call: WRITE	Prompt: !,"No Export Directory Set" Line Location: GET+19
Function Call: WRITE	Prompt: !,"Message exported to "_LA7DIR_LA7FILE Line Location: GET+24
Function Call: WRITE	Prompt: SEGA,! Line Location: WRITE+7
Routine Call	DIR Line Location: ACC+2

Name	Line Occurrences (* Changed, ! Killed)
^BLRSITE - [#9009029]	GET+17
^LAHM(62.49 - [#62.49]	WRITE+4, WRITE+5
^LR - [#63]	GET+10, GET+12
^LRO(68 - [#68]	MAIN+3, GET+4, GET+8, GET+9, SAMP+3, SAMP+4, SAMP+5
^XTV(8989.3 - [#8989.3]	GET+18

Name	Field # of Occurrence
A	SAMP~, SAMP+3, SAMP+4, SAMP+5
AA	GET+2~, GET+5*, GET+8, GET+9, GET+11, GET+15
AC	GET~, GET+4, GET+15, GET+22
>> ACC	MAIN+1*, MAIN+2, MAIN+3, MAIN+5, MAIN+6
AD	GET+2~, GET+6*, GET+8, GET+9, GET+11, GET+15
AN	GET+2~, GET+7*, GET+8, GET+9, GET+11, GET+15
BDA	WRITE+2~, WRITE+4*, WRITE+5
CNT	GET+2~, GET+3, GET+13, GET+14
D	SAMP~, SAMP+3, SAMP+4, SAMP+5
DIR	WRITE~, WRITE+1
DIR("A"	ACC+1*
DIR(0	ACC+1*
>> DIRUT	ACC+3
DT	GET+22
DUZ(2	GET+17, GET+18
FILE	WRITE~, WRITE+1
IDT	GET+2~, GET+9*, GET+10, GET+12, GET+15
IO	WRITE+7
LA76249	MAIN+7!, GET+22, GET+23, WRITE~, WRITE+4, WRITE+5
LA7DIR	GET+16~, GET+17, GET+18, GET+19, GET+23, GET+24
LA7FILE	GET+16~, GET+22*, GET+23, GET+24
LA7RT	GET+2~, GET+4*, GET+5, GET+6, GET+7
LDA	GET+2~, GET+12*, GET+13
LDFN	GET+2~, GET+8*, GET+10, GET+12, GET+15
N	SAMP~, SAMP+3, SAMP+4, SAMP+5
SAM	SAMP+1~, SAMP+2, SAMP+3, SAMP+5, SAMP+6
SAMP	GET+2~, GET+11*, GET+15
SB	GET+2~, GET+15
SB(	GET+13*
SDA	SAMP+1~, SAMP+3*, SAMP+4, SAMP+5
SEG	WRITE+2~, WRITE+3, WRITE+5, WRITE+6, WRITE+9
SEGA	WRITE+2~, WRITE+3, WRITE+7, WRITE+8, WRITE+9*
SPC	SAMP~, SAMP+4
SPEC	GET+2~, GET+10*, GET+11, GET+15
U	GET+8, GET+9, GET+10, GET+17, GET+18, SAMP+4, SAMP+5
>> Y	ACC+4, WRITE+1*

Information