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:
1115:
1116:
1117:
1118: BEGIN
1119: --hr_utility.trace_on (null, 'ORACLE1234');
1120: g_debug := hr_utility.debug_enabled;
1121: l_procedure := g_package ||'create_ltc_element';
1122: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1123: IF (g_debug)
1116:
1117:
1118: BEGIN
1119: --hr_utility.trace_on (null, 'ORACLE1234');
1120: g_debug := hr_utility.debug_enabled;
1121: l_procedure := g_package ||'create_ltc_element';
1122: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1123: IF (g_debug)
1124: THEN
1147:
1148: END IF;
1149:
1150: IF P_SUBMITTED < 0 THEN
1151: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1152: hr_utility.raise_error;
1153: END IF ;
1154:
1155: IF P_EXEMPTED < 0 THEN
1148: END IF;
1149:
1150: IF P_SUBMITTED < 0 THEN
1151: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1152: hr_utility.raise_error;
1153: END IF ;
1154:
1155: IF P_EXEMPTED < 0 THEN
1156: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1152: hr_utility.raise_error;
1153: END IF ;
1154:
1155: IF P_EXEMPTED < 0 THEN
1156: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1157: hr_utility.raise_error;
1158: END IF ;
1159:
1160:
1153: END IF ;
1154:
1155: IF P_EXEMPTED < 0 THEN
1156: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1157: hr_utility.raise_error;
1158: END IF ;
1159:
1160:
1161: l_business_group_id := get_bg_id();
1396: OPEN c_element(TO_NUMBER(l_ltc_element));
1397: FETCH c_element INTO l_element;
1398: CLOSE c_element;
1399:
1400: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
1401: hr_utility.set_message_token('ELEMENT_NAME', l_element);
1402: hr_utility.raise_error;
1403: END IF;
1404:
1397: FETCH c_element INTO l_element;
1398: CLOSE c_element;
1399:
1400: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
1401: hr_utility.set_message_token('ELEMENT_NAME', l_element);
1402: hr_utility.raise_error;
1403: END IF;
1404:
1405: --Populate the input value id, name records
1398: CLOSE c_element;
1399:
1400: hr_utility.set_message(800, 'PER_IN_MISSING_LINK');
1401: hr_utility.set_message_token('ELEMENT_NAME', l_element);
1402: hr_utility.raise_error;
1403: END IF;
1404:
1405: --Populate the input value id, name records
1406:
1573:
1574:
1575: BEGIN
1576:
1577: --hr_utility.trace_on (null, 'ORACLE1212');
1578: g_debug := hr_utility.debug_enabled;
1579: l_procedure := g_package ||'update_ltc_element';
1580: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1581: IF (g_debug)
1574:
1575: BEGIN
1576:
1577: --hr_utility.trace_on (null, 'ORACLE1212');
1578: g_debug := hr_utility.debug_enabled;
1579: l_procedure := g_package ||'update_ltc_element';
1580: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1581: IF (g_debug)
1582: THEN
1595:
1596: END IF;
1597:
1598: IF p_fare < 0 THEN
1599: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1600: hr_utility.raise_error;
1601: END IF ;
1602:
1603:
1596: END IF;
1597:
1598: IF p_fare < 0 THEN
1599: hr_utility.set_message(800, 'PER_IN_BEN_AMOUNT');
1600: hr_utility.raise_error;
1601: END IF ;
1602:
1603:
1604: IF p_benefit < 0 THEN
1601: END IF ;
1602:
1603:
1604: IF p_benefit < 0 THEN
1605: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1606: hr_utility.raise_error;
1607: END IF ;
1608:
1609:
1602:
1603:
1604: IF p_benefit < 0 THEN
1605: hr_utility.set_message(800, 'PER_IN_BEN_APPROVED_AMOUNT');
1606: hr_utility.raise_error;
1607: END IF ;
1608:
1609:
1610: BEGIN