[Home] [Help]
232: --02/13 PROGRAM_ID,
233: CLE_ID
234: DNZ_CHR_ID
235: FROM
236: OKS_PM_ACTIVITIES_V
237: WHERE cle_id= p_template_cle_id;
238: cr_activities cu_activities%ROWTYPE;
239:
240: CURSOR cu_prog_stream_levels IS
1411: IS
1412: SELECT
1413: object_version_number
1414: FROM
1415: OKS_PM_ACTIVITIES
1416: WHERE id=cp_activity_line_id;
1417: -- cr_obj_version cu_obj_version%ROWTYPE;
1418: l_object_version_number NUMBER;
1419: BEGIN
1558: END POPULATE_SCHEDULE;
1559:
1560:
1561: /* Logic for adjust - rules rearchitecture
1562: *** Populate a table of records with id for oks_k_lines or oks_pm_activities and type
1563: *** Loop through the table of records
1564: ***Logic for adjusting schedule dates remains the same
1565: */
1566: /*
1801: CR_PROGRAM CU_PROGRAM%ROWTYPE;
1802:
1803: CURSOR CU_ACTIVITIES IS
1804: SELECT id,'PMA' TYPE
1805: FROM OKS_PM_ACTIVITIES
1806: WHERE CLE_ID= p_contract_line_id;
1807: -- and lse_id in (2,15,20)); commented by jvorugan as pm is associated with contract line
1808:
1809: CR_ACTIVITIES CU_ACTIVITIES%ROWTYPE;
4191: SELECT_YN,
4192: CONF_REQ_YN,
4193: SCH_EXISTS_YN
4194: FROM
4195: oks_pm_activities
4196: WHERE
4197: cle_id=cp_cov_line_id;
4198:
4199: -- GLOBAL VARIABLES
4363: CURSOR l_act_csr(p_cle_id IN NUMBER) IS
4364: select 'x' terminate
4365: FROM okc_k_lines_b cle,
4366: oks_k_lines_b pmp,
4367: oks_pm_activities oksact,
4368: okx_pm_activities_v act
4369: WHERE cle.id = pmp.cle_id
4370: and cle.dnz_chr_id = pmp.dnz_chr_id
4371: --changed for using index and pmp.pm_program_id= oksact.program_id
4492: CURSOR l_act_csr(p_cle_id IN NUMBER) IS
4493: select act.mr_header_id
4494: FROM okc_k_lines_b cle,
4495: oks_k_lines_b pmp,
4496: oks_pm_activities oksact,
4497: ahl_mr_headers_b act
4498: WHERE cle.id = pmp.cle_id
4499: and cle.dnz_chr_id = pmp.dnz_chr_id
4500: and pmp.cle_id= oksact.cle_id
4664: /* Modified by Jvorugan for Bug:5215180
4665: CURSOR l_act_csr(p_cle_id IN NUMBER) IS
4666: SELECT pma.id
4667: FROM okc_k_lines_b cle,
4668: oks_pm_activities pma
4669: WHERE cle.id = pma.cle_id
4670: and cle.cle_id=p_cle_id;
4671: */
4672: CURSOR l_act_csr(p_cle_id IN NUMBER) IS
4670: and cle.cle_id=p_cle_id;
4671: */
4672: CURSOR l_act_csr(p_cle_id IN NUMBER) IS
4673: SELECT pma.id
4674: FROM oks_pm_activities pma
4675: WHERE pma.cle_id = p_cle_id;
4676: l_act_rec l_act_csr%ROWTYPE;
4677:
4678:
4847: CURSOR l_act_csr(p_cle_id IN NUMBER) IS
4848: SELECT oksact.activity_id
4849: FROM okc_k_lines_b cle,
4850: oks_k_lines_b okscle,
4851: oks_pm_activities_v oksact
4852: WHERE cle.id = okscle.cle_id
4853: and cle.dnz_chr_id = okscle.dnz_chr_id
4854: and cle.id=oksact.cle_id
4855: and cle.dnz_chr_id=oksact.dnz_chr_id
4945: p_cle_id IN NUMBER--COVERAGE LINE ID
4946: ) IS
4947:
4948: CURSOR CU_GET_PMA IS
4949: SELECT ID FROM OKS_PM_ACTIVITIES
4950: WHERE CLE_ID = p_cle_id;
4951:
4952: CURSOR CU_GET_PML IS
4953: SELECT ID FROM OKS_PM_STREAM_LEVELS
5284:
5285: DELETE OKS_PM_STREAM_LEVELS
5286: WHERE dnz_chr_id = l_chr_id;
5287:
5288: DELETE OKS_PM_ACTIVITIES
5289: WHERE dnz_chr_id = l_chr_id;
5290:
5291: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5292:
5349: DELETE OKS_PM_STREAM_LEVELS_H
5350: WHERE dnz_chr_id = l_chr_id
5351: And major_version = -1;
5352:
5353: DELETE OKS_PM_ACTIVITIES_H
5354: WHERE dnz_chr_id = l_chr_id
5355: And major_version = -1;
5356:
5357: x_Return_status:=l_Return_Status;
5401: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5402: l_old_cle_id NUMBER;
5403: l_new_cle_id NUMBER;
5404:
5405: -- This function is to insert values into oks_pm_activities
5406: FUNCTION CREATE_OKS_PM_ACTIVITIES(p_new_cle_id NUMBER,
5407: p_old_cle_id NUMBER) return VARCHAR2 IS
5408:
5409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5402: l_old_cle_id NUMBER;
5403: l_new_cle_id NUMBER;
5404:
5405: -- This function is to insert values into oks_pm_activities
5406: FUNCTION CREATE_OKS_PM_ACTIVITIES(p_new_cle_id NUMBER,
5407: p_old_cle_id NUMBER) return VARCHAR2 IS
5408:
5409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5410:
5409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5410:
5411: BEGIN
5412:
5413: INSERT INTO oks_pm_activities
5414: ( ID,
5415: CLE_ID,
5416: DNZ_CHR_ID,
5417: ACTIVITY_ID,
5455: -- SERVICE_LINE_ID,
5456: ID ORIG_SYSTEM_ID1,
5457: ORIG_SYSTEM_SOURCE_CODE,
5458: ORIG_SYSTEM_REFERENCE1
5459: FROM oks_pm_activities
5460: WHERE cle_id =p_old_cle_id;
5461:
5462: RETURN l_return_status;
5463:
5471: SQLERRM);
5472: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5473: return x_return_status;
5474:
5475: END CREATE_OKS_PM_ACTIVITIES;
5476:
5477: -- This function is to insert values into oks_pm_stream_levels
5478: FUNCTION CREATE_OKS_PM_STREAM_LEVELS(p_new_cle_id NUMBER,
5479: p_old_cle_id NUMBER) return VARCHAR2 IS
5516: SELECT
5517: okc_p_util.raw_to_number(sys_guid()),
5518: p_new_cle_id CLE_ID,
5519: DNZ_CHR_ID,
5520: DECODE(ACTIVITY_LINE_ID,NULL,NULL,(SELECT id from oks_pm_activities where ORIG_SYSTEM_ID1 =ACTIVITY_LINE_ID and cle_id =p_new_cle_id)),
5521: SEQUENCE_NUMBER,
5522: NUMBER_OF_OCCURENCES,
5523: START_DATE,
5524: END_DATE,
5567: IF (G_DEBUG_ENABLED = 'Y') THEN
5568: okc_debug.Set_Indentation('Copy_PM_Template');
5569: okc_debug.log('Entered Copy_PM_Template', 3);
5570: END IF;
5571: l_return_status := CREATE_OKS_PM_ACTIVITIES(p_new_coverage_id,p_old_coverage_id);
5572: IF (G_DEBUG_ENABLED = 'Y') THEN
5573: okc_debug.log('After CREATE_OKS_PM_ACTIVITIES'||l_return_status, 3);
5574: END IF;
5575: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS
5569: okc_debug.log('Entered Copy_PM_Template', 3);
5570: END IF;
5571: l_return_status := CREATE_OKS_PM_ACTIVITIES(p_new_coverage_id,p_old_coverage_id);
5572: IF (G_DEBUG_ENABLED = 'Y') THEN
5573: okc_debug.log('After CREATE_OKS_PM_ACTIVITIES'||l_return_status, 3);
5574: END IF;
5575: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS
5576: THEN
5577: RAISE G_EXCEPTION_HALT_VALIDATION;