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
Print Page as PDF
Routine: LRAPDEL

Package: Lab Service

Routine: LRAPDEL


Information

LRAPDEL ;AVAMC/REG - ANAT PATH DELETE DESCRIPTIONS ;8/12/95 07:42 ;

Source Information

Source file <LRAPDEL.m>

Entry Points

Name Comments DBIA/ICR reference
OUT
LRDFN
I
A
EN ;delete free text specimen entries
K
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Remove descriptions from ",LRO(68),!!
  • Line Location: LRAPDEL+3
Function Call: WRITE
  • Prompt: !!?32,"OK, forget it !"
  • Line Location: LRAPDEL+5
Function Call: WRITE
  • Prompt: !!,"OK to delete ",X," entries "
  • Line Location: LRAPDEL+6
Function Call: WRITE
  • Prompt: !!,"OK to delete Frozen Section Description entries "
  • Line Location: LRAPDEL+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: LRAPDEL+8
Function Call: WRITE
  • Prompt: $C(7),!,"OK DONE !"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !!,"Remove free text specimen entries from ",LRO(68),!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?26,"OK, no deletions."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$C(7),"OK, DONE."
  • Line Location: EN+5
Info |  Source |  Entry Points |  Interaction Calls