[Home] [Help]
42: FROM hz_cust_site_uses -- Bug 2138398
43: WHERE site_use_id = p_hold_entity_id;
44: EXCEPTION
45: WHEN no_data_found then
46: --x_return_status := FND_API.G_RET_STS_ERROR;
47: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_SITE_USE_ID');
48: OE_MSG_PUB.ADD;
49: fnd_message.set_token('SITE_USE_ID',
50: to_char(p_hold_entity_id));
50: to_char(p_hold_entity_id));
51: IF l_debug_level > 0 THEN
52: oe_debug_pub.add( 'HOLD_SITE_CODE:INVALID SITE USE ID' , 1 ) ;
53: END IF;
54: RAISE FND_API.G_EXC_ERROR;
55: END;
56: IF l_site_use_code = 'BILL_TO' THEN
57: l_hold_site_code := 'B';
58: ELSE
89: l_org_id := MO_GLOBAL.get_current_org_id;
90: IF l_org_id IS NULL THEN
91: -- org_id is null, raise an error.
92: oe_debug_pub.add('Org_Id is NULL',1);
93: x_return_status := FND_API.G_RET_STS_ERROR ;
94: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
95: FND_MSG_PUB.ADD;
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
92: oe_debug_pub.add('Org_Id is NULL',1);
93: x_return_status := FND_API.G_RET_STS_ERROR ;
94: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
95: FND_MSG_PUB.ADD;
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
99: x_return_status := FND_API.G_RET_STS_SUCCESS;
100: /* Either hold_source_id should be passed in OR
95: FND_MSG_PUB.ADD;
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
99: x_return_status := FND_API.G_RET_STS_SUCCESS;
100: /* Either hold_source_id should be passed in OR
101: Hold_entity_code and Hold_entity_id should be passed in */
102:
103: If p_hold_source_rec.HOLD_SOURCE_ID is NOT NULL THEN
166: else
167: IF l_debug_level > 0 THEN
168: oe_debug_pub.add( 'OE_HOLDS_PUB.UPDATE_HOLD_COMMENTS:' || 'EITHER PASS HOLD_SOURCE_ID OR HOLD_ENTITY_CODE/HOLD_ENTITY_ID' ) ;
169: END IF;
170: RAISE FND_API.G_EXC_ERROR;
171: end if;
172:
173: EXCEPTION /* Procedure exception handler */
174:
171: end if;
172:
173: EXCEPTION /* Procedure exception handler */
174:
175: WHEN FND_API.G_EXC_ERROR THEN
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: IF l_debug_level > 0 THEN
178: oe_debug_pub.add( 'EXPECTED ERROR IN UPDATE_HOLD_COMMENTS ; ' ) ;
179: END IF;
172:
173: EXCEPTION /* Procedure exception handler */
174:
175: WHEN FND_API.G_EXC_ERROR THEN
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: IF l_debug_level > 0 THEN
178: oe_debug_pub.add( 'EXPECTED ERROR IN UPDATE_HOLD_COMMENTS ; ' ) ;
179: END IF;
180: OE_MSG_PUB.Count_And_Get
181: ( p_count => x_msg_count,
182: p_data => x_msg_data
183: );
184:
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
187: IF l_debug_level > 0 THEN
188: oe_debug_pub.add( 'EXPECTED ERROR IN UPDATE_HOLD_COMMENTS ; ' ) ;
189: END IF;
182: p_data => x_msg_data
183: );
184:
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
187: IF l_debug_level > 0 THEN
188: oe_debug_pub.add( 'EXPECTED ERROR IN UPDATE_HOLD_COMMENTS ; ' ) ;
189: END IF;
190: OE_MSG_PUB.Count_And_Get
192: p_data => x_msg_data
193: );
194:
195: WHEN OTHERS THEN
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
197: IF l_debug_level > 0 THEN
198: oe_debug_pub.add( 'EXPECTED ERROR IN UPDATE_HOLD_COMMENTS ; ' ) ;
199: END IF;
200: IF OE_MSG_PUB.Check_Msg_Level
248: IF l_debug_level > 0 THEN
249: oe_debug_pub.add( 'IN RELEASE EXPIRED HOLDS' ) ;
250: oe_debug_pub.add( 'p_org_id:' || to_char(p_org_id) ) ;
251: END IF;
252: l_return_status := FND_API.G_RET_STS_SUCCESS;
253:
254: If p_org_id IS Not Null Then
255: -- Set Single Org access
256: MO_GLOBAL.SET_POLICY_CONTEXT('S', p_org_id);
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'X_RETURN_STATUS:' || L_RETURN_STATUS , 1 ) ;
297: END IF;
298:
299: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
300: IF l_debug_level > 0 THEN
301: oe_debug_pub.add( 'RELEASE_EXPIRED_HOLDS UNEXPECTED FAILURE' ) ;
302: END IF;
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
300: IF l_debug_level > 0 THEN
301: oe_debug_pub.add( 'RELEASE_EXPIRED_HOLDS UNEXPECTED FAILURE' ) ;
302: END IF;
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
305: IF l_debug_level > 0 THEN
306: oe_debug_pub.add( 'RELEASE_EXPIRED_HOLDS EXPECTED FAILURE' ) ;
307: END IF;
300: IF l_debug_level > 0 THEN
301: oe_debug_pub.add( 'RELEASE_EXPIRED_HOLDS UNEXPECTED FAILURE' ) ;
302: END IF;
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
305: IF l_debug_level > 0 THEN
306: oe_debug_pub.add( 'RELEASE_EXPIRED_HOLDS EXPECTED FAILURE' ) ;
307: END IF;
308: RAISE FND_API.G_EXC_ERROR;
304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
305: IF l_debug_level > 0 THEN
306: oe_debug_pub.add( 'RELEASE_EXPIRED_HOLDS EXPECTED FAILURE' ) ;
307: END IF;
308: RAISE FND_API.G_EXC_ERROR;
309: END IF;
310:
311: end loop;
312:
309: END IF;
310:
311: end loop;
312:
313: l_return_status := FND_API.G_RET_STS_SUCCESS;
314: -- Get message count and data
315: OE_MSG_PUB.Count_And_Get
316: ( p_count => l_msg_count
317: , p_data => l_msg_data
318: );
319:
320: EXCEPTION /* Procedure exception handler */
321:
322: WHEN FND_API.G_EXC_ERROR THEN
323: l_return_status := FND_API.G_RET_STS_ERROR ;
324: OE_MSG_PUB.Count_And_Get
325: ( p_count => l_msg_count,
326: p_data => l_msg_data
319:
320: EXCEPTION /* Procedure exception handler */
321:
322: WHEN FND_API.G_EXC_ERROR THEN
323: l_return_status := FND_API.G_RET_STS_ERROR ;
324: OE_MSG_PUB.Count_And_Get
325: ( p_count => l_msg_count,
326: p_data => l_msg_data
327: );
325: ( p_count => l_msg_count,
326: p_data => l_msg_data
327: );
328:
329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
330: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
331: OE_MSG_PUB.Count_And_Get
332: ( p_count => l_msg_count,
333: p_data => l_msg_data
326: p_data => l_msg_data
327: );
328:
329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
330: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
331: OE_MSG_PUB.Count_And_Get
332: ( p_count => l_msg_count,
333: p_data => l_msg_data
334: );
333: p_data => l_msg_data
334: );
335:
336: WHEN OTHERS THEN
337: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338: IF OE_MSG_PUB.Check_Msg_Level
339: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
340: THEN
341: OE_MSG_PUB.Add_Exc_Msg
373: oe_debug_pub.add( 'IN OE_HOLDS_PUB.VALIDATEORDER' ) ;
374: END IF;
375:
376: -- Initialize API return status to success
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: BEGIN
380:
381: IF p_line_id IS NOT NULL THEN
440: -- XXXXvalidation data based on Customer based holds -- Not needed at the line level
441: null;
442: ELSE
443: -- add error message
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446:
447: -------------------------------
448: -- Check the Second entity --
496: -- XXXXvalidation data based on Customer based holds -- Not needed at the line level
497: null;
498: ELSE
499: -- add error message
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502: ------------------------------
503:
504: ELSIF p_line_id IS NULL THEN
505:
506: IF p_hold_entity_code = 'O' THEN
507: -- XXX
508: IF (p_header_id <> p_hold_entity_id) THEN
509: RAISE FND_API.G_EXC_ERROR;
510: END IF;
511:
512: SELECT 'Valid Entity'
513: INTO l_dummy
534: WHERE HEADER_ID = p_header_id
535: AND SHIP_TO_ORG_ID = p_hold_entity_id
536: AND nvl(TRANSACTION_PHASE_CODE,'F') = 'F';
537: ELSE
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540: ------------------------------
541: -- Check the Second Entity --
542: ------------------------------
543: IF p_hold_entity_code2 is not null THEN
544: IF p_hold_entity_code2 = 'O' THEN
545:
546: IF (p_header_id <> p_hold_entity_id2) THEN
547: RAISE FND_API.G_EXC_ERROR;
548: END IF;
549:
550: SELECT 'Valid Entity'
551: INTO l_dummy
572: WHERE HEADER_ID = p_header_id
573: AND SHIP_TO_ORG_ID = p_hold_entity_id2
574: AND nvl(TRANSACTION_PHASE_CODE,'F') = 'F';
575: ELSE
576: RAISE FND_API.G_EXC_ERROR;
577: END IF;
578: END IF;
579: ------------------------------
580: END IF;
580: END IF;
581:
582: EXCEPTION
583: WHEN NO_DATA_FOUND THEN
584: RAISE FND_API.G_EXC_ERROR;
585: END;
586:
587:
588: EXCEPTION
585: END;
586:
587:
588: EXCEPTION
589: WHEN FND_API.G_EXC_ERROR THEN
590: FND_MESSAGE.SET_NAME('ONT', 'OE_ENTITY_NOT_ON_ORDER_OR_LINE');
591: OE_MSG_PUB.ADD;
592: IF l_debug_level > 0 THEN
593: oe_debug_pub.add( 'EXPECTED ERROR IN VALIDATEORDER' ) ;
591: OE_MSG_PUB.ADD;
592: IF l_debug_level > 0 THEN
593: oe_debug_pub.add( 'EXPECTED ERROR IN VALIDATEORDER' ) ;
594: END IF;
595: x_return_status := FND_API.G_RET_STS_ERROR;
596: WHEN OTHERS THEN
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: IF FND_MSG_PUB.Check_Msg_Level
599: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
593: oe_debug_pub.add( 'EXPECTED ERROR IN VALIDATEORDER' ) ;
594: END IF;
595: x_return_status := FND_API.G_RET_STS_ERROR;
596: WHEN OTHERS THEN
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: IF FND_MSG_PUB.Check_Msg_Level
599: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
600: THEN
601: FND_MSG_PUB.Add_Exc_Msg
614: ---------------------------------------------------------------
615:
616: Procedure Apply_Holds (
617: p_api_version IN NUMBER,
618: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
619: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
620: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
621: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
622: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE,
615:
616: Procedure Apply_Holds (
617: p_api_version IN NUMBER,
618: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
619: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
620: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
621: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
622: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE,
623: p_hold_until_date IN OE_HOLD_SOURCES.HOLD_UNTIL_DATE%TYPE DEFAULT NULL,
616: Procedure Apply_Holds (
617: p_api_version IN NUMBER,
618: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
619: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
620: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
621: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
622: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE,
623: p_hold_until_date IN OE_HOLD_SOURCES.HOLD_UNTIL_DATE%TYPE DEFAULT NULL,
624: p_hold_comment IN OE_HOLD_SOURCES.HOLD_COMMENT%TYPE DEFAULT NULL,
644: l_org_id := MO_GLOBAL.get_current_org_id;
645: IF l_org_id IS NULL THEN
646: -- org_id is null, raise an error.
647: oe_debug_pub.add('Org_Id is NULL',1);
648: x_return_status := FND_API.G_RET_STS_ERROR;
649: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
650: FND_MSG_PUB.ADD;
651: RAISE FND_API.G_EXC_ERROR;
652: END IF;
647: oe_debug_pub.add('Org_Id is NULL',1);
648: x_return_status := FND_API.G_RET_STS_ERROR;
649: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
650: FND_MSG_PUB.ADD;
651: RAISE FND_API.G_EXC_ERROR;
652: END IF;
653:
654: -- Initialize API return status to success
655: x_return_status := FND_API.G_RET_STS_SUCCESS;
651: RAISE FND_API.G_EXC_ERROR;
652: END IF;
653:
654: -- Initialize API return status to success
655: x_return_status := FND_API.G_RET_STS_SUCCESS;
656:
657: oe_holds_pvt.apply_holds(
658: p_order_tbl => p_order_tbl,
659: p_hold_id => p_hold_id,
664: x_msg_count => x_msg_count,
665: x_msg_data => x_msg_data
666: );
667: EXCEPTION
668: WHEN FND_API.G_EXC_ERROR THEN
669: ROLLBACK TO APPLY_HOLDS_PUB;
670: IF l_debug_level > 0 THEN
671: oe_debug_pub.add( 'APPLY HOLD EXPECTED ERROR' ) ;
672: END IF;
669: ROLLBACK TO APPLY_HOLDS_PUB;
670: IF l_debug_level > 0 THEN
671: oe_debug_pub.add( 'APPLY HOLD EXPECTED ERROR' ) ;
672: END IF;
673: x_return_status := FND_API.G_RET_STS_ERROR;
674: FND_MSG_PUB.Count_And_Get
675: ( p_count => x_msg_count
676: , p_data => x_msg_data
677: );
674: FND_MSG_PUB.Count_And_Get
675: ( p_count => x_msg_count
676: , p_data => x_msg_data
677: );
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO APPLY_HOLDS_PUB; --11803186
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
681: FND_MSG_PUB.Count_And_Get
682: ( p_count => x_msg_count
676: , p_data => x_msg_data
677: );
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO APPLY_HOLDS_PUB; --11803186
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
681: FND_MSG_PUB.Count_And_Get
682: ( p_count => x_msg_count
683: , p_data => x_msg_data
684: );
683: , p_data => x_msg_data
684: );
685: WHEN OTHERS THEN
686: ROLLBACK TO APPLY_HOLDS_PUB; --11803186
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: IF FND_MSG_PUB.Check_Msg_Level
689: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
690: THEN
691: FND_MSG_PUB.Add_Exc_Msg
701: END Apply_Holds;
702:
703: Procedure Apply_Holds(
704: p_api_version IN NUMBER,
705: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
706: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
707: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
708: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type
709: DEFAULT OE_HOLDS_PVT.G_MISS_HOLD_SOURCE_REC,
702:
703: Procedure Apply_Holds(
704: p_api_version IN NUMBER,
705: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
706: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
707: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
708: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type
709: DEFAULT OE_HOLDS_PVT.G_MISS_HOLD_SOURCE_REC,
710: p_hold_existing_flg IN VARCHAR2 DEFAULT 'Y',
703: Procedure Apply_Holds(
704: p_api_version IN NUMBER,
705: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
706: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
707: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
708: p_hold_source_rec IN OE_HOLDS_PVT.Hold_Source_Rec_Type
709: DEFAULT OE_HOLDS_PVT.G_MISS_HOLD_SOURCE_REC,
710: p_hold_existing_flg IN VARCHAR2 DEFAULT 'Y',
711: p_hold_future_flg IN VARCHAR2 DEFAULT 'Y',
728: l_org_id := MO_GLOBAL.get_current_org_id;
729: IF l_org_id IS NULL THEN
730: -- org_id is null, raise an error.
731: oe_debug_pub.add('Org_Id is NULL',1);
732: x_return_status := FND_API.G_RET_STS_ERROR;
733: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
734: FND_MSG_PUB.ADD;
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
731: oe_debug_pub.add('Org_Id is NULL',1);
732: x_return_status := FND_API.G_RET_STS_ERROR;
733: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
734: FND_MSG_PUB.ADD;
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
737:
738: -- Initialize API return status to success
739: x_return_status := FND_API.G_RET_STS_SUCCESS;
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
737:
738: -- Initialize API return status to success
739: x_return_status := FND_API.G_RET_STS_SUCCESS;
740:
741: --dbms_output.put_line ('IN PUB.ApplyHolds'); -- delete
742: oe_holds_pvt.apply_Holds(
743: p_hold_source_rec => p_hold_source_rec
752: oe_debug_pub.add( 'OE_HOLDS_PUB.APPLY_HOLDS , HOLD SOURCE:' ||X_RETURN_STATUS ) ;
753: END IF;
754:
755: EXCEPTION
756: WHEN FND_API.G_EXC_ERROR THEN
757: IF l_debug_level > 0 THEN
758: oe_debug_pub.add( 'APPLY HOLD EXPECTED ERROR' ) ;
759: END IF;
760: x_return_status := FND_API.G_RET_STS_ERROR;
756: WHEN FND_API.G_EXC_ERROR THEN
757: IF l_debug_level > 0 THEN
758: oe_debug_pub.add( 'APPLY HOLD EXPECTED ERROR' ) ;
759: END IF;
760: x_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MSG_PUB.Count_And_Get
762: ( p_count => x_msg_count
763: , p_data => x_msg_data
764: );
761: FND_MSG_PUB.Count_And_Get
762: ( p_count => x_msg_count
763: , p_data => x_msg_data
764: );
765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: FND_MSG_PUB.Count_And_Get
768: ( p_count => x_msg_count
769: , p_data => x_msg_data
762: ( p_count => x_msg_count
763: , p_data => x_msg_data
764: );
765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: FND_MSG_PUB.Count_And_Get
768: ( p_count => x_msg_count
769: , p_data => x_msg_data
770: );
768: ( p_count => x_msg_count
769: , p_data => x_msg_data
770: );
771: WHEN OTHERS THEN
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
773: IF FND_MSG_PUB.Check_Msg_Level
774: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
775: THEN
776: FND_MSG_PUB.Add_Exc_Msg
789: -- New Release Holds Spec --
790: --------------------------------
791: Procedure Release_Holds (
792: p_api_version IN NUMBER DEFAULT 1.0,
793: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
794: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
795: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
796: p_hold_source_rec IN OE_HOLDS_PVT.hold_source_rec_type,
797: p_hold_release_rec IN OE_HOLDS_PVT.Hold_Release_Rec_Type,
790: --------------------------------
791: Procedure Release_Holds (
792: p_api_version IN NUMBER DEFAULT 1.0,
793: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
794: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
795: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
796: p_hold_source_rec IN OE_HOLDS_PVT.hold_source_rec_type,
797: p_hold_release_rec IN OE_HOLDS_PVT.Hold_Release_Rec_Type,
798: p_check_authorization_flag IN VARCHAR2 DEFAULT 'N', -- bug 8477694
791: Procedure Release_Holds (
792: p_api_version IN NUMBER DEFAULT 1.0,
793: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
794: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
795: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
796: p_hold_source_rec IN OE_HOLDS_PVT.hold_source_rec_type,
797: p_hold_release_rec IN OE_HOLDS_PVT.Hold_Release_Rec_Type,
798: p_check_authorization_flag IN VARCHAR2 DEFAULT 'N', -- bug 8477694
799: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
814: l_org_id := MO_GLOBAL.get_current_org_id;
815: IF l_org_id IS NULL THEN
816: -- org_id is null, raise an error.
817: oe_debug_pub.add('Org_Id is NULL',1);
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
820: FND_MSG_PUB.ADD;
821: RAISE FND_API.G_EXC_ERROR;
822: END IF;
817: oe_debug_pub.add('Org_Id is NULL',1);
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
820: FND_MSG_PUB.ADD;
821: RAISE FND_API.G_EXC_ERROR;
822: END IF;
823:
824: -- Initialize API return status to success
825: x_return_status := FND_API.G_RET_STS_SUCCESS;
821: RAISE FND_API.G_EXC_ERROR;
822: END IF;
823:
824: -- Initialize API return status to success
825: x_return_status := FND_API.G_RET_STS_SUCCESS;
826:
827: -- dbms_output.put_line ('IN RELEASE_HOLDS->'); -- delete
828: oe_holds_pvt.Release_Holds(
829: p_hold_source_rec => p_hold_source_rec
833: ,x_msg_count => x_msg_count
834: ,x_msg_data => x_msg_data
835: );
836: EXCEPTION
837: WHEN FND_API.G_EXC_ERROR THEN
838: IF l_debug_level > 0 THEN
839: oe_debug_pub.add( 'RELEASE HOLD EXPECTED ERROR' ) ;
840: END IF;
841: x_return_status := FND_API.G_RET_STS_ERROR;
837: WHEN FND_API.G_EXC_ERROR THEN
838: IF l_debug_level > 0 THEN
839: oe_debug_pub.add( 'RELEASE HOLD EXPECTED ERROR' ) ;
840: END IF;
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: FND_MSG_PUB.Count_And_Get
843: ( p_count => x_msg_count
844: , p_data => x_msg_data
845: );
842: FND_MSG_PUB.Count_And_Get
843: ( p_count => x_msg_count
844: , p_data => x_msg_data
845: );
846: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: FND_MSG_PUB.Count_And_Get
849: ( p_count => x_msg_count
850: , p_data => x_msg_data
843: ( p_count => x_msg_count
844: , p_data => x_msg_data
845: );
846: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: FND_MSG_PUB.Count_And_Get
849: ( p_count => x_msg_count
850: , p_data => x_msg_data
851: );
849: ( p_count => x_msg_count
850: , p_data => x_msg_data
851: );
852: WHEN OTHERS THEN
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: IF FND_MSG_PUB.Check_Msg_Level
855: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
856: THEN
857: FND_MSG_PUB.Add_Exc_Msg
867: END Release_Holds;
868:
869: Procedure Release_Holds (
870: p_api_version IN NUMBER DEFAULT 1.0,
871: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
872: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
873: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
874: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
875: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE
868:
869: Procedure Release_Holds (
870: p_api_version IN NUMBER DEFAULT 1.0,
871: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
872: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
873: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
874: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
875: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE
876: DEFAULT NULL,
869: Procedure Release_Holds (
870: p_api_version IN NUMBER DEFAULT 1.0,
871: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
872: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
873: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
874: p_order_tbl IN OE_HOLDS_PVT.order_tbl_type,
875: p_hold_id IN OE_HOLD_DEFINITIONS.HOLD_ID%TYPE
876: DEFAULT NULL,
877: p_release_reason_code IN OE_HOLD_RELEASES.RELEASE_REASON_CODE%TYPE,
900: l_org_id := MO_GLOBAL.get_current_org_id;
901: IF l_org_id IS NULL THEN
902: -- org_id is null, raise an error.
903: oe_debug_pub.add('Org_Id is NULL',1);
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
906: FND_MSG_PUB.ADD;
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
903: oe_debug_pub.add('Org_Id is NULL',1);
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
906: FND_MSG_PUB.ADD;
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: -- Initialize API return status to success
911: x_return_status := FND_API.G_RET_STS_SUCCESS;
907: RAISE FND_API.G_EXC_ERROR;
908: END IF;
909:
910: -- Initialize API return status to success
911: x_return_status := FND_API.G_RET_STS_SUCCESS;
912:
913: for j in 1..p_order_tbl.COUNT loop
914: if p_order_tbl(j).header_id is NULL AND
915: p_order_tbl(j).line_id is NULL THEN
914: if p_order_tbl(j).header_id is NULL AND
915: p_order_tbl(j).line_id is NULL THEN
916: FND_MESSAGE.SET_NAME('ONT', 'OE_ENTER_HEADER_OR_LINE_ID');
917: OE_MSG_PUB.ADD;
918: RAISE FND_API.G_EXC_ERROR;
919: ELSIF p_order_tbl(j).header_id is NULL THEN
920: SELECT header_id
921: INTO l_header_id
922: FROM OE_ORDER_LINES
940: x_msg_data => x_msg_data
941: );
942:
943: EXCEPTION
944: WHEN FND_API.G_EXC_ERROR THEN
945: IF l_debug_level > 0 THEN
946: oe_debug_pub.add( 'RELEASE HOLD EXPECTED ERROR' ) ;
947: END IF;
948: x_return_status := FND_API.G_RET_STS_ERROR;
944: WHEN FND_API.G_EXC_ERROR THEN
945: IF l_debug_level > 0 THEN
946: oe_debug_pub.add( 'RELEASE HOLD EXPECTED ERROR' ) ;
947: END IF;
948: x_return_status := FND_API.G_RET_STS_ERROR;
949: FND_MSG_PUB.Count_And_Get
950: ( p_count => x_msg_count
951: , p_data => x_msg_data
952: );
949: FND_MSG_PUB.Count_And_Get
950: ( p_count => x_msg_count
951: , p_data => x_msg_data
952: );
953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
955: FND_MSG_PUB.Count_And_Get
956: ( p_count => x_msg_count
957: , p_data => x_msg_data
950: ( p_count => x_msg_count
951: , p_data => x_msg_data
952: );
953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
955: FND_MSG_PUB.Count_And_Get
956: ( p_count => x_msg_count
957: , p_data => x_msg_data
958: );
956: ( p_count => x_msg_count
957: , p_data => x_msg_data
958: );
959: WHEN OTHERS THEN
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
961: IF FND_MSG_PUB.Check_Msg_Level
962: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
963: THEN
964: FND_MSG_PUB.Add_Exc_Msg
990: --------------------------------------------------------------------------
991:
992: PROCEDURE Apply_Holds
993: ( p_api_version IN NUMBER
994: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
995: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
996: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
997: , p_header_id IN NUMBER DEFAULT NULL
998: , p_line_id IN NUMBER DEFAULT NULL
991:
992: PROCEDURE Apply_Holds
993: ( p_api_version IN NUMBER
994: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
995: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
996: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
997: , p_header_id IN NUMBER DEFAULT NULL
998: , p_line_id IN NUMBER DEFAULT NULL
999: , p_hold_source_id IN NUMBER DEFAULT NULL
992: PROCEDURE Apply_Holds
993: ( p_api_version IN NUMBER
994: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
995: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
996: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
997: , p_header_id IN NUMBER DEFAULT NULL
998: , p_line_id IN NUMBER DEFAULT NULL
999: , p_hold_source_id IN NUMBER DEFAULT NULL
1000: , p_hold_source_rec IN OE_Hold_Sources_Pvt.Hold_Source_REC
1032: l_org_id := MO_GLOBAL.get_current_org_id;
1033: IF l_org_id IS NULL THEN
1034: -- org_id is null, raise an error.
1035: oe_debug_pub.add('Org_Id is NULL',1);
1036: x_return_status := FND_API.G_RET_STS_ERROR;
1037: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
1038: FND_MSG_PUB.ADD;
1039: RAISE FND_API.G_EXC_ERROR;
1040: END IF;
1035: oe_debug_pub.add('Org_Id is NULL',1);
1036: x_return_status := FND_API.G_RET_STS_ERROR;
1037: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
1038: FND_MSG_PUB.ADD;
1039: RAISE FND_API.G_EXC_ERROR;
1040: END IF;
1041:
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add( 'IN OE_HOLDS_PUB.APPLY_HOLDS OLD' ) ;
1045:
1046: SAVEPOINT APPLY_HOLDS_PUB;
1047:
1048: -- Initialize API return status to success
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1050:
1051: Utilities(l_user_id);
1052:
1053:
1060: oe_debug_pub.add( 'USING INPUT HOLD SOURCE ID' ) ;
1061: END IF;
1062: l_hold_source_id := p_hold_source_id;
1063:
1064: --IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
1065:
1066: -- Check if the hold source ID is valid
1067: BEGIN
1068:
1082: END IF;
1083: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_HOLD_SOURCE_ID');
1084: FND_MESSAGE.SET_TOKEN('HOLD_SOURCE_ID' , p_hold_source_id);
1085: OE_MSG_PUB.ADD;
1086: RAISE FND_API.G_EXC_ERROR;
1087: END;
1088:
1089: -- END IF;
1090:
1095: -- Check for Missing Values
1096: IF p_hold_source_rec.hold_id IS NULL THEN
1097: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_HOLD_ID');
1098: OE_MSG_PUB.ADD;
1099: RAISE FND_API.G_EXC_ERROR;
1100: END IF;
1101:
1102: IF p_hold_source_rec.hold_entity_code IS NULL THEN
1103: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_ENTITY_CODE');
1101:
1102: IF p_hold_source_rec.hold_entity_code IS NULL THEN
1103: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_ENTITY_CODE');
1104: OE_MSG_PUB.ADD;
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107:
1108: IF p_hold_source_rec.hold_entity_id IS NULL THEN
1109: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_ENTITY_ID');
1107:
1108: IF p_hold_source_rec.hold_entity_id IS NULL THEN
1109: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_ENTITY_ID');
1110: OE_MSG_PUB.ADD;
1111: RAISE FND_API.G_EXC_ERROR;
1112: END IF;
1113: -- NOTE: No need to check for HOLD_ENTITY_CODE2 and HOLD_ENTITY_ID2
1114: -- cos, its optional.
1115: ----------------------------------
1131: IF p_hold_source_rec.hold_entity_code = 'O' THEN
1132: IF p_line_id IS NULL AND p_header_id IS NULL THEN
1133: FND_MESSAGE.SET_NAME('ONT', 'OE_ENTER_HEADER_OR_LINE_ID');
1134: OE_MSG_PUB.ADD;
1135: RAISE FND_API.G_EXC_ERROR;
1136: ELSIF p_header_id IS NULL THEN
1137: SELECT header_id
1138: INTO l_header_id
1139: FROM OE_ORDER_LINES
1159: IF (sql%found) THEN
1160: FND_MESSAGE.SET_NAME('ONT', 'OE_DUPLICATE_HOLD');
1161: OE_MSG_PUB.ADD;
1162: OE_Debug_PUB.Add('Duplicate Hold');
1163: RAISE FND_API.G_EXC_ERROR;
1164: END IF;
1165: EXCEPTION
1166: WHEN NO_DATA_FOUND THEN
1167: null;
1178: , p_hold_entity_id2 => l_entity_id2
1179: , x_return_status => x_return_status
1180: );
1181:
1182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1183: OE_Debug_PUB.Add('Validate Order not successful');
1184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1180: );
1181:
1182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1183: OE_Debug_PUB.Add('Validate Order not successful');
1184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1181:
1182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1183: OE_Debug_PUB.Add('Validate Order not successful');
1184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1189: ELSE
1182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1183: OE_Debug_PUB.Add('Validate Order not successful');
1184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1189: ELSE
1190: OE_Debug_PUB.Add('Validate Order successful');
1183: OE_Debug_PUB.Add('Validate Order not successful');
1184: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1189: ELSE
1190: OE_Debug_PUB.Add('Validate Order successful');
1191: END IF;
1228: IF l_debug_level > 0 THEN
1229: oe_debug_pub.add( 'OE_HOLDS_PVT.APPLY_HOLDS STATUS:' || X_RETURN_STATUS ) ;
1230: END IF;
1231: --dbms_output.put_line('AH-x_return_status' || x_return_status ); -- delete
1232: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1233: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1234: RAISE FND_API.G_EXC_ERROR;
1235: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: oe_debug_pub.add( 'OE_HOLDS_PVT.APPLY_HOLDS STATUS:' || X_RETURN_STATUS ) ;
1230: END IF;
1231: --dbms_output.put_line('AH-x_return_status' || x_return_status ); -- delete
1232: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1233: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1234: RAISE FND_API.G_EXC_ERROR;
1235: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1230: END IF;
1231: --dbms_output.put_line('AH-x_return_status' || x_return_status ); -- delete
1232: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1233: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1234: RAISE FND_API.G_EXC_ERROR;
1235: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238: END IF;
1231: --dbms_output.put_line('AH-x_return_status' || x_return_status ); -- delete
1232: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1233: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1234: RAISE FND_API.G_EXC_ERROR;
1235: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238: END IF;
1239:
1232: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1233: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1234: RAISE FND_API.G_EXC_ERROR;
1235: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238: END IF;
1239:
1240: EXCEPTION
1237: END IF;
1238: END IF;
1239:
1240: EXCEPTION
1241: WHEN FND_API.G_EXC_ERROR THEN
1242: ROLLBACK TO APPLY_HOLDS_PUB;
1243: IF l_debug_level > 0 THEN
1244: oe_debug_pub.add( 'FROM DUPLICATE HOLD EXPECTED ERROR' ) ;
1245: END IF;
1242: ROLLBACK TO APPLY_HOLDS_PUB;
1243: IF l_debug_level > 0 THEN
1244: oe_debug_pub.add( 'FROM DUPLICATE HOLD EXPECTED ERROR' ) ;
1245: END IF;
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: FND_MSG_PUB.Count_And_Get
1248: ( p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1247: FND_MSG_PUB.Count_And_Get
1248: ( p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1252: ROLLBACK TO APPLY_HOLDS_PUB;
1253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1254: FND_MSG_PUB.Count_And_Get
1255: ( p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1252: ROLLBACK TO APPLY_HOLDS_PUB;
1253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1254: FND_MSG_PUB.Count_And_Get
1255: ( p_count => x_msg_count
1256: , p_data => x_msg_data
1257: );
1256: , p_data => x_msg_data
1257: );
1258: WHEN OTHERS THEN
1259: ROLLBACK TO APPLY_HOLDS_PUB;
1260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1261: IF FND_MSG_PUB.Check_Msg_Level
1262: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1263: THEN
1264: FND_MSG_PUB.Add_Exc_Msg
1308: IF l_debug_level > 0 THEN
1309: oe_debug_pub.add( 'IN OE_HOLDS_PUB.CHECK_HOLDS_LINE:' || P_LINE_ID ) ;
1310: END IF;
1311: -- Initialize API return status to success
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313:
1314: -- Initialize result to TRUE i.e. holds are found
1315: x_result_out := FND_API.G_TRUE;
1316:
1311: -- Initialize API return status to success
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313:
1314: -- Initialize result to TRUE i.e. holds are found
1315: x_result_out := FND_API.G_TRUE;
1316:
1317: /*
1318: ** Fix Bug # 1920064
1319: ** The SQL below was modified. To improve the performance, the scan on
1367: nvl(p_entity_id2, NVL(hs.hold_entity_id2, -99 )) );
1368:
1369: EXCEPTION
1370: WHEN NO_DATA_FOUND THEN
1371: x_result_out := FND_API.G_FALSE;
1372: IF l_debug_level > 0 THEN
1373: oe_debug_pub.add( 'NO HOLDS FOUND FOR LINE ID: ' || P_LINE_ID ) ;
1374: END IF;
1375: WHEN TOO_MANY_ROWS THEN
1380: oe_debug_pub.add( 'EXITING OE_HOLDS_PUB.CHECK_HOLDS_LINE' ) ;
1381: END IF;
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_ERROR;
1386: x_result_out := FND_API.G_FALSE;
1387: FND_MSG_PUB.Count_And_Get
1388: ( p_count => x_msg_count
1381: END IF;
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_ERROR;
1386: x_result_out := FND_API.G_FALSE;
1387: FND_MSG_PUB.Count_And_Get
1388: ( p_count => x_msg_count
1389: , p_data => x_msg_data
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: x_return_status := FND_API.G_RET_STS_ERROR;
1386: x_result_out := FND_API.G_FALSE;
1387: FND_MSG_PUB.Count_And_Get
1388: ( p_count => x_msg_count
1389: , p_data => x_msg_data
1390: );
1387: FND_MSG_PUB.Count_And_Get
1388: ( p_count => x_msg_count
1389: , p_data => x_msg_data
1390: );
1391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1393: x_result_out := FND_API.G_FALSE;
1394: FND_MSG_PUB.Count_And_Get
1395: ( p_count => x_msg_count
1388: ( p_count => x_msg_count
1389: , p_data => x_msg_data
1390: );
1391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1393: x_result_out := FND_API.G_FALSE;
1394: FND_MSG_PUB.Count_And_Get
1395: ( p_count => x_msg_count
1396: , p_data => x_msg_data
1389: , p_data => x_msg_data
1390: );
1391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1393: x_result_out := FND_API.G_FALSE;
1394: FND_MSG_PUB.Count_And_Get
1395: ( p_count => x_msg_count
1396: , p_data => x_msg_data
1397: );
1395: ( p_count => x_msg_count
1396: , p_data => x_msg_data
1397: );
1398: WHEN OTHERS THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1400: x_result_out := FND_API.G_FALSE;
1401: IF FND_MSG_PUB.Check_Msg_Level
1402: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1403: THEN
1396: , p_data => x_msg_data
1397: );
1398: WHEN OTHERS THEN
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1400: x_result_out := FND_API.G_FALSE;
1401: IF FND_MSG_PUB.Check_Msg_Level
1402: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1403: THEN
1404: FND_MSG_PUB.Add_Exc_Msg
1445: IF l_debug_level > 0 THEN
1446: oe_debug_pub.add( 'IN OE_HOLDS_PUB.CHECK_HOLDS_ATO' ) ;
1447: END IF;
1448: -- Initialize API return status to success
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: -- Initialize result to TRUE i.e. holds are found
1452: x_result_out := FND_API.G_TRUE;
1453:
1448: -- Initialize API return status to success
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: -- Initialize result to TRUE i.e. holds are found
1452: x_result_out := FND_API.G_TRUE;
1453:
1454: /*
1455: ** Checking for ATO level generic and activity-specific holds
1456: */
1494: nvl(p_entity_id2, NVL(hs.hold_entity_id2, -99 )) );
1495:
1496: EXCEPTION
1497: WHEN NO_DATA_FOUND THEN
1498: x_result_out := FND_API.G_FALSE;
1499: IF l_debug_level > 0 THEN
1500: oe_debug_pub.add( 'NO HOLDS FOUND FOR ATO LINE ID: ' || P_ATO_LINE_ID ) ;
1501: END IF;
1502: WHEN TOO_MANY_ROWS THEN
1507: oe_debug_pub.add( 'EXITING OE_HOLDS_PUB.CHECK_HOLDS_ATO' ) ;
1508: END IF;
1509:
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: x_result_out := FND_API.G_FALSE;
1514: FND_MSG_PUB.Count_And_Get
1515: ( p_count => x_msg_count
1508: END IF;
1509:
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: x_result_out := FND_API.G_FALSE;
1514: FND_MSG_PUB.Count_And_Get
1515: ( p_count => x_msg_count
1516: , p_data => x_msg_data
1509:
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: x_result_out := FND_API.G_FALSE;
1514: FND_MSG_PUB.Count_And_Get
1515: ( p_count => x_msg_count
1516: , p_data => x_msg_data
1517: );
1514: FND_MSG_PUB.Count_And_Get
1515: ( p_count => x_msg_count
1516: , p_data => x_msg_data
1517: );
1518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1520: x_result_out := FND_API.G_FALSE;
1521: FND_MSG_PUB.Count_And_Get
1522: ( p_count => x_msg_count
1515: ( p_count => x_msg_count
1516: , p_data => x_msg_data
1517: );
1518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1520: x_result_out := FND_API.G_FALSE;
1521: FND_MSG_PUB.Count_And_Get
1522: ( p_count => x_msg_count
1523: , p_data => x_msg_data
1516: , p_data => x_msg_data
1517: );
1518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1520: x_result_out := FND_API.G_FALSE;
1521: FND_MSG_PUB.Count_And_Get
1522: ( p_count => x_msg_count
1523: , p_data => x_msg_data
1524: );
1522: ( p_count => x_msg_count
1523: , p_data => x_msg_data
1524: );
1525: WHEN OTHERS THEN
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1527: x_result_out := FND_API.G_FALSE;
1528: IF FND_MSG_PUB.Check_Msg_Level
1529: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1530: THEN
1523: , p_data => x_msg_data
1524: );
1525: WHEN OTHERS THEN
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1527: x_result_out := FND_API.G_FALSE;
1528: IF FND_MSG_PUB.Check_Msg_Level
1529: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1530: THEN
1531: FND_MSG_PUB.Add_Exc_Msg
1572: IF l_debug_level > 0 THEN
1573: oe_debug_pub.add( 'IN OE_HOLDS_PUB.CHECK_HOLDS_SMC' ) ;
1574: END IF;
1575: -- Initialize API return status to success
1576: x_return_status := FND_API.G_RET_STS_SUCCESS;
1577:
1578: -- Initialize result to TRUE i.e. holds are found
1579: x_result_out := FND_API.G_TRUE;
1580:
1575: -- Initialize API return status to success
1576: x_return_status := FND_API.G_RET_STS_SUCCESS;
1577:
1578: -- Initialize result to TRUE i.e. holds are found
1579: x_result_out := FND_API.G_TRUE;
1580:
1581: /*
1582: ** Checking for SMC level generic and activity-specific holds
1583: */
1620: nvl(p_entity_id2, NVL(hs.hold_entity_id2, -99 )) );
1621:
1622: EXCEPTION
1623: WHEN NO_DATA_FOUND THEN
1624: x_result_out := FND_API.G_FALSE;
1625: IF l_debug_level > 0 THEN
1626: oe_debug_pub.add( 'NO HOLDS FOUND FOR TOP MODEL LINE ID: ' || P_TOP_MODEL_LINE_ID ) ;
1627: END IF;
1628: WHEN TOO_MANY_ROWS THEN
1633: oe_debug_pub.add( 'EXITING OE_HOLDS_PUB.CHECK_HOLDS_SMC' ) ;
1634: END IF;
1635:
1636: EXCEPTION
1637: WHEN FND_API.G_EXC_ERROR THEN
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: x_result_out := FND_API.G_FALSE;
1640: FND_MSG_PUB.Count_And_Get
1641: ( p_count => x_msg_count
1634: END IF;
1635:
1636: EXCEPTION
1637: WHEN FND_API.G_EXC_ERROR THEN
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: x_result_out := FND_API.G_FALSE;
1640: FND_MSG_PUB.Count_And_Get
1641: ( p_count => x_msg_count
1642: , p_data => x_msg_data
1635:
1636: EXCEPTION
1637: WHEN FND_API.G_EXC_ERROR THEN
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: x_result_out := FND_API.G_FALSE;
1640: FND_MSG_PUB.Count_And_Get
1641: ( p_count => x_msg_count
1642: , p_data => x_msg_data
1643: );
1640: FND_MSG_PUB.Count_And_Get
1641: ( p_count => x_msg_count
1642: , p_data => x_msg_data
1643: );
1644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1646: x_result_out := FND_API.G_FALSE;
1647: FND_MSG_PUB.Count_And_Get
1648: ( p_count => x_msg_count
1641: ( p_count => x_msg_count
1642: , p_data => x_msg_data
1643: );
1644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1646: x_result_out := FND_API.G_FALSE;
1647: FND_MSG_PUB.Count_And_Get
1648: ( p_count => x_msg_count
1649: , p_data => x_msg_data
1642: , p_data => x_msg_data
1643: );
1644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1646: x_result_out := FND_API.G_FALSE;
1647: FND_MSG_PUB.Count_And_Get
1648: ( p_count => x_msg_count
1649: , p_data => x_msg_data
1650: );
1648: ( p_count => x_msg_count
1649: , p_data => x_msg_data
1650: );
1651: WHEN OTHERS THEN
1652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1653: x_result_out := FND_API.G_FALSE;
1654: IF FND_MSG_PUB.Check_Msg_Level
1655: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1656: THEN
1649: , p_data => x_msg_data
1650: );
1651: WHEN OTHERS THEN
1652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1653: x_result_out := FND_API.G_FALSE;
1654: IF FND_MSG_PUB.Check_Msg_Level
1655: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1656: THEN
1657: FND_MSG_PUB.Add_Exc_Msg
1684: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1685: --
1686: BEGIN
1687: -- Initialize API return status to success
1688: x_return_status := FND_API.G_RET_STS_SUCCESS;
1689:
1690: -- Initialize result to TRUE i.e. holds are found
1691: x_hold_rec.x_result_out := FND_API.G_TRUE;
1692:
1687: -- Initialize API return status to success
1688: x_return_status := FND_API.G_RET_STS_SUCCESS;
1689:
1690: -- Initialize result to TRUE i.e. holds are found
1691: x_hold_rec.x_result_out := FND_API.G_TRUE;
1692:
1693: BEGIN
1694:
1695: SELECT 'ANY_LINE_HOLD'
1727: AND NVL(hs.hold_entity_id2, -99) =
1728: NVL(x_hold_rec.hold_entity_id2, NVL(hs.hold_entity_id2, -99 )) );
1729: EXCEPTION
1730: WHEN NO_DATA_FOUND THEN
1731: x_hold_rec.x_result_out := FND_API.G_FALSE;
1732: IF l_debug_level > 0 THEN
1733: oe_debug_pub.add( 'NO HOLDS FOUND FOR ANY OF THE LINES' ) ;
1734: END IF;
1735: WHEN TOO_MANY_ROWS THEN
1737: END;
1738:
1739:
1740: EXCEPTION
1741: WHEN FND_API.G_EXC_ERROR THEN
1742: x_return_status := FND_API.G_RET_STS_ERROR;
1743: x_hold_rec.x_result_out := FND_API.G_FALSE;
1744: FND_MSG_PUB.Count_And_Get
1745: ( p_count => x_msg_count
1738:
1739:
1740: EXCEPTION
1741: WHEN FND_API.G_EXC_ERROR THEN
1742: x_return_status := FND_API.G_RET_STS_ERROR;
1743: x_hold_rec.x_result_out := FND_API.G_FALSE;
1744: FND_MSG_PUB.Count_And_Get
1745: ( p_count => x_msg_count
1746: , p_data => x_msg_data
1739:
1740: EXCEPTION
1741: WHEN FND_API.G_EXC_ERROR THEN
1742: x_return_status := FND_API.G_RET_STS_ERROR;
1743: x_hold_rec.x_result_out := FND_API.G_FALSE;
1744: FND_MSG_PUB.Count_And_Get
1745: ( p_count => x_msg_count
1746: , p_data => x_msg_data
1747: );
1744: FND_MSG_PUB.Count_And_Get
1745: ( p_count => x_msg_count
1746: , p_data => x_msg_data
1747: );
1748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1750: x_hold_rec.x_result_out := FND_API.G_FALSE;
1751: FND_MSG_PUB.Count_And_Get
1752: ( p_count => x_msg_count
1745: ( p_count => x_msg_count
1746: , p_data => x_msg_data
1747: );
1748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1750: x_hold_rec.x_result_out := FND_API.G_FALSE;
1751: FND_MSG_PUB.Count_And_Get
1752: ( p_count => x_msg_count
1753: , p_data => x_msg_data
1746: , p_data => x_msg_data
1747: );
1748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1750: x_hold_rec.x_result_out := FND_API.G_FALSE;
1751: FND_MSG_PUB.Count_And_Get
1752: ( p_count => x_msg_count
1753: , p_data => x_msg_data
1754: );
1752: ( p_count => x_msg_count
1753: , p_data => x_msg_data
1754: );
1755: WHEN OTHERS THEN
1756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1757: x_hold_rec.x_result_out := FND_API.G_FALSE;
1758: IF FND_MSG_PUB.Check_Msg_Level
1759: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1760: THEN
1753: , p_data => x_msg_data
1754: );
1755: WHEN OTHERS THEN
1756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1757: x_hold_rec.x_result_out := FND_API.G_FALSE;
1758: IF FND_MSG_PUB.Check_Msg_Level
1759: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1760: THEN
1761: FND_MSG_PUB.Add_Exc_Msg
1782: -- if included item flag is set appropriately in the hold definition.
1783: ------------------------------------------------------------------------
1784: PROCEDURE Check_Holds
1785: ( p_api_version IN NUMBER
1786: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1787: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1788: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1789: , p_header_id IN NUMBER DEFAULT NULL
1790: , p_line_id IN NUMBER DEFAULT NULL
1783: ------------------------------------------------------------------------
1784: PROCEDURE Check_Holds
1785: ( p_api_version IN NUMBER
1786: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1787: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1788: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1789: , p_header_id IN NUMBER DEFAULT NULL
1790: , p_line_id IN NUMBER DEFAULT NULL
1791: , p_hold_id IN NUMBER DEFAULT NULL
1784: PROCEDURE Check_Holds
1785: ( p_api_version IN NUMBER
1786: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1787: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1788: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1789: , p_header_id IN NUMBER DEFAULT NULL
1790: , p_line_id IN NUMBER DEFAULT NULL
1791: , p_hold_id IN NUMBER DEFAULT NULL
1792: , p_wf_item IN VARCHAR2 DEFAULT NULL
1841: oe_debug_pub.add( 'IN OE_HOLDS_PUB.CHECK_HOLDS' ) ;
1842: END IF;
1843:
1844: -- Initialize API return status to success
1845: x_return_status := FND_API.G_RET_STS_SUCCESS;
1846:
1847: -- Initialize result to TRUE i.e. holds are found
1848: x_result_out := FND_API.G_TRUE;
1849:
1844: -- Initialize API return status to success
1845: x_return_status := FND_API.G_RET_STS_SUCCESS;
1846:
1847: -- Initialize result to TRUE i.e. holds are found
1848: x_result_out := FND_API.G_TRUE;
1849:
1850: -- Check for Missing Input Parameters
1851: IF p_header_id IS NULL AND p_line_id IS NULL THEN
1852:
1851: IF p_header_id IS NULL AND p_line_id IS NULL THEN
1852:
1853: FND_MESSAGE.SET_NAME('ONT', 'OE_ENTER_HEADER_OR_LINE_ID');
1854: OE_MSG_PUB.ADD;
1855: RAISE FND_API.G_EXC_ERROR;
1856:
1857: END IF;
1858:
1859: /*
1871: FROM oe_order_lines_all
1872: WHERE line_id = p_line_id;
1873: EXCEPTION
1874: WHEN NO_DATA_FOUND THEN
1875: x_result_out := FND_API.G_FALSE;
1876: IF l_debug_level > 0 THEN
1877: oe_debug_pub.add( 'LINE ID DOES NOT EXISTS OR IS INVALID - 1: ' || P_LINE_ID ) ;
1878: END IF;
1879: End;
1894: FROM oe_order_headers_all
1895: WHERE header_id=p_hdr_id;
1896: EXCEPTION
1897: WHEN NO_DATA_FOUND THEN
1898: x_result_out := FND_API.G_FALSE;
1899: END;
1900: END IF;
1901:
1902: l_cascade_hold_non_smc := NVL(OE_SYS_PARAMETERS.VALUE('ONT_CASCADE_HOLD_NONSMC_PTO',l_org_id),'N');
1942: nvl(p_entity_id2, NVL(hs.hold_entity_id2, -99 )) );
1943:
1944: EXCEPTION
1945: WHEN NO_DATA_FOUND THEN
1946: x_result_out := FND_API.G_FALSE;
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add( 'NO HOLDS FOUND FOR HEADER ID: ' || P_HDR_ID ) ;
1949: END IF;
1950: WHEN TOO_MANY_ROWS THEN
1951: null;
1952: END;
1953:
1954: -- Return TRUE if Header Level Hold exists
1955: IF x_result_out = FND_API.G_TRUE THEN
1956: IF l_debug_level > 0 THEN
1957: oe_debug_pub.add( 'HEADER LEVEL HOLD EXISTS' ) ;
1958: END IF;
1959: RETURN;
1979: ,x_msg_data => l_msg_data
1980: );
1981:
1982: -- Raise if the l_return_status is unexpected error
1983: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1984: IF l_debug_level > 0 THEN
1985: oe_debug_pub.add('Check_Holds_line:G_RET_STS_ERROR') ;
1986: END IF;
1987: RAISE FND_API.G_EXC_ERROR;
1983: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1984: IF l_debug_level > 0 THEN
1985: oe_debug_pub.add('Check_Holds_line:G_RET_STS_ERROR') ;
1986: END IF;
1987: RAISE FND_API.G_EXC_ERROR;
1988: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1989: THEN
1990: IF l_debug_level > 0 THEN
1991: oe_debug_pub.add('Check_Holds_line:G_RET_STS_UNEXP_ERROR') ;
1984: IF l_debug_level > 0 THEN
1985: oe_debug_pub.add('Check_Holds_line:G_RET_STS_ERROR') ;
1986: END IF;
1987: RAISE FND_API.G_EXC_ERROR;
1988: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1989: THEN
1990: IF l_debug_level > 0 THEN
1991: oe_debug_pub.add('Check_Holds_line:G_RET_STS_UNEXP_ERROR') ;
1992: END IF;
1989: THEN
1990: IF l_debug_level > 0 THEN
1991: oe_debug_pub.add('Check_Holds_line:G_RET_STS_UNEXP_ERROR') ;
1992: END IF;
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995:
1996: /* Proceed only if there is no hold on the line */
1997: IF x_result_out = FND_API.G_FALSE THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995:
1996: /* Proceed only if there is no hold on the line */
1997: IF x_result_out = FND_API.G_FALSE THEN
1998:
1999: /* Check to see if the line is a part of ATO model, SMC, etc. */
2000: BEGIN
2001: IF l_debug_level > 0 THEN
2009: FROM oe_order_lines_all
2010: WHERE line_id = p_line_id;
2011: EXCEPTION
2012: WHEN NO_DATA_FOUND THEN
2013: x_result_out := FND_API.G_FALSE;
2014: IF l_debug_level > 0 THEN
2015: oe_debug_pub.add( 'LINE ID DOES NOT EXISTS OR IS INVALID - 2: ' || P_LINE_ID ) ;
2016: END IF;
2017: END;
2028: END IF;
2029: END IF;
2030:
2031: /* If Line is part of ATO Model */
2032: IF l_ato_line_id is NOT NULL AND x_result_out = FND_API.G_FALSE AND
2033: NOT (l_ato_line_id = p_line_id AND l_item_type_code = OE_GLOBALS.G_ITEM_OPTION) THEN
2034:
2035: IF l_debug_level > 0 THEN
2036: oe_debug_pub.add( 'CHECK_HOLDS:ATO MODEL LINE: ' || L_ATO_LINE_ID ) ;
2039: /*
2040: ** Fix Bug # 2984023
2041: ** Following replaced by a single call to Check_Holds_ATO
2042:
2043: x_result_out := FND_API.G_FALSE;
2044:
2045: OPEN ato_model_lines;
2046: loop
2047: FETCH ato_model_lines into l_line_id;
2045: OPEN ato_model_lines;
2046: loop
2047: FETCH ato_model_lines into l_line_id;
2048: exit when ato_model_lines%NOTFOUND OR
2049: (x_result_out = FND_API.G_TRUE);
2050: IF l_debug_level > 0 THEN
2051: oe_debug_pub.add( 'CHECK_HOLDS:CHECKING LINEID' || L_LINE_ID ) ;
2052: END IF;
2053:
2086: ,x_msg_count => l_msg_count
2087: ,x_msg_data => l_msg_data
2088: );
2089: -- Raise if the l_return_status is unexpected error
2090: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2091: IF l_debug_level > 0 THEN
2092: oe_debug_pub.add('Check_Holds_ATO:G_RET_STS_ERROR') ;
2093: END IF;
2094: RAISE FND_API.G_EXC_ERROR;
2090: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2091: IF l_debug_level > 0 THEN
2092: oe_debug_pub.add('Check_Holds_ATO:G_RET_STS_ERROR') ;
2093: END IF;
2094: RAISE FND_API.G_EXC_ERROR;
2095: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2096: IF l_debug_level > 0 THEN
2097: oe_debug_pub.add('Check_Holds_ATO:G_RET_STS_UNEXP_ERROR') ;
2098: END IF;
2091: IF l_debug_level > 0 THEN
2092: oe_debug_pub.add('Check_Holds_ATO:G_RET_STS_ERROR') ;
2093: END IF;
2094: RAISE FND_API.G_EXC_ERROR;
2095: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2096: IF l_debug_level > 0 THEN
2097: oe_debug_pub.add('Check_Holds_ATO:G_RET_STS_UNEXP_ERROR') ;
2098: END IF;
2099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2095: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2096: IF l_debug_level > 0 THEN
2097: oe_debug_pub.add('Check_Holds_ATO:G_RET_STS_UNEXP_ERROR') ;
2098: END IF;
2099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2100: END IF;
2101:
2102: END IF; /* l_ato_line_id is NOT NULL */
2103:
2100: END IF;
2101:
2102: END IF; /* l_ato_line_id is NOT NULL */
2103:
2104: IF NVL(l_smc_flag, 'N') = 'Y' AND x_result_out = FND_API.G_FALSE THEN
2105:
2106: IF l_debug_level > 0 THEN
2107: oe_debug_pub.add( 'CHECK_HOLDS:TOP MODEL LINE ID: ' || L_TOP_MODEL_LINE_ID ) ;
2108: END IF;
2114: OPEN smc_lines;
2115: loop
2116:
2117: FETCH smc_lines into l_line_id;
2118: exit when smc_lines%NOTFOUND OR (x_result_out = FND_API.G_TRUE);
2119:
2120: IF l_debug_level > 0 THEN
2121: oe_debug_pub.add( 'CHECK_HOLDS: CHECKING SMC LINEID' || L_LINE_ID ) ;
2122: END IF;
2156: ,x_msg_count => l_msg_count
2157: ,x_msg_data => l_msg_data
2158: );
2159: -- Raise if the l_return_status is unexpected error
2160: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2161: IF l_debug_level > 0 THEN
2162: oe_debug_pub.add('Check_Holds_SMC:G_RET_STS_ERROR') ;
2163: END IF;
2164: RAISE FND_API.G_EXC_ERROR;
2160: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2161: IF l_debug_level > 0 THEN
2162: oe_debug_pub.add('Check_Holds_SMC:G_RET_STS_ERROR') ;
2163: END IF;
2164: RAISE FND_API.G_EXC_ERROR;
2165: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2166: IF l_debug_level > 0 THEN
2167: oe_debug_pub.add('Check_Holds_SMC:G_RET_STS_UNEXP_ERROR') ;
2168: END IF;
2161: IF l_debug_level > 0 THEN
2162: oe_debug_pub.add('Check_Holds_SMC:G_RET_STS_ERROR') ;
2163: END IF;
2164: RAISE FND_API.G_EXC_ERROR;
2165: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2166: IF l_debug_level > 0 THEN
2167: oe_debug_pub.add('Check_Holds_SMC:G_RET_STS_UNEXP_ERROR') ;
2168: END IF;
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2165: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2166: IF l_debug_level > 0 THEN
2167: oe_debug_pub.add('Check_Holds_SMC:G_RET_STS_UNEXP_ERROR') ;
2168: END IF;
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2170: END IF;
2171:
2172: END IF; /* l_smc_flag = 'Y' */
2173: --5737464
2170: END IF;
2171:
2172: END IF; /* l_smc_flag = 'Y' */
2173: --5737464
2174: IF NVL(l_smc_flag, 'N') = 'N' AND x_result_out = FND_API.G_FALSE THEN
2175: IF l_debug_level > 0 THEN
2176: oe_debug_pub.add( 'CHECK_HOLDS: CHECKING FOR CONFIG VALIDATION HOLD' || L_TOP_MODEL_LINE_ID ) ;
2177: END IF;
2178: IF l_cascade_hold_non_smc <> 'Y' THEN --ER#7479609
2215:
2216: END IF;--NON SMC Config Validation Hold
2217: --5737464
2218:
2219: IF l_item_type_code = OE_GLOBALS.G_ITEM_INCLUDED AND x_result_out = FND_API.G_FALSE THEN
2220:
2221: IF l_debug_level > 0 THEN
2222: oe_debug_pub.add( 'CHECK_HOLDS: CHECKING HOLD ON LINK TO LINE ID: ' || L_LINK_TO_LINE_ID ) ;
2223: END IF;
2239: ,x_msg_count => l_msg_count
2240: ,x_msg_data => l_msg_data
2241: );
2242: -- Raise if the l_return_status is unexpected error
2243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add('Check_Holds_line:G_RET_STS_ERROR') ;
2246: END IF;
2247: RAISE FND_API.G_EXC_ERROR;
2243: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add('Check_Holds_line:G_RET_STS_ERROR') ;
2246: END IF;
2247: RAISE FND_API.G_EXC_ERROR;
2248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2249: IF l_debug_level > 0 THEN
2250: oe_debug_pub.add('Check_Holds_line:G_RET_STS_UNEXP_ERROR') ;
2251: END IF;
2244: IF l_debug_level > 0 THEN
2245: oe_debug_pub.add('Check_Holds_line:G_RET_STS_ERROR') ;
2246: END IF;
2247: RAISE FND_API.G_EXC_ERROR;
2248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2249: IF l_debug_level > 0 THEN
2250: oe_debug_pub.add('Check_Holds_line:G_RET_STS_UNEXP_ERROR') ;
2251: END IF;
2252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2249: IF l_debug_level > 0 THEN
2250: oe_debug_pub.add('Check_Holds_line:G_RET_STS_UNEXP_ERROR') ;
2251: END IF;
2252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2253: END IF;
2254:
2255: END IF; /* l_item_type_code = 'INCLUDED' */
2256:
2262: oe_debug_pub.add( 'EXITING OE_HOLDS_PUB.CHECK_HOLDS' ) ;
2263: END IF;
2264:
2265: EXCEPTION
2266: WHEN FND_API.G_EXC_ERROR THEN
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: x_result_out := FND_API.G_FALSE;
2269: FND_MSG_PUB.Count_And_Get
2270: ( p_count => x_msg_count
2263: END IF;
2264:
2265: EXCEPTION
2266: WHEN FND_API.G_EXC_ERROR THEN
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: x_result_out := FND_API.G_FALSE;
2269: FND_MSG_PUB.Count_And_Get
2270: ( p_count => x_msg_count
2271: , p_data => x_msg_data
2264:
2265: EXCEPTION
2266: WHEN FND_API.G_EXC_ERROR THEN
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: x_result_out := FND_API.G_FALSE;
2269: FND_MSG_PUB.Count_And_Get
2270: ( p_count => x_msg_count
2271: , p_data => x_msg_data
2272: );
2269: FND_MSG_PUB.Count_And_Get
2270: ( p_count => x_msg_count
2271: , p_data => x_msg_data
2272: );
2273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2275: x_result_out := FND_API.G_FALSE;
2276: FND_MSG_PUB.Count_And_Get
2277: ( p_count => x_msg_count
2270: ( p_count => x_msg_count
2271: , p_data => x_msg_data
2272: );
2273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2275: x_result_out := FND_API.G_FALSE;
2276: FND_MSG_PUB.Count_And_Get
2277: ( p_count => x_msg_count
2278: , p_data => x_msg_data
2271: , p_data => x_msg_data
2272: );
2273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2275: x_result_out := FND_API.G_FALSE;
2276: FND_MSG_PUB.Count_And_Get
2277: ( p_count => x_msg_count
2278: , p_data => x_msg_data
2279: );
2277: ( p_count => x_msg_count
2278: , p_data => x_msg_data
2279: );
2280: WHEN OTHERS THEN
2281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2282: x_result_out := FND_API.G_FALSE;
2283: IF FND_MSG_PUB.Check_Msg_Level
2284: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2285: THEN
2278: , p_data => x_msg_data
2279: );
2280: WHEN OTHERS THEN
2281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2282: x_result_out := FND_API.G_FALSE;
2283: IF FND_MSG_PUB.Check_Msg_Level
2284: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2285: THEN
2286: FND_MSG_PUB.Add_Exc_Msg
2302: * Expects at least the hold_entity_code or hold_entity_id *
2303: ******************************************************************/
2304: PROCEDURE Check_Hold_Sources
2305: ( p_api_version IN NUMBER
2306: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2307: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
2308: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2309: , p_hold_id IN NUMBER DEFAULT NULL
2310: , p_wf_item IN VARCHAR2 DEFAULT NULL
2303: ******************************************************************/
2304: PROCEDURE Check_Hold_Sources
2305: ( p_api_version IN NUMBER
2306: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2307: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
2308: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2309: , p_hold_id IN NUMBER DEFAULT NULL
2310: , p_wf_item IN VARCHAR2 DEFAULT NULL
2311: , p_wf_activity IN VARCHAR2 DEFAULT NULL
2304: PROCEDURE Check_Hold_Sources
2305: ( p_api_version IN NUMBER
2306: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2307: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
2308: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2309: , p_hold_id IN NUMBER DEFAULT NULL
2310: , p_wf_item IN VARCHAR2 DEFAULT NULL
2311: , p_wf_activity IN VARCHAR2 DEFAULT NULL
2312: , p_hold_entity_code IN VARCHAR2 DEFAULT NULL
2337: IF l_debug_level > 0 THEN
2338: oe_debug_pub.add( 'IN OE_HOLDS_PUB.CHECK_HOLD_SOURCES' ) ;
2339: END IF;
2340: -- Initialize API return status to success
2341: x_return_status := FND_API.G_RET_STS_SUCCESS;
2342:
2343: -- Initialize result to TRUE i.e. holds are found
2344: x_result_out := FND_API.G_TRUE;
2345:
2340: -- Initialize API return status to success
2341: x_return_status := FND_API.G_RET_STS_SUCCESS;
2342:
2343: -- Initialize result to TRUE i.e. holds are found
2344: x_result_out := FND_API.G_TRUE;
2345:
2346:
2347: -- Check for Missing Input Parameters
2348: IF p_hold_entity_code IS NULL AND p_hold_entity_id IS NULL THEN
2351: END IF;
2352: /* TO_DO: Seed a more meaningfull message */
2353: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ENTITY_CONBINATION');
2354: OE_MSG_PUB.ADD;
2355: RAISE FND_API.G_EXC_ERROR;
2356:
2357: END IF;
2358:
2359: /******************************/
2389: nvl(p_hold_entity_id2, NVL(hs.hold_entity_id2, -99 ) );
2390:
2391: EXCEPTION
2392: WHEN NO_DATA_FOUND THEN
2393: x_result_out := FND_API.G_FALSE;
2394: WHEN TOO_MANY_ROWS THEN
2395: null;
2396: END;
2397:
2396: END;
2397:
2398:
2399: EXCEPTION
2400: WHEN FND_API.G_EXC_ERROR THEN
2401: x_return_status := FND_API.G_RET_STS_ERROR;
2402: x_result_out := FND_API.G_FALSE;
2403: FND_MSG_PUB.Count_And_Get
2404: ( p_count => x_msg_count
2397:
2398:
2399: EXCEPTION
2400: WHEN FND_API.G_EXC_ERROR THEN
2401: x_return_status := FND_API.G_RET_STS_ERROR;
2402: x_result_out := FND_API.G_FALSE;
2403: FND_MSG_PUB.Count_And_Get
2404: ( p_count => x_msg_count
2405: , p_data => x_msg_data
2398:
2399: EXCEPTION
2400: WHEN FND_API.G_EXC_ERROR THEN
2401: x_return_status := FND_API.G_RET_STS_ERROR;
2402: x_result_out := FND_API.G_FALSE;
2403: FND_MSG_PUB.Count_And_Get
2404: ( p_count => x_msg_count
2405: , p_data => x_msg_data
2406: );
2403: FND_MSG_PUB.Count_And_Get
2404: ( p_count => x_msg_count
2405: , p_data => x_msg_data
2406: );
2407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2409: x_result_out := FND_API.G_FALSE;
2410: FND_MSG_PUB.Count_And_Get
2411: ( p_count => x_msg_count
2404: ( p_count => x_msg_count
2405: , p_data => x_msg_data
2406: );
2407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2409: x_result_out := FND_API.G_FALSE;
2410: FND_MSG_PUB.Count_And_Get
2411: ( p_count => x_msg_count
2412: , p_data => x_msg_data
2405: , p_data => x_msg_data
2406: );
2407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2409: x_result_out := FND_API.G_FALSE;
2410: FND_MSG_PUB.Count_And_Get
2411: ( p_count => x_msg_count
2412: , p_data => x_msg_data
2413: );
2411: ( p_count => x_msg_count
2412: , p_data => x_msg_data
2413: );
2414: WHEN OTHERS THEN
2415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2416: x_result_out := FND_API.G_FALSE;
2417: IF FND_MSG_PUB.Check_Msg_Level
2418: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2419: THEN
2412: , p_data => x_msg_data
2413: );
2414: WHEN OTHERS THEN
2415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2416: x_result_out := FND_API.G_FALSE;
2417: IF FND_MSG_PUB.Check_Msg_Level
2418: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2419: THEN
2420: FND_MSG_PUB.Add_Exc_Msg
2441: -- ALL NEW Callers should call the new api structure
2442: --------------------------------------------------------------------------
2443: PROCEDURE Release_Holds
2444: ( p_api_version IN NUMBER DEFAULT 1.0
2445: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2446: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
2447: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2448: , p_header_id IN NUMBER DEFAULT NULL
2449: , p_line_id IN NUMBER DEFAULT NULL
2442: --------------------------------------------------------------------------
2443: PROCEDURE Release_Holds
2444: ( p_api_version IN NUMBER DEFAULT 1.0
2445: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2446: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
2447: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2448: , p_header_id IN NUMBER DEFAULT NULL
2449: , p_line_id IN NUMBER DEFAULT NULL
2450: , p_hold_id IN NUMBER DEFAULT NULL
2443: PROCEDURE Release_Holds
2444: ( p_api_version IN NUMBER DEFAULT 1.0
2445: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2446: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
2447: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2448: , p_header_id IN NUMBER DEFAULT NULL
2449: , p_line_id IN NUMBER DEFAULT NULL
2450: , p_hold_id IN NUMBER DEFAULT NULL
2451: , p_entity_code IN VARCHAR2 DEFAULT NULL
2509: l_org_id := MO_GLOBAL.get_current_org_id;
2510: IF l_org_id IS NULL THEN
2511: -- org_id is null, raise an error.
2512: oe_debug_pub.add('Org_Id is NULL',1);
2513: x_return_status := FND_API.G_RET_STS_ERROR;
2514: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
2515: FND_MSG_PUB.ADD;
2516: RAISE FND_API.G_EXC_ERROR;
2517: END IF;
2512: oe_debug_pub.add('Org_Id is NULL',1);
2513: x_return_status := FND_API.G_RET_STS_ERROR;
2514: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
2515: FND_MSG_PUB.ADD;
2516: RAISE FND_API.G_EXC_ERROR;
2517: END IF;
2518:
2519: -- Standard Start of API savepoint
2520: SAVEPOINT Release_holds_PUB;
2519: -- Standard Start of API savepoint
2520: SAVEPOINT Release_holds_PUB;
2521:
2522: -- Initialize API return status to success
2523: x_return_status := FND_API.G_RET_STS_SUCCESS;
2524:
2525:
2526: Utilities(l_user_id);
2527:
2547: EXCEPTION
2548: WHEN NO_DATA_FOUND THEN
2549: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_HOLD_SOURCE');
2550: OE_MSG_PUB.ADD;
2551: RAISE FND_API.G_EXC_ERROR;
2552: WHEN OTHERS THEN
2553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2554: END;
2555:
2549: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_HOLD_SOURCE');
2550: OE_MSG_PUB.ADD;
2551: RAISE FND_API.G_EXC_ERROR;
2552: WHEN OTHERS THEN
2553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2554: END;
2555:
2556: -- Retrieving order hold information
2557: OPEN order_hold;
2558: FETCH order_hold INTO l_order_hold_id;
2559: IF order_hold%notfound THEN
2560: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_HOLD');
2561: OE_MSG_PUB.ADD;
2562: RAISE FND_API.G_EXC_ERROR;
2563: END IF;
2564: CLOSE order_hold;
2565:
2566: -------------------------------------------------------------------
2575: -- Check for Missing Values
2576: IF p_hold_id IS NULL THEN
2577: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_HOLD_ID');
2578: OE_MSG_PUB.ADD;
2579: RAISE FND_API.G_EXC_ERROR;
2580: END IF;
2581:
2582: IF p_entity_code IS NULL THEN
2583: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_ENTITY_CODE');
2581:
2582: IF p_entity_code IS NULL THEN
2583: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_ENTITY_CODE');
2584: OE_MSG_PUB.ADD;
2585: RAISE FND_API.G_EXC_ERROR;
2586: ELSE
2587: l_entity_code := p_entity_code;
2588: END IF;
2589:
2589:
2590: IF p_entity_id IS NULL THEN
2591: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_ENTITY_ID');
2592: OE_MSG_PUB.ADD;
2593: RAISE FND_API.G_EXC_ERROR;
2594: END IF;
2595:
2596: /*
2597: IF p_line_id IS NULL AND p_header_id IS NULL THEN
2596: /*
2597: IF p_line_id IS NULL AND p_header_id IS NULL THEN
2598: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_HEADER_AND_LINE_ID');
2599: OE_MSG_PUB.ADD;
2600: RAISE FND_API.G_EXC_ERROR;
2601: END IF;
2602: */
2603:
2604: -- Retrieving hold source and order hold information
2607: FETCH hold_source INTO l_hold_source_id, l_order_hold_id;
2608: IF hold_source%notfound THEN
2609: FND_MESSAGE.SET_NAME('ONT', 'OE_MISSING_HOLD');
2610: OE_MSG_PUB.ADD;
2611: RAISE FND_API.G_EXC_ERROR;
2612: END IF;
2613: CLOSE hold_source;
2614: */
2615:
2645: IF l_debug_level > 0 THEN
2646: oe_debug_pub.add( 'OE_HOLDS_PVT.RELEASE_HOLDS STATUS:' || X_RETURN_STATUS ) ;
2647: END IF;
2648:
2649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2650: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2651: RAISE FND_API.G_EXC_ERROR;
2652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2646: oe_debug_pub.add( 'OE_HOLDS_PVT.RELEASE_HOLDS STATUS:' || X_RETURN_STATUS ) ;
2647: END IF;
2648:
2649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2650: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2651: RAISE FND_API.G_EXC_ERROR;
2652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: END IF;
2647: END IF;
2648:
2649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2650: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2651: RAISE FND_API.G_EXC_ERROR;
2652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: END IF;
2655: END IF;
2648:
2649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2650: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2651: RAISE FND_API.G_EXC_ERROR;
2652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: END IF;
2655: END IF;
2656:
2649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2650: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2651: RAISE FND_API.G_EXC_ERROR;
2652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2654: END IF;
2655: END IF;
2656:
2657: EXCEPTION
2654: END IF;
2655: END IF;
2656:
2657: EXCEPTION
2658: WHEN FND_API.G_EXC_ERROR THEN
2659: ROLLBACK TO RELEASE_HOLDS_PUB;
2660: x_return_status := FND_API.G_RET_STS_ERROR;
2661: FND_MSG_PUB.Count_And_Get
2662: ( p_count => x_msg_count
2656:
2657: EXCEPTION
2658: WHEN FND_API.G_EXC_ERROR THEN
2659: ROLLBACK TO RELEASE_HOLDS_PUB;
2660: x_return_status := FND_API.G_RET_STS_ERROR;
2661: FND_MSG_PUB.Count_And_Get
2662: ( p_count => x_msg_count
2663: , p_data => x_msg_data
2664: );
2661: FND_MSG_PUB.Count_And_Get
2662: ( p_count => x_msg_count
2663: , p_data => x_msg_data
2664: );
2665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2666: ROLLBACK TO RELEASE_HOLDS_PUB;
2667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2668: FND_MSG_PUB.Count_And_Get
2669: ( p_count => x_msg_count
2663: , p_data => x_msg_data
2664: );
2665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2666: ROLLBACK TO RELEASE_HOLDS_PUB;
2667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2668: FND_MSG_PUB.Count_And_Get
2669: ( p_count => x_msg_count
2670: , p_data => x_msg_data
2671: );
2670: , p_data => x_msg_data
2671: );
2672: WHEN OTHERS THEN
2673: ROLLBACK TO RELEASE_HOLDS_PUB;
2674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2675: IF FND_MSG_PUB.Check_Msg_Level
2676: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2677: THEN
2678: FND_MSG_PUB.Add_Exc_Msg
2698: -- not used by an existing hold or hold source, then deletes the
2699: -- release record also from OE_HOLD_RELEASES;
2700: ----------------------------------------------------------------------------
2701: PROCEDURE Delete_Holds
2702: ( p_header_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
2703: ,p_line_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
2704: )
2705: IS
2706: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_HOLDS';
2699: -- release record also from OE_HOLD_RELEASES;
2700: ----------------------------------------------------------------------------
2701: PROCEDURE Delete_Holds
2702: ( p_header_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
2703: ,p_line_id IN NUMBER DEFAULT FND_API.G_MISS_NUM
2704: )
2705: IS
2706: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_HOLDS';
2707: l_api_version CONSTANT NUMBER := 1.0;
2748: l_org_id := MO_GLOBAL.get_current_org_id;
2749: IF l_org_id IS NULL THEN
2750: -- org_id is null, raise an error.
2751: oe_debug_pub.add('Org_Id is NULL',1);
2752: x_return_status := FND_API.G_RET_STS_ERROR;
2753: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
2754: FND_MSG_PUB.ADD;
2755: RAISE FND_API.G_EXC_ERROR;
2756: END IF;
2751: oe_debug_pub.add('Org_Id is NULL',1);
2752: x_return_status := FND_API.G_RET_STS_ERROR;
2753: FND_MESSAGE.SET_NAME('FND','MO_ORG_REQUIRED');
2754: FND_MSG_PUB.ADD;
2755: RAISE FND_API.G_EXC_ERROR;
2756: END IF;
2757:
2758: --SAVEPOINT DELETE_HOLDS_PUB;
2759:
2757:
2758: --SAVEPOINT DELETE_HOLDS_PUB;
2759:
2760: -- Initialize API return status to success
2761: x_return_status := FND_API.G_RET_STS_SUCCESS;
2762:
2763: -- Missing Input arguments
2764:
2765: IF (p_header_id = FND_API.G_MISS_NUM AND
2761: x_return_status := FND_API.G_RET_STS_SUCCESS;
2762:
2763: -- Missing Input arguments
2764:
2765: IF (p_header_id = FND_API.G_MISS_NUM AND
2766: p_line_id = FND_API.G_MISS_NUM) THEN
2767:
2768: FND_MESSAGE.SET_NAME('ONT', 'OE_ENTER_HEADER_OR_LINE_ID');
2769: OE_MSG_PUB.ADD;
2762:
2763: -- Missing Input arguments
2764:
2765: IF (p_header_id = FND_API.G_MISS_NUM AND
2766: p_line_id = FND_API.G_MISS_NUM) THEN
2767:
2768: FND_MESSAGE.SET_NAME('ONT', 'OE_ENTER_HEADER_OR_LINE_ID');
2769: OE_MSG_PUB.ADD;
2770: RAISE FND_API.G_EXC_ERROR;
2766: p_line_id = FND_API.G_MISS_NUM) THEN
2767:
2768: FND_MESSAGE.SET_NAME('ONT', 'OE_ENTER_HEADER_OR_LINE_ID');
2769: OE_MSG_PUB.ADD;
2770: RAISE FND_API.G_EXC_ERROR;
2771:
2772: END IF;
2773:
2774: -- Delete the hold records corr. to this order or line in OE_ORDER_HOLDS
2771:
2772: END IF;
2773:
2774: -- Delete the hold records corr. to this order or line in OE_ORDER_HOLDS
2775: IF p_line_id = FND_API.G_MISS_NUM THEN
2776:
2777: -- Delete order hold records
2778: OPEN order_hold;
2779: LOOP
2904: END IF;
2905:
2906:
2907: EXCEPTION
2908: WHEN FND_API.G_EXC_ERROR THEN
2909: IF (order_hold%isopen) THEN
2910: CLOSE order_hold;
2911: END IF;
2912: IF (hold_source%isopen) THEN
2915: IF (line_hold%isopen) THEN
2916: CLOSE line_hold;
2917: END IF;
2918: --ROLLBACK TO DELETE_HOLDS_PUB;
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: FND_MSG_PUB.Count_And_Get
2921: ( p_count => x_msg_count
2922: , p_data => x_msg_data
2923: );
2931: IF (line_hold%isopen) THEN
2932: CLOSE line_hold;
2933: END IF;
2934: --ROLLBACK TO DELETE_HOLDS_PUB;
2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2936: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2937: THEN
2938: FND_MSG_PUB.Add_Exc_Msg
2939: ( G_PKG_NAME
3011: --ER#7479609 SELECT HS.hold_entity_id, OH.order_hold_id
3012: SELECT HS.hold_entity_id, OH.order_hold_id,HS.hold_entity_code --ER#7479609
3013: FROM OE_HOLD_SOURCES HS, OE_ORDER_HOLDS OH
3014: WHERE OH.HEADER_ID = l_header_id
3015: AND NVL(OH.LINE_ID,FND_API.G_MISS_NUM) =
3016: NVL(l_line_id,FND_API.G_MISS_NUM)
3017: AND OH.HOLD_SOURCE_ID = HS.HOLD_SOURCE_ID
3018: AND HS.HOLD_ENTITY_ID = DECODE(l_all_del_pay,'N',p_hold_entity_id,HS.HOLD_ENTITY_ID) --ER#7479609
3019: --AND HS.HOLD_ENTITY_CODE = p_hold_entity_code -- ER#3667551
3012: SELECT HS.hold_entity_id, OH.order_hold_id,HS.hold_entity_code --ER#7479609
3013: FROM OE_HOLD_SOURCES HS, OE_ORDER_HOLDS OH
3014: WHERE OH.HEADER_ID = l_header_id
3015: AND NVL(OH.LINE_ID,FND_API.G_MISS_NUM) =
3016: NVL(l_line_id,FND_API.G_MISS_NUM)
3017: AND OH.HOLD_SOURCE_ID = HS.HOLD_SOURCE_ID
3018: AND HS.HOLD_ENTITY_ID = DECODE(l_all_del_pay,'N',p_hold_entity_id,HS.HOLD_ENTITY_ID) --ER#7479609
3019: --AND HS.HOLD_ENTITY_CODE = p_hold_entity_code -- ER#3667551
3020: AND HS.HOLD_ENTITY_CODE = NVL(l_bth_entity_code,p_hold_entity_code) -- ER#3667551
3026: --ER#7479609 SELECT HS.hold_entity_id, OH.order_hold_id
3027: SELECT HS.hold_entity_id, OH.order_hold_id,HS.hold_entity_code2 --ER#7479609
3028: FROM OE_HOLD_SOURCES HS, OE_ORDER_HOLDS OH
3029: WHERE OH.HEADER_ID = l_header_id
3030: AND NVL(OH.LINE_ID,FND_API.G_MISS_NUM) =
3031: NVL(l_line_id,FND_API.G_MISS_NUM)
3032: AND OH.HOLD_SOURCE_ID = HS.HOLD_SOURCE_ID
3033: --AND HS.HOLD_ENTITY_CODE2 = p_hold_entity_code -- ER#3667551
3034: AND HS.HOLD_ENTITY_CODE2 = NVL(l_bth_entity_code,p_hold_entity_code) -- ER#3667551
3027: SELECT HS.hold_entity_id, OH.order_hold_id,HS.hold_entity_code2 --ER#7479609
3028: FROM OE_HOLD_SOURCES HS, OE_ORDER_HOLDS OH
3029: WHERE OH.HEADER_ID = l_header_id
3030: AND NVL(OH.LINE_ID,FND_API.G_MISS_NUM) =
3031: NVL(l_line_id,FND_API.G_MISS_NUM)
3032: AND OH.HOLD_SOURCE_ID = HS.HOLD_SOURCE_ID
3033: --AND HS.HOLD_ENTITY_CODE2 = p_hold_entity_code -- ER#3667551
3034: AND HS.HOLD_ENTITY_CODE2 = NVL(l_bth_entity_code,p_hold_entity_code) -- ER#3667551
3035: AND HS.HOLD_ENTITY_ID2 = DECODE(l_all_del_pay,'N',p_hold_entity_id,HS.HOLD_ENTITY_ID2) --ER#7479609
3092: --ER#7479609 end
3093: l_valid_itemcat CHAR(1) := ''; --ER#13331078
3094:
3095: BEGIN
3096: x_return_status := FND_API.G_RET_STS_SUCCESS;
3097:
3098: IF l_debug_level > 0 THEN
3099: oe_debug_pub.add( 'ENTERING EVALUATE_HOLDS' , 1 ) ;
3100: END IF;
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add( 'X_RETURN_STATUS:' || X_RETURN_STATUS , 1 ) ;
3671: END IF;
3672:
3673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3674: IF l_debug_level > 0 THEN
3675: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
3676: END IF;
3677: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3674: IF l_debug_level > 0 THEN
3675: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
3676: END IF;
3677: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3678: RAISE FND_API.G_EXC_ERROR;
3679: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3681: END IF;
3674: IF l_debug_level > 0 THEN
3675: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
3676: END IF;
3677: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3678: RAISE FND_API.G_EXC_ERROR;
3679: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3681: END IF;
3682: --ER#7479609 start
3675: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
3676: END IF;
3677: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3678: RAISE FND_API.G_EXC_ERROR;
3679: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3681: END IF;
3682: --ER#7479609 start
3683: IF x_return_status = '0' THEN
3676: END IF;
3677: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3678: RAISE FND_API.G_EXC_ERROR;
3679: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3681: END IF;
3682: --ER#7479609 start
3683: IF x_return_status = '0' THEN
3684: G_PAYMENT_HOLD_APPLIED := 'Y';
4005: IF l_debug_level > 0 THEN
4006: oe_debug_pub.add( 'X_RETURN_STATUS:' || X_RETURN_STATUS , 1 ) ;
4007: END IF;
4008:
4009: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4010: IF l_debug_level > 0 THEN
4011: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4012: END IF;
4013: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4009: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4010: IF l_debug_level > 0 THEN
4011: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4012: END IF;
4013: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4014: RAISE FND_API.G_EXC_ERROR;
4015: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4017: END IF;
4010: IF l_debug_level > 0 THEN
4011: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4012: END IF;
4013: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4014: RAISE FND_API.G_EXC_ERROR;
4015: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4017: END IF;
4018:
4011: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4012: END IF;
4013: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4014: RAISE FND_API.G_EXC_ERROR;
4015: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4017: END IF;
4018:
4019: --ER#7479609 start
4012: END IF;
4013: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4014: RAISE FND_API.G_EXC_ERROR;
4015: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4017: END IF;
4018:
4019: --ER#7479609 start
4020: IF x_return_status = '0' THEN
4164: END IF;
4165:
4166: EXCEPTION
4167:
4168: WHEN FND_API.G_EXC_ERROR THEN
4169: IF (prev_hold%isopen) THEN
4170: CLOSE prev_hold;
4171: END IF;
4172: IF (curr_hold_source%isopen) THEN
4171: END IF;
4172: IF (curr_hold_source%isopen) THEN
4173: CLOSE curr_hold_source;
4174: END IF;
4175: x_return_status := FND_API.G_RET_STS_ERROR;
4176:
4177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4178: IF (prev_hold%isopen) THEN
4179: CLOSE prev_hold;
4173: CLOSE curr_hold_source;
4174: END IF;
4175: x_return_status := FND_API.G_RET_STS_ERROR;
4176:
4177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4178: IF (prev_hold%isopen) THEN
4179: CLOSE prev_hold;
4180: END IF;
4181: IF (curr_hold_source%isopen) THEN
4180: END IF;
4181: IF (curr_hold_source%isopen) THEN
4182: CLOSE curr_hold_source;
4183: END IF;
4184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4185:
4186: WHEN OTHERS THEN
4187: IF (prev_hold%isopen) THEN
4188: CLOSE prev_hold;
4189: END IF;
4190: IF (curr_hold_source%isopen) THEN
4191: CLOSE curr_hold_source;
4192: END IF;
4193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4194:
4195: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4196: THEN
4197: OE_MSG_PUB.Add_Exc_Msg
4272: --
4273: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4274: --
4275: BEGIN
4276: x_return_status := FND_API.G_RET_STS_SUCCESS;
4277:
4278: IF l_debug_level > 0 THEN
4279: oe_debug_pub.add( 'ENTERING EVAL_POST_WRITE_HEADER' , 1 ) ;
4280: END IF;
4341: IF l_debug_level > 0 THEN
4342: oe_debug_pub.add( 'X_RETURN_STATUS:' || X_RETURN_STATUS , 1 ) ;
4343: END IF;
4344:
4345: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4346: IF l_debug_level > 0 THEN
4347: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4348: END IF;
4349: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4345: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4346: IF l_debug_level > 0 THEN
4347: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4348: END IF;
4349: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4353: END IF;
4346: IF l_debug_level > 0 THEN
4347: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4348: END IF;
4349: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4353: END IF;
4354: ELSE
4347: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
4348: END IF;
4349: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4353: END IF;
4354: ELSE
4355: IF l_debug_level > 0 THEN
4348: END IF;
4349: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4350: RAISE FND_API.G_EXC_ERROR;
4351: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4353: END IF;
4354: ELSE
4355: IF l_debug_level > 0 THEN
4356: oe_debug_pub.add( 'HOLD APPLIED' ) ;
4372: END IF;
4373:
4374: EXCEPTION
4375:
4376: WHEN FND_API.G_EXC_ERROR THEN
4377: IF (curr_hold_source%isopen) THEN
4378: CLOSE curr_hold_source;
4379: END IF;
4380: x_return_status := FND_API.G_RET_STS_ERROR;
4376: WHEN FND_API.G_EXC_ERROR THEN
4377: IF (curr_hold_source%isopen) THEN
4378: CLOSE curr_hold_source;
4379: END IF;
4380: x_return_status := FND_API.G_RET_STS_ERROR;
4381:
4382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4383: IF (curr_hold_source%isopen) THEN
4384: CLOSE curr_hold_source;
4378: CLOSE curr_hold_source;
4379: END IF;
4380: x_return_status := FND_API.G_RET_STS_ERROR;
4381:
4382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4383: IF (curr_hold_source%isopen) THEN
4384: CLOSE curr_hold_source;
4385: END IF;
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4383: IF (curr_hold_source%isopen) THEN
4384: CLOSE curr_hold_source;
4385: END IF;
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4387:
4388: WHEN OTHERS THEN
4389: IF (curr_hold_source%isopen) THEN
4390: CLOSE curr_hold_source;
4388: WHEN OTHERS THEN
4389: IF (curr_hold_source%isopen) THEN
4390: CLOSE curr_hold_source;
4391: END IF;
4392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4393:
4394: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4395: THEN
4396: OE_MSG_PUB.Add_Exc_Msg
4583: l_bill_to_orgid NUMBER := 0;
4584: l_ch_level varchar2(10) := '';
4585: --ER# 3667551 END
4586: BEGIN
4587: x_return_status := FND_API.G_RET_STS_SUCCESS;
4588:
4589: IF l_debug_level > 0 THEN
4590: oe_debug_pub.add( 'ENTERING EVALUATE_HOLDS_POST_WRITE' , 1 ) ;
4591: END IF;
5175: IF l_debug_level > 0 THEN
5176: oe_debug_pub.add( 'X_RETURN_STATUS:' || X_RETURN_STATUS , 1 ) ;
5177: END IF;
5178:
5179: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5180: IF l_debug_level > 0 THEN
5181: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
5182: END IF;
5183: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5179: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5180: IF l_debug_level > 0 THEN
5181: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
5182: END IF;
5183: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5184: RAISE FND_API.G_EXC_ERROR;
5185: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5187: END IF;
5180: IF l_debug_level > 0 THEN
5181: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
5182: END IF;
5183: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5184: RAISE FND_API.G_EXC_ERROR;
5185: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5187: END IF;
5188: ELSE
5181: oe_debug_pub.add( 'ERROR AFTER OE_HOLDS_PVT.CREATE_ORDER_HOLDS' ) ;
5182: END IF;
5183: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5184: RAISE FND_API.G_EXC_ERROR;
5185: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5187: END IF;
5188: ELSE
5189: IF l_debug_level > 0 THEN
5182: END IF;
5183: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5184: RAISE FND_API.G_EXC_ERROR;
5185: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5187: END IF;
5188: ELSE
5189: IF l_debug_level > 0 THEN
5190: oe_debug_pub.add( 'HOLD APPLIED' ) ;
5403: );
5404:
5405: OE_DEBUG_PUB.Add('x_return_status:' || x_return_status,1);
5406:
5407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5408: OE_Debug_PUB.Add('Error After oe_holds_pvt.Create_Order_Holds');
5409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5410: RAISE FND_API.G_EXC_ERROR;
5411: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5405: OE_DEBUG_PUB.Add('x_return_status:' || x_return_status,1);
5406:
5407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5408: OE_Debug_PUB.Add('Error After oe_holds_pvt.Create_Order_Holds');
5409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5410: RAISE FND_API.G_EXC_ERROR;
5411: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5413: END IF;
5406:
5407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5408: OE_Debug_PUB.Add('Error After oe_holds_pvt.Create_Order_Holds');
5409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5410: RAISE FND_API.G_EXC_ERROR;
5411: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5413: END IF;
5414: ELSE
5407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5408: OE_Debug_PUB.Add('Error After oe_holds_pvt.Create_Order_Holds');
5409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5410: RAISE FND_API.G_EXC_ERROR;
5411: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5413: END IF;
5414: ELSE
5415: OE_Debug_PUB.Add('Hold applied');
5408: OE_Debug_PUB.Add('Error After oe_holds_pvt.Create_Order_Holds');
5409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5410: RAISE FND_API.G_EXC_ERROR;
5411: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5413: END IF;
5414: ELSE
5415: OE_Debug_PUB.Add('Hold applied');
5416:
5467: END IF;
5468:
5469: EXCEPTION
5470:
5471: WHEN FND_API.G_EXC_ERROR THEN
5472: IF (curr_hold_source%isopen) THEN
5473: CLOSE curr_hold_source;
5474: END IF;
5475: --8602364 start
5476: IF (curr_hold_source_2%isopen) THEN
5477: CLOSE curr_hold_source_2;
5478: END IF;
5479: --8602364 end
5480: x_return_status := FND_API.G_RET_STS_ERROR;
5481:
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: IF (curr_hold_source%isopen) THEN
5484: CLOSE curr_hold_source;
5478: END IF;
5479: --8602364 end
5480: x_return_status := FND_API.G_RET_STS_ERROR;
5481:
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: IF (curr_hold_source%isopen) THEN
5484: CLOSE curr_hold_source;
5485: END IF;
5486: --8602364 start
5487: IF (curr_hold_source_2%isopen) THEN
5488: CLOSE curr_hold_source_2;
5489: END IF;
5490: --8602364 end
5491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5492:
5493: WHEN OTHERS THEN
5494: IF (curr_hold_source%isopen) THEN
5495: CLOSE curr_hold_source;
5498: IF (curr_hold_source_2%isopen) THEN
5499: CLOSE curr_hold_source_2;
5500: END IF;
5501: --8602364 end
5502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5503:
5504: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5505: THEN
5506: OE_MSG_PUB.Add_Exc_Msg
5593:
5594: l_hold_source_rec OE_HOLDS_PVT.hold_source_rec_type;
5595: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
5596:
5597: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5598: l_org_id NUMBER := null;
5599: l_hold_source_id NUMBER := null;
5600: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5601:
5647:
5648: OPEN c_hold_orgs;
5649: LOOP
5650: FETCH c_hold_orgs into l_org_id;
5651: EXIT WHEN c_hold_orgs%NOTFOUND OR l_return_status <> FND_API.G_RET_STS_SUCCESS;
5652: -- can l_org_id be null??? No.
5653:
5654: IF l_debug_level > 0 THEN
5655: oe_debug_pub.add('Applying Hold in ORG_ID ' || l_org_id, 1);
5680: OPEN c_cust_holds;
5681: LOOP
5682:
5683: FETCH c_cust_holds into l_org_id,l_hold_source_id;
5684: EXIT WHEN c_cust_holds%NOTFOUND OR l_return_status <> FND_API.G_RET_STS_SUCCESS;
5685:
5686: IF l_debug_level > 0 THEN
5687: oe_debug_pub.add('Releasing Hold in ORG_ID ' || l_org_id, 1);
5688: END IF;
5710: oe_debug_pub.add( 'EXITING OE_HOLDS_PUB.Process_Holds_Customer' , 1 ) ;
5711: END IF;
5712:
5713: EXCEPTION
5714: WHEN FND_API.G_EXC_ERROR THEN
5715:
5716: IF l_debug_level > 0 THEN
5717: oe_debug_pub.add( 'API EXECUTION ERROR IN OE_HOLDS_PUB.Process_Holds_Customer' , 1 ) ;
5718: END IF;
5719: IF x_msg_count is not null then
5720: OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5721: p_data => x_msg_data);
5722: end if;
5723: RAISE FND_API.G_EXC_ERROR;
5724:
5725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5726: IF l_debug_level > 0 THEN
5727: oe_debug_pub.add( 'API UNEXPECTED ERROR IN OE_HOLDS_PUB.Process_Holds_Customer' , 1 ) ;
5721: p_data => x_msg_data);
5722: end if;
5723: RAISE FND_API.G_EXC_ERROR;
5724:
5725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5726: IF l_debug_level > 0 THEN
5727: oe_debug_pub.add( 'API UNEXPECTED ERROR IN OE_HOLDS_PUB.Process_Holds_Customer' , 1 ) ;
5728: END IF;
5729: IF x_msg_count is not null then
5731: ( p_count => x_msg_count
5732: , p_data => x_msg_data
5733: );
5734: END IF;
5735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5736:
5737: WHEN OTHERS THEN
5738: IF l_debug_level > 0 THEN
5739: oe_debug_pub.add( 'ERROR in oe_holds_pub.Process_Holds_Customer' , 1 ) ;
5760:
5761: l_hold_source_rec OE_HOLDS_PVT.hold_source_rec_type;
5762: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
5763: l_hold_entity_code varchar2(1);
5764: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5765: l_hold_exists VARCHAR2(1) := 'N';
5766: l_org_id NUMBER := null;
5767: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5768: BEGIN
5787: raise no_data_found; -- Should not occur at all
5788: END IF;
5789: EXCEPTION
5790: WHEN no_data_found then
5791: --x_return_status := FND_API.G_RET_STS_ERROR;
5792: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_SITE_USE_ID');
5793: OE_MSG_PUB.ADD;
5794: fnd_message.set_token('SITE_USE_ID', to_char(p_hold_entity_id));
5795:
5792: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_SITE_USE_ID');
5793: OE_MSG_PUB.ADD;
5794: fnd_message.set_token('SITE_USE_ID', to_char(p_hold_entity_id));
5795:
5796: RAISE FND_API.G_EXC_ERROR;
5797: END;
5798:
5799: IF l_debug_level > 0 THEN
5800: oe_debug_pub.add('Process_Holds_Site:ORG_ID: ' || l_org_id, 1);
5849: oe_debug_pub.add( 'EXITING OE_HOLDS_PUB.Process_Holds_Site' , 1 ) ;
5850: END IF;
5851: END IF; -- APPLY OR RELEASE
5852: EXCEPTION
5853: WHEN FND_API.G_EXC_ERROR THEN
5854:
5855: IF l_debug_level > 0 THEN
5856: oe_debug_pub.add( 'API EXECUTION ERROR IN OE_HOLDS_PUB.PROCESS_HOLDS' , 1 ) ;
5857: END IF;
5860: OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5861: p_data => x_msg_data);
5862: end if;
5863:
5864: RAISE FND_API.G_EXC_ERROR;
5865:
5866: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5867: IF l_debug_level > 0 THEN
5868: oe_debug_pub.add( 'API G_EXC_UNEXPECTED_ERROR IN OE_HOLDS_PUB.PROCESS_HOLDS' , 1 ) ;
5862: end if;
5863:
5864: RAISE FND_API.G_EXC_ERROR;
5865:
5866: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5867: IF l_debug_level > 0 THEN
5868: oe_debug_pub.add( 'API G_EXC_UNEXPECTED_ERROR IN OE_HOLDS_PUB.PROCESS_HOLDS' , 1 ) ;
5869: END IF;
5870:
5872: ( p_count => x_msg_count
5873: , p_data => x_msg_data
5874: );
5875:
5876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5877:
5878: WHEN OTHERS THEN
5879: IF l_debug_level > 0 THEN
5880: oe_debug_pub.add( 'ERROR in oe_holds_pub.process_holds' , 1 ) ;
5897:
5898: */
5899: PROCEDURE Process_Holds
5900: ( p_api_version IN NUMBER
5901: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
5902: , p_hold_entity_code IN VARCHAR2
5903: --ER#7479609 , p_hold_entity_id IN NUMBER
5904: , p_hold_entity_id IN oe_hold_sources_all.hold_entity_id%TYPE --ER#7479609
5905: , p_hold_id IN NUMBER DEFAULT 1
5911: ) IS
5912:
5913: l_orig_org NUMBER := null;
5914:
5915: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5916: l_msg_count NUMBER := null;
5917: l_msg_data VARCHAR2(2000) := null;
5918: l_valid_acct VARCHAR2(1) := 'N';
5919:
5935: IF p_action IS NULL OR p_action NOT IN ('APPLY','RELEASE') THEN
5936: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ACTION'); -- message taken from oe_holds
5937: fnd_message.set_token('ACTION',p_action);
5938: OE_MSG_PUB.ADD;
5939: RAISE FND_API.G_EXC_ERROR;
5940: END IF;
5941:
5942: IF p_hold_entity_code IS NULL OR p_hold_entity_code NOT IN ('S','C') THEN
5943: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_HOLD_ENTITY_CODE'); -- message need to be seeded or use any existing one
5941:
5942: IF p_hold_entity_code IS NULL OR p_hold_entity_code NOT IN ('S','C') THEN
5943: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_HOLD_ENTITY_CODE'); -- message need to be seeded or use any existing one
5944: OE_MSG_PUB.ADD;
5945: RAISE FND_API.G_EXC_ERROR;
5946: END IF;
5947: -- hold the original org id being used by programs when calling process_holds.
5948: -- set the org org context to this original org when leaving process_holds.
5949: -- sHOULD IT BE SET EVEN WHEN EXITING WITH AN EXCEPTION??
5962: , x_msg_count => l_msg_count
5963: , x_msg_data => l_msg_data
5964: );
5965:
5966: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5967:
5968: IF l_debug_level > 0 THEN
5969: oe_debug_pub.add( 'ERROR AFTER PROCESS_HOLDS_SITE IN OE_HOLDS_PUB.PROCESS_HOLDS' ) ;
5970: END IF;
5968: IF l_debug_level > 0 THEN
5969: oe_debug_pub.add( 'ERROR AFTER PROCESS_HOLDS_SITE IN OE_HOLDS_PUB.PROCESS_HOLDS' ) ;
5970: END IF;
5971:
5972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5973: RAISE FND_API.G_EXC_ERROR;
5974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5976: END IF;
5969: oe_debug_pub.add( 'ERROR AFTER PROCESS_HOLDS_SITE IN OE_HOLDS_PUB.PROCESS_HOLDS' ) ;
5970: END IF;
5971:
5972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5973: RAISE FND_API.G_EXC_ERROR;
5974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5976: END IF;
5977: END IF;
5970: END IF;
5971:
5972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5973: RAISE FND_API.G_EXC_ERROR;
5974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5976: END IF;
5977: END IF;
5978:
5971:
5972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5973: RAISE FND_API.G_EXC_ERROR;
5974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5976: END IF;
5977: END IF;
5978:
5979: ELSIF p_hold_entity_code = 'C' THEN
5985: IF l_valid_acct <> 'Y' THEN
5986: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_CUST_ACCOUNT'); -- get the correct message new or existing??
5987: -- fnd_message.set_token('',p_action);
5988: OE_MSG_PUB.ADD;
5989: RAISE FND_API.G_EXC_ERROR;
5990: END IF;
5991:
5992: -- call process_holds_customer
5993:
6001: , x_msg_count => l_msg_count
6002: , x_msg_data => l_msg_data
6003: );
6004:
6005: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6006:
6007: IF l_debug_level > 0 THEN
6008: oe_debug_pub.add( 'ERROR AFTER PROCESS_HOLDS_SITE IN OE_HOLDS_PUB.PROCESS_HOLDS' ) ;
6009: END IF;
6007: IF l_debug_level > 0 THEN
6008: oe_debug_pub.add( 'ERROR AFTER PROCESS_HOLDS_SITE IN OE_HOLDS_PUB.PROCESS_HOLDS' ) ;
6009: END IF;
6010:
6011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6012: RAISE FND_API.G_EXC_ERROR;
6013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6015: END IF;
6008: oe_debug_pub.add( 'ERROR AFTER PROCESS_HOLDS_SITE IN OE_HOLDS_PUB.PROCESS_HOLDS' ) ;
6009: END IF;
6010:
6011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6012: RAISE FND_API.G_EXC_ERROR;
6013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6015: END IF;
6016: END IF;
6009: END IF;
6010:
6011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6012: RAISE FND_API.G_EXC_ERROR;
6013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6015: END IF;
6016: END IF;
6017:
6010:
6011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6012: RAISE FND_API.G_EXC_ERROR;
6013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6015: END IF;
6016: END IF;
6017:
6018: END IF;
6028: IF l_debug_level > 0 THEN
6029: oe_debug_pub.add( 'EXITING OE_HOLDS_PUB.PROCESS_HOLDS' , 1 ) ;
6030: END IF;
6031: EXCEPTION
6032: WHEN FND_API.G_EXC_ERROR THEN
6033:
6034: IF l_debug_level > 0 THEN
6035: oe_debug_pub.add( 'API EXECUTION ERROR IN OE_HOLDS_PUB.PROCESS_HOLDS' , 1 ) ;
6036: END IF;
6053: ELSE
6054: MO_GLOBAL.set_policy_context('S',l_orig_org);
6055: END IF;
6056: -- End Bug 14040669
6057: RAISE FND_API.G_EXC_ERROR;
6058:
6059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6060:
6061: IF l_debug_level > 0 THEN
6055: END IF;
6056: -- End Bug 14040669
6057: RAISE FND_API.G_EXC_ERROR;
6058:
6059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6060:
6061: IF l_debug_level > 0 THEN
6062: oe_debug_pub.add( 'API G_EXC_UNEXPECTED_ERROR IN OE_HOLDS_PUB.PROCESS_HOLDS' , 1 ) ;
6063: END IF;
6080: MO_GLOBAL.set_policy_context('S',l_orig_org);
6081: END IF;
6082: -- End Bug 14040669
6083:
6084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6085:
6086: WHEN OTHERS THEN
6087: IF l_debug_level > 0 THEN
6088: oe_debug_pub.add( 'ERROR in oe_holds_pub.process_holds' , 1 ) ;