[Home] [Help]
1: PACKAGE BODY OE_ORDER_UTIL AS
2: /* $Header: OEXUORDB.pls 120.5 2005/12/23 16:17:36 btea ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_ORDER_UTIL';
1: PACKAGE BODY OE_ORDER_UTIL AS
2: /* $Header: OEXUORDB.pls 120.5 2005/12/23 16:17:36 btea ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_ORDER_UTIL';
6:
7: /*lchen*/
8: -- Constants added for notification framework
9: G_MAX_REQUESTS NUMBER := 10000;
198: BEGIN
199: x_return_status := FND_API.G_RET_STS_SUCCESS;
200:
201: IF l_debug_level > 0 THEN
202: oe_debug_pub.add( 'ENTERING OE_ORDER_UTIL.UPDATE_GLOBAL_PICTURE' , 1 ) ;
203: END IF;
204:
205: /* The global entities will be populated for booked orders */
206: /* coming in via Process Order or for entered orders via the GUI */
785:
786: END IF; -- lot_serial_id is not null
787:
788: IF l_debug_level > 0 THEN
789: oe_debug_pub.add( 'EXITING OE_ORDER_UTIL.UPDATE_GLOBAL_PICTURE' , 1 ) ;
790: END IF;
791:
792: END IF; /* check for booked flag or g_ui_flag */
793: END IF; /* check for code set level*/
837: l_ind := (mod(p_entity_id,100000) * G_MAX_REQUESTS)+1;
838: l_max_ind := l_ind + G_MAX_REQUESTS - 1;
839:
840: IF l_debug_level > 0 THEN
841: oe_debug_pub.add( 'ENTERING OE_ORDER_UTIL.RETURN_GLB_ENT_INDEX' , 1 ) ;
842: END IF;
843:
844: IF p_entity_code = OE_GLOBALS.G_ENTITY_LINE THEN
845:
1002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1003: END IF;
1004:
1005: IF l_debug_level > 0 THEN
1006: oe_debug_pub.add( 'EXITING OE_ORDER_UTIL.RETURN_GLB_ENT_INDEX' , 1 ) ;
1007: END IF;
1008:
1009: EXCEPTION
1010:
1073: l_is_xdo_licensed varchar2(1);
1074:
1075: BEGIN
1076: IF l_debug_level > 0 THEN
1077: oe_debug_pub.add( 'ENTERING OE_ORDER_UTIL.INITIALIZE_ACCESS_LIST' , 1 ) ;
1078: END IF;
1079: IF FND_FUNCTION.TEST('ONT_OEXOEORD_APPLY_HOLDS') THEN
1080: Add_Access('APPLY_HOLDS');
1081: END IF;
1225: Add_Access('FULFILLMENT_ACCEPTANCE');
1226: END IF;
1227:
1228:
1229: OE_ORDER_UTIL.G_Access_List_Initialized:='Y';
1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add( 'EXITING OE_ORDER_UTIL.INITIALIZE_ACCESS_LIST' , 1 ) ;
1232: END IF;
1233:
1227:
1228:
1229: OE_ORDER_UTIL.G_Access_List_Initialized:='Y';
1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add( 'EXITING OE_ORDER_UTIL.INITIALIZE_ACCESS_LIST' , 1 ) ;
1232: END IF;
1233:
1234: END Initialize_Access_List;
1235:
1240: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1241: --
1242: BEGIN
1243: IF l_debug_level > 0 THEN
1244: oe_debug_pub.add( 'ENTERING OE_ORDER_UTIL.ADD_ACCESS' , 1 ) ;
1245: END IF;
1246: IF OE_GLOBALS.G_ACCESS_List.Count=0 THEN
1247: OE_GLOBALS.G_Access_List(1):=Function_Name;
1248: ELSIF OE_GLOBALS.G_ACCESS_List.Count>0 THEN
1249: i:=OE_GLOBALS.G_ACCESS_List.Last+1;
1250: OE_GLOBALS.G_ACCESS_List(i):=Function_Name;
1251: END IF;
1252: IF l_debug_level > 0 THEN
1253: oe_debug_pub.add( 'EXITING OE_ORDER_UTIL.ADD_ACCESS' , 1 ) ;
1254: END IF;
1255: EXCEPTION
1256: When Others Then
1257: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1276: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1277: --
1278: BEGIN
1279: IF l_debug_level > 0 THEN
1280: oe_debug_pub.add( 'ENTERING OE_ORDER_UTIL.IS_ACTION_IN_ACCESS_LIST' , 1 ) ;
1281: END IF;
1282: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >='110508' THEN
1283: IF OE_ORDER_UTIL.G_Access_List_Initialized IS NULL THEN
1284: Initialize_Access_List;
1279: IF l_debug_level > 0 THEN
1280: oe_debug_pub.add( 'ENTERING OE_ORDER_UTIL.IS_ACTION_IN_ACCESS_LIST' , 1 ) ;
1281: END IF;
1282: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >='110508' THEN
1283: IF OE_ORDER_UTIL.G_Access_List_Initialized IS NULL THEN
1284: Initialize_Access_List;
1285: END IF;
1286:
1287: rg_count:=OE_GLOBALS.G_ACCESS_List.Last;
1298: ELSE
1299: Return(True);
1300: END IF;
1301: IF l_debug_level > 0 THEN
1302: oe_debug_pub.add( 'EXITING OE_ORDER_UTIL.IS_ACTION_IN_ACCESS_LIST' , 1 ) ;
1303: END IF;
1304: RAISE Exit_Function;
1305: EXCEPTION
1306: When Exit_Function Then
1369: l_ext_precision,
1370: l_min_acct_unit
1371: );
1372: -- #2713025
1373: OE_ORDER_UTIL.G_Precision := l_precision;
1374: G_Header_Id:=p_header_id;
1375: G_line_id:=p_line_id;
1376: Return(TRUE);
1377: ELSE
1375: G_line_id:=p_line_id;
1376: Return(TRUE);
1377: ELSE
1378: l_precision:=2;
1379: OE_ORDER_UTIL.G_Precision := l_precision;
1380: G_Header_Id:=p_header_id;
1381: G_line_id:=p_line_id;
1382: Return(TRUE);
1383: END IF;
1391: WHEN OTHERS THEN
1392: Return(FALSE);
1393: END GET_Precision;
1394:
1395: END OE_ORDER_UTIL;