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

Package: Lab Service

Routine: LRBLPC


Information

LRBLPC ;AVAMC/REG - TRANSFUSIONS/HEM RESULTS ;2/18/93 09:42 ;

Source Information

Source file <LRBLPC.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
A
WRT
W
P
S
T
H
G
END
OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?14,"Print transfusions & hematology data for a patient"
  • Line Location: LRBLPC+3
Function Call: WRITE
  • Prompt: $C(7),!,"BLOOD or PERIPHERAL BLOOD must be an entry in TOPOGRAPHY file (#61)",!
  • Line Location: LRBLPC+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have tests to print entered in the",!,"'Tests for inclusion in transfusion report option' in",!,"Blood bank supervisor menu",!
  • Line Location: LRBLPC+6
Function Call: WRITE
  • Prompt: !,"Choice: ",LRA
  • Line Location: LRBLPC+10
Function Call: WRITE
  • Prompt: !,T
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?15,$E($P(^LAB(66,+Q,0),"^"),1,25),$S($P(Q,"^",6):"("_$P(Q,"^",6)_")",1:"")
  • Condition for execution: Q
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !?32
  • Condition for execution: $X>(IOM-9)
  • Line Location: P+3
Function Call: WRITE
  • Prompt: ?32+(8*X(1))
  • Line Location: P+3
Function Call: WRITE
  • Prompt: $J(^(B),5)
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !,"TRANSFUSION/HEMATOLOGY RESULTS",!,W(2),?31,W(10),?45,"DOB: ",W(4),!,"Location:",?12,W(5),!,"Mo/Da/Yr TIME",?15,"Blood component"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?32
  • Condition for execution: $X>(IOM-8)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?32+(8*X(1)),$P(LRT(X),"^",7)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: $C(7),!!?10,"Cannot use this option until your last report is completed.",!,"If the report was queued and never printed it must be removed from the"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !,"list of queued reports (see your LIM). Also have your blood bank supervisor",!,"delete your patient list for transfusion & hematology data."
  • Line Location: OUT+1
Info |  Source |  Entry Points |  Interaction Calls