DBA Data[Home] [Help]

APPS.PA_PROJECTS_MAINT_UTILS dependencies on PA_PROJECTS

Line 1: PACKAGE BODY PA_PROJECTS_MAINT_UTILS AS

1: PACKAGE BODY PA_PROJECTS_MAINT_UTILS AS
2: /* $Header: PARMPRUB.pls 120.5 2009/06/15 07:09:38 admarath ship $ */
3: -- API name : check_org_name_or_id
4: -- Type : Public
5: -- Pre-reqs : None.

Line 224: -- p_project_type IN pa_projects_all.project_type%TYPE

220: -- Pre-reqs : None.
221: -- Parameters :
222: -- p_probability_member_id IN pa_probability_members.probability_member_id%TYPE Required
223: -- p_probability_percentage IN pa_probability_members.probability_percentage%TYPE Required
224: -- p_project_type IN pa_projects_all.project_type%TYPE
225: -- p_probability_list_id IN pa_probability_lists.probability_list_id%TYPE
226: -- p_check_id_flag IN VARCHAR2 Required
227: -- x_probability_member_id OUT pa_probability_members.probability_member_id%TYPE Required
228: -- x_return_status OUT VARCHAR2 Required

Line 239: , p_project_type IN pa_projects_all.project_type%TYPE

235: --
236: PROCEDURE CHECK_PROBABILITY_CODE_OR_ID
237: (p_probability_member_id IN pa_probability_members.probability_member_id%TYPE
238: ,p_probability_percentage IN pa_probability_members.probability_percentage%TYPE
239: , p_project_type IN pa_projects_all.project_type%TYPE
240: ,p_probability_list_id IN pa_probability_lists.probability_list_id%TYPE:=NULL
241: ,p_check_id_flag IN VARCHAR2
242: ,x_probability_member_id OUT NOCOPY pa_probability_members.probability_member_id%TYPE --File.Sql.39 bug 4440895
243: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895

Line 381: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS', p_procedure_name => 'CHECK_PROBABILITY_CODE_OR_ID');

377: x_error_msg_code := SQLCODE ;
378:
379: x_probability_member_id := NULL;
380: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
381: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS', p_procedure_name => 'CHECK_PROBABILITY_CODE_OR_ID');
382: RAISE;
383: END CHECK_PROBABILITY_CODE_OR_ID;
384:
385: -- API name : check_calendar_name_or_id

Line 476: AND ppp.object_type = 'PA_PROJECTS'

472: AND PPP.PROJECT_ROLE_ID = PPRT.PROJECT_ROLE_ID
473: AND PPRT.PROJECT_ROLE_TYPE ='PROJECT MANAGER'
474: AND trunc(sysdate) between trunc(PPP.start_date_active)
475: AND NVL(trunc(PPP.end_date_active),sysdate)
476: AND ppp.object_type = 'PA_PROJECTS'
477: AND ppp.object_id = c_project_id
478: AND resource_type_id = 101;
479: /* Added for bug 6802729 the following conditions
480: * and ppp.object_type = 'PA_PROJECTS'

Line 480: * and ppp.object_type = 'PA_PROJECTS'

476: AND ppp.object_type = 'PA_PROJECTS'
477: AND ppp.object_id = c_project_id
478: AND resource_type_id = 101;
479: /* Added for bug 6802729 the following conditions
480: * and ppp.object_type = 'PA_PROJECTS'
481: * and ppp.object_id = c_project_id
482: * and resource_type_id = 101
483: * .
484: * This allows us to better leverage the indexes since object is a key

Line 728: IF pa_projects_maint_utils.class_check_mandatory (p_class_category, l_project_id) = 'Y' THEN

724: l_project_id := p_object_id;
725: end if;
726:
727: /* changes for bug 2681127 */
728: IF pa_projects_maint_utils.class_check_mandatory (p_class_category, l_project_id) = 'Y' THEN
729: x_error_msg_code := 'PA_CLASS_CATEGORY_MANDATORY';
730: x_return_status := 'E' ;
731: RETURN;
732: END IF;

Line 735: l_dummy := PA_PROJECTS_MAINT_UTILS.CLASS_CHECK_TRANS(l_project_id);

731: RETURN;
732: END IF;
733: /* changes for bug 2681127 end */
734:
735: l_dummy := PA_PROJECTS_MAINT_UTILS.CLASS_CHECK_TRANS(l_project_id);
736: IF l_dummy ='Y'
737: THEN
738: OPEN class_delrec(p_class_category);
739: FETCH class_delrec INTO l_rec_status_flag;

Line 754: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

750: EXCEPTION
751: WHEN OTHERS THEN
752: x_return_status := 'U';
753: x_error_msg_code := SQLCODE;
754: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
755: p_procedure_name => 'CHECK_CLASS_CATG_CAN_DELETE',
756: p_error_text => SUBSTRB(SQLERRM,1,240));
757: raise;
758: END CHECK_CLASS_CATG_CAN_DELETE;

