Routine: RMPRPIYB

Information

RMPRPIYB ;HINCIO/ODJ - PIP Prompts - Select Existing Location ;3/8/01

Source file <RMPRPIYB.m>

Name	Comments	DBIA/ICR reference
LOCNM(RMPRSTN,RMPR5,RMPREXC)	;
STA
LOCNM1
LOCNMX
QM
QMX
QM1
QM1X
QM1H
QM2
LIKE(RMPRSTN,RMPRTXT,RMPREXC,RMPR5)	;
LIKEA0
LIKEA1
LIKEA
LIKEA2
LIKEA3
LIKEB
LIKEC
LIKEX
OK(RMPRYN,RMPREXC)	;
OKX
LOC1(RMPRSTN)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: STA Line Location: STA+7
Function Call: WRITE	Prompt: !,"Please enter a valid Location" Line Location: LOCNM1+9
Function Call: WRITE	Prompt: !,?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,5) Line Location: LIKEA3+1
Function Call: WRITE	Prompt: " "_RMPR5("NAME") Line Location: LIKEC+11