Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 5 ($$READ,$$STRIP,BAR)^LRBLB  ^LRBLBU  (K,M,V)^LRU  EN^LRUD  ^LRUTL  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLJM  

Entry Points

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

External References

Name Field # of Occurrence
^DIC REST+1, F
^DIR S
$$READ^LRBLB ASK
$$STRIP^LRBLB ASK+2
BAR^LRBLB LRBLJM+3
^LRBLBU ASK+1
K^LRU ASK+4
M^LRU W
V^LRU END
EN^LRUD F+1
^LRUTL LRBLJM+3

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
Routine Call
  • DIC
  • Line Location:
    • REST+1
    • F
Routine Call
  • DIR
  • Line Location:
    • S

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls
^LAB(66 - [#66] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(66 - [#66] REST+1, WF
^LRD(65 - [#65] ASK+3, ASK+5, REST+2, REST+3, REST+4, W, F*, L+2, L+3, L+4
^TMP($J ASK+6!, REST+5, W*

Label References

Name Line Occurrences
@( S+2
ASK ASK+1, ASK+3, ASK+6, REST+2
END LRBLJM+3, ASKS+1
F W+1
L REST+1
REST ASK+4
W REST+4

Naked Globals

Name Field # of Occurrence
^( REST+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B W*
DA ASK+6!, F+1*
DA(1 F+1*
DIC REST*, REST+1!, F*!
DIC("A" F*
DIC("S" REST*, F*
DIC(0 REST*, F*
>> DIR(0 S*
>> DIRUT S+1
DUZ(2 REST+2
>> E REST+4*, W*
>> LR ASK+1, ASK+2
>> LR("Q" REST*, REST+4, REST+5, WW+1*
>> LR(2 ASK+1
>> LRA REST+1*
>> LRB REST+4*, WFF+1
>> LRL REST+1, L+1*, L+4*
LRLOCK ASK+5, ASK+6!, L+2, L+3*
LRP ASK+6!, REST+1*, REST+2, REST+3, REST+4, FF+1, L+3, L+4
LRV ASK+6!, W*, W+1
>> LRW REST+1*
>> LRZ REST+4*, WFF+1
>> O F+1*
U ASKREST+1, REST+2, WFL+4
>> W W*
>> W(4 W*
>> X LRBLJM+3*, ASK*, ASK+1, ASK+2, ASK+3, REST+4*, F+1*
>> Y LRBLJM+3, REST+1, REST+4*, S+2, WFF+1
>> Y(0 REST+1
>> Z F+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All