Line 811: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

807: EXCEPTION
808: WHEN OTHERS THEN
809: x_return_status := 'U';
810: x_error_msg_code := SQLCODE;
811: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
812: p_procedure_name => 'CHECK_DUPLICATE_CLASS_CATG',
813: p_error_text => SUBSTRB(SQLERRM,1,240));
814: raise;
815: END CHECK_DUPLICATE_CLASS_CATG;

Line 868: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

864: EXCEPTION
865: WHEN OTHERS THEN
866: x_return_status := 'U';
867: x_error_msg_code := SQLCODE;
868: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
869: p_procedure_name => 'CHECK_CLASS_CATG_ONE_ONLY_CODE',
870: p_error_text => SUBSTRB(SQLERRM,1,240));
871: raise;
872: END CHECK_CLASS_CATG_ONE_ONLY_CODE;

Line 900: FROM PA_PROJECTS

896: IS
897: CURSOR l_project_template (c_project_id NUMBER)
898: IS
899: SELECT created_from_project_id
900: FROM PA_PROJECTS
901: WHERE project_id = c_project_id;
902:
903: CURSOR l_override (c_created_from_project_id NUMBER, c_class_category VARCHAR2)
904: IS

Line 911: l_created_from_project_id pa_projects.created_from_project_id%TYPE;

907: WHERE pa_source_template_id = c_created_from_project_id
908: AND pa_field_name = 'CLASSIFICATION'
909: AND UPPER(type) = c_class_category;
910: l_dummy VARCHAR2(1);
911: l_created_from_project_id pa_projects.created_from_project_id%TYPE;
912: BEGIN
913: x_return_status := 'S';
914: OPEN l_project_template(p_project_id);
915: FETCH l_project_template INTO l_created_from_project_id;

Line 938: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

934: EXCEPTION
935: WHEN OTHERS THEN
936: x_return_status := 'U';
937: x_error_msg_code := SQLCODE;
938: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
939: p_procedure_name => 'CHECK_CLASS_CATG_CAN_OVERRIDE',
940: p_error_text => SUBSTRB(SQLERRM,1,240));
941: raise;
942: END CHECK_CLASS_CATG_CAN_OVERRIDE;

Line 985: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

981: EXCEPTION
982: WHEN OTHERS THEN
983: x_return_status := 'U';
984: x_error_msg_code := SQLCODE;
985: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
986: p_procedure_name => 'CHECK_PROBABILITY_CAN_CHANGE',
987: p_error_text => SUBSTRB(SQLERRM,1,240));
988: raise;
989: END CHECK_PROBABILITY_CAN_CHANGE;

Line 1036: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

1032: EXCEPTION
1033: WHEN OTHERS THEN
1034: x_return_status := 'U';
1035: x_error_msg_code := SQLCODE;
1036: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
1037: p_procedure_name => 'CHECK_BILL_JOB_GRP_REQ',
1038: p_error_text => SUBSTRB(SQLERRM,1,240));
1039: raise;
1040: END CHECK_BILL_JOB_GRP_REQ;

Line 1100: from pa_projects

