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

Package: Lab Service

Routine: LRBLJD1


Information

LRBLJD1 ; IHS/DIR/AAB - POOL COMPONENTS 10/9/97 07:24 ; [ 04/29/98 10:11 AM ]

Source Information

Source file <LRBLJD1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 5 ^LRBLBU  K^LRBLJD  (,EN)^LRBLJDA  ^LRBLW  (D,YN)^LRU  
VA Fileman 2 ^DIC  ^DIE  

Entry Points

Name Comments DBIA/ICR reference
C
SET
K
S
XR
CMV
ID

External References

Name Field # of Occurrence
^DIC C+2
^DIE SET+2
^LRBLBU ID+2, C+1
K^LRBLJD LRBLJD1+5, LRBLJD1+8
^LRBLJDA ID+6
EN^LRBLJDA C+3
^LRBLW ID+7
D^LRU LRBLJD1+10, ID+6, C+4
YN^LRU LRBLJD1+11, C+4, SET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Must enter WKLD CODES in BLOOD PRODUCT FILE (#66)",!,"for ",$P(^LAB(66,LRV,0),U)," to pool unit.",!
  • Line Location: LRBLJD1+5
Function Call: WRITE
  • Prompt: !?31,"Unit ID",?41,"ABO/Rh",!!,"Selection 1 (unit ID to pool): ",$P(LRE,"^"),?41,$J($P(LRE,"^",7),2),?44,$P(LRE,"^",8)
  • Line Location: LRBLJD1+6
Function Call: WRITE
  • Prompt: !!,"No need to pool 1 unit",!
  • Line Location: LRBLJD1+8
Function Call: WRITE
  • Prompt: !!,"Pool will contain the following ",$P(^LAB(66,LRE(4),0),"^")," units:",!?3,"ID #",?22,"Expiration date"
  • Line Location: LRBLJD1+9
Function Call: WRITE
  • Prompt: !,$J(A,2),?3,$P(LRP(A),"^",2),?15,$P(LRP(A),"^",3),?22
  • Line Location: LRBLJD1+10
Function Call: WRITE
  • Prompt: Y
  • Line Location: LRBLJD1+10
Function Call: READ
  • Prompt: "Select UNIT ID number for POOL: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ID+0
Function Call: WRITE
  • Prompt: !,$C(7),"UNITS selected were NOT pooled !",!
  • Line Location: ID+0
Function Call: WRITE
  • Prompt: !!,$C(7),$S($D(^DD(65,.01,3)):^(3),1:""),!
  • Line Location: ID+4
Function Call: WRITE
  • Prompt: !,$C(7),"SORRY THAT ALREADY EXISTS",!
  • Line Location: ID+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"Selection ",N," (Unit ID to pool): "
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"Cannot pool this unit"
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !,$J(A,2),") ",$P(Y,U),?30,$P(Y,U,2)
  • Line Location: S+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: S+2
Function Call: WRITE
  • Prompt: $C(7),!,"Select a number from 1 to ",A
  • Line Location: S+2
Routine Call
  • DIE
  • Line Location:
    • SET+2
Routine Call
  • DIC
  • Line Location:
    • C+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 ID+3, ID+4, C+7, K
^LAB(66 - [#66] LRBLJD1+4, LRBLJD1+5, LRBLJD1+9, C+2
^LRD(65 - [#65] ID+5, ID+6, ID+7*, ID+8, C+6*, C+7!, K!, XR!, SET+1*
^TMP($J S, S+1, S+3

Label References

Name Line Occurrences
C LRBLJD1+7, C+1, C+2, C+3, C+4
CMV C+7
ID ID+4, ID+5
K LRBLJD1+11, ID, ID+3
S ID+9, S+2
SET S+1
XR ID+7

Naked Globals

Name Field # of Occurrence
^( S, SET+1*
^(0 ID+6*, ID+8*
^(1 ID+7*, C+7
^(2 K
^(3 ID+4
^(4 ID+4, K
^(5 K!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLJD1+11*, C+4*, SET*
>> A LRBLJD1+4*, LRBLJD1+10*, ID+1*, S*, S+1, S+2*
>> B LRBLJD1+10*, LRBLJD1+11
>> B( S*, S+3
>> C LRBLJD1+4*
>> DA LRBLJD1+5*, LRBLJD1+8*, ID+6, ID+7, ID+8, C+3*, C+7*, K*, SET+1, SET+2*
>> DA(1 SET+2*
DIC C+2*!
DIC("S" C+2*
DIC(0 C+2*
>> DIE SET+2*
>> DR SET+2*
DTIME ID, C, S+2
DUZ C+6
>> E K*
>> LR ID+2, C+1
>> LR("%" C+3!
>> LR("%4" C+4*
>> LR("%5" LRBLJD1+4*
>> LR("C" ID+7*, ID+8
>> LR(2 ID+2
>> LRCAPA LRBLJD1+3, LRBLJD1+5, ID+6, ID+7
>> LRDFN S+1*, S+3*, SET+1, SET+2
>> LRE LRBLJD1+6, LRBLJD1+7, ID+1*
>> LRE("P" C+3*, C+6
>> LRE(1 ID+6*, ID+7, SET
>> LRE(2 C+6, C+7
>> LRE(3 ID+6*
>> LRE(4 LRBLJD1+4, LRBLJD1+9
>> LRE(6 ID+6*, C+4*, C+5
>> LRE(69 ID+6, C+5*
>> LRE(9 C+4*
>> LRF C+4
>> LRL C+3*, C+4, C+6, C+7, CMV
>> LRM LRBLJD1+11*
LRP LRBLJD1+11!
LRP( LRBLJD1+10, ID+1, ID+7, C+6*, K
LRP(1 LRBLJD1+7*
LRT LRBLJD1+3!*
LRT( LRBLJD1+4*
LRT(0 LRBLJD1+5
>> LRV LRBLJD1+4, LRBLJD1+5, ID+7, C+2
>> LRV(10 C+6*
>> LRV(15 CMV*
>> LRW("MO" LRBLJD1+3
>> LRX LRBLJD1+5, LRBLJD1+7, LRBLJD1+8, ID+7*, XR
>> N LRBLJD1+7*, LRBLJD1+8, C, C+6
U LRBLJD1+5, ID, C, C+2, S, S+2, SET
X ID*, ID+2, ID+3!, ID+4, ID+5, ID+6, ID+8*, C*, C+1, C+7*
, K!*, S*, S+2*, S+3, CMV*
Y LRBLJD1+7, LRBLJD1+10*, ID+6*, C!, C+2, C+3, C+4*, C+6*, C+7, S*
, S+3*, SET
Y(0 C+2, C+3
>> Z ID+7*
>> Z(1 XR*
Info |  Source |  Call 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