Routine: RMPRPIYR

Information

RMPRPIYR ;HINCIO/ODJ - PIP EDIT - PROMPTS ;3/8/01

Name	Comments	DBIA/ICR reference
OK(RMPRYN,RMPREXC)	;
OKX
PVEN(RMPRSTN,RMPRLCN,RMPRHCPC,RMPRITM,RMPR6,RMPR7,RMPREXC)	;
PVENL1
PVENL2
PVENP
PVENG
PVENX
PVENE()	;
PVENH

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J(RMPRLIN,2)," ",$E(RMPRS,4,5)_"/"_$E(RMPRS,6,7)_"/"_$E(RMPRS,2,3) Line Location: PVENL2+3
Function Call: WRITE	Prompt: ?11,$J(RMPR7("QUANTITY"),5,0) Line Location: PVENL2+4
Function Call: WRITE	Prompt: ?18,$J(RMPR7("VALUE")/RMPR7("QUANTITY"),8,2) Line Location: PVENL2+6
Function Call: WRITE	Prompt: ?26,$J(RMPR7("VALUE"),10,2) Line Location: PVENL2+8
Function Call: WRITE	Prompt: ?38,$E(RMPR6("VENDOR"),1,30) Line Location: PVENL2+12
Function Call: WRITE	Prompt: ?69,$E(RMPR7("LOCATION"),1,10) Line Location: PVENL2+13
Function Call: WRITE	Prompt: !,"Please select a current stock record" Line Location: PVENP+9
Function Call: WRITE	Prompt: !,"by entering a line number in range 1 - " Line Location: PVENP+10
Function Call: WRITE	Prompt: RMPRLIN Line Location: PVENP+11
Function Call: WRITE	Prompt: ! Line Location: PVENH+0
Function Call: WRITE	Prompt: !,"Select a current stock record...",! Line Location: PVENH+1
Function Call: WRITE	Prompt: ?3,"Date",?13,"Qty",?18,"Unit Cost",?31,"Value",?38,"Vendor" Line Location: PVENH+2
Function Call: WRITE	Prompt: ?69,"Location" Line Location: PVENH+3