[Home] [Help]
1: PACKAGE BODY OE_Holds_Pvt AS
2: /* $Header: OEXVHLDB.pls 120.21.12010000.12 2008/11/19 10:38:11 vbkapoor ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXVHLDB.pls 120.21.12010000.12 2008/11/19 10:38:11 vbkapoor ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Holds_Pvt';
7:
8:
9: Procedure Release_Hold_Source (
10: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Holds_Pvt';
7:
8:
9: Procedure Release_Hold_Source (
10: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
11: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
12: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
13: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
14: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7:
8:
9: Procedure Release_Hold_Source (
10: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
11: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
12: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
13: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
14: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
15: );
345: x_return_status Return status
346: */
347: PROCEDURE progress_order( p_hold_id IN NUMBER,
348: p_num_of_records IN NUMBER,
349: p_order_tbl OE_HOLDS_PVT.order_tbl_type,
350: x_return_status OUT NOCOPY VARCHAR2,
351: x_msg_count OUT NOCOPY NUMBER,
352: x_msg_data OUT NOCOPY VARCHAR2
353: )
771: ,p_activity_status VARCHAR2
772: ,p_additional_where_clause VARCHAR2
773: ,x_is_hold_applied OUT NOCOPY BOOLEAN)
774: IS
775: l_user_id NUMBER := OE_HOLDS_PVT.get_user_id;
776: l_parent_count NUMBER;
777: l_user_activity_name VARCHAR2(80);
778: l_sql_rowcount NUMBER;
779: l_sqlmt VARCHAR2(3000);
1036: p_activity_status VARCHAR2,
1037: p_additional_where_clause VARCHAR2,
1038: x_is_hold_applied OUT NOCOPY BOOLEAN)
1039: IS
1040: l_user_id NUMBER := OE_HOLDS_PVT.get_user_id;
1041: l_parent_count NUMBER;
1042: l_user_activity_name VARCHAR2(80);
1043: l_sql_rowcount NUMBER;
1044: l_sqlmt VARCHAR2(3000);
1313: -- PARAMETERS:
1314: -- p_hold_source_id : Hold Source Id of the hold
1315: -- p_header_id : Line Id if the hold is applied using action -> apply hold for a specific Hold
1316: ---------------------------------------------------------------------------------------------------
1317: Procedure PaymentType_Hold (p_hold_source_rec OE_HOLDS_PVT.Hold_source_Rec_Type
1318: ,p_org_id OE_ORDER_HEADERS_ALL.org_id%type
1319: ,p_item_type VARCHAR2
1320: ,p_activity_name VARCHAR2
1321: ,p_activity_status VARCHAR2
1530: /****************************
1531: | RELEASE_ORDERS
1532: ***************************/
1533: Procedure release_orders (
1534: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
1535: p_order_rec IN OE_HOLDS_PVT.order_rec_type,
1536: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
1537: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1538: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1531: | RELEASE_ORDERS
1532: ***************************/
1533: Procedure release_orders (
1534: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
1535: p_order_rec IN OE_HOLDS_PVT.order_rec_type,
1536: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
1537: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1538: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1539: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1532: ***************************/
1533: Procedure release_orders (
1534: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
1535: p_order_rec IN OE_HOLDS_PVT.order_rec_type,
1536: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
1537: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1538: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1539: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1540: )
1582: l_hold_entity_code OE_HOLD_SOURCES.HOLD_ENTITY_CODE%TYPE;
1583: l_order_hold_id OE_ORDER_HOLDS.ORDER_HOLD_ID%TYPE;
1584: l_hold_id OE_HOLD_DEFINITIONS.hold_id%type;
1585:
1586: l_hold_source_rec OE_HOLDS_PVT.hold_source_rec_type;
1587: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1588: BEGIN
1589: x_return_status := FND_API.G_RET_STS_SUCCESS;
1590: l_user_id := OE_HOLDS_PVT.get_user_id;
1586: l_hold_source_rec OE_HOLDS_PVT.hold_source_rec_type;
1587: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1588: BEGIN
1589: x_return_status := FND_API.G_RET_STS_SUCCESS;
1590: l_user_id := OE_HOLDS_PVT.get_user_id;
1591: -- XX Also check for release reason code
1592: OPEN hold_source;
1593: LOOP
1594:
1605: l_hold_source_rec.hold_source_id := l_hold_source_id;
1606: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1607: l_hold_source_rec.HOLD_ENTITY_ID := p_order_rec.header_id;
1608: l_hold_source_rec.HOLD_ID := l_hold_id;
1609: oe_holds_pvt.Release_Hold_Source (
1610: p_hold_source_rec => l_hold_source_rec,
1611: p_hold_release_rec => p_hold_release_rec,
1612: x_return_status => x_return_status,
1613: x_msg_count => x_msg_count,
1701: -- hold and release the hold source also. NO
1702:
1703: -- GENESIS --
1704: IF l_debug_level > 0 THEN
1705: oe_debug_pub.add( 'OE_HOLDS_PVT - RELEASE ORDERS- BEFORE GENESIS CALL');
1706: END IF;
1707:
1708: OPEN check_hold_type_cur(l_order_hold_id);
1709: FETCH check_hold_type_cur INTO l_chk_hold;
1710: CLOSE check_hold_type_cur;
1711:
1712: IF NVL(l_chk_hold, 'N') = 'Y' THEN
1713: IF l_debug_level > 0 THEN
1714: oe_debug_pub.add( 'OE_HOLDS_PVT - RELEASE ORDERS- BEFORE SYNC_HEADER_LINE');
1715: END IF;
1716: -- XXXX Do we need to generate req_id here
1717: OE_SYNC_ORDER_PVT.SYNC_HEADER_LINE( p_header_rec => NULL
1718: ,p_line_rec => NULL
1729:
1730:
1731:
1732: Procedure Validate_Hold_Source (
1733: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type
1734: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1735: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1736: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1737: )
2297:
2298: ----------------------
2299: ---Overload procedure for bug5548778
2300: Procedure Create_Hold_Source (
2301: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type,
2302: p_org_id IN NUMBER DEFAULT MO_GLOBAL.get_current_org_id, --ER#7479609
2303: x_hold_source_id OUT NOCOPY /* file.sql.39 change */ OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE,
2304: x_hold_exists OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2305: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2310: l_user_id NUMBER;
2311: l_org_id NUMBER;
2312: l_count NUMBER;
2313: --l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
2314: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
2315: BEGIN
2316: x_return_status := FND_API.G_RET_STS_SUCCESS;
2317: x_hold_exists := 'N';
2318: l_user_id := OE_HOLDS_PVT.get_user_id;
2314: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
2315: BEGIN
2316: x_return_status := FND_API.G_RET_STS_SUCCESS;
2317: x_hold_exists := 'N';
2318: l_user_id := OE_HOLDS_PVT.get_user_id;
2319: l_org_id := MO_GLOBAL.get_current_org_id;
2320: IF l_org_id IS NULL THEN
2321: -- org_id is null, raise an error.
2322: oe_debug_pub.add('Org_Id is NULL',1);
2540: END Create_Hold_Source;
2541:
2542: ------
2543: Procedure Create_Hold_Source (
2544: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type,
2545: p_org_id IN NUMBER DEFAULT MO_GLOBAL.get_current_org_id, --ER#7479609
2546: x_hold_source_id OUT NOCOPY /* file.sql.39 change */ OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE,
2547: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2548: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
2552: l_user_id NUMBER;
2553: l_org_id NUMBER;
2554: l_count NUMBER;
2555: --l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
2556: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
2557: l_hold_comment OE_HOLD_SOURCES_ALL.HOLD_COMMENT%TYPE; --ER#7479609
2558: BEGIN
2559: x_return_status := FND_API.G_RET_STS_SUCCESS;
2560: l_user_id := OE_HOLDS_PVT.get_user_id;
2556: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
2557: l_hold_comment OE_HOLD_SOURCES_ALL.HOLD_COMMENT%TYPE; --ER#7479609
2558: BEGIN
2559: x_return_status := FND_API.G_RET_STS_SUCCESS;
2560: l_user_id := OE_HOLDS_PVT.get_user_id;
2561: l_org_id := MO_GLOBAL.get_current_org_id;
2562: IF l_org_id IS NULL THEN
2563: -- org_id is null, raise an error.
2564: oe_debug_pub.add('Org_Id is NULL',1);
2816:
2817:
2818: ---------------------
2819: Procedure Create_Order_Holds(
2820: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type,
2821: p_org_id IN NUMBER DEFAULT MO_GLOBAL.get_current_org_id, --ER#7479609
2822: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2823: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
2824: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
2886: -- GENESIS --
2887: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2888: BEGIN
2889: x_return_status := FND_API.G_RET_STS_SUCCESS;
2890: l_user_id := OE_HOLDS_PVT.get_user_id;
2891: l_org_id := MO_GLOBAL.get_current_org_id;
2892: IF l_org_id IS NULL THEN
2893: -- org_id is null, raise an error.
2894: oe_debug_pub.add('Org_Id is NULL',1);
2904: from oe_hold_definitions
2905: where hold_id = p_hold_source_rec.hold_id;
2906: Exception
2907: When NO_DATA_FOUND Then
2908: NULL; -- OE_Holds_Pvt.Validate has not yet been called.
2909: End;
2910:
2911: OE_DEBUG_PUB.Add ('Calling Overloaded Create_Order_Holds Based on Workflow from original Create_Order_Holds',1);
2912: Create_Order_Holds (
4637: -- GENESIS --
4638: IF p_hold_source_rec.line_id IS NOT NULL THEN
4639:
4640: IF l_debug_level > 0 THEN
4641: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - p_hold_source_rec.line_id IS NOT NULL');
4642: END IF;
4643:
4644: OPEN check_line_hold_type_cur(p_hold_source_rec.line_id);
4645: FETCH check_line_hold_type_cur INTO l_check_hold;
4644: OPEN check_line_hold_type_cur(p_hold_source_rec.line_id);
4645: FETCH check_line_hold_type_cur INTO l_check_hold;
4646: CLOSE check_line_hold_type_cur;
4647: IF l_debug_level > 0 THEN
4648: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - l_check_hold' || l_check_hold);
4649: END IF;
4650:
4651: ELSIF p_hold_source_rec.line_id IS NULL AND
4652: p_hold_source_rec.header_id IS NOT NULL THEN
4651: ELSIF p_hold_source_rec.line_id IS NULL AND
4652: p_hold_source_rec.header_id IS NOT NULL THEN
4653:
4654: IF l_debug_level > 0 THEN
4655: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - p_hold_source_rec.header_id IS NOT NULL');
4656: END IF;
4657: OPEN check_hdr_hold_type_cur(p_hold_source_rec.header_id);
4658: FETCH check_hdr_hold_type_cur INTO l_check_hold;
4659: CLOSE check_hdr_hold_type_cur;
4657: OPEN check_hdr_hold_type_cur(p_hold_source_rec.header_id);
4658: FETCH check_hdr_hold_type_cur INTO l_check_hold;
4659: CLOSE check_hdr_hold_type_cur;
4660: IF l_debug_level > 0 THEN
4661: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - l_check_hold' || l_check_hold);
4662: END IF;
4663:
4664: ELSIF p_hold_source_rec.line_id IS NULL AND
4665: p_hold_source_rec.header_id IS NULL AND
4665: p_hold_source_rec.header_id IS NULL AND
4666: p_hold_source_rec.hold_source_id IS NOT NULL THEN
4667:
4668: IF l_debug_level > 0 THEN
4669: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - p_hold_source_rec.hold_source_id IS NOT NULL');
4670: END IF;
4671: OPEN check_src_hold_type_cur(p_hold_source_rec.hold_source_id);
4672: FETCH check_src_hold_type_cur INTO l_check_hold;
4673: CLOSE check_src_hold_type_cur;
4672: FETCH check_src_hold_type_cur INTO l_check_hold;
4673: CLOSE check_src_hold_type_cur;
4674:
4675: IF l_debug_level > 0 THEN
4676: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - l_check_hold :' || l_check_hold);
4677: END IF;
4678:
4679: END IF;
4680:
4678:
4679: END IF;
4680:
4681: IF l_debug_level > 0 THEN
4682: oe_debug_pub.add( 'OE_HOLDS_PVT - CREATE ORDER HOLDS - BEFORE SYNC_HEADER_LINE');
4683: END IF;
4684:
4685: IF NVL(l_check_hold, 'N') = 'Y' THEN
4686:
4684:
4685: IF NVL(l_check_hold, 'N') = 'Y' THEN
4686:
4687: IF l_debug_level > 0 THEN
4688: oe_debug_pub.add( 'OE_HOLDS_PVT - CREATE ORDER HOLDS - l_check_hold: ' || l_check_hold);
4689: END IF;
4690:
4691: IF p_hold_source_rec.hold_entity_code = 'O' THEN
4692: IF l_debug_level > 0 THEN
4775: END Create_Order_Holds;
4776:
4777:
4778: Procedure Release_Order_holds (
4779: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
4780: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4781: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
4782: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
4783: IS
4800: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4801:
4802: BEGIN
4803: x_return_status := FND_API.G_RET_STS_SUCCESS;
4804: l_user_id := OE_HOLDS_PVT.get_user_id;
4805: -- Flag all orders and order line holds for this hold source
4806: -- as released
4807: UPDATE oe_order_holds
4808: SET hold_release_id = p_hold_release_rec.hold_release_id,
4818: -- IF l_entity_code = 'O' THEN
4819: -- END IF;
4820: -- GENESIS --
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'OE_HOLDS_PVT - RELEASE ORDER HOLDS - BEFORE GENESIS CALL');
4823: END IF;
4824: OPEN check_hold_typ_cur(p_hold_release_rec.hold_source_id);
4825: FETCH check_hold_typ_cur INTO l_chk_hld;
4826: CLOSE check_hold_typ_cur;
4826: CLOSE check_hold_typ_cur;
4827:
4828: IF NVL(l_chk_hld, 'N') = 'Y' THEN
4829: IF l_debug_level > 0 THEN
4830: oe_debug_pub.add( 'OE_HOLDS_PVT - RELEASE ORDER HOLDS - BEFORE SYNC_HEADER_LINE');
4831: oe_debug_pub.add( 'OE_HOLDS_PVT - hold_source _id '|| p_hold_release_rec.hold_source_id);
4832: oe_debug_pub.add( 'OE_HOLDS_PVT - hold_release_id' ||p_hold_release_rec.hold_release_id);
4833: END IF;
4834: -- XXXX Do we need to generate req_id here
4827:
4828: IF NVL(l_chk_hld, 'N') = 'Y' THEN
4829: IF l_debug_level > 0 THEN
4830: oe_debug_pub.add( 'OE_HOLDS_PVT - RELEASE ORDER HOLDS - BEFORE SYNC_HEADER_LINE');
4831: oe_debug_pub.add( 'OE_HOLDS_PVT - hold_source _id '|| p_hold_release_rec.hold_source_id);
4832: oe_debug_pub.add( 'OE_HOLDS_PVT - hold_release_id' ||p_hold_release_rec.hold_release_id);
4833: END IF;
4834: -- XXXX Do we need to generate req_id here
4835: OE_SYNC_ORDER_PVT.SYNC_HEADER_LINE(p_header_rec => NULL
4828: IF NVL(l_chk_hld, 'N') = 'Y' THEN
4829: IF l_debug_level > 0 THEN
4830: oe_debug_pub.add( 'OE_HOLDS_PVT - RELEASE ORDER HOLDS - BEFORE SYNC_HEADER_LINE');
4831: oe_debug_pub.add( 'OE_HOLDS_PVT - hold_source _id '|| p_hold_release_rec.hold_source_id);
4832: oe_debug_pub.add( 'OE_HOLDS_PVT - hold_release_id' ||p_hold_release_rec.hold_release_id);
4833: END IF;
4834: -- XXXX Do we need to generate req_id here
4835: OE_SYNC_ORDER_PVT.SYNC_HEADER_LINE(p_header_rec => NULL
4836: ,p_line_rec => NULL
4843:
4844:
4845:
4846: PROCEDURE Create_Release_Source (
4847: p_hold_release_rec IN OE_Holds_Pvt.Hold_Release_Rec_type,
4848: x_hold_release_id OUT NOCOPY /* file.sql.39 change */ oe_hold_releases.HOLD_RELEASE_ID%type,
4849: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4850: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
4851: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
4852: )
4853: IS
4854: l_dummy VARCHAR2(30);
4855: l_user_id NUMBER;
4856: l_hold_release_rec OE_Holds_Pvt.Hold_Release_Rec_type;
4857: BEGIN
4858:
4859: -- Fix For Bug 1903900
4860: SAVEPOINT insert_hold_release;
4859: -- Fix For Bug 1903900
4860: SAVEPOINT insert_hold_release;
4861: x_return_status := FND_API.G_RET_STS_SUCCESS;
4862:
4863: l_user_id := OE_HOLDS_PVT.get_user_id;
4864:
4865: -- Validate Reason Code
4866: BEGIN
4867:
4985:
4986: END Create_Release_Source;
4987:
4988: Procedure Release_Hold_Source (
4989: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
4990: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
4991: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4992: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
4993: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
4986: END Create_Release_Source;
4987:
4988: Procedure Release_Hold_Source (
4989: p_hold_source_rec IN OE_HOLDS_PVT.Hold_source_Rec_Type,
4990: p_hold_release_rec IN OE_HOLDS_PVT.hold_release_rec_type,
4991: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4992: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
4993: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
4994: )
4992: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
4993: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
4994: )
4995: IS
4996: l_hold_release_rec OE_HOLDS_PVT.hold_release_rec_type;
4997: l_hold_release_id oe_hold_releases.HOLD_RELEASE_ID%type;
4998: --
4999: CURSOR hold_source IS
5000: SELECT HS.HOLD_SOURCE_ID
5083: oe_debug_pub.add('Using Hold Source ID:' ||
5084: to_char(l_hold_release_rec.hold_source_id) ,1);
5085: END IF;
5086:
5087: OE_HOLDS_PVT.Create_Release_Source(p_hold_release_rec => l_hold_release_rec,
5088: x_hold_release_id => l_hold_release_id,
5089: x_return_status => x_return_status,
5090: x_msg_count => x_msg_count,
5091: x_msg_data => x_msg_data);
5100: oe_debug_pub.add('Calling Release_Order_holds using l_hold_release_id' ||
5101: to_char(l_hold_release_id) ,1);
5102: l_hold_release_rec.hold_release_id := l_hold_release_id;
5103:
5104: OE_HOLDS_PVT.Release_Order_holds(
5105: p_hold_release_rec => l_hold_release_rec,
5106: x_return_status => x_return_status,
5107: x_msg_count => x_msg_count,
5108: x_msg_data => x_msg_data);
5171: END Validate_Order;
5172:
5173:
5174: Procedure Validate (
5175: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_type,
5176: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5177: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5178: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5179: IS
5209: -- not used by an existing hold or hold source, then deletes the
5210: -- release record also from OE_HOLD_RELEASES;
5211: ----------------------------------------------------------------------------
5212: PROCEDURE Delete_Holds (
5213: p_order_rec IN OE_HOLDS_PVT.order_rec_Type,
5214: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5215: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5216: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
5217: )
5393:
5394:
5395: --------------------
5396: Procedure Apply_Holds (
5397: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
5398: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE,
5399: p_hold_until_date IN OE_HOLD_SOURCES.HOLD_UNTIL_DATE%TYPE,
5400: p_hold_comment IN OE_HOLD_SOURCES.HOLD_COMMENT%TYPE,
5401: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5402: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5403: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
5404: IS
5405: j NUMBER;
5406: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
5407: l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
5408: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
5409: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
5410: l_hold_exists VARCHAR2(1) :='N'; --bug 5548778
5593: END Apply_Holds;
5594:
5595:
5596: Procedure Apply_Holds(
5597: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type,
5598: p_hold_existing_flg IN VARCHAR2,
5599: p_hold_future_flg IN VARCHAR2,
5600: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5601: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5603: IS
5604: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
5605: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
5606: l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
5607: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
5608: l_hold_exists VARCHAR2(1) :='N'; --bug 5548778
5609: /* Commented OLD Processing and added the lines below for WF_HOLS ER (bug 6449458)*/
5610: l_hold_msg_applied BOOLEAN DEFAULT NULL;
5611: l_wf_item_type OE_HOLD_DEFINITIONS.ITEM_TYPE%TYPE := NULL;
5620: from oe_hold_definitions
5621: where hold_id = p_hold_source_rec.hold_id;
5622: Exception
5623: When NO_DATA_FOUND Then
5624: NULL; -- OE_Holds_Pvt.Validate has not yet been called.
5625: End;
5626:
5627: Apply_Holds(
5628: p_hold_source_rec => p_hold_source_rec,
5634: x_msg_count => x_msg_count,
5635: x_msg_data => x_msg_data,
5636: x_is_hold_applied => l_hold_msg_applied);
5637: /*BEGIN
5638: OE_DEBUG_PUB.Add('In OE_Holds_pvt.Apply Holds, Creating Hold Source',1);
5639:
5640: x_return_status := FND_API.G_RET_STS_SUCCESS;
5641: l_hold_source_rec := p_hold_source_rec;
5642: Validate (p_hold_source_rec => p_hold_source_rec,
5690:
5691:
5692: ---------------------
5693: Procedure Release_Holds (
5694: p_hold_source_rec IN OE_HOLDS_PVT.hold_source_rec_type,
5695: p_hold_release_rec IN OE_HOLDS_PVT.Hold_Release_Rec_Type,
5696: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5697: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5698: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5691:
5692: ---------------------
5693: Procedure Release_Holds (
5694: p_hold_source_rec IN OE_HOLDS_PVT.hold_source_rec_type,
5695: p_hold_release_rec IN OE_HOLDS_PVT.Hold_Release_Rec_Type,
5696: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5697: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5698: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5699: IS
5696: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5697: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5698: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5699: IS
5700: l_order_rec OE_HOLDS_PVT.order_rec_type;
5701: --bug 5051532
5702: l_hold_source_rec OE_HOLDS_PVT.hold_source_rec_type;
5703:
5704: BEGIN
5698: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5699: IS
5700: l_order_rec OE_HOLDS_PVT.order_rec_type;
5701: --bug 5051532
5702: l_hold_source_rec OE_HOLDS_PVT.hold_source_rec_type;
5703:
5704: BEGIN
5705: x_return_status := FND_API.G_RET_STS_SUCCESS;
5706: --bug 5051532
5748: p_hold_source_rec => l_hold_source_rec,
5749: x_return_status => x_return_status,
5750: x_msg_count => x_msg_count,
5751: x_msg_data => x_msg_data );
5752: oe_debug_pub.add('After oe_holds_pvt.release_orders with x_return_status' || x_return_status, 1);
5753: --bug 3977747 ends--
5754: else
5755:
5756: if (p_hold_source_rec.hold_source_id is null )then
5775:
5776:
5777: ---------------------
5778: Procedure Release_Holds (
5779: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
5780: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE,
5781: p_release_reason_code IN OE_HOLD_RELEASES.RELEASE_REASON_CODE%TYPE,
5782: p_release_comment IN OE_HOLD_RELEASES.RELEASE_COMMENT%TYPE,
5783: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5784: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5785: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5786: IS
5787: j NUMBER;
5788: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
5789: l_order_rec OE_HOLDS_PVT.order_rec_type;
5790: l_hold_release_rec OE_HOLDS_PVT.hold_release_rec_type;
5791: BEGIN
5792: x_return_status := FND_API.G_RET_STS_SUCCESS;
5785: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5786: IS
5787: j NUMBER;
5788: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
5789: l_order_rec OE_HOLDS_PVT.order_rec_type;
5790: l_hold_release_rec OE_HOLDS_PVT.hold_release_rec_type;
5791: BEGIN
5792: x_return_status := FND_API.G_RET_STS_SUCCESS;
5793: oe_debug_pub.add('In Release Holds..Orders',1);
5786: IS
5787: j NUMBER;
5788: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
5789: l_order_rec OE_HOLDS_PVT.order_rec_type;
5790: l_hold_release_rec OE_HOLDS_PVT.hold_release_rec_type;
5791: BEGIN
5792: x_return_status := FND_API.G_RET_STS_SUCCESS;
5793: oe_debug_pub.add('In Release Holds..Orders',1);
5794: for j in 1..p_order_tbl.COUNT loop
5831: END IF;
5832:
5833: oe_debug_pub.add('l_order_rec.header_id'||l_order_rec.header_id);
5834: oe_debug_pub.add('lhldrlsrec.rel_reas_code' || l_hold_release_rec.release_reason_code);
5835: oe_holds_pvt.release_orders (
5836: p_hold_release_rec => l_hold_release_rec,
5837: p_order_rec => l_order_rec,
5838: p_hold_source_rec => l_hold_source_rec,
5839: x_return_status => x_return_status,
5838: p_hold_source_rec => l_hold_source_rec,
5839: x_return_status => x_return_status,
5840: x_msg_count => x_msg_count,
5841: x_msg_data => x_msg_data );
5842: oe_debug_pub.add('After oe_holds_pvt.release_orders:' ||
5843: x_return_status);
5844: -- If the entity code is order, then release hold source also, if no
5845: -- other order hold records exist for this hold source. This would
5846: -- be the case if selected lines of an order were put on hold.
5941: l_line_rec OE_ORDER_PUB.line_rec_type;
5942: l_api_name CONSTANT VARCHAR2(30) := 'process_apply_holds_lines';
5943: l_line_id NUMBER;
5944: l_return_status VARCHAR2(30);
5945: l_order_tbl OE_HOLDS_PVT.order_tbl_type;
5946: l_error_count NUMBER :=0;
5947: l_ordered_quantity NUMBER ;
5948: j INTEGER;
5949: initial INTEGER;
5949: initial INTEGER;
5950: nextpos INTEGER;
5951:
5952: l_prev_org_id number;
5953: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
5954: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
5955: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
5956: l_msg_token VARCHAR2(100);
5957: /*Added the following variables for WF_HOLDS ER (bug 6449458)*/
5964:
5965: BEGIN
5966: oe_msg_pub.initialize;
5967:
5968: OE_DEBUG_PUB.Add('Entering OE_Holds_PVT.process_apply_holds_lines',1);
5969:
5970: IF check_system_holds(
5971: p_hold_id => p_hold_id,
5972: x_return_status => x_return_status,
6047: from oe_hold_definitions
6048: where hold_id = l_hold_source_rec.hold_id;
6049: END IF;
6050:
6051: OE_DEBUG_PUB.Add('Before calling oe_holds_pvt.apply_holds');
6052: /*Calling overloaded procedure apply_holds, modified for WF_HOLDS ER (bug 6449458)*/
6053: /*oe_holds_pvt.apply_Holds(
6054: p_hold_source_rec => l_hold_source_rec
6055: ,p_hold_existing_flg => 'Y'
6049: END IF;
6050:
6051: OE_DEBUG_PUB.Add('Before calling oe_holds_pvt.apply_holds');
6052: /*Calling overloaded procedure apply_holds, modified for WF_HOLDS ER (bug 6449458)*/
6053: /*oe_holds_pvt.apply_Holds(
6054: p_hold_source_rec => l_hold_source_rec
6055: ,p_hold_existing_flg => 'Y'
6056: ,p_hold_future_flg => 'Y'
6057: ,x_return_status => x_return_status
6056: ,p_hold_future_flg => 'Y'
6057: ,x_return_status => x_return_status
6058: ,x_msg_count => x_msg_count
6059: ,x_msg_data => x_msg_data);*/
6060: oe_holds_pvt.apply_Holds(
6061: p_hold_source_rec => l_hold_source_rec
6062: ,p_hold_existing_flg => 'Y'
6063: ,p_hold_future_flg => 'Y'
6064: ,p_org_id =>p_sel_rec_tbl(j).org_id --ER#7479609
6079: OE_DEBUG_PUB.Add('x_return_status:' || x_return_status,2);
6080: OE_DEBUG_PUB.Add('x_msg_count:' || to_char(x_msg_count),2);
6081: OE_DEBUG_PUB.Add('x_msg_data:' || x_msg_data,2);
6082:
6083: /*OE_DEBUG_PUB.Add('Before calling OE_Holds_PVT.Apply_Holds');
6084: oe_holds_pvt.apply_Holds(
6085: p_hold_source_rec => l_hold_source_rec
6086: ,p_hold_existing_flg => 'Y'
6087: ,p_hold_future_flg => 'Y'
6080: OE_DEBUG_PUB.Add('x_msg_count:' || to_char(x_msg_count),2);
6081: OE_DEBUG_PUB.Add('x_msg_data:' || x_msg_data,2);
6082:
6083: /*OE_DEBUG_PUB.Add('Before calling OE_Holds_PVT.Apply_Holds');
6084: oe_holds_pvt.apply_Holds(
6085: p_hold_source_rec => l_hold_source_rec
6086: ,p_hold_existing_flg => 'Y'
6087: ,p_hold_future_flg => 'Y'
6088: ,x_return_status => x_return_status
6139: ( p_count => x_msg_count
6140: , p_data => x_msg_data
6141: );
6142:
6143: OE_DEBUG_PUB.Add('Exiting OE_Holds_PVT.process_apply_holds_lines',1);
6144:
6145: EXCEPTION /* Procedure exception handler */
6146:
6147: WHEN FND_API.G_EXC_ERROR THEN
6194: --l_old_header_rec OE_ORDER_PUB.Header_Rec_Type;
6195: l_api_name CONSTANT VARCHAR2(30) := 'process_apply_holds_orders';
6196: l_header_id NUMBER;
6197: l_return_status VARCHAR2(30);
6198: l_order_tbl OE_HOLDS_PVT.order_tbl_type;
6199: l_error_count NUMBER :=0;
6200: j INTEGER;
6201:
6202: L_prev_org_id number;
6199: l_error_count NUMBER :=0;
6200: j INTEGER;
6201:
6202: L_prev_org_id number;
6203: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
6204: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
6205: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
6206: l_msg_token VARCHAR2(100);
6207: /*Added the following variables for WF_HOLDS ER (bug 6449458)*/
6213:
6214: BEGIN
6215: oe_msg_pub.initialize;
6216:
6217: OE_DEBUG_PUB.Add('Entering OE_Holds_PVT.process_apply_holds_orders',1);
6218:
6219: IF check_system_holds( p_hold_id => p_hold_id
6220: , x_return_status => x_return_status
6221: , x_msg_count => x_msg_count
6290: from oe_hold_definitions
6291: where hold_id = l_hold_source_rec.hold_id;
6292: END IF;
6293:
6294: OE_DEBUG_PUB.Add('Before calling oe_holds_pvt.apply_holds');
6295: /*oe_holds_pvt.apply_Holds(
6296: p_hold_source_rec => l_hold_source_rec
6297: ,p_hold_existing_flg => 'Y'
6298: ,p_hold_future_flg => 'Y'
6291: where hold_id = l_hold_source_rec.hold_id;
6292: END IF;
6293:
6294: OE_DEBUG_PUB.Add('Before calling oe_holds_pvt.apply_holds');
6295: /*oe_holds_pvt.apply_Holds(
6296: p_hold_source_rec => l_hold_source_rec
6297: ,p_hold_existing_flg => 'Y'
6298: ,p_hold_future_flg => 'Y'
6299: ,x_return_status => x_return_status
6299: ,x_return_status => x_return_status
6300: ,x_msg_count => x_msg_count
6301: ,x_msg_data => x_msg_data);*/
6302:
6303: oe_holds_pvt.apply_Holds(
6304: p_hold_source_rec => l_hold_source_rec
6305: ,p_hold_existing_flg => 'Y'
6306: ,p_hold_future_flg => 'Y'
6307: ,p_org_id =>p_sel_rec_tbl(j).org_id --ER#7479609
6372: ( p_count => x_msg_count
6373: , p_data => x_msg_data
6374: );
6375:
6376: OE_DEBUG_PUB.Add('Exiting OE_Holds_PVT.process_apply_holds_orders',1);
6377:
6378: EXCEPTION /* Procedure exception handler */
6379:
6380: WHEN FND_API.G_EXC_ERROR THEN
6434: l_line_rec OE_ORDER_PUB.line_rec_type;
6435: l_api_name CONSTANT VARCHAR2(30) := 'process_release_holds_lines';
6436: l_line_id NUMBER;
6437: l_return_status VARCHAR2(30);
6438: l_order_tbl OE_HOLDS_PVT.order_tbl_type;
6439: l_error_count NUMBER :=0;
6440: l_ordered_quantity NUMBER ;
6441: j INTEGER;
6442: initial INTEGER;
6442: initial INTEGER;
6443: nextpos INTEGER;
6444:
6445: l_prev_org_id number;
6446: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
6447: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
6448: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
6449: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
6450: l_msg_token VARCHAR2(100);
6443: nextpos INTEGER;
6444:
6445: l_prev_org_id number;
6446: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
6447: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
6448: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
6449: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
6450: l_msg_token VARCHAR2(100);
6451: BEGIN
6450: l_msg_token VARCHAR2(100);
6451: BEGIN
6452: oe_msg_pub.initialize;
6453:
6454: OE_DEBUG_PUB.Add('Entering OE_Holds_PVT.process_release_holds_lines',1);
6455:
6456: IF check_system_holds( p_hold_id => p_hold_id
6457: ,x_return_status => x_return_status
6458: ,x_msg_count => x_msg_count
6521: l_order_tbl(1).header_id := l_line_rec.header_id;
6522: l_order_tbl(1).line_id := l_line_rec.line_id;
6523:
6524:
6525: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds:HeaderID'
6526: || l_order_tbl(1).header_id || ', LineID:' || l_order_tbl(1).line_id);
6527: oe_holds_pvt.release_holds(
6528: p_order_tbl => l_order_tbl,
6529: p_hold_id => p_hold_id,
6523:
6524:
6525: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds:HeaderID'
6526: || l_order_tbl(1).header_id || ', LineID:' || l_order_tbl(1).line_id);
6527: oe_holds_pvt.release_holds(
6528: p_order_tbl => l_order_tbl,
6529: p_hold_id => p_hold_id,
6530: p_release_reason_code => p_release_reason_code,
6531: p_release_comment => p_release_comment,
6533: x_msg_count => x_msg_count,
6534: x_msg_data => x_msg_data
6535: );
6536:
6537: OE_DEBUG_PUB.Add('After oe_holds_pvt.release_holds:' || x_return_status,3);
6538:
6539:
6540: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6541: oe_debug_pub.add('process_release_holds_lines unexpected failure',3);
6553: ( p_count => x_msg_count
6554: , p_data => x_msg_data
6555: );
6556:
6557: OE_DEBUG_PUB.Add('Exiting OE_Holds_PVT.process_release_holds_lines',1);
6558:
6559: EXCEPTION /* Procedure exception handler */
6560:
6561: WHEN FND_API.G_EXC_ERROR THEN
6608: l_line_rec OE_ORDER_PUB.line_rec_type;
6609: l_api_name CONSTANT VARCHAR2(30) := 'process_release_holds_orders';
6610: l_header_id NUMBER;
6611: l_return_status VARCHAR2(30);
6612: l_order_tbl OE_HOLDS_PVT.order_tbl_type;
6613: l_error_count NUMBER :=0;
6614: j INTEGER;
6615: initial INTEGER;
6616: nextpos INTEGER;
6614: j INTEGER;
6615: initial INTEGER;
6616: nextpos INTEGER;
6617: L_prev_org_id number; -- MOAC
6618: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
6619: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
6620: --l_record_ids varchar2(2000) := p_record_ids || ',';
6621: --l_num_of_records number;
6622:
6615: initial INTEGER;
6616: nextpos INTEGER;
6617: L_prev_org_id number; -- MOAC
6618: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
6619: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
6620: --l_record_ids varchar2(2000) := p_record_ids || ',';
6621: --l_num_of_records number;
6622:
6623: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
6625: l_msg_token VARCHAR2(100);
6626: BEGIN
6627: oe_msg_pub.initialize;
6628:
6629: OE_DEBUG_PUB.Add('Entering OE_Holds_PVT.process_release_holds_orders',1);
6630:
6631: IF check_system_holds( p_hold_id => p_hold_id
6632: ,x_return_status => x_return_status
6633: ,x_msg_count => x_msg_count
6689: l_prev_org_id := p_sel_rec_tbl(j).org_id;
6690: END IF;
6691: l_order_tbl(1).header_id := p_sel_rec_tbl(j).Id1;
6692:
6693: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds 4 HeaderID' || l_order_tbl(1).header_id);
6694: oe_holds_pvt.release_holds(
6695: p_order_tbl => l_order_tbl,
6696: p_hold_id => p_hold_id,
6697: p_release_reason_code => p_release_reason_code,
6690: END IF;
6691: l_order_tbl(1).header_id := p_sel_rec_tbl(j).Id1;
6692:
6693: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds 4 HeaderID' || l_order_tbl(1).header_id);
6694: oe_holds_pvt.release_holds(
6695: p_order_tbl => l_order_tbl,
6696: p_hold_id => p_hold_id,
6697: p_release_reason_code => p_release_reason_code,
6698: p_release_comment => p_release_comment,
6722: ( p_count => x_msg_count
6723: , p_data => x_msg_data
6724: );
6725:
6726: OE_DEBUG_PUB.Add('Exiting OE_Holds_PVT.process_release_holds_orders',1);
6727:
6728: EXCEPTION /* Procedure exception handler */
6729:
6730: WHEN FND_API.G_EXC_ERROR THEN
6767: /* This procedure gets called when Create Holds Source is selected
6768: from the special menu.
6769: */
6770: procedure process_create_source(
6771: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type
6772: ,p_hold_existing_flg IN varchar2
6773: ,p_hold_future_flg IN varchar2
6774: ,p_org_id IN NUMBER DEFAULT MO_GLOBAL.get_current_org_id --ER#7479609
6775: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
6776: ,x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
6777: ,x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
6778: )
6779: IS
6780: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
6781: l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
6782: l_hold_release_rec OE_HOLDS_PVT.hold_release_rec_type;
6783: l_hold_release_id oe_hold_releases.HOLD_RELEASE_ID%type;
6784: l_api_name CONSTANT VARCHAR2(30) := 'process_create_holds';
6778: )
6779: IS
6780: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
6781: l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
6782: l_hold_release_rec OE_HOLDS_PVT.hold_release_rec_type;
6783: l_hold_release_id oe_hold_releases.HOLD_RELEASE_ID%type;
6784: l_api_name CONSTANT VARCHAR2(30) := 'process_create_holds';
6785: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
6786: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
6849: from oe_hold_definitions
6850: where hold_id = l_hold_source_rec.hold_id;
6851:
6852: if (p_hold_existing_flg = 'Y' AND p_hold_future_flg = 'Y') then
6853: oe_debug_pub.add('Calling oe_holds_pvt.apply_Holds',3);
6854: /*oe_holds_pvt.apply_Holds(
6855: p_hold_source_rec => l_hold_source_rec
6856: ,x_return_status => x_return_status
6857: ,x_msg_count => x_msg_count
6850: where hold_id = l_hold_source_rec.hold_id;
6851:
6852: if (p_hold_existing_flg = 'Y' AND p_hold_future_flg = 'Y') then
6853: oe_debug_pub.add('Calling oe_holds_pvt.apply_Holds',3);
6854: /*oe_holds_pvt.apply_Holds(
6855: p_hold_source_rec => l_hold_source_rec
6856: ,x_return_status => x_return_status
6857: ,x_msg_count => x_msg_count
6858: ,x_msg_data => x_msg_data
6857: ,x_msg_count => x_msg_count
6858: ,x_msg_data => x_msg_data
6859: );*/
6860: /*Calling Overloaded Apply_hold Procedure for WF_HOLDS ER (bug 6449458)*/
6861: oe_holds_pvt.apply_Holds(
6862: p_hold_source_rec => l_hold_source_rec
6863: ,p_hold_existing_flg => 'Y'
6864: ,p_hold_future_flg => 'Y'
6865: ,p_org_id => p_org_id --ER#7479609
6916: l_hold_release_rec.hold_source_id := l_hold_source_id;
6917: l_hold_release_rec.release_reason_code := 'EXPIRE';
6918: l_hold_release_rec.release_comment := 'Released automatically by System';
6919: oe_debug_pub.add('Calling Create_Release_Source',3);
6920: OE_HOLDS_PVT.Create_Release_Source(p_hold_release_rec => l_hold_release_rec,
6921: x_hold_release_id => l_hold_release_id,
6922: x_return_status => x_return_status,
6923: x_msg_count => x_msg_count,
6924: x_msg_data => x_msg_data);
6996: from the Release Source window.
6997: */
6998: procedure process_release_source(
6999: p_hold_source_id IN OE_Hold_Sources_ALL.HOLD_SOURCE_ID%TYPE
7000: ,p_hold_release_rec IN OE_HOLDS_PVT.Hold_Release_Rec_Type
7001: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7002: ,x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
7003: ,x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7004: )
7002: ,x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
7003: ,x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7004: )
7005: IS
7006: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7007: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7008: l_api_name CONSTANT VARCHAR2(30) := 'process_release_source';
7009: l_hold_id OE_HOLD_DEFINITIONS.HOLD_ID%TYPE;
7010: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
7003: ,x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7004: )
7005: IS
7006: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7007: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7008: l_api_name CONSTANT VARCHAR2(30) := 'process_release_source';
7009: l_hold_id OE_HOLD_DEFINITIONS.HOLD_ID%TYPE;
7010: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
7011: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
7091: l_hold_release_rec := p_hold_release_rec;
7092: --l_hold_release_rec.RELEASE_REASON_CODE := p_release_reason_code;
7093: --l_hold_release_rec.RELEASE_COMMENT := p_release_comment;
7094:
7095: oe_holds_pvt.Release_Holds(
7096: p_hold_source_rec => l_hold_source_rec
7097: ,p_hold_release_rec => l_hold_release_rec
7098: ,x_return_status => x_return_status
7099: ,x_msg_count => x_msg_count
7191: l_line_rec OE_ORDER_PUB.line_rec_type;
7192: l_api_name CONSTANT VARCHAR2(30) := 'process_release_holds_lines';
7193: l_line_id NUMBER;
7194: l_return_status VARCHAR2(30);
7195: l_order_tbl OE_HOLDS_PVT.order_tbl_type;
7196: l_error_count NUMBER :=0;
7197: l_ordered_quantity NUMBER ;
7198: j INTEGER;
7199: initial INTEGER;
7199: initial INTEGER;
7200: nextpos INTEGER;
7201:
7202: l_prev_org_id number;
7203: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7204: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7205: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
7206: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
7207: l_msg_token VARCHAR2(100);
7200: nextpos INTEGER;
7201:
7202: l_prev_org_id number;
7203: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7204: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7205: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
7206: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
7207: l_msg_token VARCHAR2(100);
7208: BEGIN
7207: l_msg_token VARCHAR2(100);
7208: BEGIN
7209: oe_msg_pub.initialize;
7210:
7211: OE_DEBUG_PUB.Add('Entering OE_Holds_PVT.process_release_holds_lines',1);
7212:
7213: IF check_system_holds( p_hold_id => p_hold_id
7214: ,x_return_status => x_return_status
7215: ,x_msg_count => x_msg_count
7277: l_order_tbl(1).header_id := l_line_rec.header_id;
7278: l_order_tbl(1).line_id := l_line_rec.line_id;
7279:
7280:
7281: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds:HeaderID'
7282: || l_order_tbl(1).header_id || ', LineID:' || l_order_tbl(1).line_id);
7283: oe_holds_pvt.release_holds(
7284: p_order_tbl => l_order_tbl,
7285: p_hold_id => p_hold_id,
7279:
7280:
7281: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds:HeaderID'
7282: || l_order_tbl(1).header_id || ', LineID:' || l_order_tbl(1).line_id);
7283: oe_holds_pvt.release_holds(
7284: p_order_tbl => l_order_tbl,
7285: p_hold_id => p_hold_id,
7286: p_release_reason_code => p_release_reason_code,
7287: p_release_comment => p_release_comment,
7289: x_msg_count => x_msg_count,
7290: x_msg_data => x_msg_data
7291: );
7292:
7293: OE_DEBUG_PUB.Add('After oe_holds_pvt.release_holds:' || x_return_status,3);
7294:
7295: -- Changes begin : ER 1373910
7296: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7297:
7295: -- Changes begin : ER 1373910
7296: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7297:
7298: IF p_wf_release_action = 'Y' THEN
7299: OE_DEBUG_PUB.Add('Before calling Oe_holds_pvt.progress_order');
7300: progress_order( p_hold_id,
7301: p_num_of_records,
7302: l_order_tbl,
7303: x_return_status,
7302: l_order_tbl,
7303: x_return_status,
7304: x_msg_count,
7305: x_msg_data );
7306: OE_DEBUG_PUB.Add('After Oe_holds_pvt.progress_order : ' || x_return_status,3);
7307: END IF;
7308: END IF;
7309: -- Changes End : ER 1373910
7310:
7324: ( p_count => x_msg_count
7325: , p_data => x_msg_data
7326: );
7327:
7328: OE_DEBUG_PUB.Add('Exiting OE_Holds_PVT.process_release_holds_lines',1);
7329:
7330: EXCEPTION /* Procedure exception handler */
7331:
7332: WHEN FND_API.G_EXC_ERROR THEN
7398: l_line_rec OE_ORDER_PUB.line_rec_type;
7399: l_api_name CONSTANT VARCHAR2(30) := 'process_release_holds_orders';
7400: l_header_id NUMBER;
7401: l_return_status VARCHAR2(30);
7402: l_order_tbl OE_HOLDS_PVT.order_tbl_type;
7403: l_error_count NUMBER :=0;
7404: j INTEGER;
7405: initial INTEGER;
7406: nextpos INTEGER;
7404: j INTEGER;
7405: initial INTEGER;
7406: nextpos INTEGER;
7407: l_prev_org_id number; -- MOAC
7408: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7409: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7410: --l_record_ids varchar2(2000) := p_record_ids || ',';
7411: --l_num_of_records number;
7412:
7405: initial INTEGER;
7406: nextpos INTEGER;
7407: l_prev_org_id number; -- MOAC
7408: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7409: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7410: --l_record_ids varchar2(2000) := p_record_ids || ',';
7411: --l_num_of_records number;
7412:
7413: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
7415: l_msg_token VARCHAR2(100);
7416: BEGIN
7417: oe_msg_pub.initialize;
7418:
7419: OE_DEBUG_PUB.Add('Entering OE_Holds_PVT.process_release_holds_orders',1);
7420:
7421: IF check_system_holds( p_hold_id => p_hold_id
7422: ,x_return_status => x_return_status
7423: ,x_msg_count => x_msg_count
7478: l_prev_org_id := p_sel_rec_tbl(j).org_id;
7479: END IF;
7480: l_order_tbl(1).header_id := p_sel_rec_tbl(j).Id1;
7481:
7482: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds 4 HeaderID' || l_order_tbl(1).header_id);
7483: oe_holds_pvt.release_holds(
7484: p_order_tbl => l_order_tbl,
7485: p_hold_id => p_hold_id,
7486: p_release_reason_code => p_release_reason_code,
7479: END IF;
7480: l_order_tbl(1).header_id := p_sel_rec_tbl(j).Id1;
7481:
7482: OE_DEBUG_PUB.Add('B4 Calling oe_holds_pvt.release_holds 4 HeaderID' || l_order_tbl(1).header_id);
7483: oe_holds_pvt.release_holds(
7484: p_order_tbl => l_order_tbl,
7485: p_hold_id => p_hold_id,
7486: p_release_reason_code => p_release_reason_code,
7487: p_release_comment => p_release_comment,
7496:
7497: -- Changes begin : ER 1373910
7498: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7499: IF p_wf_release_action = 'Y' THEN
7500: OE_DEBUG_PUB.Add('Before calling Oe_holds_pvt.progress_order');
7501: progress_order( p_hold_id,
7502: p_num_of_records,
7503: l_order_tbl,
7504: x_return_status,
7503: l_order_tbl,
7504: x_return_status,
7505: x_msg_count,
7506: x_msg_data);
7507: OE_DEBUG_PUB.Add('After Oe_holds_pvt.progress_order : ' || x_return_status,3);
7508: END IF;
7509: END IF;
7510: -- Changes end : ER 1373910
7511:
7526: ( p_count => x_msg_count
7527: , p_data => x_msg_data
7528: );
7529:
7530: OE_DEBUG_PUB.Add('Exiting OE_Holds_PVT.process_release_holds_orders',1);
7531:
7532: EXCEPTION /* Procedure exception handler */
7533:
7534: WHEN FND_API.G_EXC_ERROR THEN
7585: */
7586:
7587: procedure process_release_source(
7588: p_hold_source_id IN OE_Hold_Sources_ALL.HOLD_SOURCE_ID%TYPE
7589: ,p_hold_release_rec IN OE_HOLDS_PVT.Hold_Release_Rec_Type
7590: ,p_wf_release_action IN VARCHAR2
7591: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7592: ,x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
7593: ,x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7592: ,x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
7593: ,x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7594: )
7595: IS
7596: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7597: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7598: l_api_name CONSTANT VARCHAR2(30) := 'process_release_source';
7599: l_hold_id OE_HOLD_DEFINITIONS.HOLD_ID%TYPE;
7600: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
7593: ,x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
7594: )
7595: IS
7596: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7597: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
7598: l_api_name CONSTANT VARCHAR2(30) := 'process_release_source';
7599: l_hold_id OE_HOLD_DEFINITIONS.HOLD_ID%TYPE;
7600: l_application_id OE_HOLD_AUTHORIZATIONS.APPLICATION_ID%TYPE := FND_GLOBAL.RESP_APPL_ID;
7601: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE := FND_GLOBAL.RESP_ID;
7682: l_hold_release_rec := p_hold_release_rec;
7683: --l_hold_release_rec.RELEASE_REASON_CODE := p_release_reason_code;
7684: --l_hold_release_rec.RELEASE_COMMENT := p_release_comment;
7685:
7686: oe_holds_pvt.Release_Holds(
7687: p_hold_source_rec => l_hold_source_rec
7688: ,p_hold_release_rec => l_hold_release_rec
7689: ,x_return_status => x_return_status
7690: ,x_msg_count => x_msg_count
7696:
7697: -- Changes begin : ER 1373910
7698: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7699: IF p_wf_release_action = 'Y' THEN
7700: Oe_debug_pub.Add('Before calling Oe_holds_pvt.progress_order');
7701: progress_order( p_hold_source_id,
7702: x_return_status,
7703: x_msg_count,
7704: x_msg_data);
7701: progress_order( p_hold_source_id,
7702: x_return_status,
7703: x_msg_count,
7704: x_msg_data);
7705: Oe_debug_pub.ADD('Oe_holds_pvt.progress order returned with : ' || x_return_status);
7706: END IF;
7707: END IF;
7708: -- Changes end : ER 1373910
7709:
7776: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_HOLD';
7777:
7778: l_line_number NUMBER;
7779: l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
7780: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7781:
7782: CURSOR c_order_holds IS
7783: SELECT oh.HOLD_SOURCE_ID
7784: , oh.HEADER_ID
7812:
7813: BEGIN
7814: x_return_status := FND_API.G_RET_STS_SUCCESS;
7815:
7816: l_user_id := OE_HOLDS_PVT.get_user_id;
7817: l_org_id := OE_GLOBALS.G_ORG_ID;
7818: if l_org_id IS NULL THEN
7819: OE_GLOBALS.Set_Context;
7820: l_org_id := OE_GLOBALS.G_ORG_ID;
7846: l_hold_source_rec.ATTRIBUTE14 := c_rec.ATTRIBUTE14;
7847: l_hold_source_rec.ATTRIBUTE15 := c_rec.ATTRIBUTE15;
7848: l_hold_source_rec.org_id := c_rec.org_id;
7849:
7850: oe_holds_pvt.Create_Hold_Source (
7851: p_hold_source_rec => l_hold_source_rec,
7852: p_org_id =>l_org_id, --ER#7479609
7853: x_hold_source_id => l_hold_source_id,
7854: x_return_status => x_return_status,
7921: END split_hold;
7922:
7923: /*Added Overloaded procedure apply_holds for WF_HOLDS ER (bug 6449458)*/
7924: Procedure Apply_Holds(
7925: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type,
7926: p_hold_existing_flg IN VARCHAR2,
7927: p_hold_future_flg IN VARCHAR2,
7928: p_org_id IN NUMBER DEFAULT MO_GLOBAL.get_current_org_id, --ER#7479609
7929: p_wf_item_type IN VARCHAR2 DEFAULT NULL,
7939: FND_GLOBAL.RESP_APPL_ID;
7940: l_resp_id OE_HOLD_AUTHORIZATIONS.RESPONSIBILITY_ID%TYPE
7941: := FND_GLOBAL.RESP_ID;
7942: l_hold_source_id OE_HOLD_SOURCES_ALL.HOLD_SOURCE_ID%TYPE;
7943: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
7944: l_hold_exists VARCHAR2(1) :='N'; --bug 5548778
7945:
7946: l_is_hold_applied BOOLEAN;
7947:
7946: l_is_hold_applied BOOLEAN;
7947:
7948: BEGIN
7949:
7950: OE_DEBUG_PUB.Add('In OE_Holds_pvt.Apply Holds, Creating Hold Source',1);
7951:
7952: x_return_status := FND_API.G_RET_STS_SUCCESS;
7953: l_hold_source_rec := p_hold_source_rec;
7954:
8027: END Apply_Holds;
8028:
8029: /*Added New Overloaded Procedure Create_Order_hols for WF_HOLDS ER (bug 6449458)*/
8030: Procedure Create_Order_Holds(
8031: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type,
8032: p_org_id IN NUMBER DEFAULT MO_GLOBAL.get_current_org_id, --ER#7479609
8033: p_item_type IN VARCHAR2,
8034: p_activity_name IN VARCHAR2,
8035: x_return_status OUT NOCOPY VARCHAR2,
8159: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8160: -- GENESIS --
8161: BEGIN
8162: x_return_status := FND_API.G_RET_STS_SUCCESS;
8163: l_user_id := OE_HOLDS_PVT.get_user_id;
8164: l_org_id := MO_GLOBAL.get_current_org_id;
8165: x_is_hold_applied := NULL;
8166: IF l_org_id IS NULL THEN
8167: -- org_id is null, raise an error.
13373: -- GENESIS --
13374: IF p_hold_source_rec.line_id IS NOT NULL THEN
13375:
13376: IF l_debug_level > 0 THEN
13377: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - p_hold_source_rec.line_id IS NOT NULL');
13378: END IF;
13379:
13380: OPEN check_line_hold_type_cur(p_hold_source_rec.line_id);
13381: FETCH check_line_hold_type_cur INTO l_check_hold;
13380: OPEN check_line_hold_type_cur(p_hold_source_rec.line_id);
13381: FETCH check_line_hold_type_cur INTO l_check_hold;
13382: CLOSE check_line_hold_type_cur;
13383: IF l_debug_level > 0 THEN
13384: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - l_check_hold' || l_check_hold);
13385: END IF;
13386:
13387: ELSIF p_hold_source_rec.line_id IS NULL AND
13388: p_hold_source_rec.header_id IS NOT NULL THEN
13386:
13387: ELSIF p_hold_source_rec.line_id IS NULL AND
13388: p_hold_source_rec.header_id IS NOT NULL THEN
13389: IF l_debug_level > 0 THEN
13390: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - p_hold_source_rec.header_id IS NOT NULL');
13391: END IF;
13392: OPEN check_hdr_hold_type_cur(p_hold_source_rec.header_id);
13393: FETCH check_hdr_hold_type_cur INTO l_check_hold;
13394: CLOSE check_hdr_hold_type_cur;
13392: OPEN check_hdr_hold_type_cur(p_hold_source_rec.header_id);
13393: FETCH check_hdr_hold_type_cur INTO l_check_hold;
13394: CLOSE check_hdr_hold_type_cur;
13395: IF l_debug_level > 0 THEN
13396: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - l_check_hold' || l_check_hold);
13397: END IF;
13398:
13399: ELSIF p_hold_source_rec.line_id IS NULL AND
13400: p_hold_source_rec.header_id IS NULL AND
13399: ELSIF p_hold_source_rec.line_id IS NULL AND
13400: p_hold_source_rec.header_id IS NULL AND
13401: p_hold_source_rec.hold_source_id IS NOT NULL THEN
13402: IF l_debug_level > 0 THEN
13403: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - p_hold_source_rec.hold_source_id IS NOT NULL');
13404: END IF;
13405: OPEN check_src_hold_type_cur(p_hold_source_rec.hold_source_id);
13406: FETCH check_src_hold_type_cur INTO l_check_hold;
13407: CLOSE check_src_hold_type_cur;
13406: FETCH check_src_hold_type_cur INTO l_check_hold;
13407: CLOSE check_src_hold_type_cur;
13408:
13409: IF l_debug_level > 0 THEN
13410: oe_debug_pub.add('OE_HOLDS_PVT-CREATE ORDER HOLDS - l_check_hold :' || l_check_hold);
13411: END IF;
13412:
13413: END IF;
13414:
13412:
13413: END IF;
13414:
13415: IF l_debug_level > 0 THEN
13416: oe_debug_pub.add( 'OE_HOLDS_PVT - CREATE ORDER HOLDS - BEFORE SYNC_HEADER_LINE');
13417: END IF;
13418:
13419: IF NVL(l_check_hold, 'N') = 'Y' THEN
13420: IF l_debug_level > 0 THEN
13417: END IF;
13418:
13419: IF NVL(l_check_hold, 'N') = 'Y' THEN
13420: IF l_debug_level > 0 THEN
13421: oe_debug_pub.add( 'OE_HOLDS_PVT - CREATE ORDER HOLDS - l_check_hold: ' || l_check_hold);
13422: END IF;
13423:
13424: IF p_hold_source_rec.hold_entity_code = 'O' THEN
13425: IF l_debug_level > 0 THEN
13508:
13509: END Create_Order_Holds;
13510:
13511:
13512: END OE_HOLDS_PVT;
13513: