1: Package Body OCM_ADD_DATA_POINTS AS
2: /* $Header: OCMGTDPB.pls 120.15 2012/05/18 11:55:09 kgnanase ship $ */
3:
4: pg_wf_debug VARCHAR2(1) := ar_cmgt_util.get_wf_debug_flag;
5:
82: IF pg_wf_debug = 'Y'
83: THEN
84: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'before call:');
85: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
86: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
87: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
88: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
89: END IF;
90:
84: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'before call:');
85: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
86: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
87: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
88: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
89: END IF;
90:
91: -- first clear the global pl/sql table
92: pg_ocm_dp_values_tbl.delete;
174: BEGIN
175: IF pg_wf_debug = 'Y'
176: THEN
177: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
178: 'ocm_add_data_points_pkg.getchilddatapoints()+');
179: END IF;
180:
181: FOR getChildDataPointsRec IN getChildDataPointsC
182: LOOP
208: ' pkg.fun()=' || getChildDataPointsRec.package_name ||
209: '.' || getChildDataPointsRec.function_name);
210: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'before call:');
211: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
212: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
213: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
214: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
215: END IF;
216:
210: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'before call:');
211: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
212: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
213: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
214: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
215: END IF;
216:
217: BuildExecuteSql (
218: p_package_name => getChildDataPointsRec.package_name,
327: IF pg_wf_debug = 'Y'
328: THEN
329: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'after call:');
330: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
331: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
332: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
333: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
334: END IF;
335:
329: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'after call:');
330: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
331: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
332: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
333: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
334: END IF;
335:
336: END LOOP; -- end of getAllParentValuesRec
337: END LOOP;
337: END LOOP;
338: IF pg_wf_debug = 'Y'
339: THEN
340: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
341: 'ocm_add_data_points_pkg.getchilddatapoints()-');
342: END IF;
343: END;
344:
345: PROCEDURE GetParentDataPoints (
376: BEGIN
377: IF pg_wf_debug = 'Y'
378: THEN
379: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
380: 'ocm_add_data_points_pkg.getparentdatapoints()+');
381: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
382: ' p_mode = ' || p_mode);
383: END IF;
384:
407: ' pkg.fun()=' || getParentDataPointsRec.package_name ||
408: '.' || getParentDataPointsRec.function_name);
409: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'before call:');
410: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
411: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
412: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
413: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
414: END IF;
415:
409: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'before call:');
410: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value = ' ||
411: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
412: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_value_id = ' ||
413: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
414: END IF;
415:
416: BuildExecuteSql (
417: p_package_name => getParentDataPointsRec.package_name,
579: THEN
580: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'after call:');
581: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
582: 'p_data_point_value = ' ||
583: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
584: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
585: 'p_data_point_value_id = ' ||
586: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
587: END IF;
582: 'p_data_point_value = ' ||
583: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value);
584: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
585: 'p_data_point_value_id = ' ||
586: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_value_id);
587: END IF;
588:
589: END LOOP; /* get parents loop */
590:
590:
591: IF pg_wf_debug = 'Y'
592: THEN
593: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
594: 'ocm_add_data_points_pkg.getparentdatapoints()-');
595: END IF;
596: END;
597:
598: PROCEDURE GetAdditionalDataPoints (
612: BEGIN
613: IF pg_wf_debug = 'Y'
614: THEN
615: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
616: 'ocm_add_data_points_pkg.getadditionaldatapoints()+');
617: END IF;
618:
619: p_resultout := 0;
620:
650: THEN
651: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
652: 'content of pg_ocm_add_dp_param_rec');
653: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_credit_request_id = ' ||
654: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_credit_request_id);
655: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_case_folder_id = ' ||
656: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_case_folder_id);
657: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_application_number = ' ||
658: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_application_number);
652: 'content of pg_ocm_add_dp_param_rec');
653: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_credit_request_id = ' ||
654: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_credit_request_id);
655: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_case_folder_id = ' ||
656: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_case_folder_id);
657: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_application_number = ' ||
658: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_application_number);
659: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column1 = ' ||
660: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column1);
654: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_credit_request_id);
655: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_case_folder_id = ' ||
656: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_case_folder_id);
657: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_application_number = ' ||
658: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_application_number);
659: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column1 = ' ||
660: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column1);
661: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column2 = ' ||
662: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column2);
656: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_case_folder_id);
657: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_application_number = ' ||
658: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_application_number);
659: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column1 = ' ||
660: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column1);
661: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column2 = ' ||
662: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column2);
663: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column3 = ' ||
664: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column3);
658: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_application_number);
659: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column1 = ' ||
660: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column1);
661: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column2 = ' ||
662: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column2);
663: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column3 = ' ||
664: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column3);
665: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_application_id = ' ||
666: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_application_id);
660: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column1);
661: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column2 = ' ||
662: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column2);
663: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column3 = ' ||
664: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column3);
665: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_application_id = ' ||
666: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_application_id);
667: END IF;
668:
662: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column2);
663: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_source_column3 = ' ||
664: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_column3);
665: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,'p_data_point_application_id = ' ||
666: OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_data_point_application_id);
667: END IF;
668:
669: BEGIN
670: SELECT default_exchange_rate_type
701: EXCEPTION
702: WHEN OTHERS THEN
703: p_resultout := 1;
704: p_error_msg :=
705: 'SQL Error while deleting in OCM_ADD_DATA_POINTS '|| sqlerrm;
706: END;
707: END IF;
708:
709: IF p_resultout <> 0
723:
724: IF pg_wf_debug = 'Y'
725: THEN
726: ar_cmgt_util.wf_debug(pg_ocm_add_dp_param_rec.p_case_folder_id,
727: 'ocm_add_data_points_pkg.getadditionaldatapoints()-');
728: END IF;
729:
730: EXCEPTION
731: WHEN OTHERS THEN
729:
730: EXCEPTION
731: WHEN OTHERS THEN
732: p_resultout := 1;
733: p_error_msg := 'SQL Error in OCM_ADD_DATA_POINTS '|| sqlerrm;
734:
735: END;
736:
737: END OCM_ADD_DATA_POINTS;
733: p_error_msg := 'SQL Error in OCM_ADD_DATA_POINTS '|| sqlerrm;
734:
735: END;
736:
737: END OCM_ADD_DATA_POINTS;