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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls