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: CURSOR CurGetHeaderdet
185: Is
236: AUTO_SIGNOFF_FLAG,
237: COPY_INIT_ACCOMPL_FLAG,
238: COPY_DEFERRALS_FLAG,
239: APPLICATION_USG_CODE
240: from AHL_MR_HEADERS_APP_V
241: where mr_header_id=p_source_mr_header_id;
242:
243: CURSOR CurGetDocTitledet
244: is
540: ATTRIBUTE15
541: FROM AHL_MR_RELATIONSHIPS_APP_V A
542: WHERE (MR_HEADER_ID=P_SOURCE_MR_HEADER_ID or RELATED_MR_HEADER_ID=P_SOURCE_MR_HEADER_ID)
543: AND EXISTS(SELECT MR_HEADER_ID
544: FROM AHL_MR_HEADERS_APP_V
545: WHERE ( MR_HEADER_ID=A.MR_HEADER_ID
546: OR MR_HEADER_ID=A.RELATED_MR_HEADER_ID)
547: AND MR_STATUS_CODE<>'TERMINATED'
548: AND NVL(EFFECTIVE_TO,SYSDATE+1) >SYSDATE);
1336: MR_STATUS_CODE,
1337: EFFECTIVE_FROM,
1338: EFFECTIVE_TO,
1339: TYPE_CODE
1340: FROM AHL_MR_HEADERS_APP_V
1341: WHERE MR_HEADER_ID=C_MR_HEADER_ID
1342: and object_version_number=p_object_Version_number;
1343: l_mr_rec GetHeaderInfo%ROWTYPE;
1344:
1349: VERSION_NUMBER,
1350: MR_STATUS_CODE,
1351: EFFECTIVE_FROM,
1352: EFFECTIVE_TO
1353: FROM AHL_MR_HEADERS_APP_V
1354: WHERE TITLE=C_TITLE
1355: And version_number=c_version_number-1;
1356: l_mr_rec1 GetHeaderInfo1%ROWTYPE;
1357:
1565:
1566: If P_APPRV_TYPE='TERMINATE' and l_check_flag='Y'
1567: Then
1568: SELECT COUNT(*) INTO l_counter
1569: FROM AHL_MR_HEADERS_APP_V
1570: WHERE MR_HEADER_ID>l_activity_id
1571: And Title=l_mr_rec.title
1572: And Version_number >l_mr_rec.version_number;
1573: IF l_counter>0
1956:
1957: -- Verify whether both old revisions of the MR are M Procedures...
1958: SELECT program_type_code
1959: INTO l_prev_program_type
1960: FROM ahl_mr_headers_app_v
1961: WHERE mr_header_id = l_prev_mr_rec.MR_HEADER_ID;
1962:
1963: SELECT program_type_code
1964: INTO l_program_type
1961: WHERE mr_header_id = l_prev_mr_rec.MR_HEADER_ID;
1962:
1963: SELECT program_type_code
1964: INTO l_program_type
1965: FROM ahl_mr_headers_app_v
1966: WHERE mr_header_id = P_MR_HEADER_ID;
1967:
1968: -- If old revision of the MO_PROC is being made inactive, need to associated the new revision to ATA Sequences too
1969: IF (l_prev_program_type = 'MO_PROC' AND l_program_type = 'MO_PROC')
2176:
2177: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2178:
2179: SELECT count(*) into l_counter1
2180: FROM AHL_MR_HEADERS_APP_V
2181: Where mr_header_id=p_source_mr_header_id;
2182:
2183: IF l_counter1=0
2184: THEN
2186: FND_MSG_PUB.ADD;
2187: END IF;
2188:
2189: SELECT count(*) into l_counter2
2190: FROM AHL_MR_HEADERS_APP_V
2191: Where mr_header_id=p_source_mr_header_id
2192: And mr_status_code='DRAFT' or mr_status_code='APPROVAL_REJECTED';
2193:
2194: IF l_counter2=0