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: LRUTAD

Package: Lab Service

Routine: LRUTAD


Information

LRUTAD ;AVAMC/REG - ADD/DELETE LAB TEST/PROCEDURE ; 11/12/88 09:34 ;

Source Information

Source file <LRUTAD.m>

Entry Points

Name Comments DBIA/ICR reference
WH
ASK
Z
ADD
LRDEL
L
BAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: LRAA(1)," TEST/PROCEDURE"
  • Line Location: LRUTAD+2
Function Call: WRITE
  • Prompt: $S($D(LRDEL):" DELETION",1:" ADDITION")
  • Line Location: LRUTAD+2
Function Call: WRITE
  • Prompt: !!,"For ",LRH(0)," OK "
  • Line Location: LRUTAD+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter A for Add or D for Delete ==> "
  • Variable: X
  • Timeout: DTIME
  • Line Location: WH+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select Accession Number: "
  • Variable: LRAN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter whole numbers only",!!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " for ",LRH(0),!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in file",!!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO SITE/SPECIMEN",!,"DELETE ACCESSION # AND REENTER",!!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: $C(7),!!,"There are NO tests to delete !!!"
  • Line Location: LRDEL+0
Function Call: READ
  • Prompt: ": "
  • Variable: A("A")
  • Timeout: DTIME
  • Line Location: LRDEL+1
Function Call: WRITE
  • Prompt: !!,"Delete by selecting a number from 1",$S(X=1:"",1:"-"_X)
  • Line Location: LRDEL+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Results entered for this test !! Cannot delete it !"
  • Line Location: LRDEL+2
Function Call: READ
  • Prompt: " OK ? YES// "
  • Variable: N1
  • Timeout: DTIME
  • Line Location: LRDEL+3
Function Call: WRITE
  • Prompt: !,"Delete ",$P(^LAB(60,T(A("A")),0),U,1)
  • Line Location: LRDEL+3
Function Call: WRITE
  • Prompt: !,$J(X,38),")",T,?41,$E($P(^(0),U,1),1,38)
  • Line Location: L+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Entry not in file",!!
  • Line Location: BAD+0
Info |  Source |  Entry Points |  Interaction Calls