31: lv_leg_installed VARCHAR2(10) := 'N';
32:
33: BEGIN
34:
35: --hr_utility.trace_on( NULL, 'BAL');
36:
37: open c_ip_installed (p_business_grp_id);
38: fetch c_ip_installed into lv_leg_installed;
39: close c_ip_installed;
186: lv_segment_exists BOOLEAN;
187: lv_new_context_name VARCHAR2(50);
188: lv_val_set_name fnd_flex_value_sets.flex_value_set_name%TYPE;
189: BEGIN
190: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',10);
191: /*hr_utility.trace_on(null,'DFF_FLEX'); */
192: fnd_flex_dsc_api.set_session_mode('seed_data');
193:
194: lv_sql_stmt := 'select fdfc.application_id,
187: lv_new_context_name VARCHAR2(50);
188: lv_val_set_name fnd_flex_value_sets.flex_value_set_name%TYPE;
189: BEGIN
190: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',10);
191: /*hr_utility.trace_on(null,'DFF_FLEX'); */
192: fnd_flex_dsc_api.set_session_mode('seed_data');
193:
194: lv_sql_stmt := 'select fdfc.application_id,
195: fdfc.DESCRIPTIVE_FLEXFIELD_NAME
209: AND fdfc.DESCRIPTIVE_FLEXFIELD_NAME ='''||p_dff_name|| '''
210: AND fdfc.DESCRIPTIVE_FLEX_CONTEXT_CODE IN (' ||p_list_of_ctxt_string|| ')' ;
211:
212:
213: hr_utility.trace('lv_sql_stmt : '||lv_sql_stmt);
214: OPEN cv_get_context FOR lv_sql_stmt;
215: LOOP
216:
217: FETCH cv_get_context INTO
224: ,lv_description
225: ,lv_language ;
226: EXIT WHEN cv_get_context%NOTFOUND;
227:
228: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',20);
229: lv_new_context_name := p_legislation_code||substr(lv_desc_flex_context_code,3);
230: hr_utility.trace('lv_new_context_name '||lv_new_context_name );
231: lv_context_exists := fnd_flex_dsc_api.context_exists(
232: p_appl_short_name => p_appl_short_name
226: EXIT WHEN cv_get_context%NOTFOUND;
227:
228: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',20);
229: lv_new_context_name := p_legislation_code||substr(lv_desc_flex_context_code,3);
230: hr_utility.trace('lv_new_context_name '||lv_new_context_name );
231: lv_context_exists := fnd_flex_dsc_api.context_exists(
232: p_appl_short_name => p_appl_short_name
233: ,p_flexfield_name => p_dff_name
234: ,p_context_code => lv_new_context_name
236: IF lv_context_exists THEN
237: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
238: pay_ip_startup_util.write_log('LOG','PAY_34073_IP_UPD_FLEX_CONTEXT',lv_new_context_name, NULL);
239:
240: hr_utility.trace('Updating the context '||lv_new_context_name );
241: fnd_flex_dsc_api.update_context(
242: p_appl_short_name => p_appl_short_name
243: ,p_flexfield_name => lv_desc_flexfield_name
244: ,p_desc_flex_context_code =>lv_new_context_name
247: ,p_enabled_flag => lv_enabled_flag
248: ,p_language => lv_language );
249:
250: ELSE
251: hr_utility.trace('Creating Context');
252: hr_utility.trace('language '||lv_language );
253: hr_utility.trace('get_context_rec.DESCRIPTION '||lv_description);
254: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
255: pay_ip_startup_util.write_log('LOG','PAY_34072_IP_INS_FLEX_CONTEXT',lv_new_context_name, NULL);
248: ,p_language => lv_language );
249:
250: ELSE
251: hr_utility.trace('Creating Context');
252: hr_utility.trace('language '||lv_language );
253: hr_utility.trace('get_context_rec.DESCRIPTION '||lv_description);
254: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
255: pay_ip_startup_util.write_log('LOG','PAY_34072_IP_INS_FLEX_CONTEXT',lv_new_context_name, NULL);
256:
249:
250: ELSE
251: hr_utility.trace('Creating Context');
252: hr_utility.trace('language '||lv_language );
253: hr_utility.trace('get_context_rec.DESCRIPTION '||lv_description);
254: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
255: pay_ip_startup_util.write_log('LOG','PAY_34072_IP_INS_FLEX_CONTEXT',lv_new_context_name, NULL);
256:
257: fnd_flex_dsc_api.create_context(
262: ,description => lv_description
263: ,enabled => lv_enabled_flag
264: ,global_flag => lv_global_flag );
265:
266: hr_utility.trace('created new context '||lv_new_context_name );
267: END IF;
268:
269: FOR get_segments_rec IN c_get_segments(lv_desc_flex_context_code)
270: LOOP
267: END IF;
268:
269: FOR get_segments_rec IN c_get_segments(lv_desc_flex_context_code)
270: LOOP
271: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',30);
272: hr_utility.trace('segments start');
273: OPEN c_get_val_set_name(get_segments_rec.FLEX_VALUE_SET_ID);
274: FETCH c_get_val_set_name INTO lv_val_set_name;
275: IF c_get_val_set_name%NOTFOUND THEN
268:
269: FOR get_segments_rec IN c_get_segments(lv_desc_flex_context_code)
270: LOOP
271: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',30);
272: hr_utility.trace('segments start');
273: OPEN c_get_val_set_name(get_segments_rec.FLEX_VALUE_SET_ID);
274: FETCH c_get_val_set_name INTO lv_val_set_name;
275: IF c_get_val_set_name%NOTFOUND THEN
276: lv_val_set_name :=NULL;
275: IF c_get_val_set_name%NOTFOUND THEN
276: lv_val_set_name :=NULL;
277: END IF;
278: CLOSE c_get_val_set_name;
279: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',40);
280: lv_segment_exists := fnd_flex_dsc_api.segment_exists(
281: p_appl_short_name => p_appl_short_name
282: ,p_segment_name => get_segments_rec.END_USER_COLUMN_NAME
283: ,p_flexfield_name => p_dff_name
284: ,p_context_code => lv_new_context_name
285: );
286:
287: IF lv_segment_exists THEN
288: hr_utility.trace('segments exists TRUE');
289: pay_ip_startup_util.write_log('LOG','PAY_34075_IP_UPD_FLEX_SEGMENT',get_segments_rec.END_USER_COLUMN_NAME, NULL);
290:
291:
292: fnd_flex_dsc_api.modify_segment
315: );
316:
317:
318: ELSE
319: hr_utility.trace('segments exists FALSE');
320: pay_ip_startup_util.write_log('LOG','PAY_34074_IP_INS_FLEX_SEGMENT',get_segments_rec.END_USER_COLUMN_NAME, NULL);
321: fnd_flex_dsc_api.create_segment(
322: appl_short_name => p_appl_short_name,
323: flexfield_name => p_dff_name,
346: update_flex_col_usages_tl(lv_desc_flex_context_code,lv_new_context_name,p_dff_name);
347:
348: END LOOP;--get_context_rec
349: CLOSE cv_get_context;
350: hr_utility.set_location('pay_ip_utility.create_ele_info_dff_ctxt ',50);
351:
352: END create_ele_info_dff_ctxt;
353: -- ---------------------------------------------------------------------
354: -- Procedure to modify flex field structure for languages other than
378: AND b.descriptive_flex_context_code = cp_context_code;
379:
380: BEGIN
381:
382: hr_utility.trace('Entered pay_ip_utility.update_flex_col_usages_tl');
383:
384: FOR rec in c_get_segments_ol(P_SOURCE_CONTEXT_CODE)
385: LOOP
386:
383:
384: FOR rec in c_get_segments_ol(P_SOURCE_CONTEXT_CODE)
385: LOOP
386:
387: hr_utility.trace('Entered pay_ip_utility.update_flex_col_usages_tl --For Loop');
388: UPDATE fnd_descr_flex_col_usage_tl SET
389: FORM_LEFT_PROMPT = rec.FORM_LEFT_PROMPT
390: ,FORM_ABOVE_PROMPT = rec.FORM_ABOVE_PROMPT
391: ,DESCRIPTION = rec.DESCRIPTION
394: AND DESCRIPTIVE_FLEX_CONTEXT_CODE = P_DEST_CONTEXT_CODE
395: AND APPLICATION_COLUMN_NAME = rec.APPLICATION_COLUMN_NAME
396: AND LANGUAGE = rec.LANGUAGE;
397:
398: hr_utility.trace('Updated fnd_descr_flex_col_usage_tl = '||SQL%ROWCOUNT);
399: END LOOP;
400: END update_flex_col_usages_tl;
401:
402: -- ---------------------------------------------------------------------
540: AND ((cp_install_tax_unit='N' AND INSTR(database_item_suffix,'_TU_') = 0)
541: OR cp_install_tax_unit='Y');
542:
543: BEGIN
544: hr_utility.trace('Entered procedure create_pqp_rep_dim');
545: FOR rec IN c_get_dimensions(p_install_tax_unit) LOOP
546: hr_utility.trace('Database Item Suffix :'||rec.database_item_suffix);
547: UPDATE pqp_exception_report_suffix
548: SET exception_report_period = rec.exception_report_period
542:
543: BEGIN
544: hr_utility.trace('Entered procedure create_pqp_rep_dim');
545: FOR rec IN c_get_dimensions(p_install_tax_unit) LOOP
546: hr_utility.trace('Database Item Suffix :'||rec.database_item_suffix);
547: UPDATE pqp_exception_report_suffix
548: SET exception_report_period = rec.exception_report_period
549: ,last_updated_by = rec.last_updated_by
550: ,last_update_date = sysdate
553: WHERE database_item_suffix = rec.database_item_suffix
554: AND legislation_code = p_legislation_code;
555:
556: IF SQL%ROWCOUNT = 0 THEN
557: hr_utility.trace('Inserting Database Item Suffix :'||rec.database_item_suffix);
558: INSERT INTO PQP_EXCEPTION_REPORT_SUFFIX
559: (database_item_suffix
560: , legislation_code
561: , exception_report_period
573: , fnd_date.canonical_to_date(p_tax_year)
574: ) ;
575: END IF;
576: END LOOP;
577: hr_utility.trace('Leaving procedure create_pqp_rep_dim');
578: END create_pqp_rep_dim;
579:
580:
581: FUNCTION IS_release_122_plus return BOOLEAN IS
623: AND ppa.action_type = 'D');
624:
625: BEGIN
626:
627: hr_utility.trace('Entering ... '||g_package_name||'.get_check_number');
628: OPEN c_check_number(p_pre_payment_assact, p_pre_payment_id);
629: FETCH c_check_number into lv_check_number,g_net_pay_action_type;
630: hr_utility.trace('cheque number : '||lv_check_number);
631: hr_utility.trace('g_net_pay_action_type : '||g_net_pay_action_type);
626:
627: hr_utility.trace('Entering ... '||g_package_name||'.get_check_number');
628: OPEN c_check_number(p_pre_payment_assact, p_pre_payment_id);
629: FETCH c_check_number into lv_check_number,g_net_pay_action_type;
630: hr_utility.trace('cheque number : '||lv_check_number);
631: hr_utility.trace('g_net_pay_action_type : '||g_net_pay_action_type);
632: IF c_check_number%notfound then
633: lv_check_number := null;
634: END IF;
627: hr_utility.trace('Entering ... '||g_package_name||'.get_check_number');
628: OPEN c_check_number(p_pre_payment_assact, p_pre_payment_id);
629: FETCH c_check_number into lv_check_number,g_net_pay_action_type;
630: hr_utility.trace('cheque number : '||lv_check_number);
631: hr_utility.trace('g_net_pay_action_type : '||g_net_pay_action_type);
632: IF c_check_number%notfound then
633: lv_check_number := null;
634: END IF;
635: CLOSE c_check_number;
632: IF c_check_number%notfound then
633: lv_check_number := null;
634: END IF;
635: CLOSE c_check_number;
636: hr_utility.trace('lv_check_number '||lv_check_number);
637: RETURN lv_check_number;
638:
639: END get_check_number;
640:
656: lenb_desc number(3);
657: l_description varchar2(300);
658: BEGIN
659:
660: hr_utility.set_location('Entering ... '||g_package_name||'INSERT_FND_LOOKUP_VAL',1);
661:
662: SELECT count(*)
663: INTO l_count
664: FROM FND_LOOKUP_values
665: WHERE lookup_type = P_LOOKUP_TYPE
666: AND lookup_code = P_LOOKUP_CODE
667: AND security_group_id = fnd_global.lookup_security_group(P_LOOKUP_TYPE,3);
668:
669: hr_utility.set_location('inside FND_LOOKUP_VAL_INSERT',5);
670: hr_utility.set_location('P_LOOKUP_TYPE' || P_LOOKUP_TYPE,10);
671: hr_utility.set_location('P_LOOKUP_CODE' || P_LOOKUP_CODE,15);
672:
673: hr_utility.set_location('P_START_DATE_ACTIVE' || to_char(P_START_DATE_ACTIVE,'dd-mm-yyyy'),20);
666: AND lookup_code = P_LOOKUP_CODE
667: AND security_group_id = fnd_global.lookup_security_group(P_LOOKUP_TYPE,3);
668:
669: hr_utility.set_location('inside FND_LOOKUP_VAL_INSERT',5);
670: hr_utility.set_location('P_LOOKUP_TYPE' || P_LOOKUP_TYPE,10);
671: hr_utility.set_location('P_LOOKUP_CODE' || P_LOOKUP_CODE,15);
672:
673: hr_utility.set_location('P_START_DATE_ACTIVE' || to_char(P_START_DATE_ACTIVE,'dd-mm-yyyy'),20);
674: hr_utility.set_location('P_END_DATE_ACTIVE' || to_char(P_END_DATE_ACTIVE,'dd-mm-yyyy'),30);
667: AND security_group_id = fnd_global.lookup_security_group(P_LOOKUP_TYPE,3);
668:
669: hr_utility.set_location('inside FND_LOOKUP_VAL_INSERT',5);
670: hr_utility.set_location('P_LOOKUP_TYPE' || P_LOOKUP_TYPE,10);
671: hr_utility.set_location('P_LOOKUP_CODE' || P_LOOKUP_CODE,15);
672:
673: hr_utility.set_location('P_START_DATE_ACTIVE' || to_char(P_START_DATE_ACTIVE,'dd-mm-yyyy'),20);
674: hr_utility.set_location('P_END_DATE_ACTIVE' || to_char(P_END_DATE_ACTIVE,'dd-mm-yyyy'),30);
675: hr_utility.set_location('l_meaning' || l_meaning,40);
669: hr_utility.set_location('inside FND_LOOKUP_VAL_INSERT',5);
670: hr_utility.set_location('P_LOOKUP_TYPE' || P_LOOKUP_TYPE,10);
671: hr_utility.set_location('P_LOOKUP_CODE' || P_LOOKUP_CODE,15);
672:
673: hr_utility.set_location('P_START_DATE_ACTIVE' || to_char(P_START_DATE_ACTIVE,'dd-mm-yyyy'),20);
674: hr_utility.set_location('P_END_DATE_ACTIVE' || to_char(P_END_DATE_ACTIVE,'dd-mm-yyyy'),30);
675: hr_utility.set_location('l_meaning' || l_meaning,40);
676:
677:
670: hr_utility.set_location('P_LOOKUP_TYPE' || P_LOOKUP_TYPE,10);
671: hr_utility.set_location('P_LOOKUP_CODE' || P_LOOKUP_CODE,15);
672:
673: hr_utility.set_location('P_START_DATE_ACTIVE' || to_char(P_START_DATE_ACTIVE,'dd-mm-yyyy'),20);
674: hr_utility.set_location('P_END_DATE_ACTIVE' || to_char(P_END_DATE_ACTIVE,'dd-mm-yyyy'),30);
675: hr_utility.set_location('l_meaning' || l_meaning,40);
676:
677:
678: IF l_count = 0 THEN
671: hr_utility.set_location('P_LOOKUP_CODE' || P_LOOKUP_CODE,15);
672:
673: hr_utility.set_location('P_START_DATE_ACTIVE' || to_char(P_START_DATE_ACTIVE,'dd-mm-yyyy'),20);
674: hr_utility.set_location('P_END_DATE_ACTIVE' || to_char(P_END_DATE_ACTIVE,'dd-mm-yyyy'),30);
675: hr_utility.set_location('l_meaning' || l_meaning,40);
676:
677:
678: IF l_count = 0 THEN
679:
676:
677:
678: IF l_count = 0 THEN
679:
680: hr_utility.set_location('No Row exists',50);
681: hr_utility.set_location('fnd_global.lookup_security_group(P_LOOKUP_TYPE,3)'|| fnd_global.lookup_security_group(P_LOOKUP_TYPE,3),60);
682:
683: len_desc:=length(P_DESCRIPTION);
684: SELECT vsize(P_DESCRIPTION)
677:
678: IF l_count = 0 THEN
679:
680: hr_utility.set_location('No Row exists',50);
681: hr_utility.set_location('fnd_global.lookup_security_group(P_LOOKUP_TYPE,3)'|| fnd_global.lookup_security_group(P_LOOKUP_TYPE,3),60);
682:
683: len_desc:=length(P_DESCRIPTION);
684: SELECT vsize(P_DESCRIPTION)
685: INTO lenb_desc
684: SELECT vsize(P_DESCRIPTION)
685: INTO lenb_desc
686: FROM dual;
687:
688: hr_utility.set_location('len_desription:'|| len_desc,70);
689: hr_utility.set_location('len_bytes_desription:'|| lenb_desc,80);
690:
691: L_DESCRIPTION := P_DESCRIPTION;
692: hr_utility.set_location('Before Loop',90);
685: INTO lenb_desc
686: FROM dual;
687:
688: hr_utility.set_location('len_desription:'|| len_desc,70);
689: hr_utility.set_location('len_bytes_desription:'|| lenb_desc,80);
690:
691: L_DESCRIPTION := P_DESCRIPTION;
692: hr_utility.set_location('Before Loop',90);
693:
688: hr_utility.set_location('len_desription:'|| len_desc,70);
689: hr_utility.set_location('len_bytes_desription:'|| lenb_desc,80);
690:
691: L_DESCRIPTION := P_DESCRIPTION;
692: hr_utility.set_location('Before Loop',90);
693:
694: WHILE lenb_desc > 240
695: LOOP
696: len_desc:=length(L_DESCRIPTION);
697: L_DESCRIPTION:=substr(L_DESCRIPTION,1,len_desc-1);
698: SELECT vsize(L_DESCRIPTION)
699: INTO lenb_desc FROM dual;
700: END LOOP;
701: hr_utility.set_location('After loop',100);
702:
703: FND_LOOKUP_VALUES_PKG.INSERT_ROW(
704: X_ROWID => l_row_id,
705: X_LOOKUP_TYPE => P_LOOKUP_TYPE,
733: X_CREATED_BY => 1,
734: X_LAST_UPDATE_DATE => trunc(sysdate),
735: X_LAST_UPDATED_BY => 1,
736: X_LAST_UPDATE_LOGIN => 0);
737: hr_utility.set_location('After fnd_lookup_pkg.insert_row',110);
738: END IF;
739: hr_utility.set_location('Leaving ... '||g_package_name||'INSERT_FND_LOOKUP_VAL',110);
740:
741: END insert_fnd_lookup_val;
735: X_LAST_UPDATED_BY => 1,
736: X_LAST_UPDATE_LOGIN => 0);
737: hr_utility.set_location('After fnd_lookup_pkg.insert_row',110);
738: END IF;
739: hr_utility.set_location('Leaving ... '||g_package_name||'INSERT_FND_LOOKUP_VAL',110);
740:
741: END insert_fnd_lookup_val;
742:
743: PROCEDURE insert_bal_lookup_val (p_legislation_code VARCHAR2)
742:
743: PROCEDURE insert_bal_lookup_val (p_legislation_code VARCHAR2)
744: IS
745: BEGIN
746: hr_utility.set_location('Entering ... '||g_package_name||'INSERT_BAL_LOOKUP_VAL',10);
747: hr_utility.set_location('Before creating View Employee Balances',20);
748: INSERT_FND_LOOKUP_VAL
749: ( P_LOOKUP_TYPE => 'LOCAL_BAL_FORM_NAME'
750: , P_LOOKUP_CODE => P_LEGISLATION_CODE||'_EMPVIEWBALSS'
743: PROCEDURE insert_bal_lookup_val (p_legislation_code VARCHAR2)
744: IS
745: BEGIN
746: hr_utility.set_location('Entering ... '||g_package_name||'INSERT_BAL_LOOKUP_VAL',10);
747: hr_utility.set_location('Before creating View Employee Balances',20);
748: INSERT_FND_LOOKUP_VAL
749: ( P_LOOKUP_TYPE => 'LOCAL_BAL_FORM_NAME'
750: , P_LOOKUP_CODE => P_LEGISLATION_CODE||'_EMPVIEWBALSS'
751: , P_TERRITORY_CODE => P_LEGISLATION_CODE
754: , P_DESCRIPTION => NULL
755: , P_START_DATE_ACTIVE => NULL
756: , P_END_DATE_ACTIVE => NULL
757: );
758: hr_utility.set_location('Before creating Standard Balances Window',30);
759: INSERT_FND_LOOKUP_VAL
760: ( P_LOOKUP_TYPE => 'LOCAL_BAL_FORM_NAME'
761: , P_LOOKUP_CODE => P_LEGISLATION_CODE||'_STANDARD'
762: , P_TERRITORY_CODE => P_LEGISLATION_CODE
765: , P_DESCRIPTION => NULL
766: , P_START_DATE_ACTIVE => NULL
767: , P_END_DATE_ACTIVE => NULL
768: );
769: hr_utility.set_location('Leaving ... '||g_package_name||'INSERT_BAL_LOOKUP_VAL',40);
770: END insert_bal_lookup_val;
771:
772: /**********************************************************************
773: ** Name : create_fnd_menu_entry
839: l_application_id fnd_application.application_id%TYPE;
840:
841: BEGIN
842: l_func_name := g_package_name || 'get_dff_flx(F)';
843: hr_utility.trace('get_dff_flx :p_descriptive_flexfield_name '||p_descriptive_flexfield_name);
844: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',l_func_name,NULL);
845:
846: SELECT *
847: INTO x_dff_flx
870: IS
871: l_func_name VARCHAR2(80);
872: BEGIN
873:
874: hr_utility.trace('get_kff_str : ');
875: l_func_name := g_package_name || 'get_kff_str(code,F)';
876: hr_utility.trace('get_kff_str :p_application_id '||p_application_id);
877: hr_utility.trace('get_kff_str :p_id_flex_structure_code '||p_id_flex_structure_code);
878: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',l_func_name,NULL);
872: BEGIN
873:
874: hr_utility.trace('get_kff_str : ');
875: l_func_name := g_package_name || 'get_kff_str(code,F)';
876: hr_utility.trace('get_kff_str :p_application_id '||p_application_id);
877: hr_utility.trace('get_kff_str :p_id_flex_structure_code '||p_id_flex_structure_code);
878: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',l_func_name,NULL);
879: SELECT *
880: INTO x_kff_str
873:
874: hr_utility.trace('get_kff_str : ');
875: l_func_name := g_package_name || 'get_kff_str(code,F)';
876: hr_utility.trace('get_kff_str :p_application_id '||p_application_id);
877: hr_utility.trace('get_kff_str :p_id_flex_structure_code '||p_id_flex_structure_code);
878: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',l_func_name,NULL);
879: SELECT *
880: INTO x_kff_str
881: FROM fnd_id_flex_structures
968:
969: --
970: -- Dump the arguments to description.
971: --
972: hr_utility.set_location(l_func_name,10);
973: l_description := 'Flex Loader: ' || p_concurrent_program_name || '(' || p_argument1;
974:
975: if (p_argument_count > 1) then
976: l_argument2 := p_argument2;
994:
995: l_description := l_description || ')';
996:
997: px_description := substrb(l_description, 1, 240);
998: hr_utility.trace('px_description :'||px_description);
999: --
1000: -- See if the same request with the same arguments was already submitted.
1001: --
1002: begin
1029: (nvl(fcr.argument4, l_nvl_value) = nvl(l_argument4, l_nvl_value)))
1030: AND ((p_argument_count < 5) OR
1031: (nvl(fcr.argument5, l_nvl_value) = nvl(l_argument5, l_nvl_value)))
1032: AND ROWNUM = 1;
1033: hr_utility.set_location(l_func_name,20);
1034: l_request_id_vc2 := To_char(l_request_id) || ' was already submitted';
1035: exception
1036: when others then
1037: hr_utility.set_location(l_func_name,30);
1033: hr_utility.set_location(l_func_name,20);
1034: l_request_id_vc2 := To_char(l_request_id) || ' was already submitted';
1035: exception
1036: when others then
1037: hr_utility.set_location(l_func_name,30);
1038: l_request_id_vc2 := '0';
1039: end;
1040:
1041: if (l_request_id_vc2 = '0') then
1038: l_request_id_vc2 := '0';
1039: end;
1040:
1041: if (l_request_id_vc2 = '0') then
1042: hr_utility.set_location(l_func_name,40);
1043: l_request_id_vc2 := fnd_request.submit_request
1044: (application => p_application_short_name,
1045: program => p_concurrent_program_name,
1046: description => px_description,
1051: argument3 => l_argument3,
1052: argument4 => l_argument4,
1053: argument5 => l_argument5);
1054: end if;
1055: hr_utility.trace('l_request_id_vc2 140 :'||l_request_id_vc2);
1056: return l_request_id_vc2;
1057:
1058: exception
1059: when others THEN
1088: --
1089:
1090:
1091: IF (p_mode = 'DFF') THEN
1092: hr_utility.set_location(l_func_name,10);
1093: IF (NOT get_dff_flx(get_application_id(p_application_short_name),
1094: p_descriptive_flexfield_name,
1095: l_dff_flx)) THEN
1096: hr_utility.set_location(l_func_name,20);
1092: hr_utility.set_location(l_func_name,10);
1093: IF (NOT get_dff_flx(get_application_id(p_application_short_name),
1094: p_descriptive_flexfield_name,
1095: l_dff_flx)) THEN
1096: hr_utility.set_location(l_func_name,20);
1097: GOTO label_done;
1098: END IF;
1099: ELSIF (p_mode = 'KFF-STR') THEN
1100: hr_utility.set_location(l_func_name,30);
1096: hr_utility.set_location(l_func_name,20);
1097: GOTO label_done;
1098: END IF;
1099: ELSIF (p_mode = 'KFF-STR') THEN
1100: hr_utility.set_location(l_func_name,30);
1101: IF (NOT get_kff_str(get_application_id(p_application_short_name),
1102: p_id_flex_code,
1103: p_id_flex_structure_code,
1104: l_kff_str)) THEN
1101: IF (NOT get_kff_str(get_application_id(p_application_short_name),
1102: p_id_flex_code,
1103: p_id_flex_structure_code,
1104: l_kff_str)) THEN
1105: hr_utility.set_location(l_func_name,40);
1106: GOTO label_done;
1107: END IF;
1108: END IF;
1109:
1112: IF (p_mode = 'DFF') THEN
1113: delete_compiled_data(p_mode => p_mode,
1114: p_application_id => l_dff_flx.application_id,
1115: p_descriptive_flexfield_name => p_descriptive_flexfield_name);
1116: hr_utility.trace('call_cp 140');
1117: --
1118: -- Submit compiler request if this DFF is frozen.
1119: --
1120: IF (l_dff_flx.freeze_flex_definition_flag = 'Y') THEN
1117: --
1118: -- Submit compiler request if this DFF is frozen.
1119: --
1120: IF (l_dff_flx.freeze_flex_definition_flag = 'Y') THEN
1121: hr_utility.set_location(l_func_name,50);
1122: --
1123: -- Compile non-compiled flexfields
1124: --
1125:
1132: p_argument2 => p_application_short_name,
1133: p_argument3 => p_descriptive_flexfield_name);
1134:
1135: ELSE
1136: hr_utility.set_location(l_func_name,60);
1137: l_request_id_vc2 := 'DFF is not frozen.';
1138:
1139: END IF;
1140:
1138:
1139: END IF;
1140:
1141: ELSIF (p_mode = 'KFF-STR') THEN
1142: hr_utility.set_location(l_func_name,70);
1143: delete_compiled_data(p_mode => p_mode,
1144: p_application_id => l_kff_flx.application_id,
1145: p_id_flex_code => p_id_flex_code,
1146: p_id_flex_num => l_kff_str.id_flex_num);
1148: --
1149: -- Submit compiler request if this KFF Structure is frozen.
1150: --
1151: IF (l_kff_str.freeze_flex_definition_flag = 'Y') THEN
1152: hr_utility.set_location(l_func_name,80);
1153: --
1154: -- Compile non-compiled flexfields
1155:
1156: l_request_id_vc2 := submit_cp_request(p_application_short_name => 'FND',
1162: p_argument3 => p_id_flex_code,
1163: p_argument4 => l_kff_str.id_flex_num);
1164:
1165: ELSE
1166: hr_utility.set_location(l_func_name,90);
1167: l_request_id_vc2 := 'KFF Structure is not frozen.';
1168:
1169:
1170: END IF;
1181: --
1182: -- Generate the view.
1183: --
1184: IF (p_mode = 'DFF') THEN
1185: hr_utility.set_location(l_func_name,100);
1186:
1187: -- Submit generate view request if this DFF is frozen.
1188: --
1189: IF (l_dff_flx.freeze_flex_definition_flag = 'Y') THEN
1199: p_argument2 => l_dff_flx.application_id,
1200: p_argument3 => p_descriptive_flexfield_name);
1201:
1202: ELSE
1203: hr_utility.set_location(l_func_name,110);
1204: l_request_id_vc2 := 'DFF is not frozen.';
1205:
1206: END IF;
1207:
1282: FROM pay_element_classifications
1283: WHERE legislation_code = 'ZZ';
1284:
1285: BEGIN
1286: hr_utility.set_location('pay_ip_utility.ins_element_class_ownership',10);
1287: FOR rec IN get_element_class_csr LOOP
1288: pay_ip_startup_util.write_log ('LOG','PAY_34013_IP_INS_OWNERSHIP', 'Element Classification', rec.classification_name);
1289: insert_ownership('CLASSIFICATION_ID','PAY',rec.classification_id);
1290: insert_ownership('CLASSIFICATION_ID','PER',rec.classification_id);
1290: insert_ownership('CLASSIFICATION_ID','PER',rec.classification_id);
1291:
1292: END LOOP;
1293:
1294: hr_utility.set_location('pay_ip_utility.ins_element_class_ownership',20);
1295:
1296: END ins_element_class_ownership;
1297:
1298: -- ---------------------------------------------------------------------
1307: FROM pay_balance_types
1308: WHERE legislation_code = 'ZZ';
1309:
1310: BEGIN
1311: hr_utility.set_location('pay_ip_utility.ins_bal_type_ownership',10);
1312: FOR rec IN get_balance_type_csr LOOP
1313: pay_ip_startup_util.write_log ('LOG','PAY_34013_IP_INS_OWNERSHIP', 'Balance Type', rec.balance_name);
1314: insert_ownership('BALANCE_TYPE_ID','PAY',rec.balance_type_id);
1315: insert_ownership('BALANCE_TYPE_ID','PER',rec.balance_type_id);
1315: insert_ownership('BALANCE_TYPE_ID','PER',rec.balance_type_id);
1316:
1317: END LOOP;
1318:
1319: hr_utility.set_location('pay_ip_utility.ins_bal_type_ownership',20);
1320:
1321: END ins_bal_type_ownership;
1322:
1323: -- ---------------------------------------------------------------------
1332: FROM pay_balance_dimensions
1333: WHERE legislation_code = 'ZZ';
1334:
1335: BEGIN
1336: hr_utility.set_location('pay_ip_utility.ins_bal_dim_ownership',10);
1337: FOR rec IN get_balance_dimension_csr LOOP
1338: pay_ip_startup_util.write_log ('LOG','PAY_34013_IP_INS_OWNERSHIP', 'Balance Dimension', rec.dimension_name);
1339: insert_ownership('BALANCE_DIMENSION_ID','PAY',rec.balance_dimension_id);
1340: insert_ownership('BALANCE_DIMENSION_ID','PER',rec.balance_dimension_id);
1340: insert_ownership('BALANCE_DIMENSION_ID','PER',rec.balance_dimension_id);
1341:
1342: END LOOP;
1343:
1344: hr_utility.set_location('pay_ip_utility.ins_bal_dim_ownership',20);
1345:
1346: END ins_bal_dim_ownership;
1347:
1348: -- ---------------------------------------------------------------------
1363: AND pdb.balance_dimension_id = pbd.balance_dimension_id
1364: AND pdb.legislation_code = pbd.legislation_code;
1365:
1366: BEGIN
1367: hr_utility.set_location('pay_ip_utility.ins_def_bal_ownership',10);
1368: FOR rec IN get_defined_balance_csr LOOP
1369: pay_ip_startup_util.write_log ('LOG','PAY_34013_IP_INS_OWNERSHIP', 'Defined Balance', rec.def_bal_name);
1370: insert_ownership('DEFINED_BALANCE_ID','PAY',rec.defined_balance_id);
1371: insert_ownership('DEFINED_BALANCE_ID','PER',rec.defined_balance_id);
1371: insert_ownership('DEFINED_BALANCE_ID','PER',rec.defined_balance_id);
1372:
1373: END LOOP;
1374:
1375: hr_utility.set_location('pay_ip_utility.ins_def_bal_ownership',20);
1376:
1377: END ins_def_bal_ownership;
1378:
1379: -- ---------------------------------------------------------------------
1399: AND pbd.balance_dimension_id = pdr.balance_dimension_id
1400: AND pdr.route_id = route.route_id;
1401:
1402: BEGIN
1403: hr_utility.set_location('pay_ip_utility.ins_route_ownership',10);
1404: FOR rec IN get_route_csr LOOP
1405: pay_ip_startup_util.write_log ('LOG','PAY_34013_IP_INS_OWNERSHIP', 'Route', rec.route_name);
1406: insert_ownership('ROUTE_ID','PAY',rec.route_id);
1407: insert_ownership('ROUTE_ID','PER',rec.route_id);
1407: insert_ownership('ROUTE_ID','PER',rec.route_id);
1408:
1409: END LOOP;
1410:
1411: hr_utility.set_location('pay_ip_utility.ins_route_ownership',20);
1412:
1413: END ins_route_ownership;
1414:
1415: -- ---------------------------------------------------------------------
1424: FROM pay_balance_categories_f
1425: WHERE legislation_code = 'ZZ';
1426:
1427: BEGIN
1428: hr_utility.set_location('pay_ip_utility.ins_bal_cat_ownership',10);
1429:
1430: FOR rec IN get_bal_cat_csr LOOP
1431: pay_ip_startup_util.write_log ('LOG','PAY_34013_IP_INS_OWNERSHIP', 'Balance Category', rec.category_name);
1432: insert_ownership('BALANCE_CATEGORY_ID','PAY',rec.balance_category_id);
1433: insert_ownership('BALANCE_CATEGORY_ID','PER',rec.balance_category_id);
1434:
1435: END LOOP;
1436:
1437: hr_utility.set_location('pay_ip_utility.ins_bal_cat_ownership',20);
1438:
1439: END ins_bal_cat_ownership;
1440:
1441:
1446: -- ---------------------------------------------------------------------
1447: PROCEDURE insert_all_ownerships IS
1448:
1449: BEGIN
1450: hr_utility.set_location('pay_ip_utility.insert_all_ownerships',10);
1451:
1452: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
1453:
1454: --Insert Element Classification Ownerships
1468:
1469: --Insert Balance Category Ownerships
1470: ins_bal_cat_ownership;
1471:
1472: hr_utility.set_location('pay_ip_utility.insert_all_ownerships',20);
1473:
1474: EXCEPTION
1475: WHEN OTHERS THEN
1476: RAISE_APPLICATION_ERROR(-20001, SQLERRM);
1492: lv_func_name VARCHAR2(80);
1493: lv_patch_status VARCHAR(2);
1494: BEGIN
1495: lv_func_name := g_package_name || 'check_patch_exists(F)';
1496: hr_utility.trace('check_patch_exists :p_patch_name ' || p_patch_name);
1497: hr_utility.trace('check_patch_exists :p_patch_status ' || p_patch_status);
1498: hr_utility.trace('check_patch_exists :p_appl_release ' || p_appl_release);
1499: hr_utility.trace('check_patch_exists :p_leg_code ' || p_leg_code);
1500: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',lv_func_name,NULL);
1493: lv_patch_status VARCHAR(2);
1494: BEGIN
1495: lv_func_name := g_package_name || 'check_patch_exists(F)';
1496: hr_utility.trace('check_patch_exists :p_patch_name ' || p_patch_name);
1497: hr_utility.trace('check_patch_exists :p_patch_status ' || p_patch_status);
1498: hr_utility.trace('check_patch_exists :p_appl_release ' || p_appl_release);
1499: hr_utility.trace('check_patch_exists :p_leg_code ' || p_leg_code);
1500: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',lv_func_name,NULL);
1501:
1494: BEGIN
1495: lv_func_name := g_package_name || 'check_patch_exists(F)';
1496: hr_utility.trace('check_patch_exists :p_patch_name ' || p_patch_name);
1497: hr_utility.trace('check_patch_exists :p_patch_status ' || p_patch_status);
1498: hr_utility.trace('check_patch_exists :p_appl_release ' || p_appl_release);
1499: hr_utility.trace('check_patch_exists :p_leg_code ' || p_leg_code);
1500: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',lv_func_name,NULL);
1501:
1502: SELECT status
1495: lv_func_name := g_package_name || 'check_patch_exists(F)';
1496: hr_utility.trace('check_patch_exists :p_patch_name ' || p_patch_name);
1497: hr_utility.trace('check_patch_exists :p_patch_status ' || p_patch_status);
1498: hr_utility.trace('check_patch_exists :p_appl_release ' || p_appl_release);
1499: hr_utility.trace('check_patch_exists :p_leg_code ' || p_leg_code);
1500: pay_ip_startup_util.write_log('LOG','PAY_34016_IP_CALL_PROC',lv_func_name,NULL);
1501:
1502: SELECT status
1503: INTO lv_patch_status
1530: )
1531: IS
1532:
1533: BEGIN
1534: hr_utility.set_location('Entering... pay_ip_utility.insert_patch',10);
1535: INSERT INTO pay_patch_status
1536: (ID,
1537: PATCH_NUMBER,
1538: PATCH_NAME,
1552: decode(p_appl_release,'ANY',null,p_appl_release),
1553: p_leg_code
1554: );
1555:
1556: hr_utility.set_location('Leaving... pay_ip_utility.insert_patch',20);
1557:
1558: END insert_patch_status;
1559:
1560: /**********************************************************************
1578: req_data VARCHAR2(240) := NULL;
1579:
1580: l_wait_outcome BOOLEAN;
1581: BEGIN
1582: hr_utility.set_location('Entering... pay_ip_utility.compile_formulas',10);
1583: hr_utility.trace('p_user_id: ' || p_user_id);
1584: hr_utility.trace('p_resp_id: ' || p_resp_id);
1585: hr_utility.trace('p_resp_appl_id: ' || p_resp_appl_id);
1586:
1579:
1580: l_wait_outcome BOOLEAN;
1581: BEGIN
1582: hr_utility.set_location('Entering... pay_ip_utility.compile_formulas',10);
1583: hr_utility.trace('p_user_id: ' || p_user_id);
1584: hr_utility.trace('p_resp_id: ' || p_resp_id);
1585: hr_utility.trace('p_resp_appl_id: ' || p_resp_appl_id);
1586:
1587: hr_utility.trace('Initializing current user and responsibility');
1580: l_wait_outcome BOOLEAN;
1581: BEGIN
1582: hr_utility.set_location('Entering... pay_ip_utility.compile_formulas',10);
1583: hr_utility.trace('p_user_id: ' || p_user_id);
1584: hr_utility.trace('p_resp_id: ' || p_resp_id);
1585: hr_utility.trace('p_resp_appl_id: ' || p_resp_appl_id);
1586:
1587: hr_utility.trace('Initializing current user and responsibility');
1588: fnd_global.APPS_INITIALIZE(user_id => p_user_id,
1581: BEGIN
1582: hr_utility.set_location('Entering... pay_ip_utility.compile_formulas',10);
1583: hr_utility.trace('p_user_id: ' || p_user_id);
1584: hr_utility.trace('p_resp_id: ' || p_resp_id);
1585: hr_utility.trace('p_resp_appl_id: ' || p_resp_appl_id);
1586:
1587: hr_utility.trace('Initializing current user and responsibility');
1588: fnd_global.APPS_INITIALIZE(user_id => p_user_id,
1589: resp_id => p_resp_id,
1583: hr_utility.trace('p_user_id: ' || p_user_id);
1584: hr_utility.trace('p_resp_id: ' || p_resp_id);
1585: hr_utility.trace('p_resp_appl_id: ' || p_resp_appl_id);
1586:
1587: hr_utility.trace('Initializing current user and responsibility');
1588: fnd_global.APPS_INITIALIZE(user_id => p_user_id,
1589: resp_id => p_resp_id,
1590: resp_appl_id => p_resp_appl_id);
1591:
1598: argument2 => '%',
1599: argument3 => '%',
1600: sub_request => FALSE);
1601:
1602: hr_utility.trace('ln_req_id: ' || ln_req_id);
1603: IF(ln_req_id = 0) THEN
1604: hr_utility.set_location('pay_ip_utility.compile_formulas',15);
1605: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
1606: pay_ip_startup_util.write_log('LOG','PAY_34084_IP_BULK_COMP_SUB_ERR',null, null);
1600: sub_request => FALSE);
1601:
1602: hr_utility.trace('ln_req_id: ' || ln_req_id);
1603: IF(ln_req_id = 0) THEN
1604: hr_utility.set_location('pay_ip_utility.compile_formulas',15);
1605: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
1606: pay_ip_startup_util.write_log('LOG','PAY_34084_IP_BULK_COMP_SUB_ERR',null, null);
1607: hr_utility.raise_error;
1608: END IF;
1603: IF(ln_req_id = 0) THEN
1604: hr_utility.set_location('pay_ip_utility.compile_formulas',15);
1605: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
1606: pay_ip_startup_util.write_log('LOG','PAY_34084_IP_BULK_COMP_SUB_ERR',null, null);
1607: hr_utility.raise_error;
1608: END IF;
1609:
1610: COMMIT;
1611: hr_utility.set_location('pay_ip_utility.compile_formulas',20);
1607: hr_utility.raise_error;
1608: END IF;
1609:
1610: COMMIT;
1611: hr_utility.set_location('pay_ip_utility.compile_formulas',20);
1612: hr_utility.trace('Waiting for request ' || ln_req_id || ' to complete');
1613:
1614: l_wait_outcome := fnd_concurrent.wait_for_request(
1615: request_id => ln_req_id,
1608: END IF;
1609:
1610: COMMIT;
1611: hr_utility.set_location('pay_ip_utility.compile_formulas',20);
1612: hr_utility.trace('Waiting for request ' || ln_req_id || ' to complete');
1613:
1614: l_wait_outcome := fnd_concurrent.wait_for_request(
1615: request_id => ln_req_id,
1616: phase => lv_phase,
1617: status => lv_status,
1618: dev_phase => lv_dev_phase,
1619: dev_status => lv_dev_status,
1620: message => lv_message);
1621: hr_utility.trace('lv_dev_phase: ' ||lv_dev_phase);
1622: hr_utility.trace('lv_dev_status: ' ||lv_dev_status);
1623: hr_utility.trace('message: ' ||lv_message);
1624:
1625: IF(lv_dev_phase = 'COMPLETE' AND lv_dev_status <> 'NORMAL') THEN
1618: dev_phase => lv_dev_phase,
1619: dev_status => lv_dev_status,
1620: message => lv_message);
1621: hr_utility.trace('lv_dev_phase: ' ||lv_dev_phase);
1622: hr_utility.trace('lv_dev_status: ' ||lv_dev_status);
1623: hr_utility.trace('message: ' ||lv_message);
1624:
1625: IF(lv_dev_phase = 'COMPLETE' AND lv_dev_status <> 'NORMAL') THEN
1626: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
1619: dev_status => lv_dev_status,
1620: message => lv_message);
1621: hr_utility.trace('lv_dev_phase: ' ||lv_dev_phase);
1622: hr_utility.trace('lv_dev_status: ' ||lv_dev_status);
1623: hr_utility.trace('message: ' ||lv_message);
1624:
1625: IF(lv_dev_phase = 'COMPLETE' AND lv_dev_status <> 'NORMAL') THEN
1626: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
1627: pay_ip_startup_util.write_log('LOG','PAY_34083_IP_BULK_COMP_ERROR',null, null);
1626: pay_ip_startup_util.write_log('LOG',NULL,NULL,NULL);
1627: pay_ip_startup_util.write_log('LOG','PAY_34083_IP_BULK_COMP_ERROR',null, null);
1628: END IF;
1629:
1630: hr_utility.set_location('Leaving... pay_ip_utility.complie_formulas',30);
1631:
1632: EXCEPTION
1633: WHEN OTHERS THEN
1634: RAISE_APPLICATION_ERROR(-20001, SQLERRM);
1668:
1669: BEGIN
1670:
1671: g_package_name := 'pay_ip_utility.';
1672: g_debug := hr_utility.debug_enabled;
1673:
1674: END pay_ip_utility;