1: PACKAGE BODY PAY_FI_ARCHIVE_UMFR AS
2: /* $Header: pyfiumfa.pkb 120.1 2006/04/04 01:53:38 dragarwa noship $ */
3: g_debug BOOLEAN := hr_utility.debug_enabled;
4:
5: TYPE lock_rec IS RECORD (
6: archive_assact_id NUMBER);
7:
49: BEGIN
50: --
51: IF g_debug
52: THEN
53: hr_utility.set_location (' Entering Function GET_PARAMETER', 10);
54: END IF;
55:
56: l_start_pos :=
57: INSTR ( ' '
115: RETURN l_parameter;
116:
117: IF g_debug
118: THEN
119: hr_utility.set_location (' Leaving Function GET_PARAMETER', 20);
120: END IF;
121: END;
122:
123: /* GET ALL PARAMETERS */
206:
207:
208: IF g_debug
209: THEN
210: hr_utility.set_location (
211: ' Leaving Procedure GET_ALL_PARAMETERS',
212: 30
213: );
214: END IF;
305: lr_local_unit_details csr_local_unit_details%ROWTYPE;
306: BEGIN
307: IF g_debug
308: THEN
309: hr_utility.set_location (' Entering Procedure RANGE_CODE', 40);
310: END IF;
311:
312: fnd_file.put_line (fnd_file.LOG, 'Entering Procedure RANGE_CODE 7');
313: p_sql :=
565: END IF; --archiving=yes
566:
567: IF g_debug
568: THEN
569: hr_utility.set_location (' Leaving Procedure RANGE_CODE', 50);
570: END IF;
571: EXCEPTION
572: WHEN OTHERS
573: THEN
844: l_assignment number; --
845: BEGIN
846: IF g_debug
847: THEN
848: hr_utility.set_location (
849: ' Entering Procedure ASSIGNMENT_ACTION_CODE',
850: 60
851: );
852: END IF;
970: );
971:
972: IF g_debug
973: THEN
974: hr_utility.set_location (
975: ' Leaving Procedure ASSIGNMENT_ACTION_CODE',
976: 70
977: );
978: END IF;
1055: l_prev_prepay NUMBER := 0;
1056: BEGIN
1057: IF g_debug
1058: THEN
1059: hr_utility.set_location (
1060: ' Entering Procedure INITIALIZATION_CODE',
1061: 80
1062: );
1063: END IF;
1066:
1067:
1068: IF g_debug
1069: THEN
1070: hr_utility.set_location (
1071: ' Leaving Procedure INITIALIZATION_CODE',
1072: 90
1073: );
1074: END IF;
1078: g_err_num := SQLCODE;
1079:
1080: IF g_debug
1081: THEN
1082: hr_utility.set_location (
1083: 'ORA_ERR: '
1084: || g_err_num
1085: || 'In INITIALIZATION_CODE',
1086: 180
1101: l_country fnd_territories_vl.territory_short_name%TYPE;
1102: BEGIN
1103: IF g_debug
1104: THEN
1105: hr_utility.set_location (' Entering Function GET_COUNTRY_NAME', 140);
1106: END IF;
1107:
1108: OPEN csr_get_territory_name (p_territory_code);
1109: FETCH csr_get_territory_name INTO l_country;
1111: RETURN l_country;
1112:
1113: IF g_debug
1114: THEN
1115: hr_utility.set_location (' Leaving Function GET_COUNTRY_NAME', 150);
1116: END IF;
1117: END get_country_name;
1118:
1119: /* GET DEFINED BALANCE ID */
1134: l_defined_balance_id ff_user_entities.user_entity_id%TYPE;
1135: BEGIN
1136: IF g_debug
1137: THEN
1138: hr_utility.set_location (
1139: ' Entering Function GET_DEFINED_BALANCE_ID',
1140: 240
1141: );
1142: END IF;
1147: RETURN l_defined_balance_id;
1148:
1149: IF g_debug
1150: THEN
1151: hr_utility.set_location (
1152: ' Leaving Function GET_DEFINED_BALANCE_ID',
1153: 250
1154: );
1155: END IF;
1340:
1341: BEGIN
1342: IF g_debug
1343: THEN
1344: hr_utility.set_location (' Entering Procedure ARCHIVE_CODE', 380);
1345: END IF;
1346:
1347: IF g_archive = 'Y'
1348: THEN
1378: fnd_file.LOG,
1379: ' l_Local_unit_number '
1380: || l_local_unit_number
1381: );
1382: hr_utility.TRACE ('After Local Unit');
1383: hr_utility.TRACE ('Before Person Record');
1384: fnd_file.put_line (
1385: fnd_file.LOG,
1386: ' g_business_group_id '
1379: ' l_Local_unit_number '
1380: || l_local_unit_number
1381: );
1382: hr_utility.TRACE ('After Local Unit');
1383: hr_utility.TRACE ('Before Person Record');
1384: fnd_file.put_line (
1385: fnd_file.LOG,
1386: ' g_business_group_id '
1387: || g_business_group_id
1550: --
1551: --END LOOP;
1552: IF g_debug
1553: THEN
1554: hr_utility.set_location (' Leaving Procedure ARCHIVE_CODE', 390);
1555: END IF;
1556: END archive_code;
1557: END pay_fi_archive_umfr;