[Home] [Help]
1: PACKAGE BODY AHL_UTIL_UC_PKG AS
2: /* $Header: AHLUUCB.pls 120.9 2008/03/11 05:52:10 jaramana 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.9 2008/03/11 05:52:10 jaramana 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';
698: l_assoc_rec_found BOOLEAN DEFAULT FALSE;
699:
700: l_pos_ref_code fnd_lookups.lookup_code%TYPE;
701: l_pos_ref_meaning fnd_lookups.meaning%TYPE;
702: l_debug_key VARCHAR2(60) := 'ahl.plsql.AHL_UTIL_UC_PKG.Validate_for_Position';
703:
704: BEGIN
705: x_item_assoc_id := NULL;
706:
973: -- master config sub-tree below p_mc_relationship_id.
974: /* comment out by Jerry Li on 09/16/2004 for bug 3893965
975: PROCEDURE Match_Tree_Components (p_csi_item_instance_id IN NUMBER,
976: p_mc_relationship_id IN NUMBER,
977: x_match_part_posn_tbl OUT NOCOPY AHL_UTIL_UC_PKG.matched_tbl_type,
978: x_match_flag OUT NOCOPY BOOLEAN)
979: IS
980:
981: -- Cursor to read the parts tree from IB.
1041:
1042: -- define variables to hold part-tree and mc-posn tree.
1043: l_part_tbl part_tbl_type;
1044: l_mc_posn_tbl mc_posn_tbl_type;
1045: l_matched_tbl AHL_UTIL_UC_PKG.matched_tbl_type;
1046:
1047: l_index NUMBER;
1048:
1049: l_Inventory_item_id NUMBER;
1162:
1163: CLOSE csi_item_instance_csr;
1164:
1165: -- Validate w.r.t positional attributes.
1166: AHL_UTIL_UC_PKG.Validate_for_Position(l_mc_posn_tbl(j).relationship_id,
1167: l_Inventory_Item_id,
1168: l_Inventory_Org_id,
1169: l_quantity,
1170: l_inventory_revision,
1576:
1577: --Define the l_csi_transaction_rec
1578: l_csi_transaction_rec.source_transaction_date := sysdate;
1579:
1580: AHL_Util_UC_Pkg.GetCSI_Transaction_ID('UC_UPDATE',l_transaction_type_id,
1581: l_return_val);
1582: IF NOT(l_return_val) THEN
1583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1584: END IF;
1667: l_root_active_status FND_LOOKUP_VALUES.MEANING%TYPE;
1668: l_root_end_date AHL_UNIT_CONFIG_HEADERS.ACTIVE_END_DATE%TYPE;
1669: l_root_inst_end_date CSI_ITEM_INSTANCES.ACTIVE_END_DATE%TYPE;
1670: l_return_value VARCHAR2(100) := null;
1671: L_DEBUG_KEY CONSTANT VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.Get_UC_Status';
1672:
1673: BEGIN
1674:
1675: -- Perf Bug Fix for - 4902980.
1853: l_root_status FND_LOOKUP_VALUES.MEANING%TYPE;
1854: l_root_end_date AHL_UNIT_CONFIG_HEADERS.ACTIVE_END_DATE%TYPE;
1855: l_root_inst_end_date CSI_ITEM_INSTANCES.ACTIVE_END_DATE%TYPE;
1856: l_return_value VARCHAR2(100) := null;
1857: L_DEBUG_KEY CONSTANT VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.Get_UC_Status_code';
1858:
1859: BEGIN
1860:
1861: -- Perf Bug Fix for - 4902980.
2538: FUNCTION IS_UNIT_QUARANTINED(p_unit_header_id IN NUMBER,
2539: p_instance_id IN NUMBER) RETURN VARCHAR2 IS
2540: l_uc_header_id NUMBER;
2541: l_uc_status_code VARCHAR2(30);
2542: l_debug_key VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED';
2543:
2544: BEGIN
2545:
2546: -- If unit header id is not passed then derived using the instance id
2913: AND ((revision IS NULL) OR (revision = p_item_revision))
2914: AND interchange_type_code IN ('1-WAY INTERCHANGEABLE', '2-WAY INTERCHANGEABLE');
2915:
2916:
2917: L_DEBUG_KEY VARCHAR2(150) := 'ahl.plsql.AHL_UTIL_UC_PKG.Item_Matches_Instance_Pos';
2918:
2919: l_uc_header_id NUMBER;
2920: l_master_config_id NUMBER;
2921: l_node_ig_id NUMBER;
2989: 'At the end of the procedure. x_matches_flag = ' || x_matches_flag);
2990: END IF;
2991: END Item_Matches_Instance_Pos;
2992:
2993: END AHL_UTIL_UC_PKG;