Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRBLDRR1

Package: Lab Service

Routine: LRBLDRR1


Information

LRBLDRR1 ;AVAMC/REG/CYM - LABEL-RELEASE COMPONENTS COND'T ;11/5/97 09:28 ;

Source Information

Source file <LRBLDRR1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !?14
  • Prompt: "ABO/Rh LABEL: "
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls