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

Package: Lab Service

Routine: LRUTL


Information

LRUTL ;AVAMC/REG/CYM - GENERAL LAB UTILITY ;3/12/98 07:53

Source Information

Source file <LRUTL.m>

Entry Points

Name Comments DBIA/ICR reference
A
EN ;
BEG ;
END ;
BB
QUE
W
STF(LRAA,LRAD,LRAN,LRT,TIME) ;Set ^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRT,0) entries into

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,X," Not in Accession Area file (#68)",!,"Tell responsible person to enter ",X," in file."
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"You do not have the appropriate security key to select this section.",!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: $C(7),!!,"LAB DATA FILE(#63) is missing one of the following:",!?3,"BLOOD BANK (63.01)",!?3,"EM (63.02)",!?3,"SURGICAL PATHOLOGY (63.08)",!?3,"CYTOPATHOLOGY (63.09)",!!?29,"Please tell IRM STAFF"
  • Line Location: A+8
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no accession areas for blood bank.",!,"Please have responsible person enter one in Accession File (#68)."
  • Line Location: BB+1
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?13,"Do you want to queue this report "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!,"PRINTER BUSY, TRY LATER"
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,LRAA,!,LRAD,!,LRAN,!,LRT,!,TIME
  • Line Location: STF+1
Info |  Source |  Entry Points |  Interaction Calls