Routine: LRUDEL

Information

LRUDEL ;DALOI/REG,CYM,PMK - DELETE AN AP ACCESSION NUMBER ;10/05/16 12:52

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Lab Service	4	(ACC,NEW)^LR7OB1 ^LRAP DEL^LRAUAW (V,XR,YN)^LRU
VA FileMan	3	^%DT ^DIE $$GET1^DIQ
Imaging	1	CANCEL^MAGT7MA
Kernel	1	$$FMTE^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	LRAPED LRAPKILL

Entry Points

Name	Comments	DBIA/ICR reference
D
N1
REST	;
BAD
T	;
DATE	; Returns the date in eye-readable month format
K	; also from LRAPED
DEL69AN	; Delete accession number out of file #69's reference
CPRSUP	;CPRS status update to Discontinued
END

External References

Name	Field # of Occurrence
^%DT	D
^DIE	CPRSUP+18
$$GET1^DIQ	REST+23
ACC^LR7OB1	REST+59
NEW^LR7OB1	CPRSUP+8
^LRAP	LRUDEL+3
DEL^LRAUAW	REST+24
V^LRU	END
XR^LRU	LRUDEL+3
YN^LRU	REST+38, REST+54
CANCEL^MAGT7MA	REST+63
$$FMTE^XLFDT	DATE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?22,"Delete an Accession Number",!! Line Location: LRUDEL+4
Function Call: WRITE	Prompt: $C(7),!!,"No accession numbers for ",LRH(0),! Line Location: D+2
Function Call: READ	Formatting: !! Prompt: "Select Accession # : " Variable: LRAN Timeout: DTIME Line Location: N1+1
Function Call: WRITE	Prompt: $C(7),!!,"Enter NUMBERS only" Line Location: REST+4
Function Call: WRITE	Prompt: $C(7),!!,"Accession number ",LRAN," for ",LRH(0)," not in ACCESSION file",!! Line Location: REST+5
Function Call: WRITE	Prompt: !!?10,$C(7),"Someone else is editing this entry ",! Line Location: REST+8
Function Call: WRITE	Prompt: !!?10,$C(7),"Someone else is editing this entry ",! Line Location: REST+11
Function Call: WRITE	Prompt: !!,"ACC # ",LRAN Line Location: REST+19
Function Call: WRITE	Prompt: " OK to DELETE " Line Location: REST+37
Function Call: WRITE	Prompt: $C(7),!?4,"NOT DELETED",!! Line Location: REST+39
Function Call: WRITE	Prompt: !,LRAN," Deleted" Line Location: REST+42
Function Call: WRITE	Prompt: $C(7),!,"Report completed &/or released, deletion not allowed." Line Location: REST+46
Function Call: WRITE	Prompt: !!?10,"Someone else is editing this entry ",!,$C(7) Line Location: REST+49
Function Call: WRITE	Prompt: " DATE RECEIVED: ",Y," OK to DELETE " Line Location: REST+53
Function Call: WRITE	Prompt: $C(7),!?4,"NOT DELETED",!! Line Location: REST+55
Function Call: WRITE	Prompt: $C(7),!!,"Entry not in file",!! Line Location: BAD+0
Function Call: WRITE	Prompt: !!?10,$C(7),"Someone else is editing this entry ",! Line Location: DEL69AN+6
Routine Call	DIE Line Location: CPRSUP+18

