63: PROCEDURE gl_bs_add_awc (coa_id IN NUMBER,
64: segment_type IN VARCHAR2)
65: IS
66:
67: l_flexfield fnd_flex_key_api.flexfield_type;
68: l_structure fnd_flex_key_api.structure_type;
69: l_segment fnd_flex_key_api.segment_type;
70: l_numof_awc_elements number;
71: l_awc_elements fnd_flex_key_api.awc_elements_type;
64: segment_type IN VARCHAR2)
65: IS
66:
67: l_flexfield fnd_flex_key_api.flexfield_type;
68: l_structure fnd_flex_key_api.structure_type;
69: l_segment fnd_flex_key_api.segment_type;
70: l_numof_awc_elements number;
71: l_awc_elements fnd_flex_key_api.awc_elements_type;
72: l_found boolean;
65: IS
66:
67: l_flexfield fnd_flex_key_api.flexfield_type;
68: l_structure fnd_flex_key_api.structure_type;
69: l_segment fnd_flex_key_api.segment_type;
70: l_numof_awc_elements number;
71: l_awc_elements fnd_flex_key_api.awc_elements_type;
72: l_found boolean;
73: l_segment_name VARCHAR2(30);
67: l_flexfield fnd_flex_key_api.flexfield_type;
68: l_structure fnd_flex_key_api.structure_type;
69: l_segment fnd_flex_key_api.segment_type;
70: l_numof_awc_elements number;
71: l_awc_elements fnd_flex_key_api.awc_elements_type;
72: l_found boolean;
73: l_segment_name VARCHAR2(30);
74: l_flex_value_type VARCHAR2(1);
75: l_tab_val_vs NUMBER;
75: l_tab_val_vs NUMBER;
76: l_flex_value_col_name VARCHAR2(50);
77:
78: BEGIN
79: fnd_flex_key_api.set_session_mode('seed_data');
80:
81: l_flexfield := fnd_flex_key_api.find_flexfield('SQLGL', 'GL#');
82:
83: l_structure := fnd_flex_key_api.find_structure(l_flexfield, coa_id);
77:
78: BEGIN
79: fnd_flex_key_api.set_session_mode('seed_data');
80:
81: l_flexfield := fnd_flex_key_api.find_flexfield('SQLGL', 'GL#');
82:
83: l_structure := fnd_flex_key_api.find_structure(l_flexfield, coa_id);
84:
85: SELECT t1.segment_name, ffvs.validation_type, t1.flex_value_Set_id
79: fnd_flex_key_api.set_session_mode('seed_data');
80:
81: l_flexfield := fnd_flex_key_api.find_flexfield('SQLGL', 'GL#');
82:
83: l_structure := fnd_flex_key_api.find_structure(l_flexfield, coa_id);
84:
85: SELECT t1.segment_name, ffvs.validation_type, t1.flex_value_Set_id
86: INTO l_segment_name, l_flex_value_type, l_tab_val_vs
87: FROM fnd_id_flex_segments t1,
111:
112:
113: l_segment :=
114:
115: fnd_flex_key_api.find_segment(l_flexfield, l_structure,l_segment_name);
116:
117: -- Get AWCs
118: --
119: fnd_flex_key_api.get_awc_elements(l_flexfield, l_structure, l_segment,
115: fnd_flex_key_api.find_segment(l_flexfield, l_structure,l_segment_name);
116:
117: -- Get AWCs
118: --
119: fnd_flex_key_api.get_awc_elements(l_flexfield, l_structure, l_segment,
120: l_numof_awc_elements, l_awc_elements);
121: --
122: -- Add a new AWC
123: --
132: IF (NOT l_found) THEN
133:
134: IF (l_flex_value_type <> 'F') THEN
135:
136: fnd_flex_key_api.add_awc(l_flexfield, l_structure, l_segment,
137: 'GL_COA_BS_TAG',
138: 'GL_AFF_AWC_API_PKG.'||
139: 'gl_valid_flex_values(:$FLEX$.$VDATE$, '||
140: 'FND_FLEX_VALUES_VL.Flex_Value) = ''Y''') ;
141:
142:
143: ELSE
144:
145: fnd_flex_key_api.add_awc(l_flexfield, l_structure, l_segment,
146: 'GL_COA_BS_TAG',
147: 'GL_AFF_AWC_API_PKG.'||
148: 'gl_valid_flex_values(:$FLEX$.$VDATE$,'
149: ||l_flex_value_col_name||') = ''Y''');
227: PROCEDURE gl_bs_delete_awc (coa_id IN NUMBER,
228: segment_type IN VARCHAR2)
229: IS
230:
231: l_flexfield fnd_flex_key_api.flexfield_type;
232: l_structure fnd_flex_key_api.structure_type;
233: l_segment fnd_flex_key_api.segment_type;
234: l_numof_awc_elements number;
235: l_awc_elements fnd_flex_key_api.awc_elements_type;
228: segment_type IN VARCHAR2)
229: IS
230:
231: l_flexfield fnd_flex_key_api.flexfield_type;
232: l_structure fnd_flex_key_api.structure_type;
233: l_segment fnd_flex_key_api.segment_type;
234: l_numof_awc_elements number;
235: l_awc_elements fnd_flex_key_api.awc_elements_type;
236: l_found boolean;
229: IS
230:
231: l_flexfield fnd_flex_key_api.flexfield_type;
232: l_structure fnd_flex_key_api.structure_type;
233: l_segment fnd_flex_key_api.segment_type;
234: l_numof_awc_elements number;
235: l_awc_elements fnd_flex_key_api.awc_elements_type;
236: l_found boolean;
237: l_segment_name VARCHAR2(30);
231: l_flexfield fnd_flex_key_api.flexfield_type;
232: l_structure fnd_flex_key_api.structure_type;
233: l_segment fnd_flex_key_api.segment_type;
234: l_numof_awc_elements number;
235: l_awc_elements fnd_flex_key_api.awc_elements_type;
236: l_found boolean;
237: l_segment_name VARCHAR2(30);
238:
239: BEGIN
236: l_found boolean;
237: l_segment_name VARCHAR2(30);
238:
239: BEGIN
240: fnd_flex_key_api.set_session_mode('seed_data');
241:
242: l_flexfield := fnd_flex_key_api.find_flexfield('SQLGL', 'GL#');
243:
244: l_structure := fnd_flex_key_api.find_structure(l_flexfield, coa_id);
238:
239: BEGIN
240: fnd_flex_key_api.set_session_mode('seed_data');
241:
242: l_flexfield := fnd_flex_key_api.find_flexfield('SQLGL', 'GL#');
243:
244: l_structure := fnd_flex_key_api.find_structure(l_flexfield, coa_id);
245:
246: SELECT t1.segment_name
240: fnd_flex_key_api.set_session_mode('seed_data');
241:
242: l_flexfield := fnd_flex_key_api.find_flexfield('SQLGL', 'GL#');
243:
244: l_structure := fnd_flex_key_api.find_structure(l_flexfield, coa_id);
245:
246: SELECT t1.segment_name
247: INTO l_segment_name
248: FROM fnd_id_flex_segments t1,
260: AND t2.attribute_value = 'Y'
261: AND ffvs.flex_value_set_id = t1.flex_value_set_id;
262:
263: l_segment :=
264: fnd_flex_key_api.find_segment(l_flexfield, l_structure,l_segment_name);
265:
266: -- Get AWCs
267: --
268: fnd_flex_key_api.get_awc_elements(l_flexfield, l_structure, l_segment,
264: fnd_flex_key_api.find_segment(l_flexfield, l_structure,l_segment_name);
265:
266: -- Get AWCs
267: --
268: fnd_flex_key_api.get_awc_elements(l_flexfield, l_structure, l_segment,
269: l_numof_awc_elements, l_awc_elements);
270:
271: --
272: -- Delete an old AWC
279: END IF;
280: END LOOP;
281:
282: IF (l_found) THEN
283: fnd_flex_key_api.delete_awc(l_flexfield, l_structure, l_segment,
284: 'GL_COA_BS_TAG');
285: END IF;
286:
287: END gl_bs_delete_awc;