Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRUDEL

Package: Lab Service

Routine: LRUDEL


Information

LRUDEL ; IHS/DIR/AAB - DELETE AN AP ACCESSION NUMBER 2/18/98 10:04 ; [ 07/22/2002 1:54 PM ]

Source Information

Source file <LRUDEL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 4 ACC^LR7OB1  ^LRAP  DEL^LRAUAW  (V,XR,YN)^LRU  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPED  LRAPKILL  

Entry Points

Name Comments DBIA/ICR reference
END
D
K ; also from LRAPED
REST
BAD
T ;
DATE ; Returns the date in eye-readable month format
N1

External References

Name Field # of Occurrence
^%DT D
ACC^LR7OB1 REST+12
^LRAP LRUDEL+4
DEL^LRAUAW REST+6
V^LRU END
XR^LRU LRUDEL+4
YN^LRU REST+11
$$FMTE^XLFDT DATE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?22,"Delete an Accession Number",!!
  • Line Location: LRUDEL+5
Function Call: WRITE
  • Prompt: $C(7),!!,"No accession numbers for ",LRH(0),!
  • Line Location: D+1
Function Call: READ
  • Prompt: "Select Accession # : "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: LRAN
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter NUMBERS only"
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession number ",LRAN," for ",LRH(0)," not in ACCESSION file",!!
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: !!?10,$C(7),"Someone else is editing this entry ",!
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !!?10,$C(7),"Someone else is editing this entry ",!
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: !!,"ACC # ",LRAN
  • Line Location: REST+6
Function Call: WRITE
  • Prompt: !,LRAN," Deleted"
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: $C(7),!,"Report completed &/or released, deletion not allowed."
  • Line Location: REST+9
Function Call: WRITE
  • Prompt: !!?10,"Someone else is editing this entry ",!,$C(7)
  • Line Location: REST+10
Function Call: WRITE
  • Prompt: $C(7),!?4,"NOT DELETED",!!
  • Line Location: REST+11
Function Call: WRITE
  • Prompt: $C(7),!!,"Entry not in file",!!
  • Line Location: BAD+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] REST+5
^LR - [#63] N1+2, REST+5, REST+9, REST+10, REST+13, REST+14!
^LRO(68 - [#68] D+1, REST+1, REST+2, REST+4, REST+7!, REST+8, REST+15!, REST+16, K+1!
^LRO(69.2 - [#69.2] N1+2, REST+3, T+1

Label References

Name Line Occurrences
BAD REST+5
D D+1
DATE D, REST+5, REST+6
END LRUDEL+4
K REST+14
N1 N1+3
REST N1+2
T REST+7, REST+17

Naked Globals

Name Field # of Occurrence
^( REST+13!, T+1!
^(0 REST+5, REST+13*, REST+16*, T+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % REST+11*
%DT D*!
%DT("A" D*
>> A T+1*, K+1*
DTIME N1+1
DUZ(2 REST+7, REST+15
>> H(2 D+2*, REST+14
>> LRAA D+1, N1+2, REST+1, REST+2, REST+3, REST+4, REST+7, REST+8, REST+12, REST+15
, REST+16, T+1, K+1
>> LRABV REST+14
>> LRAD D*, D+1, D+2, REST+1, REST+2, REST+4, REST+7, REST+8, REST+12, REST+15
, REST+16, K+1
>> LRAN N1+1*, REST, REST+1, REST+2, REST+4, REST+6, REST+7, REST+8, REST+12, REST+14
, REST+15, T+1, K+1
>> LRDFN N1+2, REST+5*, REST+9, REST+10, REST+13, REST+14
>> LRFNAM REST+5*
>> LRH(0 D*, D+1, REST+1
>> LRI REST+8*, REST+9, REST+10, REST+13, REST+14
>> LRND REST+4*, REST+5
LRNO N1!
>> LRP REST+5*
>> LRPF REST+5*
>> LRPFN REST+5*
>> LRRC REST+4*, REST+6, REST+14, REST+15
>> LRSD REST+8*
>> LRSS N1+2, REST+6, REST+9, REST+10, REST+13
>> LRXR REST+14
>> LRXREF REST+14
U REST+4, REST+5
>> X REST+8*, REST+9*, REST+13*, REST+16*, T+1*
>> X(1 REST+13*, REST+16*, T+1*
>> X(2 REST+13*, REST+16*
>> Y LRUDEL+4, D*, REST+5*, REST+6*, REST+11, DATE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All