[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;
1277: p_operation IN NUMBER -- added for 13850442
1278: ) IS
1279: l_success BOOLEAN;
1280: l_trim_str VARCHAR2(2000) ;
1281: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1282:
1283: BEGIN
1284: l_success := fnd_flex_keyval.validate_segs(
1285: operation => 'CHECK_SEGMENTS',
1351: AND id_flex_num = cp_flex_num
1352: AND enabled_flag = 'Y'
1353: ORDER BY segment_num ASC;
1354:
1355: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1356: BEGIN
1357: l_structure_id := p_category_rec.structure_id;
1358:
1359: OPEN segment_count(l_structure_id);
1602:
1603: CURSOR new_category_id IS
1604: SELECT mtl_categories_s.nextval
1605: FROM dual;
1606: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1607: BEGIN
1608: -- Standard Start of API savepoint
1609: SAVEPOINT Create_Category_PUB;
1610:
1831: l_category_rec INV_ITEM_CATEGORY_PUB.category_rec_type;
1832: l_success BOOLEAN; --boolean for descr. flex valiation
1833:
1834:
1835: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1836: BEGIN
1837: -- Standard Start of API savepoint
1838: SAVEPOINT Update_Category_PUB;
1839:
2029: -- On addition of any Optional parameters the minor version needs
2030: -- to change i.e. for eg. X.6 to X.7.
2031: l_api_version CONSTANT NUMBER := 1.0;
2032: l_row_count NUMBER;
2033: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2034: BEGIN
2035: -- Standard Start of API savepoint
2036: SAVEPOINT Update_Category_Desc_PUB;
2037:
2189: WHERE category_id = p_category_id
2190: );
2191:
2192:
2193: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2194: BEGIN
2195: -- Standard Start of API savepoint
2196: SAVEPOINT Delete_Category_PUB;
2197:
2376: -- On addition of any Optional parameters the minor version needs
2377: -- to change i.e. for eg. X.6 to X.7.
2378: l_api_version CONSTANT NUMBER := 1.0;
2379:
2380: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2381: BEGIN
2382:
2383: -- Standard Start of API savepoint
2384: SAVEPOINT Create_Category_Assignment_PUB;
2529: -- On addition of any Optional parameters the minor version needs
2530: -- to change i.e. for eg. X.6 to X.7.
2531: l_api_version CONSTANT NUMBER := 1.0;
2532: l_row_count NUMBER;
2533: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2534: BEGIN
2535: -- Standard Start of API savepoint
2536: SAVEPOINT Delete_Category_Assignment_PUB;
2537:
2678: ----------------------------------------------------------------------------
2679: FUNCTION Get_Category_Rec_Type
2680: RETURN INV_ITEM_CATEGORY_PUB.CATEGORY_REC_TYPE IS
2681: l_category_rec_type INV_ITEM_CATEGORY_PUB.CATEGORY_REC_TYPE ;
2682: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2683: BEGIN
2684: RETURN l_category_rec_type;
2685: END;
2686:
2701: MTL_DEFAULT_CATEGORY_SETS MDCS
2702: WHERE FUNCTIONAL_AREA_ID = 2
2703: AND MCS.CATEGORY_SET_ID = MDCS.CATEGORY_SET_ID;
2704:
2705: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2706: BEGIN
2707: IF (l_debug = 1) THEN
2708: mdebug('checking supplier enabled flag information provided'|| x_category_rec.supplier_enabled_flag);
2709: END IF;
2800: -- to change i.e. for eg. 1.X to 2.X.
2801: -- On addition of any Optional parameters the minor version needs
2802: -- to change i.e. for eg. X.6 to X.7.
2803: l_api_version CONSTANT NUMBER := 1.0;
2804: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2805: -- who column variables
2806: l_user_id mtl_category_set_valid_cats.created_by%TYPE;
2807: l_login_id mtl_category_set_valid_cats.last_update_login%TYPE;
2808: l_request_id mtl_category_set_valid_cats.request_id%TYPE;
2980: -- to change i.e. for eg. 1.X to 2.X.
2981: -- On addition of any Optional parameters the minor version needs
2982: -- to change i.e. for eg. X.6 to X.7.
2983: l_api_version CONSTANT NUMBER := 1.0;
2984: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2985: l_user_id mtl_category_set_valid_cats.created_by%TYPE;
2986: l_login_id mtl_category_set_valid_cats.last_update_login%TYPE;
2987: BEGIN
2988: IF l_debug = 1 THEN
3140: -- On addition of any Optional parameters the minor version needs
3141: -- to change i.e. for eg. X.6 to X.7.
3142: l_api_version CONSTANT NUMBER := 1.0;
3143: l_count NUMBER;
3144: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3145: l_description mtl_categories_vl.description%TYPE;
3146: l_category_id mtl_category_set_valid_cats.category_id%TYPE;
3147: l_def_category_id mtl_category_sets_b.default_category_id%TYPE;
3148: l_hrchy_enabled mtl_category_sets_b.hierarchy_enabled%TYPE;
3506: -- On addition of any Optional parameters the minor version needs
3507: -- to change i.e. for eg. X.6 to X.7.
3508: l_api_version CONSTANT NUMBER := 1.0;
3509: l_row_count NUMBER;
3510: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3511: BEGIN
3512: -- Standard Start of API savepoint
3513: SAVEPOINT Update_Category_Assignment_PUB;
3514:
3670: AND id_flex_num = cp_flex_num
3671: AND enabled_flag = 'Y'
3672: ORDER BY segment_num ASC;
3673:
3674: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3675:
3676: BEGIN
3677: --Pre-Process the passed in category record.
3678: Preprocess_Category_Rec(G_INSERT, p_category_rec, l_category_rec) ;