[Home] [Help]
6: -- Type : Private procedure
7: -- Pre-reqs : None
8: -- Return Value : N/A
9: -- Prameters
10: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
11: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
12: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
13: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
14: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
7: -- Pre-reqs : None
8: -- Return Value : N/A
9: -- Prameters
10: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
11: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
12: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
13: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
14: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
15: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
8: -- Return Value : N/A
9: -- Prameters
10: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
11: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
12: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
13: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
14: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
15: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
16: -- p_project_id IN NUMBER REQUIRED
11: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
12: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
13: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
14: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
15: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
16: -- p_project_id IN NUMBER REQUIRED
17: -- p_distribution_rule IN VARCHAR2 REQUIRED
18: -- p_billing_cycle_id IN NUMBER REQUIRED
19: -- p_first_bill_offset IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
15: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
16: -- p_project_id IN NUMBER REQUIRED
17: -- p_distribution_rule IN VARCHAR2 REQUIRED
18: -- p_billing_cycle_id IN NUMBER REQUIRED
19: -- p_first_bill_offset IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
20: -- p_next_billing_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
21: -- p_output_tax_code IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
22: -- p_billing_job_group_id IN NUMBER REQUIRED
23: -- p_invoice_comment IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
16: -- p_project_id IN NUMBER REQUIRED
17: -- p_distribution_rule IN VARCHAR2 REQUIRED
18: -- p_billing_cycle_id IN NUMBER REQUIRED
19: -- p_first_bill_offset IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
20: -- p_next_billing_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
21: -- p_output_tax_code IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
22: -- p_billing_job_group_id IN NUMBER REQUIRED
23: -- p_invoice_comment IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
24: -- p_labor_id IN NUMBER REQUIRED
17: -- p_distribution_rule IN VARCHAR2 REQUIRED
18: -- p_billing_cycle_id IN NUMBER REQUIRED
19: -- p_first_bill_offset IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
20: -- p_next_billing_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
21: -- p_output_tax_code IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
22: -- p_billing_job_group_id IN NUMBER REQUIRED
23: -- p_invoice_comment IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
24: -- p_labor_id IN NUMBER REQUIRED
25: -- p_non_labor_id IN NUMBER OPTIONAL
19: -- p_first_bill_offset IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
20: -- p_next_billing_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
21: -- p_output_tax_code IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
22: -- p_billing_job_group_id IN NUMBER REQUIRED
23: -- p_invoice_comment IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
24: -- p_labor_id IN NUMBER REQUIRED
25: -- p_non_labor_id IN NUMBER OPTIONAL
26: -- p_retention_inv_format_id IN VARCHAR2 OPTIONAL
27: -- p_retention_percent IN NUMBER OPTIONAL
37: --
38: --
39:
40: PROCEDURE update_revenue_and_billing(
41: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
42: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
43: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
44: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
45: p_debug_mode IN VARCHAR2 DEFAULT 'N',
38: --
39:
40: PROCEDURE update_revenue_and_billing(
41: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
42: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
43: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
44: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
45: p_debug_mode IN VARCHAR2 DEFAULT 'N',
46: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
39:
40: PROCEDURE update_revenue_and_billing(
41: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
42: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
43: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
44: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
45: p_debug_mode IN VARCHAR2 DEFAULT 'N',
46: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
47: p_project_id IN NUMBER ,
42: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
43: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
44: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
45: p_debug_mode IN VARCHAR2 DEFAULT 'N',
46: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
47: p_project_id IN NUMBER ,
48: p_distribution_rule IN VARCHAR2 ,
49: p_billing_cycle_id IN NUMBER ,
50: p_first_bill_offset IN NUMBER DEFAULT FND_API.G_MISS_NUM,
46: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
47: p_project_id IN NUMBER ,
48: p_distribution_rule IN VARCHAR2 ,
49: p_billing_cycle_id IN NUMBER ,
50: p_first_bill_offset IN NUMBER DEFAULT FND_API.G_MISS_NUM,
51: p_next_billing_date OUT NOCOPY DATE , --File.Sql.39 bug 4440895
52: p_output_tax_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
53: p_billing_job_group_id IN NUMBER ,
54: p_invoice_comment IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
48: p_distribution_rule IN VARCHAR2 ,
49: p_billing_cycle_id IN NUMBER ,
50: p_first_bill_offset IN NUMBER DEFAULT FND_API.G_MISS_NUM,
51: p_next_billing_date OUT NOCOPY DATE , --File.Sql.39 bug 4440895
52: p_output_tax_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
53: p_billing_job_group_id IN NUMBER ,
54: p_invoice_comment IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
55: p_labor_id IN NUMBER ,
56: p_non_labor_id IN NUMBER ,
50: p_first_bill_offset IN NUMBER DEFAULT FND_API.G_MISS_NUM,
51: p_next_billing_date OUT NOCOPY DATE , --File.Sql.39 bug 4440895
52: p_output_tax_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
53: p_billing_job_group_id IN NUMBER ,
54: p_invoice_comment IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
55: p_labor_id IN NUMBER ,
56: p_non_labor_id IN NUMBER ,
57: p_retention_inv_format_id IN VARCHAR2 ,
58: p_retention_percent IN NUMBER ,
83: l_project_type_class_code PA_PROJECT_TYPES.PROJECT_TYPE_CLASS_CODE%TYPE;
84:
85:
86: BEGIN
87: IF p_commit = FND_API.G_TRUE
88: THEN
89: SAVEPOINT revenue_and_billing;
90: END IF;
91:
90: END IF;
91:
92: x_return_status := 'S';
93:
94: IF p_validate_only = FND_API.G_TRUE AND p_validation_level > 0
95: THEN
96: --Assign null to the variables that are passed as G_MISS....
97:
98: IF p_first_bill_offset = FND_API.G_MISS_NUM
94: IF p_validate_only = FND_API.G_TRUE AND p_validation_level > 0
95: THEN
96: --Assign null to the variables that are passed as G_MISS....
97:
98: IF p_first_bill_offset = FND_API.G_MISS_NUM
99: THEN
100: l_first_bill_offset := null;
101: ELSE
102: l_first_bill_offset := p_first_bill_offset;
101: ELSE
102: l_first_bill_offset := p_first_bill_offset;
103: END IF;
104:
105: IF p_next_billing_date = FND_API.G_MISS_DATE
106: THEN
107: l_next_billing_date := null;
108: ELSE
109: l_next_billing_date := p_next_billing_date;
108: ELSE
109: l_next_billing_date := p_next_billing_date;
110: END IF;
111:
112: IF p_output_tax_code = FND_API.G_MISS_CHAR
113: THEN
114: l_output_tax_code := null;
115: ELSE
116: l_output_tax_code := p_output_tax_code;
115: ELSE
116: l_output_tax_code := p_output_tax_code;
117: END IF;
118:
119: IF p_invoice_comment = FND_API.G_MISS_CHAR
120: THEN
121: l_invoice_comment := null;
122: ELSE
123: l_invoice_comment := p_invoice_comment;
122: ELSE
123: l_invoice_comment := p_invoice_comment;
124: END IF;
125:
126: IF p_retention_percent = FND_API.G_MISS_NUM
127: THEN
128: l_retention_percent := null;
129: ELSE
130: l_retention_percent := p_retention_percent;
129: ELSE
130: l_retention_percent := p_retention_percent;
131: END IF;
132:
133: IF p_retention_output_tax_code = FND_API.G_MISS_CHAR
134: THEN
135: l_retention_output_tax_code := null;
136: ELSE
137: l_retention_output_tax_code := p_retention_output_tax_code;
156: p_non_labor_id => p_non_labor_id,
157: x_return_status => l_return_status,
158: x_error_msg_code => l_error_msg_code );
159:
160: IF l_return_status = FND_API.G_RET_STS_ERROR
161: THEN
162: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
163: p_msg_name => l_error_msg_code);
164:
163: p_msg_name => l_error_msg_code);
164:
165: x_msg_data := l_error_msg_code;
166: x_return_status := 'E';
167: RAISE FND_API.G_EXC_ERROR;
168: END IF;
169:
170:
171: IF (p_debug_mode = 'Y')
173: pa_debug.debug('Update_reve_and_billing PVT: Checking Lock on record');
174: END IF;
175:
176: /* Lock pa_projects table and update */
177: IF p_validate_only <> FND_API.G_TRUE
178: THEN
179: BEGIN
180: SELECT 'x' INTO l_dummy_char
181: FROM pa_projects
240:
241: IF l_msg_count > 0 THEN
242: x_msg_count := l_msg_count;
243: x_return_status := 'E';
244: RAISE FND_API.G_EXC_ERROR;
245: END IF;
246:
247:
248: UPDATE pa_projects
270: AND record_version_number = p_record_version_number;
271:
272:
273: EXCEPTION
274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
275: IF p_commit = FND_API.G_TRUE
276: THEN
277: ROLLBACK TO revenue_and_billing;
278: END IF;
271:
272:
273: EXCEPTION
274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
275: IF p_commit = FND_API.G_TRUE
276: THEN
277: ROLLBACK TO revenue_and_billing;
278: END IF;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: IF p_commit = FND_API.G_TRUE
276: THEN
277: ROLLBACK TO revenue_and_billing;
278: END IF;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
281: p_procedure_name => 'update_rev_and_billing',
282: p_error_text => SUBSTRB(SQLERRM,1,240));
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
281: p_procedure_name => 'update_rev_and_billing',
282: p_error_text => SUBSTRB(SQLERRM,1,240));
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
285: WHEN FND_API.G_EXC_ERROR THEN
286: IF p_commit = FND_API.G_TRUE
287: THEN
281: p_procedure_name => 'update_rev_and_billing',
282: p_error_text => SUBSTRB(SQLERRM,1,240));
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
285: WHEN FND_API.G_EXC_ERROR THEN
286: IF p_commit = FND_API.G_TRUE
287: THEN
288: ROLLBACK TO revenue_and_billing;
289: END IF;
282: p_error_text => SUBSTRB(SQLERRM,1,240));
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
285: WHEN FND_API.G_EXC_ERROR THEN
286: IF p_commit = FND_API.G_TRUE
287: THEN
288: ROLLBACK TO revenue_and_billing;
289: END IF;
290: x_return_status := 'E';
289: END IF;
290: x_return_status := 'E';
291:
292: WHEN OTHERS THEN
293: IF p_commit = FND_API.G_TRUE
294: THEN
295: ROLLBACK TO revenue_and_billing;
296: END IF;
297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
293: IF p_commit = FND_API.G_TRUE
294: THEN
295: ROLLBACK TO revenue_and_billing;
296: END IF;
297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
299: p_procedure_name => 'update_rev_and_billing',
300: p_error_text => SUBSTRB(SQLERRM,1,240));
301: RAISE;
306: -- Type : Private procedure
307: -- Pre-reqs : None
308: -- Return Value : N/A
309: -- Prameters
310: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
311: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
312: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
313: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
314: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
307: -- Pre-reqs : None
308: -- Return Value : N/A
309: -- Prameters
310: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
311: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
312: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
313: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
314: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
315: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
308: -- Return Value : N/A
309: -- Prameters
310: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
311: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
312: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
313: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
314: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
315: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
316: -- p_project_id IN NUMBER REQUIRED
311: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
312: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
313: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
314: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
315: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
316: -- p_project_id IN NUMBER REQUIRED
317: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
318: -- p_credit_type IN VARCHAR2 REQUIRED
319: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
313: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
314: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
315: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
316: -- p_project_id IN NUMBER REQUIRED
317: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
318: -- p_credit_type IN VARCHAR2 REQUIRED
319: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
320: -- p_credit_percentage IN NUMBER REQUIRED
321: -- p_transfer_to_AR IN VARCHAR2 REQUIRED
315: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
316: -- p_project_id IN NUMBER REQUIRED
317: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
318: -- p_credit_type IN VARCHAR2 REQUIRED
319: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
320: -- p_credit_percentage IN NUMBER REQUIRED
321: -- p_transfer_to_AR IN VARCHAR2 REQUIRED
322: -- p_effective_from_date IN DATE REQUIRED
323: -- p_effective_to_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
319: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
320: -- p_credit_percentage IN NUMBER REQUIRED
321: -- p_transfer_to_AR IN VARCHAR2 REQUIRED
322: -- p_effective_from_date IN DATE REQUIRED
323: -- p_effective_to_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
324: -- x_credit_receiver_id OUT NUMBER REQUIRED
325: -- x_return_status OUT VARCHAR2 REQUIRED
326: -- x_msg_count OUT VARCHAR2 REQUIRED
327: -- x_msg_data OUT VARCHAR2 REQUIRED
332: --
333: --
334:
335: PROCEDURE create_credit_receivers(
336: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
337: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
338: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
339: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
340: p_debug_mode IN VARCHAR2 DEFAULT 'N',
333: --
334:
335: PROCEDURE create_credit_receivers(
336: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
337: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
338: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
339: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
340: p_debug_mode IN VARCHAR2 DEFAULT 'N',
341: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
334:
335: PROCEDURE create_credit_receivers(
336: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
337: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
338: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
339: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
340: p_debug_mode IN VARCHAR2 DEFAULT 'N',
341: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
342: p_project_id IN NUMBER ,
337: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
338: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
339: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
340: p_debug_mode IN VARCHAR2 DEFAULT 'N',
341: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
342: p_project_id IN NUMBER ,
343: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
344: p_credit_type IN VARCHAR2 ,
345: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
339: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
340: p_debug_mode IN VARCHAR2 DEFAULT 'N',
341: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
342: p_project_id IN NUMBER ,
343: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
344: p_credit_type IN VARCHAR2 ,
345: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
346: p_credit_percentage IN NUMBER ,
347: p_transfer_to_AR IN VARCHAR2 ,
341: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
342: p_project_id IN NUMBER ,
343: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
344: p_credit_type IN VARCHAR2 ,
345: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
346: p_credit_percentage IN NUMBER ,
347: p_transfer_to_AR IN VARCHAR2 ,
348: p_effective_from_date IN DATE ,
349: p_effective_to_date IN DATE DEFAULT FND_API.G_MISS_DATE,
345: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
346: p_credit_percentage IN NUMBER ,
347: p_transfer_to_AR IN VARCHAR2 ,
348: p_effective_from_date IN DATE ,
349: p_effective_to_date IN DATE DEFAULT FND_API.G_MISS_DATE,
350: x_credit_receiver_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
351: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
352: x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
353: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
364: l_effective_to_date DATE;
365: l_person_id NUMBER;
366: l_credit_receiver_id NUMBER;
367: BEGIN
368: IF p_commit = FND_API.G_TRUE
369: THEN
370: SAVEPOINT credit_receivers;
371: END IF;
372:
371: END IF;
372:
373: x_return_status := 'S';
374:
375: IF p_validate_only = FND_API.G_TRUE AND
376: p_validation_level > 0
377: THEN
378: IF p_task_id = FND_API.G_MISS_NUM
379: THEN
374:
375: IF p_validate_only = FND_API.G_TRUE AND
376: p_validation_level > 0
377: THEN
378: IF p_task_id = FND_API.G_MISS_NUM
379: THEN
380: l_task_id := null;
381: ELSE
382: l_task_id := p_task_id;
381: ELSE
382: l_task_id := p_task_id;
383: END IF;
384:
385: IF p_credit_percentage = FND_API.G_MISS_NUM
386: THEN
387: l_credit_percentage := null;
388: ELSE
389: l_credit_percentage := p_credit_percentage;
388: ELSE
389: l_credit_percentage := p_credit_percentage;
390: END IF;
391:
392: IF p_effective_to_date = FND_API.G_MISS_DATE
393: THEN
394: l_effective_to_date := null;
395: ELSE
396: l_effective_to_date := p_effective_to_date;
404: p_effective_from_date => p_effective_from_date,
405: x_return_status => l_return_status,
406: x_error_msg_code => l_error_msg_code );
407:
408: IF l_return_status = FND_API.G_RET_STS_ERROR
409: THEN
410: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
411: p_msg_name => l_error_msg_code);
412:
411: p_msg_name => l_error_msg_code);
412:
413: x_msg_data := l_error_msg_code;
414: x_return_status := 'E';
415: RAISE FND_API.G_EXC_ERROR;
416: END IF;
417:
418: ---Start end date check
419: PA_BILLING_SCHEDULE_UTILS.CHECK_START_END_DATE(
421: p_effective_to_date => l_effective_to_date,
422: x_error_msg_code => l_error_msg_code,
423: x_return_status => l_return_status );
424:
425: IF l_return_status = FND_API.G_RET_STS_ERROR
426: THEN
427: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
428: p_msg_name => l_error_msg_code);
429: x_msg_data := l_error_msg_code;
427: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
428: p_msg_name => l_error_msg_code);
429: x_msg_data := l_error_msg_code;
430: x_return_status := 'E';
431: RAISE FND_API.G_EXC_ERROR;
432: END IF;
433:
434:
435: IF NOT PA_BILLING_SETUP_UTILS.Duplicate_credit_receivers(
489: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
490: p_msg_name => 'PA_PRJ_CR_REC_EXISTS' );
491: x_msg_data := 'PA_PRJ_CR_REC_EXISTS';
492: x_return_status := 'E';
493: RAISE FND_API.G_EXC_ERROR;
494: END IF;
495: END IF;
496: EXCEPTION
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
493: RAISE FND_API.G_EXC_ERROR;
494: END IF;
495: END IF;
496: EXCEPTION
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: IF p_commit = FND_API.G_TRUE
499: THEN
500: ROLLBACK TO credit_receivers;
501: END IF;
494: END IF;
495: END IF;
496: EXCEPTION
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: IF p_commit = FND_API.G_TRUE
499: THEN
500: ROLLBACK TO credit_receivers;
501: END IF;
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: IF p_commit = FND_API.G_TRUE
499: THEN
500: ROLLBACK TO credit_receivers;
501: END IF;
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
503: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
504: p_procedure_name => 'CREATE_CREDIT_RECEIVERS',
505: p_error_text => SUBSTRB(SQLERRM,1,240));
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
503: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
504: p_procedure_name => 'CREATE_CREDIT_RECEIVERS',
505: p_error_text => SUBSTRB(SQLERRM,1,240));
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507:
508: x_credit_receiver_id := null;
509:
510: WHEN FND_API.G_EXC_ERROR THEN
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507:
508: x_credit_receiver_id := null;
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: IF p_commit = FND_API.G_TRUE
512: THEN
513: ROLLBACK TO credit_receivers;
514: END IF;
507:
508: x_credit_receiver_id := null;
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: IF p_commit = FND_API.G_TRUE
512: THEN
513: ROLLBACK TO credit_receivers;
514: END IF;
515: x_return_status := 'E';
516:
517: x_credit_receiver_id := null;
518:
519: WHEN OTHERS THEN
520: IF p_commit = FND_API.G_TRUE
521: THEN
522: ROLLBACK TO credit_receivers;
523: END IF;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: IF p_commit = FND_API.G_TRUE
521: THEN
522: ROLLBACK TO credit_receivers;
523: END IF;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
525: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
526: p_procedure_name => 'CREATE_CREDIT_RECEIVERS',
527: p_error_text => SUBSTRB(SQLERRM,1,240));
528:
536: -- Type : Private procedure
537: -- Pre-reqs : None
538: -- Return Value : N/A
539: -- Prameters
540: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
541: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
542: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
543: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
544: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
537: -- Pre-reqs : None
538: -- Return Value : N/A
539: -- Prameters
540: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
541: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
542: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
543: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
544: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
545: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
538: -- Return Value : N/A
539: -- Prameters
540: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
541: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
542: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
543: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
544: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
545: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
546: -- p_credit_receiver_id IN NUMBER REQUIRED
541: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
542: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
543: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
544: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
545: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
546: -- p_credit_receiver_id IN NUMBER REQUIRED
547: -- p_project_id IN NUMBER REQUIRED
548: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
549: -- p_credit_type IN VARCHAR2 REQUIRED
544: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
545: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
546: -- p_credit_receiver_id IN NUMBER REQUIRED
547: -- p_project_id IN NUMBER REQUIRED
548: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
549: -- p_credit_type IN VARCHAR2 REQUIRED
550: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
551: -- p_credit_percentage IN NUMBER REQUIRED
552: -- p_transfer_to_AR IN VARCHAR2 REQUIRED
546: -- p_credit_receiver_id IN NUMBER REQUIRED
547: -- p_project_id IN NUMBER REQUIRED
548: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
549: -- p_credit_type IN VARCHAR2 REQUIRED
550: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
551: -- p_credit_percentage IN NUMBER REQUIRED
552: -- p_transfer_to_AR IN VARCHAR2 REQUIRED
553: -- p_effective_from_date IN DATE REQUIRED
554: -- p_effective_to_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
550: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
551: -- p_credit_percentage IN NUMBER REQUIRED
552: -- p_transfer_to_AR IN VARCHAR2 REQUIRED
553: -- p_effective_from_date IN DATE REQUIRED
554: -- p_effective_to_date IN DATE OPTIONAL DEFAULT=FND_API.G_MISS_DATE
555: -- p_record_version_number IN NUMBER REQUIRED DEFAULT=1
556: -- x_return_status OUT VARCHAR2 REQUIRED
557: -- x_msg_count OUT VARCHAR2 REQUIRED
558: -- x_msg_data OUT VARCHAR2 REQUIRED
563: --
564: --
565:
566: PROCEDURE update_credit_receivers(
567: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
568: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
569: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
570: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
571: p_debug_mode IN VARCHAR2 DEFAULT 'N',
564: --
565:
566: PROCEDURE update_credit_receivers(
567: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
568: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
569: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
570: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
571: p_debug_mode IN VARCHAR2 DEFAULT 'N',
572: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
565:
566: PROCEDURE update_credit_receivers(
567: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
568: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
569: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
570: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
571: p_debug_mode IN VARCHAR2 DEFAULT 'N',
572: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
573: p_credit_receiver_id IN NUMBER ,
568: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
569: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
570: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
571: p_debug_mode IN VARCHAR2 DEFAULT 'N',
572: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
573: p_credit_receiver_id IN NUMBER ,
574: p_project_id IN NUMBER ,
575: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
576: p_credit_type IN VARCHAR2 ,
571: p_debug_mode IN VARCHAR2 DEFAULT 'N',
572: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
573: p_credit_receiver_id IN NUMBER ,
574: p_project_id IN NUMBER ,
575: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
576: p_credit_type IN VARCHAR2 ,
577: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
578: p_credit_percentage IN NUMBER DEFAULT FND_API.G_MISS_NUM,
579: p_transfer_to_AR IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
573: p_credit_receiver_id IN NUMBER ,
574: p_project_id IN NUMBER ,
575: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
576: p_credit_type IN VARCHAR2 ,
577: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
578: p_credit_percentage IN NUMBER DEFAULT FND_API.G_MISS_NUM,
579: p_transfer_to_AR IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
580: p_effective_from_date IN DATE ,
581: p_effective_to_date IN DATE DEFAULT FND_API.G_MISS_DATE,
574: p_project_id IN NUMBER ,
575: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
576: p_credit_type IN VARCHAR2 ,
577: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
578: p_credit_percentage IN NUMBER DEFAULT FND_API.G_MISS_NUM,
579: p_transfer_to_AR IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
580: p_effective_from_date IN DATE ,
581: p_effective_to_date IN DATE DEFAULT FND_API.G_MISS_DATE,
582: p_record_version_number IN NUMBER DEFAULT 1,
575: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
576: p_credit_type IN VARCHAR2 ,
577: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
578: p_credit_percentage IN NUMBER DEFAULT FND_API.G_MISS_NUM,
579: p_transfer_to_AR IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
580: p_effective_from_date IN DATE ,
581: p_effective_to_date IN DATE DEFAULT FND_API.G_MISS_DATE,
582: p_record_version_number IN NUMBER DEFAULT 1,
583: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
577: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
578: p_credit_percentage IN NUMBER DEFAULT FND_API.G_MISS_NUM,
579: p_transfer_to_AR IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
580: p_effective_from_date IN DATE ,
581: p_effective_to_date IN DATE DEFAULT FND_API.G_MISS_DATE,
582: p_record_version_number IN NUMBER DEFAULT 1,
583: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
584: x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
585: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
595: l_task_id NUMBER;
596: l_credit_percentage NUMBER;
597: l_person_id NUMBER;
598: BEGIN
599: IF p_commit = FND_API.G_TRUE
600: THEN
601: SAVEPOINT credit_receivers;
602: END IF;
603:
602: END IF;
603:
604: x_return_status := 'S';
605:
606: IF p_validate_only = FND_API.G_TRUE AND
607: p_validation_level > 0
608: THEN
609: IF p_task_id = FND_API.G_MISS_NUM
610: THEN
605:
606: IF p_validate_only = FND_API.G_TRUE AND
607: p_validation_level > 0
608: THEN
609: IF p_task_id = FND_API.G_MISS_NUM
610: THEN
611: l_task_id := null;
612: ELSE
613: l_task_id := p_task_id;
612: ELSE
613: l_task_id := p_task_id;
614: END IF;
615:
616: IF p_credit_percentage = FND_API.G_MISS_NUM
617: THEN
618: l_credit_percentage := null;
619: ELSE
620: l_credit_percentage := p_credit_percentage;
619: ELSE
620: l_credit_percentage := p_credit_percentage;
621: END IF;
622:
623: IF l_effective_to_date = FND_API.G_MISS_DATE
624: THEN
625: l_effective_to_date := null;
626: ELSE
627: l_effective_to_date := p_effective_to_date;
636: x_return_status => l_return_status,
637: x_error_msg_code => l_error_msg_code );
638:
639:
640: IF l_return_status = FND_API.G_RET_STS_ERROR
641: THEN
642: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
643: p_msg_name => l_error_msg_code);
644:
643: p_msg_name => l_error_msg_code);
644:
645: x_msg_data := l_error_msg_code;
646: x_return_status := 'E';
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649:
650:
651: ---Start end date check
654: p_effective_to_date => l_effective_to_date,
655: x_error_msg_code => l_error_msg_code,
656: x_return_status => l_return_status );
657:
658: IF l_return_status = FND_API.G_RET_STS_ERROR
659: THEN
660: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
661: p_msg_name => l_error_msg_code);
662: x_msg_data := l_error_msg_code;
660: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
661: p_msg_name => l_error_msg_code);
662: x_msg_data := l_error_msg_code;
663: x_return_status := 'E';
664: RAISE FND_API.G_EXC_ERROR;
665: END IF;
666:
667: IF (p_debug_mode = 'Y')
668: THEN
668: THEN
669: pa_debug.debug('Update_Credit_Receivers PVT: Checking Lock on record');
670: END IF;
671:
672: IF p_validate_only <> FND_API.G_TRUE
673: THEN
674: BEGIN
675: SELECT 'x' INTO l_dummy_char
676: FROM pa_credit_receivers
735:
736: IF l_msg_count > 0 THEN
737: x_msg_count := l_msg_count;
738: x_return_status := 'E';
739: RAISE FND_API.G_EXC_ERROR;
740: END IF;
741:
742: IF NOT PA_BILLING_SETUP_UTILS.Duplicate_credit_receivers(
743: p_project_id => p_project_id,
768: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
769: p_msg_name => 'PA_PRJ_CR_REC_EXISTS' );
770: x_msg_data := 'PA_PRJ_CR_REC_EXISTS';
771: x_return_status := 'E';
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774:
775: END IF;
776: EXCEPTION
773: END IF;
774:
775: END IF;
776: EXCEPTION
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: IF p_commit = FND_API.G_TRUE
779: THEN
780: ROLLBACK TO credit_receivers;
781: END IF;
774:
775: END IF;
776: EXCEPTION
777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
778: IF p_commit = FND_API.G_TRUE
779: THEN
780: ROLLBACK TO credit_receivers;
781: END IF;
782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
778: IF p_commit = FND_API.G_TRUE
779: THEN
780: ROLLBACK TO credit_receivers;
781: END IF;
782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
783: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
784: p_procedure_name => 'UPDATE_CREDIT_RECEIVERS',
785: p_error_text => SUBSTRB(SQLERRM,1,240));
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
783: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
784: p_procedure_name => 'UPDATE_CREDIT_RECEIVERS',
785: p_error_text => SUBSTRB(SQLERRM,1,240));
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
787:
788: WHEN FND_API.G_EXC_ERROR THEN
789: IF p_commit = FND_API.G_TRUE
790: THEN
784: p_procedure_name => 'UPDATE_CREDIT_RECEIVERS',
785: p_error_text => SUBSTRB(SQLERRM,1,240));
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
787:
788: WHEN FND_API.G_EXC_ERROR THEN
789: IF p_commit = FND_API.G_TRUE
790: THEN
791: ROLLBACK TO credit_receivers;
792: END IF;
785: p_error_text => SUBSTRB(SQLERRM,1,240));
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
787:
788: WHEN FND_API.G_EXC_ERROR THEN
789: IF p_commit = FND_API.G_TRUE
790: THEN
791: ROLLBACK TO credit_receivers;
792: END IF;
793: x_return_status := 'E';
792: END IF;
793: x_return_status := 'E';
794:
795: WHEN OTHERS THEN
796: IF p_commit = FND_API.G_TRUE
797: THEN
798: ROLLBACK TO credit_receivers;
799: END IF;
800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
796: IF p_commit = FND_API.G_TRUE
797: THEN
798: ROLLBACK TO credit_receivers;
799: END IF;
800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
801: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
802: p_procedure_name => 'UPDATE_CREDIT_RECEIVERS',
803: p_error_text => SUBSTRB(SQLERRM,1,240));
804: RAISE;
811: -- Type : Private procedure
812: -- Pre-reqs : None
813: -- Return Value : N/A
814: -- Prameters
815: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
816: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
817: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
818: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
819: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
812: -- Pre-reqs : None
813: -- Return Value : N/A
814: -- Prameters
815: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
816: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
817: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
818: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
819: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
820: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
813: -- Return Value : N/A
814: -- Prameters
815: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
816: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
817: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
818: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
819: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
820: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
821: -- p_credit_receiver_id IN NUMBER REQUIRED
816: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
817: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
818: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
819: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
820: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
821: -- p_credit_receiver_id IN NUMBER REQUIRED
822: -- p_project_id IN NUMBER REQUIRED
823: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
824: -- p_credit_type IN VARCHAR2 REQUIRED
819: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
820: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
821: -- p_credit_receiver_id IN NUMBER REQUIRED
822: -- p_project_id IN NUMBER REQUIRED
823: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
824: -- p_credit_type IN VARCHAR2 REQUIRED
825: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
826: -- p_effective_from_date IN DATE REQUIRED
827: -- p_record_version_number IN NUMBER REQUIRED DEFAULT=1
821: -- p_credit_receiver_id IN NUMBER REQUIRED
822: -- p_project_id IN NUMBER REQUIRED
823: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
824: -- p_credit_type IN VARCHAR2 REQUIRED
825: -- p_person_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
826: -- p_effective_from_date IN DATE REQUIRED
827: -- p_record_version_number IN NUMBER REQUIRED DEFAULT=1
828: -- x_return_status OUT VARCHAR2 REQUIRED
829: -- x_msg_count OUT VARCHAR2 REQUIRED
835: --
836: --
837:
838: PROCEDURE delete_credit_receivers(
839: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
840: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
841: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
842: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
843: p_debug_mode IN VARCHAR2 DEFAULT 'N',
836: --
837:
838: PROCEDURE delete_credit_receivers(
839: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
840: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
841: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
842: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
843: p_debug_mode IN VARCHAR2 DEFAULT 'N',
844: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
837:
838: PROCEDURE delete_credit_receivers(
839: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
840: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
841: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
842: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
843: p_debug_mode IN VARCHAR2 DEFAULT 'N',
844: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
845: p_credit_receiver_id IN NUMBER ,
840: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
841: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
842: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
843: p_debug_mode IN VARCHAR2 DEFAULT 'N',
844: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
845: p_credit_receiver_id IN NUMBER ,
846: p_project_id IN NUMBER ,
847: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
848: p_credit_type IN VARCHAR2 ,
843: p_debug_mode IN VARCHAR2 DEFAULT 'N',
844: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
845: p_credit_receiver_id IN NUMBER ,
846: p_project_id IN NUMBER ,
847: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
848: p_credit_type IN VARCHAR2 ,
849: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
850: p_effective_from_date IN DATE ,
851: p_record_version_number IN NUMBER DEFAULT 1,
845: p_credit_receiver_id IN NUMBER ,
846: p_project_id IN NUMBER ,
847: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
848: p_credit_type IN VARCHAR2 ,
849: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
850: p_effective_from_date IN DATE ,
851: p_record_version_number IN NUMBER DEFAULT 1,
852: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
853: x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
864: l_task_id NUMBER;
865: l_credit_percentage NUMBER;
866: l_person_id NUMBER;
867: BEGIN
868: IF p_commit = FND_API.G_TRUE
869: THEN
870: SAVEPOINT credit_receivers;
871: END IF;
872:
871: END IF;
872:
873: x_return_status := 'S';
874:
875: IF p_validate_only = FND_API.G_TRUE AND
876: p_validation_level > 0
877: THEN
878: IF p_task_id = FND_API.G_MISS_NUM
879: THEN
874:
875: IF p_validate_only = FND_API.G_TRUE AND
876: p_validation_level > 0
877: THEN
878: IF p_task_id = FND_API.G_MISS_NUM
879: THEN
880: l_task_id := null;
881: ELSE
882: l_task_id := p_task_id;
887: THEN
888: pa_debug.debug('Delete_Credit_Receivers PVT: Checking Lock on record');
889: END IF;
890:
891: IF p_validate_only <> FND_API.G_TRUE
892: THEN
893: BEGIN
894: SELECT 'x' INTO l_dummy_char
895: FROM pa_credit_receivers
954:
955: IF l_msg_count > 0 THEN
956: x_msg_count := l_msg_count;
957: x_return_status := 'E';
958: RAISE FND_API.G_EXC_ERROR;
959: END IF;
960:
961: DELETE FROM pa_credit_receivers
962: WHERE credit_receiver_id = p_credit_receiver_id
962: WHERE credit_receiver_id = p_credit_receiver_id
963: AND RECORD_VERSION_NUMBER = p_RECORD_VERSION_NUMBER;
964:
965: EXCEPTION
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: IF p_commit = FND_API.G_TRUE
968: THEN
969: ROLLBACK TO credit_receivers;
970: END IF;
963: AND RECORD_VERSION_NUMBER = p_RECORD_VERSION_NUMBER;
964:
965: EXCEPTION
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: IF p_commit = FND_API.G_TRUE
968: THEN
969: ROLLBACK TO credit_receivers;
970: END IF;
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: IF p_commit = FND_API.G_TRUE
968: THEN
969: ROLLBACK TO credit_receivers;
970: END IF;
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
973: p_procedure_name => 'delete_CREDIT_RECEIVERS',
974: p_error_text => SUBSTRB(SQLERRM,1,240));
975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
973: p_procedure_name => 'delete_CREDIT_RECEIVERS',
974: p_error_text => SUBSTRB(SQLERRM,1,240));
975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
976:
977: WHEN FND_API.G_EXC_ERROR THEN
978: IF p_commit = FND_API.G_TRUE
979: THEN
973: p_procedure_name => 'delete_CREDIT_RECEIVERS',
974: p_error_text => SUBSTRB(SQLERRM,1,240));
975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
976:
977: WHEN FND_API.G_EXC_ERROR THEN
978: IF p_commit = FND_API.G_TRUE
979: THEN
980: ROLLBACK TO credit_receivers;
981: END IF;
974: p_error_text => SUBSTRB(SQLERRM,1,240));
975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
976:
977: WHEN FND_API.G_EXC_ERROR THEN
978: IF p_commit = FND_API.G_TRUE
979: THEN
980: ROLLBACK TO credit_receivers;
981: END IF;
982: x_return_status := 'E';
981: END IF;
982: x_return_status := 'E';
983:
984: WHEN OTHERS THEN
985: IF p_commit = FND_API.G_TRUE
986: THEN
987: ROLLBACK TO credit_receivers;
988: END IF;
989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
985: IF p_commit = FND_API.G_TRUE
986: THEN
987: ROLLBACK TO credit_receivers;
988: END IF;
989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
990: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
991: p_procedure_name => 'delete_CREDIT_RECEIVERS',
992: p_error_text => SUBSTRB(SQLERRM,1,240));
993: RAISE;
999: -- Type : Private procedure
1000: -- Pre-reqs : None
1001: -- Return Value : N/A
1002: -- Prameters
1003: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1004: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1005: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1006: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1007: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1000: -- Pre-reqs : None
1001: -- Return Value : N/A
1002: -- Prameters
1003: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1004: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1005: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1006: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1007: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1008: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1001: -- Return Value : N/A
1002: -- Prameters
1003: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1004: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1005: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1006: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1007: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1008: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1009: -- p_project_id IN NUMBER REQUIRED
1004: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1005: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1006: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1007: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1008: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1009: -- p_project_id IN NUMBER REQUIRED
1010: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1011: -- p_billing_extension_id IN NUMBER REQUIRED
1012: -- p_amount IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1006: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1007: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1008: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1009: -- p_project_id IN NUMBER REQUIRED
1010: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1011: -- p_billing_extension_id IN NUMBER REQUIRED
1012: -- p_amount IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1013: -- p_percent IN NUMBER OPTIONAl DEFAULT=FND_API.G_MISS_NUM
1014: -- p_active IN VARCHAR2 REQUIRED
1008: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1009: -- p_project_id IN NUMBER REQUIRED
1010: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1011: -- p_billing_extension_id IN NUMBER REQUIRED
1012: -- p_amount IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1013: -- p_percent IN NUMBER OPTIONAl DEFAULT=FND_API.G_MISS_NUM
1014: -- p_active IN VARCHAR2 REQUIRED
1015: -- x_billing_assignment_id OUT NUMBER REQUIRED
1016: -- x_return_status OUT VARCHAR2 REQUIRED
1009: -- p_project_id IN NUMBER REQUIRED
1010: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1011: -- p_billing_extension_id IN NUMBER REQUIRED
1012: -- p_amount IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1013: -- p_percent IN NUMBER OPTIONAl DEFAULT=FND_API.G_MISS_NUM
1014: -- p_active IN VARCHAR2 REQUIRED
1015: -- x_billing_assignment_id OUT NUMBER REQUIRED
1016: -- x_return_status OUT VARCHAR2 REQUIRED
1017: -- x_msg_count OUT VARCHAR2 REQUIRED
1023: --
1024: --
1025:
1026: PROCEDURE create_billing_assignments(
1027: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1028: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1029: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1030: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1031: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1024: --
1025:
1026: PROCEDURE create_billing_assignments(
1027: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1028: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1029: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1030: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1031: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1032: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1025:
1026: PROCEDURE create_billing_assignments(
1027: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1028: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1029: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1030: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1031: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1032: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1033: p_project_id IN NUMBER ,
1028: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1029: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1030: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1031: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1032: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1033: p_project_id IN NUMBER ,
1034: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1035: p_billing_extension_id IN NUMBER ,
1036: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1030: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1031: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1032: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1033: p_project_id IN NUMBER ,
1034: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1035: p_billing_extension_id IN NUMBER ,
1036: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1037: p_percent IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1038: p_active IN VARCHAR2 ,
1032: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1033: p_project_id IN NUMBER ,
1034: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1035: p_billing_extension_id IN NUMBER ,
1036: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1037: p_percent IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1038: p_active IN VARCHAR2 ,
1039: x_billing_assignment_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
1040: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1033: p_project_id IN NUMBER ,
1034: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1035: p_billing_extension_id IN NUMBER ,
1036: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1037: p_percent IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1038: p_active IN VARCHAR2 ,
1039: x_billing_assignment_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
1040: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1041: x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1063:
1064: l_billing_assignment_id NUMBER;
1065:
1066: BEGIN
1067: IF p_commit = FND_API.G_TRUE
1068: THEN
1069: SAVEPOINT billing_assignments;
1070: END IF;
1071:
1070: END IF;
1071:
1072: x_return_status := 'S';
1073:
1074: IF p_validate_only = FND_API.G_TRUE AND
1075: p_validation_level > 0
1076: THEN
1077: IF p_task_id = FND_API.G_MISS_NUM
1078: THEN
1073:
1074: IF p_validate_only = FND_API.G_TRUE AND
1075: p_validation_level > 0
1076: THEN
1077: IF p_task_id = FND_API.G_MISS_NUM
1078: THEN
1079: l_task_id := null;
1080: ELSE
1081: l_task_id := p_task_id;
1080: ELSE
1081: l_task_id := p_task_id;
1082: END IF;
1083:
1084: IF p_amount = FND_API.G_MISS_NUM
1085: THEN
1086: l_amount := null;
1087: ELSE
1088: l_amount := p_amount;
1087: ELSE
1088: l_amount := p_amount;
1089: END IF;
1090:
1091: IF p_percent = FND_API.G_MISS_NUM
1092: THEN
1093: l_percent := null;
1094: ELSE
1095: l_percent := p_percent;
1100: p_billing_extension_id => p_billing_extension_id,
1101: x_return_status => l_return_status,
1102: x_error_msg_code => l_error_msg_code );
1103:
1104: IF l_return_status = FND_API.G_RET_STS_ERROR
1105: THEN
1106: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1107: p_msg_name => l_error_msg_code);
1108:
1107: p_msg_name => l_error_msg_code);
1108:
1109: x_msg_data := l_error_msg_code;
1110: x_return_status := 'E';
1111: RAISE FND_API.G_EXC_ERROR;
1112: END IF;
1113:
1114:
1115: IF NOT PA_BILLING_SETUP_UTILS.Duplicate_billing_assignments(
1173: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1174: p_msg_name => 'PA_PRJ_BILL_ASSGN_EXISTS' );
1175: x_msg_data := 'PA_PRJ_BILL_ASSGN_EXISTS';
1176: x_return_status := 'E';
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179: END IF;
1180: EXCEPTION
1181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179: END IF;
1180: EXCEPTION
1181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1182: IF p_commit = FND_API.G_TRUE
1183: THEN
1184: ROLLBACK TO billing_assignments;
1185: END IF;
1178: END IF;
1179: END IF;
1180: EXCEPTION
1181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1182: IF p_commit = FND_API.G_TRUE
1183: THEN
1184: ROLLBACK TO billing_assignments;
1185: END IF;
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1182: IF p_commit = FND_API.G_TRUE
1183: THEN
1184: ROLLBACK TO billing_assignments;
1185: END IF;
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1188: p_procedure_name => 'CREATE_BILLING_ASSIGNMENTS',
1189: p_error_text => SUBSTRB(SQLERRM,1,240));
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1188: p_procedure_name => 'CREATE_BILLING_ASSIGNMENTS',
1189: p_error_text => SUBSTRB(SQLERRM,1,240));
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1191:
1192: x_billing_assignment_id := null;
1193:
1194: WHEN FND_API.G_EXC_ERROR THEN
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1191:
1192: x_billing_assignment_id := null;
1193:
1194: WHEN FND_API.G_EXC_ERROR THEN
1195: IF p_commit = FND_API.G_TRUE
1196: THEN
1197: ROLLBACK TO billing_assignments;
1198: END IF;
1191:
1192: x_billing_assignment_id := null;
1193:
1194: WHEN FND_API.G_EXC_ERROR THEN
1195: IF p_commit = FND_API.G_TRUE
1196: THEN
1197: ROLLBACK TO billing_assignments;
1198: END IF;
1199: x_return_status := 'E';
1200:
1201: x_billing_assignment_id := null;
1202:
1203: WHEN OTHERS THEN
1204: IF p_commit = FND_API.G_TRUE
1205: THEN
1206: ROLLBACK TO billing_assignments;
1207: END IF;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1204: IF p_commit = FND_API.G_TRUE
1205: THEN
1206: ROLLBACK TO billing_assignments;
1207: END IF;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1210: p_procedure_name => 'CREATE_BILLING_ASSIGNMENTS',
1211: p_error_text => SUBSTRB(SQLERRM,1,240));
1212:
1222: -- Type : Private procedure
1223: -- Pre-reqs : None
1224: -- Return Value : N/A
1225: -- Prameters
1226: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1227: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1228: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1229: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1230: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1223: -- Pre-reqs : None
1224: -- Return Value : N/A
1225: -- Prameters
1226: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1227: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1228: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1229: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1230: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1231: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1224: -- Return Value : N/A
1225: -- Prameters
1226: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1227: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1228: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1229: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1230: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1231: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1232: -- p_project_id IN NUMBER REQUIRED
1227: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1228: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1229: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1230: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1231: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1232: -- p_project_id IN NUMBER REQUIRED
1233: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1234: -- p_billing_extension_id IN number REQUIRED
1235: -- p_amount IN NUMBER REQUIRED
1229: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1230: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1231: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1232: -- p_project_id IN NUMBER REQUIRED
1233: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1234: -- p_billing_extension_id IN number REQUIRED
1235: -- p_amount IN NUMBER REQUIRED
1236: -- p_percent IN NUMBER REQUIRED
1237: -- p_active IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
1233: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1234: -- p_billing_extension_id IN number REQUIRED
1235: -- p_amount IN NUMBER REQUIRED
1236: -- p_percent IN NUMBER REQUIRED
1237: -- p_active IN VARCHAR2 OPTIONAL DEFAULT=FND_API.G_MISS_CHAR
1238: -- p_record_version_number IN NUMBER REQUIRED DEFAULT=1
1239: -- x_return_status OUT VARCHAR2 REQUIRED
1240: -- x_msg_count OUT VARCHAR2 REQUIRED
1241: -- x_msg_data OUT VARCHAR2 REQUIRED
1246: --
1247: --
1248:
1249: PROCEDURE update_billing_assignments(
1250: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1251: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1252: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1253: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1254: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1247: --
1248:
1249: PROCEDURE update_billing_assignments(
1250: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1251: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1252: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1253: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1254: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1255: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1248:
1249: PROCEDURE update_billing_assignments(
1250: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1251: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1252: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1253: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1254: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1255: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1256: p_project_id IN NUMBER ,
1251: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1252: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1253: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1254: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1255: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1256: p_project_id IN NUMBER ,
1257: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1258: p_billing_extension_id IN NUMBER ,
1259: p_billing_assignment_id IN NUMBER ,
1253: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1254: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1255: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1256: p_project_id IN NUMBER ,
1257: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1258: p_billing_extension_id IN NUMBER ,
1259: p_billing_assignment_id IN NUMBER ,
1260: p_amount IN NUMBER ,
1261: p_percent IN NUMBER ,
1258: p_billing_extension_id IN NUMBER ,
1259: p_billing_assignment_id IN NUMBER ,
1260: p_amount IN NUMBER ,
1261: p_percent IN NUMBER ,
1262: p_active IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1263: p_record_version_number IN NUMBER DEFAULT 1,
1264: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1265: x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1266: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1277: l_amount NUMBER;
1278: l_percent NUMBER;
1279:
1280: BEGIN
1281: IF p_commit = FND_API.G_TRUE
1282: THEN
1283: SAVEPOINT billing_assignments;
1284: END IF;
1285:
1284: END IF;
1285:
1286: x_return_status := 'S';
1287:
1288: IF p_validate_only = FND_API.G_TRUE AND
1289: p_validation_level > 0
1290: THEN
1291: IF p_task_id = FND_API.G_MISS_NUM
1292: THEN
1287:
1288: IF p_validate_only = FND_API.G_TRUE AND
1289: p_validation_level > 0
1290: THEN
1291: IF p_task_id = FND_API.G_MISS_NUM
1292: THEN
1293: l_task_id := null;
1294: ELSE
1295: l_task_id := p_task_id;
1294: ELSE
1295: l_task_id := p_task_id;
1296: END IF;
1297:
1298: IF p_amount = FND_API.G_MISS_NUM
1299: THEN
1300: l_amount := null;
1301: ELSE
1302: l_amount := p_amount;
1301: ELSE
1302: l_amount := p_amount;
1303: END IF;
1304:
1305: IF p_percent = FND_API.G_MISS_NUM
1306: THEN
1307: l_percent := null;
1308: ELSE
1309: l_percent := p_percent;
1314: p_billing_extension_id => p_billing_extension_id,
1315: x_return_status => l_return_status,
1316: x_error_msg_code => l_error_msg_code );
1317:
1318: IF l_return_status = FND_API.G_RET_STS_ERROR
1319: THEN
1320: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1321: p_msg_name => l_error_msg_code);
1322:
1321: p_msg_name => l_error_msg_code);
1322:
1323: x_msg_data := l_error_msg_code;
1324: x_return_status := 'E';
1325: RAISE FND_API.G_EXC_ERROR;
1326: END IF;
1327:
1328: IF (p_debug_mode = 'Y')
1329: THEN
1329: THEN
1330: pa_debug.debug('Update Billing Assignments PVT: Checking Lock on record');
1331: END IF;
1332:
1333: IF p_validate_only <> FND_API.G_TRUE
1334: THEN
1335: BEGIN
1336: SELECT 'x' INTO l_dummy_char
1337: FROM pa_billing_assignments_all
1396:
1397: IF l_msg_count > 0 THEN
1398: x_msg_count := l_msg_count;
1399: x_return_status := 'E';
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402:
1403: IF NOT PA_BILLING_SETUP_UTILS.Duplicate_billing_assignments(
1404: p_project_id => p_project_id,
1425: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1426: p_msg_name => 'PA_PRJ_BILL_ASSGN_EXISTS' );
1427: x_msg_data := 'PA_PRJ_BILL_ASSGN_EXISTS';
1428: x_return_status := 'E';
1429: RAISE FND_API.G_EXC_ERROR;
1430: END IF;
1431:
1432: END IF;
1433: EXCEPTION
1430: END IF;
1431:
1432: END IF;
1433: EXCEPTION
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: IF p_commit = FND_API.G_TRUE
1436: THEN
1437: ROLLBACK TO billing_assignments;
1438: END IF;
1431:
1432: END IF;
1433: EXCEPTION
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: IF p_commit = FND_API.G_TRUE
1436: THEN
1437: ROLLBACK TO billing_assignments;
1438: END IF;
1439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: IF p_commit = FND_API.G_TRUE
1436: THEN
1437: ROLLBACK TO billing_assignments;
1438: END IF;
1439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1440: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1441: p_procedure_name => 'UPDATE_BILLING_ASSIGNMENTS',
1442: p_error_text => SUBSTRB(SQLERRM,1,240));
1443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1440: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1441: p_procedure_name => 'UPDATE_BILLING_ASSIGNMENTS',
1442: p_error_text => SUBSTRB(SQLERRM,1,240));
1443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1444:
1445: WHEN FND_API.G_EXC_ERROR THEN
1446: IF p_commit = FND_API.G_TRUE
1447: THEN
1441: p_procedure_name => 'UPDATE_BILLING_ASSIGNMENTS',
1442: p_error_text => SUBSTRB(SQLERRM,1,240));
1443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1444:
1445: WHEN FND_API.G_EXC_ERROR THEN
1446: IF p_commit = FND_API.G_TRUE
1447: THEN
1448: ROLLBACK TO billing_assignments;
1449: END IF;
1442: p_error_text => SUBSTRB(SQLERRM,1,240));
1443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1444:
1445: WHEN FND_API.G_EXC_ERROR THEN
1446: IF p_commit = FND_API.G_TRUE
1447: THEN
1448: ROLLBACK TO billing_assignments;
1449: END IF;
1450: x_return_status := 'E';
1449: END IF;
1450: x_return_status := 'E';
1451:
1452: WHEN OTHERS THEN
1453: IF p_commit = FND_API.G_TRUE
1454: THEN
1455: ROLLBACK TO billing_assignments;
1456: END IF;
1457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: IF p_commit = FND_API.G_TRUE
1454: THEN
1455: ROLLBACK TO billing_assignments;
1456: END IF;
1457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1458: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1459: p_procedure_name => 'UPDATE_BILLING_ASSIGNMENTS',
1460: p_error_text => SUBSTRB(SQLERRM,1,240));
1461: RAISE;
1467: -- Type : Private procedure
1468: -- Pre-reqs : None
1469: -- Return Value : N/A
1470: -- Prameters
1471: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1472: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1473: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1474: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1475: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1468: -- Pre-reqs : None
1469: -- Return Value : N/A
1470: -- Prameters
1471: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1472: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1473: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1474: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1475: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1476: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1469: -- Return Value : N/A
1470: -- Prameters
1471: -- p_commit IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_FALSE
1472: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1473: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1474: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1475: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1476: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1477: -- p_project_id IN NUMBER REQUIRED
1472: -- p_validate_only IN VARCHAR2 REQUIRED DEFAULT=FND_API.G_TRUE
1473: -- p_validation_level IN NUMBER OPTIONAL DEFAULT=FND_API.G_VALID_LEVEL_FULL
1474: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1475: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1476: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1477: -- p_project_id IN NUMBER REQUIRED
1478: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1479: -- p_billing_extension_id IN NUMBER REQUIRED
1480: -- p_billing_assignment_id IN NUMBER ,
1474: -- p_calling_module IN VARCHAR2 OPTIONAL DEFAULT='SELF_SERVICE'
1475: -- p_debug_mode IN VARCHAR2 OPTIONAL DEFAULT='N'
1476: -- p_max_msg_count IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1477: -- p_project_id IN NUMBER REQUIRED
1478: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
1479: -- p_billing_extension_id IN NUMBER REQUIRED
1480: -- p_billing_assignment_id IN NUMBER ,
1481: -- p_record_version_number IN NUMBER REQUIRED DEFAULT=1
1482: -- x_return_status OUT VARCHAR2 REQUIRED
1489: --
1490: --
1491:
1492: PROCEDURE delete_billing_assignments(
1493: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1494: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1495: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1496: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1497: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1490: --
1491:
1492: PROCEDURE delete_billing_assignments(
1493: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1494: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1495: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1496: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1497: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1498: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1491:
1492: PROCEDURE delete_billing_assignments(
1493: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1494: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1495: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1496: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1497: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1498: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1499: p_project_id IN NUMBER ,
1494: p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1495: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1496: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1497: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1498: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1499: p_project_id IN NUMBER ,
1500: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1501: p_billing_extension_id IN NUMBER ,
1502: p_billing_assignment_id IN NUMBER ,
1496: p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
1497: p_debug_mode IN VARCHAR2 DEFAULT 'N',
1498: p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1499: p_project_id IN NUMBER ,
1500: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1501: p_billing_extension_id IN NUMBER ,
1502: p_billing_assignment_id IN NUMBER ,
1503: p_record_version_number IN NUMBER DEFAULT 1,
1504: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
1517: l_amount NUMBER;
1518: l_percent NUMBER;
1519:
1520: BEGIN
1521: IF p_commit = FND_API.G_TRUE
1522: THEN
1523: SAVEPOINT billing_assignments;
1524: END IF;
1525:
1524: END IF;
1525:
1526: x_return_status := 'S';
1527:
1528: IF p_validate_only = FND_API.G_TRUE AND
1529: p_validation_level > 0
1530: THEN
1531: IF p_task_id = FND_API.G_MISS_NUM
1532: THEN
1527:
1528: IF p_validate_only = FND_API.G_TRUE AND
1529: p_validation_level > 0
1530: THEN
1531: IF p_task_id = FND_API.G_MISS_NUM
1532: THEN
1533: l_task_id := null;
1534: ELSE
1535: l_task_id := p_task_id;
1539: THEN
1540: pa_debug.debug('Delete Billing Assignments PVT: Checking Lock on record');
1541: END IF;
1542:
1543: IF p_validate_only <> FND_API.G_TRUE
1544: THEN
1545: BEGIN
1546: SELECT 'x' INTO l_dummy_char
1547: FROM pa_billing_assignments_all
1606:
1607: IF l_msg_count > 0 THEN
1608: x_msg_count := l_msg_count;
1609: x_return_status := 'E';
1610: RAISE FND_API.G_EXC_ERROR;
1611: END IF;
1612:
1613:
1614: DELETE FROM pa_billing_assignments_all
1616: AND RECORD_VERSION_NUMBER = p_record_version_number;
1617:
1618: END IF;
1619: EXCEPTION
1620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1621: IF p_commit = FND_API.G_TRUE
1622: THEN
1623: ROLLBACK TO billing_assignments;
1624: END IF;
1617:
1618: END IF;
1619: EXCEPTION
1620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1621: IF p_commit = FND_API.G_TRUE
1622: THEN
1623: ROLLBACK TO billing_assignments;
1624: END IF;
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1621: IF p_commit = FND_API.G_TRUE
1622: THEN
1623: ROLLBACK TO billing_assignments;
1624: END IF;
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1627: p_procedure_name => 'DELETE_BILLING_ASSIGNMENTS',
1628: p_error_text => SUBSTRB(SQLERRM,1,240));
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1627: p_procedure_name => 'DELETE_BILLING_ASSIGNMENTS',
1628: p_error_text => SUBSTRB(SQLERRM,1,240));
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630:
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: IF p_commit = FND_API.G_TRUE
1633: THEN
1627: p_procedure_name => 'DELETE_BILLING_ASSIGNMENTS',
1628: p_error_text => SUBSTRB(SQLERRM,1,240));
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630:
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: IF p_commit = FND_API.G_TRUE
1633: THEN
1634: ROLLBACK TO billing_assignments;
1635: END IF;
1628: p_error_text => SUBSTRB(SQLERRM,1,240));
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630:
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: IF p_commit = FND_API.G_TRUE
1633: THEN
1634: ROLLBACK TO billing_assignments;
1635: END IF;
1636: x_return_status := 'E';
1635: END IF;
1636: x_return_status := 'E';
1637:
1638: WHEN OTHERS THEN
1639: IF p_commit = FND_API.G_TRUE
1640: THEN
1641: ROLLBACK TO billing_assignments;
1642: END IF;
1643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1639: IF p_commit = FND_API.G_TRUE
1640: THEN
1641: ROLLBACK TO billing_assignments;
1642: END IF;
1643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1644: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_BILLING_SETUP_PVT',
1645: p_procedure_name => 'DELETE_BILLING_ASSIGNMENTS',
1646: p_error_text => SUBSTRB(SQLERRM,1,240));
1647: RAISE;