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

Package: Lab Service

Routine: LRBLJUT


Information

LRBLJUT ;AVAMC/REG - BB INVENTORY FINAL DISPOSITION ;3/9/94 14:02 ;

Source Information

Source file <LRBLJUT.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
A
SET
H
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Units of RED BLOOD CELLS transfused for a treating specialty"
  • Line Location: LRBLJUT+4
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS: ",LRC,?31,"TOTAL UNITS: ",LRY,!,"AVERAGE UNITS/PATIENT: ",$S(LRC:$J(LRY/LRC,5,2),1:"")
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,LRP,?31,SSN,?50,$J(LRX,4)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: @IOF,!,Y,?23,"BLOOD BANK ",LRQ(1),?(IOM-10),"Pg:",LRQ
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,"Treating ",$S(LRT[",":"Specialties",1:"Specialty"),": ",LRT,!,"Units RBC transfused from ",LRSTR," to ",LRLST,!,"Patient",?31,"SSN",?50,"# Units",!,LR("%")
  • Line Location: H+1
Info |  Source |  Entry Points |  Interaction Calls