1096: Is
1097: Select bill_job_group_id,
1098: labor_std_bill_rate_schdl,
1099: non_labor_std_bill_rate_schdl
1100: from pa_projects
1101: where project_id = c_project_id;
1102:
1103: Cursor c2 (c_bill_job_group_id NUMBER,
1104: c_lab_std_bill_rate_schdl VARCHAR2,

Line 1113: l_bill_job_group_id pa_projects.bill_job_group_id%TYPE;

1109: AND JOB_GROUP_ID = c_bill_job_group_id
1110: AND (STD_BILL_RATE_SCHEDULE = c_lab_std_bill_rate_schdl
1111: or STD_BILL_RATE_SCHEDULE = c_non_lab_std_bill_rate_schdl);
1112:
1113: l_bill_job_group_id pa_projects.bill_job_group_id%TYPE;
1114: l_lab_std_bill_rate_schdl pa_projects.labor_std_bill_rate_schdl%TYPE;
1115: l_non_lab_std_bill_rate_schdl pa_projects.non_labor_std_bill_rate_schdl%TYPE;
1116: l_return VARCHAR2(1) :='N';
1117: BEGIN

Line 1114: l_lab_std_bill_rate_schdl pa_projects.labor_std_bill_rate_schdl%TYPE;

1110: AND (STD_BILL_RATE_SCHEDULE = c_lab_std_bill_rate_schdl
1111: or STD_BILL_RATE_SCHEDULE = c_non_lab_std_bill_rate_schdl);
1112:
1113: l_bill_job_group_id pa_projects.bill_job_group_id%TYPE;
1114: l_lab_std_bill_rate_schdl pa_projects.labor_std_bill_rate_schdl%TYPE;
1115: l_non_lab_std_bill_rate_schdl pa_projects.non_labor_std_bill_rate_schdl%TYPE;
1116: l_return VARCHAR2(1) :='N';
1117: BEGIN
1118: OPEN c1 (p_project_id);

Line 1115: l_non_lab_std_bill_rate_schdl pa_projects.non_labor_std_bill_rate_schdl%TYPE;

1111: or STD_BILL_RATE_SCHEDULE = c_non_lab_std_bill_rate_schdl);
1112:
1113: l_bill_job_group_id pa_projects.bill_job_group_id%TYPE;
1114: l_lab_std_bill_rate_schdl pa_projects.labor_std_bill_rate_schdl%TYPE;
1115: l_non_lab_std_bill_rate_schdl pa_projects.non_labor_std_bill_rate_schdl%TYPE;
1116: l_return VARCHAR2(1) :='N';
1117: BEGIN
1118: OPEN c1 (p_project_id);
1119: FETCH c1 INTO l_bill_job_group_id,l_lab_std_bill_rate_schdl,

Line 1158: FROM PA_PROJECTS_ALL

1154: RETURN VARCHAR2 IS
1155: CURSOR l_project_template (c_project_id NUMBER)
1156: IS
1157: SELECT created_from_project_id
1158: FROM PA_PROJECTS_ALL
1159: WHERE project_id = p_project_id;
1160:
1161: CURSOR l_project_option (p_template_id NUMBER, p_option_code VARCHAR2)
1162: IS

Line 1166: , PA_PROJECTS_ALL PROJ

1162: IS
1163: SELECT 'x'
1164: FROM PA_OPTIONS OPT1, PA_PROJECT_OPTIONS OPT2
1165: /* Commented for Bug 2499051
1166: , PA_PROJECTS_ALL PROJ
1167: */
1168: WHERE opt1.option_code = opt2.option_code
1169: AND opt1.OPTION_FUNCTION_NAME = p_option_code
1170: AND opt2.project_id = p_template_id;

Line 1174: l_created_from_project_id pa_projects.created_from_project_id%TYPE;

1170: AND opt2.project_id = p_template_id;
1171:
1172: l_dummy VARCHAR2(1);
1173: x_return_status VARCHAR2(1);
1174: l_created_from_project_id pa_projects.created_from_project_id%TYPE;
1175:
1176: BEGIN
1177:
1178: x_return_status := 'S';

Line 1399: PA_PROJECTS_ALL ppa,

1395: CURSOR C2(c_object_id NUMBER, c_class_category VARCHAR2)
1396: IS
1397: SELECT 1
1398: FROM PA_VALID_CATEGORIES vc,
1399: PA_PROJECTS_ALL ppa,
1400: PA_PROJECT_TYPES_ALL ppta
1401: WHERE vc.mandatory_flag = 'Y'
1402: AND vc.class_category = c_class_category
1403: AND ppa.project_id = p_object_id

Line 1421: if(p_object_type = 'PA_PROJECTS') then

1417: LOOP
1418: FETCH C1 INTO l_class_category, l_mandatory_flag;
1419: EXIT WHEN C1%NOTFOUND;
1420:
1421: if(p_object_type = 'PA_PROJECTS') then
1422: OPEN C2(p_object_id, l_class_category);
1423: FETCH C2 INTO l_dummy;
1424: if C2%FOUND then
1425: x_return_status := 'E';

Line 1678: PA_PROJECTS_ALL ppa,

1674: CURSOR C2
1675: IS
1676: SELECT total_100_percent_flag
1677: FROM PA_VALID_CATEGORIES_V vc,
1678: PA_PROJECTS_ALL ppa,
1679: PA_PROJECT_TYPES_ALL ppta
1680: WHERE ppa.project_id = p_object_id
1681: AND ppa.project_type = ppta.project_type
1682: AND nvl(ppa.org_id, -99) = nvl(ppta.org_id, -99)

Line 1750: PA_PROJECTS_ALL ppa

1746: CURSOR C1
1747: IS
1748: SELECT ppta.project_type_id
1749: FROM PA_PROJECT_TYPES_ALL ppta,
1750: PA_PROJECTS_ALL ppa
1751: WHERE ppa.project_id = p_object_id
1752: AND ppa.project_type = ppta.project_type
1753: AND ppa.org_id = ppta.org_id; --MOAC Changes: Bug 4363092: removed nvl usage with org_id
1754:

