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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRUTAD

Package: Lab Service

Routine: LRUTAD


Information

LRUTAD ; IHS/DIR/FJE - ADD/DELETE LAB TEST/PROCEDURE 11/12/88 09:34 ;

Source Information

Source file <LRUTAD.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (D,YN)^LRU  EN1^LRUWLF  
VA Fileman 1 ^%DT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT LRUTAD+5
D^LRU LRUTAD+5, ASK+4, ASK+5
YN^LRU LRUTAD+5, ASK+5
EN1^LRUWLF ADD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: LRAA(1)," TEST/PROCEDURE"
  • Line Location: LRUTAD+4
Function Call: WRITE
  • Prompt: $S($D(LRDEL):" DELETION",1:" ADDITION")
  • Line Location: LRUTAD+4
Function Call: WRITE
  • Prompt: !!,"For ",LRH(0)," OK "
  • Line Location: LRUTAD+5
Function Call: READ
  • Prompt: "Enter A for Add or D for Delete ==> "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: WH+0
Function Call: READ
  • Prompt: "Select Accession Number: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRAN
  • 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: ": "
  • Timeout: DTIME
  • Variable: A("A")
  • 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// "
  • Timeout: DTIME
  • Variable: N1
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] ASK+3
^LAB(60 - [#60] LRDEL+3, L
^LAB(61 - [#61] ASK+4
^LR - [#63] ASK+3
^LRO(68 - [#68] ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4!*

Label References

Name Line Occurrences
ASK ASK, ASK+2, ASK+5, BAD
BAD ASK+3
L Z
LRDEL LRDEL+3
WH ADD, LRDEL, LRDEL+1, LRDEL+2, LRDEL+4

Naked Globals

Name Field # of Occurrence
^( Z
^(0 ASK+3, ASK+4, ASK+6, Z, LRDEL, L
^(3 ASK+3, ASK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRUTAD+5*, ASK+5*
>> %DT LRUTAD+5*
>> A("A" LRDEL+1*, LRDEL+2, LRDEL+3, LRDEL+4
DTIME WH, ASK, LRDEL+1, LRDEL+3
>> LRAA ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4
>> LRAA(1 LRUTAD+4
>> LRAD LRUTAD+5*, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4
>> LRAN ASK*, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4
LRDEL LRUTAD+4, WH!*, ADD
>> LRDFN ASK+3*
>> LRFNAM ASK+3*
>> LRH(0 LRUTAD+5*, ASK+1, ASK+2
>> LRI ASK+3*
>> LRP ASK+4*
>> LRPF ASK+3*, ASK+4, ASK+6
>> LRPFN ASK+3*
>> LRSIT ASK+4*, ASK+5, ASK+6*
>> LRSS LRUTAD+4, WH, ASK+6
>> N Z*
>> N1 LRDEL+3*
T LRUTAD+4!, Z*, L
T( Z*, LRDEL+2, LRDEL+3, LRDEL+4!, L
U ASK, ASK+3, ASK+4, Z, LRDEL, LRDEL+2, LRDEL+3, LRDEL+4, L
>> X WH*, Z*, ADD*, LRDEL+1, L
>> Y LRUTAD+5, ASK+3*, ASK+4*, ASK+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All