[Home] [Help]
1: PACKAGE BODY AHL_UTIL_UC_PKG AS
2: /* $Header: AHLUUCB.pls 120.10.12020000.2 2012/12/10 16:55:48 prakkum ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_UTIL_UC_PKG';
5:
1: PACKAGE BODY AHL_UTIL_UC_PKG AS
2: /* $Header: AHLUUCB.pls 120.10.12020000.2 2012/12/10 16:55:48 prakkum ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_UTIL_UC_PKG';
5:
6: G_STATUS_COMPLETE CONSTANT VARCHAR2(30) := 'COMPLETE';
7: G_STATUS_INCOMPLETE CONSTANT VARCHAR2(30) := 'INCOMPLETE';
8: G_STATUS_EXPIRED CONSTANT VARCHAR2(30) := 'EXPIRED';
703: l_assoc_rec_found BOOLEAN DEFAULT FALSE;
704:
705: l_pos_ref_code fnd_lookups.lookup_code%TYPE;
706: l_pos_ref_meaning fnd_lookups.meaning%TYPE;
707: l_debug_key VARCHAR2(60) := 'ahl.plsql.AHL_UTIL_UC_PKG.Validate_for_Position';
708:
709: BEGIN
710: x_item_assoc_id := NULL;
711:
978: -- master config sub-tree below p_mc_relationship_id.
979: /* comment out by Jerry Li on 09/16/2004 for bug 3893965
980: PROCEDURE Match_Tree_Components (p_csi_item_instance_id IN NUMBER,
981: p_mc_relationship_id IN NUMBER,
982: x_match_part_posn_tbl OUT NOCOPY AHL_UTIL_UC_PKG.matched_tbl_type,
983: x_match_flag OUT NOCOPY BOOLEAN)
984: IS
985:
986: -- Cursor to read the parts tree from IB.
1046:
1047: -- define variables to hold part-tree and mc-posn tree.
1048: l_part_tbl part_tbl_type;
1049: l_mc_posn_tbl mc_posn_tbl_type;
1050: l_matched_tbl AHL_UTIL_UC_PKG.matched_tbl_type;
1051:
1052: l_index NUMBER;
1053:
1054: l_Inventory_item_id NUMBER;
1167:
1168: CLOSE csi_item_instance_csr;
1169:
1170: -- Validate w.r.t positional attributes.
1171: AHL_UTIL_UC_PKG.Validate_for_Position(l_mc_posn_tbl(j).relationship_id,
1172: l_Inventory_Item_id,
1173: l_Inventory_Org_id,
1174: l_quantity,
1175: l_inventory_revision,
1581:
1582: --Define the l_csi_transaction_rec
1583: l_csi_transaction_rec.source_transaction_date := sysdate;
1584:
1585: AHL_Util_UC_Pkg.GetCSI_Transaction_ID('UC_UPDATE',l_transaction_type_id,
1586: l_return_val);
1587: IF NOT(l_return_val) THEN
1588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1672: l_root_active_status FND_LOOKUP_VALUES.MEANING%TYPE;
1673: l_root_end_date AHL_UNIT_CONFIG_HEADERS.ACTIVE_END_DATE%TYPE;
1674: l_root_inst_end_date CSI_ITEM_INSTANCES.ACTIVE_END_DATE%TYPE;
1675: l_return_value VARCHAR2(100) := null;
1676: L_DEBUG_KEY CONSTANT VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.Get_UC_Status';
1677:
1678: BEGIN
1679:
1680: -- Perf Bug Fix for - 4902980.
1858: l_root_status FND_LOOKUP_VALUES.MEANING%TYPE;
1859: l_root_end_date AHL_UNIT_CONFIG_HEADERS.ACTIVE_END_DATE%TYPE;
1860: l_root_inst_end_date CSI_ITEM_INSTANCES.ACTIVE_END_DATE%TYPE;
1861: l_return_value VARCHAR2(100) := null;
1862: L_DEBUG_KEY CONSTANT VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.Get_UC_Status_code';
1863:
1864: BEGIN
1865:
1866: -- Perf Bug Fix for - 4902980.
2543: FUNCTION IS_UNIT_QUARANTINED(p_unit_header_id IN NUMBER,
2544: p_instance_id IN NUMBER) RETURN VARCHAR2 IS
2545: l_uc_header_id NUMBER;
2546: l_uc_status_code VARCHAR2(30);
2547: l_debug_key VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED';
2548:
2549: BEGIN
2550:
2551: -- If unit header id is not passed then derived using the instance id
2918: AND ((revision IS NULL) OR (revision = p_item_revision))
2919: AND interchange_type_code IN ('1-WAY INTERCHANGEABLE', '2-WAY INTERCHANGEABLE');
2920:
2921:
2922: L_DEBUG_KEY VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.Item_Matches_Instance_Pos';
2923:
2924: l_uc_header_id NUMBER;
2925: l_master_config_id NUMBER;
2926: l_node_ig_id NUMBER;
2994: 'At the end of the procedure. x_matches_flag = ' || x_matches_flag);
2995: END IF;
2996: END Item_Matches_Instance_Pos;
2997:
2998: END AHL_UTIL_UC_PKG;