Routine: LRBLPQA

Information

LRBLPQA ;AVAMC/REG - TRANSFUSION REQUEST DATA ;2/18/93 09:45 ;

Source file <LRBLPQA.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20 Line Location: LRBLPQA+3
Function Call: READ	Formatting: !!?3 Prompt: "(A)ll components or (S)ingle component: " Variable: X Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!,"Enter 'A' for all blood components or 'S' for a single component" Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!,"There are no entries to print",!! Line Location: B+0
Function Call: WRITE	Prompt: G Line Location: QUE+0
Function Call: WRITE	Prompt: D:$Y>(IOSL-10) Line Location: W+0
Function Call: WRITE	Prompt: !!?20,LRC(1) Line Location: W+0
Function Call: WRITE	Prompt: !!,Y," ",$P(LRB,"^",2)," SSN:",SSN Line Location: W1+0
Function Call: WRITE	Prompt: !,LR Line Location: W1+1
Function Call: WRITE	Prompt: !,"DONE",! Line Location: EN+3
Function Call: WRITE	Prompt: "." Line Location: K+0
Function Call: WRITE	Prompt: !,"BLOOD BANK",!?20 Line Location: H+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !!?20,LRC(1) Line Location: H1+0
Function Call: WRITE	Prompt: ! Line Location: H2+0
Function Call: WRITE	Prompt: Y," ",$P(LRB,"^",2)," ",SSN Line Location: H2+0
Function Call: WRITE	Prompt: "Inappropriate transfusion requests report" Line Location: I+0