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

Package: Lab Service

Routine: LRBLJLG1


Information

LRBLJLG1 ;AVAMC/REG/CYM - REVIEW UNIT LOG-IN ;11/12/96 07:41 ;

Source Information

Source file <LRBLJLG1.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
DIE
WRK
FIX
H
EN ;from LRBLJLG
END
CK
EN1 ;
A
Z

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,P," Source: ",LRW," Invoice: ",LRI,!,"Review:",?9,"Unit",?25,"ABO/Rh",?33,"Expiration date (*=Expired or expires today)"
  • Line Location: LRBLJLG1+5
Function Call: WRITE
  • Prompt: !,X,")",?9,$P(LRL(X),"^",2),?25,$P(LRL(X),"^",3),?28,$P(LRL(X),"^",4),?34
  • Line Location: LRBLJLG1+6
Function Call: WRITE
  • Prompt: Y,$P(LRL(X),"^",6)
  • Line Location: LRBLJLG1+6
Function Call: READ
  • Variable: LRE
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!,"No entering '^' during this edit !!"
  • Line Location: DIE+3
Function Call: WRITE
  • Prompt: " Enter a number from 1 to ",A
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(7)," Sorry, that unit exists in inventory."
  • Line Location: CK+1
Function Call: WRITE
  • Prompt: $C(7),!!?4,"Expiration date exceeds allowable limit !",!
  • Line Location: A+0

FileMan Files Accessed Via FileMan Db Call

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