Routine: LRLABEL3

Information

LRLABEL3 ;SLC/RWF - PRINTS MEDLAB LABELS ;2/6/91 08:06

Name	Comments	DBIA/ICR reference
1
T

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: T+1
Function Call: WRITE	Prompt: ?(J*T),X Line Location: T+2
Function Call: WRITE	Prompt: " ",LRINFW Condition for execution: $L(LRINFW) Line Location: T+2
Function Call: WRITE	Prompt: ! Line Location: T+4
Function Call: WRITE	Prompt: ?(J*T),LRACC,$J("W:"_LRLLOC_B,X) Line Location: T+4
Function Call: WRITE	Prompt: ! Line Location: T+5
Function Call: WRITE	Prompt: ?(J*T),SSN,$J(LRDAT,X) Line Location: T+5
Function Call: WRITE	Prompt: ! Line Location: T+6
Function Call: WRITE	Prompt: ?(J*T),LRPREF Condition for execution: J1 Line Location: T+6
Function Call: WRITE	Prompt: ?(JT+6),LRTOP,?(JT+15)," Order:",LRCE Line Location: T+6
Function Call: WRITE	Prompt: !,LRTXT Line Location: T+7
Function Call: WRITE	Prompt: ! Line Location: T+8
Function Call: WRITE	Prompt: ?(J*T1+T),LRACC Line Location: T+8
Function Call: WRITE	Prompt: ! Line Location: T+9
Function Call: WRITE	Prompt: ?(J*T1+T),LRDAT Line Location: T+9
Function Call: WRITE	Prompt: !! Line Location: T+10