[Home] [Help]
734: * Returns:
735: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
736: * FND_API.G_RET_STS_ERROR if an error occurs
737: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
738: * POS_ERR_TYPE
739: */
740:
741: procedure process_supplier_request (
742: p_po_header_id IN number,
743: p_po_release_id IN number,
744: p_revision_num IN number,
745: p_po_change_requests IN pos_chg_rec_tbl,
746: x_online_report_id OUT NOCOPY number,
747: x_pos_errors OUT NOCOPY POS_ERR_TYPE,
748: p_chn_int_cont_num IN varchar2 default null,
749: p_chn_source IN varchar2 default null,
750: p_chn_requestor_username in varchar2 default null,
751: p_user_id IN number default null,
825: WHEN OTHERS THEN
826: if (sqlcode = '-54') then
827: l_err_msg_name_tbl := po_tbl_varchar30();
828: l_err_msg_text_tbl := po_tbl_varchar2000();
829: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
830: x_pos_errors.message_name.extend;
831: x_pos_errors.text_line.extend;
832: x_pos_errors.message_name(1) := null;
833: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_LOCKED_PO_ROW');
852: WHEN OTHERS THEN
853: if (sqlcode = '-54') then
854: l_err_msg_name_tbl := po_tbl_varchar30();
855: l_err_msg_text_tbl := po_tbl_varchar2000();
856: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
857: x_pos_errors.message_name.extend;
858: x_pos_errors.text_line.extend;
859: x_pos_errors.message_name(1) := null;
860: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_LOCKED_PO_ROW');
870:
871: if (p_last_upd_date <> l_last_upd_date) then
872: l_err_msg_name_tbl := po_tbl_varchar30();
873: l_err_msg_text_tbl := po_tbl_varchar2000();
874: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
875: x_pos_errors.message_name.extend;
876: x_pos_errors.text_line.extend;
877: x_pos_errors.message_name(1) := null;
878: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_MODIFIED_PO_ROW');
916:
917:
918: l_err_msg_name_tbl := po_tbl_varchar30();
919: l_err_msg_text_tbl := po_tbl_varchar2000();
920: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
921:
922:
923:
924: x_pos_errors.message_name.extend;
945: x_online_report_id := 0;
946: if (l_return_status <> FND_API.g_ret_sts_success) then
947: l_err_msg_name_tbl := po_tbl_varchar30();
948: l_err_msg_text_tbl := po_tbl_varchar2000();
949: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
950:
951:
952: x_pos_errors.message_name.extend;
953: x_pos_errors.text_line.extend;
1219: END IF;
1220: else
1221: l_err_msg_name_tbl := po_tbl_varchar30();
1222: l_err_msg_text_tbl := po_tbl_varchar2000();
1223: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
1224: x_pos_errors.message_name.extend;
1225: x_pos_errors.text_line.extend;
1226: x_pos_errors.message_name(1) := null;
1227: x_pos_errors.text_line(1) := fnd_message.get_string('POS', 'POS_PO_ALL_NOT_RESPND');
1472: p_po_release_id IN number,
1473: p_revision_num IN number,
1474: p_po_change_requests IN OUT NOCOPY pos_chg_rec_tbl,
1475: x_online_report_id OUT NOCOPY number,
1476: x_pos_errors OUT NOCOPY pos_err_type,
1477: x_doc_check_error_msg OUT NOCOPY Doc_Check_Return_Type) is
1478:
1479: x_error_code varchar2(40);
1480: rec_cnt number :=0;
1903:
1904:
1905: l_err_msg_name_tbl := po_tbl_varchar30();
1906: l_err_msg_text_tbl := po_tbl_varchar2000();
1907: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
1908:
1909: if ( l_return_status = FND_API.G_RET_STS_SUCCESS AND
1910: l_sub_check_status = FND_API.G_RET_STS_ERROR) THEN
1911:
1982: p_po_release_id IN number,
1983: p_revision_num IN number,
1984: p_po_change_requests IN OUT NOCOPY pos_chg_rec_tbl,
1985: x_online_report_id OUT NOCOPY number,
1986: x_pos_errors OUT NOCOPY pos_err_type) is
1987:
1988: l_doc_check_error_msg Doc_Check_Return_Type := NULL;
1989: l_msg_data varchar2(2000) := NULL;
1990:
3536: procedure validate_shipment_cancel (
3537: p_po_header_id IN number,
3538: p_po_release_id IN number,
3539: p_po_change_requests IN pos_chg_rec_tbl,
3540: x_pos_errors OUT NOCOPY POS_ERR_TYPE,
3541: x_ret_sts OUT NOCOPY varchar2
3542: ) IS
3543:
3544: l_po_change_requests pos_chg_rec_tbl := NULL;
3551: l_err_count := 0;
3552: l_po_change_requests := p_po_change_requests ;
3553: l_err_msg_name_tbl := po_tbl_varchar30();
3554: l_err_msg_text_tbl := po_tbl_varchar2000();
3555: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
3556: x_ret_sts := 'N';
3557: FOR j in 1..l_po_change_requests.count()
3558: LOOP
3559: if ( l_po_change_requests(j).action_type in ('CANCELLATION')) then --AND
3647:
3648: procedure validate_ship_inv_cancel (
3649: p_po_header_id IN number,
3650: p_po_change_requests IN pos_chg_rec_tbl,
3651: x_pos_errors OUT NOCOPY POS_ERR_TYPE,
3652: x_ret_sts OUT NOCOPY varchar2
3653: ) IS
3654:
3655: l_po_change_requests pos_chg_rec_tbl := NULL;
3664: l_err_count := 0;
3665: l_po_change_requests := p_po_change_requests ;
3666: l_err_msg_name_tbl := po_tbl_varchar30();
3667: l_err_msg_text_tbl := po_tbl_varchar2000();
3668: x_pos_errors := POS_ERR_TYPE( l_err_msg_name_tbl,l_err_msg_text_tbl);
3669: FOR j in 1..l_po_change_requests.count()
3670: LOOP
3671: if ( l_po_change_requests(j).action_type in ('CANCELLATION') AND
3672: l_po_change_requests(j).request_level='SHIPMENT' ) then
3743: /*Added for bug#14155598*/
3744: PROCEDURE IS_ASN_EXIST(p_po_header_id IN NUMBER,
3745: p_po_release_id IN NUMBER,
3746: p_po_change_requests IN POS_CHG_REC_TBL,
3747: x_pos_errors OUT nocopy POS_ERR_TYPE,
3748: x_ret_sts OUT nocopy VARCHAR2)
3749: IS
3750: l_po_change_requests POS_CHG_REC_TBL := NULL;
3751: l_count_asn NUMBER;
3762: l_err_count := 0;
3763: l_po_change_requests := p_po_change_requests;
3764: l_err_msg_name_tbl := Po_tbl_varchar30();
3765: l_err_msg_text_tbl := Po_tbl_varchar2000();
3766: x_pos_errors := Pos_err_type(l_err_msg_name_tbl, l_err_msg_text_tbl);
3767: x_ret_sts := 'N';
3768:
3769: IF g_fnd_debug = 'Y' THEN
3770: IF ( fnd_log.g_current_runtime_level <= fnd_log.level_procedure ) THEN