51:
52:
53: Procedure Create_Category_Sets IS
54:
55: p_category_set mtl_category_sets_b.Category_set_ID%TYPE;
56: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
57: p_structure_id FND_FLEX_KEY_API.STRUCTURE_TYPE;
58: v_structure_id FND_FLEX_KEY_API.STRUCTURE_TYPE;
59: l_segment FND_FLEX_KEY_API.segment_type;
62: l_structure_exists Boolean;
63: l_segment_exists Boolean;
64: p_StatCode_struct FND_FLEX_KEY_API.STRUCTURE_TYPE;
65: msg VARCHAR2(1000);
66: l_category_set_id mtl_category_sets_b.Category_set_ID%TYPE;
67:
68: l_structure_id NUMBER;
69: l_control_level NUMBER;
70: l_row_id VARCHAR2(100);
193:
194: BEGIN
195: SELECT category_set_ID, structure_id
196: INTO l_category_set_id, l_structure_id
197: FROM mtl_category_sets
198: WHERE Category_Set_Name ='STATISTICAL_CODE';
199: EXCEPTION
200: WHEN NO_DATA_FOUND THEN
201: l_category_set_id := NULL;
202: END;
203:
204: IF l_category_set_id IS NULL THEN
205:
206: SELECT MTL_CATEGORY_SETS_S.NEXTVAL into l_next_val from dual;
207: -- Assuming Master Organization Control level
208: -- Bug 6441455, X_CONTROL_LEVEL - Passing 2 for Org control
209:
210: MTL_CATEGORY_SETS_PKG.INSERT_ROW (
206: SELECT MTL_CATEGORY_SETS_S.NEXTVAL into l_next_val from dual;
207: -- Assuming Master Organization Control level
208: -- Bug 6441455, X_CONTROL_LEVEL - Passing 2 for Org control
209:
210: MTL_CATEGORY_SETS_PKG.INSERT_ROW (
211: X_ROWID => l_row_id,
212: X_CATEGORY_SET_ID => l_next_val,
213: X_CATEGORY_SET_NAME => 'STATISTICAL_CODE',
214: X_DESCRIPTION => 'Statistical Code',
241: p_category_set_name IN VARCHAR2,
242: p_category_set_desc IN VARCHAR2 )
243: IS
244:
245: p_category_set mtl_category_sets_b.Category_set_ID%TYPE;
246: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
247: p_structure_id FND_FLEX_KEY_API.STRUCTURE_TYPE;
248: v_structure_id FND_FLEX_KEY_API.STRUCTURE_TYPE;
249: l_segment FND_FLEX_KEY_API.segment_type;
252: l_structure_exists Boolean;
253: l_segment_exists Boolean;
254: p_StatCode_struct FND_FLEX_KEY_API.STRUCTURE_TYPE;
255: msg VARCHAR2(1000);
256: l_category_set_id mtl_category_sets_b.Category_set_ID%TYPE;
257:
258: l_structure_id NUMBER;
259: l_control_level NUMBER;
260: l_row_id VARCHAR2(100);
384:
385: BEGIN
386: SELECT category_set_ID, structure_id
387: INTO l_category_set_id, l_structure_id
388: FROM mtl_category_sets
389: WHERE Category_Set_Name = p_category_set_name;
390: EXCEPTION
391: WHEN NO_DATA_FOUND THEN
392: l_category_set_id := NULL;
398: IF p_category_set_name = 'FISCAL_CLASSIFICATION' THEN
399: -- check if set id 1100000209 is not used
400: SELECT count(*)
401: INTO l_count
402: FROM mtl_category_sets
403: WHERE category_set_id = 1100000209;
404: IF l_count = 0 THEN
405: l_next_val := 1100000209;
406: ELSE
403: WHERE category_set_id = 1100000209;
404: IF l_count = 0 THEN
405: l_next_val := 1100000209;
406: ELSE
407: SELECT MTL_CATEGORY_SETS_S.NEXTVAL into l_next_val from dual;
408: END IF;
409: ELSIF p_category_set_name = 'INTENDED_USE' THEN
410: -- check if set id 1100000211 is not used
411: SELECT count(*)
409: ELSIF p_category_set_name = 'INTENDED_USE' THEN
410: -- check if set id 1100000211 is not used
411: SELECT count(*)
412: INTO l_count
413: FROM mtl_category_sets
414: WHERE category_set_id = 1100000211;
415: IF l_count = 0 THEN
416: l_next_val := 1100000211;
417: ELSE
414: WHERE category_set_id = 1100000211;
415: IF l_count = 0 THEN
416: l_next_val := 1100000211;
417: ELSE
418: SELECT MTL_CATEGORY_SETS_S.NEXTVAL into l_next_val from dual;
419: END IF;
420: ELSE
421: SELECT MTL_CATEGORY_SETS_S.NEXTVAL into l_next_val from dual;
422: END IF;
417: ELSE
418: SELECT MTL_CATEGORY_SETS_S.NEXTVAL into l_next_val from dual;
419: END IF;
420: ELSE
421: SELECT MTL_CATEGORY_SETS_S.NEXTVAL into l_next_val from dual;
422: END IF;
423:
424: -- Assuming Master Organization Control level
425: -- Bug 6441455, X_CONTROL_LEVEL - Passing 2 for Org control
423:
424: -- Assuming Master Organization Control level
425: -- Bug 6441455, X_CONTROL_LEVEL - Passing 2 for Org control
426:
427: MTL_CATEGORY_SETS_PKG.INSERT_ROW (
428: X_ROWID => l_row_id,
429: X_CATEGORY_SET_ID => l_next_val,
430: X_CATEGORY_SET_NAME => p_category_set_name,
431: X_DESCRIPTION => p_category_set_desc,
477: l_context :='JL.AR.APXINWKB.INVOICES';
478: l_global_att := 'GLOBAL_ATTRIBUTE10';
479: END IF;
480:
481: update MTL_CATEGORY_SETS_TL MS set (
482: SOURCE_LANG ,
483: LANGUAGE ,
484: CATEGORY_SET_NAME ,
485: DESCRIPTION ,
523: PROCEDURE CREATE_MTL_CATEGORIES (
524: l_lookup_type IN VARCHAR2,
525: l_category_name IN VARCHAR2,
526: l_category_status OUT NOCOPY VARCHAR2,
527: l_category_set OUT NOCOPY mtl_category_sets_b.Category_set_ID%TYPE,
528: l_structure_id OUT NOCOPY mtl_category_sets_b.structure_id%TYPE )
529: IS
530: p_category_set MTL_CATEGORY_SETS_B.CATEGORY_SET_ID%TYPE;
531: p_structure_id mtl_category_sets_b.structure_id%TYPE;
524: l_lookup_type IN VARCHAR2,
525: l_category_name IN VARCHAR2,
526: l_category_status OUT NOCOPY VARCHAR2,
527: l_category_set OUT NOCOPY mtl_category_sets_b.Category_set_ID%TYPE,
528: l_structure_id OUT NOCOPY mtl_category_sets_b.structure_id%TYPE )
529: IS
530: p_category_set MTL_CATEGORY_SETS_B.CATEGORY_SET_ID%TYPE;
531: p_structure_id mtl_category_sets_b.structure_id%TYPE;
532: l_category_set_exists BOOLEAN;
526: l_category_status OUT NOCOPY VARCHAR2,
527: l_category_set OUT NOCOPY mtl_category_sets_b.Category_set_ID%TYPE,
528: l_structure_id OUT NOCOPY mtl_category_sets_b.structure_id%TYPE )
529: IS
530: p_category_set MTL_CATEGORY_SETS_B.CATEGORY_SET_ID%TYPE;
531: p_structure_id mtl_category_sets_b.structure_id%TYPE;
532: l_category_set_exists BOOLEAN;
533:
534: BEGIN
527: l_category_set OUT NOCOPY mtl_category_sets_b.Category_set_ID%TYPE,
528: l_structure_id OUT NOCOPY mtl_category_sets_b.structure_id%TYPE )
529: IS
530: p_category_set MTL_CATEGORY_SETS_B.CATEGORY_SET_ID%TYPE;
531: p_structure_id mtl_category_sets_b.structure_id%TYPE;
532: l_category_set_exists BOOLEAN;
533:
534: BEGIN
535:
536: /* Get the Seeded Item Category Set Value */
537: BEGIN
538: SELECT Category_set_ID, structure_id
539: INTO p_category_set, p_structure_id
540: FROM mtl_category_sets
541: WHERE Category_Set_Name =l_category_name;
542:
543: l_category_set_exists :=TRUE;
544: l_category_status :='EXISTS';
652: PROCEDURE MTL_SYSTEM_ITEMS IS
653:
654: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
655:
656: l_structure_id mtl_category_sets_b.structure_id%TYPE;
657: l_category_status VARCHAR2(200);
658: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
659:
660: l_Inventory_Category_Set mtl_category_sets_vl.Category_set_ID%TYPE;
654: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
655:
656: l_structure_id mtl_category_sets_b.structure_id%TYPE;
657: l_category_status VARCHAR2(200);
658: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
659:
660: l_Inventory_Category_Set mtl_category_sets_vl.Category_set_ID%TYPE;
661: l_Item_id Number;
662: l_Item_organization_id Number;
656: l_structure_id mtl_category_sets_b.structure_id%TYPE;
657: l_category_status VARCHAR2(200);
658: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
659:
660: l_Inventory_Category_Set mtl_category_sets_vl.Category_set_ID%TYPE;
661: l_Item_id Number;
662: l_Item_organization_id Number;
663: l_record_type zx_Fc_types_b.record_type_code%type;
664: l_classification_name fnd_lookup_values.meaning%type;
1072: PROCEDURE FC_ENTITIES IS
1073:
1074: CURSOR c_wine_category IS
1075: SELECT Category_set_ID
1076: FROM mtl_category_sets
1077: WHERE Category_Set_Name ='WINE_CIGARRETE_CATEGORY';
1078:
1079: l_LANGUAGE zx_fc_types_tl.language%type;
1080: l_fc_id zx_fc_codes_b.classification_id%type;
1077: WHERE Category_Set_Name ='WINE_CIGARRETE_CATEGORY';
1078:
1079: l_LANGUAGE zx_fc_types_tl.language%type;
1080: l_fc_id zx_fc_codes_b.classification_id%type;
1081: p_category_set mtl_category_sets_vl.Category_set_ID%TYPE;
1082: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
1083: p_structure_id FND_FLEX_KEY_API.STRUCTURE_TYPE;
1084: v_structure_id FND_FLEX_KEY_API.STRUCTURE_TYPE;
1085: v_classification_code zx_fc_codes_b.classification_code%type;
3140: 'PRODUCT_FISCAL_CLASS',
3141: sysdate,
3142: null,
3143: 1,
3144: 'MTL_CATEGORY_SETS_B',
3145: p_owner_id_num,
3146: 1,
3147: 400,
3148: 'MIGRATED',
3490: PROCEDURE ZX_MIGRATE_AP IS
3491:
3492: l_fc_id zx_fc_codes_b.classification_id%type;
3493:
3494: l_structure_id mtl_category_sets_b.structure_id%TYPE;
3495: l_category_status VARCHAR2(200);
3496: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
3497:
3498: BEGIN
3492: l_fc_id zx_fc_codes_b.classification_id%type;
3493:
3494: l_structure_id mtl_category_sets_b.structure_id%TYPE;
3495: l_category_status VARCHAR2(200);
3496: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
3497:
3498: BEGIN
3499:
3500: arp_util_tax.debug('ZX_MIGRATE_AP(+)');
3689: If Zx_Migrate_Util.IS_INSTALLED('INV') = 'Y' THEN
3690:
3691: SELECT category_set_id
3692: Into l_category_set
3693: FROM mtl_category_sets_vl
3694: WHERE category_set_name ='INTENDED_USE';
3695:
3696: UPDATE ZX_FC_TYPES_B
3697: SET owner_table_code = 'MTL_CATEGORY_SETS_B',
3693: FROM mtl_category_sets_vl
3694: WHERE category_set_name ='INTENDED_USE';
3695:
3696: UPDATE ZX_FC_TYPES_B
3697: SET owner_table_code = 'MTL_CATEGORY_SETS_B',
3698: owner_id_num = l_category_set,
3699: start_position = 1,
3700: num_characters = 400,
3701: last_update_date = sysdate,
4735: x_return_status OUT NOCOPY VARCHAR2
4736: )
4737: IS
4738:
4739: l_structure_id mtl_category_sets_b.structure_id%TYPE;
4740: l_category_status varchar2(200);
4741:
4742: BEGIN
4743:
4780: 'WINE_CIGARRETE_CATEGORY',
4781: 'Wine Cigarrete');
4782: BEGIN
4783: SELECT Category_set_ID INTO x_category_set
4784: FROM mtl_category_sets
4785: WHERE Category_Set_Name ='WINE_CIGARRETE_CATEGORY';
4786: EXCEPTION
4787: WHEN NO_DATA_FOUND THEN
4788: x_category_set := NULL;
4795:
4796: END IF;
4797:
4798: IF x_category_set is not null then
4799: SELECT category_set_name INTO x_category_set_name FROM MTL_CATEGORY_SETS_VL
4800: WHERE category_set_id = x_category_set and rownum = 1;
4801: END IF;
4802:
4803: -- Update the record type, created by and last updated by values
4821:
4822:
4823: PROCEDURE OKL_MIGRATION IS
4824: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
4825: l_structure_id mtl_category_sets_b.structure_id%TYPE;
4826: l_category_status VARCHAR2(200);
4827: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
4828: l_Inventory_Category_Set mtl_category_sets_vl.Category_set_ID%TYPE;
4829: l_Item_id Number;
4823: PROCEDURE OKL_MIGRATION IS
4824: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
4825: l_structure_id mtl_category_sets_b.structure_id%TYPE;
4826: l_category_status VARCHAR2(200);
4827: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
4828: l_Inventory_Category_Set mtl_category_sets_vl.Category_set_ID%TYPE;
4829: l_Item_id Number;
4830: l_Item_organization_id Number;
4831: l_record_type zx_Fc_types_b.record_type_code%type;
4824: p_flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
4825: l_structure_id mtl_category_sets_b.structure_id%TYPE;
4826: l_category_status VARCHAR2(200);
4827: l_category_set mtl_category_sets_b.Category_set_ID%TYPE;
4828: l_Inventory_Category_Set mtl_category_sets_vl.Category_set_ID%TYPE;
4829: l_Item_id Number;
4830: l_Item_organization_id Number;
4831: l_record_type zx_Fc_types_b.record_type_code%type;
4832: l_classification_name fnd_lookup_values.meaning%type;
4840: l_return_status varchar2(200);
4841: -- l_errorcode number;
4842: -- l_msg_count number;
4843: -- l_MSG_DATA varchar2(200);
4844: p_category_set mtl_category_sets_b.Category_set_ID%TYPE;
4845: p_structure_id FND_FLEX_KEY_API.STRUCTURE_TYPE;
4846: l_segment FND_FLEX_KEY_API.segment_type;
4847: p_StatCode_Segment FND_FLEX_KEY_API.segment_type;
4848: p_StatCode_Segmentnew FND_FLEX_KEY_API.segment_type;
4850: l_structure_exists Boolean;
4851: l_segment_exists Boolean;
4852: p_StatCode_struct FND_FLEX_KEY_API.STRUCTURE_TYPE;
4853: msg VARCHAR2(1000);
4854: l_category_set_id mtl_category_sets_b.Category_set_ID%TYPE;
4855: -- l_control_level NUMBER;
4856: -- l_row_id VARCHAR2(100);
4857: -- l_next_val NUMBER;
4858: