Routine: LRBLJB

Information

LRBLJB ;AVAMC/REG - AUTOLOGOUS UNIT DISPOSITION LIST ;2/18/93 09:08

Source file <LRBLJB.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"LIST OF AUTOLOGOUS UNIT DISPOSITIONS BY DATE UNIT RECEIVED" Line Location: LRBLJB+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Select (T)ransfusions or (A)ll other dispositions: " Line Location: ASK+0
Function Call: WRITE	Prompt: !! Line Location: QUE+4
Function Call: WRITE	Prompt: !?3,LRA,?7," = ",LRD(LRA),?50,"(",$J(LRD(LRA,1),3)," units)" Line Location: QUE+4
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: W+0
Function Call: WRITE	Prompt: !!,LRP," ",SSN Line Location: W+0
Function Call: WRITE	Prompt: !?3,LRD,?11,$S(LRW="T":$P(^LRD(65,LRI,6),"^",3),1:LRX),?45,LRE,?65,$J(X,5) Line Location: Y+1
Function Call: WRITE	Prompt: @IOF,Y," ",LRQ(1),?(IOM-10),"Pg: ",LRQ Line Location: H+0
Function Call: WRITE	Prompt: !,"Autologous ",$S(LRW="T":"Transfusions",1:"")," (Units received from ",LRSTR," to ",LRLST,")",!,"Component",?11,$S(LRW="T":"Treating Specialty",1:"Disposition"),?45,"Unit ID",?60,"Days in inventory",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LRP," ",SSN Line Location: H1+0
Function Call: WRITE	Prompt: !!,"Enter 'T' for a list of autologous transfusions or",!,"enter 'A' for a list of all dispositions except transfusions",!,"for autologous units." Line Location: HLP+0