[Home] [Help]
25: AS
26: CURSOR CheckAnyExistingMr(C_TITLE VARCHAR2)
27: is
28: Select count(title)
29: From AHL_MR_HEADERS_APP_V
30: Where title=C_TITLE
31: And (MR_STATUS_CODE='DRAFT'
32: OR MR_STATUS_CODE='APPROVAL_REJECTED'
33: OR MR_STATUS_CODE='APPROVAL_PENDING')
37: C_MR_HEADER_ID NUMBER,
38: C_VERSION_NUMBER NUMBER)
39: Is
40: Select count(*)
41: From ahl_mr_headers_APP_V
42: Where title=C_TITLE
43: -- And mr_status_code='COMPLETE'
44: And mr_header_id >C_MR_HEADER_ID
45: And version_number>C_VERSION_NUMBER;
72:
73:
74: Select MR_STATUS_CODE,TITLE,VERSION_NUMBER
75: into l_status,l_title,l_version_number
76: From ahl_mr_headers_app_v
77: Where mr_header_id=p_source_mr_header_id;
78:
79:
80: IF SQL%ROWCOUNT>0
177: AS
178: CURSOR LckGetHeader
179: is
180: select mr_header_id
181: from AHL_MR_HEADERS_APP_V
182: where mr_header_id=p_source_mr_header_id;
183:
184: l_program_type_code AHL_MR_HEADERS_B.program_type_code%type;
185: CURSOR CurGetHeaderdet
242: AUTO_SIGNOFF_FLAG,
243: COPY_INIT_ACCOMPL_FLAG,
244: COPY_DEFERRALS_FLAG,
245: APPLICATION_USG_CODE
246: from AHL_MR_HEADERS_APP_V
247: where mr_header_id=p_source_mr_header_id;
248:
249: CURSOR CurGetDocTitledet
250: is
590: ATTRIBUTE15
591: FROM AHL_MR_RELATIONSHIPS_APP_V A
592: WHERE (MR_HEADER_ID=P_SOURCE_MR_HEADER_ID or RELATED_MR_HEADER_ID=P_SOURCE_MR_HEADER_ID)
593: AND EXISTS(SELECT MR_HEADER_ID
594: FROM AHL_MR_HEADERS_APP_V
595: WHERE ( MR_HEADER_ID=A.MR_HEADER_ID
596: OR MR_HEADER_ID=A.RELATED_MR_HEADER_ID)
597: AND MR_STATUS_CODE<>'TERMINATED'
598: AND NVL(EFFECTIVE_TO,SYSDATE+1) >SYSDATE);
1730: MR_STATUS_CODE,
1731: EFFECTIVE_FROM,
1732: EFFECTIVE_TO,
1733: TYPE_CODE
1734: FROM AHL_MR_HEADERS_APP_V
1735: WHERE MR_HEADER_ID=C_MR_HEADER_ID
1736: and object_version_number=p_object_Version_number;
1737: l_mr_rec GetHeaderInfo%ROWTYPE;
1738:
1743: VERSION_NUMBER,
1744: MR_STATUS_CODE,
1745: EFFECTIVE_FROM,
1746: EFFECTIVE_TO
1747: FROM AHL_MR_HEADERS_APP_V
1748: WHERE TITLE=C_TITLE
1749: And version_number=c_version_number-1;
1750: l_mr_rec1 GetHeaderInfo1%ROWTYPE;
1751:
1959:
1960: If P_APPRV_TYPE='TERMINATE' and l_check_flag='Y'
1961: Then
1962: SELECT COUNT(*) INTO l_counter
1963: FROM AHL_MR_HEADERS_APP_V
1964: WHERE MR_HEADER_ID>l_activity_id
1965: And Title=l_mr_rec.title
1966: And Version_number >l_mr_rec.version_number;
1967: IF l_counter>0
2292: -- completing the MR for the first revision.
2293:
2294: SELECT program_type_code
2295: INTO l_program_type
2296: FROM ahl_mr_headers_app_v
2297: WHERE mr_header_id = P_MR_HEADER_ID;
2298:
2299: IF (l_program_type = 'SERV_BLTN') THEN
2300: OPEN check_sb_rules_exists(p_mr_header_id);
2446:
2447: -- pdoki uncommented for Bug 10312082
2448: SELECT program_type_code
2449: INTO l_prev_program_type
2450: FROM ahl_mr_headers_app_v
2451: WHERE mr_header_id = l_prev_mr_rec.MR_HEADER_ID;
2452:
2453: SELECT program_type_code
2454: INTO l_program_type
2451: WHERE mr_header_id = l_prev_mr_rec.MR_HEADER_ID;
2452:
2453: SELECT program_type_code
2454: INTO l_program_type
2455: FROM ahl_mr_headers_app_v
2456: WHERE mr_header_id = P_MR_HEADER_ID;
2457:
2458: -- If old revision of the MO_PROC is being made inactive, need to associated the new revision to ATA Sequences too
2459: IF (l_prev_program_type = 'MO_PROC' AND l_program_type = 'MO_PROC')
2711:
2712: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2713:
2714: SELECT count(*) into l_counter1
2715: FROM AHL_MR_HEADERS_APP_V
2716: Where mr_header_id=p_source_mr_header_id;
2717:
2718: IF l_counter1=0
2719: THEN
2721: FND_MSG_PUB.ADD;
2722: END IF;
2723:
2724: SELECT count(*) into l_counter2
2725: FROM AHL_MR_HEADERS_APP_V
2726: Where mr_header_id=p_source_mr_header_id
2727: And mr_status_code='DRAFT' or mr_status_code='APPROVAL_REJECTED';
2728:
2729: IF l_counter2=0