[Home] [Help]
172: If (pa_project_structure_utils.check_structure_name_unique(p_structure_name,
173: NULL,
174: p_project_id) <> 'Y') THEN
175: --Name is not unique
176: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_STRUC_NAME_UNIQUE');
177: x_msg_data := 'PA_PS_STRUC_NAME_UNIQUE';
178: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180:
185: IF (p_calling_flag IS NOT NULL) THEN
186: IF (p_calling_flag = 'WORKPLAN') THEN
187: l_financial_license := 'N';
188: IF (l_workplan_license = 'N') THEN
189: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_PROJ_MANAG_NOT_LIC');
190: x_msg_data := 'PA_PS_PROD_MANAG_NOT_LIC';
191: RAISE FND_API.G_EXC_ERROR;
192: END IF;
193: ELSIF (p_calling_flag = 'FINANCIAL') THEN
192: END IF;
193: ELSIF (p_calling_flag = 'FINANCIAL') THEN
194: l_workplan_license := 'N';
195: IF (l_financial_license <> 'Y') THEN
196: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_COSTING_NOT_LIC');
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: ELSIF (p_calling_flag = 'DELIVERABLE') THEN
200: l_workplan_license := 'N';
207: --Check if we should split structure types into different structure
208: open get_split_flag;
209: fetch get_split_flag into l_split_flag, l_split_flag2;
210: IF get_split_flag%NOTFOUND THEN
211: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_PROJECT_ID');
212: x_msg_data := 'PA_INVALID_PROJECT_ID';
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: close get_split_flag;
229: IF (p_calling_flag = 'WORKPLAN') THEN
230: l_costing_license := 'N';
231: l_billing_license := 'N';
232: If (l_workplan_license <> 'Y') THEN
233: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_PROJ_MANAG_NOT_LIC');
234: x_msg_data := 'PA_PS_PROD_MANAG_NOT_LIC';
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237: ELSIf (p_calling_flag = 'COSTING') THEN
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237: ELSIf (p_calling_flag = 'COSTING') THEN
238: IF (l_costing_license <> 'Y') THEN
239: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_COSTING_NOT_LIC');
240: x_msg_data := 'PA_PS_COSTING_NOT_LIC';
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243: l_workplan_license := 'N';
245: l_billing_license := 'N';
246: END IF;
247: ELSIf (p_calling_flag = 'BILLING') THEN
248: IF (l_billing_license <> 'Y') THEN
249: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_BILLING_NOT_LIC');
250: x_msg_data := 'PA_PS_BILLING_NOT_LIC';
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253: l_workplan_license := 'N';
254: If (l_split_flag2 <> 'N') THEN
255: l_costing_license := 'N';
256: END IF;
257: ELSIf (p_calling_flag IS NULL) THEN
258: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_CALLING_PAGE_SEL');
259: x_msg_data := 'PA_PS_NO_CALLING_PAGE_SEL';
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262: END IF;
411: l_return_status,
412: l_error_message_code);
413: --dbms_output.put_line(l_return_status||', '||l_error_message_code);
414: If (l_return_status <> 'S') THEN
415: PA_UTILS.ADD_MESSAGE('PA',l_error_message_code);
416: x_msg_data := l_error_message_code;
417: CLOSE get_licensed;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
1020: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,
1021: null,
1022: l_project_id,
1023: l_proj_element_id)) THEN
1024: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');
1025: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
1026: RAISE FND_API.G_EXC_ERROR;
1027: END IF;
1028:
1198: If check_working_ver_exists%FOUND THEN
1199:
1200: --another non-published version exists for structure with type = costing/billing.
1201: --Error.
1202: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_ONE_WORK_VER_ALLOWED');
1203: x_msg_data := 'PA_PS_ONE_WORK_VER_ALLOWED';
1204: RAISE FND_API.G_EXC_ERROR;
1205: END IF;
1206: CLOSE check_working_ver_exists;
1505: l_attribute13,
1506: l_attribute14,
1507: l_attribute15;
1508: IF (get_struc%NOTFOUND) THEN
1509: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_NOT_EXIST');
1510: x_msg_data := 'PA_PS_STRUC_NOT_EXIST';
1511: RAISE FND_API.G_EXC_ERROR;
1512: END IF;
1513: CLOSE get_struc;
1536: IF ('Y' <> pa_project_structure_utils.Check_Structure_Name_Unique(p_structure_name,
1537: p_structure_id,
1538: l_project_id)) THEN
1539: --name not unique.
1540: PA_UTILS.ADD_MESSAGE('PA', 'PS_STRUC_NAME_UNIQUE');
1541: x_msg_data := 'PA_PS_STRUC_NAME_UNIQUE';
1542: RAISE FND_API.G_EXC_ERROR;
1543: ELSE
1544: l_name := p_structure_name;
1914: and record_version_number = p_record_version_number
1915: for update NOWAIT;
1916: EXCEPTION
1917: when TIMEOUT_ON_RESOURCE then
1918: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1919: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1920: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1921: when NO_DATA_FOUND then
1922: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1918: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1919: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1920: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1921: when NO_DATA_FOUND then
1922: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1923: p_msg_name => 'PA_XC_RECORD_CHANGED');
1924: l_msg_data := 'PA_XC_RECORD_CHANGED';
1925: when OTHERS then
1926: if SQLCODE = -54 then
1923: p_msg_name => 'PA_XC_RECORD_CHANGED');
1924: l_msg_data := 'PA_XC_RECORD_CHANGED';
1925: when OTHERS then
1926: if SQLCODE = -54 then
1927: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1928: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
1929: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
1930: else
1931: raise;
2039: --end bug 3071008
2040:
2041: IF (l_get_lock = 'O') THEN
2042: --lock by other user. Error.
2043: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_STRUC_VER_LOCKED');
2044: x_msg_data := 'PA_PS_STRUC_VER_LOCKED';
2045: RAISE FND_API.G_EXC_ERROR;
2046: END IF;
2047:
2060: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Name_Unique(p_structure_version_name,
2061: p_pev_structure_id,
2062: l_project_id,
2063: l_proj_element_id)) THEN
2064: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');
2065: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
2066: RAISE FND_API.G_EXC_ERROR;
2067: ELSE
2068: l_name := p_structure_version_name;
2369: and record_version_number = p_record_version_number
2370: for update of record_version_number NOWAIT;
2371: EXCEPTION
2372: when TIMEOUT_ON_RESOURCE then
2373: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2374: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2375: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2376: when NO_DATA_FOUND then
2377: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2373: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2374: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2375: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2376: when NO_DATA_FOUND then
2377: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2378: p_msg_name => 'PA_XC_RECORD_CHANGED');
2379: l_msg_data := 'PA_XC_RECORD_CHANGED';
2380: when OTHERS then
2381: if SQLCODE = -54 then
2378: p_msg_name => 'PA_XC_RECORD_CHANGED');
2379: l_msg_data := 'PA_XC_RECORD_CHANGED';
2380: when OTHERS then
2381: if SQLCODE = -54 then
2382: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2383: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2384: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2385: else
2386: raise;
2393: where proj_element_id = p_structure_id
2394: and record_version_number = p_record_version_number;
2395: EXCEPTION
2396: when NO_DATA_FOUND then
2397: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2398: p_msg_name => 'PA_XC_RECORD_CHANGED');
2399: l_msg_data := 'PA_XC_RECORD_CHANGED';
2400: when OTHERS then
2401: raise;
2525: and record_version_number = p_record_version_number
2526: for update of record_version_number NOWAIT;
2527: EXCEPTION
2528: when TIMEOUT_ON_RESOURCE then
2529: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2530: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2531: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2532: when NO_DATA_FOUND then
2533: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2529: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2530: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2531: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2532: when NO_DATA_FOUND then
2533: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2534: p_msg_name => 'PA_XC_RECORD_CHANGED');
2535: l_msg_data := 'PA_XC_RECORD_CHANGED';
2536: when OTHERS then
2537: if SQLCODE = -54 then
2534: p_msg_name => 'PA_XC_RECORD_CHANGED');
2535: l_msg_data := 'PA_XC_RECORD_CHANGED';
2536: when OTHERS then
2537: if SQLCODE = -54 then
2538: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2539: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2540: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2541: else
2542: raise;
2549: where element_version_id = p_structure_version_id
2550: and record_version_number = p_record_version_number;
2551: EXCEPTION
2552: when NO_DATA_FOUND then
2553: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2554: p_msg_name => 'PA_XC_RECORD_CHANGED');
2555: l_msg_data := 'PA_XC_RECORD_CHANGED';
2556: when OTHERS then
2557: raise;
2798: and record_version_number = p_record_version_number
2799: for update of record_version_number NOWAIT;
2800: EXCEPTION
2801: when TIMEOUT_ON_RESOURCE then
2802: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2803: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2804: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2805: when NO_DATA_FOUND then
2806: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2802: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2803: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2804: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2805: when NO_DATA_FOUND then
2806: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2807: p_msg_name => 'PA_XC_RECORD_CHANGED');
2808: l_msg_data := 'PA_XC_RECORD_CHANGED';
2809: when OTHERS then
2810: if SQLCODE = -54 then
2807: p_msg_name => 'PA_XC_RECORD_CHANGED');
2808: l_msg_data := 'PA_XC_RECORD_CHANGED';
2809: when OTHERS then
2810: if SQLCODE = -54 then
2811: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2812: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
2813: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
2814: else
2815: raise;
2822: where pev_structure_id = p_pev_structure_id
2823: and record_version_number = p_record_version_number;
2824: EXCEPTION
2825: when NO_DATA_FOUND then
2826: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2827: p_msg_name => 'PA_XC_RECORD_CHANGED');
2828: l_msg_data := 'PA_XC_RECORD_CHANGED';
2829: when OTHERS then
2830: raise;
3289: --bug 3840509
3290: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(l_project_id,
3291: p_structure_version_id), 'N') THEN
3292: --need to reschedule
3293: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
3294: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';
3295: RAISE FND_API.G_EXC_ERROR;
3296: END IF;
3297: --end bug 3840509
3326:
3327: --hsiu: bug 2684465
3328: --Check if this structure missing tasks with transactions
3329: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3330: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3331: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3332: -- RAISE FND_API.G_EXC_ERROR;
3333: -- END IF;
3334: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
3357: ,l_msg_count
3358: ,l_msg_data
3359: );
3360: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3361: PA_UTILS.ADD_MESSAGE('PA',l_error_message_code);
3362: x_msg_data := l_error_message_code;
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF;
3365: --end bug 2684465
3366:
3367:
3368: --Check if this structure can be published (ie, if linked structures are published)
3369: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
3370: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
3371: -- x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
3372: -- RAISE FND_API.G_EXC_ERROR;
3373: -- END IF;
3374:
3373: -- END IF;
3374:
3375: --Check if this structure missing tasks with transactions
3376: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3377: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3378: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3379: -- RAISE FND_API.G_EXC_ERROR;
3380: -- END IF;
3381:
3483: l_project_id,
3484: l_proj_element_id) <> 'Y') THEN
3485:
3486: --Not unique; error.
3487: pa_utils.add_message('PA','PA_PS_NEW_STRUC_VER_NAM_UNIQUE');
3488: x_msg_data := 'PA_PS_NEW_STRUC_VER_NAM_UNIQUE';
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491:
3505: null,
3506: l_project_id,
3507: l_proj_element_id) <> 'Y') THEN
3508: --Not unique; error.
3509: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');
3510: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
3511: RAISE FND_API.G_EXC_ERROR;
3512: END IF;
3513: --Bug No 3450684 Smukka Checking for deliverable type
3511: RAISE FND_API.G_EXC_ERROR;
3512: END IF;
3513: --Bug No 3450684 Smukka Checking for deliverable type
3514: IF PA_PROJ_ELEMENTS_UTILS.check_sharedstruct_deliv(p_structure_version_id) = 'Y' THEN
3515: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3516: p_msg_name => 'PA_PS_CHK_DEL_FAIL_PUB_STR');
3517: RAISE FND_API.G_EXC_ERROR;
3518: END IF;
3519:
5248: --dbms_output.put_line('import proj: '||l_i_return_status);
5249: --Check for error
5250: -- IF (x_msg_count > 0) THEN
5251: -- FOR i IN 1..x_msg_count LOOP
5252: -- PA_UTILS.ADD_MESSAGE('PA',l_i_msg_data(i));
5253: -- END LOOP;
5254: -- END IF;
5255:
5256: l_msg_count := FND_MSG_PUB.count_msg;
6629: OPEN l_check_working_versions_csr(p_structure_version_id);
6630: FETCH l_check_working_versions_csr INTO l_dummy;
6631: if l_check_working_versions_csr%FOUND then
6632: CLOSE l_check_working_versions_csr;
6633: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WORKING_VER_EXISTS');
6634: x_msg_data := 'PA_PS_WORKING_VER_EXISTS';
6635: RAISE FND_API.G_EXC_ERROR;
6636: end if;
6637: CLOSE l_check_working_versions_csr;
7423: OPEN l_get_structure_csr(p_src_project_id);
7424: FETCH l_get_structure_csr INTO l_structure_rec;
7425: if l_get_structure_csr%NOTFOUND then
7426: CLOSE l_get_structure_csr;
7427: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_NOT_EXIST');
7428: l_msg_data := 'PA_PS_STRUC_NOT_EXIST';
7429: RAISE FND_API.G_EXC_ERROR;
7430: end if;
7431:
8630:
8631: --check if there is a published workplan version
8632: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_project_id, l_structure_id) = 'Y' THEN
8633: --cannot split if publish version exists.
8634: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANNOT_SPLIT_STRUCT');
8635: x_msg_data := 'PA_PS_CANNOT_SPLIT_STRUCT';
8636: RAISE FND_API.G_EXC_ERROR;
8637: END IF;
8638:
8877:
8878: --hsiu: bug 2684465
8879: --Check if this structure missing tasks with transactions
8880: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
8881: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
8882: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
8883: -- RAISE FND_API.G_EXC_ERROR;
8884: -- END IF;
8885: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
8924:
8925: /*
8926: --Check if this structure can be published (ie, if linked structures are published)
8927: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
8928: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
8929: x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
8930: RAISE FND_API.G_EXC_ERROR;
8931: END IF;
8932: */
8946: --bug 3840509
8947: IF 'Y' = nvl(PA_PROJECT_STRUCTURE_UTILS.Get_Sch_Dirty_fl(p_project_id,
8948: p_structure_version_id), 'N') THEN
8949: --need to reschedule
8950: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
8951: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';
8952: RAISE FND_API.G_EXC_ERROR;
8953: END IF;
8954: --end bug 3840509
9001: ,x_error_message_code => l_msg_data
9002: );
9003:
9004: IF (l_return_status <> 'S') THEN
9005: PA_UTILS.ADD_MESSAGE('PA',l_msg_data);
9006: x_msg_data := l_msg_data;
9007: CLOSE sel_other_structure_ver;
9008: RAISE FND_API.G_EXC_ERROR;
9009: END IF;
9057: ,p_err_stage => l_err_stage
9058: ,p_err_stack => l_err_stack
9059: );
9060: IF (l_err_code <> 0) THEN
9061: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9062: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9063: x_return_status := FND_API.G_RET_STS_ERROR;
9064: END IF;
9065: ELSE
9062: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9063: x_return_status := FND_API.G_RET_STS_ERROR;
9064: END IF;
9065: ELSE
9066: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9067: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9068: x_return_status := FND_API.G_RET_STS_ERROR;
9069: END IF;
9070: END IF;
9162: and record_version_number = p_record_version_number
9163: for update of record_version_number NOWAIT;
9164: EXCEPTION
9165: when TIMEOUT_ON_RESOURCE then
9166: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9167: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
9168: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
9169: when NO_DATA_FOUND then
9170: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9166: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9167: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
9168: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
9169: when NO_DATA_FOUND then
9170: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9171: p_msg_name => 'PA_XC_RECORD_CHANGED');
9172: l_msg_data := 'PA_XC_RECORD_CHANGED';
9173: when OTHERS then
9174: if SQLCODE = -54 then
9171: p_msg_name => 'PA_XC_RECORD_CHANGED');
9172: l_msg_data := 'PA_XC_RECORD_CHANGED';
9173: when OTHERS then
9174: if SQLCODE = -54 then
9175: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9176: p_msg_name => 'PA_XC_ROW_ALREADY_LOCKED');
9177: l_msg_data := 'PA_XC_ROW_ALREADY_LOCKED';
9178: else
9179: raise;
9193: OPEN get_status_code(p_status_code);
9194: FETCH get_status_code INTO l_dummy ;
9195: IF (get_status_code%NOTFOUND) THEN
9196: CLOSE get_status_code;
9197: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9198: p_msg_name => 'PA_PS_STRUC_STAT_INVAL');
9199: x_msg_data := 'PA_PS_STRUC_STAT_INVAL';
9200: RAISE FND_API.G_EXC_ERROR;
9201: END IF;
9242: ,p_err_stage => l_err_stage
9243: ,p_err_stack => l_err_stack
9244: );
9245: IF (l_err_code <> 0) THEN
9246: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9247: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9248: x_return_status := FND_API.G_RET_STS_ERROR;
9249: END IF;
9250: ELSE
9247: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9248: x_return_status := FND_API.G_RET_STS_ERROR;
9249: END IF;
9250: ELSE
9251: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9252: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9253: x_return_status := FND_API.G_RET_STS_ERROR;
9254:
9255: END IF;
9368: OPEN get_wf_status;
9369: FETCH get_wf_status INTO l_wf_status;
9370: IF (get_wf_status%NOTFOUND or l_wf_status <> 'Y') THEN
9371: -- IF (l_approve_req = 'Y') THEN
9372: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9373: -- ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9374: -- x_return_status := FND_API.G_RET_STS_ERROR;
9375: -- x_msg_count := FND_MSG_PUB.count_msg;
9376: -- if x_msg_count = 1 then
9392: CLOSE get_wf_status;
9393:
9394: ELSE
9395: IF (l_approve_req = 'Y') THEN
9396: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9397: ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9398: x_return_status := FND_API.G_RET_STS_ERROR;
9399: x_msg_count := FND_MSG_PUB.count_msg;
9400: if x_msg_count = 1 then
9704: PA_PROJECT_STRUCTURE_UTILS.check_enable_wp_ok(p_project_id,
9705: l_ret_stat,
9706: l_err_msg_code);
9707: IF (l_ret_stat = 'N') THEN
9708: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
9709: x_msg_data := l_err_msg_code;
9710: RAISE FND_API.G_EXC_ERROR;
9711: END IF;
9712: --enable WP
9838: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
9839: l_ret_stat,
9840: l_err_msg_code);
9841: IF (l_ret_stat = 'N') THEN
9842: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
9843: x_msg_data := l_err_msg_code;
9844: RAISE FND_API.G_EXC_ERROR;
9845: END IF;
9846: --disable WP
9873: l_del_struc_ver_id,
9874: l_return_status,
9875: l_err_msg_code);
9876: IF (l_return_status <> 'S') THEN
9877: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
9878: x_msg_data := l_err_msg_code;
9879: RAISE FND_API.G_EXC_ERROR;
9880: END IF;
9881:
9893: ,x_error_message_code => l_err_msg_code );
9894:
9895: IF (l_return_status <> 'S') THEN
9896: x_return_status := l_return_status;
9897: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
9898: l_msg_data := l_err_msg_code;
9899: CLOSE get_top_tasks;
9900: RAISE FND_API.G_EXC_ERROR;
9901: END IF;
10033: l_del_struc_ver_id,
10034: l_return_status,
10035: l_err_msg_code);
10036: IF (l_return_status <> 'S') THEN
10037: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10038: x_msg_data := l_err_msg_code;
10039: RAISE FND_API.G_EXC_ERROR;
10040: END IF;
10041:
10053: ,x_error_message_code => l_err_msg_code );
10054:
10055: IF (l_return_status <> 'S') THEN
10056: x_return_status := l_return_status;
10057: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10058: l_msg_data := l_err_msg_code;
10059: CLOSE get_top_tasks;
10060: RAISE FND_API.G_EXC_ERROR;
10061: END IF;
10115: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
10116: l_ret_stat,
10117: l_err_msg_code);
10118: IF (l_ret_stat = 'N') THEN
10119: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10120: x_msg_data := l_err_msg_code;
10121: RAISE FND_API.G_EXC_ERROR;
10122: END IF;
10123:
10143: l_del_struc_ver_id,
10144: l_return_status,
10145: l_err_msg_code);
10146: IF (l_return_status <> 'S') THEN
10147: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10148: x_msg_data := l_err_msg_code;
10149: RAISE FND_API.G_EXC_ERROR;
10150: END IF;
10151:
10164:
10165:
10166: IF (l_return_status <> 'S') THEN
10167: x_return_status := l_return_status;
10168: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10169: l_msg_data := l_err_msg_code;
10170: CLOSE get_top_tasks;
10171: RAISE FND_API.G_EXC_ERROR;
10172: END IF;
10348:
10349: --hsiu: commented for performance
10350: -- IF (l_start_date IS NULL) OR (l_completion_date IS NULL) THEN
10351: -- CLOSE sel_struc_and_task_vers;
10352: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_FIN_TK_DATE_MISS');
10353: -- x_msg_data := 'PA_PS_FIN_TK_DATE_MISS';
10354: -- RAISE FND_API.G_EXC_ERROR;
10355: --hsiu: 2634029
10356: -- Default sysdate or project target dates if transaction dates
10531:
10532: --end sharing on
10533: ELSIF (p_sharing_enabled_flag = 'Y' AND
10534: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'N') THEN
10535: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WP_NOT_EN_SHR_ERR');
10536: x_msg_data := 'PA_PS_WP_NOT_EN_SHR_ERR';
10537: RAISE FND_API.G_EXC_ERROR;
10538: ELSIF (p_sharing_enabled_flag = 'N') THEN
10539: --Validation
10540: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,
10541: l_ret_stat,
10542: l_err_msg_code);
10543: IF (l_ret_stat = 'N') THEN
10544: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10545: x_msg_data := l_err_msg_code;
10546: RAISE FND_API.G_EXC_ERROR;
10547: END IF;
10548: --sharing off
10565: l_del_struc_ver_id,
10566: l_return_status,
10567: l_err_msg_code);
10568: IF (l_return_status <> 'S') THEN
10569: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10570: x_msg_data := l_err_msg_code;
10571: RAISE FND_API.G_EXC_ERROR;
10572: END IF;
10573:
10585: ,x_error_message_code => l_err_msg_code );
10586:
10587: IF (l_return_status <> 'S') THEN
10588: x_return_status := l_return_status;
10589: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10590: l_msg_data := l_err_msg_code;
10591: CLOSE get_top_tasks;
10592: RAISE FND_API.G_EXC_ERROR;
10593: END IF;
11054: p_proj_element_id
11055: ,l_ret_stat
11056: ,l_err_msg_code);
11057: IF (l_ret_stat = 'N') THEN
11058: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
11059: x_msg_data := l_err_msg_code;
11060: RAISE FND_API.G_EXC_ERROR;
11061: END IF;
11062: --enable versioning
11150: p_proj_element_id
11151: ,l_ret_stat
11152: ,l_err_msg_code);
11153: IF (l_ret_stat = 'N') THEN
11154: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
11155: x_msg_data := l_err_msg_code;
11156: RAISE FND_API.G_EXC_ERROR;
11157: END IF;
11158: --disable versioning
12631: ,p_err_stage => l_err_stage
12632: ,p_err_stack => l_err_stack
12633: );
12634: IF (l_err_code <> 0) THEN
12635: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12636: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
12637: RAISE FND_API.G_EXC_ERROR;
12638: END IF;
12639: ELSE
12636: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
12637: RAISE FND_API.G_EXC_ERROR;
12638: END IF;
12639: ELSE
12640: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12641: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
12642: RAISE FND_API.G_EXC_ERROR;
12643: END IF;
12644:
13240: OPEN l_check_working_versions_csr(p_structure_version_id);
13241: FETCH l_check_working_versions_csr INTO l_dummy;
13242: if l_check_working_versions_csr%FOUND then
13243: CLOSE l_check_working_versions_csr;
13244: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WORKING_VER_EXISTS');
13245: x_msg_data := 'PA_PS_WORKING_VER_EXISTS';
13246: RAISE FND_API.G_EXC_ERROR;
13247: end if;
13248: CLOSE l_check_working_versions_csr;
14191: or ((l_share_code in ('SPLIT_MAPPING','SPLIT_NO_MAPPING'))
14192: and (p_sharing_option_code IN ('SHARE_FULL','SHARE_PARTIAL'))))
14193: ) then
14194:
14195: PA_UTILS.ADD_MESSAGE('PA', 'PA_WP_PROG_CANT_CHG_STR');
14196:
14197: RAISE FND_API.G_EXC_ERROR;
14198:
14199: end if;
14205: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
14206: l_ret_stat,
14207: l_err_msg_code);
14208: IF (l_ret_stat = 'N') THEN
14209: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14210: x_msg_data := l_err_msg_code;
14211: RAISE FND_API.G_EXC_ERROR;
14212: END IF;
14213: END IF;
14217: PA_PROJECT_STRUCTURE_UTILS.check_disable_wp_ok(p_project_id,
14218: l_ret_stat,
14219: l_err_msg_code);
14220: IF (l_ret_stat = 'N') THEN
14221: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14222: x_msg_data := l_err_msg_code;
14223: RAISE FND_API.G_EXC_ERROR;
14224: END IF;
14225: END IF;
14229: PA_PROJECT_STRUCTURE_UTILS.check_sharing_on_ok(p_project_id,
14230: l_ret_stat,
14231: l_err_msg_code);
14232: IF (l_ret_stat = 'N') THEN
14233: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14234: x_msg_data := l_err_msg_code;
14235: RAISE FND_API.G_EXC_ERROR;
14236: END IF;
14237: END IF;
14241: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,
14242: l_ret_stat,
14243: l_err_msg_code);
14244: IF (l_ret_stat = 'N') THEN
14245: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14246: x_msg_data := l_err_msg_code;
14247: RAISE FND_API.G_EXC_ERROR;
14248: END IF;
14249: END IF;
15392: l_del_struc_ver_id,
15393: l_return_status,
15394: l_err_msg_code);
15395: IF (l_return_status <> 'S') THEN
15396: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
15397: x_msg_data := l_err_msg_code;
15398: RAISE FND_API.G_EXC_ERROR;
15399: END IF;
15400:
15412: ,x_error_message_code => l_err_msg_code );
15413:
15414: IF (l_return_status <> 'S') THEN
15415: x_return_status := l_return_status;
15416: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
15417: l_msg_data := l_err_msg_code;
15418: CLOSE get_top_tasks;
15419: RAISE FND_API.G_EXC_ERROR;
15420: END IF;
15881: ,x_msg_data => l_msg_data
15882: );
15883:
15884: IF (l_return_status <> 'S') THEN
15885: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
15886: x_msg_data := l_err_msg_code;
15887: RAISE FND_API.G_EXC_ERROR;
15888: END IF;
15889:
15969: l_del_struc_ver_id,
15970: l_return_status,
15971: l_err_msg_code);
15972: IF (l_return_status <> 'S') THEN
15973: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
15974: x_msg_data := l_err_msg_code;
15975: RAISE FND_API.G_EXC_ERROR;
15976: END IF;
15977:
15989: ,x_error_message_code => l_err_msg_code );
15990:
15991: IF (l_return_status <> 'S') THEN
15992: x_return_status := l_return_status;
15993: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
15994: l_msg_data := l_err_msg_code;
15995: CLOSE get_top_tasks;
15996: RAISE FND_API.G_EXC_ERROR;
15997: END IF;
16408: ,x_msg_data => l_msg_data
16409: );
16410:
16411: IF (l_return_status <> 'S') THEN
16412: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16413: x_msg_data := l_err_msg_code;
16414: RAISE FND_API.G_EXC_ERROR;
16415: END IF;
16416:
16504: l_del_struc_ver_id,
16505: l_return_status,
16506: l_err_msg_code);
16507: IF (l_return_status <> 'S') THEN
16508: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16509: x_msg_data := l_err_msg_code;
16510: RAISE FND_API.G_EXC_ERROR;
16511: END IF;
16512:
16524: ,x_error_message_code => l_err_msg_code );
16525:
16526: IF (l_return_status <> 'S') THEN
16527: x_return_status := l_return_status;
16528: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16529: l_msg_data := l_err_msg_code;
16530: CLOSE get_top_tasks;
16531: RAISE FND_API.G_EXC_ERROR;
16532: END IF;
16839: l_del_struc_ver_id,
16840: l_return_status,
16841: l_err_msg_code);
16842: IF (l_return_status <> 'S') THEN
16843: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16844: x_msg_data := l_err_msg_code;
16845: RAISE FND_API.G_EXC_ERROR;
16846: END IF;
16847:
16859: ,x_error_message_code => l_err_msg_code );
16860:
16861: IF (l_return_status <> 'S') THEN
16862: x_return_status := l_return_status;
16863: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16864: l_msg_data := l_err_msg_code;
16865: CLOSE get_top_tasks;
16866: RAISE FND_API.G_EXC_ERROR;
16867: END IF;
16933: l_del_struc_ver_id,
16934: l_return_status,
16935: l_err_msg_code);
16936: IF (l_return_status <> 'S') THEN
16937: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16938: x_msg_data := l_err_msg_code;
16939: RAISE FND_API.G_EXC_ERROR;
16940: END IF;
16941:
16954:
16955:
16956: IF (l_return_status <> 'S') THEN
16957: x_return_status := l_return_status;
16958: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16959: l_msg_data := l_err_msg_code;
16960: CLOSE get_top_tasks;
16961: RAISE FND_API.G_EXC_ERROR;
16962: END IF;
17233: l_del_struc_ver_id,
17234: l_return_status,
17235: l_err_msg_code);
17236: IF (l_return_status <> 'S') THEN
17237: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17238: x_msg_data := l_err_msg_code;
17239: RAISE FND_API.G_EXC_ERROR;
17240: END IF;
17241:
17253: ,x_error_message_code => l_err_msg_code );
17254:
17255: IF (l_return_status <> 'S') THEN
17256: x_return_status := l_return_status;
17257: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17258: l_msg_data := l_err_msg_code;
17259: CLOSE get_top_tasks;
17260: RAISE FND_API.G_EXC_ERROR;
17261: END IF;
17325: l_del_struc_ver_id,
17326: l_return_status,
17327: l_err_msg_code);
17328: IF (l_return_status <> 'S') THEN
17329: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17330: x_msg_data := l_err_msg_code;
17331: RAISE FND_API.G_EXC_ERROR;
17332: END IF;
17333:
17346:
17347:
17348: IF (l_return_status <> 'S') THEN
17349: x_return_status := l_return_status;
17350: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17351: l_msg_data := l_err_msg_code;
17352: CLOSE get_top_tasks;
17353: RAISE FND_API.G_EXC_ERROR;
17354: END IF;
17739:
17740: --bug 4275096
17741: IF l_sys_program_flag = 'N' AND l_allow_multi_program_rollup = 'Y'
17742: THEN
17743: Pa_Utils.ADD_MESSAGE
17744: ( p_app_short_name => 'PA',
17745: p_msg_name =>'PA_PS_EN_SYS_PROG_ERR');
17746: RAISE FND_API.G_EXC_ERROR;
17747: END IF;
17749:
17750: IF (l_proj_sys_program_flag='Y' and nvl(l_sys_program_flag,'N')='N' ) then
17751: l_flag := PA_RELATIONSHIP_UTILS.DISABLE_SYS_PROG_OK(p_project_id);
17752: If l_flag='N' Then
17753: Pa_Utils.ADD_MESSAGE
17754: ( p_app_short_name => 'PA',
17755: p_msg_name =>'PA_PS_DIS_SYS_PROG_ERR');
17756: RAISE FND_API.G_EXC_ERROR;
17757: END IF;
17759:
17760: IF (l_proj_allow_program_rollup='Y' and nvl(l_allow_multi_program_rollup,'N')='N' ) then
17761: l_flag := PA_RELATIONSHIP_UTILS.DISABLE_MULTI_PROG_OK(p_project_id);
17762: IF l_flag ='N' Then
17763: Pa_Utils.ADD_MESSAGE
17764: ( p_app_short_name => 'PA',
17765: p_msg_name =>'PA_PS_DIS_MULTI_PROG_ERR');
17766: RAISE FND_API.G_EXC_ERROR;
17767: END IF;