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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRUSP

Package: Lab Service

Routine: LRUSP


Information

LRUSP ;AVAMC/REG - ADD/DELETE SPECIAL STAIN ; 10/9/87 16:26 ;

Source Information

Source file <LRUSP.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^%DT  ^DIC  ^DIE  
Lab Service 1 (D,YN)^LRU  

Entry Points

Name Comments DBIA/ICR reference
ASK
T
BAD

External References

Name Field # of Occurrence
^%DT LRUSP+3
^DIC T
^DIE T+1
D^LRU LRUSP+3, ASK+4, ASK+5
YN^LRU LRUSP+3, ASK+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Add or Delete "
  • Line Location: LRUSP+2
Function Call: WRITE
  • Prompt: LRAA(1)," SPECIAL STAIN"
  • Line Location: LRUSP+2
Function Call: WRITE
  • Prompt: !!,"For ",LRH(0)," OK "
  • Line Location: LRUSP+3
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: !,$P(LRP,U,1)," ID: ",$P(LRP,U,9)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: ^(0)="^68.05PA^^"
  • Condition for execution: Y'[1700 " DOB: ",Y S:'$D(^LRO(68,LRAA,1,LRAD,LRAN,5,0))
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: T+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Entry not in file",!!
  • Line Location: BAD+0
Routine Call
  • DIC
  • Line Location:
    • T
Routine Call
  • DIE
  • Line Location:
    • T+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68 - [#68] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] ASK+3
^LR - [#63] ASK+3
^LRO(68 - [#68] ASK+2, ASK+3, ASK+4, ASK+5

Label References

Name Line Occurrences
ASK ASKASK+2, ASK+5, BAD
BAD ASK+3
T T+1

Naked Globals

Name Field # of Occurrence
^(0 ASK+3, ASK+4*
^(3 ASK+3, ASK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRUSP+3*, ASK+5*
>> %DT LRUSP+3*
>> DA T+1*
DIC T*!
DIC(0 T*
DIE T+1*!
DLAYGO T*!
>> DR T+1*
DTIME ASK
>> LRAA ASK+2, ASK+3, ASK+4, ASK+5
>> LRAA(1 LRUSP+2
>> LRAD LRUSP+3*, ASK+2, ASK+3, ASK+4, ASK+5
>> LRAN ASK*, ASK+2, ASK+3, ASK+4, ASK+5
>> LRDFN ASK+3*
>> LRH(0 LRUSP+3*, ASK+1, ASK+2
>> LRI ASK+3*
>> LRP ASK+4*
U ASKASK+3, ASK+4, T
>> X ASK+3*, ASK+4, T
>> Y LRUSP+3, ASK+3*, ASK+4*, ASK+5*, T+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All