1: PACKAGE BODY ICX_REQ_SUBMIT as
2: /* $Header: ICXRQSMB.pls 115.5 99/07/17 03:23:22 porting sh $ */
3:
4: -------------------------------------------------------------
5: procedure storeerror(v_cart_id IN NUMBER, v_message IN VARCHAR2,v_distribution_num IN NUMBER default NULL,v_cart_line_id IN NUMBER default NULL) is
498: if (user_action = 'PO') then
499: open get_req_num(v_cart_id);
500: fetch get_req_num into v_req_num;
501: close get_req_num;
502: FND_MESSAGE.SET_NAME('ICX','ICX_REQ_SUBMITTED');
503: FND_MESSAGE.SET_TOKEN('REQ_TOKEN',v_req_num);
504: htp.p('' || FND_MESSAGE.GET || '
');
505:
506: display_read_only_my_order(v_cart_id,v_emergency);
2377: icx_util.error_page_print;
2378: return;
2379: end;
2380:
2381: end ICX_REQ_SUBMIT;