Line 1757: if p_object_type = 'PA_PROJECTS' then

1753: AND ppa.org_id = ppta.org_id; --MOAC Changes: Bug 4363092: removed nvl usage with org_id
1754:
1755: l_object_type_id NUMBER;
1756: BEGIN
1757: if p_object_type = 'PA_PROJECTS' then
1758: OPEN C1;
1759: FETCH C1 INTO l_object_type_id;
1760: CLOSE C1;
1761: end if;

Line 1869: FROM pa_projects_all

1865:
1866: cursor template_csr
1867: IS
1868: SELECT template_flag
1869: FROM pa_projects_all
1870: WHERE project_id = p_project_id;
1871:
1872: cursor org_csr
1873: IS

Line 1875: FROM PA_PROJECTS_ALL

1871:
1872: cursor org_csr
1873: IS
1874: SELECT carrying_out_organization_id
1875: FROM PA_PROJECTS_ALL
1876: WHERE project_id = p_project_id;
1877:
1878: l_cdl_exist NUMBER;
1879: l_template_flag VARCHAR2(1);

Line 1949: FROM PA_PROJECTS_ALL

1945: RETURN VARCHAR2
1946: IS
1947: CURSOR C1 IS
1948: SELECT probability_member_id, expected_approval_date
1949: FROM PA_PROJECTS_ALL
1950: WHERE project_id = p_project_id;
1951:
1952: l_probability_member_id NUMBER;
1953: l_expected_approval_date DATE;

Line 2006: pa_debug.init_err_stack ('pa_projects_maint_utils.Check_ClassCode_Name_Or_Id');

2002: l_id_found_flag VARCHAR(1) := 'N';
2003:
2004: BEGIN
2005:
2006: pa_debug.init_err_stack ('pa_projects_maint_utils.Check_ClassCode_Name_Or_Id');
2007:
2008: IF p_classcode_id IS NOT NULL AND p_classcode_id <> FND_API.G_MISS_NUM THEN
2009:
2010: IF p_check_id_flag = 'Y' THEN

Line 2085: (p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

2081:
2082: WHEN OTHERS THEN
2083: x_classcode_id := null;
2084: fnd_msg_pub.add_exc_msg
2085: (p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
2086: p_procedure_name => pa_debug.g_err_stack );
2087: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2088: -- 4537865
2089: x_error_message_code := SQLCODE ;

Line 2124: pa_debug.init_err_stack ('pa_projects_maint_utils.Check_ClassCategory_Name_Or_Id');

2120: l_id_found_flag VARCHAR(1) := 'N';
2121:
2122: BEGIN
2123:
2124: pa_debug.init_err_stack ('pa_projects_maint_utils.Check_ClassCategory_Name_Or_Id');
2125:
2126: IF p_class_category_id IS NOT NULL AND p_class_category_id <> FND_API.G_MISS_NUM THEN
2127:
2128: IF p_check_id_flag = 'Y' THEN

Line 2201: (p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',

2197:
2198: WHEN OTHERS THEN
2199: x_class_category_id := null;
2200: fnd_msg_pub.add_exc_msg
2201: (p_pkg_name => 'PA_PROJECTS_MAINT_UTILS',
2202: p_procedure_name => pa_debug.g_err_stack );
2203: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2204: -- 4537865
2205: x_error_message_code := SQLCODE ;

Line 2231: FROM pa_project_statuses ps, pa_projects_all pp

2227: WHERE class_category = p_class_category;
2228:
2229: CURSOR C2 IS
2230: SELECT ps.project_system_status_code
2231: FROM pa_project_statuses ps, pa_projects_all pp
2232: WHERE pp.project_id = p_project_id
2233: AND pp.project_status_code = ps.project_status_code;
2234:
2235: /* added cursor c3 for bug 2784433 */

Line 2244: FROM pa_projects_all ppa

2240: AND EXISTS (SELECT 'X'
2241: FROM pa_project_types_all pta
2242: WHERE pta.project_type_id = pvc.object_type_id
2243: AND EXISTS (SELECT 'X'
2244: FROM pa_projects_all ppa
2245: WHERE pta.project_type = ppa.project_type
2246: AND project_id = p_project_id));
2247:
2248: x_mandatory_flag VARCHAR2(1);

Line 2273: END PA_PROJECTS_MAINT_UTILS;

2269: RETURN x_mandatory_flag;
2270: END CLASS_CHECK_MANDATORY;
2271:
2272:
2273: END PA_PROJECTS_MAINT_UTILS;