152: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
153: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
154: ) IS
155: BEGIN
156: x_return_status:= FND_API.G_RET_STS_SUCCESS;
157:
158: IF p_project_number IS NULL
159: THEN
160: x_error_msg_code := 'PA_SETUP_PROJ_NUM_REQ';
157:
158: IF p_project_number IS NULL
159: THEN
160: x_error_msg_code := 'PA_SETUP_PROJ_NUM_REQ';
161: x_return_status:= FND_API.G_RET_STS_ERROR;
162: RAISE FND_API.G_EXC_ERROR;
163: END IF;
164:
165: IF p_project_name IS NULL
158: IF p_project_number IS NULL
159: THEN
160: x_error_msg_code := 'PA_SETUP_PROJ_NUM_REQ';
161: x_return_status:= FND_API.G_RET_STS_ERROR;
162: RAISE FND_API.G_EXC_ERROR;
163: END IF;
164:
165: IF p_project_name IS NULL
166: THEN
164:
165: IF p_project_name IS NULL
166: THEN
167: x_error_msg_code := 'PA_SETUP_PROJ_NAME_REQ';
168: x_return_status:= FND_API.G_RET_STS_ERROR;
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
171:
172: IF p_project_type IS NULL
165: IF p_project_name IS NULL
166: THEN
167: x_error_msg_code := 'PA_SETUP_PROJ_NAME_REQ';
168: x_return_status:= FND_API.G_RET_STS_ERROR;
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
171:
172: IF p_project_type IS NULL
173: THEN
171:
172: IF p_project_type IS NULL
173: THEN
174: x_error_msg_code := 'PA_SETUP_PROJ_TYPE_REQ';
175: x_return_status:= FND_API.G_RET_STS_ERROR;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF p_organization_id IS NULL
172: IF p_project_type IS NULL
173: THEN
174: x_error_msg_code := 'PA_SETUP_PROJ_TYPE_REQ';
175: x_return_status:= FND_API.G_RET_STS_ERROR;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179: IF p_organization_id IS NULL
180: THEN
178:
179: IF p_organization_id IS NULL
180: THEN
181: x_error_msg_code := 'PA_SETUP_ORG_ID_REQ';
182: x_return_status:= FND_API.G_RET_STS_ERROR;
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: EXCEPTION
179: IF p_organization_id IS NULL
180: THEN
181: x_error_msg_code := 'PA_SETUP_ORG_ID_REQ';
182: x_return_status:= FND_API.G_RET_STS_ERROR;
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: EXCEPTION
187: WHEN FND_API.G_EXC_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: EXCEPTION
187: WHEN FND_API.G_EXC_ERROR THEN
188: x_return_status:= FND_API.G_RET_STS_ERROR;
189: END Check_Template_attr_req;
190: -- API name : Get_Project_Type_Defaults
191: -- Type : Utils API
184: END IF;
185:
186: EXCEPTION
187: WHEN FND_API.G_EXC_ERROR THEN
188: x_return_status:= FND_API.G_RET_STS_ERROR;
189: END Check_Template_attr_req;
190: -- API name : Get_Project_Type_Defaults
191: -- Type : Utils API
192: -- Pre-reqs : None
326: ,auto_release_pwp_inv -- 7508661 : EnC
327: FROM pa_project_types
328: WHERE project_type = p_project_type;
329: BEGIN
330: x_return_status:= FND_API.G_RET_STS_SUCCESS;
331:
332: OPEN cur_project_types;
333: FETCH cur_project_types INTO x_Status_code
334: ,x_service_type_code
377:
378: IF cur_project_types%NOTFOUND
379: THEN
380: x_error_msg_code := 'PA_SETUP_INV_PROJ_TYPE';
381: x_return_status:= FND_API.G_RET_STS_ERROR;
382: CLOSE cur_project_types;
383: RAISE FND_API.G_EXC_ERROR;
384: ELSE
385: CLOSE cur_project_types;
379: THEN
380: x_error_msg_code := 'PA_SETUP_INV_PROJ_TYPE';
381: x_return_status:= FND_API.G_RET_STS_ERROR;
382: CLOSE cur_project_types;
383: RAISE FND_API.G_EXC_ERROR;
384: ELSE
385: CLOSE cur_project_types;
386: END IF;
387: EXCEPTION
384: ELSE
385: CLOSE cur_project_types;
386: END IF;
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
389: x_return_status:= FND_API.G_RET_STS_ERROR;
390:
391: END Get_Project_Type_Defaults;
392:
385: CLOSE cur_project_types;
386: END IF;
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
389: x_return_status:= FND_API.G_RET_STS_ERROR;
390:
391: END Get_Project_Type_Defaults;
392:
393: -- API name : Get_Field_name
415: WHERE meaning = p_field_name_meaning
416: AND lookup_type = 'OVERRIDE FIELD';
417:
418: BEGIN
419: x_return_status:= FND_API.G_RET_STS_SUCCESS;
420:
421: OPEN cur_field_name;
422: FETCH cur_field_name INTO x_field_name;
423: IF cur_field_name%NOTFOUND
421: OPEN cur_field_name;
422: FETCH cur_field_name INTO x_field_name;
423: IF cur_field_name%NOTFOUND
424: THEN
425: x_return_status:= FND_API.G_RET_STS_ERROR;
426: CLOSE cur_field_name;
427: x_error_msg_code := 'PA_SETUP_INV_FIELD_MEANG';
428: RAISE FND_API.G_EXC_ERROR;
429: END IF;
424: THEN
425: x_return_status:= FND_API.G_RET_STS_ERROR;
426: CLOSE cur_field_name;
427: x_error_msg_code := 'PA_SETUP_INV_FIELD_MEANG';
428: RAISE FND_API.G_EXC_ERROR;
429: END IF;
430: CLOSE cur_field_name;
431:
432: EXCEPTION
429: END IF;
430: CLOSE cur_field_name;
431:
432: EXCEPTION
433: WHEN FND_API.G_EXC_ERROR THEN
434: x_return_status:= FND_API.G_RET_STS_ERROR;
435:
436: END Get_Field_name;
437:
430: CLOSE cur_field_name;
431:
432: EXCEPTION
433: WHEN FND_API.G_EXC_ERROR THEN
434: x_return_status:= FND_API.G_RET_STS_ERROR;
435:
436: END Get_Field_name;
437:
438: -- API name : Get_limiting_value
472: AND meaning = p_specification;
473:
474:
475: BEGIN
476: x_return_status:= FND_API.G_RET_STS_SUCCESS;
477: IF p_field_name = 'CLASSIFICATION'
478: THEN
479: x_limiting_value := p_specification;
480: ELSIF p_field_name = 'KEY_MEMBER'
482: OPEN cur_key_member;
483: FETCH cur_key_member INTO x_limiting_value;
484: IF cur_key_member%NOTFOUND
485: THEN
486: x_return_status:= FND_API.G_RET_STS_ERROR;
487: CLOSE cur_key_member;
488: x_error_msg_code := 'PA_SETUP_INV_KM_MEANG';
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
485: THEN
486: x_return_status:= FND_API.G_RET_STS_ERROR;
487: CLOSE cur_key_member;
488: x_error_msg_code := 'PA_SETUP_INV_KM_MEANG';
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491: CLOSE cur_key_member;
492: ELSIF p_field_name = 'ORG_ROLE'
493: THEN
494: OPEN cur_key_member;
495: FETCH cur_key_member INTO x_limiting_value;
496: IF cur_key_member%NOTFOUND
497: THEN
498: x_return_status:= FND_API.G_RET_STS_ERROR;
499: CLOSE cur_key_member;
500: x_error_msg_code := 'PA_SETUP_INV_ORG_ROL_MEANG';
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
497: THEN
498: x_return_status:= FND_API.G_RET_STS_ERROR;
499: CLOSE cur_key_member;
500: x_error_msg_code := 'PA_SETUP_INV_ORG_ROL_MEANG';
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503: CLOSE cur_key_member;
504: ELSIF p_field_name = 'CUSTOMER_NAME'
505: THEN
506: OPEN cur_customer_name;
507: FETCH cur_customer_name INTO x_limiting_value;
508: IF cur_customer_name%NOTFOUND
509: THEN
510: x_return_status:= FND_API.G_RET_STS_ERROR;
511: CLOSE cur_customer_name;
512: x_error_msg_code := 'PA_SETUP_INV_CUST_MEANG';
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
509: THEN
510: x_return_status:= FND_API.G_RET_STS_ERROR;
511: CLOSE cur_customer_name;
512: x_error_msg_code := 'PA_SETUP_INV_CUST_MEANG';
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
515: CLOSE cur_customer_name;
516: END IF;
517:
515: CLOSE cur_customer_name;
516: END IF;
517:
518: EXCEPTION
519: WHEN FND_API.G_EXC_ERROR THEN
520: x_return_status:= FND_API.G_RET_STS_ERROR;
521:
522: END Get_limiting_value;
523:
516: END IF;
517:
518: EXCEPTION
519: WHEN FND_API.G_EXC_ERROR THEN
520: x_return_status:= FND_API.G_RET_STS_ERROR;
521:
522: END Get_limiting_value;
523:
524:
610: END IF;
611: END IF;
612: END IF;
613:
614: x_return_status := FND_API.G_RET_STS_SUCCESS;
615: EXCEPTION
616: WHEN NO_DATA_FOUND THEN
617: --dbms_output.put_line( 'In no data found exception ' );
618: x_template_id := NULL;
615: EXCEPTION
616: WHEN NO_DATA_FOUND THEN
617: --dbms_output.put_line( 'In no data found exception ' );
618: x_template_id := NULL;
619: x_return_status := FND_API.G_RET_STS_ERROR;
620: x_error_msg_code := 'PA_SETUP_INV_TMPL_ID';
621: WHEN TOO_MANY_ROWS THEN
622: x_template_id := NULL;
623: x_return_status := FND_API.G_RET_STS_ERROR;
619: x_return_status := FND_API.G_RET_STS_ERROR;
620: x_error_msg_code := 'PA_SETUP_INV_TMPL_ID';
621: WHEN TOO_MANY_ROWS THEN
622: x_template_id := NULL;
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: x_error_msg_code := 'PA_SETUP_TMPL_ID_NOT_UNIQ';
625: WHEN OTHERS THEN
626: x_template_id := NULL;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: x_error_msg_code := 'PA_SETUP_TMPL_ID_NOT_UNIQ';
625: WHEN OTHERS THEN
626: x_template_id := NULL;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_UTILS',
629: p_procedure_name => 'CHECK_TEMPLATE_NAME_OR_ID');
630: RAISE;
631: END CHECK_TEMPLATE_NAME_OR_ID;
724: END IF;
725: END IF;
726: END IF;
727:
728: x_return_status := FND_API.G_RET_STS_SUCCESS;
729: EXCEPTION
730: WHEN NO_DATA_FOUND THEN
731: x_project_id := NULL;
732: x_return_status := FND_API.G_RET_STS_ERROR;
728: x_return_status := FND_API.G_RET_STS_SUCCESS;
729: EXCEPTION
730: WHEN NO_DATA_FOUND THEN
731: x_project_id := NULL;
732: x_return_status := FND_API.G_RET_STS_ERROR;
733: IF l_ndf_exception = 2 THEN
734: x_error_msg_code := 'PA_TASK_INV_PRJ_ID';
735: ELSE
736: x_error_msg_code := 'PA_SETUP_INV_PROJ_NAME';
736: x_error_msg_code := 'PA_SETUP_INV_PROJ_NAME';
737: END IF;
738: WHEN TOO_MANY_ROWS THEN
739: x_project_id := NULL;
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: x_error_msg_code := 'PA_TASK_PRJ_ID_NOT_UNIQ';
742: WHEN OTHERS THEN
743: x_project_id := NULL;
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: x_error_msg_code := 'PA_TASK_PRJ_ID_NOT_UNIQ';
742: WHEN OTHERS THEN
743: x_project_id := NULL;
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_UTILS',
746: p_procedure_name => 'CHECK_PROJECT_NAME_OR_ID');
747: RAISE;
748: END CHECK_PROJECT_NAME_OR_ID;
778: l_data VARCHAR2(250);
779: l_msg_index_out NUMBER;
780: l_error_msg_code VARCHAR2(250);
781: begin
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783: IF p_template_flag = 'Y'
784: THEN
785: PA_PROJ_TEMPLATE_SETUP_UTILS.CHECK_TEMPLATE_NAME_OR_ID(
786: p_template_name => p_proj_tmpl_name
789: ,x_template_id => x_proj_tmpl_id
790: ,x_return_status => l_return_status
791: ,x_error_msg_code => l_error_msg_code
792: );
793: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
794: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
795: p_msg_name => l_error_msg_code);
796: END IF;
797: ELSE
802: ,x_project_id => x_proj_tmpl_id
803: ,x_return_status => l_return_status
804: ,x_error_msg_code => l_error_msg_code
805: );
806: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
807: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
808: p_msg_name => l_error_msg_code);
809: END IF;
810: END IF;
807: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
808: p_msg_name => l_error_msg_code);
809: END IF;
810: END IF;
811: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
812: x_msg_count := FND_MSG_PUB.count_msg;
813: IF x_msg_count = 1 then
814: pa_interface_utils_pub.get_messages
815: (p_encoded => FND_API.G_TRUE,
811: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
812: x_msg_count := FND_MSG_PUB.count_msg;
813: IF x_msg_count = 1 then
814: pa_interface_utils_pub.get_messages
815: (p_encoded => FND_API.G_TRUE,
816: p_msg_index => 1,
817: p_msg_count => l_msg_count,
818: p_msg_data => l_msg_data,
819: p_data => l_data,
819: p_data => l_data,
820: p_msg_index_out => l_msg_index_out);
821: x_msg_data := l_data;
822: END IF;
823: raise FND_API.G_EXC_ERROR;
824: END IF;
825: exception
826: when FND_API.G_EXC_ERROR then
827: x_return_status := FND_API.G_RET_STS_ERROR;
822: END IF;
823: raise FND_API.G_EXC_ERROR;
824: END IF;
825: exception
826: when FND_API.G_EXC_ERROR then
827: x_return_status := FND_API.G_RET_STS_ERROR;
828:
829: WHEN OTHERS THEN
830: x_proj_tmpl_id := NULL;
823: raise FND_API.G_EXC_ERROR;
824: END IF;
825: exception
826: when FND_API.G_EXC_ERROR then
827: x_return_status := FND_API.G_RET_STS_ERROR;
828:
829: WHEN OTHERS THEN
830: x_proj_tmpl_id := NULL;
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: x_return_status := FND_API.G_RET_STS_ERROR;
828:
829: WHEN OTHERS THEN
830: x_proj_tmpl_id := NULL;
831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
832: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_PROJ_TEMPLATE_SETUP_UTILS',
833: p_procedure_name => 'CHECK_PROJ_TEMPL_NAME_OR_ID');
834: RAISE;
835: