Routine: LRBLJC

Information

LRBLJC ;AVAMC/REG - COMPONENT DISPOSITION LIST ;2/18/93 09:10

Source file <LRBLJC.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"COMPONENT DISPOSITION BY DATE UNIT RECEIVED" Line Location: LRBLJC+3
Function Call: WRITE	Prompt: ! Line Location: LRBLJC+4
Function Call: READ	Formatting: ! Prompt: "Select ABO Group: " Variable: X Timeout: DTIME Line Location: ABO+0
Function Call: WRITE	Prompt: $C(7)," Enter A, B, AB or O" Line Location: ABO+0
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: !?11,LRD Line Location: D+0
Function Call: WRITE	Prompt: !?45,LRC Line Location: F+0
Function Call: WRITE	Prompt: ?65,$J(X,5) Line Location: F+0
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: !?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,!,LRM(1),?45,"ABO Group: ",LRABO Line Location: H+0
Function Call: WRITE	Prompt: !,$S(LRW="T":"Transfusions",1:"")," (Units received from ",LRSTR," to ",LRLST,")",!?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: !,LRE Line Location: H2+0