Routine: LRBLQPR

Information

LRBLQPR ;AVAMC/REG - PRINT UNITS/COMPONENTS ;2/18/93 09:48 ;

Source file <LRBLQPR.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: @IOF,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH Line Location: QUE+1
Function Call: WRITE	Prompt: !,"No UNITS assigned/xmatched",! Line Location: QUE+3
Function Call: WRITE	Prompt: ! Line Location: QUE+4
Function Call: WRITE	Prompt: "No component requests",! Line Location: QUE+5
Function Call: READ	Variable: Q Timeout: A(2)?1P Line Location: N+2
Function Call: WRITE	Prompt: !,$J(B,2),")",?6,$P(X,"^"),?21,$E($P(M,"^"),1,19),?42,$P(X,"^",7)_" "_$P(X,"^",8),?49 Line Location: N+3
Function Call: WRITE	Prompt: Y,?69,$E(L,1,11) Line Location: N+3
Function Call: READ	Variable: Q Timeout: A(2)?1P Line Location: N+4
Function Call: WRITE	Prompt: !?2,^(E,0) Line Location: N+4
Function Call: WRITE	Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,27),?27,$J($P(X,"^",4),3),?33 Line Location: L+1
Function Call: WRITE	Prompt: Y,?47 Line Location: L+1
Function Call: WRITE	Prompt: Y,?47 Line Location: L+1
Function Call: READ	Formatting: ! Prompt: "^ TO STOP: " Variable: A(2) Timeout: DTIME Line Location: R+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: R+1
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE",!,LR("%") Line Location: H+0
Function Call: WRITE	Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH Line Location: H+1