[Home] [Help]
155: END IF;
156:
157: -- Insert Record into ahl_pc_header_headers,
158: -- call table handler insert record
159: SELECT AHL_PC_HEADERS_B_S.NEXTVAL INTO l_header_id FROM DUAL;
160:
161: IF p_x_pc_header_rec.OPERATION_FLAG = AHL_PC_HEADER_PVT.G_DML_LINK
162: THEN
163: l_link_id := p_x_pc_header_rec.LINK_TO_PC_ID;
281:
282: CURSOR is_pc_primary (p_pc_header_id IN NUMBER)
283: IS
284: select primary_flag
285: from ahl_pc_headers_b
286: where pc_header_id = p_pc_header_id;
287:
288: BEGIN
289:
497:
498: CURSOR check_header_status (p_pc_header_id varchar2)
499: IS
500: SELECT STATUS
501: FROM AHL_PC_HEADERS_B
502: WHERE PC_HEADER_ID = p_pc_header_id;
503:
504: CURSOR delete_node (p_pc_header_id varchar2)
505: IS
510:
511: CURSOR delete_linked_header (p_pc_header_id varchar2)
512: IS
513: SELECT LINK_TO_PC_ID
514: FROM AHL_PC_HEADERS_B
515: WHERE PC_HEADER_ID = p_pc_header_id;
516:
517: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PC_HEADER';
518: l_api_version CONSTANT NUMBER := 1.0;
620: THEN
621: IF G_DEBUG='Y' THEN
622: AHL_DEBUG_PUB.debug('PCH -- PVT -- DELETE_PC_HEADER -- Done for Header ID='||l_link_to_header_id);
623: END IF;
624: UPDATE AHL_PC_HEADERS_B
625: SET DRAFT_FLAG='N'
626: WHERE PC_HEADER_ID = l_link_to_header_id;
627:
628: l_node_id := 0;
836: AHS.ATTRIBUTE14,
837: AHS.ATTRIBUTE15
838: FROM AHL_PC_ASSOCIATIONS AHS, AHL_UNIT_CONFIG_HEADERS UNIT,
839: CSI_ITEM_INSTANCES CSI, MTL_SYSTEM_ITEMS_KFV MTL,
840: AHL_PC_NODES_B NODE, AHL_PC_HEADERS_B HEADER
841: WHERE p_copy_assos_flag = 'Y'
842: AND NODE.PC_HEADER_ID = HEADER.PC_HEADER_ID
843: AND NODE.PC_NODE_ID = AHS.PC_NODE_ID
844: AND HEADER.PC_HEADER_ID = p_header_id
886:
887: CURSOR is_pc_primary (p_pc_header_id IN NUMBER)
888: IS
889: select primary_flag
890: from ahl_pc_headers_b
891: where pc_header_id = p_pc_header_id;
892:
893: CURSOR node_test(p_node_id IN VARCHAR2)
894: IS
898:
899: CURSOR check_name_unique(p_pc_name IN VARCHAR2)
900: IS
901: SELECT 'x'
902: FROM AHL_PC_HEADERS_B
903: WHERE NAME = p_pc_name;
904:
905:
906: BEGIN
1264:
1265: CURSOR get_pc_details(l_pc_header_id IN NUMBER, l_object_version_number IN NUMBER)
1266: IS
1267: SELECT STATUS, NAME
1268: FROM AHL_PC_HEADERS_B
1269: WHERE PC_HEADER_ID = l_pc_header_id AND
1270: OBJECT_VERSION_NUMBER = l_object_version_number;
1271:
1272:
1331: IF l_active = 'Y'
1332: THEN
1333: -- Update PC with new status, increase object_version_number
1334: l_object_version_number := p_x_pc_header_rec.OBJECT_VERSION_NUMBER + 1;
1335: UPDATE AHL_PC_HEADERS_B
1336: SET STATUS = 'APPROVAL_PENDING', OBJECT_VERSION_NUMBER = l_object_version_number
1337: WHERE PC_HEADER_ID = p_x_pc_header_rec.PC_HEADER_ID AND
1338: OBJECT_VERSION_NUMBER = p_x_pc_header_rec.OBJECT_VERSION_NUMBER;
1339:
1376: END IF;
1377:
1378: l_object_version_number := p_x_pc_header_rec.OBJECT_VERSION_NUMBER + 1;
1379:
1380: UPDATE AHL_PC_HEADERS_B
1381: SET STATUS = 'COMPLETE',
1382: OBJECT_VERSION_NUMBER = l_object_version_number,
1383: LAST_UPDATE_DATE = SYSDATE,
1384: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
1426:
1427: CURSOR check_name (p_name IN VARCHAR2, p_status IN VARCHAR2, p_pc_header_id IN NUMBER)
1428: IS
1429: SELECT 'X'
1430: FROM AHL_PC_HEADERS_B
1431: WHERE PC_HEADER_ID <> nvl(p_pc_header_id,0) AND
1432: -- UPPER(NAME) = UPPER(p_name) AND
1433: NAME = p_name AND
1434: --STATUS = p_status AND
1436:
1437: CURSOR check_prod_type (p_prod_type IN VARCHAR2, p_pc_header_id IN NUMBER)
1438: IS
1439: SELECT 'X'
1440: FROM AHL_PC_HEADERS_B
1441: WHERE PC_HEADER_ID <> p_pc_header_id AND
1442: PRIMARY_FLAG = 'Y' AND
1443: PRODUCT_TYPE_CODE like p_prod_type AND
1444: DRAFT_FLAG = 'N';
1511:
1512: CURSOR get_dup_assos (p_pc_header_id IN NUMBER)
1513: IS
1514: select ahass.unit_item_id, count(ahass.pc_node_id)
1515: from ahl_pc_headers_b head, ahl_pc_nodes_b node, ahl_pc_associations ahass
1516: where ahass.pc_node_id = node.pc_node_id and
1517: node.pc_header_id = head.pc_header_id and
1518: head.pc_header_id = p_pc_header_id
1519: group by ahass.unit_item_id
1614:
1615: CURSOR copy_header_data(p_header_id IN NUMBER)
1616: IS
1617: SELECT *
1618: FROM AHL_PC_HEADERS_B
1619: WHERE PC_HEADER_ID = p_header_id;
1620:
1621: CURSOR copy_nodes_data(p_header_id IN VARCHAR2)
1622: IS
1706: AHS.ATTRIBUTE14,
1707: AHS.ATTRIBUTE15
1708: FROM AHL_PC_ASSOCIATIONS AHS, AHL_UNIT_CONFIG_HEADERS UNIT,
1709: CSI_ITEM_INSTANCES CSI, MTL_SYSTEM_ITEMS_KFV MTL,
1710: AHL_PC_NODES_B NODE, AHL_PC_HEADERS_B HEADER
1711: WHERE NODE.PC_HEADER_ID = HEADER.PC_HEADER_ID
1712: AND NODE.PC_NODE_ID = AHS.PC_NODE_ID
1713: AND HEADER.PC_HEADER_ID = p_header_id
1714: AND UNIT.UNIT_CONFIG_HEADER_ID(+) = AHS.UNIT_ITEM_ID
1765: IF G_DEBUG='Y' THEN
1766: AHL_DEBUG_PUB.debug('PCH -- PVT -- CREATE_LINK -- Old Header ID='||l_old_header_id);
1767: END IF;
1768:
1769: UPDATE AHL_PC_HEADERS_B
1770: SET DRAFT_FLAG = 'Y'
1771: WHERE PC_HEADER_ID = l_old_header_id;
1772:
1773: p_x_pc_header_rec.LINK_TO_PC_ID := l_old_header_id;
2071:
2072: CURSOR get_pc_details (p_pc_node_id IN NUMBER)
2073: IS
2074: SELECT HEAD.PRIMARY_FLAG, HEAD.ASSOCIATION_TYPE_FLAG
2075: FROM AHL_PC_HEADERS_B HEAD, AHL_PC_NODES_B NODE
2076: WHERE NODE.PC_HEADER_ID = HEAD.PC_HEADER_ID AND
2077: NODE.PC_NODE_ID = p_pc_node_id;
2078:
2079: BEGIN
2343: AHS.ATTRIBUTE14,
2344: AHS.ATTRIBUTE15
2345: FROM AHL_PC_ASSOCIATIONS AHS, AHL_UNIT_CONFIG_HEADERS UNIT,
2346: CSI_ITEM_INSTANCES CSI, MTL_SYSTEM_ITEMS_KFV MTL,
2347: AHL_PC_NODES_B NODE, AHL_PC_HEADERS_B HEADER
2348: WHERE NODE.PC_NODE_ID = AHS.PC_NODE_ID
2349: AND HEADER.PC_HEADER_ID = NODE.PC_HEADER_ID
2350: AND NODE.PC_HEADER_ID = p_header_id
2351: AND UNIT.UNIT_CONFIG_HEADER_ID(+) = AHS.UNIT_ITEM_ID
2436: AHS.UNIT_ITEM_ID,
2437: AHS.INVENTORY_ORG_ID
2438: FROM AHL_PC_ASSOCIATIONS AHS, AHL_UNIT_CONFIG_HEADERS UNIT,
2439: CSI_ITEM_INSTANCES CSI, MTL_SYSTEM_ITEMS_KFV MTL,
2440: AHL_PC_NODES_B NODE, AHL_PC_HEADERS_B HEADER
2441: WHERE NODE.PC_NODE_ID = AHS.PC_NODE_ID
2442: AND HEADER.PC_HEADER_ID = NODE.PC_HEADER_ID
2443: AND UNIT.UNIT_CONFIG_HEADER_ID(+) = AHS.UNIT_ITEM_ID
2444: AND UNIT.CSI_ITEM_INSTANCE_ID = CSI.INSTANCE_ID(+)
2521:
2522: CURSOR delete_header(p_link_header_id in number)
2523: IS
2524: SELECT 'X'
2525: FROM AHL_PC_HEADERS_B
2526: WHERE PC_HEADER_ID = p_link_header_id;
2527:
2528:
2529: CURSOR get_mr_for_pc (c_pc_header_id number)
2698: p_x_pc_header_rec.DRAFT_FLAG := 'N';
2699: p_x_pc_header_rec.OPERATION_FLAG := AHL_PC_HEADER_PVT.G_DML_LINK;
2700:
2701: SELECT OBJECT_VERSION_NUMBER INTO p_x_pc_header_rec.OBJECT_VERSION_NUMBER
2702: FROM AHL_PC_HEADERS_B
2703: WHERE PC_HEADER_ID = l_pc_header_rec.LINK_TO_PC_ID;
2704:
2705: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2706: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'ahl.plsql.AHL_PC_HEADER_PVT.REMOVE_LINK',
3302:
3303: CURSOR check_prod_type_changed (p_pc_header_id IN NUMBER, p_prod_type IN VARCHAR2, p_assos_type IN VARCHAR2)
3304: IS
3305: SELECT 'X'
3306: FROM AHL_PC_HEADERS_B
3307: WHERE PC_HEADER_ID = p_pc_header_id AND
3308: PRODUCT_TYPE_CODE = p_prod_type AND
3309: ASSOCIATION_TYPE_FLAG = p_assos_type;
3310:
3374: STATUS,
3375: PRIMARY_FLAG,
3376: ASSOCIATION_TYPE_FLAG,
3377: LINK_TO_PC_ID
3378: FROM AHL_PC_HEADERS_B
3379: WHERE PC_HEADER_ID = p_header_id;
3380:
3381: l_old_obj_ver_no NUMBER;
3382: l_old_prod_type_code VARCHAR2(30);