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

Package: Lab Service

Routine: LRBLJDM


Information

LRBLJDM ; IHS/DIR/AAB - MULTIPLE COMP PREP, INVENTORY 5/21/97 14:56 ; [ 04/29/98 10:25 AM ]

Source Information

Source file <LRBLJDM.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 5 K^LRBLJD  ^LRBLJDA  ^LRBLW  (D,YN)^LRU  D^LRUT  
VA Fileman 3 ^%DT  H^%DTC  ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLJD  

Entry Points

Name Comments DBIA/ICR reference
CK
C
SET
D
F ;from LRBLJD
ONLY
S ;from LRBLJD
T
OUT

External References

Name Field # of Occurrence
^%DT F+1
H^%DTC F+1
^DIC C
K^LRBLJD OUT
^LRBLJDA S+2
^LRBLW S+3
D^LRU T, F+3
YN^LRU C+3
D^LRUT F+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(LRP(X),"^"),?40,"vol(ml):",$J($P(LRP(X),"^",2),5)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?48,"-----",!?34,"Total vol(ml):",$J(S,5)
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Total volume of components greater than unit. SELECTIONS DELETED TRY AGAIN !",!!
  • Line Location: C+2
Function Call: WRITE
  • Prompt: " SELECTIONS DELETED TRY AGAIN",!
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Component selected must be the ONLY ONE for this unit.",!," Selection ",$P(LRP(Y),"^")," canceled !",!
  • Line Location: ONLY+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Cannot select more than one red blood cell product.",!,"Selection ",$P(LRP(Y),"^")," canceled !",!
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: $C(7),!,!!,"Must enter WKLD CODES in BLOOD PRODUCT FILE (#66)",!,"for ",$P(^LAB(66,LRV,0),U)," to divide unit.",!
  • Line Location: D+0
Function Call: READ
  • Prompt: "Enter number of aliquots (1-5): "
  • Formatting: !
  • Timeout: DTIME
  • Variable: A
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,"Answer must be 1,2,3,4, or 5",!
  • Line Location: D+2
Routine Call
  • DIC
  • Line Location:
    • C

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(66 - [#66] LRBLJDM+3, C, S+2, D
^LRD(65 - [#65] S+1, SET, SET+1*

Label References

Name Line Occurrences
C C, C+2, C+3
CK C
D D+2
F C+5
ONLY C
OUT C+1, D, D+1
S C+5, D+3
SET S+2
T C+5

Naked Globals

Name Field # of Occurrence
^( S+1*, SET
^(0 S+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % C+3*
>> %DT F+1*
>> %H F+1*
>> A S+2*, SET*, D+1*, D+2*, D+3
>> B D+3*
>> C S+1*, S+2, SET*, SET+1
DIC C*!
DIC(0 C*
DTIME D+1
>> LR("C" D+3*
>> LRCAPA S+2, D
>> LRD C+5*
>> LRE C+4, T, S+1
>> LRE(1 C+4*, S+1*
>> LRE(4 C
>> LRH C+5*
>> LRM C+2, C+5*, D+3*
>> LRO(1 C+5*, T*, F+1*, F+3*
>> LRO(9 F+2
LRP C+1, C+2!, C+3!
LRP( LRBLJDM+3*, C*, C+1, C+5, ONLY!, CK!
LRT S+3!*
LRT( S+2*
>> LRV LRBLJDM+3, C+5*, S+1, S+2, D
>> LRV(1 C+5*
>> LRV(10 C+4*, D+3*
>> LRV(11 S+1, D+3*
>> LRW("MO" S+3
>> LRX S+1, SET, SET+1
>> LRZ LRBLJDM+3*, C+2*, CK, CK+1*
>> S C+1*, C+2
>> T(2 F+1*
>> T(3 F+1*, F+2*
>> T(4 F+2*
>> T(5 F+1*, F+2
U D, D+1
>> X LRBLJDM+3*, C*, C+1*, CK, CK+1, F+1*, F+2*, F+3*, S+1*
>> X(1 C+1*, C+4
>> Y C*, ONLY, CK, T*, F+1*, F+3*
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