FileNo	Call Tags
^LR - [#63]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	REST+17
^LR - [#63]	N1+4, REST+15, REST+17, REST+22, REST+27, REST+28, REST+34, REST+44, REST+48, REST+61 , REST+65!, REST+66, REST+68!, REST+69!
^LRO(68 - [#68]	D+2, REST+5, REST+7, REST+13, REST+14, REST+26, REST+30, REST+31, REST+40!, REST+71! , REST+72!, REST+74, REST+76, REST+78, K+3!, DEL69AN+2, DEL69AN+3
^LRO(69 - [#69]	DEL69AN+5, CPRSUP+4, CPRSUP+7, CPRSUP+12, CPRSUP+13, CPRSUP+14, CPRSUP+15, CPRSUP+16, CPRSUP+19
^LRO(69.2 - [#69.2]	N1+3, REST+10, T+2, T+3!, T+4, T+6

Label References

Name	Line Occurrences
BAD	REST+15
D	D+2
DATE	D, REST+18, REST+52
DEL69AN	REST+57
END	LRUDEL+3
K	REST+70
N1	N1+5
REST	N1+2
T	REST+41, REST+80

Naked Globals

Name	Field # of Occurrence
^(	CPRSUP+4
^(0	REST+17, REST+66, REST+76, REST+77, T+6*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	REST+38, REST+39, REST+54, REST+55
%DT	D*!
%DT("A"	D*
A	T+1~, T+2, T+3, T+4, T+6, K+1~, K+2, K+3*
DA	DEL69AN+1~, CPRSUP+17*
DA(1	CPRSUP+17*
DA(2	CPRSUP+17*
DIE	DEL69AN+1~, CPRSUP+11*
>> DILOCKTM	REST+7, REST+10, REST+48, REST+74, DEL69AN+5
DR	DEL69AN+1~, CPRSUP+10*
DTIME	N1+1
>> H(2	D+3*, REST+27, REST+34, REST+69
>> LRAA	D+2, N1+3, REST+5, REST+7, REST+10, REST+13, REST+14, REST+26, REST+30, REST+31 , REST+40, REST+59, REST+71, REST+72, REST+74, REST+76, REST+78, T+2, T+3, T+4 , T+6, K+3, DEL69AN+2, DEL69AN+3, CPRSUP+15
>> LRABV	REST+27, REST+34, REST+69
>> LRAD	D*, D+2, D+3, REST+5, REST+7, REST+13, REST+14, REST+26, REST+30, REST+31 , REST+40, REST+59, REST+71, REST+72, REST+74, REST+76, REST+78, K+3, DEL69AN+2, DEL69AN+3 , CPRSUP+16
>> LRAN	N1+1*, REST+4, REST+5, REST+7, REST+13, REST+14, REST+19, REST+26, REST+27, REST+30 , REST+31, REST+34, REST+40, REST+42, REST+59, REST+69, REST+71, REST+72, T+2, T+3 , K+3, DEL69AN+2, DEL69AN+3, CPRSUP+14
>> LRDFN	N1+4, REST+13*, REST+15, REST+17, REST+22, REST+23, REST+27, REST+28, REST+34, REST+44 , REST+48, REST+61, REST+65, REST+66, REST+68, REST+69
LRDIV	REST+2~, REST+14*, REST+40, REST+71
>> LRFNAM	REST+17*
>> LRH(0	D*, D+2, REST+5
LRI	REST+27, REST+28, REST+33, REST+34, REST+36, REST+44, REST+48, REST+61, REST+65, REST+68 , REST+69, DEL69AN+1~, CPRSUP+11, CPRSUP+12*, CPRSUP+13, CPRSUP+14, CPRSUP+15, CPRSUP+16, CPRSUP+17
LRNATURE	CPRSUP+2~, CPRSUP+6*, CPRSUP+8
>> LRND	REST+13*
LRNO	N1!
LRODT	DEL69AN+1~, DEL69AN+2*, DEL69AN+5, CPRSUP+4, CPRSUP+7, CPRSUP+8, CPRSUP+11, CPRSUP+12, CPRSUP+13, CPRSUP+14 , CPRSUP+15, CPRSUP+16, CPRSUP+17, CPRSUP+19
LRORIFN	CPRSUP+2~, CPRSUP+7*
>> LRP	REST+17*, REST+18
>> LRPF	REST+17*
>> LRPFN	REST+17*
>> LRRC	REST+22, REST+45, REST+51, REST+68, REST+72
>> LRSD	REST+28, REST+32
LRSN	DEL69AN+1~, DEL69AN+3*, DEL69AN+5, CPRSUP+4, CPRSUP+7, CPRSUP+8, CPRSUP+11, CPRSUP+12, CPRSUP+13, CPRSUP+14 , CPRSUP+15, CPRSUP+16, CPRSUP+17, CPRSUP+19
>> LRSS	N1+4, REST+21, REST+28, REST+44, REST+48, REST+61, REST+65, REST+66
LRT	CPRSUP+2~, CPRSUP+4*, CPRSUP+5
LRTX	CPRSUP+2~, CPRSUP+8
LRTX(	CPRSUP+5*
LRX	CPRSUP+2~, CPRSUP+3, CPRSUP+4
>> LRXR	REST+68
>> LRXREF	REST+27, REST+34, REST+69
U	REST+14, REST+17, REST+18, REST+22, REST+28, REST+45, CPRSUP+7
>> X	REST+31, REST+32, REST+33, REST+44, REST+45, REST+46, REST+66, REST+76, REST+77, T+6*
>> X(1	REST+66, REST+76, REST+77, T+4, T+5, T+6
>> X(2	REST+66, REST+76, REST+77*
>> Y	LRUDEL+3, D, REST+17, REST+18, REST+23, REST+51, REST+53, DATE+1

Marked Items

Name	Field # of Occurrence
$T(CANCEL^MAGT7MA	REST+63

Customize PDF page

Package: Lab Service