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

Package: Lab Service

Routine: LRBLJM


Information

LRBLJM ;AVAMC/REG/CYM - EDIT POOLED UNIT ;9/26/97 13:01 ;

Source Information

Source file <LRBLJM.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
REST
S
W
F
L ;
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," Must enter a specific unit"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: $C(7),!!,"You can only edit Pooled Units from your own division.",!
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: $C(7),!,"No units in pool."
  • Line Location: REST+3
Function Call: WRITE
  • Prompt:
  • Line Location: W+0
Function Call: WRITE
  • Prompt: I
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?7,$P(W,U),?25,W(4)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!?7,Y,?25,$P(^LAB(66,LRZ,0),U)," not correct"
  • Line Location: F+0
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING ",$P(^LRD(65,LRP,0),U)
  • Line Location: L+4

FileMan Files Accessed Via FileMan Db Call

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