Routine: LRBLJTS1

Information

LRBLJTS1 ;AVAMC/REG - TRANSFUSION STATS ;3/3/93 22:49 ;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,T," patients given RBC components: ",R(1) Line Location: Q+2
Function Call: WRITE	Prompt: !,T," patients given non-RBC components: ",R(1) Line Location: Q+4
Function Call: WRITE	Prompt: !,T," cost of all components: ",$J(^TMP($J,"A",T,0),9,2) Line Location: Q+5
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: $E(L(1),1,20) Line Location: W+0
Function Call: WRITE	Prompt: ?21,T(2),?30,$E($P(V,"^",2),1,18),?49,$J(V(1),9,2),?60,$P(V,"^"),?75,$J(Z,4) Line Location: W+1
Function Call: WRITE	Prompt: !,"Transfusions by Treating Specialty/Physician (",LRSTR," - ",LRLST,")" Line Location: H+2
Function Call: WRITE	Prompt: !,"Patient transfused",?21,"Date",?30,"Physician",?53,"Cost",?60,"Unit ID",?74,"Count",!,LR("%") Line Location: HDR+0
Function Call: WRITE	Prompt: !!?20,"TREATING SPECIALTY: ",T Line Location: H1+0
Function Call: WRITE	Prompt: !,"Component: ",C(1),":",!?11 Line Location: H2+0
Function Call: WRITE	Prompt: "-" Line Location: H2+0