Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRUDEL

Package: Lab Service

Routine: LRUDEL


Information

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

Source Information

Source file <LRUDEL.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call