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

Package: Lab Service

Routine: LRBLPUS


Information

LRBLPUS ;AVAMC/REG/CYM - PATIENT UNIT SELECTION ;08/15/01 1:15 pm

Source Information

Source file <LRBLPUS.m>

Entry Points

Name Comments DBIA/ICR reference
P
REST
C
G
S
R
N
L
M
EN ; from LRBLJL
CK ;called by LRBLPX,LRBLJLA,LRBLAA,LRBLJL,LRBLPCS
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?24,"Selection of units for a patient",!!?28,LRAA(4),!?12,"Accession Area: ",LRO(68)
  • Line Location: LRBLPUS+6
Function Call: WRITE
  • Prompt: !!?15,"Select only unassigned/uncrossmatched units "
  • Line Location: LRBLPUS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have blood component request(s) on record to select units",!
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $$STRIP^LRBLB(.X)
  • Line Location: C+3
Function Call: WRITE
  • Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",!
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !,A,") ",Y," Acc # ",$P(Z(A),"^",3)
  • Line Location: G+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !,"Select a number from 1 to ",B,!
  • Line Location: S+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Results on "_G(5)_" do not match the Patient's previous ABO/Rh history",!!,"Resolve the discrepancy before proceeding ",!
  • Line Location: R+5
Function Call: WRITE
  • Prompt: !,$J(B,2),")",?6,$P(X,"^"),?17,$E($P(M,"^"),1,19),?38,$P(X,"^",7)_" "_$P(X,"^",8),?44
  • Line Location: N+4
Function Call: WRITE
  • Prompt: Y,?64,L
  • Line Location: N+5
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,23),?24,$J($P(X,"^",4),3),?30
  • Line Location: L+0
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+0
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,$C(7),"Units restricted for ",LRP
  • Condition for execution: M=1
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?15,$P(^LAB(66,$P(X,"^",4),0),"^")
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: CK+2
Function Call: WRITE
  • Prompt: $C(7),!,"TRANSFUSION REQUEST must be entered in LAB TEST file (#60).",!
  • Line Location: CK+3
Function Call: WRITE
  • Prompt: !!,$C(7),!!,"TRANSFUSION REQUEST in LAB TEST file (#60) must have an accession area",!,"assigned to your DIVISION.",!
  • Line Location: CK+4
Function Call: WRITE
  • Prompt: $C(7),!!,"There is no accession area for ",LRAA,!,"in the accession area file (#68)."
  • Line Location: CK+6
Function Call: WRITE
  • Prompt: !!,$C(7),"There is no abbreviation entered for ",LRO(68),!,"in the accession area file (#68)."
  • Line Location: CK+7

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