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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRULB1

Package: Lab Service

Routine: LRULB1


Information

LRULB1 ;AVAMC/REG - LAB LOG-BOOK CONT. ;3/3/94 14:28 ;

Source Information

Source file <LRULB1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 3 (F,M,V)^LRU  ^LRUP  END^LRUTL  

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 LRULB  

Entry Points

Name Comments DBIA/ICR reference
T
PRT
W
LIST
ORG
LST
H

External References

Name Field # of Occurrence
F^LRU H+1
M^LRU H
V^LRU LRULB1+3
^LRUP PRT+1
END^LRUTL LRULB1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?7,$E(LRP,1,15),?24,$E(O(1),1,14),?48,H(2),?65,H(1)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !?8,SSN,?27,LRLLOC
  • Condition for execution: A<1
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,LRC(5)
  • Condition for execution: $L(LRC(5))
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !!,LR("%")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?7,SSN,?27,LRLLOC
  • Condition for execution: A=0
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: A>0
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: ?50,$E(X,1,30)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Q>0
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: ?46,$S($D(^LAB(61,O(1),0)):$E($P(^LAB(61,O(1),0),"^"),1,14),1:"")
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",?22,LRAA(1)," Log-Book for ",LRH(0)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"#= Not PATIENT file",?48,"|-------Date/time----|",!,"Acc no",?14,"Name",?24,"Spec/Sample",?39,"Results",?48,"Received",?65,"Taken",!?14,"SSN",?24,"Location",?58,"Tests"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] LIST
^LAB(61 - [#61] PRT+3, LST
^LR - [#63] PRT+1, ORG
^LRO(68 - [#68] LRULB1+2, PRT, PRT+2, W

Label References

Name Line Occurrences
H LRULB1+2, PRT+4
LIST W
LST ORG
ORG PRT+5
PRT LRULB1+2
T PRT+2

Naked Globals

Name Field # of Occurrence
^( W, ORG
^(0 PRT, PRT+1, PRT+2, LIST
^(3 PRT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A W*, W+1, LIST
>> B LRULB1+2*
>> C(1 PRT+2*, PRT+3
>> H(1 PRT+2*, PRT+4
>> H(2 PRT+2*, PRT+4
IOF LRULB1+3
IOSL PRT+4
IOST LRULB1+3, H
>> LR("%" W+1, H+3
>> LR("F" LRULB1+2*, H
>> LR("Q" LRULB1+2, PRT+4, W, ORG, H
>> LRAA LRULB1+2, PRT, PRT+2, W
>> LRAA(1 H+1
>> LRAD LRULB1+2, PRT, PRT+2, W
>> LRAN LRULB1+2*, PRT, PRT+2, PRT+4, W
>> LRC(5 PRT*, W+1
>> LRDFN PRT*, PRT+1, ORG
>> LRH(0 H+1
>> LRI PRT+1*, ORG
>> LRLLOC PRT*, W+1, LIST
>> LRP PRT+4
>> LRSS PRT+5, ORG
>> N(1 LRULB1+2
>> N(2 LRULB1+2
>> N(3 PRT*, PRT+1, PRT+2
>> O ORG*
>> O(1 PRT+2*, PRT+3*, PRT+4, ORG*, LST
>> P("F" PRT+4
>> Q ORG*, LST
>> SSN W+1, LIST
>> X T*, PRT*, PRT+1*, PRT+2*, W*, LIST*
>> Y T*, PRT+2
>> Z W*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All