DBA Data[Home] [Help]

APPS.PA_ALTERNATE_TASK_PVT dependencies on PA_ALTERNATE_TASK_PVT

Line 1: PACKAGE BODY PA_ALTERNATE_TASK_PVT AS

1: PACKAGE BODY PA_ALTERNATE_TASK_PVT AS
2: --$Header: PAALTKVB.pls 120.10.12020000.7 2013/05/28 12:44:56 djambhek noship $
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_ALTERNATE_TASK_PVT';
5: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

Line 4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_ALTERNATE_TASK_PVT';

1: PACKAGE BODY PA_ALTERNATE_TASK_PVT AS
2: --$Header: PAALTKVB.pls 120.10.12020000.7 2013/05/28 12:44:56 djambhek noship $
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_ALTERNATE_TASK_PVT';
5: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
6:
7:
8: procedure PRINT_MSG(P_MSG VARCHAR2

Line 97: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Create_Alt_Task');

93: x_msg_data := NULL;
94: x_msg_count := 0;
95:
96: IF p_pa_debug_mode = 'Y' Then
97: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Create_Alt_Task');
98: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
99: End If;
100:
101: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task IN param(Scalar) values');

Line 101: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task IN param(Scalar) values');

97: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Create_Alt_Task');
98: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
99: End If;
100:
101: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task IN param(Scalar) values');
102:
103: PA_ALTERNATE_TASK_PVT.Validate_Alt_Tasks_Gen(
104: p_Proj_Element_Id => p_Proj_Element_Id,
105: p_Cbs_Element_Id => p_Cbs_Element_Id,

Line 103: PA_ALTERNATE_TASK_PVT.Validate_Alt_Tasks_Gen(

99: End If;
100:
101: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task IN param(Scalar) values');
102:
103: PA_ALTERNATE_TASK_PVT.Validate_Alt_Tasks_Gen(
104: p_Proj_Element_Id => p_Proj_Element_Id,
105: p_Cbs_Element_Id => p_Cbs_Element_Id,
106: X_Valid_Status => l_valid_status_tbl
107: );

Line 235: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task :: End');

231: END IF;
232: print_msg('Before End of For Loop :: ');
233: END LOOP;
234: END IF;
235: print_msg('PA_ALTERNATE_TASK_PVT.Create_Alt_Task :: End');
236: EXCEPTION
237: When Others Then
238: X_Return_Status := 'U';
239: X_Msg_Data := SqlErrm;

Line 265: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task');

261: x_msg_data := NULL;
262: x_msg_count := 0;
263:
264: IF p_pa_debug_mode = 'Y' Then
265: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task');
266: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
267: End If;
268:
269: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task IN param(Scalar) values');

Line 269: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task IN param(Scalar) values');

265: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task');
266: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
267: End If;
268:
269: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task IN param(Scalar) values');
270:
271: PA_ALTERNATE_TASK_PVT.Validate_Del_Alt_Tasks(
272: p_Alt_Task_Id => p_Alt_Task_Id,
273: X_Valid_Status => l_valid_status_tbl

Line 271: PA_ALTERNATE_TASK_PVT.Validate_Del_Alt_Tasks(

267: End If;
268:
269: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task IN param(Scalar) values');
270:
271: PA_ALTERNATE_TASK_PVT.Validate_Del_Alt_Tasks(
272: p_Alt_Task_Id => p_Alt_Task_Id,
273: X_Valid_Status => l_valid_status_tbl
274: );
275:

Line 292: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task :: End');

288: END LOOP;
289:
290: END IF;
291:
292: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task :: End');
293: EXCEPTION
294: When Others Then
295: X_Return_Status := 'U';
296: X_Msg_Data := SqlErrm;

Line 328: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Tasks :: Start');

324: AND nvl(pre.ENABLE_FLAG,'Y') = 'N'));
325:
326: BEGIN
327:
328: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Tasks :: Start');
329: IF (p_Proj_Element_Id.COUNT > 0) THEN
330: FOR i IN p_Proj_Element_Id.FIRST .. p_Proj_Element_Id.LAST LOOP
331: L_TEMP:='N';
332: open isCostCodeAdded(p_Proj_Element_Id(i), p_Cbs_Element_Id(i)) ;

Line 348: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Tasks :: End');

344: END LOOP;
345: END IF;
346: X_Valid_Status := l_valid_status_tbl;
347:
348: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Tasks :: End');
349:
350: EXCEPTION
351:
352: When Others Then

Line 401: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Del_Alt_Tasks :: Start');

397: l_cbs_element_id Number;
398:
399: BEGIN
400:
401: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Del_Alt_Tasks :: Start');
402: --x_error_code := 0;
403: --x_error_msg_code := NULL ;
404: IF (p_Alt_Task_Id.COUNT > 0) THEN
405: FOR i IN p_Alt_Task_Id.FIRST .. p_Alt_Task_Id.LAST LOOP

Line 808: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Del_Alt_Tasks :: End');

804: END LOOP;
805: END IF;
806:
807: X_Valid_Status := l_valid_status_tbl;
808: print_msg('PA_ALTERNATE_TASK_PVT.Validate_Del_Alt_Tasks :: End');
809:
810: EXCEPTION
811:
812: When Others Then

Line 841: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Task :: Start');

837:
838:
839: BEGIN
840:
841: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Task :: Start');
842: x_return_status := FND_API.G_RET_STS_SUCCESS;
843: x_msg_data := NULL;
844: x_msg_count := 0;
845:

Line 859: PA_ALTERNATE_TASK_PVT.Create_Alt_Task(

855: l_Proj_Element_Id(i) := p_Target_Task_Id;
856:
857: END LOOP;
858:
859: PA_ALTERNATE_TASK_PVT.Create_Alt_Task(
860: p_Proj_Element_Id => l_Proj_Element_Id,
861: p_Cbs_Element_Id => l_Cbs_Element_Id,
862: X_Return_Status => X_Return_Status,
863: X_Msg_Count => X_Msg_Count,

Line 869: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Task :: End');

865:
866: END IF;
867:
868:
869: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Task :: End');
870:
871: EXCEPTION
872: When Others Then
873: X_Return_Status := 'U';

Line 951: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid :: Start');

947: l_Cost_Code_Valid VARCHAR2(1) := 'N';
948: L_TEMP VARCHAR2(1) := 'N';
949:
950: BEGIN
951: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid :: Start');
952: x_return_status := FND_API.G_RET_STS_SUCCESS;
953: x_msg_data := NULL;
954: x_msg_count := 0;
955: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid');

Line 955: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid');

951: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid :: Start');
952: x_return_status := FND_API.G_RET_STS_SUCCESS;
953: x_msg_data := NULL;
954: x_msg_count := 0;
955: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid');
956: print_msg('p_Cbs_Element_Id :: ' || p_Cbs_Element_Id);
957: print_msg('p_Task_Id :: ' || p_Task_Id);
958: print_msg('p_Project_Id :: ' || p_Project_Id);
959:

Line 960: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => P_PROJECT_ID);

956: print_msg('p_Cbs_Element_Id :: ' || p_Cbs_Element_Id);
957: print_msg('p_Task_Id :: ' || p_Task_Id);
958: print_msg('p_Project_Id :: ' || p_Project_Id);
959:
960: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => P_PROJECT_ID);
961:
962: IF l_Cbs_Enabled = 'N' THEN
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: x_msg_data := 'PA_CBS_PROJ_NOT_ENABLED';

Line 997: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid :: End');

993: END IF;
994: END IF;
995: END IF;
996:
997: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Element_Valid :: End');
998:
999: EXCEPTION
1000: When Others Then
1001: X_Return_Status := 'U';

Line 1049: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid :: Start');

1045: l_Cost_Code_Valid VARCHAR2(1) := 'N';
1046: L_TEMP VARCHAR2(1) := 'N';
1047:
1048: BEGIN
1049: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid :: Start');
1050: x_return_status := FND_API.G_RET_STS_SUCCESS;
1051: x_msg_data := NULL;
1052: x_msg_count := 0;
1053: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid');

Line 1053: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid');

1049: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid :: Start');
1050: x_return_status := FND_API.G_RET_STS_SUCCESS;
1051: x_msg_data := NULL;
1052: x_msg_count := 0;
1053: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid');
1054: print_msg('p_Cost_Code :: ' || p_Cost_Code);
1055: print_msg('p_Task_Id :: ' || p_Task_Id);
1056: print_msg('p_Project_Id :: ' || p_Project_Id);
1057:

Line 1058: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => P_PROJECT_ID);

1054: print_msg('p_Cost_Code :: ' || p_Cost_Code);
1055: print_msg('p_Task_Id :: ' || p_Task_Id);
1056: print_msg('p_Project_Id :: ' || p_Project_Id);
1057:
1058: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => P_PROJECT_ID);
1059:
1060: IF l_Cbs_Enabled = 'N' THEN
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: x_msg_data := 'PA_CBS_PROJ_NOT_ENABLED';

Line 1095: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid :: End');

1091: END IF;
1092: END IF;
1093: END IF;
1094:
1095: print_msg('PA_ALTERNATE_TASK_PVT.Is_Cost_Code_Valid :: End');
1096:
1097: EXCEPTION
1098: When Others Then
1099: X_Return_Status := 'U';

Line 1163: print_msg('PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid :: Start');

1159: l_project_id number;
1160: L_TEMP VARCHAR2(1) := 'N';
1161:
1162: BEGIN
1163: print_msg('PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid :: Start');
1164: x_return_status := FND_API.G_RET_STS_SUCCESS;
1165: x_msg_data := NULL;
1166: x_msg_count := 0;
1167: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid');

Line 1167: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid');

1163: print_msg('PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid :: Start');
1164: x_return_status := FND_API.G_RET_STS_SUCCESS;
1165: x_msg_data := NULL;
1166: x_msg_count := 0;
1167: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid');
1168: print_msg('p_budget_version_id :: ' || p_budget_version_id);
1169:
1170: print_msg('PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid :: End');
1171:

Line 1170: print_msg('PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid :: End');

1166: x_msg_count := 0;
1167: print_msg('Input paramters to PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid');
1168: print_msg('p_budget_version_id :: ' || p_budget_version_id);
1169:
1170: print_msg('PA_ALTERNATE_TASK_PVT.Is_Planning_Options_Valid :: End');
1171:
1172: OPEN getProjectId;
1173: FETCH getProjectId INTO l_project_id;
1174: CLOSE getProjectId;

Line 1175: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => l_project_id);

