Routine: RMPRPIY2

Information

RMPRPIY2 ;HINCIO/ODJ - PIP Data Entry - Location Prompt ;3/8/01

Name	Comments	DBIA/ICR reference
LOCNM(RMPRSTN,RMPR5,RMPREXC)	;
LOCNM1
LOCNMA
LOCNMX
ADDNM(RMPR5,RMPRYN,RMPREXC)	;
ADDNMX
ADDR(RMPR5,RMPREXC)	;
ADDRX
QM
QMX
QQM
QM1
QM1X
QM1H
QM2H
QQM1
QM2
QM2A
QM2B
QM2X
LIKE(RMPRSTN,RMPRTXT,RMPREXC,RMPR5)	;
LIKEA1
LIKEA
LIKEA2
LIKEA3
LIKEB
LIKEX

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Location name must be at least 3 characters long" Line Location: LOCNM1+9
Function Call: WRITE	Prompt: " You may enter a new PROS ITEM LOCATION, if you wish" Line Location: QM1H+1
Function Call: WRITE	Prompt: !," Answer must be 3-30 characters in length." Line Location: QM1H+2
Function Call: WRITE	Prompt: !," You may enter a new PROS ITEM LOCATION, if you wish" Line Location: QM2H+0
Function Call: WRITE	Prompt: !," Answer must be 3-30 characters in length." Line Location: QM2H+1
Function Call: WRITE	Prompt: !," You may enter a new PROS ITEM LOCATION, if you wish" Line Location: QQM1+0
Function Call: WRITE	Prompt: !," This is a location of an item or stock being tracked for inventory." Line Location: QQM1+1
Function Call: WRITE	Prompt: !?3,"Choose from:" Line Location: QM2+5
Function Call: WRITE	Prompt: !?3,$QS(RMPRGBL,4) Line Location: QM2A+5
Function Call: WRITE	Prompt: ! Line Location: QM2X+0
Function Call: WRITE	Prompt: !?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,4) Line Location: LIKEA3+1
Function Call: WRITE	Prompt: " ",RMPR5("NAME") Line Location: LIKEB+12