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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRBLJL

Package: Lab Service

Routine: LRBLJL


Information

LRBLJL ;AVAMC/REG/CYM - UNIT RELOCATION ;7/7/97 08:32 ;

Source Information

Source file <LRBLJL.m>

Entry Points

Name Comments DBIA/ICR reference
P
R
M
A
F
ALL ; This subroutine detects if a previous Inspection was
; Unsatisfactory, then calls up another subroutine to give
; a warning message. It also evaluates each individual unit
; within a group selected to be sure that all required testing
; is complete and compatible with the patient.
DIE
T
PRE ; Warning message if a unit has had a previous Unsatisfactory Inspection
CLNP ; When indicated, current relocation episode is deleted.
C
D
G
I
S
W
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units available for release",!,"Use appropriate options to assign or modify"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: $C(7),!!?3,"( # unsatisfactory unit)"
  • Line Location: R+2
Function Call: WRITE
  • Prompt: $C(7),!!?3,"( *Expired unit )"
  • Line Location: R+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"Select (1-",F,"): "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"Enter number(s) from 1 to ",F,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units"
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed"
  • Line Location: M+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: M+3
Function Call: WRITE
  • Prompt: !,A,")"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!,"Unit unsatisfactory, cannot release."
  • Line Location: ALL+8
Function Call: WRITE
  • Prompt: $C(7),!,"Unit unsatisfactory, cannot release."
  • Line Location: DIE+1
Function Call: READ
  • Formatting: !!
  • Prompt: "DATE/TIME UNIT RELOCATION: NOW//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: T+0
Function Call: WRITE
  • Prompt: $C(7),!?5,"TIME and DATE must be entered, future time not allowed."
  • Line Location: T+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Relocation time must be after DATE/TIME unit assigned "
  • Line Location: T+2
Function Call: WRITE
  • Prompt: "(",Y,")"
  • Line Location: T+2
Function Call: WRITE
  • Prompt: $C(7),!!,UNIT," has had a previous Unsatisfactory inspection and cannot be relocated.",!!,"Relocation entry <DELETED>",!
  • Line Location: PRE+2
Function Call: WRITE
  • Prompt: !,$P(^LAB(61.3,Z,0),"^"),$E("..............",$X,14),?15,"RBC ANTIGEN"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!,"Above antigen(s) not entered in RBC ANTIGEN ABSENT field"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: $C(7),!,"ABO not rechecked"
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!,"ABO recheck different from ABO GROUP"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: $C(7),!,"Rh NEG unit not rechecked"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !,$P(LRE,"^",2)," relocated"
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !?15,$C(7),"***Unsatisfactory unit(s) returned to BLOOD BANK***",!
  • Line Location: S+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units with incomplete answers or units to be sent from the blood bank",!,"with unsatisfactory inspections can be relocated. Relocation entry <DELETED>",!
  • Line Location: W+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call