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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
ASK
T
BAD

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68 - [#68] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call