[Home] [Help]
631: * Returns:
632: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
633: * FND_API.G_RET_STS_ERROR if an error occurs
634: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
635: * POS_ERR_TYPE
636: */
637:
638: procedure process_supplier_request (
639: p_po_header_id IN number,
640: p_po_release_id IN number,
641: p_revision_num IN number,
642: p_po_change_requests IN pos_chg_rec_tbl,
643: x_online_report_id OUT NOCOPY number,
644: x_pos_errors OUT NOCOPY POS_ERR_TYPE,
645: p_chn_int_cont_num IN varchar2 default null,
646: p_chn_source IN varchar2 default null,
647: p_chn_requestor_username in varchar2 default null,
648: p_user_id IN number default null,
722: WHEN OTHERS THEN
723: if (sqlcode = '-54') then
724: l_err_msg_name_tbl := po_tbl_varchar30();
725: l_err_msg_text_tbl := po_tbl_varchar2000();
726: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
727: x_pos_errors.message_name.extend;
728: x_pos_errors.text_line.extend;
729: x_pos_errors.message_name(1) := null;
730: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_LOCKED_PO_ROW');
749: WHEN OTHERS THEN
750: if (sqlcode = '-54') then
751: l_err_msg_name_tbl := po_tbl_varchar30();
752: l_err_msg_text_tbl := po_tbl_varchar2000();
753: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
754: x_pos_errors.message_name.extend;
755: x_pos_errors.text_line.extend;
756: x_pos_errors.message_name(1) := null;
757: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_LOCKED_PO_ROW');
767:
768: if (p_last_upd_date <> l_last_upd_date) then
769: l_err_msg_name_tbl := po_tbl_varchar30();
770: l_err_msg_text_tbl := po_tbl_varchar2000();
771: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
772: x_pos_errors.message_name.extend;
773: x_pos_errors.text_line.extend;
774: x_pos_errors.message_name(1) := null;
775: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_MODIFIED_PO_ROW');
812:
813:
814: l_err_msg_name_tbl := po_tbl_varchar30();
815: l_err_msg_text_tbl := po_tbl_varchar2000();
816: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
817:
818:
819:
820: x_pos_errors.message_name.extend;
841: x_online_report_id := 0;
842: if (l_return_status <> FND_API.g_ret_sts_success) then
843: l_err_msg_name_tbl := po_tbl_varchar30();
844: l_err_msg_text_tbl := po_tbl_varchar2000();
845: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
846:
847:
848: x_pos_errors.message_name.extend;
849: x_pos_errors.text_line.extend;
1106: END IF;
1107: else
1108: l_err_msg_name_tbl := po_tbl_varchar30();
1109: l_err_msg_text_tbl := po_tbl_varchar2000();
1110: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
1111: x_pos_errors.message_name.extend;
1112: x_pos_errors.text_line.extend;
1113: x_pos_errors.message_name(1) := null;
1114: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_PO_ALL_NOT_RESPND');
1358: p_po_release_id IN number,
1359: p_revision_num IN number,
1360: p_po_change_requests IN OUT NOCOPY pos_chg_rec_tbl,
1361: x_online_report_id OUT NOCOPY number,
1362: x_pos_errors OUT NOCOPY pos_err_type,
1363: x_doc_check_error_msg OUT NOCOPY Doc_Check_Return_Type) is
1364:
1365: x_error_code varchar2(40);
1366: rec_cnt number :=0;
1755:
1756:
1757: l_err_msg_name_tbl := po_tbl_varchar30();
1758: l_err_msg_text_tbl := po_tbl_varchar2000();
1759: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
1760:
1761: if ( l_return_status = FND_API.G_RET_STS_SUCCESS AND
1762: l_sub_check_status = FND_API.G_RET_STS_ERROR) THEN
1763:
1835: p_po_release_id IN number,
1836: p_revision_num IN number,
1837: p_po_change_requests IN OUT NOCOPY pos_chg_rec_tbl,
1838: x_online_report_id OUT NOCOPY number,
1839: x_pos_errors OUT NOCOPY pos_err_type) is
1840:
1841: l_doc_check_error_msg Doc_Check_Return_Type := NULL;
1842: l_msg_data varchar2(2000) := NULL;
1843:
3161:
3162: procedure validate_shipment_cancel (
3163: p_po_header_id IN number,
3164: p_po_change_requests IN pos_chg_rec_tbl,
3165: x_pos_errors OUT NOCOPY POS_ERR_TYPE,
3166: x_ret_sts OUT NOCOPY varchar2
3167: ) IS
3168:
3169: l_po_change_requests pos_chg_rec_tbl := NULL;
3176: l_err_count := 0;
3177: l_po_change_requests := p_po_change_requests ;
3178: l_err_msg_name_tbl := po_tbl_varchar30();
3179: l_err_msg_text_tbl := po_tbl_varchar2000();
3180: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
3181: x_ret_sts := 'N';
3182: FOR j in 1..l_po_change_requests.count()
3183: LOOP
3184: if ( l_po_change_requests(j).action_type in ('CANCELLATION')) then --AND
3246:
3247: procedure validate_ship_inv_cancel (
3248: p_po_header_id IN number,
3249: p_po_change_requests IN pos_chg_rec_tbl,
3250: x_pos_errors OUT NOCOPY POS_ERR_TYPE,
3251: x_ret_sts OUT NOCOPY varchar2
3252: ) IS
3253:
3254: l_po_change_requests pos_chg_rec_tbl := NULL;
3263: l_err_count := 0;
3264: l_po_change_requests := p_po_change_requests ;
3265: l_err_msg_name_tbl := po_tbl_varchar30();
3266: l_err_msg_text_tbl := po_tbl_varchar2000();
3267: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
3268: FOR j in 1..l_po_change_requests.count()
3269: LOOP
3270: if ( l_po_change_requests(j).action_type in ('CANCELLATION') AND
3271: l_po_change_requests(j).request_level='SHIPMENT' ) then