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

Package: Lab Service

Routine: LRBLPCS


Information

LRBLPCS ;AVAMC/REG - COMPONENT SELECTION FOR PATIENTS ;8/4/95 06:32 ;

Source Information

Source file <LRBLPCS.m>

Entry Points

Name Comments DBIA/ICR reference
P
EN1
OP
EN3
G
H
A
EN2
L
M
N
DEL
END
EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: LRBLPCS+5
Function Call: WRITE
  • Prompt: !?20,LRAA(4),!!?15,"Selection of blood components for a patient"
  • Line Location: LRBLPCS+6
Function Call: WRITE
  • Prompt: !,"Display instructions for component selected "
  • Line Location: LRBLPCS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+2
Function Call: WRITE
  • Prompt: LRP," ",SSN(1),?42,$J(LRPABO,2),?45,LRPRH
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"No units currently assigned/xmatched"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!,"Is patient Pre-op "
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: $C(7),!,"You must answer 'YES' or 'NO' to enter component request.",!,"Do you want to enter component request at this time "
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+6
Function Call: WRITE
  • Prompt: $C(7),!,"No DATA NAME in file 60 for ",$P(X,"^")
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !?10,"No ",$P(S(A,B),"^",2)," results "
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !?10,$P(S(A,B),"^",3)," Last ",$P(S(A,B),"^",2),": ",$P(S(A,B),"^")," ",$P(S(A,B),"^",4)," ",$P(S(A,B),"^",5)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,23),?24,$J($P(X,"^",4),3),?30
  • Line Location: L+2
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+2
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+2
Function Call: WRITE
  • Prompt: Y,?48
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,$J(B,2),")",?5,$P(X,"^"),?20,$E($P(M,"^"),1,21),?42,$J($P(X,"^",7),2),?45,$P(X,"^",8),?49
  • Line Location: N+4
Function Call: WRITE
  • Prompt: Y,?67,L
  • Line Location: N+4
Function Call: WRITE
  • Prompt: !,"FOR TRANSFUSION REQUESTS: Display instructions for components "
  • Line Location: EN+1
Info |  Source |  Entry Points |  Interaction Calls