6: -- Type : Utility procedure
7: -- Pre-reqs : None
8: -- Return Value : N/A
9: -- Prameters
10: -- p_retention_inv_format_id IN NUMBER OPTIONAL DEFAULT FND_API.G_MISS_NUM
11: -- p_retention_inv_format_name IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR
12: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
13: -- x_retention_inv_format_id OUT NUMBER REQUIRED
14: -- x_return_status OUT VARCHAR2 REQUIRED
7: -- Pre-reqs : None
8: -- Return Value : N/A
9: -- Prameters
10: -- p_retention_inv_format_id IN NUMBER OPTIONAL DEFAULT FND_API.G_MISS_NUM
11: -- p_retention_inv_format_name IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR
12: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
13: -- x_retention_inv_format_id OUT NUMBER REQUIRED
14: -- x_return_status OUT VARCHAR2 REQUIRED
15: -- x_error_msg_code OUT VARCHAR2 REQUIRED
20: --
21: --
22:
23: PROCEDURE Validate_Retn_Inv_Format(
24: p_retention_inv_format_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
25: p_retention_inv_format_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
26: p_check_id_flag IN VARCHAR2 DEFAULT 'A',
27: x_retention_inv_format_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
28: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
21: --
22:
23: PROCEDURE Validate_Retn_Inv_Format(
24: p_retention_inv_format_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
25: p_retention_inv_format_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
26: p_check_id_flag IN VARCHAR2 DEFAULT 'A',
27: x_retention_inv_format_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
28: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
29: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
92: ELSE
93: x_retention_inv_format_id := null;
94: END IF;
95: END IF;
96: x_return_status:= FND_API.G_RET_STS_SUCCESS;
97: EXCEPTION
98: WHEN no_data_found THEN
99: x_retention_inv_format_id := null;
100: x_return_status:= FND_API.G_RET_STS_ERROR;
96: x_return_status:= FND_API.G_RET_STS_SUCCESS;
97: EXCEPTION
98: WHEN no_data_found THEN
99: x_retention_inv_format_id := null;
100: x_return_status:= FND_API.G_RET_STS_ERROR;
101: x_error_msg_code:= 'PA_PRJ_INV_INVOI_FORMAT_ID';
102:
103: /* ATG NOCOPY */
104: x_retention_inv_format_id := null;
104: x_retention_inv_format_id := null;
105:
106: WHEN too_many_rows THEN
107: x_retention_inv_format_id := null;
108: x_return_status:= FND_API.G_RET_STS_ERROR;
109: x_error_msg_code:= 'PA_PRJ_TOO_MANY_INV_FMT_ID';
110: /* ATG NOCOPY */
111: x_retention_inv_format_id := null;
112: WHEN OTHERS THEN
110: /* ATG NOCOPY */
111: x_retention_inv_format_id := null;
112: WHEN OTHERS THEN
113: x_retention_inv_format_id := null;
114: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
115: /* ATG NOCOPY */
116: x_retention_inv_format_id := null;
117: RAISE;
118: END Validate_Retn_Inv_Format;
122: -- Pre-reqs : None
123: -- Return Value : BOOLEAN
124: -- Prameters
125: -- p_project_id IN NUMBER REQUIRED
126: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
127: -- p_credit_type IN VARCHAR2 REQUIRED
128: -- p_person_id IN NUMBER REQUIRED
129: -- p_effective_from_date IN DATE REQUIRED
130: -- p_effective_to_date IN DATE REQUIRED ,
138: --
139:
140: FUNCTION Duplicate_credit_receivers(
141: p_project_id IN NUMBER ,
142: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
143: p_credit_type IN VARCHAR2 ,
144: p_person_id IN NUMBER ,
145: p_effective_from_date IN DATE ,
146: p_effective_to_date IN DATE ,
170: ELSE
171: CLOSE cur_cr;
172: RETURN TRUE;
173: END IF;
174: x_return_status:= FND_API.G_RET_STS_SUCCESS;
175: EXCEPTION
176: WHEN OTHERS THEN
177: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
178: RAISE;
173: END IF;
174: x_return_status:= FND_API.G_RET_STS_SUCCESS;
175: EXCEPTION
176: WHEN OTHERS THEN
177: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
178: RAISE;
179: END Duplicate_credit_receivers;
180:
181:
184: -- Pre-reqs : None
185: -- Return Value : BOOLEAN
186: -- Prameters
187: -- p_project_id IN NUMBER REQUIRED
188: -- p_task_id IN NUMBER OPTIONAL DEFAULT=FND_API.G_MISS_NUM
189: -- p_billing_extension_id IN VARCHAR2 REQUIRED
190: -- p_billing_assignment_id IN NUMBER REQUIRED
191: -- p_active_flag IN VARCHAR2 REQUIRED
192: -- x_return_status OUT VARCHAR2 REQUIRED
198: --
199:
200: FUNCTION Duplicate_billing_assignments(
201: p_project_id IN NUMBER ,
202: p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
203: p_billing_extension_id IN NUMBER,
204: p_billing_assignment_id IN NUMBER,
205: p_active_flag IN VARCHAR2,
206: x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
229: ELSE
230: CLOSE cur_ba;
231: RETURN TRUE;
232: END IF;
233: x_return_status:= FND_API.G_RET_STS_SUCCESS;
234: EXCEPTION
235: WHEN OTHERS THEN
236: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
237: RAISE;
232: END IF;
233: x_return_status:= FND_API.G_RET_STS_SUCCESS;
234: EXCEPTION
235: WHEN OTHERS THEN
236: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
237: RAISE;
238: END Duplicate_billing_assignments;
239:
240:
242: -- Type : Utility procedure
243: -- Pre-reqs : None
244: -- Return Value : N/A
245: -- Prameters
246: -- p_person_id IN NUMBER OPTIONAL DEFAULT FND_API.G_MISS_NUM
247: -- p_person_name IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR
248: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
249: -- x_person_id OUT NUMBER REQUIRED
250: -- x_return_status OUT VARCHAR2 REQUIRED
243: -- Pre-reqs : None
244: -- Return Value : N/A
245: -- Prameters
246: -- p_person_id IN NUMBER OPTIONAL DEFAULT FND_API.G_MISS_NUM
247: -- p_person_name IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR
248: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
249: -- x_person_id OUT NUMBER REQUIRED
250: -- x_return_status OUT VARCHAR2 REQUIRED
251: -- x_error_msg_code OUT VARCHAR2 REQUIRED
256: --
257: --
258:
259: PROCEDURE VALIDATE_PERSON_ID_NAME(
260: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
261: p_person_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
262: p_check_id_flag IN VARCHAR2 DEFAULT 'A',
263: x_person_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
264: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
257: --
258:
259: PROCEDURE VALIDATE_PERSON_ID_NAME(
260: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
261: p_person_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
262: p_check_id_flag IN VARCHAR2 DEFAULT 'A',
263: x_person_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
264: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
265: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
329: ELSE
330: x_person_id := null;
331: END IF;
332: END IF;
333: x_return_status:= FND_API.G_RET_STS_SUCCESS;
334: EXCEPTION
335: WHEN no_data_found THEN
336: x_person_id := null;
337: x_return_status:= FND_API.G_RET_STS_ERROR;
333: x_return_status:= FND_API.G_RET_STS_SUCCESS;
334: EXCEPTION
335: WHEN no_data_found THEN
336: x_person_id := null;
337: x_return_status:= FND_API.G_RET_STS_ERROR;
338: x_error_msg_code:= 'PA_PRJ_INVALID_PERSON_ID';
339: /* ATG NOCOPY */
340: x_person_id := null;
341: WHEN too_many_rows THEN
339: /* ATG NOCOPY */
340: x_person_id := null;
341: WHEN too_many_rows THEN
342: x_person_id := null;
343: x_return_status:= FND_API.G_RET_STS_ERROR;
344: x_error_msg_code:= 'PA_PRJ_TOO_MANY_PERSON_ID';
345: /* ATG NOCOPY */
346: x_person_id := null;
347: WHEN OTHERS THEN
345: /* ATG NOCOPY */
346: x_person_id := null;
347: WHEN OTHERS THEN
348: x_person_id := null;
349: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
350: /* ATG NOCOPY */
351: x_person_id := null;
352: RAISE;
353: END VALIDATE_PERSON_ID_NAME;
395: null,
396: null );
397: RETURN l_next_billing_date;
398:
399: x_return_status:= FND_API.G_RET_STS_SUCCESS;
400:
401: EXCEPTION WHEN OTHERS THEN
402: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
403: RAISE;
398:
399: x_return_status:= FND_API.G_RET_STS_SUCCESS;
400:
401: EXCEPTION WHEN OTHERS THEN
402: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
403: RAISE;
404: END Get_Next_Billing_Date;
405:
406:
436: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
437: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
438: ) AS
439: BEGIN
440: x_return_status:= FND_API.G_RET_STS_SUCCESS;
441: IF p_project_type_class_code = 'CONTRACT'
442: THEN
443: IF p_distribution_rule IS NULL OR p_distribution_rule = FND_API.G_MISS_CHAR
444: THEN
439: BEGIN
440: x_return_status:= FND_API.G_RET_STS_SUCCESS;
441: IF p_project_type_class_code = 'CONTRACT'
442: THEN
443: IF p_distribution_rule IS NULL OR p_distribution_rule = FND_API.G_MISS_CHAR
444: THEN
445: x_error_msg_code := 'PA_PRJ_DIST_RULE_REQ';
446: x_return_status:= FND_API.G_RET_STS_ERROR;
447: RAISE FND_API.G_EXC_ERROR;
442: THEN
443: IF p_distribution_rule IS NULL OR p_distribution_rule = FND_API.G_MISS_CHAR
444: THEN
445: x_error_msg_code := 'PA_PRJ_DIST_RULE_REQ';
446: x_return_status:= FND_API.G_RET_STS_ERROR;
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
449:
450: IF p_billing_cycle_id IS NULL OR p_billing_cycle_id = FND_API.G_MISS_NUM
443: IF p_distribution_rule IS NULL OR p_distribution_rule = FND_API.G_MISS_CHAR
444: THEN
445: x_error_msg_code := 'PA_PRJ_DIST_RULE_REQ';
446: x_return_status:= FND_API.G_RET_STS_ERROR;
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
449:
450: IF p_billing_cycle_id IS NULL OR p_billing_cycle_id = FND_API.G_MISS_NUM
451: THEN
446: x_return_status:= FND_API.G_RET_STS_ERROR;
447: RAISE FND_API.G_EXC_ERROR;
448: END IF;
449:
450: IF p_billing_cycle_id IS NULL OR p_billing_cycle_id = FND_API.G_MISS_NUM
451: THEN
452: x_error_msg_code := 'PA_PRJ_BILLING_CYCLE_REQ';
453: x_return_status:= FND_API.G_RET_STS_ERROR;
454: RAISE FND_API.G_EXC_ERROR;
449:
450: IF p_billing_cycle_id IS NULL OR p_billing_cycle_id = FND_API.G_MISS_NUM
451: THEN
452: x_error_msg_code := 'PA_PRJ_BILLING_CYCLE_REQ';
453: x_return_status:= FND_API.G_RET_STS_ERROR;
454: RAISE FND_API.G_EXC_ERROR;
455: END IF;
456:
457: IF p_first_bill_offset IS NULL OR p_first_bill_offset = FND_API.G_MISS_NUM
450: IF p_billing_cycle_id IS NULL OR p_billing_cycle_id = FND_API.G_MISS_NUM
451: THEN
452: x_error_msg_code := 'PA_PRJ_BILLING_CYCLE_REQ';
453: x_return_status:= FND_API.G_RET_STS_ERROR;
454: RAISE FND_API.G_EXC_ERROR;
455: END IF;
456:
457: IF p_first_bill_offset IS NULL OR p_first_bill_offset = FND_API.G_MISS_NUM
458: THEN
453: x_return_status:= FND_API.G_RET_STS_ERROR;
454: RAISE FND_API.G_EXC_ERROR;
455: END IF;
456:
457: IF p_first_bill_offset IS NULL OR p_first_bill_offset = FND_API.G_MISS_NUM
458: THEN
459: x_error_msg_code := 'PA_PRJ_BILL_OFFSET_REQ';
460: x_return_status:= FND_API.G_RET_STS_ERROR;
461: RAISE FND_API.G_EXC_ERROR;
456:
457: IF p_first_bill_offset IS NULL OR p_first_bill_offset = FND_API.G_MISS_NUM
458: THEN
459: x_error_msg_code := 'PA_PRJ_BILL_OFFSET_REQ';
460: x_return_status:= FND_API.G_RET_STS_ERROR;
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463:
464: IF p_billing_job_group_id IS NULL OR p_billing_job_group_id = FND_API.G_MISS_NUM
457: IF p_first_bill_offset IS NULL OR p_first_bill_offset = FND_API.G_MISS_NUM
458: THEN
459: x_error_msg_code := 'PA_PRJ_BILL_OFFSET_REQ';
460: x_return_status:= FND_API.G_RET_STS_ERROR;
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463:
464: IF p_billing_job_group_id IS NULL OR p_billing_job_group_id = FND_API.G_MISS_NUM
465: THEN
460: x_return_status:= FND_API.G_RET_STS_ERROR;
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463:
464: IF p_billing_job_group_id IS NULL OR p_billing_job_group_id = FND_API.G_MISS_NUM
465: THEN
466: x_error_msg_code := 'PA_PRJ_BILL_JOB_GROUP_REQ';
467: x_return_status:= FND_API.G_RET_STS_ERROR;
468: RAISE FND_API.G_EXC_ERROR;
463:
464: IF p_billing_job_group_id IS NULL OR p_billing_job_group_id = FND_API.G_MISS_NUM
465: THEN
466: x_error_msg_code := 'PA_PRJ_BILL_JOB_GROUP_REQ';
467: x_return_status:= FND_API.G_RET_STS_ERROR;
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
470:
471: IF p_labor_id IS NULL OR p_labor_id = FND_API.G_MISS_NUM
464: IF p_billing_job_group_id IS NULL OR p_billing_job_group_id = FND_API.G_MISS_NUM
465: THEN
466: x_error_msg_code := 'PA_PRJ_BILL_JOB_GROUP_REQ';
467: x_return_status:= FND_API.G_RET_STS_ERROR;
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
470:
471: IF p_labor_id IS NULL OR p_labor_id = FND_API.G_MISS_NUM
472: THEN
467: x_return_status:= FND_API.G_RET_STS_ERROR;
468: RAISE FND_API.G_EXC_ERROR;
469: END IF;
470:
471: IF p_labor_id IS NULL OR p_labor_id = FND_API.G_MISS_NUM
472: THEN
473: x_error_msg_code := 'PA_PRJ_LBR_INV_FORMAT_REQ';
474: x_return_status:= FND_API.G_RET_STS_ERROR;
475: RAISE FND_API.G_EXC_ERROR;
470:
471: IF p_labor_id IS NULL OR p_labor_id = FND_API.G_MISS_NUM
472: THEN
473: x_error_msg_code := 'PA_PRJ_LBR_INV_FORMAT_REQ';
474: x_return_status:= FND_API.G_RET_STS_ERROR;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
478: IF p_non_labor_id IS NULL OR p_non_labor_id = FND_API.G_MISS_NUM
471: IF p_labor_id IS NULL OR p_labor_id = FND_API.G_MISS_NUM
472: THEN
473: x_error_msg_code := 'PA_PRJ_LBR_INV_FORMAT_REQ';
474: x_return_status:= FND_API.G_RET_STS_ERROR;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
478: IF p_non_labor_id IS NULL OR p_non_labor_id = FND_API.G_MISS_NUM
479: THEN
474: x_return_status:= FND_API.G_RET_STS_ERROR;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
478: IF p_non_labor_id IS NULL OR p_non_labor_id = FND_API.G_MISS_NUM
479: THEN
480: x_error_msg_code := 'PA_PRJ_NL_INV_FORMAT_REQ';
481: x_return_status:= FND_API.G_RET_STS_ERROR;
482: RAISE FND_API.G_EXC_ERROR;
477:
478: IF p_non_labor_id IS NULL OR p_non_labor_id = FND_API.G_MISS_NUM
479: THEN
480: x_error_msg_code := 'PA_PRJ_NL_INV_FORMAT_REQ';
481: x_return_status:= FND_API.G_RET_STS_ERROR;
482: RAISE FND_API.G_EXC_ERROR;
483: END IF;
484:
485: END IF;
478: IF p_non_labor_id IS NULL OR p_non_labor_id = FND_API.G_MISS_NUM
479: THEN
480: x_error_msg_code := 'PA_PRJ_NL_INV_FORMAT_REQ';
481: x_return_status:= FND_API.G_RET_STS_ERROR;
482: RAISE FND_API.G_EXC_ERROR;
483: END IF;
484:
485: END IF;
486: EXCEPTION
483: END IF;
484:
485: END IF;
486: EXCEPTION
487: WHEN FND_API.G_EXC_ERROR THEN
488: x_return_status:= FND_API.G_RET_STS_ERROR;
489: END REV_BILL_INF_REQ_CHECK;
490:
491:
484:
485: END IF;
486: EXCEPTION
487: WHEN FND_API.G_EXC_ERROR THEN
488: x_return_status:= FND_API.G_RET_STS_ERROR;
489: END REV_BILL_INF_REQ_CHECK;
490:
491:
492: -- API name : BILL_XTENSION_REQ_CHECK
509: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
510: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
511: ) IS
512: BEGIN
513: x_return_status:= FND_API.G_RET_STS_SUCCESS;
514: IF p_billing_extension_id IS NULL OR p_billing_extension_id = FND_API.G_MISS_NUM
515: THEN
516: x_error_msg_code := 'PA_PRJ_BILL_XTENSION_REQ';
517: x_return_status:= FND_API.G_RET_STS_ERROR;
510: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
511: ) IS
512: BEGIN
513: x_return_status:= FND_API.G_RET_STS_SUCCESS;
514: IF p_billing_extension_id IS NULL OR p_billing_extension_id = FND_API.G_MISS_NUM
515: THEN
516: x_error_msg_code := 'PA_PRJ_BILL_XTENSION_REQ';
517: x_return_status:= FND_API.G_RET_STS_ERROR;
518: RAISE FND_API.G_EXC_ERROR;
513: x_return_status:= FND_API.G_RET_STS_SUCCESS;
514: IF p_billing_extension_id IS NULL OR p_billing_extension_id = FND_API.G_MISS_NUM
515: THEN
516: x_error_msg_code := 'PA_PRJ_BILL_XTENSION_REQ';
517: x_return_status:= FND_API.G_RET_STS_ERROR;
518: RAISE FND_API.G_EXC_ERROR;
519: END IF;
520: EXCEPTION
521: WHEN FND_API.G_EXC_ERROR THEN
514: IF p_billing_extension_id IS NULL OR p_billing_extension_id = FND_API.G_MISS_NUM
515: THEN
516: x_error_msg_code := 'PA_PRJ_BILL_XTENSION_REQ';
517: x_return_status:= FND_API.G_RET_STS_ERROR;
518: RAISE FND_API.G_EXC_ERROR;
519: END IF;
520: EXCEPTION
521: WHEN FND_API.G_EXC_ERROR THEN
522: x_return_status:= FND_API.G_RET_STS_ERROR;
517: x_return_status:= FND_API.G_RET_STS_ERROR;
518: RAISE FND_API.G_EXC_ERROR;
519: END IF;
520: EXCEPTION
521: WHEN FND_API.G_EXC_ERROR THEN
522: x_return_status:= FND_API.G_RET_STS_ERROR;
523: END BILL_XTENSION_REQ_CHECK;
524:
525:
518: RAISE FND_API.G_EXC_ERROR;
519: END IF;
520: EXCEPTION
521: WHEN FND_API.G_EXC_ERROR THEN
522: x_return_status:= FND_API.G_RET_STS_ERROR;
523: END BILL_XTENSION_REQ_CHECK;
524:
525:
526: -- API name : VALIDATE_EMP_NO_TO_ID
527: -- Type : Utility procedure
528: -- Pre-reqs : None
529: -- Return Value : N/A
530: -- Prameters
531: -- p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
532: -- p_emp_number IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
533: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
534: -- x_person_id OUT NUMBER ,
535: -- x_return_status OUT VARCHAR2 REQUIRED
528: -- Pre-reqs : None
529: -- Return Value : N/A
530: -- Prameters
531: -- p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
532: -- p_emp_number IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
533: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
534: -- x_person_id OUT NUMBER ,
535: -- x_return_status OUT VARCHAR2 REQUIRED
536: -- x_error_msg_code OUT VARCHAR2 REQUIRED
541: --
542: --
543:
544: PROCEDURE VALIDATE_EMP_NO_TO_ID(
545: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
546: p_emp_number IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
547: p_check_id_flag IN VARCHAR2 DEFAULT 'A',
548: x_person_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
549: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
542: --
543:
544: PROCEDURE VALIDATE_EMP_NO_TO_ID(
545: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
546: p_emp_number IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
547: p_check_id_flag IN VARCHAR2 DEFAULT 'A',
548: x_person_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
549: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
550: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
612: ELSE
613: x_person_id := null;
614: END IF;
615: END IF;
616: x_return_status:= FND_API.G_RET_STS_SUCCESS;
617: EXCEPTION
618: WHEN no_data_found THEN
619: x_person_id := null;
620: x_return_status:= FND_API.G_RET_STS_ERROR;
616: x_return_status:= FND_API.G_RET_STS_SUCCESS;
617: EXCEPTION
618: WHEN no_data_found THEN
619: x_person_id := null;
620: x_return_status:= FND_API.G_RET_STS_ERROR;
621: x_error_msg_code:= 'PA_PRJ_INVALID_PERSON_ID';
622: /* ATG NOCOPY */
623: x_person_id := null;
624: WHEN too_many_rows THEN
622: /* ATG NOCOPY */
623: x_person_id := null;
624: WHEN too_many_rows THEN
625: x_person_id := null;
626: x_return_status:= FND_API.G_RET_STS_ERROR;
627: x_error_msg_code:= 'PA_PRJ_TOO_MANY_PERSON_ID';
628: /* ATG NOCOPY */
629: x_person_id := null;
630: WHEN OTHERS THEN
628: /* ATG NOCOPY */
629: x_person_id := null;
630: WHEN OTHERS THEN
631: x_person_id := null;
632: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
633: x_error_msg_code := 'Error in VALIDATE_EMP_NO_TO_ID';
634: /* ATG NOCOPY */
635: x_person_id := null;
636: RAISE;
641: -- Type : Utility procedure
642: -- Pre-reqs : None
643: -- Return Value : N/A
644: -- Prameters
645: -- p_person_id IN NUMBER OPTIONAL DEFAULT FND_API.G_MISS_NUM,
646: -- p_person_name IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR,
647: -- p_emp_number IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR,
648: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
649: -- x_person_id OUT NUMBER
642: -- Pre-reqs : None
643: -- Return Value : N/A
644: -- Prameters
645: -- p_person_id IN NUMBER OPTIONAL DEFAULT FND_API.G_MISS_NUM,
646: -- p_person_name IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR,
647: -- p_emp_number IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR,
648: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
649: -- x_person_id OUT NUMBER
650: -- x_return_status OUT VARCHAR2 REQUIRED
643: -- Return Value : N/A
644: -- Prameters
645: -- p_person_id IN NUMBER OPTIONAL DEFAULT FND_API.G_MISS_NUM,
646: -- p_person_name IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR,
647: -- p_emp_number IN VARCHAR2 OPTIONAL DEFAULT FND_API.G_MISS_CHAR,
648: -- p_check_id IN VARCHAR2 REQUIRED DEFAULT 'A'
649: -- x_person_id OUT NUMBER
650: -- x_return_status OUT VARCHAR2 REQUIRED
651: -- x_error_msg_code OUT VARCHAR2 REQUIRED
656: --
657: --
658:
659: PROCEDURE VALIDATE_EMP_NO_NAME(
660: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
661: p_person_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
662: p_emp_number IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
663: p_check_id IN VARCHAR2 DEFAULT 'A',
664: x_person_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
657: --
658:
659: PROCEDURE VALIDATE_EMP_NO_NAME(
660: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
661: p_person_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
662: p_emp_number IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
663: p_check_id IN VARCHAR2 DEFAULT 'A',
664: x_person_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
665: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
658:
659: PROCEDURE VALIDATE_EMP_NO_NAME(
660: p_person_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
661: p_person_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
662: p_emp_number IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
663: p_check_id IN VARCHAR2 DEFAULT 'A',
664: x_person_id OUT NOCOPY NUMBER , --File.Sql.39 bug 4440895
665: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
666: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
671: l_person_id2 NUMBER;
672:
673:
674: BEGIN
675: x_return_status:= FND_API.G_RET_STS_SUCCESS;
676: IF ( p_person_name IS NOT NULL AND p_person_name <> FND_API.G_MISS_CHAR ) AND
677: ( p_emp_number IS NOT NULL AND p_emp_number <> FND_API.G_MISS_CHAR )
678: THEN
679: PA_BILLING_SETUP_UTILS.Validate_person_id_name
672:
673:
674: BEGIN
675: x_return_status:= FND_API.G_RET_STS_SUCCESS;
676: IF ( p_person_name IS NOT NULL AND p_person_name <> FND_API.G_MISS_CHAR ) AND
677: ( p_emp_number IS NOT NULL AND p_emp_number <> FND_API.G_MISS_CHAR )
678: THEN
679: PA_BILLING_SETUP_UTILS.Validate_person_id_name
680: ( p_person_id => p_person_id
673:
674: BEGIN
675: x_return_status:= FND_API.G_RET_STS_SUCCESS;
676: IF ( p_person_name IS NOT NULL AND p_person_name <> FND_API.G_MISS_CHAR ) AND
677: ( p_emp_number IS NOT NULL AND p_emp_number <> FND_API.G_MISS_CHAR )
678: THEN
679: PA_BILLING_SETUP_UTILS.Validate_person_id_name
680: ( p_person_id => p_person_id
681: ,p_person_name => p_person_name
697:
698: IF l_person_id2 <> l_person_id
699: THEN
700: x_error_msg_code := 'PA_PRJ_INV_EMP_NO_NAME';
701: x_return_status:= FND_API.G_RET_STS_ERROR;
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: ELSIF ( p_person_id IS NOT NULL AND p_person_id <> FND_API.G_MISS_NUM ) OR
698: IF l_person_id2 <> l_person_id
699: THEN
700: x_error_msg_code := 'PA_PRJ_INV_EMP_NO_NAME';
701: x_return_status:= FND_API.G_RET_STS_ERROR;
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: ELSIF ( p_person_id IS NOT NULL AND p_person_id <> FND_API.G_MISS_NUM ) OR
706: ( p_person_name IS NOT NULL AND p_person_name <> FND_API.G_MISS_CHAR )
701: x_return_status:= FND_API.G_RET_STS_ERROR;
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: ELSIF ( p_person_id IS NOT NULL AND p_person_id <> FND_API.G_MISS_NUM ) OR
706: ( p_person_name IS NOT NULL AND p_person_name <> FND_API.G_MISS_CHAR )
707: THEN
708: PA_BILLING_SETUP_UTILS.Validate_person_id_name
709: ( p_person_id => p_person_id
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: ELSIF ( p_person_id IS NOT NULL AND p_person_id <> FND_API.G_MISS_NUM ) OR
706: ( p_person_name IS NOT NULL AND p_person_name <> FND_API.G_MISS_CHAR )
707: THEN
708: PA_BILLING_SETUP_UTILS.Validate_person_id_name
709: ( p_person_id => p_person_id
710: ,p_person_name => p_person_name
711: ,p_check_id_flag => 'A'
712: ,x_person_id => l_person_id
713: ,x_return_status => l_return_status
714: ,x_error_msg_code => l_error_msg_code);
715: ELSIF ( p_person_id IS NOT NULL AND p_person_id <> FND_API.G_MISS_NUM ) OR
716: ( p_emp_number IS NOT NULL AND p_emp_number <> FND_API.G_MISS_CHAR )
717: THEN
718: PA_BILLING_SETUP_UTILS.VALIDATE_EMP_NO_TO_ID
719: ( p_person_id => p_person_id
712: ,x_person_id => l_person_id
713: ,x_return_status => l_return_status
714: ,x_error_msg_code => l_error_msg_code);
715: ELSIF ( p_person_id IS NOT NULL AND p_person_id <> FND_API.G_MISS_NUM ) OR
716: ( p_emp_number IS NOT NULL AND p_emp_number <> FND_API.G_MISS_CHAR )
717: THEN
718: PA_BILLING_SETUP_UTILS.VALIDATE_EMP_NO_TO_ID
719: ( p_person_id => p_person_id
720: ,p_emp_number => p_emp_number
725:
726: END IF;
727: x_person_id := l_person_id;
728: EXCEPTION
729: WHEN FND_API.G_EXC_ERROR THEN
730: x_return_status:= FND_API.G_RET_STS_ERROR;
731: x_error_msg_code := 'Error in VALIDATE_EMP_NO_NAME';
732: /* ATG NOCOPY */
733: x_person_id := null;
726: END IF;
727: x_person_id := l_person_id;
728: EXCEPTION
729: WHEN FND_API.G_EXC_ERROR THEN
730: x_return_status:= FND_API.G_RET_STS_ERROR;
731: x_error_msg_code := 'Error in VALIDATE_EMP_NO_NAME';
732: /* ATG NOCOPY */
733: x_person_id := null;
734: WHEN OTHERS THEN
764: x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
765: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
766: ) AS
767: BEGIN
768: x_return_status:= FND_API.G_RET_STS_SUCCESS;
769: IF p_credit_type IS NULL OR p_credit_type = FND_API.G_MISS_CHAR
770: THEN
771: x_error_msg_code := 'PA_PRJ_CREDIT_TYPE_REQ';
772: x_return_status:= FND_API.G_RET_STS_ERROR;
765: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
766: ) AS
767: BEGIN
768: x_return_status:= FND_API.G_RET_STS_SUCCESS;
769: IF p_credit_type IS NULL OR p_credit_type = FND_API.G_MISS_CHAR
770: THEN
771: x_error_msg_code := 'PA_PRJ_CREDIT_TYPE_REQ';
772: x_return_status:= FND_API.G_RET_STS_ERROR;
773: RAISE FND_API.G_EXC_ERROR;
768: x_return_status:= FND_API.G_RET_STS_SUCCESS;
769: IF p_credit_type IS NULL OR p_credit_type = FND_API.G_MISS_CHAR
770: THEN
771: x_error_msg_code := 'PA_PRJ_CREDIT_TYPE_REQ';
772: x_return_status:= FND_API.G_RET_STS_ERROR;
773: RAISE FND_API.G_EXC_ERROR;
774: END IF;
775:
776: IF p_person_id IS NULL OR p_person_id = FND_API.G_MISS_NUM
769: IF p_credit_type IS NULL OR p_credit_type = FND_API.G_MISS_CHAR
770: THEN
771: x_error_msg_code := 'PA_PRJ_CREDIT_TYPE_REQ';
772: x_return_status:= FND_API.G_RET_STS_ERROR;
773: RAISE FND_API.G_EXC_ERROR;
774: END IF;
775:
776: IF p_person_id IS NULL OR p_person_id = FND_API.G_MISS_NUM
777: THEN
772: x_return_status:= FND_API.G_RET_STS_ERROR;
773: RAISE FND_API.G_EXC_ERROR;
774: END IF;
775:
776: IF p_person_id IS NULL OR p_person_id = FND_API.G_MISS_NUM
777: THEN
778: x_error_msg_code := 'PA_PRJ_EMP_NO_NAME_REQ';
779: x_return_status:= FND_API.G_RET_STS_ERROR;
780: RAISE FND_API.G_EXC_ERROR;
775:
776: IF p_person_id IS NULL OR p_person_id = FND_API.G_MISS_NUM
777: THEN
778: x_error_msg_code := 'PA_PRJ_EMP_NO_NAME_REQ';
779: x_return_status:= FND_API.G_RET_STS_ERROR;
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782:
783: IF p_transfer_to_AR IS NULL OR p_transfer_to_AR = FND_API.G_MISS_CHAR
776: IF p_person_id IS NULL OR p_person_id = FND_API.G_MISS_NUM
777: THEN
778: x_error_msg_code := 'PA_PRJ_EMP_NO_NAME_REQ';
779: x_return_status:= FND_API.G_RET_STS_ERROR;
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782:
783: IF p_transfer_to_AR IS NULL OR p_transfer_to_AR = FND_API.G_MISS_CHAR
784: THEN
779: x_return_status:= FND_API.G_RET_STS_ERROR;
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782:
783: IF p_transfer_to_AR IS NULL OR p_transfer_to_AR = FND_API.G_MISS_CHAR
784: THEN
785: x_error_msg_code := 'PA_PRJ_XFER_TO_AR_FLG_REQ';
786: x_return_status:= FND_API.G_RET_STS_ERROR;
787: RAISE FND_API.G_EXC_ERROR;
782:
783: IF p_transfer_to_AR IS NULL OR p_transfer_to_AR = FND_API.G_MISS_CHAR
784: THEN
785: x_error_msg_code := 'PA_PRJ_XFER_TO_AR_FLG_REQ';
786: x_return_status:= FND_API.G_RET_STS_ERROR;
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
790: IF p_effective_from_date IS NULL OR p_effective_from_date = FND_API.G_MISS_DATE
783: IF p_transfer_to_AR IS NULL OR p_transfer_to_AR = FND_API.G_MISS_CHAR
784: THEN
785: x_error_msg_code := 'PA_PRJ_XFER_TO_AR_FLG_REQ';
786: x_return_status:= FND_API.G_RET_STS_ERROR;
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
790: IF p_effective_from_date IS NULL OR p_effective_from_date = FND_API.G_MISS_DATE
791: THEN
786: x_return_status:= FND_API.G_RET_STS_ERROR;
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
790: IF p_effective_from_date IS NULL OR p_effective_from_date = FND_API.G_MISS_DATE
791: THEN
792: x_error_msg_code := 'PRJ_PA_ST_DT_REQ';
793: x_return_status:= FND_API.G_RET_STS_ERROR;
794: RAISE FND_API.G_EXC_ERROR;
789:
790: IF p_effective_from_date IS NULL OR p_effective_from_date = FND_API.G_MISS_DATE
791: THEN
792: x_error_msg_code := 'PRJ_PA_ST_DT_REQ';
793: x_return_status:= FND_API.G_RET_STS_ERROR;
794: RAISE FND_API.G_EXC_ERROR;
795: END IF;
796:
797: EXCEPTION
790: IF p_effective_from_date IS NULL OR p_effective_from_date = FND_API.G_MISS_DATE
791: THEN
792: x_error_msg_code := 'PRJ_PA_ST_DT_REQ';
793: x_return_status:= FND_API.G_RET_STS_ERROR;
794: RAISE FND_API.G_EXC_ERROR;
795: END IF;
796:
797: EXCEPTION
798: WHEN FND_API.G_EXC_ERROR THEN
794: RAISE FND_API.G_EXC_ERROR;
795: END IF;
796:
797: EXCEPTION
798: WHEN FND_API.G_EXC_ERROR THEN
799: x_return_status:= FND_API.G_RET_STS_ERROR;
800: END CREDIT_REC_REQ_CHECK;
801:
802: -- API name : GET_SALES_CREDIT_FLAG
795: END IF;
796:
797: EXCEPTION
798: WHEN FND_API.G_EXC_ERROR THEN
799: x_return_status:= FND_API.G_RET_STS_ERROR;
800: END CREDIT_REC_REQ_CHECK;
801:
802: -- API name : GET_SALES_CREDIT_FLAG
803: -- Type : Utility Function
824: WHERE R.BATCH_SOURCE_ID = S.INVOICE_BATCH_SOURCE_ID ;
825:
826: l_ALLOW_SALES_CREDIT_FLAG VARCHAR2(1);
827: BEGIN
828: x_return_status:= FND_API.G_RET_STS_SUCCESS;
829:
830: OPEN sales_crdt_flag;
831: FETCH sales_crdt_flag INTO l_ALLOW_SALES_CREDIT_FLAG;
832: CLOSE sales_crdt_flag;
834: RETURN NVL( l_ALLOW_SALES_CREDIT_FLAG, 'N' );
835:
836: EXCEPTION
837: WHEN OTHERS THEN
838: x_return_status:= FND_API.G_RET_STS_ERROR;
839: END GET_SALES_CREDIT_FLAG;
840:
841:
842: