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

Package: Lab Service

Routine: LRBLPUS1


Information

LRBLPUS1 ;AVAMC/REG/CYM - PATIENT UNIT SELECTION ;11/12/96 21:05 ; 11/30/00 4:21pm

Source Information

Source file <LRBLPUS1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 5 ($$READ,$$STRIP)^LRBLB  ^LRBLBU  ^LRBLPUS1  ^LRBLPUS2  (DT,RX,YN)^LRU  
VA FileMan 2 ^%DT  ^DIC  

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

Package Total Caller Graph
Lab Service 2 LRBLPUS  LRBLPUS1  

Entry Points

Name Comments DBIA/ICR reference
ALL
H
I
D
OK
CK
O
A
B
AB
OP
AP
BP
ABP
MORE
C
F

External References

Name Field # of Occurrence
^%DT LRBLPUS1+4
^DIC LRBLPUS1+10
$$READ^LRBLB LRBLPUS1+4
$$STRIP^LRBLB LRBLPUS1+8
^LRBLBU LRBLPUS1+7
^LRBLPUS1 LRBLPUS1+12
^LRBLPUS2 ALL, ALL+1, ALL+3
DT^LRU I+7
RX^LRU H+1
YN^LRU H+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: LRBLPUS1+4
Function Call: WRITE
  • Prompt: $$STRIP^LRBLB(.X)
  • Line Location: LRBLPUS1+8
Function Call: WRITE
  • Prompt: $C(7)," Enter a valid unit",!!,"You can only select units from your division [",LRAA(4),"]",!,"even though units from other divisions may be displayed."
  • Line Location: LRBLPUS1+11
Function Call: WRITE
  • Prompt: !!,$C(7),"This unit currently unavailable. Please try another ",!!
  • Line Location: LRBLPUS1+12
Function Call: WRITE
  • Prompt: !?3
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !?3
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No units to choose from !",!
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,"DISPLAY AVAILABLE UNITS FROM OTHER DIVISIONS AS WELL"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?3
  • Line Location: H+3
Function Call: WRITE
  • Prompt: $S($P(Y,"^",3)="A":"aut",$P(Y,"^",3)="D":"dir",1:"")
  • Line Location: I+4
Function Call: WRITE
  • Prompt: $J(Z,2)
  • Condition for execution: $D(Z(1))
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?7,$P(F,"^",2),?20,$J($P(F,"^",8),2)," ",$P(F,"^",9)
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?28,Y
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?28,Y
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?45,$P($G(^DIC(4,Y,0)),U)
  • Line Location: I+8
Function Call: WRITE
  • Prompt: !?48,$P(^LAB(61.3,O,0),"^")
  • Line Location: I+9
Function Call: WRITE
  • Prompt: !?3
  • Line Location: I+10
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Variable: A(2)
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13),?3
  • Line Location: MORE+1
Function Call: READ
  • Prompt: ": "
  • Variable: A(2)
  • Timeout: DTIME
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?3
  • Line Location: C+2
Routine Call
  • DIC
  • Line Location:
    • LRBLPUS1+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] I+8
^LAB(61.3 - [#61.3] I+9
^LAB(69.9 - [#69.9] H+2
^LRD(65 - [#65] LRBLPUS1+12, ALL, ALL+2, H, H+1, H+3, I!, I+1!, I+2!, I+3
, I+4, I+5, I+9, D, CK, CK+2
^TMP($J ALL+1!, D*, F

Label References

Name Line Occurrences
@( OK+3
ALL LRBLPUS1+13
C D, D+1
CK OK+2
D ALL+1, ALL+2
F C
H LRBLPUS1+5
I ALL, H+3, D
LRBLPUS1 LRBLPUS1+5, LRBLPUS1+11, LRBLPUS1+13
MORE H+3
OK I+6

Naked Globals

Name Field # of Occurrence
^(4 I+2
^(8 I+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % H+1*, H+2*
>> %DT LRBLPUS1+4*
A LRBLPUS1+4!, ALL*, ALL+1*, ALL+2*, H+3*, I, I+1, I+2, D*, MORE*
, C+1*, F+1*
A(1 H+3*, MORE+1*
A(2 ALL+1*, H+3*, D, MORE*, C*, C+1*, C+2, F, F+1*
>> B H+3*, D*
>> C ALL, H, H+3, I, I+1, I+2, D
>> C(19 I+5
>> C(7 I+6, OK, OK+2, OK+3
>> C(8 I+6, OK+1, OK+2, OK+4
>> C(9 I+9, OK+3, CK+2
DIC LRBLPUS1+10*!
DIC("S" LRBLPUS1+10*
DIC("W" LRBLPUS1+10*
DIC(0 LRBLPUS1+10*
DTIME MORE, C+1
DUZ(2 H+2, I+3, I+8
F LRBLPUS1+4!, ALL, ALL+1, ALL+3, I+5*!, I+6, I+7, I+8, D!, D+1
, OK!, OK+1!, OK+3, OK+4!, CK+1!, CK+2!, O!, A!, B!, AP!
, BP!, ABP!, F*
>> H LRBLPUS1+4*, I+1
>> I(7 I+6*, OK, O, A, B, AP, BP, ABP
>> I(8 I+6*, OK+1, OK+4
>> LR LRBLPUS1+6
>> LR("M" H+2*, I+3
>> LR(2 LRBLPUS1+6
>> LRAA(4 LRBLPUS1+11, H+1
>> LRB I+5
>> LRB(1 LRBLPUS1+4!, ALL*, I+5
>> LRDFN I+4
>> LRK CK
>> LRPABO OK, OK+3
>> LRPRH OK+1, OK+4
>> LRV I+7
>> N LRBLPUS1+4*, I
>> O I+9*, CK*, CK+1, CK+2*
>> O(1 I+9*, CK+2*
>> Q ALL*, H+3*, I, I+1, I+2, D*
>> R I+9, CK+2
>> R( I+5, CK+2
U LRBLPUS1+5, LRBLPUS1+10, H+1, H+2, I+8
>> V I+2*, I+3, I+4, I+5, I+9, CK, CK+2
>> X LRBLPUS1+4*, LRBLPUS1+5, LRBLPUS1+6, LRBLPUS1+8, LRBLPUS1+9, LRBLPUS1+10*, ALL, ALL+1, ALL+2, H+1
, D
>> Y LRBLPUS1+4, LRBLPUS1+10, LRBLPUS1+11, LRBLPUS1+12*, I+4*, I+7*, I+8*
Z LRBLPUS1+4!*, I+7*, D, D+1, C, C+1, F
Z(1 ALL+1*, I+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All