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

Package: Lab Service

Routine: LRBLDRR1


Information

LRBLDRR1 ; IHS/DIR/AAB - LABEL-RELEASE COMPONENTS COND'T 11/5/97 09:28 ; [ 05/28/98 2:04 PM ]

Source Information

Source file <LRBLDRR1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 5 (A,T)^LRBLB  (,EN)^LRBLDRR2  ^LRBLW  SET^LRBLWD  YN^LRU  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLDRR  LRBLJDA  LRBLPED2  

Entry Points

Name Comments DBIA/ICR reference
A
B
FRE
F
L
EN ;from LRBLJD,LRBLPED2
B1
B2
B3
X

External References

Name Field # of Occurrence
^%DT X+6
A^LRBLB X
T^LRBLB X+1
^LRBLDRR2 A+7, A+10, X+4
EN^LRBLDRR2 A+4
^LRBLW X+17
SET^LRBLWD L
YN^LRU A+4, A+7, A+13, X+4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"Select COMPONENT by number (",B," choice",$S(B=1:"",1:"s"),"): "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!?5,"Enter a number up to ",B
  • Line Location: A+1
Function Call: WRITE
  • Prompt: " ",$P(F(X),U,4)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: $C(7),!,"No Date/time Stored &/or Expiration date entered."
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,"Do you want to delete DISPOSITION "
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,"Component already released to inventory"
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !,"QUARANTINE or DISCARD component "
  • Line Location: A+7
Function Call: WRITE
  • Prompt: !!?15,$C(7),"Component should not be released- Unit quarantined.",!
  • Line Location: A+10
Function Call: WRITE
  • Prompt: $C(7),!!,"Testing not completed. OK to continue "
  • Line Location: A+13
Function Call: WRITE
  • Prompt: !,$C(7),"Since you labeled component someone else must release to inventory"
  • Line Location: A+14
Function Call: WRITE
  • Prompt: $C(7),!,"No expiration date entered for component"
  • Line Location: A+15
Function Call: READ
  • Prompt: "ABO/Rh LABEL: "
  • Formatting: !?14
  • Timeout: DTIME
  • Variable: X
  • Line Location: X+0
Function Call: WRITE
  • Prompt: !,$C(7),"No such ABO/Rh bar code",!
  • Line Location: X+0
Function Call: WRITE
  • Prompt: $C(7),!!,"ABO/Rh label does NOT match ABO/Rh of unit",!
  • Line Location: X+2
Function Call: WRITE
  • Prompt: $C(7),!,"Cannot release autologous unit without assigning unit to a patient."
  • Line Location: X+3
Function Call: WRITE
  • Prompt: !,"OK to release component "
  • Line Location: X+4
Function Call: WRITE
  • Prompt: !,"Component in inventory"
  • Line Location: X+5
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't do this now... Someone else has this record. Try again later...",!!
  • Line Location: X+6
Function Call: WRITE
  • Prompt: $C(7),!,"I cannot ADD the Antigen typings to the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results ",!!
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!,"I cannot DELETE the Antigen typings from the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results",!!
  • Line Location: B1+0
Function Call: WRITE
  • Prompt: $C(7),!,"I cannot ADD the HLA Antigen typings to the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results ",!!
  • Line Location: B2+0
Function Call: WRITE
  • Prompt: $C(7),!,"I cannot DELETE the HLA Antigen typings from the Inventory file. Someone else is editing this record...",!!,"Use the Inventory-Unit Phenotyping option to enter typing results ",!!
  • Line Location: B3+0
Function Call: WRITE
  • Prompt: $C(7),!!,"I cannot add this unit to the ABO/Rh Testing Worksheet",!!,"Please be sure to add it manually when requesting the worksheet.",!!
  • Line Location: EN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] X+13
^LRD(65 - [#65] X+5, X+6, X+7, X+10*, X+11*, X+12*, X+13*, X+15*, B, B+1*
, B+2*, B+3, B1, B1+1*, B1+2*, B1+3, B2, B2+1*, B2+2*, B2+3
, B3, B3+1*, B3+2*, B3+3
^LRE - [#65.5] A+10*, A+15, X+3, X+9, X+14, X+15, B+1, B1+1, B2+1, B3+1
, L*, FRE
^LRO(69.2 - [#69.2] EN+1, EN+2*
^XUSEC("LRBLSUPER" A+4

Label References

Name Line Occurrences
A A+1
B X+16
B1 B
B2 B1
B3 B2
EN F
F B3
FRE A, A+2, A+4, A+5, A+7, A+10, A+13, A+14, A+15, X+3
, X+4, X+5, L+1
L A+7
X X, X+1, X+2

Naked Globals

Name Field # of Occurrence
^( EN+2*
^(0 X+10*, X+14*, EN+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A+4*, A+7*, A+13*, X+4*, L*
>> %DT X+6*
>> A A+8*, A+9*, A+11*, A+12*, X+16*, B+1*, B1+1*, B2+1*, B3+1*
>> A(1 A+8*, A+9*
>> B A, A+1, X+7*, B+1*, B+2, B1+1*, B1+2, B2+1*, B2+2, B3+1*
, B3+2
>> C A+3*, A+15, X+5, X+9, X+10, X+11, X+14
>> C(9 A+3*, X+16
DTIME A, X
DUZ A+4, A+14, X+14, L
DUZ(2 X+10, X+11
>> E A+15*, X+10, X+11, X+14
>> F( A+2, A+3, A+4, A+5, A+6, L
>> LR A+7, A+14, X
>> LR(2 X
>> LRA X+15, F
>> LRAA EN+1, EN+2
>> LRABO X*, X+1, X+2
>> LRB( A+8, A+9
>> LRCAPA X+16, X+17, L
>> LRG X+5, X+10, X+11, X+13
>> LRH( A+9, A+12
>> LRI A+10, A+15, X+3, X+9, X+14, X+15, L, FRE
>> LRJ( A+8, A+9, A+11, A+12
>> LRK X+10*
>> LRQ A+10, A+15, X+3, X+9, X+14, X+15, B+1, B1+1, B2+1, B3+1
, L, FRE
>> LRQ("D" X+12
>> LRQ("S" A+10, X+12
>> LRQ("X" A+10*, A+13*, X+10, X+12
>> LRRH X+2
LRT X+16*, X+17!
LRT( X+16*
>> LRV X+10
>> LRW("LG" X+16
>> LRX X+7*, X+10, X+11, X+12, X+13, X+15, B, B+1, B+2, B+3
, B1, B1+1, B1+2, B1+3, B2, B2+1, B2+2, B2+3, B3, B3+1
, B3+2, B3+3, EN+2
NODE X+8~, X+9*
U A, A+2, A+4, A+5, A+6, X, X+7, X+9, X+10, X+14
>> V(10 X+10
>> V(11 X+10
>> V(12 X+2
VOL X+8~, X+9*, X+10
X A*, A+1, A+2, A+3, A+4, A+5, A+6, A+8*, A+9*, A+10
, A+11*, A+12*, A+13, X!*, X+1, X+2*, X+3*, X+6*, X+10*, X+13*
, X+14*, L
>> Y X+10, X+11, X+14, L*, EN+2*
>> Y(1 A+6*, A+7, A+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All