1171:
1172: OPEN getProjectId;
1173: FETCH getProjectId INTO l_project_id;
1174: CLOSE getProjectId;
1175: l_Cbs_Enabled := PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(p_Project_Id => l_project_id);
1176: print_msg('l_Cbs_Enabled :: ' || l_Cbs_Enabled);
1177:
1178: IF l_Cbs_Enabled = 'Y' THEN
1179: L_TEMP := 'N';

Line 1290: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_ALL_Alt_Task');

1286: x_msg_data := NULL;
1287: x_msg_count := 0;
1288:
1289: IF p_pa_debug_mode = 'Y' Then
1290: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_ALL_Alt_Task');
1291: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
1292: End If;
1293: SELECT DISTINCT ALT_TASK_ID BULK COLLECT INTO l_alt_task_id_tbl
1294: FROM PA_PROJ_ELEMENTS PPE, PA_ALTERNATE_TASKS PAT

Line 1299: PA_ALTERNATE_TASK_PVT.Delete_Alt_Task(

1295: WHERE PPE.PROJECT_ID=p_project_id
1296: AND PAT.PROJ_ELEMENT_ID=PPE.PROJ_ELEMENT_ID;
1297:
1298: if l_Alt_Task_Id_tbl.count > 0 then
1299: PA_ALTERNATE_TASK_PVT.Delete_Alt_Task(
1300: p_Alt_Task_Id =>l_alt_task_id_tbl,
1301: X_Return_Status => X_Return_Status,
1302: X_Msg_Data =>X_Msg_Data,
1303: X_Msg_Count=>X_Msg_Count);

Line 1305: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task :: End');

1301: X_Return_Status => X_Return_Status,
1302: X_Msg_Data =>X_Msg_Data,
1303: X_Msg_Count=>X_Msg_Count);
1304: END IF;
1305: print_msg('PA_ALTERNATE_TASK_PVT.Delete_Alt_Task :: End');
1306: EXCEPTION
1307: When Others Then
1308: X_Return_Status := 'E';
1309: X_Msg_Count := 1;

