Routine: RMPRPIYY

Information

RMPRPIYY ;HINCIO/ODJ - PIP EDIT - PROMPTS AND BARCODE ;3/8/01

Name	Comments	DBIA/ICR reference
OK(RMPRYN,RMPREXC)	;
OKX
PORD(RMPRSTN,RMPRHCPC,RMPRITM,RMPR41,RMPREXC)	;
PORDL1
PORDL1A
PORDL1B
PORDL2
PORDP
PORDG
PORDX
PORDE()	;
PORDH
NLAB
SELP	;
RCNX	;K RMPR6,RMPRTVAL,RMPRQTY,RMPRUCST,RMPRBCP,RMPRQ,RMPRIOP,RMPRNLAB
RCX

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J(RMPRLIN,2)," ",$E(RMPRS,4,5)_"/"_$E(RMPRS,6,7)_"/"_$E(RMPRS,2,3) Line Location: PORDL2+3
Function Call: WRITE	Prompt: ?11,$J(RMPR41("ORDER QTY"),5,0) Line Location: PORDL2+4
Function Call: WRITE	Prompt: ?18,$E(RMPR41("VENDOR"),1,30) Line Location: PORDL2+5
Function Call: WRITE	Prompt: ?49,$J(RMPR41("RECEIVE QTY"),5,0) Line Location: PORDL2+7
Function Call: WRITE	Prompt: " ",$E(RMPRS,4,5)_"/"_$E(RMPRS,6,7)_"/"_$E(RMPRS,2,3) Line Location: PORDL2+9
Function Call: WRITE	Prompt: !,"Please select a stock order record" Line Location: PORDP+9
Function Call: WRITE	Prompt: !,"by entering a line number in range 1 - " Line Location: PORDP+10
Function Call: WRITE	Prompt: RMPRLIN Line Location: PORDP+11
Function Call: WRITE	Prompt: ! Line Location: PORDH+0
Function Call: WRITE	Prompt: !,"Select a current stock order record, or ^ if not receiving against an order.",! Line Location: PORDH+1
Function Call: WRITE	Prompt: ?3,"Date",?13,"Qty",?18,"Vendor",?49,"Received" Line Location: PORDH+2
Function Call: WRITE	Prompt: ! Line Location: NLAB+1