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

Package: Lab Service

Routine: LRBLPD


Information

LRBLPD ;AVAMC/REG - BB PT INFO ;2/18/93 09:42 ;

Source Information

Source file <LRBLPD.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
LOOP
SET
ASK
N
O
END
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: LRBLPD+3
Function Call: WRITE
  • Prompt: !,"List all blood components "
  • Line Location: LRBLPD+6
Function Call: WRITE
  • Prompt: !,"List only total number of units for each component "
  • Line Location: LRBLPD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,"Total ",$S($D(LRF(A)):LRF(A),1:"?"),": ",LRT
  • Condition for execution: LRT
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: " on record for specified period.",!
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: ?21,$P(^LAB(61.3,A,0),"^")
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !?13,$J(B,2),?18,$P(LRG(B),"^",2)
  • Line Location: ASK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Select a NUMBER from 1 to ",A
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: ?18,$P(LRG(X),"^",2)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,$P(X,"^",4),?18,$E($P(M,"^"),1,30)
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?45,"(",X(7),"/",X(10),")"
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?54,$P(X,"^",6)_" "_$P(X,"^",7),?60,Y
  • Line Location: O+2
Function Call: WRITE
  • Prompt: !?6,^(E,0)
  • Line Location: O+3
Function Call: WRITE
  • Prompt: !,"TRANSFUSION SERVICE/BLOOD BANK REPORT from ",LRSTR," to ",LRLST,!,"PATIENT: ",LRP," ",SSN," ",$J(LRPABO,2)," ",LRPRH
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Components Transfused"
  • Condition for execution: LRJ
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+2
Info |  Source |  Entry Points |  Interaction Calls