Line 1344: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Project :: Begin');

1340: Where PPE1.task_name=PPE2.task_name AND PPE1.task_Number=PPE2.task_Number AND
1341: PPE1.project_id=p_Source_Project_Id AND PPE2.project_id=p_Target_Project_Id;
1342:
1343: BEGIN
1344: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Project :: Begin');
1345:
1346: OPEN C_GET_PROJECT_ELEMENTS;
1347: FETCH C_GET_PROJECT_ELEMENTS BULK COLLECT INTO l_Source_Proj_Element_Id,l_Target_Proj_Element_Id;
1348: CLOSE C_GET_PROJECT_ELEMENTS;

Line 1359: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Project :: END');

1355: X_Return_Status =>X_Return_Status,
1356: X_Msg_Data =>X_Msg_Data,
1357: X_Msg_Count=>X_Msg_Count);
1358: END LOOP;
1359: print_msg('PA_ALTERNATE_TASK_PVT.Copy_Cost_Codes_From_Project :: END');
1360:
1361: EXCEPTION
1362: When Others Then
1363: X_Return_Status := 'E';

Line 1367: END PA_ALTERNATE_TASK_PVT;

1363: X_Return_Status := 'E';
1364: X_Msg_Count := 1;
1365: END Copy_Cost_Codes_From_Project;
1366:
1367: END PA_ALTERNATE_TASK_PVT;