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

Package: Lab Service

Routine: LRBLJM1


Information

LRBLJM1 ;AVAMC/REG/CYM - EDIT POOLED UNIT 10/8/97 22:09 ;

Source Information

Source file <LRBLJM1.m>

Entry Points

Name Comments DBIA/ICR reference
A
G ; get next available IEN for POOLED unit modified to/from multiple
R
B
K
E
D
T
L1
AUDIT ; Puts deleted modified to/from entries onto audit trail
VOL ; Recalculate and updates POOLED unit volume, records change on audit trail

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$J(A,3),")",?7,$P(X,"^",3),?25,$P(X,"^",4)
  • Line Location: R+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+1
Function Call: WRITE
  • Prompt: $C(7),!,"Must enter a number from 1 to ",E
  • Line Location: R+1
Function Call: WRITE
  • Prompt: " ",LRC(3)
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !!,"Ok to delete the ",$P(LRW,"^")," pool "
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING ",$P(^LRD(65,DA),U)
  • Line Location: L1+2

FileMan Files Accessed Via FileMan Db Call

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