[Home] [Help]
15: -- ---------------------------------------------------------------------
16: -- For debugging purposes.
17: PROCEDURE mdebug(msg IN varchar2)
18: IS
19: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
20: BEGIN
21: -- dbms_output.put_line(msg);
22: -- FND_FILE.PUT_LINE(FND_FILE.LOG, msg);
23: null;
221: l_api_name VARCHAR2(30) := 'Validate Params';
222: l_count NUMBER;
223: l_valid BOOLEAN := TRUE;
224: l_def_category_id mtl_category_sets_b.default_category_id%TYPE;
225: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
226: l_hierarchy_enabled mtl_category_sets_b.hierarchy_enabled%TYPE := NULL;
227: l_loop_may_occur BOOLEAN := FALSE;
228: l_category_id mtl_categories_b.category_id%TYPE;
229:
500: -- Created_By, Last_Updated_By, Last_Update_Login etc., columns
501: /*
502: PROCEDURE Apps_Initialize
503: IS
504: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
505: BEGIN
506: -- To set the APPS Environment context through PL/SQL.
507: fnd_global.apps_initialize(1068, 20634, 401);
508: IF (l_debug = 1) THEN
524: )
525: RETURN VARCHAR2
526: IS
527: l_api_name CONSTANT VARCHAR2(30) := 'To_Boolchar' ;
528: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
529: BEGIN
530:
531: IF ( p_bool = TRUE ) THEN
532: RETURN fnd_api.g_TRUE ;
630: --last_update_login
631: FROM mtl_categories_vl
632: WHERE category_id = p_category_id;
633:
634: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
635: l_product_str_id NUMBER; -- Bug 5474569
636: BEGIN
637: x_category_rec.category_id := p_category_rec.category_id;
638: x_category_rec.structure_id := p_category_rec.structure_id;
1269: p_concat_segs IN VARCHAR2
1270: ) IS
1271: l_success BOOLEAN;
1272: l_trim_str VARCHAR2(2000) ;
1273: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1274:
1275: BEGIN
1276: l_success := fnd_flex_keyval.validate_segs(
1277: operation => 'CHECK_SEGMENTS',
1332: AND id_flex_num = cp_flex_num
1333: AND enabled_flag = 'Y'
1334: ORDER BY segment_num ASC;
1335:
1336: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1337: BEGIN
1338: l_structure_id := p_category_rec.structure_id;
1339:
1340: OPEN segment_count(l_structure_id);
1583:
1584: CURSOR new_category_id IS
1585: SELECT mtl_categories_s.nextval
1586: FROM dual;
1587: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1588: BEGIN
1589: -- Standard Start of API savepoint
1590: SAVEPOINT Create_Category_PUB;
1591:
1812: l_category_rec INV_ITEM_CATEGORY_PUB.category_rec_type;
1813: l_success BOOLEAN; --boolean for descr. flex valiation
1814:
1815:
1816: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1817: BEGIN
1818: -- Standard Start of API savepoint
1819: SAVEPOINT Update_Category_PUB;
1820:
2010: -- On addition of any Optional parameters the minor version needs
2011: -- to change i.e. for eg. X.6 to X.7.
2012: l_api_version CONSTANT NUMBER := 1.0;
2013: l_row_count NUMBER;
2014: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2015: BEGIN
2016: -- Standard Start of API savepoint
2017: SAVEPOINT Update_Category_Desc_PUB;
2018:
2170: WHERE category_id = p_category_id
2171: );
2172:
2173:
2174: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2175: BEGIN
2176: -- Standard Start of API savepoint
2177: SAVEPOINT Delete_Category_PUB;
2178:
2357: -- On addition of any Optional parameters the minor version needs
2358: -- to change i.e. for eg. X.6 to X.7.
2359: l_api_version CONSTANT NUMBER := 1.0;
2360:
2361: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2362: BEGIN
2363:
2364: -- Standard Start of API savepoint
2365: SAVEPOINT Create_Category_Assignment_PUB;
2481: -- On addition of any Optional parameters the minor version needs
2482: -- to change i.e. for eg. X.6 to X.7.
2483: l_api_version CONSTANT NUMBER := 1.0;
2484: l_row_count NUMBER;
2485: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2486: BEGIN
2487: -- Standard Start of API savepoint
2488: SAVEPOINT Delete_Category_Assignment_PUB;
2489:
2600: ----------------------------------------------------------------------------
2601: FUNCTION Get_Category_Rec_Type
2602: RETURN INV_ITEM_CATEGORY_PUB.CATEGORY_REC_TYPE IS
2603: l_category_rec_type INV_ITEM_CATEGORY_PUB.CATEGORY_REC_TYPE ;
2604: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2605: BEGIN
2606: RETURN l_category_rec_type;
2607: END;
2608:
2623: MTL_DEFAULT_CATEGORY_SETS MDCS
2624: WHERE FUNCTIONAL_AREA_ID = 2
2625: AND MCS.CATEGORY_SET_ID = MDCS.CATEGORY_SET_ID;
2626:
2627: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2628: BEGIN
2629: IF (l_debug = 1) THEN
2630: mdebug('checking supplier enabled flag information provided'|| x_category_rec.supplier_enabled_flag);
2631: END IF;
2721: -- to change i.e. for eg. 1.X to 2.X.
2722: -- On addition of any Optional parameters the minor version needs
2723: -- to change i.e. for eg. X.6 to X.7.
2724: l_api_version CONSTANT NUMBER := 1.0;
2725: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2726: -- who column variables
2727: l_user_id mtl_category_set_valid_cats.created_by%TYPE;
2728: l_login_id mtl_category_set_valid_cats.last_update_login%TYPE;
2729: l_request_id mtl_category_set_valid_cats.request_id%TYPE;
2901: -- to change i.e. for eg. 1.X to 2.X.
2902: -- On addition of any Optional parameters the minor version needs
2903: -- to change i.e. for eg. X.6 to X.7.
2904: l_api_version CONSTANT NUMBER := 1.0;
2905: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2906: l_user_id mtl_category_set_valid_cats.created_by%TYPE;
2907: l_login_id mtl_category_set_valid_cats.last_update_login%TYPE;
2908: BEGIN
2909: IF l_debug = 1 THEN
3061: -- On addition of any Optional parameters the minor version needs
3062: -- to change i.e. for eg. X.6 to X.7.
3063: l_api_version CONSTANT NUMBER := 1.0;
3064: l_count NUMBER;
3065: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3066: l_description mtl_categories_vl.description%TYPE;
3067: l_category_id mtl_category_set_valid_cats.category_id%TYPE;
3068: l_def_category_id mtl_category_sets_b.default_category_id%TYPE;
3069: l_hrchy_enabled mtl_category_sets_b.hierarchy_enabled%TYPE;
3427: -- On addition of any Optional parameters the minor version needs
3428: -- to change i.e. for eg. X.6 to X.7.
3429: l_api_version CONSTANT NUMBER := 1.0;
3430: l_row_count NUMBER;
3431: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3432: BEGIN
3433: -- Standard Start of API savepoint
3434: SAVEPOINT Update_Category_Assignment_PUB;
3435: