DBA Data[Home] [Help]

APPS.OKL_VENDOR_AGREEMENT_PUB dependencies on OKL_API

Line 17: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,

13:
14:
15: PROCEDURE create_vendor_agreement (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
18: p_hdr_rec IN program_header_rec,
19: p_parent_agreement_number IN VARCHAR2 DEFAULT NULL,
20: p_party_role_contact_tbl IN party_role_contact_tbl,
21: p_vendor_billing_rec IN VENDOR_BILLING_REC,

Line 111: x_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name

107:
108:
109: BEGIN
110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111: x_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
112: ,p_init_msg_list => p_init_msg_list
113: ,p_api_type => '_PUB'
114: ,x_return_status => x_return_status);
115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

Line 115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

111: x_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
112: ,p_init_msg_list => p_init_msg_list
113: ,p_api_type => '_PUB'
114: ,x_return_status => x_return_status);
115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;

Line 116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

112: ,p_init_msg_list => p_init_msg_list
113: ,p_api_type => '_PUB'
114: ,x_return_status => x_return_status);
115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:

Line 117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN

113: ,p_api_type => '_PUB'
114: ,x_return_status => x_return_status);
115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
121: /* Agreement Header */

Line 118: RAISE OKL_API.G_EXCEPTION_ERROR;

