42: l_emp_cat VARCHAR2(10);
43: l_procedure VARCHAR2(100);
44: l_message VARCHAR2(1000);
45: BEGIN
46: g_debug:= hr_utility.debug_enabled;
47: l_procedure:= g_package ||'check_retainer';
48:
49: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
50:
73: EXCEPTION
74: WHEN OTHERS THEN
75: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
76: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 50);
77: hr_utility.trace(l_message);
78: RETURN NULL;
79: END check_retainer;
80:
81: --------------------------------------------------------------------------
112: l_procedure VARCHAR2(100);
113: l_edli VARCHAR2(1);
114: l_message VARCHAR2(1000);
115: BEGIN
116: g_debug:= hr_utility.debug_enabled;
117: l_procedure:= g_package ||'check_retainer';
118:
119: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
120:
138: EXCEPTION
139: WHEN OTHERS THEN
140: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
141: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
142: hr_utility.trace(l_message);
143: RETURN NULL;
144: END check_edli;
145:
146: --------------------------------------------------------------------------
229: l_virtual_asact_id NUMBER;
230: l_message VARCHAR2(1000);
231:
232: BEGIN
233: g_debug:= hr_utility.debug_enabled;
234: l_procedure := g_package ||'get_esi_cont_amt';
235: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure, 10);
236:
237: l_half_year_start1:='01-04-';
326: EXCEPTION
327: WHEN OTHERS THEN
328: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
329: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 100);
330: hr_utility.trace(l_message);
331: RETURN NULL;
332: END get_esi_cont_amt;
333:
334:
385: l_procedure VARCHAR2(250);
386: l_message VARCHAR2(250);
387:
388: BEGIN
389: g_debug := hr_utility.debug_enabled;
390: l_procedure := g_package ||'get_esi_disability_details';
391: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
392:
393: l_half_year_start1:='01-04-';
475: n NUMBER;
476: l_number NUMBER;
477: l_procedure VARCHAR2(100);
478: BEGIN
479: g_debug := hr_utility.debug_enabled;
480: l_procedure := g_package ||'round_to_5paise';
481: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
482:
483:
547: AND pap.accrual_plan_element_type_id = pet.element_type_id
548: AND pap.accrual_category = p_plan_category ;
549:
550: BEGIN
551: g_debug := hr_utility.debug_enabled;
552: l_procedure := g_package ||'get_accrual_plan';
553: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
554:
555:
587: EXCEPTION
588: WHEN OTHERS THEN
589: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
590: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
591: hr_utility.trace(l_message);
592: RETURN NULL;
593:
594: END get_accrual_plan;
595:
632: l_message VARCHAR2(1000);
633:
634: BEGIN
635:
636: g_debug:= hr_utility.debug_enabled;
637: l_procedure := g_package ||'get_net_accrual';
638: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
639:
640: IF g_debug THEN
677: EXCEPTION
678: WHEN OTHERS THEN
679: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
680: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
681: hr_utility.trace(l_message);
682: RETURN NULL;
683:
684:
685: END get_net_accrual;
719: l_procedure VARCHAR2(100);
720: l_message VARCHAR2(1000);
721:
722: BEGIN
723: g_debug := hr_utility.debug_enabled;
724: l_procedure := g_package ||'get_period_number';
725: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
726:
727:
749: EXCEPTION
750: WHEN OTHERS THEN
751: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
752: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
753: hr_utility.trace(l_message);
754: RETURN NULL;
755:
756:
757: END get_period_number;
800: l_80_percent number;
801: l_procedure varchar2(100);
802:
803: BEGIN
804: g_debug := hr_utility.debug_enabled;
805: l_procedure := g_package ||'sec_80dd_percent';
806: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
807:
808:
887: l_spouse_exists NUMBER;
888:
889: BEGIN
890:
891: g_debug := hr_utility.debug_enabled ;
892: l_procedure := g_package||'check_father_husband_name' ;
893: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
894:
895: IF g_debug THEN
1052: l_asg_start_date DATE;
1053: l_procedure varchar2(100);
1054:
1055: BEGIN
1056: g_debug := hr_utility.debug_enabled;
1057: l_procedure := g_package ||'check_gre_update';
1058: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1059:
1060:
1122: p_token_name(1) := 'ORG';
1123: p_token_value(1) := hr_general.decode_lookup('IN_MESSAGE_TOKENS','PF_ORG');
1124: ELSIF (p_esi IS NOT NULL) AND (p_esi <> l_esi_org_id)
1125: THEN
1126: hr_utility.trace('ven_Inside ESI Error message condition');
1127: p_message := 'PER_IN_SCL_CHANGE_FORBIDDEN';
1128: p_token_name(1) := 'ORG';
1129: p_token_value(1) := hr_general.decode_lookup('IN_MESSAGE_TOKENS','ESI_ORG');
1130: ELSE
1214: l_message_name VARCHAR2(100);
1215: l_token_value VARCHAR2(10);
1216:
1217: BEGIN
1218: g_debug := hr_utility.debug_enabled;
1219: l_procedure := g_package ||'check_pf_update';
1220: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
1221:
1222: IF g_debug THEN
1242: ,p_message_name =>l_message_name
1243: ,p_token_value =>l_token_value
1244: );
1245: IF l_message_name = 'PER_IN_CONTACT_DETAILS' THEN
1246: hr_utility.set_message(800, 'PER_IN_CONTACT_DETAILS');
1247: hr_utility.set_message_token('RELATION',l_token_value);
1248: hr_utility.raise_error;
1249: ELSIF l_message_name <> 'SUCCESS' THEN
1250: hr_utility.set_message(800, l_message_name);
1243: ,p_token_value =>l_token_value
1244: );
1245: IF l_message_name = 'PER_IN_CONTACT_DETAILS' THEN
1246: hr_utility.set_message(800, 'PER_IN_CONTACT_DETAILS');
1247: hr_utility.set_message_token('RELATION',l_token_value);
1248: hr_utility.raise_error;
1249: ELSIF l_message_name <> 'SUCCESS' THEN
1250: hr_utility.set_message(800, l_message_name);
1251: hr_utility.raise_error;
1244: );
1245: IF l_message_name = 'PER_IN_CONTACT_DETAILS' THEN
1246: hr_utility.set_message(800, 'PER_IN_CONTACT_DETAILS');
1247: hr_utility.set_message_token('RELATION',l_token_value);
1248: hr_utility.raise_error;
1249: ELSIF l_message_name <> 'SUCCESS' THEN
1250: hr_utility.set_message(800, l_message_name);
1251: hr_utility.raise_error;
1252: END IF;
1246: hr_utility.set_message(800, 'PER_IN_CONTACT_DETAILS');
1247: hr_utility.set_message_token('RELATION',l_token_value);
1248: hr_utility.raise_error;
1249: ELSIF l_message_name <> 'SUCCESS' THEN
1250: hr_utility.set_message(800, l_message_name);
1251: hr_utility.raise_error;
1252: END IF;
1253: */
1254: check_gre_update
1247: hr_utility.set_message_token('RELATION',l_token_value);
1248: hr_utility.raise_error;
1249: ELSIF l_message_name <> 'SUCCESS' THEN
1250: hr_utility.set_message(800, l_message_name);
1251: hr_utility.raise_error;
1252: END IF;
1253: */
1254: check_gre_update
1255: (p_effective_date => p_effective_date
1366: l_warning BOOLEAN;
1367: l_procedure varchar2(100);
1368:
1369: BEGIN
1370: g_debug := hr_utility.debug_enabled;
1371: l_procedure := g_package ||'in_reset_input_values';
1372: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1373:
1374:
1453:
1454: l_location_id hr_all_organization_units.location_id%TYPE;
1455:
1456: BEGIN
1457: g_debug := hr_utility.debug_enabled;
1458: l_procedure := g_package ||'check_pf_location';
1459: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1460:
1461: p_message_name := 'SUCCESS';
1531: l_state hr_lookups.lookup_code%TYPE;
1532: l_procedure VARCHAR2(100);
1533: BEGIN
1534: l_procedure := g_package||'get_lwf_state';
1535: g_debug := hr_utility.debug_enabled;
1536: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure, 10);
1537: OPEN csr_state ;
1538: FETCH csr_state INTO l_state;
1539: pay_in_utils.set_location (g_debug,'l_state = '||l_state,20);
1543: EXCEPTION
1544: WHEN OTHERS THEN
1545: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1546: pay_in_utils.set_location(g_debug,' Leaving : '||l_procedure, 40);
1547: hr_utility.trace(l_message);
1548: RETURN NULL;
1549: END get_lwf_state;
1550:
1551: --------------------------------------------------------------------------
1594:
1595: BEGIN
1596:
1597: l_procedure := g_package||'get_org_id';
1598: g_debug := hr_utility.debug_enabled;
1599: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure, 10);
1600:
1601: IF g_debug THEN
1602: pay_in_utils.trace('**************************************************','********************');
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1634: pay_in_utils.set_location(g_debug,' Leaving : '||l_procedure, 30);
1635: hr_utility.trace(l_message);
1636: RETURN NULL;
1637:
1638:
1639: END get_org_id;