25: l_bg NUMBER;
26: l_procedure VARCHAR2(250);
27: l_message VARCHAR2(250);
28: BEGIN
29: g_debug := hr_utility.debug_enabled;
30: l_procedure := g_package ||'get_bg_id';
31: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
32:
33: OPEN c_bg;
217:
218:
219: BEGIN
220:
221: --hr_utility.trace_on(null,'LNAGARAJ');
222: g_debug := hr_utility.debug_enabled;
223: l_procedure := g_package ||'create_medical';
224: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
225: IF (g_debug)
218:
219: BEGIN
220:
221: --hr_utility.trace_on(null,'LNAGARAJ');
222: g_debug := hr_utility.debug_enabled;
223: l_procedure := g_package ||'create_medical';
224: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
225: IF (g_debug)
226: THEN
246:
247: END IF;
248:
249: IF P_BILL_AMOUNT < 0 THEN
250: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
251: hr_utility.raise_error;
252: END IF ;
253:
254: IF P_APPROVED_BILL_AMOUNT < 0 THEN
247: END IF;
248:
249: IF P_BILL_AMOUNT < 0 THEN
250: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
251: hr_utility.raise_error;
252: END IF ;
253:
254: IF P_APPROVED_BILL_AMOUNT < 0 THEN
255: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
251: hr_utility.raise_error;
252: END IF ;
253:
254: IF P_APPROVED_BILL_AMOUNT < 0 THEN
255: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
256: hr_utility.raise_error;
257: END IF ;
258:
259:
252: END IF ;
253:
254: IF P_APPROVED_BILL_AMOUNT < 0 THEN
255: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
256: hr_utility.raise_error;
257: END IF ;
258:
259:
260: l_business_group_id := get_bg_id();
622: OPEN c_element(TO_NUMBER(l_medical_bill_element));
623: FETCH c_element INTO l_element;
624: CLOSE c_element;
625:
626: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
627: hr_utility.set_message_token('ELEMENT_NAME', l_element);
628: hr_utility.raise_error;
629: END IF;
630:
623: FETCH c_element INTO l_element;
624: CLOSE c_element;
625:
626: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
627: hr_utility.set_message_token('ELEMENT_NAME', l_element);
628: hr_utility.raise_error;
629: END IF;
630:
631: IF l_ben_element_link_id IS NULL THEN
624: CLOSE c_element;
625:
626: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
627: hr_utility.set_message_token('ELEMENT_NAME', l_element);
628: hr_utility.raise_error;
629: END IF;
630:
631: IF l_ben_element_link_id IS NULL THEN
632:
633: OPEN c_element(TO_NUMBER(l_medical_ben_element));
634: FETCH c_element INTO l_element;
635: CLOSE c_element;
636:
637: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
638: hr_utility.set_message_token('ELEMENT_NAME', l_element);
639: hr_utility.raise_error;
640: END IF;
641:
634: FETCH c_element INTO l_element;
635: CLOSE c_element;
636:
637: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
638: hr_utility.set_message_token('ELEMENT_NAME', l_element);
639: hr_utility.raise_error;
640: END IF;
641:
642: --Populate the input value id, name records
635: CLOSE c_element;
636:
637: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
638: hr_utility.set_message_token('ELEMENT_NAME', l_element);
639: hr_utility.raise_error;
640: END IF;
641:
642: --Populate the input value id, name records
643: l_count := 1;
835:
836: BEGIN
837:
838:
839: g_debug := hr_utility.debug_enabled;
840: l_procedure := g_package ||'create_medical_ben';
841: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
842: IF (g_debug)
843: THEN
856:
857: END IF;
858:
859: IF P_Benefit < 0 THEN
860: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
861: hr_utility.raise_error;
862: END IF ;
863:
864:
857: END IF;
858:
859: IF P_Benefit < 0 THEN
860: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
861: hr_utility.raise_error;
862: END IF ;
863:
864:
865:
1114:
1115:
1116:
1117: BEGIN
1118: g_debug := hr_utility.debug_enabled;
1119: l_procedure := g_package ||'create_ltc_element';
1120: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1121: IF (g_debug)
1122: THEN
1144:
1145: END IF;
1146:
1147: IF P_SUBMITTED < 0 THEN
1148: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1149: hr_utility.raise_error;
1150: END IF ;
1151:
1152: IF P_EXEMPTED < 0 THEN
1145: END IF;
1146:
1147: IF P_SUBMITTED < 0 THEN
1148: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1149: hr_utility.raise_error;
1150: END IF ;
1151:
1152: IF P_EXEMPTED < 0 THEN
1153: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1149: hr_utility.raise_error;
1150: END IF ;
1151:
1152: IF P_EXEMPTED < 0 THEN
1153: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1154: hr_utility.raise_error;
1155: END IF ;
1156:
1157:
1150: END IF ;
1151:
1152: IF P_EXEMPTED < 0 THEN
1153: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1154: hr_utility.raise_error;
1155: END IF ;
1156:
1157:
1158: l_business_group_id := get_bg_id();
1388: OPEN c_element(TO_NUMBER(l_ltc_element));
1389: FETCH c_element INTO l_element;
1390: CLOSE c_element;
1391:
1392: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
1393: hr_utility.set_message_token('ELEMENT_NAME', l_element);
1394: hr_utility.raise_error;
1395: END IF;
1396:
1389: FETCH c_element INTO l_element;
1390: CLOSE c_element;
1391:
1392: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
1393: hr_utility.set_message_token('ELEMENT_NAME', l_element);
1394: hr_utility.raise_error;
1395: END IF;
1396:
1397: --Populate the input value id, name records
1390: CLOSE c_element;
1391:
1392: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
1393: hr_utility.set_message_token('ELEMENT_NAME', l_element);
1394: hr_utility.raise_error;
1395: END IF;
1396:
1397: --Populate the input value id, name records
1398:
1562:
1563: BEGIN
1564:
1565:
1566: g_debug := hr_utility.debug_enabled;
1567: l_procedure := g_package ||'update_ltc_element';
1568: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1569: IF (g_debug)
1570: THEN
1583:
1584: END IF;
1585:
1586: IF p_fare < 0 THEN
1587: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1588: hr_utility.raise_error;
1589: END IF ;
1590:
1591:
1584: END IF;
1585:
1586: IF p_fare < 0 THEN
1587: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1588: hr_utility.raise_error;
1589: END IF ;
1590:
1591:
1592: IF p_benefit < 0 THEN
1589: END IF ;
1590:
1591:
1592: IF p_benefit < 0 THEN
1593: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1594: hr_utility.raise_error;
1595: END IF ;
1596:
1597:
1590:
1591:
1592: IF p_benefit < 0 THEN
1593: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1594: hr_utility.raise_error;
1595: END IF ;
1596:
1597:
1598: BEGIN