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

Package: Lab Service

Routine: LRBLPED


Information

LRBLPED ; IHS/DIR/AAB - PEDIATRIC UNIT PREPARATION 7/30/95 15:36 ;

Source Information

Source file <LRBLPED.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 6 (BAR,P)^LRBLB  ^LRBLBU  ^LRBLPED1  (DT,RX,V)^LRU  ^LRUTL  X^LRUWK  
VA Fileman 3 ^%DT  (,C)^%DTC  ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLPED  

Entry Points

Name Comments DBIA/ICR reference
ALL
OK
D
F
I
H
C
P
U
END
MORE

External References

Name Field # of Occurrence
^%DT LRBLPED+3
^%DTC OK+3
C^%DTC OK+2, OK+3
^DIC P+2, U+2
BAR^LRBLB LRBLPED+5
P^LRBLB P+1
^LRBLBU U+1
^LRBLPED1 ALL, ALL+1, ALL+3
DT^LRU I+5
RX^LRU H+1
V^LRU END
^LRUTL LRBLPED+3
X^LRUWK LRBLPED+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?15,"Division: ",LRAA(4)
  • Line Location: LRBLPED+3
Function Call: READ
  • Prompt: "Blood component for pediatric prep: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7)," SPACE BAR not allowed."
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",!
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $C(7),!,"Either not an entry in BLOOD COMPONENT FILE (#66) or",!,"Must enter MAX AGE FOR PEDIATRIC USE field for the entry in file 66."
  • Line Location: P+2
Function Call: WRITE
  • Prompt: $C(7),!,$P(^DD(66,.22,0),U)," must be entered for this component",!,"and pediatric product selection must be an entry in the Blood Product file."
  • Line Location: P+3
Function Call: WRITE
  • Prompt: $C(7),!,$P(^DD(66,.23,0),U)," must be entered for this component"
  • Line Location: P+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have WKLD codes entered in Blood Product file for ",$P(^LAB(66,LRO,0),U)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: $C(7),!!,"Volume of component must be entered in BLOOD COMPONENT file",!?20,"for ",$P(Y,U,2),"."
  • Line Location: P+8
Function Call: READ
  • Prompt: "Select UNIT: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: U+0
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: !?3
  • Line Location: H+2
Function Call: WRITE
  • Prompt: $J(Z,2)
  • Condition for execution: $D(Z(1))
  • Line Location: I+5
Function Call: WRITE
  • Prompt: ?7,$P(LRF,"^",2),?20,$J($P(LRF,"^",8),2)," ",$P(LRF,"^",9)
  • Line Location: I+5
Function Call: WRITE
  • Prompt: ?28,Y
  • Line Location: I+5
Function Call: WRITE
  • Prompt: $J($S(LRB=0:"<1",1:LRB),4)," ",$S(LRB>1:"DAYS",1:"DAY ")," OLD ",$J($P(LRF,"^",12),3)
  • Line Location: I+6
Function Call: WRITE
  • Prompt: " ? "
  • Condition for execution: '$P(LRF,"^",12)&($P(LRF,"^",12)'=0)
  • Line Location: I+6
Function Call: WRITE
  • Prompt: " ml"
  • Line Location: I+6
Function Call: WRITE
  • Prompt: !?3
  • Line Location: I+7
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Timeout: DTIME
  • Variable: A(2)
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13),?3
  • Line Location: MORE+1
Function Call: READ
  • Prompt: ": "
  • Timeout: DTIME
  • Variable: A(2)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?3
  • Line Location: C+2
Routine Call
  • DIC
  • Line Location:
    • P+2
    • U+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 H+1
^DD(66 P+3, P+4
^LAB(66 - [#66] P+3, P+5, P+6, P+7
^LRD(65 - [#65] U+2, ALL, ALL+2, H, H+1, H+2, I!, I+1!, I+2!, I+3
, I+4, D, OK
^TMP($J ALL+1!, D*, F

Label References

Name Line Occurrences
ALL U+3
C D, D+1
D ALL+1, ALL+2
END LRBLPED+3, LRBLPED+4, P, P+6, U
F C
H U
I ALL, H+2, D
MORE H+2
OK I+4
P P, P+1, P+2, P+5, P+8
U U, U+1, U+2, U+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % H+1*
>> %DT LRBLPED+3*
>> A P+5*, ALL*, ALL+1*, ALL+2*, H+2*, I, I+1, I+2, D*, MORE*
, C+1*, F+1*
>> A(1 H+2*, MORE+1*
>> A(2 ALL+1*, H+2*, D, MORE*, C*, C+1*, C+2, F, F+1*
>> B H+2*, D*
DIC P+2*!, U+2*!
DIC("S" P+2*, U+2*
DIC("W" U+2*
DIC(0 P+2*, U+2*
DTIME P, U, MORE, C+1
>> LR P+1, U+1
>> LR("M" LRBLPED+3*
>> LR(2 P+1, U+1
>> LR(3 LRBLPED+5*
>> LR(66 P+7*
>> LRA P+7*, OK+2
>> LRAA(4 LRBLPED+3
>> LRB I+6, OK+3*
>> LRC P+5*, ALL, H, H+2, I, I+1, I+2, D
>> LRCAPA LRBLPED+4, P+6
>> LRD P+7*, OK+3
>> LRE I+5*
LRF U!, ALL, ALL+1, ALL+3, I+4*, I+5, I+6, D!, D+1, OK+1!
, OK+2!, OK+3, F*
>> LRJ U+3*, ALL, ALL+1, ALL+2, D
>> LRM LRBLPED+3*, I+1, OK+2, OK+3
>> LRN LRBLPED+3*, I
>> LRO P+3*, P+5, P+6, P+7
>> LRP P+7*
>> LRS P+7*
>> LRT P+6
>> LRT( P+5*
>> LRV P+7*, P+8
>> LRV( P+7*
>> LRZ P+7*
>> O OK*, OK+1
>> O(1 OK*
>> Q ALL*, H+2*, I, I+1, I+2, D*
U P+3, P+4, P+6, P+7, P+8, U, U+2, H+1
>> V I+2*, I+3, I+4, OK
X LRBLPED+3*, LRBLPED+4*!, P*, P+1, P+2, P+3*, P+4*, P+5, U*, U+1
, U+2*, U+3, ALL+2, H+1, OK+2, OK+3
X("NOCODES" LRBLPED+4*
>> X1 OK+2*, OK+3*
>> X2 OK+2*, OK+3*
>> Y LRBLPED+3, P+2, P+5, P+8, U+2, I+5*
>> Y(0 P+3, P+4, P+7
Z U!*, I+5*, D, D+1, C, C+1, F
Z(1 ALL+1*, I+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All