Routine: LRPHLIS1

Information

LRPHLIS1 ;SLC/CJS - PRINT COLLECTION LIST (CONT.) ; 3/28/89 19:39

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,$S(LRRB=0:"",1:LRRB),?15,$E(PNM,1,28) Line Location: L6+1
Function Call: WRITE	Prompt: " INF WARN: ",LRINFW Condition for execution: $L(LRINFW) Line Location: L6+1
Function Call: WRITE	Prompt: ?45,SSN,?60,"Order #: ",LRORD Line Location: L6+1
Function Call: WRITE	Prompt: !,?21,$E($P(^LAB(60,+LRTV,0),U),1,20) Line Location: L7+0
Function Call: WRITE	Prompt: ?42,$J(LRVOL,6,1),"ML" Condition for execution: LRVOL>0 Line Location: L7+0
Function Call: WRITE	Prompt: ?52,LRTOP,?65,LRACC Line Location: L7+1
Function Call: WRITE	Prompt: !,?65,$J(LRTVOL,6,1),"ML T" Condition for execution: LRTVOL>0 Line Location: L7+1
Function Call: WRITE	Prompt: @IOF,!!,?34,"COLLECTION LIST ",LRDT0,!,?34,N,$S(N=1:"ST",N=2:"ND",N=3:"RD",1:"TH")," PRINTING" Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"Ward",!,?5,"Bed",?15,"Name",?45,"SSN",?65,"Accession",!,LRLLOC Line Location: HEAD+1
Function Call: WRITE	Prompt: !!?5,$S(LRRB=0:"",1:LRRB),?15,$E(PNM,1,28) Line Location: REM+1
Function Call: WRITE	Prompt: " PT INFO : ",LRINFW Condition for execution: $L(LRINFW) Line Location: REM+1
Function Call: WRITE	Prompt: ?45,SSN,?60,"Order #: ",LRORD,! Line Location: REM+1