68: EXCEPTION
69:
70: WHEN others THEN
71: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
73:
74: OE_MSG_PUB.Add_Exc_Msg
75: ( G_PKG_NAME
76: ,'chk_past_due_invoice'
70: WHEN others THEN
71: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
73:
74: OE_MSG_PUB.Add_Exc_Msg
75: ( G_PKG_NAME
76: ,'chk_past_due_invoice'
77: );
78: END IF;
179: EXCEPTION
180:
181: WHEN others THEN
182: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
184: OE_MSG_PUB.Add_Exc_Msg
185: ( G_PKG_NAME
186: , 'Check_Trx_Limit'
187: );
180:
181: WHEN others THEN
182: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
184: OE_MSG_PUB.Add_Exc_Msg
185: ( G_PKG_NAME
186: , 'Check_Trx_Limit'
187: );
188: END IF;
355: -- message data.
356: -- If more than 1 just return the count. The Calling routine has to get
357: -- the messages from the message stack.
358:
359: OE_MSG_PUB.Count_And_Get
360: ( p_count => p_msg_count
361: , p_data => p_msg_data
362: );
363:
374: WHEN OTHERS THEN
375:
376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377:
378: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
379: THEN
380: OE_MSG_PUB.Add_Exc_Msg
381: ( G_PKG_NAME
382: , 'Check_Available_Credit'
376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377:
378: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
379: THEN
380: OE_MSG_PUB.Add_Exc_Msg
381: ( G_PKG_NAME
382: , 'Check_Available_Credit'
383: );
384: END IF;
555: l_credit_check_lvl_out := 'CUSTOMER';
556:
557: WHEN OTHERS THEN
558:
559: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
560: OE_MSG_PUB.Add_Exc_Msg
561: ( G_PKG_NAME
562: , 'Check Order:Check Customer'
563: );
556:
557: WHEN OTHERS THEN
558:
559: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
560: OE_MSG_PUB.Add_Exc_Msg
561: ( G_PKG_NAME
562: , 'Check Order:Check Customer'
563: );
564: END IF;
611: -- credit checking needed.
612: l_check_order := 'N';
613:
614: WHEN OTHERS THEN
615: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
616: OE_MSG_PUB.Add_Exc_Msg
617: ( G_PKG_NAME
618: , 'Check Order:Check Customer'
619: );
612: l_check_order := 'N';
613:
614: WHEN OTHERS THEN
615: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
616: OE_MSG_PUB.Add_Exc_Msg
617: ( G_PKG_NAME
618: , 'Check Order:Check Customer'
619: );
620: END IF;
660:
661: EXCEPTION
662:
663: WHEN OTHERS THEN
664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
665: OE_MSG_PUB.Add_Exc_Msg
666: ( G_PKG_NAME
667: , 'Check_Order: Check Terms'
668: );
661: EXCEPTION
662:
663: WHEN OTHERS THEN
664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
665: OE_MSG_PUB.Add_Exc_Msg
666: ( G_PKG_NAME
667: , 'Check_Order: Check Terms'
668: );
669: END IF;
681: oe_debug_pub.ADD('check order after checking payment term :'|| l_check_order);
682: EXCEPTION
683:
684: WHEN OTHERS THEN
685: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
686: THEN
687: OE_MSG_PUB.Add_Exc_Msg
688: ( G_PKG_NAME
689: , 'Check_Order'
683:
684: WHEN OTHERS THEN
685: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
686: THEN
687: OE_MSG_PUB.Add_Exc_Msg
688: ( G_PKG_NAME
689: , 'Check_Order'
690: );
691: END IF;
1641:
1642: EXCEPTION
1643:
1644: WHEN others THEN
1645: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1646: OE_MSG_PUB.Add_Exc_Msg
1647: ( G_PKG_NAME
1648: , 'Check_Exposure'
1649: );
1642: EXCEPTION
1643:
1644: WHEN others THEN
1645: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1646: OE_MSG_PUB.Add_Exc_Msg
1647: ( G_PKG_NAME
1648: , 'Check_Exposure'
1649: );
1650: END IF;
1706: EXCEPTION
1707:
1708: WHEN others THEN
1709: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1711:
1712: OE_MSG_PUB.Add_Exc_Msg
1713: ( G_PKG_NAME
1714: ,'chk_past_due_invoice'
1708: WHEN others THEN
1709: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1711:
1712: OE_MSG_PUB.Add_Exc_Msg
1713: ( G_PKG_NAME
1714: ,'chk_past_due_invoice'
1715: );
1716: END IF;
1843: EXCEPTION
1844:
1845: WHEN others THEN
1846: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1847: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1848: OE_MSG_PUB.Add_Exc_Msg
1849: ( G_PKG_NAME
1850: , 'Check_Trx_Limit_Line'
1851: );
1844:
1845: WHEN others THEN
1846: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1847: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1848: OE_MSG_PUB.Add_Exc_Msg
1849: ( G_PKG_NAME
1850: , 'Check_Trx_Limit_Line'
1851: );
1852: END IF;
1917: EXCEPTION
1918: WHEN no_data_found then
1919: --x_return_status := FND_API.G_RET_STS_ERROR;
1920: --FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_SITE_USE_ID');
1921: --OE_MSG_PUB.ADD;
1922: --fnd_message.set_token('SITE_USE_ID',
1923: -- to_char(p_hold_entity_id));
1924: OE_Debug_PUB.Add('OEXPCRCB: Line Level: No Customer ID for Bill to:' ||
1925: to_char(p_invoice_to_org_id), 1);
2048: -- message data.
2049: -- If more than 1 just return the count. The Calling routine has to get
2050: -- the messages from the message stack.
2051:
2052: OE_MSG_PUB.Count_And_Get
2053: ( p_count => p_msg_count
2054: , p_data => p_msg_data
2055: );
2056:
2067: WHEN OTHERS THEN
2068:
2069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070:
2071: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2072: THEN
2073: OE_MSG_PUB.Add_Exc_Msg
2074: ( G_PKG_NAME
2075: , 'Check_Available_Credit'
2069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070:
2071: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2072: THEN
2073: OE_MSG_PUB.Add_Exc_Msg
2074: ( G_PKG_NAME
2075: , 'Check_Available_Credit'
2076: );
2077: END IF;
2235: -- limits are set at the customer level.
2236: oe_debug_pub.ADD('Line Level: Customer level credit check');
2237: l_credit_check_lvl_out := 'CUSTOMER';
2238: WHEN OTHERS THEN
2239: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2240: OE_MSG_PUB.Add_Exc_Msg
2241: ( G_PKG_NAME
2242: , 'Check Order:Check Customer'
2243: );
2236: oe_debug_pub.ADD('Line Level: Customer level credit check');
2237: l_credit_check_lvl_out := 'CUSTOMER';
2238: WHEN OTHERS THEN
2239: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2240: OE_MSG_PUB.Add_Exc_Msg
2241: ( G_PKG_NAME
2242: , 'Check Order:Check Customer'
2243: );
2244: END IF;
2294: -- credit checking needed.
2295: l_check_order := 'N';
2296:
2297: WHEN OTHERS THEN
2298: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2299: OE_MSG_PUB.Add_Exc_Msg
2300: ( G_PKG_NAME
2301: , 'Check Order:Check Customer'
2302: );
2295: l_check_order := 'N';
2296:
2297: WHEN OTHERS THEN
2298: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2299: OE_MSG_PUB.Add_Exc_Msg
2300: ( G_PKG_NAME
2301: , 'Check Order:Check Customer'
2302: );
2303: END IF;
2343: WHEN NO_DATA_FOUND THEN
2344: l_check_order := 'N';
2345: oe_debug_pub.ADD('Line does not have Payment Term subject to credit check');
2346: WHEN OTHERS THEN
2347: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2348: OE_MSG_PUB.Add_Exc_Msg
2349: ( G_PKG_NAME
2350: , 'Check_Order: Check Terms'
2351: );
2344: l_check_order := 'N';
2345: oe_debug_pub.ADD('Line does not have Payment Term subject to credit check');
2346: WHEN OTHERS THEN
2347: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2348: OE_MSG_PUB.Add_Exc_Msg
2349: ( G_PKG_NAME
2350: , 'Check_Order: Check Terms'
2351: );
2352: END IF;
2363: oe_debug_pub.ADD('check order after checking payment term :'|| l_check_order);
2364: EXCEPTION
2365:
2366: WHEN OTHERS THEN
2367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2368: THEN
2369: OE_MSG_PUB.Add_Exc_Msg
2370: ( G_PKG_NAME
2371: , 'Check_Order'
2365:
2366: WHEN OTHERS THEN
2367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2368: THEN
2369: OE_MSG_PUB.Add_Exc_Msg
2370: ( G_PKG_NAME
2371: , 'Check_Order'
2372: );
2373: END IF;
3289:
3290:
3291: EXCEPTION
3292: WHEN others THEN
3293: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3294: OE_MSG_PUB.Add_Exc_Msg
3295: ( G_PKG_NAME
3296: , 'Check_Exposure'
3297: );
3290:
3291: EXCEPTION
3292: WHEN others THEN
3293: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3294: OE_MSG_PUB.Add_Exc_Msg
3295: ( G_PKG_NAME
3296: , 'Check_Exposure'
3297: );
3298: END IF;