Routine: RMPRPIYJ

Information

RMPRPIYJ ;HINCIO/RVD-ISSUE FROM STOCK / CONT. ;9/18/02 07:39

Name	Comments	DBIA/ICR reference
QTY
DATE	;delivery date is set to today's date
SERV	;date of service
LI
LOT	;
REMA	;
LIST	;ENTRY POINT FOR STOCK ISSUE ROUTINES TO DISPLAY TRANSACTION DATA
DEA	;
POST	;
GGC	;
EXIT	;EXIT FOR STOCK ISSUES
INV1
SETARR(RMPR60)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Issue quantity exceeds on-hand (",RMITQTY,") for scanned item bar code!!",! Line Location: QTY+5
Function Call: WRITE	Prompt: !,"This field is mandatory!!!",! Line Location: SERV+5
Function Call: WRITE	Prompt: !,"Jumping not allowed" Line Location: LI+3
Function Call: WRITE	Prompt: $C(7),!?5,"Deleted..." Line Location: LI+4
Function Call: WRITE	Prompt: !,"Jumping not allowed" Line Location: LOT+5
Function Call: WRITE	Prompt: $C(7),!?5,"Deleted..." Line Location: LOT+6
Function Call: WRITE	Prompt: !,"Jumping not allowed" Line Location: REMA+5
Function Call: WRITE	Prompt: $C(7),!?5,"Deleted..." Line Location: REMA+6
Function Call: WRITE	Prompt: !!,$C(7),?50," Deleted..." Line Location: DEA+5
Function Call: WRITE	Prompt: !,"*** ERROR in API RMPRPIU6, ERROR = ",RMPRERR," !!!" Line Location: GGC+4
Function Call: WRITE	Prompt: !,"Posted to 2319..." Line Location: GGC+7