7: ---------------------------------------------------------------------------
8:
9: -- The module base for this package.
10: D_PACKAGE_BASE CONSTANT VARCHAR2(50) :=
11: PO_LOG.get_package_base('PO_MULTI_MOD_VALIDATIONS');
12:
13: -- The module base for the subprogram.
14: D_validate_multi_mod CONSTANT VARCHAR2(100) :=
15: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_multi_mod');
11: PO_LOG.get_package_base('PO_MULTI_MOD_VALIDATIONS');
12:
13: -- The module base for the subprogram.
14: D_validate_multi_mod CONSTANT VARCHAR2(100) :=
15: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_multi_mod');
16:
17: -- The module base for the subprogram.
18: D_validate_set CONSTANT VARCHAR2(100) :=
19: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_set');
15: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_multi_mod');
16:
17: -- The module base for the subprogram.
18: D_validate_set CONSTANT VARCHAR2(100) :=
19: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_set');
20:
21: D_atleast_one_doc_selected CONSTANT VARCHAR2(100) :=
22: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'atleast_one_doc_selected');
23:
18: D_validate_set CONSTANT VARCHAR2(100) :=
19: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_set');
20:
21: D_atleast_one_doc_selected CONSTANT VARCHAR2(100) :=
22: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'atleast_one_doc_selected');
23:
24: D_clause_change_valid CONSTANT VARCHAR2(100) :=
25: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'clause_change_valid');
26:
21: D_atleast_one_doc_selected CONSTANT VARCHAR2(100) :=
22: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'atleast_one_doc_selected');
23:
24: D_clause_change_valid CONSTANT VARCHAR2(100) :=
25: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'clause_change_valid');
26:
27: D_exemption_reason_given CONSTANT VARCHAR2(100) :=
28: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'exemption_reason_given');
29:
24: D_clause_change_valid CONSTANT VARCHAR2(100) :=
25: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'clause_change_valid');
26:
27: D_exemption_reason_given CONSTANT VARCHAR2(100) :=
28: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'exemption_reason_given');
29:
30: D_new_vendor_contact_provided CONSTANT VARCHAR2(100) :=
31: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_contact_provided');
32:
27: D_exemption_reason_given CONSTANT VARCHAR2(100) :=
28: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'exemption_reason_given');
29:
30: D_new_vendor_contact_provided CONSTANT VARCHAR2(100) :=
31: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_contact_provided');
32:
33: D_acceptance_due_date_valid CONSTANT VARCHAR2(100) :=
34: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'acceptance_due_date_valid');
35:
30: D_new_vendor_contact_provided CONSTANT VARCHAR2(100) :=
31: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_contact_provided');
32:
33: D_acceptance_due_date_valid CONSTANT VARCHAR2(100) :=
34: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'acceptance_due_date_valid');
35:
36: D_no_of_copies_ge_zero CONSTANT VARCHAR2(100) :=
37: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'no_of_copies_ge_zero');
38:
33: D_acceptance_due_date_valid CONSTANT VARCHAR2(100) :=
34: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'acceptance_due_date_valid');
35:
36: D_no_of_copies_ge_zero CONSTANT VARCHAR2(100) :=
37: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'no_of_copies_ge_zero');
38:
39: D_vendor_name_chg_valid CONSTANT VARCHAR2(100) :=
40: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'vendor_name_chg_valid');
41:
36: D_no_of_copies_ge_zero CONSTANT VARCHAR2(100) :=
37: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'no_of_copies_ge_zero');
38:
39: D_vendor_name_chg_valid CONSTANT VARCHAR2(100) :=
40: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'vendor_name_chg_valid');
41:
42: D_new_vendor_on_hold CONSTANT VARCHAR2(100) :=
43: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_on_hold');
44:
39: D_vendor_name_chg_valid CONSTANT VARCHAR2(100) :=
40: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'vendor_name_chg_valid');
41:
42: D_new_vendor_on_hold CONSTANT VARCHAR2(100) :=
43: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_on_hold');
44:
45: D_vendor_chg_valid CONSTANT VARCHAR2(100) :=
46: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'vendor_chg_valid');
47:
42: D_new_vendor_on_hold CONSTANT VARCHAR2(100) :=
43: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_on_hold');
44:
45: D_vendor_chg_valid CONSTANT VARCHAR2(100) :=
46: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'vendor_chg_valid');
47:
48: D_atleast_one_change_done CONSTANT VARCHAR2(100) :=
49: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'atleast_one_change_done');
50:
45: D_vendor_chg_valid CONSTANT VARCHAR2(100) :=
46: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'vendor_chg_valid');
47:
48: D_atleast_one_change_done CONSTANT VARCHAR2(100) :=
49: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'atleast_one_change_done');
50:
51: D_new_vendor_site_provided CONSTANT VARCHAR2(100) :=
52: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_site_provided');
53:
48: D_atleast_one_change_done CONSTANT VARCHAR2(100) :=
49: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'atleast_one_change_done');
50:
51: D_new_vendor_site_provided CONSTANT VARCHAR2(100) :=
52: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_site_provided');
53:
54: D_new_vendor_site_CCR_valid CONSTANT VARCHAR2(100) :=
55: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_site_CCR_valid');
56:
51: D_new_vendor_site_provided CONSTANT VARCHAR2(100) :=
52: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_site_provided');
53:
54: D_new_vendor_site_CCR_valid CONSTANT VARCHAR2(100) :=
55: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_site_CCR_valid');
56:
57: D_generate_idv_exceptions CONSTANT VARCHAR2(100) :=
58: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_idv_exceptions');
59:
54: D_new_vendor_site_CCR_valid CONSTANT VARCHAR2(100) :=
55: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'new_vendor_site_CCR_valid');
56:
57: D_generate_idv_exceptions CONSTANT VARCHAR2(100) :=
58: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_idv_exceptions');
59:
60: D_generate_award_exceptions CONSTANT VARCHAR2(100) :=
61: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_award_exceptions');
62:
57: D_generate_idv_exceptions CONSTANT VARCHAR2(100) :=
58: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_idv_exceptions');
59:
60: D_generate_award_exceptions CONSTANT VARCHAR2(100) :=
61: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_award_exceptions');
62:
63: D_generate_receipts_exceptions CONSTANT VARCHAR2(100) :=
64: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_receipts_exceptions');
65:
60: D_generate_award_exceptions CONSTANT VARCHAR2(100) :=
61: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_award_exceptions');
62:
63: D_generate_receipts_exceptions CONSTANT VARCHAR2(100) :=
64: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_receipts_exceptions');
65:
66: D_generate_invoice_exceptions CONSTANT VARCHAR2(100) :=
67: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_invoice_exceptions');
68:
63: D_generate_receipts_exceptions CONSTANT VARCHAR2(100) :=
64: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_receipts_exceptions');
65:
66: D_generate_invoice_exceptions CONSTANT VARCHAR2(100) :=
67: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_invoice_exceptions');
68:
69: D_has_address_changed CONSTANT VARCHAR2(100) :=
70: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_address_changed');
71:
66: D_generate_invoice_exceptions CONSTANT VARCHAR2(100) :=
67: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_invoice_exceptions');
68:
69: D_has_address_changed CONSTANT VARCHAR2(100) :=
70: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_address_changed');
71:
72: D_has_clause_changed CONSTANT VARCHAR2(100) :=
73: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_clause_changed');
74:
69: D_has_address_changed CONSTANT VARCHAR2(100) :=
70: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_address_changed');
71:
72: D_has_clause_changed CONSTANT VARCHAR2(100) :=
73: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_clause_changed');
74:
75: D_has_vendor_changed CONSTANT VARCHAR2(100) :=
76: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_vendor_changed');
77:
72: D_has_clause_changed CONSTANT VARCHAR2(100) :=
73: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_clause_changed');
74:
75: D_has_vendor_changed CONSTANT VARCHAR2(100) :=
76: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_vendor_changed');
77:
78: D_unpaid_invoices_exists CONSTANT VARCHAR2(100) :=
79: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unpaid_invoices_exists');
80:
75: D_has_vendor_changed CONSTANT VARCHAR2(100) :=
76: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'has_vendor_changed');
77:
78: D_unpaid_invoices_exists CONSTANT VARCHAR2(100) :=
79: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unpaid_invoices_exists');
80:
81: D_unval_invoices_exists CONSTANT VARCHAR2(100) :=
82: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unval_invoices_exists');
83:
78: D_unpaid_invoices_exists CONSTANT VARCHAR2(100) :=
79: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unpaid_invoices_exists');
80:
81: D_unval_invoices_exists CONSTANT VARCHAR2(100) :=
82: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unval_invoices_exists');
83:
84: D_check_match_exists CONSTANT VARCHAR2(100) :=
85: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'check_match_exists');
86:
81: D_unval_invoices_exists CONSTANT VARCHAR2(100) :=
82: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unval_invoices_exists');
83:
84: D_check_match_exists CONSTANT VARCHAR2(100) :=
85: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'check_match_exists');
86:
87: D_get_invoice_id CONSTANT VARCHAR2(100) :=
88: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'get_invoice_id');
89:
84: D_check_match_exists CONSTANT VARCHAR2(100) :=
85: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'check_match_exists');
86:
87: D_get_invoice_id CONSTANT VARCHAR2(100) :=
88: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'get_invoice_id');
89:
90: D_pending_rcv_trx_exists CONSTANT VARCHAR2(100) :=
91: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'pending_rcv_trx_exists');
92:
87: D_get_invoice_id CONSTANT VARCHAR2(100) :=
88: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'get_invoice_id');
89:
90: D_pending_rcv_trx_exists CONSTANT VARCHAR2(100) :=
91: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'pending_rcv_trx_exists');
92:
93: D_shared_rcpt_docs_not_inc CONSTANT VARCHAR2(100) :=
94: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'shared_rcpt_docs_not_inc');
95:
90: D_pending_rcv_trx_exists CONSTANT VARCHAR2(100) :=
91: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'pending_rcv_trx_exists');
92:
93: D_shared_rcpt_docs_not_inc CONSTANT VARCHAR2(100) :=
94: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'shared_rcpt_docs_not_inc');
95:
96: D_unmtch_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
97: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unmtch_inv_for_vndr_exists');
98:
93: D_shared_rcpt_docs_not_inc CONSTANT VARCHAR2(100) :=
94: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'shared_rcpt_docs_not_inc');
95:
96: D_unmtch_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
97: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unmtch_inv_for_vndr_exists');
98:
99: D_prepd_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
100: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'prepd_inv_for_vndr_exists');
101:
96: D_unmtch_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
97: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'unmtch_inv_for_vndr_exists');
98:
99: D_prepd_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
100: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'prepd_inv_for_vndr_exists');
101:
102: D_partpd_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
103: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'partpd_inv_for_vndr_exists');
104:
99: D_prepd_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
100: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'prepd_inv_for_vndr_exists');
101:
102: D_partpd_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
103: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'partpd_inv_for_vndr_exists');
104:
105: D_set_validation_status CONSTANT VARCHAR2(100) :=
106: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'set_validation_status');
107:
102: D_partpd_inv_for_vndr_exists CONSTANT VARCHAR2(100) :=
103: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'partpd_inv_for_vndr_exists');
104:
105: D_set_validation_status CONSTANT VARCHAR2(100) :=
106: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'set_validation_status');
107:
108: D_update_doc_status CONSTANT VARCHAR2(100) :=
109: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'update_doc_status');
110:
105: D_set_validation_status CONSTANT VARCHAR2(100) :=
106: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'set_validation_status');
107:
108: D_update_doc_status CONSTANT VARCHAR2(100) :=
109: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'update_doc_status');
110:
111: D_generate_supp_chg_exceptions CONSTANT VARCHAR2(100) :=
112: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_supp_chg_exceptions');
113:
108: D_update_doc_status CONSTANT VARCHAR2(100) :=
109: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'update_doc_status');
110:
111: D_generate_supp_chg_exceptions CONSTANT VARCHAR2(100) :=
112: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_supp_chg_exceptions');
113:
114: D_uda_addresses_valid CONSTANT VARCHAR2(100) :=
115: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'uda_addresses_valid');
116:
111: D_generate_supp_chg_exceptions CONSTANT VARCHAR2(100) :=
112: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_supp_chg_exceptions');
113:
114: D_uda_addresses_valid CONSTANT VARCHAR2(100) :=
115: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'uda_addresses_valid');
116:
117: D_contract_officer_provided CONSTANT VARCHAR2(100) :=
118: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'contract_officer_provided');
119:
114: D_uda_addresses_valid CONSTANT VARCHAR2(100) :=
115: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'uda_addresses_valid');
116:
117: D_contract_officer_provided CONSTANT VARCHAR2(100) :=
118: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'contract_officer_provided');
119:
120: D_header_lock_compatible CONSTANT VARCHAR2(100) :=
121: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'header_lock_compatible');
122:
117: D_contract_officer_provided CONSTANT VARCHAR2(100) :=
118: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'contract_officer_provided');
119:
120: D_header_lock_compatible CONSTANT VARCHAR2(100) :=
121: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'header_lock_compatible');
122:
123: D_address_lock_compatible CONSTANT VARCHAR2(100) :=
124: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'address_lock_compatible');
125:
120: D_header_lock_compatible CONSTANT VARCHAR2(100) :=
121: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'header_lock_compatible');
122:
123: D_address_lock_compatible CONSTANT VARCHAR2(100) :=
124: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'address_lock_compatible');
125:
126: D_validate_open_mod CONSTANT VARCHAR2(100) :=
127: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_open_mod');
128:
123: D_address_lock_compatible CONSTANT VARCHAR2(100) :=
124: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'address_lock_compatible');
125:
126: D_validate_open_mod CONSTANT VARCHAR2(100) :=
127: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_open_mod');
128:
129: D_generate_project_exceptions CONSTANT VARCHAR2(100) :=
130: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_project_exceptions');
131:
126: D_validate_open_mod CONSTANT VARCHAR2(100) :=
127: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'validate_open_mod');
128:
129: D_generate_project_exceptions CONSTANT VARCHAR2(100) :=
130: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'generate_project_exceptions');
131:
132:
133: --------------------------------------------------------------
134: -- Validation Subroutine Constants
274: d_position NUMBER := 0;
275:
276: BEGIN
277:
278: IF PO_LOG.d_stmt THEN
279: PO_LOG.proc_begin(d_mod);
280: END IF;
281:
282:
275:
276: BEGIN
277:
278: IF PO_LOG.d_stmt THEN
279: PO_LOG.proc_begin(d_mod);
280: END IF;
281:
282:
283: d_position := 10;
281:
282:
283: d_position := 10;
284: l_validation_set := PO_TBL_VARCHAR2000();
285: IF PO_LOG.d_stmt THEN
286: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
287: PO_LOG.stmt(d_mod,d_position,'p_validation_type',p_validation_type);
288: PO_LOG.stmt(d_mod,d_position,'p_multi_mod_request_id',p_multi_mod_request_id);
289: PO_LOG.stmt(d_mod,d_position,'x_result_type',x_result_type);
282:
283: d_position := 10;
284: l_validation_set := PO_TBL_VARCHAR2000();
285: IF PO_LOG.d_stmt THEN
286: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
287: PO_LOG.stmt(d_mod,d_position,'p_validation_type',p_validation_type);
288: PO_LOG.stmt(d_mod,d_position,'p_multi_mod_request_id',p_multi_mod_request_id);
289: PO_LOG.stmt(d_mod,d_position,'x_result_type',x_result_type);
290: END IF;
283: d_position := 10;
284: l_validation_set := PO_TBL_VARCHAR2000();
285: IF PO_LOG.d_stmt THEN
286: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
287: PO_LOG.stmt(d_mod,d_position,'p_validation_type',p_validation_type);
288: PO_LOG.stmt(d_mod,d_position,'p_multi_mod_request_id',p_multi_mod_request_id);
289: PO_LOG.stmt(d_mod,d_position,'x_result_type',x_result_type);
290: END IF;
291:
284: l_validation_set := PO_TBL_VARCHAR2000();
285: IF PO_LOG.d_stmt THEN
286: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
287: PO_LOG.stmt(d_mod,d_position,'p_validation_type',p_validation_type);
288: PO_LOG.stmt(d_mod,d_position,'p_multi_mod_request_id',p_multi_mod_request_id);
289: PO_LOG.stmt(d_mod,d_position,'x_result_type',x_result_type);
290: END IF;
291:
292: --set validation_status to inprocess and delete the records in po_multi_mod_val_results table for this request_id
285: IF PO_LOG.d_stmt THEN
286: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
287: PO_LOG.stmt(d_mod,d_position,'p_validation_type',p_validation_type);
288: PO_LOG.stmt(d_mod,d_position,'p_multi_mod_request_id',p_multi_mod_request_id);
289: PO_LOG.stmt(d_mod,d_position,'x_result_type',x_result_type);
290: END IF;
291:
292: --set validation_status to inprocess and delete the records in po_multi_mod_val_results table for this request_id
293: d_position := 20;
332: l_initiate_approval_flag := null;
333: l_clm_contract_officer := null;
334: END;
335:
336: IF PO_LOG.d_stmt THEN
337: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_request_type',l_multi_mod_request_type);
338: PO_LOG.stmt(d_mod,d_position,'l_novation_effective_date',l_novation_effective_date);
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
333: l_clm_contract_officer := null;
334: END;
335:
336: IF PO_LOG.d_stmt THEN
337: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_request_type',l_multi_mod_request_type);
338: PO_LOG.stmt(d_mod,d_position,'l_novation_effective_date',l_novation_effective_date);
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
334: END;
335:
336: IF PO_LOG.d_stmt THEN
337: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_request_type',l_multi_mod_request_type);
338: PO_LOG.stmt(d_mod,d_position,'l_novation_effective_date',l_novation_effective_date);
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
342: PO_LOG.stmt(d_mod,d_position,'l_exemption_reason',l_exemption_reason);
335:
336: IF PO_LOG.d_stmt THEN
337: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_request_type',l_multi_mod_request_type);
338: PO_LOG.stmt(d_mod,d_position,'l_novation_effective_date',l_novation_effective_date);
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
342: PO_LOG.stmt(d_mod,d_position,'l_exemption_reason',l_exemption_reason);
343: PO_LOG.stmt(d_mod,d_position,'l_initiate_approval_flag',l_initiate_approval_flag);
336: IF PO_LOG.d_stmt THEN
337: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_request_type',l_multi_mod_request_type);
338: PO_LOG.stmt(d_mod,d_position,'l_novation_effective_date',l_novation_effective_date);
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
342: PO_LOG.stmt(d_mod,d_position,'l_exemption_reason',l_exemption_reason);
343: PO_LOG.stmt(d_mod,d_position,'l_initiate_approval_flag',l_initiate_approval_flag);
344: PO_LOG.stmt(d_mod,d_position,'l_clm_contract_officer',l_clm_contract_officer);
337: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_request_type',l_multi_mod_request_type);
338: PO_LOG.stmt(d_mod,d_position,'l_novation_effective_date',l_novation_effective_date);
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
342: PO_LOG.stmt(d_mod,d_position,'l_exemption_reason',l_exemption_reason);
343: PO_LOG.stmt(d_mod,d_position,'l_initiate_approval_flag',l_initiate_approval_flag);
344: PO_LOG.stmt(d_mod,d_position,'l_clm_contract_officer',l_clm_contract_officer);
345: END IF;
338: PO_LOG.stmt(d_mod,d_position,'l_novation_effective_date',l_novation_effective_date);
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
342: PO_LOG.stmt(d_mod,d_position,'l_exemption_reason',l_exemption_reason);
343: PO_LOG.stmt(d_mod,d_position,'l_initiate_approval_flag',l_initiate_approval_flag);
344: PO_LOG.stmt(d_mod,d_position,'l_clm_contract_officer',l_clm_contract_officer);
345: END IF;
346:
339: PO_LOG.stmt(d_mod,d_position,'l_acceptance_reqd_flag',l_acceptance_reqd_flag);
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
342: PO_LOG.stmt(d_mod,d_position,'l_exemption_reason',l_exemption_reason);
343: PO_LOG.stmt(d_mod,d_position,'l_initiate_approval_flag',l_initiate_approval_flag);
344: PO_LOG.stmt(d_mod,d_position,'l_clm_contract_officer',l_clm_contract_officer);
345: END IF;
346:
347: --populate po_multi_mod_docs records into p_multi_mod_docs object type
340: PO_LOG.stmt(d_mod,d_position,'l_acceptance_due_date',l_acceptance_due_date);
341: PO_LOG.stmt(d_mod,d_position,'l_clm_noofcopies',l_clm_noofcopies);
342: PO_LOG.stmt(d_mod,d_position,'l_exemption_reason',l_exemption_reason);
343: PO_LOG.stmt(d_mod,d_position,'l_initiate_approval_flag',l_initiate_approval_flag);
344: PO_LOG.stmt(d_mod,d_position,'l_clm_contract_officer',l_clm_contract_officer);
345: END IF;
346:
347: --populate po_multi_mod_docs records into p_multi_mod_docs object type
348: d_position := 40;
364: WHEN OTHERS THEN
365: null;
366: END;
367:
368: IF PO_LOG.d_stmt THEN
369: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_docs-count',l_multi_mod_docs.multi_mod_doc_id.COUNT);
370: END IF;
371:
372: --populate po_multi_mod_changes records into p_multi_mod_docs object type
365: null;
366: END;
367:
368: IF PO_LOG.d_stmt THEN
369: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_docs-count',l_multi_mod_docs.multi_mod_doc_id.COUNT);
370: END IF;
371:
372: --populate po_multi_mod_changes records into p_multi_mod_docs object type
373: d_position := 50;
404: EXCEPTION
405: WHEN OTHERS THEN
406: null;
407: END;
408: IF PO_LOG.d_stmt THEN
409: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_changes-count',l_multi_mod_changes.multi_mod_change_id.COUNT);
410: END IF;
411:
412: d_position := 60;
405: WHEN OTHERS THEN
406: null;
407: END;
408: IF PO_LOG.d_stmt THEN
409: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_changes-count',l_multi_mod_changes.multi_mod_change_id.COUNT);
410: END IF;
411:
412: d_position := 60;
413: IF p_validation_type = 'PRE_SUBMIT' THEN
415: d_position := 70;
416: IF l_multi_mod_request_type = 'MULTI_MOD' THEN
417: d_position := 80;
418: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_address_change_vs;
419: IF PO_LOG.d_stmt THEN
420: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
421: END IF;
422: END IF;
423:
416: IF l_multi_mod_request_type = 'MULTI_MOD' THEN
417: d_position := 80;
418: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_address_change_vs;
419: IF PO_LOG.d_stmt THEN
420: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
421: END IF;
422: END IF;
423:
424: IF l_multi_mod_request_type = 'VENDOR_NAME_CHANGE' THEN
423:
424: IF l_multi_mod_request_type = 'VENDOR_NAME_CHANGE' THEN
425: d_position := 90;
426: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_vendor_name_change_vs;
427: IF PO_LOG.d_stmt THEN
428: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
429: END IF;
430: END IF;
431:
424: IF l_multi_mod_request_type = 'VENDOR_NAME_CHANGE' THEN
425: d_position := 90;
426: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_vendor_name_change_vs;
427: IF PO_LOG.d_stmt THEN
428: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
429: END IF;
430: END IF;
431:
432: IF l_multi_mod_request_type = 'VENDOR_CHANGE' THEN
431:
432: IF l_multi_mod_request_type = 'VENDOR_CHANGE' THEN
433: d_position := 100;
434: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_vendor_change_vs;
435: IF PO_LOG.d_stmt THEN
436: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
437: END IF;
438: END IF;
439: ELSIF p_validation_type = 'SUPP_CHG_EXCEPTIONS' THEN
432: IF l_multi_mod_request_type = 'VENDOR_CHANGE' THEN
433: d_position := 100;
434: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_vendor_change_vs;
435: IF PO_LOG.d_stmt THEN
436: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
437: END IF;
438: END IF;
439: ELSIF p_validation_type = 'SUPP_CHG_EXCEPTIONS' THEN
440:
439: ELSIF p_validation_type = 'SUPP_CHG_EXCEPTIONS' THEN
440:
441: d_position := 110;
442: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_vendor_change_exception_vs;
443: IF PO_LOG.d_stmt THEN
444: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
445: END IF;
446: END IF;
447:
440:
441: d_position := 110;
442: l_validation_set := l_validation_set MULTISET UNION DISTINCT c_vendor_change_exception_vs;
443: IF PO_LOG.d_stmt THEN
444: PO_LOG.stmt(d_mod,d_position,'l_validation_set',l_validation_set);
445: END IF;
446: END IF;
447:
448: d_position := 120;
481: ,p_validation_status => x_result_type
482: );
483: END IF;
484:
485: IF PO_LOG.d_stmt THEN
486: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
487: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,NULL,'x_results',x_results);
488: END IF;
489: EXCEPTION
482: );
483: END IF;
484:
485: IF PO_LOG.d_stmt THEN
486: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
487: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,NULL,'x_results',x_results);
488: END IF;
489: EXCEPTION
490: WHEN others THEN
483: END IF;
484:
485: IF PO_LOG.d_stmt THEN
486: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
487: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,NULL,'x_results',x_results);
488: END IF;
489: EXCEPTION
490: WHEN others THEN
491: x_result_type := c_result_type_FAILURE;
493: set_validation_status (p_multi_mod_request_id => p_multi_mod_request_id
494: ,p_validation_status => x_result_type
495: );
496: END IF;
497: IF PO_LOG.d_exc THEN
498: PO_LOG.exc(d_mod,d_position,NULL);
499: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
500: END IF;
501: RAISE;
494: ,p_validation_status => x_result_type
495: );
496: END IF;
497: IF PO_LOG.d_exc THEN
498: PO_LOG.exc(d_mod,d_position,NULL);
499: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
500: END IF;
501: RAISE;
502:
495: );
496: END IF;
497: IF PO_LOG.d_exc THEN
498: PO_LOG.exc(d_mod,d_position,NULL);
499: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
500: END IF;
501: RAISE;
502:
503:
548: is
549: d_mod CONSTANT VARCHAR2(100) := D_validate_set;
550: d_position NUMBER := 0;
551: l_val VARCHAR2(2000);
552: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
553: l_result_type VARCHAR2(30);
554: l_name_value_pair po_name_value_pair_tab;
555: BEGIN
556:
553: l_result_type VARCHAR2(30);
554: l_name_value_pair po_name_value_pair_tab;
555: BEGIN
556:
557: IF PO_LOG.d_proc THEN
558: PO_LOG.proc_begin(d_mod,'p_validation_set',p_validation_set);
559: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
560: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
561: END IF;
554: l_name_value_pair po_name_value_pair_tab;
555: BEGIN
556:
557: IF PO_LOG.d_proc THEN
558: PO_LOG.proc_begin(d_mod,'p_validation_set',p_validation_set);
559: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
560: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
561: END IF;
562: d_position := 10;
555: BEGIN
556:
557: IF PO_LOG.d_proc THEN
558: PO_LOG.proc_begin(d_mod,'p_validation_set',p_validation_set);
559: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
560: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
561: END IF;
562: d_position := 10;
563: IF (x_result_type IS NULL) THEN
556:
557: IF PO_LOG.d_proc THEN
558: PO_LOG.proc_begin(d_mod,'p_validation_set',p_validation_set);
559: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
560: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
561: END IF;
562: d_position := 10;
563: IF (x_result_type IS NULL) THEN
564: x_result_type := c_result_type_SUCCESS;
574:
575: l_val := p_validation_set(i);
576:
577: IF d_stmt THEN
578: PO_LOG.stmt(d_mod,d_position,'p_validation_set('||i||')',l_val);
579: END IF;
580:
581: d_position := 30;
582:
830: );
831:
832: ELSE
833: d_position := 150;
834: IF PO_LOG.d_exc THEN
835: PO_LOG.exc(d_mod,d_position,'Invalid identifier in validation set: '||l_val);
836: END IF;
837: RAISE CASE_NOT_FOUND;
838:
831:
832: ELSE
833: d_position := 150;
834: IF PO_LOG.d_exc THEN
835: PO_LOG.exc(d_mod,d_position,'Invalid identifier in validation set: '||l_val);
836: END IF;
837: RAISE CASE_NOT_FOUND;
838:
839: END CASE;
839: END CASE;
840:
841: EXCEPTION
842: WHEN OTHERS THEN
843: IF PO_LOG.d_exc THEN
844: PO_LOG.exc(d_mod,d_position,
845: 'Validation subroutine '||l_val||' threw exception');
846: END IF;
847:
840:
841: EXCEPTION
842: WHEN OTHERS THEN
843: IF PO_LOG.d_exc THEN
844: PO_LOG.exc(d_mod,d_position,
845: 'Validation subroutine '||l_val||' threw exception');
846: END IF;
847:
848: x_result_type := c_result_type_FATAL;
868: IF (x_result_type = c_result_type_FATAL) THEN
869: d_position := 160;
870: -- x_result_type := l_result_type;
871: IF d_stmt THEN
872: PO_LOG.stmt(d_mod,d_position,'Stopping loop. x_result_type',x_result_type);
873: END IF;
874:
875: EXIT;
876: END IF;
882: x_result_type := c_result_type_SUCCESS;
883: END IF;
884:
885: d_position := 170;
886: IF PO_LOG.d_proc THEN
887: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
888: END IF;
889:
890: EXCEPTION
883: END IF;
884:
885: d_position := 170;
886: IF PO_LOG.d_proc THEN
887: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
888: END IF;
889:
890: EXCEPTION
891: WHEN OTHERS THEN
889:
890: EXCEPTION
891: WHEN OTHERS THEN
892: x_result_type := c_result_type_FAILURE;
893: IF PO_LOG.d_exc THEN
894: PO_LOG.exc(d_mod,d_position,NULL);
895: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
896: END IF;
897: RAISE;
890: EXCEPTION
891: WHEN OTHERS THEN
892: x_result_type := c_result_type_FAILURE;
893: IF PO_LOG.d_exc THEN
894: PO_LOG.exc(d_mod,d_position,NULL);
895: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
896: END IF;
897: RAISE;
898:
891: WHEN OTHERS THEN
892: x_result_type := c_result_type_FAILURE;
893: IF PO_LOG.d_exc THEN
894: PO_LOG.exc(d_mod,d_position,NULL);
895: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
896: END IF;
897: RAISE;
898:
899: END validate_set;
930: is
931: l_results_count NUMBER;
932: d_mod CONSTANT VARCHAR2(100) := D_atleast_one_doc_selected;
933: d_position NUMBER := 0;
934: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
935:
936: BEGIN
937: IF PO_LOG.d_proc THEN
938: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
933: d_position NUMBER := 0;
934: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
935:
936: BEGIN
937: IF PO_LOG.d_proc THEN
938: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
939: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
940: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
941: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
934: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
935:
936: BEGIN
937: IF PO_LOG.d_proc THEN
938: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
939: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
940: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
941: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
942: END IF;
935:
936: BEGIN
937: IF PO_LOG.d_proc THEN
938: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
939: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
940: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
941: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
942: END IF;
943:
936: BEGIN
937: IF PO_LOG.d_proc THEN
938: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
939: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
940: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
941: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
942: END IF;
943:
944: IF (x_results IS NULL) THEN
937: IF PO_LOG.d_proc THEN
938: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
939: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
940: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
941: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
942: END IF;
943:
944: IF (x_results IS NULL) THEN
945: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
948: d_position := 10;
949:
950: l_results_count := x_results.result_type.COUNT;
951: IF d_stmt THEN
952: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
953: END IF;
954:
955: IF p_multi_mod_doc_id_tbl.COUNT < 1 THEN
956: d_position := 20;
970: ELSE
971: x_result_type := c_result_type_SUCCESS;
972: END IF;
973:
974: IF PO_LOG.d_proc THEN
975: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
976: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
977: END IF;
978:
971: x_result_type := c_result_type_SUCCESS;
972: END IF;
973:
974: IF PO_LOG.d_proc THEN
975: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
976: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
977: END IF;
978:
979: EXCEPTION
972: END IF;
973:
974: IF PO_LOG.d_proc THEN
975: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
976: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
977: END IF;
978:
979: EXCEPTION
980: WHEN OTHERS THEN
977: END IF;
978:
979: EXCEPTION
980: WHEN OTHERS THEN
981: IF PO_LOG.d_exc THEN
982: PO_LOG.exc(d_mod,d_position,NULL);
983: END IF;
984: RAISE;
985:
978:
979: EXCEPTION
980: WHEN OTHERS THEN
981: IF PO_LOG.d_exc THEN
982: PO_LOG.exc(d_mod,d_position,NULL);
983: END IF;
984: RAISE;
985:
986: END atleast_one_doc_selected;
1019: is
1020: l_results_count NUMBER;
1021: d_mod CONSTANT VARCHAR2(100) := D_exemption_reason_given;
1022: d_position NUMBER := 0;
1023: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1024:
1025: BEGIN
1026: IF PO_LOG.d_proc THEN
1027: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1022: d_position NUMBER := 0;
1023: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1024:
1025: BEGIN
1026: IF PO_LOG.d_proc THEN
1027: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1028: PO_LOG.proc_begin(d_mod,'p_exemption_reason',p_exemption_reason);
1029: PO_LOG.proc_begin(d_mod,'p_initiate_app_flag',p_initiate_app_flag);
1030: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1023: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1024:
1025: BEGIN
1026: IF PO_LOG.d_proc THEN
1027: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1028: PO_LOG.proc_begin(d_mod,'p_exemption_reason',p_exemption_reason);
1029: PO_LOG.proc_begin(d_mod,'p_initiate_app_flag',p_initiate_app_flag);
1030: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1031: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1024:
1025: BEGIN
1026: IF PO_LOG.d_proc THEN
1027: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1028: PO_LOG.proc_begin(d_mod,'p_exemption_reason',p_exemption_reason);
1029: PO_LOG.proc_begin(d_mod,'p_initiate_app_flag',p_initiate_app_flag);
1030: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1031: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1032: END IF;
1025: BEGIN
1026: IF PO_LOG.d_proc THEN
1027: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1028: PO_LOG.proc_begin(d_mod,'p_exemption_reason',p_exemption_reason);
1029: PO_LOG.proc_begin(d_mod,'p_initiate_app_flag',p_initiate_app_flag);
1030: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1031: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1032: END IF;
1033:
1026: IF PO_LOG.d_proc THEN
1027: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1028: PO_LOG.proc_begin(d_mod,'p_exemption_reason',p_exemption_reason);
1029: PO_LOG.proc_begin(d_mod,'p_initiate_app_flag',p_initiate_app_flag);
1030: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1031: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1032: END IF;
1033:
1034: IF (x_results IS NULL) THEN
1027: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1028: PO_LOG.proc_begin(d_mod,'p_exemption_reason',p_exemption_reason);
1029: PO_LOG.proc_begin(d_mod,'p_initiate_app_flag',p_initiate_app_flag);
1030: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1031: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1032: END IF;
1033:
1034: IF (x_results IS NULL) THEN
1035: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1038: d_position := 10;
1039:
1040: l_results_count := x_results.result_type.COUNT;
1041: IF d_stmt THEN
1042: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1043: END IF;
1044:
1045:
1046: IF p_initiate_app_flag = 'Y' AND p_exemption_reason IS NULL THEN
1063: ELSE
1064: x_result_type := c_result_type_SUCCESS;
1065: END IF;
1066:
1067: IF PO_LOG.d_proc THEN
1068: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1069: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1070: END IF;
1071:
1064: x_result_type := c_result_type_SUCCESS;
1065: END IF;
1066:
1067: IF PO_LOG.d_proc THEN
1068: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1069: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1070: END IF;
1071:
1072: EXCEPTION
1065: END IF;
1066:
1067: IF PO_LOG.d_proc THEN
1068: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1069: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1070: END IF;
1071:
1072: EXCEPTION
1073: WHEN OTHERS THEN
1070: END IF;
1071:
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: IF PO_LOG.d_exc THEN
1075: PO_LOG.exc(d_mod,d_position,NULL);
1076: END IF;
1077: RAISE;
1078:
1071:
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: IF PO_LOG.d_exc THEN
1075: PO_LOG.exc(d_mod,d_position,NULL);
1076: END IF;
1077: RAISE;
1078:
1079: END exemption_reason_given;
1130: is
1131: l_results_count NUMBER;
1132: d_mod CONSTANT VARCHAR2(100) := D_new_vendor_contact_provided;
1133: d_position NUMBER := 0;
1134: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1135: l_vendor_contact_id NUMBER;
1136: BEGIN
1137: IF PO_LOG.d_proc THEN
1138: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1133: d_position NUMBER := 0;
1134: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1135: l_vendor_contact_id NUMBER;
1136: BEGIN
1137: IF PO_LOG.d_proc THEN
1138: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1139: PO_LOG.proc_begin(d_mod,'p_acceptance_required_flag',p_acceptance_reqd_flag);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1134: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1135: l_vendor_contact_id NUMBER;
1136: BEGIN
1137: IF PO_LOG.d_proc THEN
1138: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1139: PO_LOG.proc_begin(d_mod,'p_acceptance_required_flag',p_acceptance_reqd_flag);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1135: l_vendor_contact_id NUMBER;
1136: BEGIN
1137: IF PO_LOG.d_proc THEN
1138: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1139: PO_LOG.proc_begin(d_mod,'p_acceptance_required_flag',p_acceptance_reqd_flag);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1136: BEGIN
1137: IF PO_LOG.d_proc THEN
1138: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1139: PO_LOG.proc_begin(d_mod,'p_acceptance_required_flag',p_acceptance_reqd_flag);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1137: IF PO_LOG.d_proc THEN
1138: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1139: PO_LOG.proc_begin(d_mod,'p_acceptance_required_flag',p_acceptance_reqd_flag);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1138: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1139: PO_LOG.proc_begin(d_mod,'p_acceptance_required_flag',p_acceptance_reqd_flag);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1146: PO_LOG.proc_begin(d_mod,'p_new_vendor_contact_id_tbl',p_new_vendor_contact_id_tbl);
1139: PO_LOG.proc_begin(d_mod,'p_acceptance_required_flag',p_acceptance_reqd_flag);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1146: PO_LOG.proc_begin(d_mod,'p_new_vendor_contact_id_tbl',p_new_vendor_contact_id_tbl);
1147: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1140: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1146: PO_LOG.proc_begin(d_mod,'p_new_vendor_contact_id_tbl',p_new_vendor_contact_id_tbl);
1147: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1148: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1141: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1146: PO_LOG.proc_begin(d_mod,'p_new_vendor_contact_id_tbl',p_new_vendor_contact_id_tbl);
1147: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1148: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1149: END IF;
1142: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1146: PO_LOG.proc_begin(d_mod,'p_new_vendor_contact_id_tbl',p_new_vendor_contact_id_tbl);
1147: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1148: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1149: END IF;
1150:
1143: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1146: PO_LOG.proc_begin(d_mod,'p_new_vendor_contact_id_tbl',p_new_vendor_contact_id_tbl);
1147: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1148: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1149: END IF;
1150:
1151: IF (x_results IS NULL) THEN
1144: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1145: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1146: PO_LOG.proc_begin(d_mod,'p_new_vendor_contact_id_tbl',p_new_vendor_contact_id_tbl);
1147: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1148: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1149: END IF;
1150:
1151: IF (x_results IS NULL) THEN
1152: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1155: d_position := 10;
1156:
1157: l_results_count := x_results.result_type.COUNT;
1158: IF d_stmt THEN
1159: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1160: END IF;
1161:
1162: IF p_acceptance_reqd_flag IN ('S','P') THEN
1163: d_position := 20;
1193: FROM po_headers_all
1194: WHERE po_header_id = p_document_id_tbl(i);
1195:
1196: IF d_stmt THEN
1197: PO_LOG.stmt(d_mod,d_position,'p_document_id_tbl(i)',p_document_id_tbl(i));
1198: PO_LOG.stmt(d_mod,d_position,'l_vendor_contact_id',l_vendor_contact_id);
1199: END IF;
1200:
1201: IF l_vendor_contact_id IS NULL THEN
1194: WHERE po_header_id = p_document_id_tbl(i);
1195:
1196: IF d_stmt THEN
1197: PO_LOG.stmt(d_mod,d_position,'p_document_id_tbl(i)',p_document_id_tbl(i));
1198: PO_LOG.stmt(d_mod,d_position,'l_vendor_contact_id',l_vendor_contact_id);
1199: END IF;
1200:
1201: IF l_vendor_contact_id IS NULL THEN
1202: d_position := 80;
1225: ELSE
1226: x_result_type := c_result_type_SUCCESS;
1227: END IF;
1228:
1229: IF PO_LOG.d_proc THEN
1230: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1231: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1232: END IF;
1233:
1226: x_result_type := c_result_type_SUCCESS;
1227: END IF;
1228:
1229: IF PO_LOG.d_proc THEN
1230: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1231: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1232: END IF;
1233:
1234: EXCEPTION
1227: END IF;
1228:
1229: IF PO_LOG.d_proc THEN
1230: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1231: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1232: END IF;
1233:
1234: EXCEPTION
1235: WHEN OTHERS THEN
1232: END IF;
1233:
1234: EXCEPTION
1235: WHEN OTHERS THEN
1236: IF PO_LOG.d_exc THEN
1237: PO_LOG.exc(d_mod,d_position,NULL);
1238: END IF;
1239: RAISE;
1240:
1233:
1234: EXCEPTION
1235: WHEN OTHERS THEN
1236: IF PO_LOG.d_exc THEN
1237: PO_LOG.exc(d_mod,d_position,NULL);
1238: END IF;
1239: RAISE;
1240:
1241: END new_vendor_contact_provided;
1274: is
1275: l_results_count NUMBER;
1276: d_mod CONSTANT VARCHAR2(100) := D_acceptance_due_date_valid;
1277: d_position NUMBER := 0;
1278: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1279:
1280: BEGIN
1281: IF PO_LOG.d_proc THEN
1282: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1277: d_position NUMBER := 0;
1278: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1279:
1280: BEGIN
1281: IF PO_LOG.d_proc THEN
1282: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1283: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1284: PO_LOG.proc_begin(d_mod,'p_acceptance_due_date',p_acceptance_due_date);
1285: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1278: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1279:
1280: BEGIN
1281: IF PO_LOG.d_proc THEN
1282: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1283: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1284: PO_LOG.proc_begin(d_mod,'p_acceptance_due_date',p_acceptance_due_date);
1285: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1286: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1279:
1280: BEGIN
1281: IF PO_LOG.d_proc THEN
1282: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1283: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1284: PO_LOG.proc_begin(d_mod,'p_acceptance_due_date',p_acceptance_due_date);
1285: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1286: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1287: END IF;
1280: BEGIN
1281: IF PO_LOG.d_proc THEN
1282: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1283: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1284: PO_LOG.proc_begin(d_mod,'p_acceptance_due_date',p_acceptance_due_date);
1285: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1286: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1287: END IF;
1288:
1281: IF PO_LOG.d_proc THEN
1282: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1283: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1284: PO_LOG.proc_begin(d_mod,'p_acceptance_due_date',p_acceptance_due_date);
1285: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1286: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1287: END IF;
1288:
1289: IF (x_results IS NULL) THEN
1282: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1283: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1284: PO_LOG.proc_begin(d_mod,'p_acceptance_due_date',p_acceptance_due_date);
1285: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1286: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1287: END IF;
1288:
1289: IF (x_results IS NULL) THEN
1290: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1291: END IF;
1292:
1293: l_results_count := x_results.result_type.COUNT;
1294: IF d_stmt THEN
1295: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1296: END IF;
1297:
1298: d_position := 10;
1299:
1315: ELSE
1316: x_result_type := c_result_type_SUCCESS;
1317: END IF;
1318:
1319: IF PO_LOG.d_proc THEN
1320: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1321: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1322: END IF;
1323:
1316: x_result_type := c_result_type_SUCCESS;
1317: END IF;
1318:
1319: IF PO_LOG.d_proc THEN
1320: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1321: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1322: END IF;
1323:
1324: EXCEPTION
1317: END IF;
1318:
1319: IF PO_LOG.d_proc THEN
1320: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1321: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1322: END IF;
1323:
1324: EXCEPTION
1325: WHEN OTHERS THEN
1322: END IF;
1323:
1324: EXCEPTION
1325: WHEN OTHERS THEN
1326: IF PO_LOG.d_exc THEN
1327: PO_LOG.exc(d_mod,d_position,NULL);
1328: END IF;
1329: RAISE;
1330:
1323:
1324: EXCEPTION
1325: WHEN OTHERS THEN
1326: IF PO_LOG.d_exc THEN
1327: PO_LOG.exc(d_mod,d_position,NULL);
1328: END IF;
1329: RAISE;
1330:
1331: END acceptance_due_date_valid;
1362: is
1363: l_results_count NUMBER;
1364: d_mod CONSTANT VARCHAR2(100) := D_no_of_copies_ge_zero;
1365: d_position NUMBER := 0;
1366: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1367:
1368: BEGIN
1369: IF PO_LOG.d_proc THEN
1370: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1365: d_position NUMBER := 0;
1366: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1367:
1368: BEGIN
1369: IF PO_LOG.d_proc THEN
1370: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1371: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1372: PO_LOG.proc_begin(d_mod,'p_clm_noofcopies',p_clm_noofcopies);
1373: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1366: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1367:
1368: BEGIN
1369: IF PO_LOG.d_proc THEN
1370: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1371: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1372: PO_LOG.proc_begin(d_mod,'p_clm_noofcopies',p_clm_noofcopies);
1373: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1374: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1367:
1368: BEGIN
1369: IF PO_LOG.d_proc THEN
1370: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1371: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1372: PO_LOG.proc_begin(d_mod,'p_clm_noofcopies',p_clm_noofcopies);
1373: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1374: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1375: END IF;
1368: BEGIN
1369: IF PO_LOG.d_proc THEN
1370: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1371: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1372: PO_LOG.proc_begin(d_mod,'p_clm_noofcopies',p_clm_noofcopies);
1373: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1374: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1375: END IF;
1376:
1369: IF PO_LOG.d_proc THEN
1370: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1371: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1372: PO_LOG.proc_begin(d_mod,'p_clm_noofcopies',p_clm_noofcopies);
1373: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1374: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1375: END IF;
1376:
1377: IF (x_results IS NULL) THEN
1370: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1371: PO_LOG.proc_begin(d_mod,'p_acceptance_reqd_flag',p_acceptance_reqd_flag);
1372: PO_LOG.proc_begin(d_mod,'p_clm_noofcopies',p_clm_noofcopies);
1373: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1374: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1375: END IF;
1376:
1377: IF (x_results IS NULL) THEN
1378: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1379: END IF;
1380:
1381: l_results_count := x_results.result_type.COUNT;
1382: IF d_stmt THEN
1383: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1384: END IF;
1385:
1386: d_position := 10;
1387:
1404: ELSE
1405: x_result_type := c_result_type_SUCCESS;
1406: END IF;
1407:
1408: IF PO_LOG.d_proc THEN
1409: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1410: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1411: END IF;
1412:
1405: x_result_type := c_result_type_SUCCESS;
1406: END IF;
1407:
1408: IF PO_LOG.d_proc THEN
1409: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1410: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1411: END IF;
1412:
1413: EXCEPTION
1406: END IF;
1407:
1408: IF PO_LOG.d_proc THEN
1409: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1410: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1411: END IF;
1412:
1413: EXCEPTION
1414: WHEN OTHERS THEN
1411: END IF;
1412:
1413: EXCEPTION
1414: WHEN OTHERS THEN
1415: IF PO_LOG.d_exc THEN
1416: PO_LOG.exc(d_mod,d_position,NULL);
1417: END IF;
1418: RAISE;
1419:
1412:
1413: EXCEPTION
1414: WHEN OTHERS THEN
1415: IF PO_LOG.d_exc THEN
1416: PO_LOG.exc(d_mod,d_position,NULL);
1417: END IF;
1418: RAISE;
1419:
1420: END no_of_copies_ge_zero;
1457: is
1458: l_results_count NUMBER;
1459: d_mod CONSTANT VARCHAR2(100) := D_vendor_name_chg_valid;
1460: d_position NUMBER := 0;
1461: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1462:
1463: BEGIN
1464: IF PO_LOG.d_proc THEN
1465: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1460: d_position NUMBER := 0;
1461: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1462:
1463: BEGIN
1464: IF PO_LOG.d_proc THEN
1465: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1466: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1461: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1462:
1463: BEGIN
1464: IF PO_LOG.d_proc THEN
1465: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1466: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1469: --PO_LOG.proc_begin(d_mod,'p_new_vendor_name_tbl',p_new_vendor_name_tbl);
1462:
1463: BEGIN
1464: IF PO_LOG.d_proc THEN
1465: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1466: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1469: --PO_LOG.proc_begin(d_mod,'p_new_vendor_name_tbl',p_new_vendor_name_tbl);
1470: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1463: BEGIN
1464: IF PO_LOG.d_proc THEN
1465: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1466: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1469: --PO_LOG.proc_begin(d_mod,'p_new_vendor_name_tbl',p_new_vendor_name_tbl);
1470: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1471: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1464: IF PO_LOG.d_proc THEN
1465: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1466: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1469: --PO_LOG.proc_begin(d_mod,'p_new_vendor_name_tbl',p_new_vendor_name_tbl);
1470: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1471: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1472: END IF;
1465: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1466: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1469: --PO_LOG.proc_begin(d_mod,'p_new_vendor_name_tbl',p_new_vendor_name_tbl);
1470: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1471: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1472: END IF;
1473:
1466: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1469: --PO_LOG.proc_begin(d_mod,'p_new_vendor_name_tbl',p_new_vendor_name_tbl);
1470: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1471: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1472: END IF;
1473:
1474: IF (x_results IS NULL) THEN
1467: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1468: --PO_LOG.proc_begin(d_mod,'p_old_vendor_name_tbl',p_old_vendor_name_tbl);
1469: --PO_LOG.proc_begin(d_mod,'p_new_vendor_name_tbl',p_new_vendor_name_tbl);
1470: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1471: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1472: END IF;
1473:
1474: IF (x_results IS NULL) THEN
1475: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1476: END IF;
1477:
1478: l_results_count := x_results.result_type.COUNT;
1479: IF d_stmt THEN
1480: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1481: END IF;
1482:
1483: d_position := 10;
1484:
1510: ELSE
1511: x_result_type := c_result_type_SUCCESS;
1512: END IF;
1513:
1514: IF PO_LOG.d_proc THEN
1515: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1516: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1517: END IF;
1518:
1511: x_result_type := c_result_type_SUCCESS;
1512: END IF;
1513:
1514: IF PO_LOG.d_proc THEN
1515: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1516: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1517: END IF;
1518:
1519: EXCEPTION
1512: END IF;
1513:
1514: IF PO_LOG.d_proc THEN
1515: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1516: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1517: END IF;
1518:
1519: EXCEPTION
1520: WHEN OTHERS THEN
1517: END IF;
1518:
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: IF PO_LOG.d_exc THEN
1522: PO_LOG.exc(d_mod,d_position,NULL);
1523: END IF;
1524: RAISE;
1525:
1518:
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: IF PO_LOG.d_exc THEN
1522: PO_LOG.exc(d_mod,d_position,NULL);
1523: END IF;
1524: RAISE;
1525:
1526: END vendor_name_chg_valid;
1562: is
1563: l_results_count NUMBER;
1564: d_mod CONSTANT VARCHAR2(100) := D_vendor_chg_valid;
1565: d_position NUMBER := 0;
1566: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1567:
1568: BEGIN
1569: IF PO_LOG.d_proc THEN
1570: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1565: d_position NUMBER := 0;
1566: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1567:
1568: BEGIN
1569: IF PO_LOG.d_proc THEN
1570: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1571: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1572: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1573: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1566: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1567:
1568: BEGIN
1569: IF PO_LOG.d_proc THEN
1570: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1571: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1572: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1573: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1574: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1567:
1568: BEGIN
1569: IF PO_LOG.d_proc THEN
1570: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1571: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1572: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1573: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1574: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1575: END IF;
1568: BEGIN
1569: IF PO_LOG.d_proc THEN
1570: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1571: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1572: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1573: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1574: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1575: END IF;
1576:
1569: IF PO_LOG.d_proc THEN
1570: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1571: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1572: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1573: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1574: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1575: END IF;
1576:
1577: IF (x_results IS NULL) THEN
1570: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1571: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1572: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1573: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1574: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1575: END IF;
1576:
1577: IF (x_results IS NULL) THEN
1578: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1579: END IF;
1580:
1581: l_results_count := x_results.result_type.COUNT;
1582: IF d_stmt THEN
1583: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1584: END IF;
1585:
1586: d_position := 10;
1587:
1613: ELSE
1614: x_result_type := c_result_type_SUCCESS;
1615: END IF;
1616:
1617: IF PO_LOG.d_proc THEN
1618: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1619: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1620: END IF;
1621:
1614: x_result_type := c_result_type_SUCCESS;
1615: END IF;
1616:
1617: IF PO_LOG.d_proc THEN
1618: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1619: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1620: END IF;
1621:
1622: EXCEPTION
1615: END IF;
1616:
1617: IF PO_LOG.d_proc THEN
1618: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1619: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1620: END IF;
1621:
1622: EXCEPTION
1623: WHEN OTHERS THEN
1620: END IF;
1621:
1622: EXCEPTION
1623: WHEN OTHERS THEN
1624: IF PO_LOG.d_exc THEN
1625: PO_LOG.exc(d_mod,d_position,NULL);
1626: END IF;
1627: RAISE;
1628:
1621:
1622: EXCEPTION
1623: WHEN OTHERS THEN
1624: IF PO_LOG.d_exc THEN
1625: PO_LOG.exc(d_mod,d_position,NULL);
1626: END IF;
1627: RAISE;
1628:
1629: END vendor_chg_valid;
1663: is
1664: l_results_count NUMBER;
1665: d_mod CONSTANT VARCHAR2(100) := D_new_vendor_on_hold;
1666: d_position NUMBER := 0;
1667: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1668: l_hold_exists VARCHAR2(1);
1669:
1670: BEGIN
1671: IF PO_LOG.d_proc THEN
1667: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1668: l_hold_exists VARCHAR2(1);
1669:
1670: BEGIN
1671: IF PO_LOG.d_proc THEN
1672: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1673: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1674: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1675: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1668: l_hold_exists VARCHAR2(1);
1669:
1670: BEGIN
1671: IF PO_LOG.d_proc THEN
1672: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1673: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1674: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1675: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1676: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1669:
1670: BEGIN
1671: IF PO_LOG.d_proc THEN
1672: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1673: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1674: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1675: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1676: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1677: END IF;
1670: BEGIN
1671: IF PO_LOG.d_proc THEN
1672: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1673: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1674: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1675: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1676: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1677: END IF;
1678:
1671: IF PO_LOG.d_proc THEN
1672: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1673: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1674: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1675: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1676: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1677: END IF;
1678:
1679: IF (x_results IS NULL) THEN
1672: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1673: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1674: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1675: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1676: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1677: END IF;
1678:
1679: IF (x_results IS NULL) THEN
1680: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1681: END IF;
1682:
1683: l_results_count := x_results.result_type.COUNT;
1684: IF d_stmt THEN
1685: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1686: END IF;
1687:
1688: d_position := 10;
1689:
1725: ELSE
1726: x_result_type := c_result_type_SUCCESS;
1727: END IF;
1728:
1729: IF PO_LOG.d_proc THEN
1730: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1731: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1732: END IF;
1733:
1726: x_result_type := c_result_type_SUCCESS;
1727: END IF;
1728:
1729: IF PO_LOG.d_proc THEN
1730: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1731: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1732: END IF;
1733:
1734: EXCEPTION
1727: END IF;
1728:
1729: IF PO_LOG.d_proc THEN
1730: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1731: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1732: END IF;
1733:
1734: EXCEPTION
1735: WHEN OTHERS THEN
1732: END IF;
1733:
1734: EXCEPTION
1735: WHEN OTHERS THEN
1736: IF PO_LOG.d_exc THEN
1737: PO_LOG.exc(d_mod,d_position,NULL);
1738: END IF;
1739: RAISE;
1740:
1733:
1734: EXCEPTION
1735: WHEN OTHERS THEN
1736: IF PO_LOG.d_exc THEN
1737: PO_LOG.exc(d_mod,d_position,NULL);
1738: END IF;
1739: RAISE;
1740:
1741: END new_vendor_on_hold;
1767: is
1768: l_results_count NUMBER;
1769: d_mod CONSTANT VARCHAR2(100) := D_clause_change_valid;
1770: d_position NUMBER := 0;
1771: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1772: l_return_status VARCHAR2(1);
1773:
1774: BEGIN
1775: IF PO_LOG.d_proc THEN
1771: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1772: l_return_status VARCHAR2(1);
1773:
1774: BEGIN
1775: IF PO_LOG.d_proc THEN
1776: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1777: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1778: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1779: END IF;
1772: l_return_status VARCHAR2(1);
1773:
1774: BEGIN
1775: IF PO_LOG.d_proc THEN
1776: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1777: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1778: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1779: END IF;
1780:
1773:
1774: BEGIN
1775: IF PO_LOG.d_proc THEN
1776: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1777: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1778: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1779: END IF;
1780:
1781: IF (x_results IS NULL) THEN
1774: BEGIN
1775: IF PO_LOG.d_proc THEN
1776: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1777: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1778: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1779: END IF;
1780:
1781: IF (x_results IS NULL) THEN
1782: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1785: d_position := 10;
1786:
1787: l_results_count := x_results.result_type.COUNT;
1788: IF d_stmt THEN
1789: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1790: END IF;
1791:
1792:
1793: /*Call to the OKC api is made here. currently there are no validations.this dummy check is included so that we have the option of including additional checks in the future*/
1803: ELSE
1804: x_result_type := c_result_type_SUCCESS;
1805: END IF;
1806:
1807: IF PO_LOG.d_proc THEN
1808: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1809: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1810: END IF;
1811:
1804: x_result_type := c_result_type_SUCCESS;
1805: END IF;
1806:
1807: IF PO_LOG.d_proc THEN
1808: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1809: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1810: END IF;
1811:
1812: EXCEPTION
1805: END IF;
1806:
1807: IF PO_LOG.d_proc THEN
1808: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1809: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1810: END IF;
1811:
1812: EXCEPTION
1813: WHEN OTHERS THEN
1810: END IF;
1811:
1812: EXCEPTION
1813: WHEN OTHERS THEN
1814: IF PO_LOG.d_exc THEN
1815: PO_LOG.exc(d_mod,d_position,NULL);
1816: END IF;
1817: RAISE;
1818:
1811:
1812: EXCEPTION
1813: WHEN OTHERS THEN
1814: IF PO_LOG.d_exc THEN
1815: PO_LOG.exc(d_mod,d_position,NULL);
1816: END IF;
1817: RAISE;
1818:
1819: END clause_change_valid;
1853: d_position NUMBER := 0;
1854: l_has_address_changed VARCHAR2(1);
1855: l_has_clause_changed VARCHAR2(1);
1856: l_has_vendor_changed VARCHAR2(1);
1857: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1858:
1859: BEGIN
1860: IF PO_LOG.d_proc THEN
1861: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1856: l_has_vendor_changed VARCHAR2(1);
1857: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1858:
1859: BEGIN
1860: IF PO_LOG.d_proc THEN
1861: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1862: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1863: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1864: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1857: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1858:
1859: BEGIN
1860: IF PO_LOG.d_proc THEN
1861: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1862: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1863: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1864: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1865: END IF;
1858:
1859: BEGIN
1860: IF PO_LOG.d_proc THEN
1861: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1862: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1863: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1864: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1865: END IF;
1866:
1859: BEGIN
1860: IF PO_LOG.d_proc THEN
1861: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1862: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1863: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1864: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1865: END IF;
1866:
1867: IF (x_results IS NULL) THEN
1860: IF PO_LOG.d_proc THEN
1861: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1862: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1863: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1864: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1865: END IF;
1866:
1867: IF (x_results IS NULL) THEN
1868: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1869: END IF;
1870:
1871: l_results_count := x_results.result_type.COUNT;
1872: IF d_stmt THEN
1873: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
1874: END IF;
1875: d_position := 10;
1876: -- address change validation
1877: l_has_address_changed := PO_MULTI_MOD_VALIDATIONS.has_address_changed(p_request_id => p_request_id);
1885: l_has_vendor_changed := PO_MULTI_MOD_VALIDATIONS.has_vendor_changed(p_request_id => p_request_id
1886: ,p_change_id_tbl => p_change_id_tbl);
1887:
1888: IF d_stmt THEN
1889: PO_LOG.stmt(d_mod,d_position,'l_has_address_changed',l_has_address_changed);
1890: PO_LOG.stmt(d_mod,d_position,'l_has_clause_changed',l_has_clause_changed);
1891: PO_LOG.stmt(d_mod,d_position,'l_has_vendor_changed',l_has_vendor_changed);
1892: END IF;
1893:
1886: ,p_change_id_tbl => p_change_id_tbl);
1887:
1888: IF d_stmt THEN
1889: PO_LOG.stmt(d_mod,d_position,'l_has_address_changed',l_has_address_changed);
1890: PO_LOG.stmt(d_mod,d_position,'l_has_clause_changed',l_has_clause_changed);
1891: PO_LOG.stmt(d_mod,d_position,'l_has_vendor_changed',l_has_vendor_changed);
1892: END IF;
1893:
1894: IF l_has_address_changed = 'N' THEN
1887:
1888: IF d_stmt THEN
1889: PO_LOG.stmt(d_mod,d_position,'l_has_address_changed',l_has_address_changed);
1890: PO_LOG.stmt(d_mod,d_position,'l_has_clause_changed',l_has_clause_changed);
1891: PO_LOG.stmt(d_mod,d_position,'l_has_vendor_changed',l_has_vendor_changed);
1892: END IF;
1893:
1894: IF l_has_address_changed = 'N' THEN
1895: IF l_has_clause_changed = 'N' THEN
1915: ELSE
1916: x_result_type := c_result_type_SUCCESS;
1917: END IF;
1918:
1919: IF PO_LOG.d_proc THEN
1920: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1921: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1922: END IF;
1923:
1916: x_result_type := c_result_type_SUCCESS;
1917: END IF;
1918:
1919: IF PO_LOG.d_proc THEN
1920: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1921: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1922: END IF;
1923:
1924: EXCEPTION
1917: END IF;
1918:
1919: IF PO_LOG.d_proc THEN
1920: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1921: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
1922: END IF;
1923:
1924: EXCEPTION
1925: WHEN OTHERS THEN
1922: END IF;
1923:
1924: EXCEPTION
1925: WHEN OTHERS THEN
1926: IF PO_LOG.d_exc THEN
1927: PO_LOG.exc(d_mod,d_position,NULL);
1928: END IF;
1929: RAISE;
1930:
1923:
1924: EXCEPTION
1925: WHEN OTHERS THEN
1926: IF PO_LOG.d_exc THEN
1927: PO_LOG.exc(d_mod,d_position,NULL);
1928: END IF;
1929: RAISE;
1930:
1931: END atleast_one_change_done;
1973: is
1974: l_results_count NUMBER;
1975: d_mod CONSTANT VARCHAR2(100) := D_new_vendor_site_provided;
1976: d_position NUMBER := 0;
1977: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1978:
1979: BEGIN
1980: IF PO_LOG.d_proc THEN
1981: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1976: d_position NUMBER := 0;
1977: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1978:
1979: BEGIN
1980: IF PO_LOG.d_proc THEN
1981: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1982: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1977: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
1978:
1979: BEGIN
1980: IF PO_LOG.d_proc THEN
1981: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1982: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1978:
1979: BEGIN
1980: IF PO_LOG.d_proc THEN
1981: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1982: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1986: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
1979: BEGIN
1980: IF PO_LOG.d_proc THEN
1981: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1982: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1986: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
1987: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1980: IF PO_LOG.d_proc THEN
1981: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1982: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1986: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
1987: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1988: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1981: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
1982: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1986: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
1987: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1988: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1989: END IF;
1982: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1986: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
1987: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1988: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1989: END IF;
1990:
1983: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1986: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
1987: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1988: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1989: END IF;
1990:
1991: IF (x_results IS NULL) THEN
1984: PO_LOG.proc_begin(d_mod,'p_org_id_tbl',p_org_id_tbl);
1985: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
1986: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
1987: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
1988: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
1989: END IF;
1990:
1991: IF (x_results IS NULL) THEN
1992: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
1995: d_position := 10;
1996:
1997: l_results_count := x_results.result_type.COUNT;
1998: IF d_stmt THEN
1999: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
2000: END IF;
2001:
2002: d_position := 20;
2003: FOR i IN 1..p_change_id_tbl.COUNT LOOP
2026: ELSE
2027: x_result_type := c_result_type_SUCCESS;
2028: END IF;
2029:
2030: IF PO_LOG.d_proc THEN
2031: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2032: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2033: END IF;
2034:
2027: x_result_type := c_result_type_SUCCESS;
2028: END IF;
2029:
2030: IF PO_LOG.d_proc THEN
2031: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2032: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2033: END IF;
2034:
2035: EXCEPTION
2028: END IF;
2029:
2030: IF PO_LOG.d_proc THEN
2031: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2032: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2033: END IF;
2034:
2035: EXCEPTION
2036: WHEN OTHERS THEN
2033: END IF;
2034:
2035: EXCEPTION
2036: WHEN OTHERS THEN
2037: IF PO_LOG.d_exc THEN
2038: PO_LOG.exc(d_mod,d_position,NULL);
2039: END IF;
2040: RAISE;
2041:
2034:
2035: EXCEPTION
2036: WHEN OTHERS THEN
2037: IF PO_LOG.d_exc THEN
2038: PO_LOG.exc(d_mod,d_position,NULL);
2039: END IF;
2040: RAISE;
2041:
2042: END new_vendor_site_provided;
2086: l_old_vendor_id NUMBER;
2087: l_new_vendor_id NUMBER;
2088: l_old_valid_registration BOOLEAN := FALSE;
2089: l_new_valid_registration BOOLEAN := FALSE;
2090: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2091:
2092: BEGIN
2093: IF PO_LOG.d_proc THEN
2094: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2089: l_new_valid_registration BOOLEAN := FALSE;
2090: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2091:
2092: BEGIN
2093: IF PO_LOG.d_proc THEN
2094: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2095: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2090: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2091:
2092: BEGIN
2093: IF PO_LOG.d_proc THEN
2094: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2095: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2098: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
2091:
2092: BEGIN
2093: IF PO_LOG.d_proc THEN
2094: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2095: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2098: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
2099: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2092: BEGIN
2093: IF PO_LOG.d_proc THEN
2094: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2095: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2098: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
2099: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2100: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2093: IF PO_LOG.d_proc THEN
2094: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2095: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2098: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
2099: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2100: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2101: END IF;
2094: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2095: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2098: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
2099: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2100: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2101: END IF;
2102:
2095: PO_LOG.proc_begin(d_mod,'p_change_type_tbl',p_change_type_tbl);
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2098: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
2099: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2100: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2101: END IF;
2102:
2103: IF (x_results IS NULL) THEN
2096: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2097: PO_LOG.proc_begin(d_mod,'p_new_vendor_site_id_tbl',p_new_vendor_site_id_tbl);
2098: PO_LOG.proc_begin(d_mod,'p_old_vendor_site_id_tbl',p_old_vendor_site_id_tbl);
2099: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2100: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2101: END IF;
2102:
2103: IF (x_results IS NULL) THEN
2104: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
2107: d_position := 10;
2108:
2109: l_results_count := x_results.result_type.COUNT;
2110: IF d_stmt THEN
2111: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
2112: END IF;
2113:
2114: d_position := 20;
2115:
2125: l_old_vendor_id := null;
2126: END;
2127:
2128: IF d_stmt THEN
2129: PO_LOG.stmt(d_mod,d_position,'l_old_vendor_id',l_old_vendor_id);
2130: PO_LOG.stmt(d_mod,d_position,'l_new_vendor_id',l_new_vendor_id);
2131: END IF;
2132:
2133: d_position := 30;
2126: END;
2127:
2128: IF d_stmt THEN
2129: PO_LOG.stmt(d_mod,d_position,'l_old_vendor_id',l_old_vendor_id);
2130: PO_LOG.stmt(d_mod,d_position,'l_new_vendor_id',l_new_vendor_id);
2131: END IF;
2132:
2133: d_position := 30;
2134: FOR i IN 1..p_change_id_tbl.COUNT LOOP
2142: l_old_valid_registration := PO_FV_INTEGRATION_PVT.val_vendor_site_ccr_regis(p_vendor_id => l_old_vendor_id,
2143: p_vendor_site_id => p_old_vendor_site_id_tbl(i));
2144:
2145: IF d_stmt THEN
2146: PO_LOG.stmt(d_mod,d_position,'l_old_valid_registration',l_old_valid_registration);
2147: END IF;
2148:
2149: IF l_old_valid_registration THEN --old vendor site has a active CCR registration
2150:
2152: l_new_valid_registration := PO_FV_INTEGRATION_PVT.val_vendor_site_ccr_regis(p_vendor_id => l_new_vendor_id,
2153: p_vendor_site_id => p_new_vendor_site_id_tbl(i));
2154:
2155: IF d_stmt THEN
2156: PO_LOG.stmt(d_mod,d_position,'l_new_valid_registration',l_new_valid_registration);
2157: END IF;
2158:
2159: IF NOT l_new_valid_registration THEN
2160:
2185: ELSE
2186: x_result_type := c_result_type_SUCCESS;
2187: END IF;
2188:
2189: IF PO_LOG.d_proc THEN
2190: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2191: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2192: END IF;
2193:
2186: x_result_type := c_result_type_SUCCESS;
2187: END IF;
2188:
2189: IF PO_LOG.d_proc THEN
2190: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2191: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2192: END IF;
2193:
2194: EXCEPTION
2187: END IF;
2188:
2189: IF PO_LOG.d_proc THEN
2190: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2191: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2192: END IF;
2193:
2194: EXCEPTION
2195: WHEN OTHERS THEN
2192: END IF;
2193:
2194: EXCEPTION
2195: WHEN OTHERS THEN
2196: IF PO_LOG.d_exc THEN
2197: PO_LOG.exc(d_mod,d_position,NULL);
2198: END IF;
2199: RAISE;
2200:
2193:
2194: EXCEPTION
2195: WHEN OTHERS THEN
2196: IF PO_LOG.d_exc THEN
2197: PO_LOG.exc(d_mod,d_position,NULL);
2198: END IF;
2199: RAISE;
2200:
2201: END new_vendor_site_CCR_valid;
2217: )
2218: IS
2219: d_mod CONSTANT VARCHAR2(100) := D_uda_addresses_valid;
2220: d_position NUMBER := 0;
2221: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2222: l_results_count NUMBER;
2223:
2224: l_uda_template_id NUMBER;
2225: l_uda_key_po_header_id NUMBER;
2245: ext_name_val_obj EGO_COL_NAME_VALUE_PAIR_OBJ;
2246: g_xsc_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
2247:
2248: BEGIN
2249: IF PO_LOG.d_proc THEN
2250: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2251: END IF;
2252:
2253: IF (x_results IS NULL) THEN
2246: g_xsc_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
2247:
2248: BEGIN
2249: IF PO_LOG.d_proc THEN
2250: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2251: END IF;
2252:
2253: IF (x_results IS NULL) THEN
2254: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
2257: d_position := 10;
2258:
2259: l_results_count := x_results.result_type.COUNT;
2260: IF d_stmt THEN
2261: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
2262: END IF;
2263:
2264: PO_FED_FIELD_FUNCTIONS.g_is_multi_mod_context := 'Y';-- Set Multi-Mod Context
2265:
2280: PO_UDA_DEFAULTING_PKG.SET_EXT_ATTR_NAME_VALUE_PAIR('x_msg_data', 'SUCCESS', l_external_attr_value_pairs);
2281:
2282: d_position := 20;
2283: IF d_stmt THEN
2284: PO_LOG.stmt(d_mod,d_position,'Calling PO_UDA_DEFAULTING_PKG.UDA_SUBMISSION_CHECK');
2285: END IF;
2286:
2287: --initialize FND_MSG_PUB before adding any new messages to the stack
2288: FND_MSG_PUB.Initialize;
2300: );
2301:
2302: d_position := 30;
2303: IF d_stmt THEN
2304: PO_LOG.stmt(d_mod,d_position,'After calling PO_UDA_DEFAULTING_PKG.UDA_SUBMISSION_CHECK Return Status:' || l_return_status);
2305: END IF;
2306:
2307: PO_FED_FIELD_FUNCTIONS.g_is_multi_mod_context := 'N';-- reset Multi-Mod Context
2308: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2316: g_xsc_return_status := ext_name_val_obj.VALUE;
2317:
2318:
2319: IF d_stmt THEN
2320: PO_LOG.stmt(d_mod,d_position,'Submission check has status ' || g_xsc_return_status);
2321: END IF;
2322:
2323: d_position := 50;
2324: IF g_xsc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2323: d_position := 50;
2324: IF g_xsc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2325:
2326: IF d_stmt THEN
2327: PO_LOG.stmt(d_mod,d_position,'Submission check has failed for UDA');
2328: END IF;
2329:
2330: l_msg_count := FND_MSG_PUB.Count_Msg;
2331:
2329:
2330: l_msg_count := FND_MSG_PUB.Count_Msg;
2331:
2332: IF d_stmt THEN
2333: PO_LOG.stmt(d_mod,d_position,'l_msg_count',l_msg_count);
2334: END IF;
2335:
2336: d_position := 60;
2337: IF l_msg_count > 0 THEN
2341: d_position := 70;
2342: l_msg_text := FND_MSG_PUB.get (msg_counter, FND_API.g_true);
2343:
2344: IF d_stmt THEN
2345: PO_LOG.stmt(d_mod,d_position,'l_msg_text',l_msg_text);
2346: END IF;
2347:
2348: fnd_message.parse_encoded
2349: (encoded_message => l_msg_text
2354: l_application_length := length(l_application);
2355: l_msg_name_length := length(l_msg_name);
2356:
2357: IF d_stmt THEN
2358: PO_LOG.stmt(d_mod,d_position,'l_msg_name',l_msg_name);
2359: PO_LOG.stmt(d_mod,d_position,'l_msg_name_length',l_msg_name_length);
2360: PO_LOG.stmt(d_mod,d_position,'l_application',l_application);
2361: PO_LOG.stmt(d_mod,d_position,'l_application_length',l_application_length);
2362: PO_LOG.stmt(d_mod,d_position,'l_msg_text_length',l_msg_text_length);
2355: l_msg_name_length := length(l_msg_name);
2356:
2357: IF d_stmt THEN
2358: PO_LOG.stmt(d_mod,d_position,'l_msg_name',l_msg_name);
2359: PO_LOG.stmt(d_mod,d_position,'l_msg_name_length',l_msg_name_length);
2360: PO_LOG.stmt(d_mod,d_position,'l_application',l_application);
2361: PO_LOG.stmt(d_mod,d_position,'l_application_length',l_application_length);
2362: PO_LOG.stmt(d_mod,d_position,'l_msg_text_length',l_msg_text_length);
2363: END IF;
2356:
2357: IF d_stmt THEN
2358: PO_LOG.stmt(d_mod,d_position,'l_msg_name',l_msg_name);
2359: PO_LOG.stmt(d_mod,d_position,'l_msg_name_length',l_msg_name_length);
2360: PO_LOG.stmt(d_mod,d_position,'l_application',l_application);
2361: PO_LOG.stmt(d_mod,d_position,'l_application_length',l_application_length);
2362: PO_LOG.stmt(d_mod,d_position,'l_msg_text_length',l_msg_text_length);
2363: END IF;
2364:
2357: IF d_stmt THEN
2358: PO_LOG.stmt(d_mod,d_position,'l_msg_name',l_msg_name);
2359: PO_LOG.stmt(d_mod,d_position,'l_msg_name_length',l_msg_name_length);
2360: PO_LOG.stmt(d_mod,d_position,'l_application',l_application);
2361: PO_LOG.stmt(d_mod,d_position,'l_application_length',l_application_length);
2362: PO_LOG.stmt(d_mod,d_position,'l_msg_text_length',l_msg_text_length);
2363: END IF;
2364:
2365: d_position := 80;
2358: PO_LOG.stmt(d_mod,d_position,'l_msg_name',l_msg_name);
2359: PO_LOG.stmt(d_mod,d_position,'l_msg_name_length',l_msg_name_length);
2360: PO_LOG.stmt(d_mod,d_position,'l_application',l_application);
2361: PO_LOG.stmt(d_mod,d_position,'l_application_length',l_application_length);
2362: PO_LOG.stmt(d_mod,d_position,'l_msg_text_length',l_msg_text_length);
2363: END IF;
2364:
2365: d_position := 80;
2366: IF l_msg_text_length > (l_application_length + l_msg_name_length + 2) THEN
2368: l_start_pos := l_application_length + l_msg_name_length + 5;
2369: l_end_pos := instr(l_msg_text,chr(0),l_start_pos);
2370:
2371: IF d_stmt THEN
2372: PO_LOG.stmt(d_mod,d_position,'l_start_pos',l_start_pos);
2373: PO_LOG.stmt(d_mod,d_position,'l_end_pos',l_end_pos);
2374: END IF;
2375:
2376: d_position := 90;
2369: l_end_pos := instr(l_msg_text,chr(0),l_start_pos);
2370:
2371: IF d_stmt THEN
2372: PO_LOG.stmt(d_mod,d_position,'l_start_pos',l_start_pos);
2373: PO_LOG.stmt(d_mod,d_position,'l_end_pos',l_end_pos);
2374: END IF;
2375:
2376: d_position := 90;
2377: l_token_name := TRIM(substr(l_msg_text,l_start_pos,(l_end_pos-l_start_pos)));
2378:
2379: l_token_value := TRIM(substr(l_msg_text,l_end_pos));
2380:
2381: IF d_stmt THEN
2382: PO_LOG.stmt(d_mod,d_position,'l_token_name',l_token_name);
2383: PO_LOG.stmt(d_mod,d_position,'l_token_value',l_token_value);
2384: END IF;
2385: END IF;
2386:
2379: l_token_value := TRIM(substr(l_msg_text,l_end_pos));
2380:
2381: IF d_stmt THEN
2382: PO_LOG.stmt(d_mod,d_position,'l_token_name',l_token_name);
2383: PO_LOG.stmt(d_mod,d_position,'l_token_value',l_token_value);
2384: END IF;
2385: END IF;
2386:
2387: d_position := 100;
2408: ELSE
2409: x_result_type := c_result_type_SUCCESS;
2410: END IF;
2411:
2412: IF PO_LOG.d_proc THEN
2413: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2414: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2415: END IF;
2416:
2409: x_result_type := c_result_type_SUCCESS;
2410: END IF;
2411:
2412: IF PO_LOG.d_proc THEN
2413: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2414: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2415: END IF;
2416:
2417: EXCEPTION
2410: END IF;
2411:
2412: IF PO_LOG.d_proc THEN
2413: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2414: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2415: END IF;
2416:
2417: EXCEPTION
2418: WHEN OTHERS THEN
2415: END IF;
2416:
2417: EXCEPTION
2418: WHEN OTHERS THEN
2419: IF PO_LOG.d_exc THEN
2420: PO_FED_FIELD_FUNCTIONS.g_is_multi_mod_context := 'N';-- reset Multi-Mod Context
2421: PO_LOG.exc(d_mod,d_position,NULL);
2422: END IF;
2423: RAISE;
2417: EXCEPTION
2418: WHEN OTHERS THEN
2419: IF PO_LOG.d_exc THEN
2420: PO_FED_FIELD_FUNCTIONS.g_is_multi_mod_context := 'N';-- reset Multi-Mod Context
2421: PO_LOG.exc(d_mod,d_position,NULL);
2422: END IF;
2423: RAISE;
2424:
2425: END uda_addresses_valid;
2459: l_results_count NUMBER;
2460: l_ko_sign_required VARCHAR2(1);
2461: d_mod CONSTANT VARCHAR2(100) := D_contract_officer_provided;
2462: d_position NUMBER := 0;
2463: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2464:
2465: BEGIN
2466: IF PO_LOG.d_proc THEN
2467: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2462: d_position NUMBER := 0;
2463: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2464:
2465: BEGIN
2466: IF PO_LOG.d_proc THEN
2467: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2468: PO_LOG.proc_begin(d_mod,'p_clm_contract_officer',p_clm_contract_officer);
2469: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2470: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2463: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2464:
2465: BEGIN
2466: IF PO_LOG.d_proc THEN
2467: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2468: PO_LOG.proc_begin(d_mod,'p_clm_contract_officer',p_clm_contract_officer);
2469: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2470: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2471: END IF;
2464:
2465: BEGIN
2466: IF PO_LOG.d_proc THEN
2467: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2468: PO_LOG.proc_begin(d_mod,'p_clm_contract_officer',p_clm_contract_officer);
2469: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2470: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2471: END IF;
2472:
2465: BEGIN
2466: IF PO_LOG.d_proc THEN
2467: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2468: PO_LOG.proc_begin(d_mod,'p_clm_contract_officer',p_clm_contract_officer);
2469: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2470: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2471: END IF;
2472:
2473: IF (x_results IS NULL) THEN
2466: IF PO_LOG.d_proc THEN
2467: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2468: PO_LOG.proc_begin(d_mod,'p_clm_contract_officer',p_clm_contract_officer);
2469: PO_LOG.proc_begin(d_mod,'p_validation_type',p_validation_type);
2470: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
2471: END IF;
2472:
2473: IF (x_results IS NULL) THEN
2474: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
2475: END IF;
2476:
2477: l_results_count := x_results.result_type.COUNT;
2478: IF d_stmt THEN
2479: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
2480: END IF;
2481:
2482: d_position := 10;
2483: -- CLM Controls Project Changes
2508: ELSE
2509: x_result_type := c_result_type_SUCCESS;
2510: END IF;
2511:
2512: IF PO_LOG.d_proc THEN
2513: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2514: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2515: END IF;
2516:
2509: x_result_type := c_result_type_SUCCESS;
2510: END IF;
2511:
2512: IF PO_LOG.d_proc THEN
2513: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2514: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2515: END IF;
2516:
2517: EXCEPTION
2510: END IF;
2511:
2512: IF PO_LOG.d_proc THEN
2513: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2514: --PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
2515: END IF;
2516:
2517: EXCEPTION
2518: WHEN OTHERS THEN
2515: END IF;
2516:
2517: EXCEPTION
2518: WHEN OTHERS THEN
2519: IF PO_LOG.d_exc THEN
2520: PO_LOG.exc(d_mod,d_position,NULL);
2521: END IF;
2522: RAISE;
2523:
2516:
2517: EXCEPTION
2518: WHEN OTHERS THEN
2519: IF PO_LOG.d_exc THEN
2520: PO_LOG.exc(d_mod,d_position,NULL);
2521: END IF;
2522: RAISE;
2523:
2524: END contract_officer_provided;
2542: l_has_address_changed VARCHAR2(1) := 'N';
2543: l_sum_check NUMBER;
2544: d_mod CONSTANT VARCHAR2(100) := D_has_address_changed;
2545: d_position NUMBER := 0;
2546: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2547: l_addr_attr_group_id NUMBER;
2548:
2549: BEGIN
2550: IF PO_LOG.d_proc THEN
2546: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2547: l_addr_attr_group_id NUMBER;
2548:
2549: BEGIN
2550: IF PO_LOG.d_proc THEN
2551: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2552: END IF;
2553: d_position := 10;
2554: BEGIN
2547: l_addr_attr_group_id NUMBER;
2548:
2549: BEGIN
2550: IF PO_LOG.d_proc THEN
2551: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2552: END IF;
2553: d_position := 10;
2554: BEGIN
2555: SELECT attr_group_id
2584: l_sum_check := 0;
2585: END;
2586:
2587: IF d_stmt THEN
2588: PO_LOG.stmt(d_mod,d_position,'l_sum_check',l_sum_check);
2589: END IF;
2590:
2591: d_position := 20;
2592: IF l_sum_check >0 THEN
2593: l_has_address_changed := 'Y';
2594: END IF;
2595:
2596: IF d_stmt THEN
2597: PO_LOG.stmt(d_mod,d_position,'l_has_address_changed',l_has_address_changed);
2598: END IF;
2599:
2600: RETURN l_has_address_changed;
2601:
2600: RETURN l_has_address_changed;
2601:
2602: EXCEPTION
2603: WHEN OTHERS THEN
2604: IF PO_LOG.d_exc THEN
2605: PO_LOG.exc(d_mod,d_position,NULL);
2606: END IF;
2607: RAISE;
2608:
2601:
2602: EXCEPTION
2603: WHEN OTHERS THEN
2604: IF PO_LOG.d_exc THEN
2605: PO_LOG.exc(d_mod,d_position,NULL);
2606: END IF;
2607: RAISE;
2608:
2609: END has_address_changed;
2625: IS
2626: l_has_clause_changed VARCHAR2(1) := 'N';
2627: d_mod CONSTANT VARCHAR2(100) := D_has_clause_changed;
2628: d_position NUMBER := 0;
2629: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2630: l_count NUMBER;
2631:
2632: BEGIN
2633:
2630: l_count NUMBER;
2631:
2632: BEGIN
2633:
2634: IF PO_LOG.d_proc THEN
2635: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2636: END IF;
2637: IF d_stmt THEN
2638: PO_LOG.stmt(d_mod,d_position,'l_has_clause_changed',l_has_clause_changed);
2631:
2632: BEGIN
2633:
2634: IF PO_LOG.d_proc THEN
2635: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2636: END IF;
2637: IF d_stmt THEN
2638: PO_LOG.stmt(d_mod,d_position,'l_has_clause_changed',l_has_clause_changed);
2639: END IF;
2634: IF PO_LOG.d_proc THEN
2635: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2636: END IF;
2637: IF d_stmt THEN
2638: PO_LOG.stmt(d_mod,d_position,'l_has_clause_changed',l_has_clause_changed);
2639: END IF;
2640:
2641: BEGIN
2642:
2657: RETURN l_has_clause_changed;
2658:
2659: EXCEPTION
2660: WHEN OTHERS THEN
2661: IF PO_LOG.d_exc THEN
2662: PO_LOG.exc(d_mod,d_position,NULL);
2663: END IF;
2664: RAISE;
2665:
2658:
2659: EXCEPTION
2660: WHEN OTHERS THEN
2661: IF PO_LOG.d_exc THEN
2662: PO_LOG.exc(d_mod,d_position,NULL);
2663: END IF;
2664: RAISE;
2665:
2666: END has_clause_changed;
2687: l_has_vendor_changed VARCHAR2(1) := 'N';
2688: d_mod CONSTANT VARCHAR2(100) := D_has_vendor_changed;
2689: d_position NUMBER := 0;
2690: l_multi_mod_request_type PO_MULTI_MOD_REQUESTS.multi_mod_request_type%TYPE;
2691: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2692:
2693: BEGIN
2694:
2695: IF PO_LOG.d_proc THEN
2691: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2692:
2693: BEGIN
2694:
2695: IF PO_LOG.d_proc THEN
2696: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2697: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2698: END IF;
2699:
2692:
2693: BEGIN
2694:
2695: IF PO_LOG.d_proc THEN
2696: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2697: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2698: END IF;
2699:
2700: d_position := 10;
2693: BEGIN
2694:
2695: IF PO_LOG.d_proc THEN
2696: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2697: PO_LOG.proc_begin(d_mod,'p_change_id_tbl',p_change_id_tbl);
2698: END IF;
2699:
2700: d_position := 10;
2701: BEGIN
2708: l_multi_mod_request_type := null;
2709: END;
2710:
2711: IF d_stmt THEN
2712: PO_LOG.stmt(d_mod,d_position,'l_multi_mod_request_type',l_multi_mod_request_type);
2713: END IF;
2714:
2715: d_position := 20;
2716: IF l_multi_mod_request_type IN ('VENDOR_CHANGE', 'VENDOR_NAME_CHANGE')
2719: l_has_vendor_changed := 'Y';
2720: END IF;
2721:
2722: IF d_stmt THEN
2723: PO_LOG.stmt(d_mod,d_position,'l_has_vendor_changed',l_has_vendor_changed);
2724: END IF;
2725:
2726: RETURN l_has_vendor_changed;
2727:
2726: RETURN l_has_vendor_changed;
2727:
2728: EXCEPTION
2729: WHEN OTHERS THEN
2730: IF PO_LOG.d_exc THEN
2731: PO_LOG.exc(d_mod,d_position,NULL);
2732: END IF;
2733: RAISE;
2734:
2727:
2728: EXCEPTION
2729: WHEN OTHERS THEN
2730: IF PO_LOG.d_exc THEN
2731: PO_LOG.exc(d_mod,d_position,NULL);
2732: END IF;
2733: RAISE;
2734:
2735: END has_vendor_changed;
2763: d_position NUMBER := 0;
2764: l_document_num_tbl PO_TBL_VARCHAR100;
2765: l_modification_num_tbl PO_TBL_VARCHAR100;
2766: BEGIN
2767: IF PO_LOG.d_proc THEN
2768: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2769: END IF;
2770:
2771: l_results_count := x_results.result_type.COUNT;
2764: l_document_num_tbl PO_TBL_VARCHAR100;
2765: l_modification_num_tbl PO_TBL_VARCHAR100;
2766: BEGIN
2767: IF PO_LOG.d_proc THEN
2768: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2769: END IF;
2770:
2771: l_results_count := x_results.result_type.COUNT;
2772:
2786: AND pdsh.style_id = pha.style_id
2787: AND Nvl(pdsh.conc_mods_enabled_flag, 'N') = 'Y';
2788:
2789: d_position := 10;
2790: IF PO_LOG.d_proc THEN
2791: PO_LOG.stmt(d_mod, d_position, 'l_document_num_tbl: ', l_document_num_tbl);
2792: END IF;
2793:
2794: FOR i IN 1..l_document_id_tbl.Count() LOOP
2787: AND Nvl(pdsh.conc_mods_enabled_flag, 'N') = 'Y';
2788:
2789: d_position := 10;
2790: IF PO_LOG.d_proc THEN
2791: PO_LOG.stmt(d_mod, d_position, 'l_document_num_tbl: ', l_document_num_tbl);
2792: END IF;
2793:
2794: FOR i IN 1..l_document_id_tbl.Count() LOOP
2795:
2815: END IF;
2816:
2817: EXCEPTION
2818: WHEN OTHERS THEN
2819: IF PO_LOG.d_exc THEN
2820: PO_LOG.exc(d_mod,d_position,NULL);
2821: END IF;
2822: RAISE;
2823: END header_lock_compatible;
2816:
2817: EXCEPTION
2818: WHEN OTHERS THEN
2819: IF PO_LOG.d_exc THEN
2820: PO_LOG.exc(d_mod,d_position,NULL);
2821: END IF;
2822: RAISE;
2823: END header_lock_compatible;
2824:
2844: , x_result_type OUT NOCOPY VARCHAR2
2845: , x_results IN OUT NOCOPY PO_MULTI_MOD_VAL_RESULTS_TYPE)
2846: IS
2847: d_position NUMBER := 0;
2848: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
2849: d_mod CONSTANT VARCHAR2(2000) := D_address_lock_compatible;
2850: l_addr_attr_group_id NUMBER;
2851: l_address_code_tbl PO_TBL_VARCHAR2000;
2852: l_sum_check_tbl PO_TBL_NUMBER;
2855: l_document_number_tbl PO_TBL_VARCHAR100;
2856: l_results_count NUMBER;
2857: BEGIN
2858:
2859: IF PO_LOG.d_proc THEN
2860: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2861: END IF;
2862:
2863: l_results_count := x_results.result_type.COUNT;
2856: l_results_count NUMBER;
2857: BEGIN
2858:
2859: IF PO_LOG.d_proc THEN
2860: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
2861: END IF;
2862:
2863: l_results_count := x_results.result_type.COUNT;
2864:
2913: GROUP BY ext.c_ext_attr39, pha.clm_document_number, pd.modification_number;
2914:
2915: d_position := 10;
2916:
2917: IF PO_LOG.d_proc THEN
2918: PO_LOG.stmt(d_mod, d_position, 'l_document_number_tbl: ', l_document_number_tbl);
2919: END IF;
2920:
2921: FOR i IN 1..l_sum_check_tbl.Count() LOOP
2914:
2915: d_position := 10;
2916:
2917: IF PO_LOG.d_proc THEN
2918: PO_LOG.stmt(d_mod, d_position, 'l_document_number_tbl: ', l_document_number_tbl);
2919: END IF;
2920:
2921: FOR i IN 1..l_sum_check_tbl.Count() LOOP
2922:
2946: END IF;
2947:
2948: EXCEPTION
2949: WHEN OTHERS THEN
2950: IF PO_LOG.d_exc THEN
2951: PO_LOG.exc(d_mod,d_position,NULL);
2952: END IF;
2953: RAISE;
2954: END address_lock_compatible;
2947:
2948: EXCEPTION
2949: WHEN OTHERS THEN
2950: IF PO_LOG.d_exc THEN
2951: PO_LOG.exc(d_mod,d_position,NULL);
2952: END IF;
2953: RAISE;
2954: END address_lock_compatible;
2955:
2982: l_mod_exists VARCHAR2(1);
2983: d_position NUMBER := 0;
2984: l_results_count NUMBER;
2985: BEGIN
2986: IF PO_LOG.d_proc THEN
2987: PO_LOG.proc_begin(d_mod,'p_request_id ',p_request_id);
2988: END IF;
2989:
2990: l_results_count := x_results.result_type.COUNT;
2983: d_position NUMBER := 0;
2984: l_results_count NUMBER;
2985: BEGIN
2986: IF PO_LOG.d_proc THEN
2987: PO_LOG.proc_begin(d_mod,'p_request_id ',p_request_id);
2988: END IF;
2989:
2990: l_results_count := x_results.result_type.COUNT;
2991:
3005: AND dft.status IN ('DRAFT', 'IN PROCESS', 'REJECTED', 'SUPPLIER SIGN', 'PRE-APPROVED'));
3006:
3007: d_position := 10;
3008:
3009: IF PO_LOG.d_proc THEN
3010: PO_LOG.stmt(d_mod, d_position, 'l_document_num_tbl: ', l_document_num_tbl);
3011: END IF;
3012:
3013: FOR i IN 1..l_document_num_tbl.Count() LOOP
3006:
3007: d_position := 10;
3008:
3009: IF PO_LOG.d_proc THEN
3010: PO_LOG.stmt(d_mod, d_position, 'l_document_num_tbl: ', l_document_num_tbl);
3011: END IF;
3012:
3013: FOR i IN 1..l_document_num_tbl.Count() LOOP
3014:
3031: END IF;
3032:
3033: EXCEPTION
3034: WHEN OTHERS THEN
3035: IF PO_LOG.d_exc THEN
3036: PO_LOG.exc(d_mod,d_position,NULL);
3037: END IF;
3038: RAISE;
3039: END validate_open_mod;
3032:
3033: EXCEPTION
3034: WHEN OTHERS THEN
3035: IF PO_LOG.d_exc THEN
3036: PO_LOG.exc(d_mod,d_position,NULL);
3037: END IF;
3038: RAISE;
3039: END validate_open_mod;
3040:
3072: is
3073: l_results_count NUMBER;
3074: d_mod CONSTANT VARCHAR2(100) := D_generate_idv_exceptions;
3075: d_position NUMBER := 0;
3076: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
3077: l_document_id_tbl PO_TBL_NUMBER;
3078: l_document_number_tbl PO_TBL_VARCHAR50;
3079: l_related_document_id_tbl PO_TBL_NUMBER;
3080: l_related_doc_number_tbl PO_TBL_VARCHAR50;
3080: l_related_doc_number_tbl PO_TBL_VARCHAR50;
3081:
3082:
3083: BEGIN
3084: IF PO_LOG.d_proc THEN
3085: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3086: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3087: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3088: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3081:
3082:
3083: BEGIN
3084: IF PO_LOG.d_proc THEN
3085: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3086: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3087: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3088: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3089: END IF;
3082:
3083: BEGIN
3084: IF PO_LOG.d_proc THEN
3085: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3086: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3087: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3088: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3089: END IF;
3090:
3083: BEGIN
3084: IF PO_LOG.d_proc THEN
3085: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3086: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3087: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3088: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3089: END IF;
3090:
3091: IF (x_results IS NULL) THEN
3084: IF PO_LOG.d_proc THEN
3085: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3086: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3087: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3088: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3089: END IF;
3090:
3091: IF (x_results IS NULL) THEN
3092: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
3095: d_position := 10;
3096:
3097: l_results_count := x_results.result_type.COUNT;
3098: IF d_stmt THEN
3099: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
3100: END IF;
3101:
3102: d_position := 20;
3103:
3147: ELSE
3148: x_result_type := c_result_type_SUCCESS;
3149: END IF;
3150:
3151: IF PO_LOG.d_proc THEN
3152: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3153: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3154: END IF;
3155:
3148: x_result_type := c_result_type_SUCCESS;
3149: END IF;
3150:
3151: IF PO_LOG.d_proc THEN
3152: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3153: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3154: END IF;
3155:
3156: EXCEPTION
3149: END IF;
3150:
3151: IF PO_LOG.d_proc THEN
3152: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3153: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3154: END IF;
3155:
3156: EXCEPTION
3157: WHEN OTHERS THEN
3155:
3156: EXCEPTION
3157: WHEN OTHERS THEN
3158: x_result_type := c_result_type_FAILURE;
3159: IF PO_LOG.d_exc THEN
3160: PO_LOG.exc(d_mod,d_position,NULL);
3161: END IF;
3162: RAISE;
3163:
3156: EXCEPTION
3157: WHEN OTHERS THEN
3158: x_result_type := c_result_type_FAILURE;
3159: IF PO_LOG.d_exc THEN
3160: PO_LOG.exc(d_mod,d_position,NULL);
3161: END IF;
3162: RAISE;
3163:
3164: END generate_idv_exceptions;
3194: is
3195: l_results_count NUMBER;
3196: d_mod CONSTANT VARCHAR2(100) := D_generate_award_exceptions;
3197: d_position NUMBER := 0;
3198: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
3199: /*l_clm_document_number PO_HEADERS_ALL.clm_document_number%TYPE;
3200: l_clm_source_document_id PO_HEADERS_ALL.clm_source_document_id%TYPE;
3201: l_idv_exists VARCHAR2(1) := 'N';
3202: l_type_lookup_code PO_HEADERS_ALL.type_lookup_code%TYPE;
3206: l_related_document_id_tbl PO_TBL_NUMBER;
3207: l_related_doc_number_tbl PO_TBL_VARCHAR50;
3208:
3209: BEGIN
3210: IF PO_LOG.d_proc THEN
3211: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3212: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3213: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3214: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3207: l_related_doc_number_tbl PO_TBL_VARCHAR50;
3208:
3209: BEGIN
3210: IF PO_LOG.d_proc THEN
3211: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3212: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3213: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3214: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3215: END IF;
3208:
3209: BEGIN
3210: IF PO_LOG.d_proc THEN
3211: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3212: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3213: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3214: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3215: END IF;
3216:
3209: BEGIN
3210: IF PO_LOG.d_proc THEN
3211: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3212: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3213: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3214: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3215: END IF;
3216:
3217: IF (x_results IS NULL) THEN
3210: IF PO_LOG.d_proc THEN
3211: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3212: --PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3213: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3214: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3215: END IF;
3216:
3217: IF (x_results IS NULL) THEN
3218: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
3221: d_position := 10;
3222:
3223: l_results_count := x_results.result_type.COUNT;
3224: IF d_stmt THEN
3225: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
3226: END IF;
3227:
3228: d_position := 20;
3229:
3272: ELSE
3273: x_result_type := c_result_type_SUCCESS;
3274: END IF;
3275:
3276: IF PO_LOG.d_proc THEN
3277: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3278: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3279: END IF;
3280:
3273: x_result_type := c_result_type_SUCCESS;
3274: END IF;
3275:
3276: IF PO_LOG.d_proc THEN
3277: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3278: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3279: END IF;
3280:
3281: EXCEPTION
3274: END IF;
3275:
3276: IF PO_LOG.d_proc THEN
3277: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3278: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3279: END IF;
3280:
3281: EXCEPTION
3282: WHEN OTHERS THEN
3280:
3281: EXCEPTION
3282: WHEN OTHERS THEN
3283: x_result_type := c_result_type_FAILURE;
3284: IF PO_LOG.d_exc THEN
3285: PO_LOG.exc(d_mod,d_position,NULL);
3286: END IF;
3287: RAISE;
3288:
3281: EXCEPTION
3282: WHEN OTHERS THEN
3283: x_result_type := c_result_type_FAILURE;
3284: IF PO_LOG.d_exc THEN
3285: PO_LOG.exc(d_mod,d_position,NULL);
3286: END IF;
3287: RAISE;
3288:
3289: END generate_award_exceptions;
3320: is
3321: l_results_count NUMBER;
3322: d_mod CONSTANT VARCHAR2(100) := D_generate_receipts_exceptions;
3323: d_position NUMBER := 0;
3324: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
3325: l_match_option PO_LINE_LOCATIONS_ALL.match_option%TYPE;
3326: l_inspection_required_flag PO_LINE_LOCATIONS_ALL.inspection_required_flag%TYPE;
3327: l_receipt_required_flag PO_LINE_LOCATIONS_ALL.receipt_required_flag%TYPE;
3328: l_shipment_line_id_tbl PO_TBL_NUMBER;
3339: l_return_status VARCHAR2(10);
3340: l_error_msg VARCHAR2(100);
3341:
3342: BEGIN
3343: IF PO_LOG.d_proc THEN
3344: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3345: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3346: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3347: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3340: l_error_msg VARCHAR2(100);
3341:
3342: BEGIN
3343: IF PO_LOG.d_proc THEN
3344: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3345: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3346: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3347: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3348: END IF;
3341:
3342: BEGIN
3343: IF PO_LOG.d_proc THEN
3344: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3345: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3346: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3347: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3348: END IF;
3349:
3342: BEGIN
3343: IF PO_LOG.d_proc THEN
3344: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3345: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3346: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3347: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3348: END IF;
3349:
3350: IF (x_results IS NULL) THEN
3343: IF PO_LOG.d_proc THEN
3344: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3345: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3346: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3347: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3348: END IF;
3349:
3350: IF (x_results IS NULL) THEN
3351: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
3354: d_position := 10;
3355:
3356: l_results_count := x_results.result_type.COUNT;
3357: IF d_stmt THEN
3358: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
3359: END IF;
3360:
3361: d_position := 20;
3362:
3364:
3365: d_position := 30;
3366:
3367: IF d_stmt THEN
3368: PO_LOG.stmt(d_mod,d_position,'p_document_id_tbl',p_document_id_tbl(i));
3369: END IF;
3370:
3371: BEGIN
3372: SELECT shipment_line_id
3378: l_shipment_line_id_tbl := null;
3379: END;
3380:
3381: IF d_stmt THEN
3382: PO_LOG.stmt(d_mod,d_position,'l_shipment_line_id_tbl',l_shipment_line_id_tbl);
3383: END IF;
3384:
3385: IF l_shipment_line_id_tbl.COUNT > 0 THEN
3386:
3387: FOR i IN 1..l_shipment_line_id_tbl.COUNT LOOP
3388:
3389: d_position := 50;
3390: IF d_stmt THEN
3391: PO_LOG.stmt(d_mod,d_position,'l_shipment_line_id_tbl',l_shipment_line_id_tbl(i));
3392: END IF;
3393:
3394: SELECT rcvh.shipment_header_id
3395: ,rcvh.receipt_num
3426: AND rsl.shipment_line_id = l_shipment_line_id_tbl(i);
3427: END IF;
3428:
3429: IF d_stmt THEN
3430: PO_LOG.stmt(d_mod,d_position,'l_shipment_header_id',l_shipment_header_id);
3431: PO_LOG.stmt(d_mod,d_position,'l_receipt_num',l_receipt_num);
3432: PO_LOG.stmt(d_mod,d_position,'l_receipt_date',l_receipt_date);
3433: PO_LOG.stmt(d_mod,d_position,'l_receipt_amount',l_receipt_amount);
3434: END IF;
3427: END IF;
3428:
3429: IF d_stmt THEN
3430: PO_LOG.stmt(d_mod,d_position,'l_shipment_header_id',l_shipment_header_id);
3431: PO_LOG.stmt(d_mod,d_position,'l_receipt_num',l_receipt_num);
3432: PO_LOG.stmt(d_mod,d_position,'l_receipt_date',l_receipt_date);
3433: PO_LOG.stmt(d_mod,d_position,'l_receipt_amount',l_receipt_amount);
3434: END IF;
3435: d_position := 60;
3428:
3429: IF d_stmt THEN
3430: PO_LOG.stmt(d_mod,d_position,'l_shipment_header_id',l_shipment_header_id);
3431: PO_LOG.stmt(d_mod,d_position,'l_receipt_num',l_receipt_num);
3432: PO_LOG.stmt(d_mod,d_position,'l_receipt_date',l_receipt_date);
3433: PO_LOG.stmt(d_mod,d_position,'l_receipt_amount',l_receipt_amount);
3434: END IF;
3435: d_position := 60;
3436: -- if receipts exists for the PO check if corresponding invoices exists.
3429: IF d_stmt THEN
3430: PO_LOG.stmt(d_mod,d_position,'l_shipment_header_id',l_shipment_header_id);
3431: PO_LOG.stmt(d_mod,d_position,'l_receipt_num',l_receipt_num);
3432: PO_LOG.stmt(d_mod,d_position,'l_receipt_date',l_receipt_date);
3433: PO_LOG.stmt(d_mod,d_position,'l_receipt_amount',l_receipt_amount);
3434: END IF;
3435: d_position := 60;
3436: -- if receipts exists for the PO check if corresponding invoices exists.
3437: IF check_match_exists(l_shipment_line_id_tbl(i)) THEN
3496: END;
3497:
3498:
3499: IF d_stmt THEN
3500: PO_LOG.stmt(d_mod,d_position,'l_vendor_id',l_vendor_id);
3501: END IF;
3502: RCV_VALIDATE_PO.validate_novation_receipts( p_request_id => p_request_id,
3503: p_vendor_id => l_vendor_id,
3504: p_novation_date => p_novation_effective_date,
3509: x_error_msg => l_error_msg
3510: );
3511:
3512: IF d_stmt THEN
3513: PO_LOG.stmt(d_mod,d_position,'l_return_status',l_return_status);
3514: END IF;
3515:
3516: d_position := 110;
3517: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3516: d_position := 110;
3517: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3518: FOR i IN 1..l_results.result_type.COUNT LOOP
3519: IF d_stmt THEN
3520: PO_LOG.stmt(d_mod,d_position,'i',i);
3521: END IF;
3522: IF l_results.exception_type(i) = 'PO_SUPCHG_UNINV_RCV' AND l_results.message_name(i) IS NULL THEN
3523:
3524: BEGIN
3540: l_receipt_required_flag := null;
3541: END;
3542:
3543: IF d_stmt THEN
3544: PO_LOG.stmt(d_mod,d_position,'l_match_option',l_match_option);
3545: PO_LOG.stmt(d_mod,d_position,'l_inspection_required_flag',l_inspection_required_flag);
3546: PO_LOG.stmt(d_mod,d_position,'l_receipt_required_flag',l_receipt_required_flag);
3547: END IF;
3548:
3541: END;
3542:
3543: IF d_stmt THEN
3544: PO_LOG.stmt(d_mod,d_position,'l_match_option',l_match_option);
3545: PO_LOG.stmt(d_mod,d_position,'l_inspection_required_flag',l_inspection_required_flag);
3546: PO_LOG.stmt(d_mod,d_position,'l_receipt_required_flag',l_receipt_required_flag);
3547: END IF;
3548:
3549: d_position := 120;
3542:
3543: IF d_stmt THEN
3544: PO_LOG.stmt(d_mod,d_position,'l_match_option',l_match_option);
3545: PO_LOG.stmt(d_mod,d_position,'l_inspection_required_flag',l_inspection_required_flag);
3546: PO_LOG.stmt(d_mod,d_position,'l_receipt_required_flag',l_receipt_required_flag);
3547: END IF;
3548:
3549: d_position := 120;
3550:
3621: , p_message_name => l_results.message_name(i)
3622: );
3623:
3624: IF d_stmt THEN
3625: PO_LOG.stmt(d_mod,d_position,'l_results.exception_type(i)',l_results.exception_type(i));
3626: END IF;
3627: END IF; --if l_results.exception_type(i) = 'PO_SUPCHG_UNINV_RCV'
3628: END LOOP;
3629: END IF; --if x_return_status
3629: END IF; --if x_return_status
3630:
3631: d_position := 140;
3632: IF d_stmt THEN
3633: PO_LOG.stmt(d_mod,d_position,'x_results.result_type.COUNT',x_results.result_type.COUNT);
3634: END IF;
3635: IF l_results_count < x_results.result_type.COUNT THEN
3636: x_result_type := c_result_type_FAILURE;
3637: ELSE
3637: ELSE
3638: x_result_type := c_result_type_SUCCESS;
3639: END IF;
3640:
3641: IF PO_LOG.d_proc THEN
3642: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3643: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3644: END IF;
3645:
3638: x_result_type := c_result_type_SUCCESS;
3639: END IF;
3640:
3641: IF PO_LOG.d_proc THEN
3642: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3643: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3644: END IF;
3645:
3646: EXCEPTION
3639: END IF;
3640:
3641: IF PO_LOG.d_proc THEN
3642: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3643: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3644: END IF;
3645:
3646: EXCEPTION
3647: WHEN OTHERS THEN
3644: END IF;
3645:
3646: EXCEPTION
3647: WHEN OTHERS THEN
3648: IF PO_LOG.d_exc THEN
3649: PO_LOG.exc(d_mod,d_position,NULL);
3650: END IF;
3651: RAISE;
3652:
3645:
3646: EXCEPTION
3647: WHEN OTHERS THEN
3648: IF PO_LOG.d_exc THEN
3649: PO_LOG.exc(d_mod,d_position,NULL);
3650: END IF;
3651: RAISE;
3652:
3653: END generate_receipts_exceptions;
3683: is
3684: l_results_count NUMBER;
3685: d_mod CONSTANT VARCHAR2(100) := D_generate_invoice_exceptions;
3686: d_position NUMBER := 0;
3687: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
3688: l_invoice_id_tbl PO_TBL_NUMBER;
3689: l_invoice_num_tbl PO_TBL_VARCHAR50;
3690: l_invoice_date_tbl PO_TBL_DATE;
3691: l_invoice_amount_tbl PO_TBL_NUMBER;
3697: l_document_id NUMBER;
3698: l_multi_mod_doc_id NUMBER;
3699:
3700: BEGIN
3701: IF PO_LOG.d_proc THEN
3702: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3703: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3704: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3705: PO_LOG.proc_begin(d_mod,'p_novation_effective_date',p_novation_effective_date);
3698: l_multi_mod_doc_id NUMBER;
3699:
3700: BEGIN
3701: IF PO_LOG.d_proc THEN
3702: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3703: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3704: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3705: PO_LOG.proc_begin(d_mod,'p_novation_effective_date',p_novation_effective_date);
3706: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3699:
3700: BEGIN
3701: IF PO_LOG.d_proc THEN
3702: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3703: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3704: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3705: PO_LOG.proc_begin(d_mod,'p_novation_effective_date',p_novation_effective_date);
3706: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3707: END IF;
3700: BEGIN
3701: IF PO_LOG.d_proc THEN
3702: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3703: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3704: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3705: PO_LOG.proc_begin(d_mod,'p_novation_effective_date',p_novation_effective_date);
3706: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3707: END IF;
3708:
3701: IF PO_LOG.d_proc THEN
3702: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3703: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3704: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3705: PO_LOG.proc_begin(d_mod,'p_novation_effective_date',p_novation_effective_date);
3706: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3707: END IF;
3708:
3709: IF (x_results IS NULL) THEN
3702: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
3703: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
3704: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
3705: PO_LOG.proc_begin(d_mod,'p_novation_effective_date',p_novation_effective_date);
3706: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
3707: END IF;
3708:
3709: IF (x_results IS NULL) THEN
3710: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
3713: d_position := 10;
3714:
3715: l_results_count := x_results.result_type.COUNT;
3716: IF d_stmt THEN
3717: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
3718: END IF;
3719:
3720: d_position := 20;
3721:
3721:
3722: FOR i IN 1..p_document_id_tbl.COUNT LOOP
3723:
3724: IF d_stmt THEN
3725: PO_LOG.stmt(d_mod,d_position,'p_document_id_tbl',p_document_id_tbl(i));
3726: END IF;
3727:
3728: l_document_id := p_document_id_tbl(i);
3729: l_multi_mod_doc_id := p_multi_mod_doc_id_tbl(i);
3746: l_invoice_amount_tbl := null;
3747: END;
3748:
3749: IF d_stmt THEN
3750: PO_LOG.stmt(d_mod,d_position,'l_invoice_id_tbl',l_invoice_id_tbl);
3751: END IF;
3752:
3753:
3754: IF l_invoice_id_tbl.COUNT > 0 THEN
3836: l_vendor_id := null;
3837: END;
3838:
3839: IF d_stmt THEN
3840: PO_LOG.stmt(d_mod,d_position,'l_vendor_id',l_vendor_id);
3841: END IF;
3842: --bug 13084712 start
3843: -- for the vendor level checks the atleast one invoice number and details need to be shown in the exceptions report
3844: l_invoice_id_tbl := null;
3931: ELSE
3932: x_result_type := c_result_type_SUCCESS;
3933: END IF;
3934:
3935: IF PO_LOG.d_proc THEN
3936: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3937: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3938: END IF;
3939:
3932: x_result_type := c_result_type_SUCCESS;
3933: END IF;
3934:
3935: IF PO_LOG.d_proc THEN
3936: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3937: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3938: END IF;
3939:
3940: EXCEPTION
3933: END IF;
3934:
3935: IF PO_LOG.d_proc THEN
3936: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3937: -- PO_LOG.log(PO_LOG.c_PROC_END,d_mod,d_position,'x_results',x_results);
3938: END IF;
3939:
3940: EXCEPTION
3941: WHEN OTHERS THEN
3939:
3940: EXCEPTION
3941: WHEN OTHERS THEN
3942: x_result_type := c_result_type_FAILURE;
3943: IF PO_LOG.d_exc THEN
3944: PO_LOG.exc(d_mod,d_position,NULL);
3945: END IF;
3946: RAISE;
3947:
3940: EXCEPTION
3941: WHEN OTHERS THEN
3942: x_result_type := c_result_type_FAILURE;
3943: IF PO_LOG.d_exc THEN
3944: PO_LOG.exc(d_mod,d_position,NULL);
3945: END IF;
3946: RAISE;
3947:
3948: END generate_invoice_exceptions;
3962: RETURN BOOLEAN
3963: IS
3964: d_mod CONSTANT VARCHAR2(100) := D_unpaid_invoices_exists;
3965: d_position NUMBER := 0;
3966: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
3967: l_unpaid_invoices_exists VARCHAR2(1) := 'Y';
3968: BEGIN
3969:
3970: IF PO_LOG.d_proc THEN
3966: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
3967: l_unpaid_invoices_exists VARCHAR2(1) := 'Y';
3968: BEGIN
3969:
3970: IF PO_LOG.d_proc THEN
3971: PO_LOG.proc_begin(d_mod,'p_invoice_id',p_invoice_id);
3972: END IF;
3973:
3974: d_position := 10;
3967: l_unpaid_invoices_exists VARCHAR2(1) := 'Y';
3968: BEGIN
3969:
3970: IF PO_LOG.d_proc THEN
3971: PO_LOG.proc_begin(d_mod,'p_invoice_id',p_invoice_id);
3972: END IF;
3973:
3974: d_position := 10;
3975: BEGIN
3984: l_unpaid_invoices_exists := 'Y';
3985: END;
3986:
3987: IF d_stmt THEN
3988: PO_LOG.stmt(d_mod,d_position,'l_unpaid_invoices_exists',l_unpaid_invoices_exists);
3989: END IF;
3990:
3991: IF l_unpaid_invoices_exists = 'N' THEN
3992: RETURN FALSE;
3995: END IF;
3996:
3997: EXCEPTION
3998: WHEN OTHERS THEN
3999: IF PO_LOG.d_exc THEN
4000: PO_LOG.exc(d_mod,d_position,NULL);
4001: END IF;
4002: RAISE;
4003: END unpaid_invoices_exists;
3996:
3997: EXCEPTION
3998: WHEN OTHERS THEN
3999: IF PO_LOG.d_exc THEN
4000: PO_LOG.exc(d_mod,d_position,NULL);
4001: END IF;
4002: RAISE;
4003: END unpaid_invoices_exists;
4004:
4022: RETURN BOOLEAN
4023: IS
4024: d_mod CONSTANT VARCHAR2(100) := D_unval_invoices_exists;
4025: d_position NUMBER := 0;
4026: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4027: l_unval_invoice_exists BOOLEAN := TRUE;
4028: BEGIN
4029:
4030: IF PO_LOG.d_proc THEN
4026: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4027: l_unval_invoice_exists BOOLEAN := TRUE;
4028: BEGIN
4029:
4030: IF PO_LOG.d_proc THEN
4031: PO_LOG.proc_begin(d_mod,'p_po_header_id',p_po_header_id);
4032: PO_LOG.proc_begin(d_mod,'p_invoice_id',p_invoice_id);
4033: END IF;
4034:
4027: l_unval_invoice_exists BOOLEAN := TRUE;
4028: BEGIN
4029:
4030: IF PO_LOG.d_proc THEN
4031: PO_LOG.proc_begin(d_mod,'p_po_header_id',p_po_header_id);
4032: PO_LOG.proc_begin(d_mod,'p_invoice_id',p_invoice_id);
4033: END IF;
4034:
4035: d_position := 10;
4028: BEGIN
4029:
4030: IF PO_LOG.d_proc THEN
4031: PO_LOG.proc_begin(d_mod,'p_po_header_id',p_po_header_id);
4032: PO_LOG.proc_begin(d_mod,'p_invoice_id',p_invoice_id);
4033: END IF;
4034:
4035: d_position := 10;
4036:
4045: p_calling_sequence => null
4046: );
4047:
4048: IF d_stmt THEN
4049: PO_LOG.stmt(d_mod,d_position,'l_unval_invoice_exists',l_unval_invoice_exists);
4050: END IF;
4051:
4052: RETURN l_unval_invoice_exists;
4053:
4052: RETURN l_unval_invoice_exists;
4053:
4054: EXCEPTION
4055: WHEN OTHERS THEN
4056: IF PO_LOG.d_exc THEN
4057: PO_LOG.exc(d_mod,d_position,NULL);
4058: END IF;
4059: RAISE;
4060: END unval_invoices_exists;
4053:
4054: EXCEPTION
4055: WHEN OTHERS THEN
4056: IF PO_LOG.d_exc THEN
4057: PO_LOG.exc(d_mod,d_position,NULL);
4058: END IF;
4059: RAISE;
4060: END unval_invoices_exists;
4061:
4077: IS
4078:
4079: d_mod CONSTANT VARCHAR2(100) := D_check_match_exists;
4080: d_position NUMBER := 0;
4081: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4082: l_match_exists VARCHAR2(1) := 'N';
4083:
4084: BEGIN
4085:
4082: l_match_exists VARCHAR2(1) := 'N';
4083:
4084: BEGIN
4085:
4086: IF PO_LOG.d_proc THEN
4087: PO_LOG.proc_begin(d_mod,'p_shipment_line_id',p_shipment_line_id);
4088: END IF;
4089:
4090: d_position := 10;
4083:
4084: BEGIN
4085:
4086: IF PO_LOG.d_proc THEN
4087: PO_LOG.proc_begin(d_mod,'p_shipment_line_id',p_shipment_line_id);
4088: END IF;
4089:
4090: d_position := 10;
4091:
4102: l_match_exists := 'N';
4103: END;
4104:
4105: IF d_stmt THEN
4106: PO_LOG.stmt(d_mod,d_position,'l_match_exists',l_match_exists);
4107: END IF;
4108:
4109: IF l_match_exists = 'Y' THEN
4110: RETURN true;
4113: END IF;
4114:
4115: EXCEPTION
4116: WHEN OTHERS THEN
4117: IF PO_LOG.d_exc THEN
4118: PO_LOG.exc(d_mod,d_position,NULL);
4119: END IF;
4120: RAISE;
4121: END check_match_exists;
4114:
4115: EXCEPTION
4116: WHEN OTHERS THEN
4117: IF PO_LOG.d_exc THEN
4118: PO_LOG.exc(d_mod,d_position,NULL);
4119: END IF;
4120: RAISE;
4121: END check_match_exists;
4122:
4140: RETURN NUMBER
4141: IS
4142: d_mod CONSTANT VARCHAR2(100) := D_get_invoice_id;
4143: d_position NUMBER := 0;
4144: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4145: l_invoice_id NUMBER;
4146: BEGIN
4147:
4148: IF PO_LOG.d_proc THEN
4144: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4145: l_invoice_id NUMBER;
4146: BEGIN
4147:
4148: IF PO_LOG.d_proc THEN
4149: PO_LOG.proc_begin(d_mod,'p_doc_id',p_doc_id);
4150: PO_LOG.proc_begin(d_mod,'p_match_type',p_match_type);
4151: END IF;
4152:
4145: l_invoice_id NUMBER;
4146: BEGIN
4147:
4148: IF PO_LOG.d_proc THEN
4149: PO_LOG.proc_begin(d_mod,'p_doc_id',p_doc_id);
4150: PO_LOG.proc_begin(d_mod,'p_match_type',p_match_type);
4151: END IF;
4152:
4153: d_position := 10;
4146: BEGIN
4147:
4148: IF PO_LOG.d_proc THEN
4149: PO_LOG.proc_begin(d_mod,'p_doc_id',p_doc_id);
4150: PO_LOG.proc_begin(d_mod,'p_match_type',p_match_type);
4151: END IF;
4152:
4153: d_position := 10;
4154: IF p_match_type = 'RECEIPT' THEN
4183:
4184: END IF; --IF p_match_type = 'RECEIPT'
4185:
4186: IF d_stmt THEN
4187: PO_LOG.stmt(d_mod,d_position,'l_invoice_id',l_invoice_id);
4188: END IF;
4189:
4190: RETURN l_invoice_id;
4191:
4190: RETURN l_invoice_id;
4191:
4192: EXCEPTION
4193: WHEN OTHERS THEN
4194: IF PO_LOG.d_exc THEN
4195: PO_LOG.exc(d_mod,d_position,NULL);
4196: END IF;
4197: RAISE;
4198: END get_invoice_id;
4191:
4192: EXCEPTION
4193: WHEN OTHERS THEN
4194: IF PO_LOG.d_exc THEN
4195: PO_LOG.exc(d_mod,d_position,NULL);
4196: END IF;
4197: RAISE;
4198: END get_invoice_id;
4199:
4216: ,x_invoice_date_tbl IN OUT NOCOPY PO_TBL_DATE)
4217: IS
4218: d_mod CONSTANT VARCHAR2(100) := D_unmtch_inv_for_vndr_exists;
4219: d_position NUMBER := 0;
4220: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4221:
4222: BEGIN
4223:
4224: IF PO_LOG.d_proc THEN
4220: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4221:
4222: BEGIN
4223:
4224: IF PO_LOG.d_proc THEN
4225: PO_LOG.proc_begin(d_mod,'p_vendor_id',p_vendor_id);
4226: END IF;
4227:
4228: d_position := 10;
4221:
4222: BEGIN
4223:
4224: IF PO_LOG.d_proc THEN
4225: PO_LOG.proc_begin(d_mod,'p_vendor_id',p_vendor_id);
4226: END IF;
4227:
4228: d_position := 10;
4229: BEGIN
4243: END;
4244:
4245: EXCEPTION
4246: WHEN OTHERS THEN
4247: IF PO_LOG.d_exc THEN
4248: PO_LOG.exc(d_mod,d_position,NULL);
4249: END IF;
4250: RAISE;
4251: END unmtch_inv_for_vndr_exists;
4244:
4245: EXCEPTION
4246: WHEN OTHERS THEN
4247: IF PO_LOG.d_exc THEN
4248: PO_LOG.exc(d_mod,d_position,NULL);
4249: END IF;
4250: RAISE;
4251: END unmtch_inv_for_vndr_exists;
4252:
4271:
4272: IS
4273: d_mod CONSTANT VARCHAR2(100) := D_prepd_inv_for_vndr_exists;
4274: d_position NUMBER := 0;
4275: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4276: l_count NUMBER;
4277: BEGIN
4278:
4279: IF PO_LOG.d_proc THEN
4275: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4276: l_count NUMBER;
4277: BEGIN
4278:
4279: IF PO_LOG.d_proc THEN
4280: PO_LOG.proc_begin(d_mod,'p_vendor_id',p_vendor_id);
4281: END IF;
4282:
4283: d_position := 10;
4276: l_count NUMBER;
4277: BEGIN
4278:
4279: IF PO_LOG.d_proc THEN
4280: PO_LOG.proc_begin(d_mod,'p_vendor_id',p_vendor_id);
4281: END IF;
4282:
4283: d_position := 10;
4284: BEGIN
4302:
4303:
4304: EXCEPTION
4305: WHEN OTHERS THEN
4306: IF PO_LOG.d_exc THEN
4307: PO_LOG.exc(d_mod,d_position,NULL);
4308: END IF;
4309: RAISE;
4310: END prepd_inv_for_vndr_exists;
4303:
4304: EXCEPTION
4305: WHEN OTHERS THEN
4306: IF PO_LOG.d_exc THEN
4307: PO_LOG.exc(d_mod,d_position,NULL);
4308: END IF;
4309: RAISE;
4310: END prepd_inv_for_vndr_exists;
4311:
4330:
4331: IS
4332: d_mod CONSTANT VARCHAR2(100) := D_partpd_inv_for_vndr_exists;
4333: d_position NUMBER := 0;
4334: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4335: l_count NUMBER;
4336: BEGIN
4337:
4338: IF PO_LOG.d_proc THEN
4334: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4335: l_count NUMBER;
4336: BEGIN
4337:
4338: IF PO_LOG.d_proc THEN
4339: PO_LOG.proc_begin(d_mod,'p_vendor_id',p_vendor_id);
4340: END IF;
4341:
4342: d_position := 10;
4335: l_count NUMBER;
4336: BEGIN
4337:
4338: IF PO_LOG.d_proc THEN
4339: PO_LOG.proc_begin(d_mod,'p_vendor_id',p_vendor_id);
4340: END IF;
4341:
4342: d_position := 10;
4343: BEGIN
4360:
4361:
4362: EXCEPTION
4363: WHEN OTHERS THEN
4364: IF PO_LOG.d_exc THEN
4365: PO_LOG.exc(d_mod,d_position,NULL);
4366: END IF;
4367: RAISE;
4368: END partpd_inv_for_vndr_exists;
4361:
4362: EXCEPTION
4363: WHEN OTHERS THEN
4364: IF PO_LOG.d_exc THEN
4365: PO_LOG.exc(d_mod,d_position,NULL);
4366: END IF;
4367: RAISE;
4368: END partpd_inv_for_vndr_exists;
4369:
4386: IS
4387: PRAGMA AUTONOMOUS_TRANSACTION;
4388: d_mod CONSTANT VARCHAR2(100) := D_set_validation_status;
4389: d_position NUMBER := 0;
4390: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4391:
4392: BEGIN
4393: IF PO_LOG.d_proc THEN
4394: PO_LOG.proc_begin(d_mod,'p_multi_mod_request_id',p_multi_mod_request_id);
4389: d_position NUMBER := 0;
4390: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4391:
4392: BEGIN
4393: IF PO_LOG.d_proc THEN
4394: PO_LOG.proc_begin(d_mod,'p_multi_mod_request_id',p_multi_mod_request_id);
4395: PO_LOG.proc_begin(d_mod,'p_validation_status',p_validation_status);
4396: END IF;
4397:
4390: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4391:
4392: BEGIN
4393: IF PO_LOG.d_proc THEN
4394: PO_LOG.proc_begin(d_mod,'p_multi_mod_request_id',p_multi_mod_request_id);
4395: PO_LOG.proc_begin(d_mod,'p_validation_status',p_validation_status);
4396: END IF;
4397:
4398: d_position := 10;
4391:
4392: BEGIN
4393: IF PO_LOG.d_proc THEN
4394: PO_LOG.proc_begin(d_mod,'p_multi_mod_request_id',p_multi_mod_request_id);
4395: PO_LOG.proc_begin(d_mod,'p_validation_status',p_validation_status);
4396: END IF;
4397:
4398: d_position := 10;
4399:
4406:
4407: COMMIT;
4408: EXCEPTION
4409: WHEN OTHERS THEN
4410: IF PO_LOG.d_exc THEN
4411: PO_LOG.exc(d_mod,d_position,NULL);
4412: END IF;
4413: RAISE;
4414: END set_validation_status;
4407: COMMIT;
4408: EXCEPTION
4409: WHEN OTHERS THEN
4410: IF PO_LOG.d_exc THEN
4411: PO_LOG.exc(d_mod,d_position,NULL);
4412: END IF;
4413: RAISE;
4414: END set_validation_status;
4415:
4446: is
4447: l_results_count NUMBER;
4448: d_mod CONSTANT VARCHAR2(100) := D_generate_project_exceptions;
4449: d_position NUMBER := 0;
4450: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4451: l_vendor_id NUMBER;
4452: l_return_status VARCHAR2(10);
4453: l_error_msg VARCHAR2(100);
4454:
4452: l_return_status VARCHAR2(10);
4453: l_error_msg VARCHAR2(100);
4454:
4455: BEGIN
4456: IF PO_LOG.d_proc THEN
4457: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
4458: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
4459: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
4460: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
4453: l_error_msg VARCHAR2(100);
4454:
4455: BEGIN
4456: IF PO_LOG.d_proc THEN
4457: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
4458: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
4459: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
4460: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
4461: END IF;
4454:
4455: BEGIN
4456: IF PO_LOG.d_proc THEN
4457: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
4458: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
4459: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
4460: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
4461: END IF;
4462:
4455: BEGIN
4456: IF PO_LOG.d_proc THEN
4457: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
4458: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
4459: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
4460: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
4461: END IF;
4462:
4463: IF (x_results IS NULL) THEN
4456: IF PO_LOG.d_proc THEN
4457: PO_LOG.proc_begin(d_mod,'p_request_id',p_request_id);
4458: PO_LOG.proc_begin(d_mod,'p_document_id_tbl',p_document_id_tbl);
4459: PO_LOG.proc_begin(d_mod,'p_multi_mod_doc_id_tbl',p_multi_mod_doc_id_tbl);
4460: PO_LOG.proc_begin(d_mod,'x_result_type',x_result_type);
4461: END IF;
4462:
4463: IF (x_results IS NULL) THEN
4464: x_results := PO_MULTI_MOD_VAL_RESULTS_TYPE.new_instance();
4467: d_position := 10;
4468:
4469: l_results_count := x_results.result_type.COUNT;
4470: IF d_stmt THEN
4471: PO_LOG.stmt(d_mod,d_position,'l_results_count',l_results_count);
4472: END IF;
4473:
4474: d_position := 20;
4475: --get the vendor_id and call the projects api for validations
4485: END;
4486:
4487:
4488: IF d_stmt THEN
4489: PO_LOG.stmt(d_mod,d_position,'l_vendor_id',l_vendor_id);
4490: END IF;
4491:
4492: d_position := 30;
4493:
4501: x_error_msg => l_error_msg
4502: );
4503:
4504: IF d_stmt THEN
4505: PO_LOG.stmt(d_mod,d_position,'l_return_status',l_return_status);
4506: PO_LOG.stmt(d_mod,d_position,'l_error_msg',l_error_msg);
4507: END IF;
4508:
4509:
4502: );
4503:
4504: IF d_stmt THEN
4505: PO_LOG.stmt(d_mod,d_position,'l_return_status',l_return_status);
4506: PO_LOG.stmt(d_mod,d_position,'l_error_msg',l_error_msg);
4507: END IF;
4508:
4509:
4510: d_position := 40;
4508:
4509:
4510: d_position := 40;
4511: IF d_stmt THEN
4512: PO_LOG.stmt(d_mod,d_position,'x_results.result_type.COUNT',x_results.result_type.COUNT);
4513: END IF;
4514: IF l_results_count < x_results.result_type.COUNT THEN
4515: x_result_type := c_result_type_FAILURE;
4516: ELSE
4516: ELSE
4517: x_result_type := c_result_type_SUCCESS;
4518: END IF;
4519:
4520: IF PO_LOG.d_proc THEN
4521: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
4522: END IF;
4523:
4524: EXCEPTION
4517: x_result_type := c_result_type_SUCCESS;
4518: END IF;
4519:
4520: IF PO_LOG.d_proc THEN
4521: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
4522: END IF;
4523:
4524: EXCEPTION
4525: WHEN OTHERS THEN
4522: END IF;
4523:
4524: EXCEPTION
4525: WHEN OTHERS THEN
4526: IF PO_LOG.d_exc THEN
4527: PO_LOG.exc(d_mod,d_position,'Unhandled exception in project validation');
4528: END IF;
4529: RAISE;
4530:
4523:
4524: EXCEPTION
4525: WHEN OTHERS THEN
4526: IF PO_LOG.d_exc THEN
4527: PO_LOG.exc(d_mod,d_position,'Unhandled exception in project validation');
4528: END IF;
4529: RAISE;
4530:
4531: END generate_project_exceptions;
4547: )
4548: IS
4549: d_mod CONSTANT VARCHAR2(100) := D_generate_supp_chg_exceptions;
4550: d_position NUMBER := 0;
4551: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4552: l_results PO_MULTI_MOD_VAL_RESULTS_TYPE;
4553: l_result_type VARCHAR2(30);
4554: BEGIN
4555: IF PO_LOG.d_proc THEN
4551: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
4552: l_results PO_MULTI_MOD_VAL_RESULTS_TYPE;
4553: l_result_type VARCHAR2(30);
4554: BEGIN
4555: IF PO_LOG.d_proc THEN
4556: PO_LOG.proc_begin(d_mod,'p_request_id',p_multi_mod_request_id);
4557: END IF;
4558:
4559: d_position := 10;
4552: l_results PO_MULTI_MOD_VAL_RESULTS_TYPE;
4553: l_result_type VARCHAR2(30);
4554: BEGIN
4555: IF PO_LOG.d_proc THEN
4556: PO_LOG.proc_begin(d_mod,'p_request_id',p_multi_mod_request_id);
4557: END IF;
4558:
4559: d_position := 10;
4560: --call the validate_mult_mod routine to generate the supplier change exceptions
4565: ,x_results => l_results
4566: );
4567:
4568: d_position := 20;
4569: IF PO_LOG.d_proc THEN
4570: PO_LOG.proc_begin(d_mod,'l_results.result_type.COUNT',l_results.result_type.COUNT);
4571: END IF;
4572: -- insert the results in po_multi_mod_val_results table
4573: FOR i IN 1..l_results.result_type.COUNT LOOP
4566: );
4567:
4568: d_position := 20;
4569: IF PO_LOG.d_proc THEN
4570: PO_LOG.proc_begin(d_mod,'l_results.result_type.COUNT',l_results.result_type.COUNT);
4571: END IF;
4572: -- insert the results in po_multi_mod_val_results table
4573: FOR i IN 1..l_results.result_type.COUNT LOOP
4574:
4648: and selection_changed_flag is not null;
4649: commit;
4650: EXCEPTION
4651: WHEN OTHERS THEN
4652: IF PO_LOG.d_exc THEN
4653: PO_LOG.exc(d_mod,d_position,NULL);
4654: END IF;
4655: RAISE;
4656: END generate_supp_chg_exceptions;
4649: commit;
4650: EXCEPTION
4651: WHEN OTHERS THEN
4652: IF PO_LOG.d_exc THEN
4653: PO_LOG.exc(d_mod,d_position,NULL);
4654: END IF;
4655: RAISE;
4656: END generate_supp_chg_exceptions;
4657: