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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: LRUSE

Package: Lab Service

Routine: LRUSE


Information

LRUSE ;AVAMC/REG - ENTER/EDIT SNOMED FIELDS ; 6/2/86 9:12 AM ;

Source Information

Source file <LRUSE.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIE  

Entry Points

Name Comments DBIA/ICR reference
OPTS
DO
ASK
LST
OPT ;OPTION LIST

External References

Name Field # of Occurrence
^DIC ASK
^DIE ASK

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select SNOMED FIELD to edit: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPTS+0
Function Call: WRITE
  • Prompt: !!,"Select from:"
  • Line Location: OPTS+2
Function Call: WRITE
  • Prompt: " ",$E($P(Y,"^"),7,$L($P(Y,"^"))),!
  • Line Location: DO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !,?15,$P($P($T(OPT+A),";",3),"^")
  • Line Location: LST+0
Routine Call
  • DIC
  • Line Location:
    • ASK
Routine Call
  • DIE
  • Line Location:
    • ASK

Label References

Name Line Occurrences
ASK ASK
DO OPTS+1
LST OPTS+2
OPTS ASK, LST+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A OPTS+1*, LST*
>> DA ASK*
DIC ASK*!
DIC(0 ASK*
>> DIE ASK*
DLAYGO ASK*!
>> DR DO*
DTIME OPTS
>> F DO*, ASK
>> X OPTS*, OPTS+1
>> Y OPTS+1*, DO, ASK

Marked Items

Name Field # of Occurrence
$T(OPT+A OPTS+1, DO, LST
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All