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));
51: IF l_debug_level > 0 THEN
52: oe_debug_pub.add( 'HOLD_SITE_CODE:INVALID SITE USE ID' , 1 ) ;
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:
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
191: ( p_count => x_msg_count,
192: p_data => x_msg_data
193: );
194:
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
201: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
202: THEN
203: OE_MSG_PUB.Add_Exc_Msg
204: (G_PKG_NAME,
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
201: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
202: THEN
203: OE_MSG_PUB.Add_Exc_Msg
204: (G_PKG_NAME,
205: l_api_name
199: END IF;
200: IF OE_MSG_PUB.Check_Msg_Level
201: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
202: THEN
203: OE_MSG_PUB.Add_Exc_Msg
204: (G_PKG_NAME,
205: l_api_name
206: );
207: END IF;
204: (G_PKG_NAME,
205: l_api_name
206: );
207: END IF;
208: OE_MSG_PUB.Count_And_Get
209: ( p_count => x_msg_count,
210: p_data => x_msg_data);
211:
212:
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
327: );
328:
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: );
335:
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
342: (G_PKG_NAME,
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
342: (G_PKG_NAME,
343: l_api_name
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
342: (G_PKG_NAME,
343: l_api_name
344: );
345: END IF;
342: (G_PKG_NAME,
343: l_api_name
344: );
345: END IF;
346: OE_MSG_PUB.Count_And_Get
347: ( p_count => l_msg_count,
348: p_data => l_msg_data);
349:
350: END release_expired_holds;
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' ) ;
594: END IF;
595: x_return_status := FND_API.G_RET_STS_ERROR;
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
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
1081: oe_debug_pub.add( 'INVALID HOLD SOURCE ID' ) ;
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;
1094: ELSE
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
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');
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
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');
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.
1130: /*
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
1157: AND ROWNUM = 1;
1158:
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
1850: -- Check for Missing Input Parameters
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:
2350: oe_debug_pub.add( 'ENTER HOLD_ENTITY_CODE OR HOLD_ENTITY_ID' ) ;
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:
2546:
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;
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:
2574: END IF;
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
2580: END IF;
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;
2588: END IF;
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: /*
2595:
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:
2606: OPEN hold_source;
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: */
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;
2771:
2772: END IF;
2773:
3313: oe_debug_pub.add( 'HOLD REMOVED' ) ;
3314: END IF;
3315: END IF; --ER#7479609
3316: --fnd_message.set_name('ONT','OE_HOLD_REMOVED');
3317: --OE_MSG_PUB.ADD;
3318: END LOOP;
3319: CLOSE prev_hold;
3320:
3321: -- prev_hold_entity2
3386: oe_debug_pub.add( 'HOLD REMOVED FOR SECOND ENTITY' ) ;
3387: END IF;
3388: END IF; --ER#7479609
3389: --fnd_message.set_name('ONT','OE_HOLD_REMOVED');
3390: --OE_MSG_PUB.ADD;
3391: END LOOP;
3392: CLOSE prev_hold_entity2;
3393:
3394: end if; -- p_hold_entity_code in ('C','S','B','W')
3805:
3806: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
3807: fnd_message.set_name('ONT','OE_HLD_APPLIED');
3808: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
3809: OE_MSG_PUB.ADD;
3810: --ER#7479609 ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
3811: ELSIF (p_entity_code = OE_Globals.G_ENTITY_LINE OR
3812: p_entity_code = OE_GLOBALS.G_ENTITY_LINE_PAYMENT) THEN
3813: fnd_message.set_name('ONT','OE_HLD_APPLIED_LINE');
3818: -- FROM OE_ORDER_LINES
3819: -- WHERE LINE_ID = p_entity_id;
3820: --FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
3821: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_rec.line_number); --8254521
3822: OE_MSG_PUB.ADD;
3823: END IF;
3824: END IF; -- if create_order_hold was successful
3825: END IF; -- l_create_order_hold_flag = 'Y'
3826: END LOOP;
4137:
4138: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
4139: fnd_message.set_name('ONT','OE_HLD_APPLIED');
4140: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
4141: OE_MSG_PUB.ADD;
4142: --ER#7479609 ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
4143: ELSIF (p_entity_code = OE_Globals.G_ENTITY_LINE OR
4144: p_entity_code = OE_GLOBALS.G_ENTITY_LINE_PAYMENT) THEN --ER#7479609
4145: fnd_message.set_name('ONT','OE_HLD_APPLIED_LINE');
4150: -- FROM OE_ORDER_LINES
4151: -- WHERE LINE_ID = p_entity_id;
4152: --FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
4153: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_rec.line_number); --8254521
4154: OE_MSG_PUB.ADD;
4155: END IF;
4156: END IF; -- if apply hold was successful
4157: END IF; -- l_create_order_hold_flag = 'Y'
4158: END LOOP;
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
4198: ( G_PKG_NAME
4199: , 'evaluate_holds'
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
4198: ( G_PKG_NAME
4199: , 'evaluate_holds'
4200: );
4201: END IF;
4360:
4361:
4362: fnd_message.set_name('ONT','OE_HLD_APPLIED');
4363: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
4364: OE_MSG_PUB.ADD;
4365: END IF; -- if create_order_hold was successful
4366: END LOOP;
4367: CLOSE curr_hold_source;
4368: END IF; /* IF m_hold_entity_id IS NOT NULL 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
4397: ( G_PKG_NAME
4398: , 'eval_post_write_header'
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
4397: ( G_PKG_NAME
4398: , 'eval_post_write_header'
4399: );
4400: END IF;
5307:
5308: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
5309: fnd_message.set_name('ONT','OE_HLD_APPLIED');
5310: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
5311: OE_MSG_PUB.ADD;
5312: ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
5313: fnd_message.set_name('ONT','OE_HLD_APPLIED_LINE');
5314: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
5315: --ER#7479609 FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5313: fnd_message.set_name('ONT','OE_HLD_APPLIED_LINE');
5314: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
5315: --ER#7479609 FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5316: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_rec.line_number); --ER#7479609
5317: OE_MSG_PUB.ADD;
5318: END IF;
5319:
5320: END IF; -- if create_order_hold was successful
5321: END IF; -- l_create_order_hold_flag = 'Y'
5441:
5442: IF p_entity_code = OE_Globals.G_ENTITY_HEADER THEN
5443: fnd_message.set_name('ONT','OE_HLD_APPLIED');
5444: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
5445: OE_MSG_PUB.ADD;
5446: ELSIF p_entity_code = OE_Globals.G_ENTITY_LINE THEN
5447: fnd_message.set_name('ONT','OE_HLD_APPLIED_LINE');
5448: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_attribute);
5449: -- Get the line number from the line record
5452: -- FROM OE_ORDER_LINES
5453: -- WHERE LINE_ID = p_entity_id;
5454: --FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5455: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_rec.line_number); --8254521
5456: OE_MSG_PUB.ADD;
5457: END IF;
5458: END IF; -- if apply hold was successful
5459: END IF; -- l_create_order_hold_flag = 'Y'
5460: END LOOP;
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
5507: ( G_PKG_NAME
5508: , 'evaluate_holds_post_write'
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
5507: ( G_PKG_NAME
5508: , 'evaluate_holds_post_write'
5509: );
5510: END IF;
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:
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
5730: OE_MSG_PUB.Count_And_Get
5731: ( p_count => x_msg_count
5732: , p_data => x_msg_data
5733: );
5734: 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:
5796: RAISE FND_API.G_EXC_ERROR;
5797: END;
5856: oe_debug_pub.add( 'API EXECUTION ERROR IN OE_HOLDS_PUB.PROCESS_HOLDS' , 1 ) ;
5857: END IF;
5858:
5859: IF x_msg_count is not null then
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;
5934:
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
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
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.
5984:
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
6037: x_return_status := l_return_status;
6038: x_msg_count := l_msg_count;
6039: x_msg_data := l_msg_data;
6040: IF l_msg_count is not null then
6041: OE_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
6042: p_data => l_msg_data);
6043: end if;
6044:
6045: IF l_debug_level > 0 THEN