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

Package: Lab Service

Routine: LRBLP


Information

LRBLP ;AVAMC/REG - BLOOD BANK PATIENT OPTS ;4/11/94 07:55 ;

Source Information

Source file <LRBLP.m>

Entry Points

Name Comments DBIA/ICR reference
B
E
C
O
PT
ASK
S
P
ABO
RH
TX
T
F
A
Z
M
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"Edit transfusions entered via Previous records option"
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!,"There are no transfusion records entered via previous records option."
  • Line Location: B+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 - ",B," to edit selection."
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !,$J(B,3),") ",Y,?25,$P(X,"^",3)," ",$P(X,"^",5)," ",$P(X,"^",6)," "
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!?10,"Blood bank patient data from old records"
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: $C(7),!,"For new entries only. No editing."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?10,"Blood bank patient special instructions"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !!?25,"Edit blood bank patient ABO/Rh"
  • Line Location: P+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ABO+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: A
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: !!?8,"Enter/edit transfusion reactions that do not have specific",!?18,"units associated with the reaction",!
  • Line Location: TX+0
Function Call: WRITE
  • Prompt: !
  • Line Location: T+0
Function Call: WRITE
  • Prompt: $C(7)," NOTHING TO DELETE !"
  • Line Location: F+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Units assigned/crossmatched."
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Any component requests, units assigned/crossmatched, transfusion records,",!,"RBC antigens present or absent, antibodies identified or blood bank comments",!,"must be removed before deletion allowed.",!
  • Line Location: F+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Blood bank data entered for this patient. Deletion not allowed!",!
  • Line Location: F+4
Function Call: WRITE
  • Prompt: $C(7),!,"ARE YOU SURE YOU WANT TO DELETE "
  • Line Location: F+6
Function Call: WRITE
  • Prompt: !?5,"CHOOSE FROM: "
  • Line Location: F+8
Function Call: WRITE
  • Prompt: !?7,Y,?15," ",A
  • Line Location: F+8
Function Call: WRITE
  • Prompt: $C(7),!!,"Remove blood bank accession number ",$P(X,"^",6),!,"And then you can delete the ABO & RH entries.",!
  • Line Location: A+1
Function Call: READ
  • Variable: E
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"'^' TO STOP: "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+1

FileMan Files Accessed Via FileMan Db Call

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