[Home] [Help]
23: FROM cs_csi_counter_groups
24: WHERE name = p_name
25: AND template_flag = p_template_flag;
26:
27: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_DUPLICATE');
28: EXCEPTION
29: WHEN NO_DATA_FOUND THEN
30: NULL;
31: WHEN OTHERS THEN
28: EXCEPTION
29: WHEN NO_DATA_FOUND THEN
30: NULL;
31: WHEN OTHERS THEN
32: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_GRP_DUPLICATE');
33: END;
34: END IF;
35: END validate_counter_group;
36:
39: p_start_date DATE
40: ) IS
41: BEGIN
42: IF p_start_date IS NULL THEN
43: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_STDATE_INVALID');
44: END IF;
45: END validate_start_date;
46:
47: PROCEDURE validate_inventory_item
61: AND organization_id = l_inv_valdn_org_id;
62: -- AND organization_id = cs_std.get_item_valdn_orgzn_id;
63: EXCEPTION
64: WHEN NO_DATA_FOUND THEN
65: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_INVALID','INVENTORY_ITEM',p_inventory_item_id,'ORG_ID',l_inv_valdn_org_id);
66: END;
67: ELSE
68: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ISNULL');
69: END IF;
64: WHEN NO_DATA_FOUND THEN
65: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_INVALID','INVENTORY_ITEM',p_inventory_item_id,'ORG_ID',l_inv_valdn_org_id);
66: END;
67: ELSE
68: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ISNULL');
69: END IF;
70: END validate_inventory_item;
71:
72: PROCEDURE validate_lookups
86: OR meaning= p_lookup_code; --Added for bug #6904836
87:
88: EXCEPTION
89: WHEN NO_DATA_FOUND THEN
90: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_LOOKUP_INVALID','LOOKUP_TYPE',p_lookup_type,'LOOKUP_CODE',p_lookup_code);
91: END;
92: END validate_lookups;
93:
94: PROCEDURE Validate_Data_Type
130: l_date := l_default_value;
131: l_date := l_minimum_value;
132: l_date := l_maximum_value;
133: ELSE
134: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PROP_DATA_TYPE');
135: END IF;
136: EXCEPTION
137: WHEN OTHERS THEN
138: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_VAL_DATATYPE','DATA_TYPE',p_property_data_type);
134: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PROP_DATA_TYPE');
135: END IF;
136: EXCEPTION
137: WHEN OTHERS THEN
138: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_VAL_DATATYPE','DATA_TYPE',p_property_data_type);
139: END Validate_Data_Type;
140:
141: PROCEDURE validate_uom
142: (
150: FROM mtl_units_of_measure
151: WHERE uom_code = p_uom_code;
152: EXCEPTION
153: WHEN no_data_found THEN
154: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_INVALID_UOM_CODE','UNIT_OF_MEASURE',p_uom_code);
155: END validate_uom;
156:
157: PROCEDURE validate_ctr_relationship
158: (
171: WHERE counter_id = p_counter_id;
172:
173: EXCEPTION
174: WHEN no_data_found THEN
175: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_INVALID_COUNTER');
176: END validate_ctr_relationship;
177:
178: PROCEDURE Validate_Counter
179: (
212: l_ctr_type_valid varchar2(1);
213: l_inv_valdn_org_id NUMBER := fnd_profile.value('CS_INV_VALIDATION_ORG');
214: BEGIN
215: -- Read the debug profiles values in to global variable 7197402
216: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
217:
218: -- validate counter name is not null
219: if p_name is null then
220: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_CTR_NAME');
216: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
217:
218: -- validate counter name is not null
219: if p_name is null then
220: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_CTR_NAME');
221: else
222: --Changed for Bug 7462345, validating the name while update
223: BEGIN
224: SELECT 'x'
225: INTO l_exists
226: FROM csi_counter_template_vl
227: WHERE upper(name) = upper(p_name)
228: AND COUNTER_ID <> Nvl(p_counter_id, FND_API.G_MISS_NUM);
229: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_DUP_NAME','CTR_NAME',p_name);
230: EXCEPTION
231: WHEN NO_DATA_FOUND THEN
232: NULL;
233: WHEN TOO_MANY_ROWS THEN
230: EXCEPTION
231: WHEN NO_DATA_FOUND THEN
232: NULL;
233: WHEN TOO_MANY_ROWS THEN
234: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_DUP_NAME','CTR_NAME',p_name);
235: END;
236:
237: END IF;
238:
250: -- and organization_id = cs_std.get_item_valdn_orgzn_id
251: and usage_item_flag = 'Y';
252: exception
253: when no_data_found then
254: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_USAGE_ITEM');
255: end;
256:
257: if p_group_id is null then
258: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_GRP_NAME');
254: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_USAGE_ITEM');
255: end;
256:
257: if p_group_id is null then
258: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_GRP_NAME');
259: end if;
260: end if;
261:
262: -- validate counter group id
267: from cs_csi_counter_groups
268: where counter_group_id = p_group_id;
269: exception
270: when no_data_found then
271: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_INVALID');
272: end;
273: end if;
274:
275: --validate estimation id exists only if direction is not null
273: end if;
274:
275: --validate estimation id exists only if direction is not null
276: if p_estimation_id is not null and p_direction is null then
277: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_NO_DIRECTION');
278: end if;
279:
280: -- Validate that automatic rollover should not exist if direction is Bi-Direction
281: if nvl(p_automatic_rollover,'N') = 'Y' and p_direction not in ('A','D') then
278: end if;
279:
280: -- Validate that automatic rollover should not exist if direction is Bi-Direction
281: if nvl(p_automatic_rollover,'N') = 'Y' and p_direction not in ('A','D') then
282: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_ARO_NO_DIRECTION');
283: end if;
284:
285: --validate tolerance plus and tolerance minus for negative values
286: if p_tolerance_plus < 0 or p_tolerance_minus <0 then
283: end if;
284:
285: --validate tolerance plus and tolerance minus for negative values
286: if p_tolerance_plus < 0 or p_tolerance_minus <0 then
287: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_TOLERANCE');
288: end if;
289:
290: --validate counter type
291: IF p_counter_type IS NULL THEN
288: end if;
289:
290: --validate counter type
291: IF p_counter_type IS NULL THEN
292: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INVALID_CTR_TYPE');
293: ELSE
294: BEGIN
295: select 'x'
296: into l_ctr_type_valid
298: where lookup_type = 'CSI_COUNTER_TYPE'
299: and lookup_code = p_counter_type;
300: EXCEPTION
301: WHEN NO_DATA_FOUND THEN
302: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INVALID_CTR_TYPE');
303: END;
304: end if;
305:
306: --validate counter type parameters
317: end;
318:
319: if l_time_uom = 'N' then
320: if p_reading_type not in (1,2) then
321: csi_ctr_gen_utility_pvt.put_line(' Regular ');
322: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_CTR_TYPE','PARAM','p_reading_type','CTR_TYPE',p_counter_type);
323: end if;
324:
325: if p_derive_function is not null or
318:
319: if l_time_uom = 'N' then
320: if p_reading_type not in (1,2) then
321: csi_ctr_gen_utility_pvt.put_line(' Regular ');
322: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_CTR_TYPE','PARAM','p_reading_type','CTR_TYPE',p_counter_type);
323: end if;
324:
325: if p_derive_function is not null or
326: p_formula_text is not null or
328: p_filter_type is not null or
329: p_filter_reading_count is not null or
330: p_filter_time_uom is not null then
331:
332: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
333: end if;
334:
335: --validate required parameter values exist for automatic rollover
336: if nvl(p_automatic_rollover,'N') = 'Y' then
334:
335: --validate required parameter values exist for automatic rollover
336: if nvl(p_automatic_rollover,'N') = 'Y' then
337: if p_rollover_last_reading is null then
338: csi_ctr_gen_utility_pvt.ExitWithErrMsg
339: ( p_msg_name => 'CSI_API_CTR_REQ_PARM',
340: p_token1_name => 'PARAM',
341: p_token1_val => 'for rollover attribute'
342: );
340: p_token1_name => 'PARAM',
341: p_token1_val => 'for rollover attribute'
342: );
343: elsif p_rollover_first_reading is null then
344: csi_ctr_gen_utility_pvt.ExitWithErrMsg
345: ( p_msg_name => 'CSI_API_CTR_REQ_PARM',
346: p_token1_name => 'PARAM',
347: p_token1_val => 'for rollover attribute'
348: -- p_token1_val => 'p_rollover_first_reading'
349: );
350: end if;
351: --Rollover from must be greater than Rollover to for direction Ascending
352: if p_direction = 'A' and p_rollover_last_reading <= p_rollover_first_reading then
353: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_RO_DATA');
354: end if;
355: --Rollover from must be less than Rollover to for direction Descending
356: if p_direction = 'D' and p_rollover_last_reading >= p_rollover_first_reading then
357: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_RO_DATA');
353: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_RO_DATA');
354: end if;
355: --Rollover from must be less than Rollover to for direction Descending
356: if p_direction = 'D' and p_rollover_last_reading >= p_rollover_first_reading then
357: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_RO_DATA');
358: end if;
359: end if;
360: -- Rollover from and Rollover to field should not have values if automatic rollover is not checked.
361: if nvl(p_automatic_rollover,'N') = 'N' and (p_rollover_last_reading is NOT NULL or p_rollover_first_reading IS NOT NULL) then
358: end if;
359: end if;
360: -- Rollover from and Rollover to field should not have values if automatic rollover is not checked.
361: if nvl(p_automatic_rollover,'N') = 'N' and (p_rollover_last_reading is NOT NULL or p_rollover_first_reading IS NOT NULL) then
362: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_RO_ARO');
363: end if;
364:
365: --validate if required parameter values exist for used in scheduling
366: if nvl(p_used_in_scheduling,'N') = 'Y' then
364:
365: --validate if required parameter values exist for used in scheduling
366: if nvl(p_used_in_scheduling,'N') = 'Y' then
367: if p_initial_reading is null then
368: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
369: elsif p_default_usage_rate is null then
370: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
371: elsif p_use_past_reading is null then
372: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
366: if nvl(p_used_in_scheduling,'N') = 'Y' then
367: if p_initial_reading is null then
368: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
369: elsif p_default_usage_rate is null then
370: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
371: elsif p_use_past_reading is null then
372: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
373: end if;
374: end if;
368: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
369: elsif p_default_usage_rate is null then
370: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
371: elsif p_use_past_reading is null then
372: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
373: end if;
374: end if;
375: else -- if type is a time counter
376: if p_derive_function is not null or
385: p_tolerance_plus is not null or
386: p_tolerance_minus is not null or
387: p_estimation_id is not null
388: then
389: csi_ctr_gen_utility_pvt.put_line(' Time ');
390: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
391: end if;
392:
393: if nvl(p_used_in_scheduling,'N') = 'Y' then
386: p_tolerance_minus is not null or
387: p_estimation_id is not null
388: then
389: csi_ctr_gen_utility_pvt.put_line(' Time ');
390: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
391: end if;
392:
393: if nvl(p_used_in_scheduling,'N') = 'Y' then
394: if p_initial_reading is null then
391: end if;
392:
393: if nvl(p_used_in_scheduling,'N') = 'Y' then
394: if p_initial_reading is null then
395: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
396: elsif p_default_usage_rate is null then
397: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
398: elsif p_use_past_reading is null then
399: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
393: if nvl(p_used_in_scheduling,'N') = 'Y' then
394: if p_initial_reading is null then
395: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
396: elsif p_default_usage_rate is null then
397: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
398: elsif p_use_past_reading is null then
399: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
400: end if;
401: end if;
395: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
396: elsif p_default_usage_rate is null then
397: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
398: elsif p_use_past_reading is null then
399: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_USE_SCHD');
400: end if;
401: end if;
402:
403: end if; --l_time_uom
403: end if; --l_time_uom
404: elsif p_counter_type = 'FORMULA' then
405: if p_derive_function is null then
406: if p_formula_text is null then
407: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_FORMULA');
408: end if;
409:
410: if p_derive_counter_id is not null or
411: p_filter_type is not null or
417: p_initial_reading is not null
418: -- p_tolerance_plus is not null or
419: -- p_tolerance_minus is not null
420: then
421: csi_ctr_gen_utility_pvt.put_line(' Formula');
422: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
423: end if;
424: elsif p_derive_function='AVERAGE' and p_filter_type='COUNT' then
425: if p_filter_reading_count < 0 then
418: -- p_tolerance_plus is not null or
419: -- p_tolerance_minus is not null
420: then
421: csi_ctr_gen_utility_pvt.put_line(' Formula');
422: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
423: end if;
424: elsif p_derive_function='AVERAGE' and p_filter_type='COUNT' then
425: if p_filter_reading_count < 0 then
426: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_FORMULA');
422: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
423: end if;
424: elsif p_derive_function='AVERAGE' and p_filter_type='COUNT' then
425: if p_filter_reading_count < 0 then
426: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_FORMULA');
427: end if;
428:
429: if p_formula_text is not null or
430: p_filter_time_uom is not null or
438: p_estimation_id is not null
439: -- p_tolerance_plus is not null or
440: -- p_tolerance_minus is not null
441: then
442: csi_ctr_gen_utility_pvt.put_line(' Failed Average and Count');
443: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
444: end if;
445: elsif p_derive_function='AVERAGE' and p_filter_type='TIME' then
446: if p_filter_time_uom is null then
439: -- p_tolerance_plus is not null or
440: -- p_tolerance_minus is not null
441: then
442: csi_ctr_gen_utility_pvt.put_line(' Failed Average and Count');
443: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
444: end if;
445: elsif p_derive_function='AVERAGE' and p_filter_type='TIME' then
446: if p_filter_time_uom is null then
447: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_FORMULA');
443: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
444: end if;
445: elsif p_derive_function='AVERAGE' and p_filter_type='TIME' then
446: if p_filter_time_uom is null then
447: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_FORMULA');
448: end if;
449:
450: if p_formula_text is not null or
451: p_filter_reading_count is not null or
459: p_estimation_id is not null
460: -- p_tolerance_plus is not null or
461: -- p_tolerance_minus is not null
462: then
463: csi_ctr_gen_utility_pvt.put_line(' Failed Average and Time');
464: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
465: end if;
466: elsif p_derive_function in ('SUM','COUNT') then
467: /* if p_derive_counter_id is null then
460: -- p_tolerance_plus is not null or
461: -- p_tolerance_minus is not null
462: then
463: csi_ctr_gen_utility_pvt.put_line(' Failed Average and Time');
464: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
465: end if;
466: elsif p_derive_function in ('SUM','COUNT') then
467: /* if p_derive_counter_id is null then
468: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_FORMULA');
464: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
465: end if;
466: elsif p_derive_function in ('SUM','COUNT') then
467: /* if p_derive_counter_id is null then
468: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_FORMULA');
469: end if;
470: */
471:
472: if p_formula_text is not null or
482: p_estimation_id is not null
483: -- p_tolerance_plus is not null or
484: -- p_tolerance_minus is not null
485: then
486: csi_ctr_gen_utility_pvt.put_line(' Failed Sum and Count');
487: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
488: end if;
489: end if;
490: end if; -- p_counter_type
483: -- p_tolerance_plus is not null or
484: -- p_tolerance_minus is not null
485: then
486: csi_ctr_gen_utility_pvt.put_line(' Failed Sum and Count');
487: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_PARM_CTR_TYPE','CTR_TYPE',p_counter_type);
488: end if;
489: end if;
490: end if; -- p_counter_type
491:
567: -- Initialize API return status to success
568: x_return_status := FND_API.G_RET_STS_SUCCESS;
569:
570: -- Read the debug profiles values in to global variable 7197402
571: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
572:
573: --
574: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
575: csi_ctr_gen_utility_pvt.put_line
570: -- Read the debug profiles values in to global variable 7197402
571: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
572:
573: --
574: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
575: csi_ctr_gen_utility_pvt.put_line
576: ('create_counter_group_pvt' ||'-'||
577: p_api_version ||'-'||
578: nvl(p_commit,FND_API.G_FALSE) ||'-'||
571: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
572:
573: --
574: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
575: csi_ctr_gen_utility_pvt.put_line
576: ('create_counter_group_pvt' ||'-'||
577: p_api_version ||'-'||
578: nvl(p_commit,FND_API.G_FALSE) ||'-'||
579: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
625: end if;
626:
627: if l_end_date_active IS NOT NULL then
628: if l_end_date_active < l_start_date_active then
629: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_ALL_END_DATE');
630: end if;
631: end if;
632:
633: if p_counter_groups_rec.attribute1 = FND_API.G_MISS_CHAR then
915: FND_MSG_PUB.initialize;
916: END IF;
917:
918: -- Read the debug profiles values in to global variable 7197402
919: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
920:
921: -- Initialize API return status to success
922: x_return_status := FND_API.G_RET_STS_SUCCESS;
923:
921: -- Initialize API return status to success
922: x_return_status := FND_API.G_RET_STS_SUCCESS;
923:
924: --
925: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
926: csi_ctr_gen_utility_pvt.put_line
927: ( 'create_item_association_pvt' ||'-'||
928: p_api_version ||'-'||
929: nvl(p_commit,FND_API.G_FALSE) ||'-'||
922: x_return_status := FND_API.G_RET_STS_SUCCESS;
923:
924: --
925: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
926: csi_ctr_gen_utility_pvt.put_line
927: ( 'create_item_association_pvt' ||'-'||
928: p_api_version ||'-'||
929: nvl(p_commit,FND_API.G_FALSE) ||'-'||
930: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
981:
982: validate_start_date(l_start_date_active);
983:
984: IF l_start_date_active > sysdate THEN
985: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_FUT_DATE');
986: END IF;
987:
988: IF l_associated_to_group = 'Y' THEN
989: OPEN c1_group(l_group_id);
989: OPEN c1_group(l_group_id);
990: FETCH c1_group INTO l_valid_start_date;
991:
992: IF l_start_date_active < l_valid_start_date THEN
993: csi_ctr_gen_utility_pvt.ExitWithErrMsg
994: ( p_msg_name => 'CSI_API_CTR_VAL_ST_DATE',
995: p_token1_name => 'PARAM',
996: p_token1_val => 'The item association start date cannot be less than the active start date of the counter group.');
997: END IF;
1000: OPEN c2_counter(l_counter_id);
1001: FETCH c2_counter INTO l_valid_start_date;
1002:
1003: IF l_start_date_active < l_valid_start_date THEN
1004: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1005: ( p_msg_name => 'CSI_API_CTR_VAL_ST_DATE',
1006: p_token1_name => 'PARAM',
1007: p_token1_val => 'The item association start date cannot be less than the active start date of the counter.');
1008: END IF;
1016: end if;
1017:
1018: if l_end_date_active IS NOT NULL then
1019: if l_end_date_active < l_start_date_active then
1020: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_ALL_END_DATE');
1021: end if;
1022: end if;
1023:
1024: if p_ctr_item_associations_rec.attribute1 = FND_API.G_MISS_CHAR then
1161: FROM csi_ctr_item_associations
1162: WHERE inventory_item_id = l_inventory_item_id
1163: AND nvl(associated_to_group,'N') = 'Y';
1164:
1165: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1166: EXCEPTION
1167: WHEN NO_DATA_FOUND THEN NULL;
1168: WHEN TOO_MANY_ROWS THEN
1169: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1165: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1166: EXCEPTION
1167: WHEN NO_DATA_FOUND THEN NULL;
1168: WHEN TOO_MANY_ROWS THEN
1169: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1170: END;
1171: END IF;
1172: END IF;
1173:
1181: AND associated_to_group = l_associated_to_group
1182: -- AND group_id = l_group_id
1183: AND counter_id = l_counter_id;
1184:
1185: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1186: EXCEPTION
1187: WHEN NO_DATA_FOUND THEN NULL;
1188: WHEN TOO_MANY_ROWS THEN
1189: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1185: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1186: EXCEPTION
1187: WHEN NO_DATA_FOUND THEN NULL;
1188: WHEN TOO_MANY_ROWS THEN
1189: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1190: END;
1191: ELSE
1192: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_GRP_NAME');
1193: END IF;
1188: WHEN TOO_MANY_ROWS THEN
1189: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1190: END;
1191: ELSE
1192: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_GRP_NAME');
1193: END IF;
1194: ELSE
1195: IF l_group_id IS NULL THEN
1196: IF l_counter_id IS NULL THEN
1193: END IF;
1194: ELSE
1195: IF l_group_id IS NULL THEN
1196: IF l_counter_id IS NULL THEN
1197: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_CTR_ID');
1198: END IF;
1199:
1200: BEGIN
1201: SELECT 'Y'
1211: l_item_found := 'Y';
1212: END;
1213:
1214: IF l_item_found = 'Y' THEN
1215: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1216: ELSE
1217: BEGIN
1218: SELECT 'x'
1219: INTO l_item_invalid
1222: AND associated_to_group = l_associated_to_group
1223: AND group_id IS NULL
1224: AND counter_id = l_counter_id;
1225:
1226: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1227: EXCEPTION
1228: WHEN NO_DATA_FOUND THEN NULL;
1229: WHEN OTHERS THEN
1230: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1226: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1227: EXCEPTION
1228: WHEN NO_DATA_FOUND THEN NULL;
1229: WHEN OTHERS THEN
1230: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1231: END;
1232: END IF;
1233: ELSE
1234: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NULL');
1230: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
1231: END;
1232: END IF;
1233: ELSE
1234: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NULL');
1235: END IF;
1236: END IF;
1237:
1238: /* Call the table Handler */
1442: FND_MSG_PUB.initialize;
1443: END IF;
1444:
1445: -- Read the debug profiles values in to global variable 7197402
1446: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
1447:
1448: -- Initialize API return status to success
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1448: -- Initialize API return status to success
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: --
1452: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
1453: csi_ctr_gen_utility_pvt.put_line
1454: ( 'create_counter_template_pvt' ||'-'||
1455: p_api_version ||'-'||
1456: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: --
1452: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
1453: csi_ctr_gen_utility_pvt.put_line
1454: ( 'create_counter_template_pvt' ||'-'||
1455: p_api_version ||'-'||
1456: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1457: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
1632: OPEN c1_group(l_group_id);
1633: FETCH c1_group INTO l_valid_start_date;
1634:
1635: IF l_start_date_active < l_valid_start_date THEN
1636: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1637: ( p_msg_name => 'CSI_API_CTR_VAL_ST_DATE',
1638: p_token1_name => 'PARAM',
1639: p_token1_val => 'The counter template start date cannot be less than the active start date of the counter group.');
1640: END IF;
1649: end if;
1650:
1651: if l_end_date_active IS NOT NULL then
1652: if l_end_date_active < l_start_date_active then
1653: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_ALL_END_DATE');
1654: end if;
1655: end if;
1656:
1657: if p_counter_template_rec.attribute1 = FND_API.G_MISS_CHAR then
1897: WHILE l_msg_count > 0 LOOP
1898: x_msg_data := FND_MSG_PUB.GET
1899: (l_msg_index,
1900: FND_API.G_FALSE );
1901: csi_ctr_gen_utility_pvt.put_line('Error from CSI_COUNTER_PVT.CREATE_COUNTER_GROUP');
1902: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1903: l_msg_index := l_msg_index + 1;
1904: l_msg_count := l_msg_count - 1;
1905: END LOOP;
1898: x_msg_data := FND_MSG_PUB.GET
1899: (l_msg_index,
1900: FND_API.G_FALSE );
1901: csi_ctr_gen_utility_pvt.put_line('Error from CSI_COUNTER_PVT.CREATE_COUNTER_GROUP');
1902: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1903: l_msg_index := l_msg_index + 1;
1904: l_msg_count := l_msg_count - 1;
1905: END LOOP;
1906: RAISE FND_API.G_EXC_ERROR;
2131: FND_MSG_PUB.initialize;
2132: END IF;
2133:
2134: -- Read the debug profiles values in to global variable 7197402
2135: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
2136:
2137: -- Initialize API return status to success
2138: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139:
2137: -- Initialize API return status to success
2138: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139:
2140: --
2141: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
2142: csi_ctr_gen_utility_pvt.put_line( 'create_ctr_property_tmpl_pvt' ||'-'||
2143: p_api_version ||'-'||
2144: nvl(p_commit,FND_API.G_FALSE) ||'-'||
2145: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
2138: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139:
2140: --
2141: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
2142: csi_ctr_gen_utility_pvt.put_line( 'create_ctr_property_tmpl_pvt' ||'-'||
2143: p_api_version ||'-'||
2144: nvl(p_commit,FND_API.G_FALSE) ||'-'||
2145: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
2146: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
2525: FND_MSG_PUB.initialize;
2526: END IF;
2527:
2528: -- Read the debug profiles values in to global variable 7197402
2529: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
2530:
2531: -- Initialize API return status to success
2532: x_return_status := FND_API.G_RET_STS_SUCCESS;
2533:
2531: -- Initialize API return status to success
2532: x_return_status := FND_API.G_RET_STS_SUCCESS;
2533:
2534: --
2535: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
2536: csi_ctr_gen_utility_pvt.put_line
2537: ( 'create_ctr_relationship_pvt' ||'-'||
2538: p_api_version ||'-'||
2539: nvl(p_commit,FND_API.G_FALSE) ||'-'||
2532: x_return_status := FND_API.G_RET_STS_SUCCESS;
2533:
2534: --
2535: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
2536: csi_ctr_gen_utility_pvt.put_line
2537: ( 'create_ctr_relationship_pvt' ||'-'||
2538: p_api_version ||'-'||
2539: nvl(p_commit,FND_API.G_FALSE) ||'-'||
2540: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
2702: else
2703: l_factor := p_counter_relationships_rec.factor;
2704: end if;
2705:
2706: csi_ctr_gen_utility_pvt.put_line('Relationship type code = '||l_relationship_type_code);
2707:
2708: validate_start_date(l_active_start_date);
2709: validate_lookups('CSI_CTR_RELATIONSHIP_TYPE_CODE', l_relationship_type_code);
2710:
2714: validate_ctr_relationship(l_object_counter_id, l_object_direction
2715: ,l_obj_ctr_start_date, l_obj_ctr_end_date);
2716: /* Validate direction */
2717: IF l_source_direction = 'B' and l_object_direction <> 'B' THEN
2718: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
2719: END IF;
2720:
2721: IF l_object_direction = 'B' and l_source_direction <> 'B' THEN
2722: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
2718: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
2719: END IF;
2720:
2721: IF l_object_direction = 'B' and l_source_direction <> 'B' THEN
2722: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
2723: END IF;
2724:
2725: IF l_active_start_date < l_src_ctr_start_date THEN
2726: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2722: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
2723: END IF;
2724:
2725: IF l_active_start_date < l_src_ctr_start_date THEN
2726: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2727: ELSIF l_active_start_date < l_obj_ctr_start_date THEN
2728: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2729: END IF;
2730:
2724:
2725: IF l_active_start_date < l_src_ctr_start_date THEN
2726: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2727: ELSIF l_active_start_date < l_obj_ctr_start_date THEN
2728: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2729: END IF;
2730:
2731: IF l_src_ctr_end_date IS NOT NULL THEN
2732: IF l_active_start_date > l_src_ctr_end_date THEN
2729: END IF;
2730:
2731: IF l_src_ctr_end_date IS NOT NULL THEN
2732: IF l_active_start_date > l_src_ctr_end_date THEN
2733: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2734: END IF;
2735: END IF;
2736:
2737: IF l_obj_ctr_end_date IS NOT NULL THEN
2735: END IF;
2736:
2737: IF l_obj_ctr_end_date IS NOT NULL THEN
2738: IF l_active_start_date > l_obj_ctr_end_date THEN
2739: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2740: END IF;
2741: END IF;
2742:
2743: OPEN c1(l_source_counter_id);
2743: OPEN c1(l_source_counter_id);
2744: FETCH c1 into l_reading_date;
2745: IF l_reading_date IS NOT NULL THEN
2746: IF l_active_start_date < l_reading_date THEN
2747: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2748: END IF;
2749: END IF;
2750: CLOSE c1;
2751:
2752: OPEN c1(l_object_counter_id);
2753: FETCH c1 into l_reading_date;
2754: IF l_reading_date IS NOT NULL THEN
2755: IF l_active_start_date < l_reading_date THEN
2756: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
2757: END IF;
2758: END IF;
2759: CLOSE c1;
2760:
2765: FROM csi_counter_relationships
2766: WHERE relationship_type_code = 'CONFIGURATION'
2767: AND source_counter_id = l_object_counter_id;
2768:
2769: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_TARGET_CTR_EXIST');
2770:
2771: EXCEPTION
2772: WHEN NO_DATA_FOUND THEN NULL;
2773: WHEN TOO_MANY_ROWS THEN
2770:
2771: EXCEPTION
2772: WHEN NO_DATA_FOUND THEN NULL;
2773: WHEN TOO_MANY_ROWS THEN
2774: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_TARGET_CTR_EXIST');
2775:
2776: END;
2777: ELSIF l_relationship_type_code = 'FORMULA' THEN
2778: IF l_source_counter_id IS NULL THEN
2775:
2776: END;
2777: ELSIF l_relationship_type_code = 'FORMULA' THEN
2778: IF l_source_counter_id IS NULL THEN
2779: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_FORMULA_REF');
2780: END IF;
2781: END IF;
2782:
2783: /* Call the table Handler */
2903: SAVEPOINT create_derived_filters;
2904:
2905: -- Check for freeze_flag in csi_install_parameters is set to 'Y'
2906:
2907: -- csi_ctr_gen_utility_pvt.check_ib_active;
2908:
2909: -- Standard call to check for call compatibility.
2910: IF NOT FND_API.Compatible_API_Call (l_api_version,
2911: p_api_version,
2922: -- Initialize API return status to success
2923: x_return_status := FND_API.G_RET_STS_SUCCESS;
2924:
2925: -- Read the debug profiles values in to global variable 7197402
2926: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
2927:
2928: -- Check the profile option debug_level for debug message reporting
2929: -- l_debug_level:=fnd_profile.value('CSI_COUNTER_DEBUG_LEVEL');
2930:
2928: -- Check the profile option debug_level for debug message reporting
2929: -- l_debug_level:=fnd_profile.value('CSI_COUNTER_DEBUG_LEVEL');
2930:
2931: -- If debug_level = 1 then dump the procedure name
2932: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
2933: csi_ctr_gen_utility_pvt.put_line( 'create_derived_filters');
2934: END IF;
2935:
2936: -- If the debug level = 2 then dump all the parameters values.
2929: -- l_debug_level:=fnd_profile.value('CSI_COUNTER_DEBUG_LEVEL');
2930:
2931: -- If debug_level = 1 then dump the procedure name
2932: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
2933: csi_ctr_gen_utility_pvt.put_line( 'create_derived_filters');
2934: END IF;
2935:
2936: -- If the debug level = 2 then dump all the parameters values.
2937: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 1) THEN
2933: csi_ctr_gen_utility_pvt.put_line( 'create_derived_filters');
2934: END IF;
2935:
2936: -- If the debug level = 2 then dump all the parameters values.
2937: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 1) THEN
2938: csi_ctr_gen_utility_pvt.put_line( 'create_derived_filters' ||
2939: p_api_version ||'-'||
2940: p_commit ||'-'||
2941: p_init_msg_list ||'-'||
2934: END IF;
2935:
2936: -- If the debug level = 2 then dump all the parameters values.
2937: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 1) THEN
2938: csi_ctr_gen_utility_pvt.put_line( 'create_derived_filters' ||
2939: p_api_version ||'-'||
2940: p_commit ||'-'||
2941: p_init_msg_list ||'-'||
2942: p_validation_level );
2939: p_api_version ||'-'||
2940: p_commit ||'-'||
2941: p_init_msg_list ||'-'||
2942: p_validation_level );
2943: csi_ctr_gen_utility_pvt.dump_ctr_derived_filters_tbl(p_ctr_derived_filters_tbl);
2944: END IF;
2945:
2946: IF (p_ctr_derived_filters_tbl.count > 0) THEN
2947: FOR tab_row IN p_ctr_derived_filters_tbl.FIRST .. p_ctr_derived_filters_tbl.LAST
2956: WHERE counter_id = l_ctr_derived_filters_rec.counter_id;
2957:
2958: EXCEPTION
2959: WHEN NO_DATA_FOUND THEN
2960: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID');
2961:
2962: -- validate all counter types are GROUP type
2963: IF l_type <> 'FORMULA' THEN
2964: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_GROUP_CTR','CTR_NAME',l_name);
2960: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID');
2961:
2962: -- validate all counter types are GROUP type
2963: IF l_type <> 'FORMULA' THEN
2964: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_GROUP_CTR','CTR_NAME',l_name);
2965: END IF;
2966: END;
2967:
2968: BEGIN
2972: FROM csi_ctr_properties_bc_v
2973: WHERE counter_property_id = l_ctr_derived_filters_rec.counter_property_id;
2974:
2975: EXCEPTION WHEN NO_DATA_FOUND THEN
2976: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
2977: END;
2978:
2979: -- validate LEFT_PARENT
2980: IF l_ctr_derived_filters_rec.LEFT_PARENT NOT IN ('(', '((', '(((', '((((', '(((((') THEN
2977: END;
2978:
2979: -- validate LEFT_PARENT
2980: IF l_ctr_derived_filters_rec.LEFT_PARENT NOT IN ('(', '((', '(((', '((((', '(((((') THEN
2981: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_LEFT_PARENT',
2982: 'PARM',l_ctr_derived_filters_rec.LEFT_PARENT);
2983: END IF;
2984:
2985: -- validate RIGHT_PARENT
2983: END IF;
2984:
2985: -- validate RIGHT_PARENT
2986: IF l_ctr_derived_filters_rec.RIGHT_PARENT NOT IN (')', '))', ')))', '))))', ')))))') THEN
2987: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_RIGHT_PARENT',
2988: 'PARM',l_ctr_derived_filters_rec.RIGHT_PARENT);
2989: END IF;
2990:
2991: -- validate RELATIONAL_OPERATOR
2989: END IF;
2990:
2991: -- validate RELATIONAL_OPERATOR
2992: IF l_ctr_derived_filters_rec.RELATIONAL_OPERATOR NOT IN ('=', '<', '<=', '>', '>=', '!=', '<>') THEN
2993: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_REL_OPERATOR',
2994: 'PARM',l_ctr_derived_filters_rec.RELATIONAL_OPERATOR);
2995: END IF;
2996:
2997: -- validate LOGICAL_OPERATOR
3004: END IF;
3005:
3006: IF l_log_op IS NOT NULL THEN
3007: IF l_log_op NOT IN ('AND', 'OR') THEN
3008: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_LOG_OPERATOR',
3009: 'PARM',l_ctr_derived_filters_rec.LOGICAL_OPERATOR);
3010: END IF;
3011: END IF;
3012:
3010: END IF;
3011: END IF;
3012:
3013: -- initialize descritive flexfield
3014: --csi_ctr_gen_utility_pvt.Initialize_Desc_Flex(l_desc_flex);
3015:
3016: -- validate Descritive Flexfields
3017: /*
3018: csi_ctr_gen_utility_pvt.Is_DescFlex_Valid
3014: --csi_ctr_gen_utility_pvt.Initialize_Desc_Flex(l_desc_flex);
3015:
3016: -- validate Descritive Flexfields
3017: /*
3018: csi_ctr_gen_utility_pvt.Is_DescFlex_Valid
3019: (
3020: p_api_name => l_api_name,
3021: p_appl_short_name => 'CSI',
3022: p_desc_flex_name => 'CSI_COUNTER_DERIVED_FILTERS',
3045:
3046: -- this means that for this counter, there is one another
3047: -- derived filter record with the same sequence number.
3048: -- Raise error.
3049: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_DUP_DERFILTER_SEQNO',
3050: 'SEQNO',to_char(l_ctr_derived_filters_rec.SEQ_NO),
3051: 'CTR_NAME',l_name);
3052:
3053: EXCEPTION WHEN NO_DATA_FOUND THEN
3098: END LOOP;
3099: END IF;
3100: --Check if the counter can be marked "valid" with the
3101: --addition of this filter.
3102: csi_ctr_gen_utility_pvt.Validate_GrpOp_ctr
3103: (
3104: p_api_version => 1.0,
3105: p_commit => FND_API.G_FALSE,
3106: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3254: -- Initialize API return status to success
3255: x_return_status := FND_API.G_RET_STS_SUCCESS;
3256:
3257: -- Read the debug profiles values in to global variable 7197402
3258: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3259:
3260: --
3261: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
3262: csi_ctr_gen_utility_pvt.put_line
3257: -- Read the debug profiles values in to global variable 7197402
3258: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3259:
3260: --
3261: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
3262: csi_ctr_gen_utility_pvt.put_line
3263: ( 'update_counter_group_pvt' ||'-'||
3264: p_api_version ||'-'||
3265: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3258: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3259:
3260: --
3261: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
3262: csi_ctr_gen_utility_pvt.put_line
3263: ( 'update_counter_group_pvt' ||'-'||
3264: p_api_version ||'-'||
3265: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3266: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3278:
3279: CLOSE cur_group_rec;
3280:
3281: -- IF SQL%NOTFOUND THEN
3282: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NOTEXISTS');
3283: -- END IF;
3284:
3285: l_counter_groups_rec := p_counter_groups_rec;
3286:
3309: END IF;
3310:
3311: if l_counter_groups_rec.end_date_active IS NOT NULL then
3312: if l_counter_groups_rec.end_date_active < l_counter_groups_rec.start_date_active then
3313: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_ALL_END_DATE');
3314: end if;
3315: end if;
3316:
3317: IF p_counter_groups_rec.attribute1 IS NULL THEN
3442:
3443: -- Counter group name is not updateable
3444:
3445: IF l_counter_groups_rec.name <> l_old_counter_groups_rec.name THEN
3446: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NOT_UPDATABLE');
3447: END IF;
3448:
3449:
3450: -- Call the table handler
3627: -- Initialize API return status to success
3628: x_return_status := FND_API.G_RET_STS_SUCCESS;
3629:
3630: -- Read the debug profiles values in to global variable 7197402
3631: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3632:
3633: --
3634: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
3635: csi_ctr_gen_utility_pvt.put_line( 'update_item_association_pvt' ||'-'||
3630: -- Read the debug profiles values in to global variable 7197402
3631: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3632:
3633: --
3634: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
3635: csi_ctr_gen_utility_pvt.put_line( 'update_item_association_pvt' ||'-'||
3636: p_api_version ||'-'||
3637: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3638: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3631: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3632:
3633: --
3634: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
3635: csi_ctr_gen_utility_pvt.put_line( 'update_item_association_pvt' ||'-'||
3636: p_api_version ||'-'||
3637: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3638: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3639: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
3650:
3651: CLOSE cur_item_assoc_rec;
3652:
3653: -- IF SQL%NOTFOUND THEN
3654: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_ITEM_ASSOC_NOTEXISTS');
3655: -- END IF;
3656:
3657: l_item_associations_rec := p_ctr_item_associations_rec;
3658:
3681: END IF;
3682:
3683: if l_item_associations_rec.end_date_active IS NOT NULL then
3684: if l_item_associations_rec.end_date_active < l_item_associations_rec.start_date_active then
3685: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_ALL_END_DATE');
3686: end if;
3687: end if;
3688:
3689: IF p_ctr_item_associations_rec.attribute1 IS NULL THEN
3839: INTO l_item_invalid
3840: FROM csi_ctr_item_associations
3841: WHERE inventory_item_id = l_item_associations_rec.inventory_item_id;
3842:
3843: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3844: EXCEPTION
3845: WHEN NO_DATA_FOUND THEN NULL;
3846: WHEN TOO_MANY_ROWS THEN
3847: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3843: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3844: EXCEPTION
3845: WHEN NO_DATA_FOUND THEN NULL;
3846: WHEN TOO_MANY_ROWS THEN
3847: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3848: END;
3849: END IF;
3850: END IF;
3851: END IF;
3860: AND associated_to_group = l_item_associations_rec.associated_to_group
3861: -- AND group_id = l_group_id
3862: AND counter_id = l_item_associations_rec.counter_id;
3863:
3864: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3865: EXCEPTION
3866: WHEN NO_DATA_FOUND THEN NULL;
3867: WHEN TOO_MANY_ROWS THEN
3868: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3864: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3865: EXCEPTION
3866: WHEN NO_DATA_FOUND THEN NULL;
3867: WHEN TOO_MANY_ROWS THEN
3868: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3869: END;
3870: ELSE
3871: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_GRP_NAME');
3872: END IF;
3867: WHEN TOO_MANY_ROWS THEN
3868: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3869: END;
3870: ELSE
3871: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_PARM_GRP_NAME');
3872: END IF;
3873: ELSE
3874: IF l_item_associations_rec.group_id IS NULL THEN
3875: IF l_item_associations_rec.counter_id IS NULL THEN
3872: END IF;
3873: ELSE
3874: IF l_item_associations_rec.group_id IS NULL THEN
3875: IF l_item_associations_rec.counter_id IS NULL THEN
3876: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_CTR_ID');
3877: END IF;
3878:
3879: BEGIN
3880: SELECT 'Y'
3890: l_item_found := 'Y';
3891: END;
3892:
3893: IF l_item_found = 'Y' THEN
3894: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3895: ELSE
3896: BEGIN
3897: SELECT 'x'
3898: INTO l_item_invalid
3901: AND associated_to_group = l_item_associations_rec.associated_to_group
3902: AND group_id IS NULL
3903: AND counter_id = l_item_associations_rec.counter_id;
3904:
3905: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3906: EXCEPTION
3907: WHEN NO_DATA_FOUND THEN NULL;
3908: WHEN OTHERS THEN
3909: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3905: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3906: EXCEPTION
3907: WHEN NO_DATA_FOUND THEN NULL;
3908: WHEN OTHERS THEN
3909: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3910: END;
3911: END IF;
3912: ELSE
3913: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NULL');
3909: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_ITEM_ASSOC');
3910: END;
3911: END IF;
3912: ELSE
3913: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NULL');
3914: END IF;
3915: END IF;
3916:
3917: */
4152: -- Initialize API return status to success
4153: x_return_status := FND_API.G_RET_STS_SUCCESS;
4154:
4155: -- Read the debug profiles values in to global variable 7197402
4156: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4157:
4158: --
4159: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
4160: csi_ctr_gen_utility_pvt.put_line( 'update_counter_template_pvt' ||'-'||
4155: -- Read the debug profiles values in to global variable 7197402
4156: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4157:
4158: --
4159: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
4160: csi_ctr_gen_utility_pvt.put_line( 'update_counter_template_pvt' ||'-'||
4161: p_api_version ||'-'||
4162: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4163: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4156: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4157:
4158: --
4159: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
4160: csi_ctr_gen_utility_pvt.put_line( 'update_counter_template_pvt' ||'-'||
4161: p_api_version ||'-'||
4162: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4163: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4164: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4175:
4176: CLOSE cur_ctr_template_rec;
4177:
4178: -- IF SQL%NOTFOUND THEN
4179: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INVALID');
4180: -- END IF;
4181:
4182: l_counter_template_rec := p_counter_template_rec;
4183:
4296: END IF;
4297:
4298: if l_counter_template_rec.end_date_active IS NOT NULL then
4299: if l_counter_template_rec.end_date_active < l_counter_template_rec.start_date_active then
4300: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_ALL_END_DATE');
4301: end if;
4302: end if;
4303:
4304:
4575: X_msg_data => l_msg_data
4576: );
4577:
4578: IF NOT (l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
4579: csi_ctr_gen_utility_pvt.put_line('used in scheduling cannot be updated');
4580: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_USEDINSCHED_NOT_UPDT');
4581: END IF;
4582: END IF;
4583:
4576: );
4577:
4578: IF NOT (l_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
4579: csi_ctr_gen_utility_pvt.put_line('used in scheduling cannot be updated');
4580: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_USEDINSCHED_NOT_UPDT');
4581: END IF;
4582: END IF;
4583:
4584: IF p_counter_template_rec.defaulted_group_id IS NULL THEN
4600: END IF;
4601:
4602: -- Counter group is not updateable
4603: IF l_counter_template_rec.counter_id <> l_old_counter_template_rec.counter_id THEN
4604: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NOT_UPDATABLE');
4605: END IF;
4606:
4607: IF l_counter_template_rec.counter_type <> l_old_counter_template_rec.counter_type THEN
4608: IF l_old_counter_template_rec.counter_type = 'FORMULA' AND
4613: CLOSE formula_ref_cur;
4614: IF l_formula_ref_count is not null then
4615: -- Formula references exist for this counter. You cannot
4616: -- change the type to something different.
4617: csi_ctr_gen_utility_pvt.put_line('Formula References exist for this counter. Cannot change counter type...');
4618: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CS_API_CTR_FMLA_REF_EXIST','CTR_NAME',l_counter_template_rec.name);
4619: END IF;
4620: ELSIF l_old_counter_template_rec.counter_type = 'FORMULA'
4621: and l_old_counter_template_rec.derive_function in ('SUM','COUNT') THEN
4614: IF l_formula_ref_count is not null then
4615: -- Formula references exist for this counter. You cannot
4616: -- change the type to something different.
4617: csi_ctr_gen_utility_pvt.put_line('Formula References exist for this counter. Cannot change counter type...');
4618: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CS_API_CTR_FMLA_REF_EXIST','CTR_NAME',l_counter_template_rec.name);
4619: END IF;
4620: ELSIF l_old_counter_template_rec.counter_type = 'FORMULA'
4621: and l_old_counter_template_rec.derive_function in ('SUM','COUNT') THEN
4622: OPEN derived_filters_cur(p_counter_template_rec.counter_id);
4624: CLOSE derived_filters_cur;
4625: IF l_der_filter_count is not null then
4626: -- Derived filters exist for this counter. You cannot
4627: -- change the type to something different.
4628: csi_ctr_gen_utility_pvt.put_line('Derived Filters exist for this counter. Cannot change counter type...');
4629: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_DER_FILTER_EXIST','CTR_NAME',l_counter_template_rec.name);
4630: END IF;
4631: ELSIF l_old_counter_template_rec.counter_type = 'REGULAR' THEN
4632: OPEN target_counter_cur(p_counter_template_rec.counter_id);
4625: IF l_der_filter_count is not null then
4626: -- Derived filters exist for this counter. You cannot
4627: -- change the type to something different.
4628: csi_ctr_gen_utility_pvt.put_line('Derived Filters exist for this counter. Cannot change counter type...');
4629: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_DER_FILTER_EXIST','CTR_NAME',l_counter_template_rec.name);
4630: END IF;
4631: ELSIF l_old_counter_template_rec.counter_type = 'REGULAR' THEN
4632: OPEN target_counter_cur(p_counter_template_rec.counter_id);
4633: FETCH target_counter_cur INTO l_target_ctr_exist;
4634: CLOSE target_counter_cur;
4635: IF l_target_ctr_exist is not null then
4636: -- Target counters exist for this counter. You cannot
4637: -- change the type to something different.
4638: csi_ctr_gen_utility_pvt.put_line('Target Counters exist for this counter. Cannot change counter type...');
4639: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_CONFIG_CTR_EXIST','CTR_NAME',l_counter_template_rec.name);
4640: END IF;
4641: END IF;
4642: END IF;
4635: IF l_target_ctr_exist is not null then
4636: -- Target counters exist for this counter. You cannot
4637: -- change the type to something different.
4638: csi_ctr_gen_utility_pvt.put_line('Target Counters exist for this counter. Cannot change counter type...');
4639: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_CONFIG_CTR_EXIST','CTR_NAME',l_counter_template_rec.name);
4640: END IF;
4641: END IF;
4642: END IF;
4643:
4648: CLOSE counter_readings_cur;
4649: IF l_rdg_exists is not null then
4650: -- Counter readings exist for this counter. You cannot
4651: -- change the reading type to something different.counter.
4652: csi_ctr_gen_utility_pvt.put_line('Counter readings exist for this counter. Cannot change reading type...');
4653: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_RDGS_EXIST','CTR_NAME',l_counter_template_rec.name);
4654: END IF;
4655: END IF;
4656:
4649: IF l_rdg_exists is not null then
4650: -- Counter readings exist for this counter. You cannot
4651: -- change the reading type to something different.counter.
4652: csi_ctr_gen_utility_pvt.put_line('Counter readings exist for this counter. Cannot change reading type...');
4653: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_RDGS_EXIST','CTR_NAME',l_counter_template_rec.name);
4654: END IF;
4655: END IF;
4656:
4657: -- Start add code for bug 6418952
4902: -- Initialize API return status to success
4903: x_return_status := FND_API.G_RET_STS_SUCCESS;
4904:
4905: -- Read the debug profiles values in to global variable 7197402
4906: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4907:
4908: --
4909: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
4910: csi_ctr_gen_utility_pvt.put_line( 'update_ctr_property_tmpl_pvt' ||'-'||
4905: -- Read the debug profiles values in to global variable 7197402
4906: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4907:
4908: --
4909: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
4910: csi_ctr_gen_utility_pvt.put_line( 'update_ctr_property_tmpl_pvt' ||'-'||
4911: p_api_version ||'-'||
4912: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4913: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4906: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4907:
4908: --
4909: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
4910: csi_ctr_gen_utility_pvt.put_line( 'update_ctr_property_tmpl_pvt' ||'-'||
4911: p_api_version ||'-'||
4912: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4913: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4914: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4925:
4926: CLOSE cur_ctr_prop_rec;
4927:
4928: -- IF SQL%NOTFOUND THEN
4929: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NOTEXISTS');
4930: -- END IF;
4931:
4932: l_ctr_property_tmpl_rec := p_ctr_property_template_rec;
4933:
5113:
5114: -- Counter property name is not updateable
5115:
5116: IF l_ctr_property_tmpl_rec.name <> l_old_ctr_property_tmpl_rec.name THEN
5117: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_PROP_NOT_UPDATABLE');
5118: END IF;
5119:
5120: -- Call the table handler
5121: validate_start_date(l_ctr_property_tmpl_rec.start_date_active);
5124: IF l_ctr_property_tmpl_rec.property_lov_type IS NOT NULL THEN
5125: validate_lookups('CSI_CTR_PROPERTY_LOV_TYPE',l_ctr_property_tmpl_rec.property_lov_type);
5126: END IF;
5127:
5128: csi_ctr_gen_utility_pvt.put_line(' Default Value = '||l_ctr_property_tmpl_rec.default_value);
5129: IF l_ctr_property_tmpl_rec.property_lov_type IS NOT NULL and l_ctr_property_tmpl_rec.default_value IS NOT NULL THEN
5130: validate_lookups(l_ctr_property_tmpl_rec.property_lov_type,l_ctr_property_tmpl_rec.default_value);
5131: END IF;
5132:
5321: -- Initialize API return status to success
5322: x_return_status := FND_API.G_RET_STS_SUCCESS;
5323:
5324: -- Read the debug profiles values in to global variable 7197402
5325: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5326:
5327: --
5328: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
5329: csi_ctr_gen_utility_pvt.put_line( 'update_ctr_relationship_pvt' ||'-'||
5324: -- Read the debug profiles values in to global variable 7197402
5325: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5326:
5327: --
5328: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
5329: csi_ctr_gen_utility_pvt.put_line( 'update_ctr_relationship_pvt' ||'-'||
5330: p_api_version ||'-'||
5331: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5332: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5325: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5326:
5327: --
5328: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
5329: csi_ctr_gen_utility_pvt.put_line( 'update_ctr_relationship_pvt' ||'-'||
5330: p_api_version ||'-'||
5331: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5332: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5333: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5351:
5352: CLOSE cur_rel_rec;
5353:
5354: -- IF SQL%NOTFOUND THEN
5355: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_NOTEXISTS');
5356: -- END IF;
5357:
5358: l_ctr_relationships_rec := p_counter_relationships_rec;
5359:
5516:
5517: validate_start_date(l_ctr_relationships_rec.active_start_date);
5518: validate_lookups('CSI_CTR_RELATIONSHIP_TYPE_CODE', l_ctr_relationships_rec.relationship_type_code);
5519:
5520: csi_ctr_gen_utility_pvt.put_line(' type code = '||l_ctr_relationships_rec.relationship_type_code);
5521: IF l_ctr_relationships_rec.relationship_type_code = 'CONFIGURATION' THEN
5522: validate_ctr_relationship(l_ctr_relationships_rec.source_counter_id, l_source_direction,
5523: l_src_ctr_start_date, l_src_ctr_end_date);
5524: validate_ctr_relationship(l_ctr_relationships_rec.object_counter_id, l_object_direction,
5524: validate_ctr_relationship(l_ctr_relationships_rec.object_counter_id, l_object_direction,
5525: l_obj_ctr_start_date, l_obj_ctr_end_date);
5526: /* Validate direction */
5527: IF l_source_direction = 'B' and l_object_direction <> 'B' THEN
5528: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
5529: END IF;
5530:
5531: IF l_object_direction = 'B' and l_source_direction <> 'B' THEN
5532: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
5528: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
5529: END IF;
5530:
5531: IF l_object_direction = 'B' and l_source_direction <> 'B' THEN
5532: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
5533: END IF;
5534:
5535: IF p_counter_relationships_rec.active_start_date < l_src_ctr_start_date THEN
5536: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5532: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
5533: END IF;
5534:
5535: IF p_counter_relationships_rec.active_start_date < l_src_ctr_start_date THEN
5536: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5537: ELSIF p_counter_relationships_rec.active_start_date < l_obj_ctr_start_date THEN
5538: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5539: END IF;
5540:
5534:
5535: IF p_counter_relationships_rec.active_start_date < l_src_ctr_start_date THEN
5536: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5537: ELSIF p_counter_relationships_rec.active_start_date < l_obj_ctr_start_date THEN
5538: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5539: END IF;
5540:
5541: IF l_src_ctr_end_date IS NOT NULL THEN
5542: IF p_counter_relationships_rec.active_start_date > l_src_ctr_end_date THEN
5539: END IF;
5540:
5541: IF l_src_ctr_end_date IS NOT NULL THEN
5542: IF p_counter_relationships_rec.active_start_date > l_src_ctr_end_date THEN
5543: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5544: END IF;
5545: END IF;
5546:
5547: IF l_obj_ctr_end_date IS NOT NULL THEN
5545: END IF;
5546:
5547: IF l_obj_ctr_end_date IS NOT NULL THEN
5548: IF p_counter_relationships_rec.active_start_date > l_obj_ctr_end_date THEN
5549: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5550: END IF;
5551: END IF;
5552:
5553: OPEN c1(l_ctr_relationships_rec.source_counter_id);
5553: OPEN c1(l_ctr_relationships_rec.source_counter_id);
5554: FETCH c1 into l_reading_date;
5555: IF l_reading_date IS NOT NULL THEN
5556: IF p_counter_relationships_rec.active_start_date < l_reading_date THEN
5557: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5558: END IF;
5559: END IF;
5560: CLOSE c1;
5561:
5562: OPEN c1(l_ctr_relationships_rec.object_counter_id);
5563: FETCH c1 into l_reading_date;
5564: IF l_reading_date IS NOT NULL THEN
5565: IF p_counter_relationships_rec.active_start_date < l_reading_date THEN
5566: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_SOURCE_ST_DATE');
5567: END IF;
5568: END IF;
5569: CLOSE c1;
5570:
5575: FROM csi_counter_relationships
5576: WHERE relationship_type_code = 'CONFIGURATION'
5577: AND source_counter_id = l_ctr_relationships_rec.object_counter_id;
5578:
5579: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_TARGET_CTR_EXIST');
5580:
5581: EXCEPTION
5582: WHEN NO_DATA_FOUND THEN NULL;
5583: WHEN TOO_MANY_ROWS THEN
5580:
5581: EXCEPTION
5582: WHEN NO_DATA_FOUND THEN NULL;
5583: WHEN TOO_MANY_ROWS THEN
5584: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_TARGET_CTR_EXIST');
5585:
5586: END;
5587: ELSIF l_ctr_relationships_rec.relationship_type_code = 'FORMULA' THEN
5588: IF p_counter_relationships_rec.source_counter_id IS NULL THEN
5585:
5586: END;
5587: ELSIF l_ctr_relationships_rec.relationship_type_code = 'FORMULA' THEN
5588: IF p_counter_relationships_rec.source_counter_id IS NULL THEN
5589: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_REQ_FORMULA_REF');
5590: END IF;
5591:
5592: END IF;
5593:
5721: SAVEPOINT update_derived_filters;
5722:
5723: -- Check for freeze_flag in csi_install_parameters is set to 'Y'
5724:
5725: -- csi_ctr_gen_utility_pvt.check_ib_active;
5726:
5727: -- Standard call to check for call compatibility.
5728: IF NOT FND_API.Compatible_API_Call (l_api_version,
5729: p_api_version,
5741: -- Initialize API return status to success
5742: x_return_status := FND_API.G_RET_STS_SUCCESS;
5743:
5744: -- Read the debug profiles values in to global variable 7197402
5745: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5746:
5747: -- Check the profile option debug_level for debug message reporting
5748: -- l_debug_level:=fnd_profile.value('CSI_COUNTER_DEBUG_LEVEL');
5749:
5747: -- Check the profile option debug_level for debug message reporting
5748: -- l_debug_level:=fnd_profile.value('CSI_COUNTER_DEBUG_LEVEL');
5749:
5750: -- If debug_level = 1 then dump the procedure name
5751: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
5752: csi_ctr_gen_utility_pvt.put_line( 'update_derived_filters');
5753: END IF;
5754:
5755: -- If the debug level = 2 then dump all the parameters values.
5748: -- l_debug_level:=fnd_profile.value('CSI_COUNTER_DEBUG_LEVEL');
5749:
5750: -- If debug_level = 1 then dump the procedure name
5751: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
5752: csi_ctr_gen_utility_pvt.put_line( 'update_derived_filters');
5753: END IF;
5754:
5755: -- If the debug level = 2 then dump all the parameters values.
5756: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 1) THEN
5752: csi_ctr_gen_utility_pvt.put_line( 'update_derived_filters');
5753: END IF;
5754:
5755: -- If the debug level = 2 then dump all the parameters values.
5756: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 1) THEN
5757: csi_ctr_gen_utility_pvt.put_line( 'update_derived_filters' ||
5758: p_api_version ||'-'||
5759: p_commit ||'-'||
5760: p_init_msg_list ||'-'||
5753: END IF;
5754:
5755: -- If the debug level = 2 then dump all the parameters values.
5756: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 1) THEN
5757: csi_ctr_gen_utility_pvt.put_line( 'update_derived_filters' ||
5758: p_api_version ||'-'||
5759: p_commit ||'-'||
5760: p_init_msg_list ||'-'||
5761: p_validation_level );
5758: p_api_version ||'-'||
5759: p_commit ||'-'||
5760: p_init_msg_list ||'-'||
5761: p_validation_level );
5762: csi_ctr_gen_utility_pvt.dump_ctr_derived_filters_tbl(p_ctr_derived_filters_tbl);
5763: END IF;
5764:
5765: IF (p_ctr_derived_filters_tbl.count > 0) THEN
5766: FOR tab_row IN p_ctr_derived_filters_tbl.FIRST .. p_ctr_derived_filters_tbl.LAST
5787: WHILE l_msg_count > 0 LOOP
5788: x_msg_data := FND_MSG_PUB.GET
5789: (l_msg_index,
5790: FND_API.G_FALSE);
5791: csi_ctr_gen_utility_pvt.put_line('Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_DERIVED_FILTERS');
5792: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5793: l_msg_index := l_msg_index + 1;
5794: l_msg_count := l_msg_count - 1;
5795: END LOOP;
5788: x_msg_data := FND_MSG_PUB.GET
5789: (l_msg_index,
5790: FND_API.G_FALSE);
5791: csi_ctr_gen_utility_pvt.put_line('Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_DERIVED_FILTERS');
5792: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5793: l_msg_index := l_msg_index + 1;
5794: l_msg_count := l_msg_count - 1;
5795: END LOOP;
5796: RAISE FND_API.G_EXC_ERROR;
5837: -- WHERE COUNTER_DERIVED_FILTER_ID = l_ctr_derived_filters_rec.COUNTER_DERIVED_FILTER_ID;
5838: WHERE COUNTER_DERIVED_FILTER_ID = p_ctr_derived_filters_tbl(tab_row).counter_derived_filter_id;
5839:
5840: IF SQL%NOTFOUND THEN
5841: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_DERIVED_FILTER_INVALID');
5842: END IF;
5843:
5844: IF NVL(l_old_ctr_derived_filters_rec.counter_id, -1) = FND_API.G_MISS_NUM THEN
5845: l_counter_id := NULL;
5854: INTO l_type, l_name
5855: FROM csi_counters_bc_v
5856: WHERE counter_id = p_ctr_derived_filters_tbl(tab_row).counter_id;
5857: EXCEPTION WHEN NO_DATA_FOUND THEN
5858: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID');
5859: END;
5860:
5861: -- validate all counter types are GROUP type
5862: IF l_type <> 'FORMULA' THEN
5859: END;
5860:
5861: -- validate all counter types are GROUP type
5862: IF l_type <> 'FORMULA' THEN
5863: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_GROUP_CTR','CTR_NAME',l_name);
5864: END IF;
5865: END IF;
5866:
5867: -- validate all counter properties
5872: INTO l_dummy
5873: FROM csi_ctr_properties_bc_v
5874: WHERE counter_property_id = l_ctr_derived_filters_rec.counter_property_id;
5875: EXCEPTION WHEN NO_DATA_FOUND THEN
5876: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
5877: END;
5878: END IF;
5879:
5880: -- validate LEFT_PARENT
5878: END IF;
5879:
5880: -- validate LEFT_PARENT
5881: IF p_ctr_derived_filters_tbl(tab_row).LEFT_PARENT NOT IN (FND_API.G_MISS_CHAR,'(', '((', '(((', '((((', '(((((') THEN
5882: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_LEFT_PARENT',
5883: 'PARM',l_ctr_derived_filters_rec.LEFT_PARENT);
5884: END IF;
5885:
5886: -- validate RIGHT_PARENT
5884: END IF;
5885:
5886: -- validate RIGHT_PARENT
5887: IF p_ctr_derived_filters_tbl(tab_row).RIGHT_PARENT NOT IN (FND_API.G_MISS_CHAR,')', '))', ')))', '))))', ')))))') THEN
5888: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_RIGHT_PARENT',
5889: 'PARM',l_ctr_derived_filters_rec.RIGHT_PARENT);
5890: END IF;
5891:
5892: -- validate RELATIONAL_OPERATOR
5890: END IF;
5891:
5892: -- validate RELATIONAL_OPERATOR
5893: IF p_ctr_derived_filters_tbl(tab_row).RELATIONAL_OPERATOR NOT IN (FND_API.G_MISS_CHAR,'=', '<', '<=', '>', '>=', '!=', '<>') THEN
5894: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_REL_OPERATOR',
5895: 'PARM',l_ctr_derived_filters_rec.RELATIONAL_OPERATOR);
5896: END IF;
5897:
5898: -- validate LOGICAL_OPERATOR
5904: END IF;
5905:
5906: IF l_log_op IS NOT NULL THEN
5907: IF l_log_op NOT IN (FND_API.G_MISS_CHAR, 'AND', 'OR') THEN
5908: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_INV_DER_LOG_OPERATOR', 'PARM',l_ctr_derived_filters_rec.LOGICAL_OPERATOR);
5909: END IF;
5910: END IF;
5911:
5912: -- initialize descritive flexfield
5909: END IF;
5910: END IF;
5911:
5912: -- initialize descritive flexfield
5913: -- csi_ctr_gen_utility_pvt.Initialize_Desc_Flex_For_Upd(p_ctr_derived_filters_rec,l_old_ctr_derived_filters_rec);
5914:
5915: -- validate SEQ_NO
5916: IF p_ctr_derived_filters_tbl(tab_row).seq_no = FND_API.G_MISS_NUM then
5917: p_ctr_derived_filters_tbl(tab_row).seq_no := null;
5917: p_ctr_derived_filters_tbl(tab_row).seq_no := null;
5918: END IF;
5919:
5920: IF p_ctr_derived_filters_tbl(tab_row).SEQ_NO IS NULL THEN
5921: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_DER_FILTER_NULL_SEQ');
5922: ELSE
5923: IF p_ctr_derived_filters_tbl(tab_row).SEQ_NO <> FND_API.G_MISS_NUM THEN
5924: BEGIN
5925: SELECT 'x'
5931:
5932: -- this means that for this counter, there is one another
5933: -- derived filter record with the same sequence number.
5934: -- Raise error.
5935: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_DUP_DERFILTER_SEQNO',
5936: 'SEQNO',to_char(p_ctr_derived_filters_tbl(tab_row).seq_no),
5937: 'CTR_NAME',l_name);
5938:
5939: EXCEPTION WHEN NO_DATA_FOUND THEN
5982: ,p_ctr_derived_filters_tbl(tab_row).SECURITY_GROUP_ID
5983: ,p_ctr_derived_filters_tbl(tab_row).MIGRATED_FLAG
5984: );
5985:
5986: csi_ctr_gen_utility_pvt.Validate_GrpOp_ctr
5987: (
5988: p_api_version => 1.0,
5989: p_commit => FND_API.G_FALSE,
5990: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
5999: RAISE FND_API.G_EXC_ERROR;
6000: END IF;
6001:
6002: -- l_ctr_derived_filters_rec.OBJECT_VERSION_NUMBER := l_ctr_derived_filters_rec.OBJECT_VERSION_NUMBER+1;
6003: csi_ctr_gen_utility_pvt.put_line('before updating csi_counters_vl');
6004: BEGIN
6005: SELECT 'x'
6006: INTO l_found
6007: FROM csi_counter_template_vl
6009:
6010: UPDATE csi_counter_template_b
6011: SET valid_flag = decode(l_valid_flag, 'Y', 'Y', 'N')
6012: WHERE counter_id = p_ctr_derived_filters_tbl(tab_row).COUNTER_ID;
6013: csi_ctr_gen_utility_pvt.put_line('after updating csi_counters_vl');
6014: EXCEPTION
6015: WHEN NO_DATA_FOUND THEN
6016: UPDATE csi_counters_b
6017: SET valid_flag = decode(l_valid_flag, 'Y', 'Y', 'N')
6015: WHEN NO_DATA_FOUND THEN
6016: UPDATE csi_counters_b
6017: SET valid_flag = decode(l_valid_flag, 'Y', 'Y', 'N')
6018: WHERE counter_id = p_ctr_derived_filters_tbl(tab_row).COUNTER_ID;
6019: csi_ctr_gen_utility_pvt.put_line('after updating csi_counters_vl');
6020: END;
6021: END IF;
6022: END IF;
6023: END LOOP;
6142: -- Initialize API return status to success
6143: x_return_status := FND_API.G_RET_STS_SUCCESS;
6144:
6145: -- Read the debug profiles values in to global variable 7197402
6146: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6147:
6148: --
6149: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
6150: csi_ctr_gen_utility_pvt.put_line( 'create_estimation_method_pvt' ||'-'||
6145: -- Read the debug profiles values in to global variable 7197402
6146: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6147:
6148: --
6149: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
6150: csi_ctr_gen_utility_pvt.put_line( 'create_estimation_method_pvt' ||'-'||
6151: p_api_version ||'-'||
6152: nvl(p_commit,FND_API.G_FALSE) ||'-'||
6153: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
6146: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6147:
6148: --
6149: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
6150: csi_ctr_gen_utility_pvt.put_line( 'create_estimation_method_pvt' ||'-'||
6151: p_api_version ||'-'||
6152: nvl(p_commit,FND_API.G_FALSE) ||'-'||
6153: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
6154: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
6324: INTO l_dummy
6325: FROM csi_ctr_estimate_methods_vl
6326: WHERE name = l_name;
6327:
6328: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_DUP_NAME','CTR_EST_NAME',l_name);
6329: EXCEPTION
6330: WHEN NO_DATA_FOUND THEN
6331: NULL;
6332: END;
6333:
6334: validate_lookups('CSI_COUNTER_ESTIMATION_TYPE',l_estimation_type);
6335:
6336: IF l_estimation_avg_type not in ('DLY','MTH') THEN
6337: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_AVG_TYPE_INV','CTR_EST_AVG_TYPE',l_estimation_avg_type);
6338: END IF;
6339:
6340: IF l_estimation_type = 'FIXED' then
6341: IF l_fixed_value IS NULL THEN
6338: END IF;
6339:
6340: IF l_estimation_type = 'FIXED' then
6341: IF l_fixed_value IS NULL THEN
6342: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_INV_FIXED');
6343: END IF;
6344: -- ELSIF l_estimation_type = 'USAGE' then
6345: -- IF l_default_value IS NULL OR l_usage_markup IS NULL THEN
6346: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_INV_USAGE');
6342: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_INV_FIXED');
6343: END IF;
6344: -- ELSIF l_estimation_type = 'USAGE' then
6345: -- IF l_default_value IS NULL OR l_usage_markup IS NULL THEN
6346: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_INV_USAGE');
6347: -- END IF;
6348: END IF;
6349:
6350: /* Table Handler call */
6508: -- Initialize API return status to success
6509: x_return_status := FND_API.G_RET_STS_SUCCESS;
6510:
6511: -- Read the debug profiles values in to global variable 7197402
6512: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6513:
6514: --
6515: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
6516: csi_ctr_gen_utility_pvt.put_line( 'update_estimation_method_pvt' ||'-'||
6511: -- Read the debug profiles values in to global variable 7197402
6512: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6513:
6514: --
6515: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
6516: csi_ctr_gen_utility_pvt.put_line( 'update_estimation_method_pvt' ||'-'||
6517: p_api_version ||'-'||
6518: nvl(p_commit,FND_API.G_FALSE) ||'-'||
6519: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
6512: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6513:
6514: --
6515: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
6516: csi_ctr_gen_utility_pvt.put_line( 'update_estimation_method_pvt' ||'-'||
6517: p_api_version ||'-'||
6518: nvl(p_commit,FND_API.G_FALSE) ||'-'||
6519: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
6520: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
6531:
6532: CLOSE cur_estimation_rec;
6533:
6534: -- IF SQL%NOTFOUND THEN
6535: -- CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_ESTIM_NOTEXISTS');
6536: -- END IF;
6537:
6538: l_ctr_estimation_rec := p_ctr_estimation_rec;
6539:
6697: -- validate_start_date(l_ctr_estimation_rec.start_date_active);
6698: validate_lookups('CSI_COUNTER_ESTIMATION_TYPE',l_ctr_estimation_rec.estimation_type);
6699:
6700: /* IF l_ctr_estimation_rec.estimation_avg_type not in ('DLY','MTH') THEN
6701: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_AVG_TYPE_INV','CTR_EST_AVG_TYPE',l_ctr_estimation_rec.estimation_avg_type);
6702: END IF; */
6703:
6704: IF l_ctr_estimation_rec.estimation_type = 'FIXED' then
6705: IF l_ctr_estimation_rec.fixed_value IS NULL THEN
6702: END IF; */
6703:
6704: IF l_ctr_estimation_rec.estimation_type = 'FIXED' then
6705: IF l_ctr_estimation_rec.fixed_value IS NULL THEN
6706: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_EST_INV_FIXED');
6707: END IF;
6708: END IF;
6709:
6710: /* Table Handler call */
7118: -- Initialize API return status to success
7119: x_return_status := FND_API.G_RET_STS_SUCCESS;
7120:
7121: -- Read the debug profiles values in to global variable 7197402
7122: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7123:
7124: --
7125: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
7126: csi_ctr_gen_utility_pvt.put_line(
7121: -- Read the debug profiles values in to global variable 7197402
7122: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7123:
7124: --
7125: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
7126: csi_ctr_gen_utility_pvt.put_line(
7127: 'instantiate_ctr_pvt'||'-'||
7128: p_api_version ||'-'||
7129: nvl(p_commit,FND_API.G_FALSE) ||'-'||
7122: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7123:
7124: --
7125: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
7126: csi_ctr_gen_utility_pvt.put_line(
7127: 'instantiate_ctr_pvt'||'-'||
7128: p_api_version ||'-'||
7129: nvl(p_commit,FND_API.G_FALSE) ||'-'||
7130: nvl(p_init_msg_list,FND_API.G_FALSE)||'-'||
7134: l_source_object_cd := p_source_object_code_instance;
7135: l_source_object_id_instance := p_source_object_id_instance;
7136:
7137: l_counter_id := p_counter_id_template;
7138: csi_ctr_gen_utility_pvt.put_line('Template counter id = '||to_char(l_counter_id));
7139:
7140: FOR ctr_cur_rec IN ctr_cur(l_counter_id) LOOP
7141: IF ctr_cur_rec.group_id IS NOT NULL THEN
7142: l_counter_instance_rec.group_id := ctr_cur_rec.defaulted_group_id;
7158: FROM csi_counters_b
7159: WHERE created_from_counter_tmpl_id = ctr_cur_rec.derive_counter_id;
7160: EXCEPTION
7161: WHEN NO_DATA_FOUND THEN
7162: csi_ctr_gen_utility_pvt.put_line( ' New counter id not found for deriver counte id '||to_char(ctr_cur_rec.derive_counter_id));
7163: NULL;
7164: END;
7165:
7166: l_counter_instance_rec.derive_counter_id := l_new_derive_counter_id;
7231: l_counter_instance_rec.comments := ctr_cur_rec.comments;
7232: l_counter_instance_rec.time_based_manual_entry := ctr_cur_rec.tm_based_manual_entry;
7233: l_counter_instance_rec.eam_required_flag := ctr_cur_rec.eam_required_flag;
7234:
7235: csi_ctr_gen_utility_pvt.put_line('Calling csi_counter_pvt.create_counter....');
7236:
7237: CSI_COUNTER_PVT.CREATE_COUNTER
7238: (
7239: p_api_version => p_api_version,
7253: WHILE l_msg_count > 0 LOOP
7254: x_msg_data := FND_MSG_PUB.GET
7255: (l_msg_index,
7256: FND_API.G_FALSE );
7257: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_COUNTER');
7258: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7259: l_msg_index := l_msg_index + 1;
7260: l_msg_count := l_msg_count - 1;
7261: END LOOP;
7254: x_msg_data := FND_MSG_PUB.GET
7255: (l_msg_index,
7256: FND_API.G_FALSE );
7257: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_COUNTER');
7258: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7259: l_msg_index := l_msg_index + 1;
7260: l_msg_count := l_msg_count - 1;
7261: END LOOP;
7262: RAISE FND_API.G_EXC_ERROR;
7270: l_counter_associations_rec.start_date_active := sysdate;
7271: l_counter_associations_rec.maint_organization_id := p_maint_org_id;
7272: l_counter_associations_rec.primary_failure_flag := p_primary_failure_flag;
7273:
7274: csi_ctr_gen_utility_pvt.put_line( ' Maint organization id = '||to_char(p_maint_org_id));
7275: csi_ctr_gen_utility_pvt.put_line('Calling csi_counter_pvt.create_ctr_associations....');
7276: CSI_COUNTER_PVT.CREATE_CTR_ASSOCIATIONS
7277: (
7278: p_api_version => p_api_version
7271: l_counter_associations_rec.maint_organization_id := p_maint_org_id;
7272: l_counter_associations_rec.primary_failure_flag := p_primary_failure_flag;
7273:
7274: csi_ctr_gen_utility_pvt.put_line( ' Maint organization id = '||to_char(p_maint_org_id));
7275: csi_ctr_gen_utility_pvt.put_line('Calling csi_counter_pvt.create_ctr_associations....');
7276: CSI_COUNTER_PVT.CREATE_CTR_ASSOCIATIONS
7277: (
7278: p_api_version => p_api_version
7279: ,p_commit => p_commit
7293: WHILE l_msg_count > 0 LOOP
7294: x_msg_data := FND_MSG_PUB.GET
7295: (l_msg_index,
7296: FND_API.G_FALSE );
7297: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_CTR_ASSOCIATIONS');
7298: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7299: l_msg_index := l_msg_index + 1;
7300: l_msg_count := l_msg_count - 1;
7301: END LOOP;
7294: x_msg_data := FND_MSG_PUB.GET
7295: (l_msg_index,
7296: FND_API.G_FALSE );
7297: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_CTR_ASSOCIATIONS');
7298: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7299: l_msg_index := l_msg_index + 1;
7300: l_msg_count := l_msg_count - 1;
7301: END LOOP;
7302: RAISE FND_API.G_EXC_ERROR;
7308: ctr_cur_rec.initial_reading <> FND_API.G_MISS_NUM) AND
7309: nvl(l_counter_relationships_rec.RELATIONSHIP_TYPE_CODE,'X') <>
7310: l_rel_type THEN
7311:
7312: csi_ctr_gen_utility_pvt.put_line('Inside the call reading api...');
7313:
7314: --create transaction record
7315: l_transaction_tbl(l_c_ind_txn) := NULL;
7316: l_transaction_tbl(l_c_ind_txn).TRANSACTION_ID := NULL;
7363: l_ctr_property_readings_tbl(l_c_ind_prop).PARENT_TBL_INDEX := l_c_ind_rdg;
7364: l_c_ind_prop := l_c_ind_prop + 1;
7365: END LOOP;
7366:
7367: csi_ctr_gen_utility_pvt.put_line('Calling the capture counter reading...');
7368: csi_counter_readings_pub.capture_counter_reading(
7369: p_api_version => 1.0,
7370: p_commit => p_commit,
7371: p_init_msg_list => p_init_msg_list,
7385: WHILE l_msg_count > 0 LOOP
7386: x_msg_data := FND_MSG_PUB.GET
7387: (l_msg_index,
7388: FND_API.G_FALSE );
7389: csi_ctr_gen_utility_pvt.put_line( ' Error from Instantiate-Capture Readings');
7390: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7391: l_msg_index := l_msg_index + 1;
7392: l_msg_count := l_msg_count - 1;
7393: END LOOP;
7386: x_msg_data := FND_MSG_PUB.GET
7387: (l_msg_index,
7388: FND_API.G_FALSE );
7389: csi_ctr_gen_utility_pvt.put_line( ' Error from Instantiate-Capture Readings');
7390: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7391: l_msg_index := l_msg_index + 1;
7392: l_msg_count := l_msg_count - 1;
7393: END LOOP;
7394: RAISE FND_API.G_EXC_ERROR;
7456: WHILE l_msg_count > 0 LOOP
7457: x_msg_data := FND_MSG_PUB.GET
7458: (l_msg_index,
7459: FND_API.G_FALSE );
7460: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_Counter_PVT.Create_Ctr_Property');
7461: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7462: l_msg_index := l_msg_index + 1;
7463: l_msg_count := l_msg_count - 1;
7464: END LOOP;
7457: x_msg_data := FND_MSG_PUB.GET
7458: (l_msg_index,
7459: FND_API.G_FALSE );
7460: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_Counter_PVT.Create_Ctr_Property');
7461: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7462: l_msg_index := l_msg_index + 1;
7463: l_msg_count := l_msg_count - 1;
7464: END LOOP;
7465: RAISE FND_API.G_EXC_ERROR;
7470: -- All the counter properties belonging to this counter have been
7471: -- instantiated.
7472:
7473: END LOOP;
7474: csi_ctr_gen_utility_pvt.put_line('After the end loop ');
7475: csi_ctr_gen_utility_pvt.put_line('New counter id = '||to_char(l_new_ctr_id));
7476:
7477: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_new_ctr_id) LOOP
7478: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
7471: -- instantiated.
7472:
7473: END LOOP;
7474: csi_ctr_gen_utility_pvt.put_line('After the end loop ');
7475: csi_ctr_gen_utility_pvt.put_line('New counter id = '||to_char(l_new_ctr_id));
7476:
7477: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_new_ctr_id) LOOP
7478: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
7479: FOR ctr_der_filter_cur_rec IN ctr_der_filter_cur(fmla_ctr_cur_rec.counter_id)
7474: csi_ctr_gen_utility_pvt.put_line('After the end loop ');
7475: csi_ctr_gen_utility_pvt.put_line('New counter id = '||to_char(l_new_ctr_id));
7476:
7477: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_new_ctr_id) LOOP
7478: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
7479: FOR ctr_der_filter_cur_rec IN ctr_der_filter_cur(fmla_ctr_cur_rec.counter_id)
7480: LOOP
7481: csi_ctr_gen_utility_pvt.put_line('Inside the ctr_der_filter_cur_rec ');
7482:
7477: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_new_ctr_id) LOOP
7478: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
7479: FOR ctr_der_filter_cur_rec IN ctr_der_filter_cur(fmla_ctr_cur_rec.counter_id)
7480: LOOP
7481: csi_ctr_gen_utility_pvt.put_line('Inside the ctr_der_filter_cur_rec ');
7482:
7483: SELECT counter_property_id
7484: INTO l_new_der_ctr_prop_id
7485: FROM csi_counter_template_vl ctr,
7539: WHILE l_msg_count > 0 LOOP
7540: x_msg_data := FND_MSG_PUB.GET
7541: (l_msg_index,
7542: FND_API.G_FALSE );
7543: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_DERIVED_FILTERS');
7544: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7545: l_msg_index := l_msg_index + 1;
7546: l_msg_count := l_msg_count - 1;
7547: END LOOP;
7540: x_msg_data := FND_MSG_PUB.GET
7541: (l_msg_index,
7542: FND_API.G_FALSE );
7543: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_DERIVED_FILTERS');
7544: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7545: l_msg_index := l_msg_index + 1;
7546: l_msg_count := l_msg_count - 1;
7547: END LOOP;
7548: RAISE FND_API.G_EXC_ERROR;
7550:
7551: END LOOP;
7552:
7553: -- FOR ctr_formula_bvars_cur_rec IN ctr_formula_bvars_cur(l_new_ctr_id)
7554: csi_ctr_gen_utility_pvt.put_line( 'Passed counter_id = '||to_char(l_counter_id));
7555: csi_ctr_gen_utility_pvt.put_line( 'Passed new grp id = '||to_char(l_new_ctr_grp_id));
7556: FOR ctr_formula_bvars_cur_rec IN ctr_formula_bvars_cur(l_counter_id)
7557: LOOP
7558: SELECT max(counter_id)
7551: END LOOP;
7552:
7553: -- FOR ctr_formula_bvars_cur_rec IN ctr_formula_bvars_cur(l_new_ctr_id)
7554: csi_ctr_gen_utility_pvt.put_line( 'Passed counter_id = '||to_char(l_counter_id));
7555: csi_ctr_gen_utility_pvt.put_line( 'Passed new grp id = '||to_char(l_new_ctr_grp_id));
7556: FOR ctr_formula_bvars_cur_rec IN ctr_formula_bvars_cur(l_counter_id)
7557: LOOP
7558: SELECT max(counter_id)
7559: INTO l_new_mapped_ctr_id
8030: -- Initialize API return status to success
8031: x_return_status := FND_API.G_RET_STS_SUCCESS;
8032:
8033: -- Read the debug profiles values in to global variable 7197402
8034: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
8035:
8036: --
8037: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
8038: csi_ctr_gen_utility_pvt.put_line(
8033: -- Read the debug profiles values in to global variable 7197402
8034: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
8035:
8036: --
8037: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
8038: csi_ctr_gen_utility_pvt.put_line(
8039: 'instantiate_grp_counters'||'-'||
8040: p_api_version ||'-'||
8041: nvl(p_commit,FND_API.G_FALSE) ||'-'||
8034: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
8035:
8036: --
8037: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
8038: csi_ctr_gen_utility_pvt.put_line(
8039: 'instantiate_grp_counters'||'-'||
8040: p_api_version ||'-'||
8041: nvl(p_commit,FND_API.G_FALSE) ||'-'||
8042: nvl(p_init_msg_list,FND_API.G_FALSE)||'-'||
8095: l_ctr_grp_rec.template_flag
8096: FROM cs_csi_counter_groups
8097: WHERE counter_group_id = l_counter_group_id;
8098:
8099: csi_ctr_gen_utility_pvt.put_line('Counter group Id = '||to_char(l_counter_group_id));
8100: csi_ctr_gen_utility_pvt.put_line('Template Flag = '||l_ctr_grp_rec.template_flag);
8101: l_ctr_grp_rec.created_from_ctr_grp_tmpl_id := l_counter_group_id;
8102: create_counter_group
8103: (
8096: FROM cs_csi_counter_groups
8097: WHERE counter_group_id = l_counter_group_id;
8098:
8099: csi_ctr_gen_utility_pvt.put_line('Counter group Id = '||to_char(l_counter_group_id));
8100: csi_ctr_gen_utility_pvt.put_line('Template Flag = '||l_ctr_grp_rec.template_flag);
8101: l_ctr_grp_rec.created_from_ctr_grp_tmpl_id := l_counter_group_id;
8102: create_counter_group
8103: (
8104: p_api_version => p_api_version
8118: WHILE l_msg_count > 0 LOOP
8119: x_msg_data := FND_MSG_PUB.GET
8120: (l_msg_index,
8121: FND_API.G_FALSE );
8122: csi_ctr_gen_utility_pvt.put_line('Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_COUNTER_GROUP');
8123: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8124: l_msg_index := l_msg_index + 1;
8125: l_msg_count := l_msg_count - 1;
8126: END LOOP;
8119: x_msg_data := FND_MSG_PUB.GET
8120: (l_msg_index,
8121: FND_API.G_FALSE );
8122: csi_ctr_gen_utility_pvt.put_line('Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_COUNTER_GROUP');
8123: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8124: l_msg_index := l_msg_index + 1;
8125: l_msg_count := l_msg_count - 1;
8126: END LOOP;
8127: RAISE FND_API.G_EXC_ERROR;
8130: l_ctr_grp_id_instance := l_ctr_grp_rec.counter_group_id;
8131: x_ctr_grp_id_instance := l_ctr_grp_rec.counter_group_id;
8132: EXCEPTION
8133: WHEN OTHERS THEN
8134: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_GRP_INVALID');
8135: END;
8136:
8137: FOR ctr_cur_rec IN ctr_cur(l_counter_group_id) LOOP
8138: l_counter_instance_rec.group_id := l_ctr_grp_id_instance;
8153: FROM csi_counters_b
8154: WHERE created_from_counter_tmpl_id = ctr_cur_rec.derive_counter_id;
8155: EXCEPTION
8156: WHEN NO_DATA_FOUND THEN
8157: csi_ctr_gen_utility_pvt.put_line( ' New counter id not found for deriver counte id '||to_char(ctr_cur_rec.derive_counter_id));
8158: NULL;
8159: END;
8160:
8161: l_counter_instance_rec.derive_counter_id := l_new_derive_counter_id;
8246: WHILE l_msg_count > 0 LOOP
8247: x_msg_data := FND_MSG_PUB.GET
8248: (l_msg_index,
8249: FND_API.G_FALSE );
8250: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_COUNTER');
8251: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8252: l_msg_index := l_msg_index + 1;
8253: l_msg_count := l_msg_count - 1;
8254: END LOOP;
8247: x_msg_data := FND_MSG_PUB.GET
8248: (l_msg_index,
8249: FND_API.G_FALSE );
8250: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_COUNTER');
8251: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8252: l_msg_index := l_msg_index + 1;
8253: l_msg_count := l_msg_count - 1;
8254: END LOOP;
8255: RAISE FND_API.G_EXC_ERROR;
8284: WHILE l_msg_count > 0 LOOP
8285: x_msg_data := FND_MSG_PUB.GET
8286: (l_msg_index,
8287: FND_API.G_FALSE );
8288: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_CTR_ASSOCIATIONS');
8289: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8290: l_msg_index := l_msg_index + 1;
8291: l_msg_count := l_msg_count - 1;
8292: END LOOP;
8285: x_msg_data := FND_MSG_PUB.GET
8286: (l_msg_index,
8287: FND_API.G_FALSE );
8288: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_PVT.CREATE_CTR_ASSOCIATIONS');
8289: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8290: l_msg_index := l_msg_index + 1;
8291: l_msg_count := l_msg_count - 1;
8292: END LOOP;
8293: RAISE FND_API.G_EXC_ERROR;
8354: WHILE l_msg_count > 0 LOOP
8355: x_msg_data := FND_MSG_PUB.GET
8356: (l_msg_index,
8357: FND_API.G_FALSE );
8358: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_Counter_PVT.Create_Ctr_Property');
8359: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8360: l_msg_index := l_msg_index + 1;
8361: l_msg_count := l_msg_count - 1;
8362: END LOOP;
8355: x_msg_data := FND_MSG_PUB.GET
8356: (l_msg_index,
8357: FND_API.G_FALSE );
8358: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_Counter_PVT.Create_Ctr_Property');
8359: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8360: l_msg_index := l_msg_index + 1;
8361: l_msg_count := l_msg_count - 1;
8362: END LOOP;
8363: RAISE FND_API.G_EXC_ERROR;
8368: -- All the counter properties belonging to this counter have been
8369: -- instantiated.
8370:
8371: END LOOP;
8372: csi_ctr_gen_utility_pvt.put_line('After the end loop ');
8373: csi_ctr_gen_utility_pvt.put_line('Passed counter group id = '||to_char(l_ctr_grp_rec.counter_group_id));
8374:
8375: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_ctr_grp_rec.counter_group_id) LOOP
8376: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
8369: -- instantiated.
8370:
8371: END LOOP;
8372: csi_ctr_gen_utility_pvt.put_line('After the end loop ');
8373: csi_ctr_gen_utility_pvt.put_line('Passed counter group id = '||to_char(l_ctr_grp_rec.counter_group_id));
8374:
8375: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_ctr_grp_rec.counter_group_id) LOOP
8376: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
8377: FOR ctr_der_filter_cur_rec IN ctr_der_filter_cur(fmla_ctr_cur_rec.counter_id)
8372: csi_ctr_gen_utility_pvt.put_line('After the end loop ');
8373: csi_ctr_gen_utility_pvt.put_line('Passed counter group id = '||to_char(l_ctr_grp_rec.counter_group_id));
8374:
8375: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_ctr_grp_rec.counter_group_id) LOOP
8376: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
8377: FOR ctr_der_filter_cur_rec IN ctr_der_filter_cur(fmla_ctr_cur_rec.counter_id)
8378: LOOP
8379: csi_ctr_gen_utility_pvt.put_line('Inside the ctr_der_filter_cur_rec ');
8380:
8375: FOR fmla_ctr_cur_rec IN fmla_ctr_cur(l_ctr_grp_rec.counter_group_id) LOOP
8376: csi_ctr_gen_utility_pvt.put_line('Formula Counter Id = '||to_char(fmla_ctr_cur_rec.counter_id));
8377: FOR ctr_der_filter_cur_rec IN ctr_der_filter_cur(fmla_ctr_cur_rec.counter_id)
8378: LOOP
8379: csi_ctr_gen_utility_pvt.put_line('Inside the ctr_der_filter_cur_rec ');
8380:
8381: SELECT counter_property_id
8382: INTO l_new_der_ctr_prop_id
8383: FROM csi_counter_template_vl ctr,
8404: WHILE l_msg_count > 0 LOOP
8405: x_msg_data := FND_MSG_PUB.GET
8406: (l_msg_index,
8407: FND_API.G_FALSE );
8408: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_DERIVED_FILTERS');
8409: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8410: l_msg_index := l_msg_index + 1;
8411: l_msg_count := l_msg_count - 1;
8412: END LOOP;
8405: x_msg_data := FND_MSG_PUB.GET
8406: (l_msg_index,
8407: FND_API.G_FALSE );
8408: csi_ctr_gen_utility_pvt.put_line( ' Error from CSI_COUNTER_TEMPLATE_PVT.CREATE_DERIVED_FILTERS');
8409: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8410: l_msg_index := l_msg_index + 1;
8411: l_msg_count := l_msg_count - 1;
8412: END LOOP;
8413: RAISE FND_API.G_EXC_ERROR;
8414: END IF;
8415:
8416: END LOOP;
8417:
8418: csi_ctr_gen_utility_pvt.put_line('Created from ctr id = '||to_char(fmla_ctr_cur_rec.counter_id));
8419: BEGIN
8420: SELECT created_from_counter_tmpl_id
8421: INTO l_created_map_id
8422: FROM csi_counters_b
8653: -- Initialize API return status to success
8654: x_return_status := FND_API.G_RET_STS_SUCCESS;
8655:
8656: -- Read the debug profiles values in to global variable 7197402
8657: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
8658:
8659: --
8660: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
8661: csi_ctr_gen_utility_pvt.put_line
8656: -- Read the debug profiles values in to global variable 7197402
8657: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
8658:
8659: --
8660: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
8661: csi_ctr_gen_utility_pvt.put_line
8662: ( 'delete_item_association_pvt' ||'-'||
8663: p_api_version ||'-'||
8664: nvl(p_commit,FND_API.G_FALSE) ||'-'||
8657: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
8658:
8659: --
8660: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level > 0) THEN
8661: csi_ctr_gen_utility_pvt.put_line
8662: ( 'delete_item_association_pvt' ||'-'||
8663: p_api_version ||'-'||
8664: nvl(p_commit,FND_API.G_FALSE) ||'-'||
8665: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
8671: else
8672: l_ctr_associations_id := p_ctr_associations_id;
8673: end if;
8674:
8675: csi_ctr_gen_utility_pvt.put_line('Inside delete Item association = '||to_char(l_ctr_associations_id));
8676: /* Start of validation */
8677: BEGIN
8678: SELECT associated_to_group, group_id, counter_id
8679: INTO l_associated_to_group, l_group_id, l_counter_id
8689: INTO l_associations_exists
8690: FROM csi_counter_associations
8691: WHERE counter_id = get_ctr_rec.instantiated_counter_id;
8692:
8693: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_ITEM_DEL_NOTALLOW');
8694: EXCEPTION
8695: WHEN NO_DATA_FOUND THEN
8696: NULL;
8697: WHEN OTHERS THEN
8694: EXCEPTION
8695: WHEN NO_DATA_FOUND THEN
8696: NULL;
8697: WHEN OTHERS THEN
8698: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_ITEM_DEL_NOTALLOW');
8699: END;
8700: END LOOP;
8701: END LOOP;
8702:
8729: INTO l_associations_exists
8730: FROM csi_counter_associations
8731: WHERE counter_id = get_ctr_rec.instantiated_counter_id;
8732:
8733: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_ITEM_DEL_NOTALLOW');
8734: EXCEPTION
8735: WHEN NO_DATA_FOUND THEN
8736: NULL;
8737: WHEN OTHERS THEN
8734: EXCEPTION
8735: WHEN NO_DATA_FOUND THEN
8736: NULL;
8737: WHEN OTHERS THEN
8738: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_ITEM_DEL_NOTALLOW');
8739: END;
8740: END LOOP;
8741: /* Now Delete the data that was verified */
8742: /* Call the table Handler */
8750: END IF;
8751:
8752: EXCEPTION
8753: WHEN OTHERS THEN
8754: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_ITEM_DEL_NOTALLOW');
8755: END;
8756:
8757: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
8758: COMMIT WORK;