114: ,x_return_status => x_return_status);
115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
121: /* Agreement Header */
122: OKL_VENDOR_PROGRAM_PUB.create_program (p_api_version => p_api_version,

Line 196: IF(p_party_role_contact_tbl(i).contact_role_code IS NOT NULL AND p_party_role_contact_tbl(i).contact_role_code <> OKL_API.G_MISS_CHAR AND

192: FOR i IN p_party_role_contact_tbl.FIRST..p_party_role_contact_tbl.LAST
193: LOOP
194: -- rabhupat BUG#4574673/#4593854 start
195: -- populate the contact table only when the contact information is provided
196: IF(p_party_role_contact_tbl(i).contact_role_code IS NOT NULL AND p_party_role_contact_tbl(i).contact_role_code <> OKL_API.G_MISS_CHAR AND
197: p_party_role_contact_tbl(i).contact_role_id IS NOT NULL AND p_party_role_contact_tbl(i).contact_role_id <> OKL_API.G_MISS_NUM) THEN
198: -- rabhupat BUG#4574673/#4593854 end
199: -- Get Party Role ID
200: OPEN get_party_role_id (p_party_role_contact_tbl(i).party_role_code,

Line 197: p_party_role_contact_tbl(i).contact_role_id IS NOT NULL AND p_party_role_contact_tbl(i).contact_role_id <> OKL_API.G_MISS_NUM) THEN

193: LOOP
194: -- rabhupat BUG#4574673/#4593854 start
195: -- populate the contact table only when the contact information is provided
196: IF(p_party_role_contact_tbl(i).contact_role_code IS NOT NULL AND p_party_role_contact_tbl(i).contact_role_code <> OKL_API.G_MISS_CHAR AND
197: p_party_role_contact_tbl(i).contact_role_id IS NOT NULL AND p_party_role_contact_tbl(i).contact_role_id <> OKL_API.G_MISS_NUM) THEN
198: -- rabhupat BUG#4574673/#4593854 end
199: -- Get Party Role ID
200: OPEN get_party_role_id (p_party_role_contact_tbl(i).party_role_code,
201: p_party_role_contact_tbl(i).party_role_id,

Line 285: IF (p_vendor_billing_rec.customer_id IS NOT NULL AND p_vendor_billing_rec.customer_id <> OKL_API.G_MISS_NUM AND

281: END IF;
282:
283: /* Vendor Billing */
284: -- rabhupat bug#4520143/#4530455 added G_MISS check
285: IF (p_vendor_billing_rec.customer_id IS NOT NULL AND p_vendor_billing_rec.customer_id <> OKL_API.G_MISS_NUM AND
286: p_vendor_billing_rec.cust_acct_id IS NOT NULL AND p_vendor_billing_rec.cust_acct_id <> OKL_API.G_MISS_NUM AND
287: p_vendor_billing_rec.bill_to_site_use_id IS NOT NULL AND p_vendor_billing_rec.bill_to_site_use_id <> OKL_API.G_MISS_NUM) THEN
288:
289: l_cplv_rec.cust_acct_id := p_vendor_billing_rec.cust_acct_id;

Line 286: p_vendor_billing_rec.cust_acct_id IS NOT NULL AND p_vendor_billing_rec.cust_acct_id <> OKL_API.G_MISS_NUM AND

282:
283: /* Vendor Billing */
284: -- rabhupat bug#4520143/#4530455 added G_MISS check
285: IF (p_vendor_billing_rec.customer_id IS NOT NULL AND p_vendor_billing_rec.customer_id <> OKL_API.G_MISS_NUM AND
286: p_vendor_billing_rec.cust_acct_id IS NOT NULL AND p_vendor_billing_rec.cust_acct_id <> OKL_API.G_MISS_NUM AND
287: p_vendor_billing_rec.bill_to_site_use_id IS NOT NULL AND p_vendor_billing_rec.bill_to_site_use_id <> OKL_API.G_MISS_NUM) THEN
288:
289: l_cplv_rec.cust_acct_id := p_vendor_billing_rec.cust_acct_id;
290: l_cplv_rec.bill_to_site_use_id := p_vendor_billing_rec.bill_to_site_use_id;

Line 287: p_vendor_billing_rec.bill_to_site_use_id IS NOT NULL AND p_vendor_billing_rec.bill_to_site_use_id <> OKL_API.G_MISS_NUM) THEN

283: /* Vendor Billing */
284: -- rabhupat bug#4520143/#4530455 added G_MISS check
285: IF (p_vendor_billing_rec.customer_id IS NOT NULL AND p_vendor_billing_rec.customer_id <> OKL_API.G_MISS_NUM AND
286: p_vendor_billing_rec.cust_acct_id IS NOT NULL AND p_vendor_billing_rec.cust_acct_id <> OKL_API.G_MISS_NUM AND
287: p_vendor_billing_rec.bill_to_site_use_id IS NOT NULL AND p_vendor_billing_rec.bill_to_site_use_id <> OKL_API.G_MISS_NUM) THEN
288:
289: l_cplv_rec.cust_acct_id := p_vendor_billing_rec.cust_acct_id;
290: l_cplv_rec.bill_to_site_use_id := p_vendor_billing_rec.bill_to_site_use_id;
291: -- Get Party Role Record ID

Line 335: IF(p_vendor_billing_rec.PAYMENT_METHOD IS NOT NULL AND p_vendor_billing_rec.PAYMENT_METHOD <> OKL_API.G_MISS_NUM) THEN

331: l_rgr_tbl(j).rgd_code := 'LAVENB';
332: l_rgr_tbl(j).RULE_INFORMATION_CATEGORY := 'LAPMTH';
333: -- rabhupat BUG#4574673 start
334: -- populate the information if payment method is passed
335: IF(p_vendor_billing_rec.PAYMENT_METHOD IS NOT NULL AND p_vendor_billing_rec.PAYMENT_METHOD <> OKL_API.G_MISS_NUM) THEN
336: l_rgr_tbl(j).object1_id1:= p_vendor_billing_rec.PAYMENT_METHOD;
337: l_rgr_tbl(j).object1_id2:= '#';
338: l_rgr_tbl(j).jtot_object1_code:= 'OKX_RCPTMTH';
339: END IF;

Line 349: IF(p_vendor_billing_rec.bank_account IS NOT NULL AND p_vendor_billing_rec.bank_account <> OKL_API.G_MISS_NUM) THEN

345: l_rgr_tbl(j).rgd_code := 'LAVENB';
346: l_rgr_tbl(j).RULE_INFORMATION_CATEGORY := 'LABACC';
347: -- rabhupat BUG#4574673 start
348: -- populate the information if bank account is passed
349: IF(p_vendor_billing_rec.bank_account IS NOT NULL AND p_vendor_billing_rec.bank_account <> OKL_API.G_MISS_NUM) THEN
350: l_rgr_tbl(j).object1_id1:= p_vendor_billing_rec.bank_account;
351: l_rgr_tbl(j).object1_id2:= '#';
352: l_rgr_tbl(j).jtot_object1_code:= 'OKX_CUSTBKAC';
353: END IF;

Line 371: IF(p_vendor_billing_rec.review_invoice IS NOT NULL AND p_vendor_billing_rec.review_invoice <> OKL_API.G_MISS_CHAR) THEN

367: l_rgr_tbl(j).template_yn := 'N';
368: -- Process Review Invoice flag
369: -- rabhupat BUG#4574673 start
370: -- if review invoice falg is not checked passing 'N'
371: IF(p_vendor_billing_rec.review_invoice IS NOT NULL AND p_vendor_billing_rec.review_invoice <> OKL_API.G_MISS_CHAR) THEN
372: l_rgr_tbl(j).rule_information4 := p_vendor_billing_rec.review_invoice;
373: ELSE
374: l_rgr_tbl(j).rule_information4 := 'N';
375: END IF;

Line 390: IF(p_vendor_billing_rec.review_until_date IS NOT NULL AND p_vendor_billing_rec.review_until_date <> OKL_API.G_MISS_DATE) THEN

386: l_rgr_tbl(j).template_yn := 'N';
387: -- Process Review Invoice Date
388: -- rabhupat BUG#4574673 start
389: -- populate the information if review until date is passed
390: IF(p_vendor_billing_rec.review_until_date IS NOT NULL AND p_vendor_billing_rec.review_until_date <> OKL_API.G_MISS_DATE) THEN
391: l_rgr_tbl(j).rule_information2 := p_vendor_billing_rec.review_until_date;
392: END IF;
393: -- Process Rule Groups and Rules for vendor billing
394: -- and associate it with the vendor party role

Line 438: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count

434: RAISE OKC_API.G_EXCEPTION_ERROR;
435: END IF;
436: END IF;
437:
438: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
439: ,x_msg_data => x_msg_data );
440:
441: EXCEPTION
442: WHEN OKC_API.G_EXCEPTION_ERROR THEN