33: --
34: W_PROC varchar2(72) := G_PACKAGE||'return_api_dml_status';
35: --
36: Begin
37: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
38: --
39: Return (nvl(g_api_dml, false));
40: --
41: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
37: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
38: --
39: Return (nvl(g_api_dml, false));
40: --
41: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
42: End return_api_dml_status;
43: --
44: -- ----------------------------------------------------------------------------
45: -- |---------------------------< constraint_error >---------------------------|
90: := G_PACKAGE || 'CONSTRAINT_ERROR';
91: --
92: begin
93: --
94: HR_UTILITY.SET_LOCATION ('Entering:' || W_PROC, 5);
95: --
96: -- Key constraints
97: --
98: if (P_CONSTRAINT_NAME = 'OTA_BOOKING_STATUS_TYPES_FK1') Then
143: FND_MESSAGE.SET_TOKEN ('CONSTRAINT', P_CONSTRAINT_NAME);
144: end if;
145: FND_MESSAGE.RAISE_ERROR;
146: --
147: HR_UTILITY.SET_LOCATION (' Leaving:' || W_PROC, 10);
148: --
149: end CONSTRAINT_ERROR;
150: --
151: -- ----------------------------------------------------------------------------
172: and BST.NAME = P_NAME;
173: --
174: begin
175: --
176: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
177: --
178: open C1;
179: fetch C1
180: into W_BOOKING_STATUS_TYPE_ID;
182: CONSTRAINT_ERROR ('OTA_BST_UNKNOWN');
183: end if;
184: close C1;
185: --
186: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
187: --
188: return (W_BOOKING_STATUS_TYPE_ID);
189: --
190: end;
211: W_NAME varchar2 (80);
212: --
213: begin
214: --
215: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
216: --
217: open C1;
218: fetch C1
219: into W_NAME;
221: CONSTRAINT_ERROR ('OTA_BST_UNKNOWN');
222: end if;
223: close C1;
224: --
225: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
226: --
227: return (W_NAME);
228: --
229: end GET_BOOKING_STATUS_TYPE;
261: order by BST.TYPE;
262: --
263: begin
264: --
265: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
266: --
267: open C_DEFAULT;
268: fetch C_DEFAULT
269: into P_BOOKING_STATUS_TYPE_ID,
269: into P_BOOKING_STATUS_TYPE_ID,
270: P_NAME;
271: close C_DEFAULT;
272: --
273: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
274: --
275: end DEFAULT_BOOKING_STATUS_TYPE;
276: --
277: -- ----------------------------------------------------------------------------
303: <> P_BOOKING_STATUS_TYPE_ID));
304: --
305: begin
306: --
307: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
308: --
309: open C_UNIQUE;
310: fetch C_UNIQUE
311: into V_UNIQUE;
318: if (V_UNIQUE <> 'YES') then
319: CONSTRAINT_ERROR ('OTA_BOOKING_STATUS_TYPES_UK2');
320: end if;
321: --
322: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
323: --
324: end CHECK_UNIQUE_NAME;
325: --
326: -- ----------------------------------------------------------------------------
349: and BST.DEFAULT_FLAG = 'Y';
350: --
351: begin
352: --
353: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
354: --
355: open C_DEFAULT;
356: fetch C_DEFAULT into L_NAME;
357: close C_DEFAULT;
360: if l_name is not null and l_name <> p_name then
361: CONSTRAINT_ERROR ('OTA_BST_DUPLICATE_DEFAULT');
362: end if;
363:
364: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
365: --
366: end CHECK_SINGLE_DEFAULT;
367: --
368: -- ----------------------------------------------------------------------------
378:
379: --
380: begin
381: --
382: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
383: --
384: CHECK_UNIQUE_NAME (
385: P_BUSINESS_GROUP_ID => P_REC.BUSINESS_GROUP_ID,
386: P_NAME => P_REC.NAME,
403: P_NAME => P_REC.NAME);
404: END IF;
405: END IF;
406: --
407: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
408: --
409: end VALIDITY_CHECK;
410: --
411: -- ----------------------------------------------------------------------------
432: = P_BOOKING_STATUS_TYPE_ID;
433: --
434: begin
435: --
436: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
437: --
438: -- Any history ?
439: --
440: open C1;
445: CONSTRAINT_ERROR ('OTA_BST_BSH_EXISTS');
446: end if;
447: close C1;
448: --
449: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
450: --
451: end CHECK_BSH_EXISTS;
452: --
453: -- ----------------------------------------------------------------------------
473: = P_BOOKING_STATUS_TYPE_ID;
474: --
475: begin
476: --
477: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
478: --
479: open C1;
480: fetch C1
481: into W_OK;
484: CONSTRAINT_ERROR ('OTA_BST_TDB_EXISTS');
485: end if;
486: close C1;
487: --
488: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
489: --
490: end CHECK_TDB_EXISTS;
491:
492: -- ----------------------------------------------------------------------------
512: = P_BOOKING_STATUS_TYPE_ID;
513: --
514: begin
515: --
516: HR_UTILITY.SET_LOCATION ('Entering: ' || W_PROCEDURE, 5);
517: --
518: open C1;
519: fetch C1
520: into W_OK;
524: fnd_message.raise_error;
525: end if;
526: close C1;
527: --
528: HR_UTILITY.SET_LOCATION (' Leaving: ' || W_PROCEDURE, 10);
529: --
530: end CHECK_BSE_EXISTS;
531: --
532: -- ----------------------------------------------------------------------------
614: W_PROC varchar2(72) := G_PACKAGE||'g_old_rec_current';
615: l_fct_ret boolean;
616: --
617: Begin
618: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
619: --
620: If (
621: p_booking_status_type_id is null or
622: p_object_version_number is null
630: If (
631: p_booking_status_type_id = g_old_rec.booking_status_type_id and
632: p_object_version_number = g_old_rec.object_version_number
633: ) Then
634: HR_UTILITY.SET_LOCATION(W_PROC, 10);
635: --
636: -- The g_old_rec is current therefore we must
637: -- set the returning function to true
638: --
648: --
649: -- The primary key is invalid therefore we must error
650: --
651: FND_MESSAGE.SET_NAME('OTA', 'HR_7220_INVALID_PRIMARY_KEY');
652: HR_UTILITY.raise_error;
653: End If;
654: Close C_Sel1;
655: If (p_object_version_number <> g_old_rec.object_version_number) Then
656: FND_MESSAGE.SET_NAME('OTA', 'HR_7155_OBJECT_INVALID');
653: End If;
654: Close C_Sel1;
655: If (p_object_version_number <> g_old_rec.object_version_number) Then
656: FND_MESSAGE.SET_NAME('OTA', 'HR_7155_OBJECT_INVALID');
657: HR_UTILITY.raise_error;
658: End If;
659: HR_UTILITY.SET_LOCATION(W_PROC, 15);
660: l_fct_ret := true;
661: End If;
655: If (p_object_version_number <> g_old_rec.object_version_number) Then
656: FND_MESSAGE.SET_NAME('OTA', 'HR_7155_OBJECT_INVALID');
657: HR_UTILITY.raise_error;
658: End If;
659: HR_UTILITY.SET_LOCATION(W_PROC, 15);
660: l_fct_ret := true;
661: End If;
662: End If;
663: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 20);
659: HR_UTILITY.SET_LOCATION(W_PROC, 15);
660: l_fct_ret := true;
661: End If;
662: End If;
663: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 20);
664: Return (l_fct_ret);
665: --
666: End g_old_rec_current;
667: --
692: l_legislation_code varchar2(150);
693: --
694: begin
695: --
696: hr_utility.set_location('Entering:'|| l_proc, 10);
697: --
698: -- Ensure that all the mandatory parameter are not null
699: --
700: hr_api.mandatory_arg_error
732: --
733: hr_api.set_legislation_context(l_legislation_code);
734: end if;
735: --
736: hr_utility.set_location(' Leaving:'|| l_proc, 20);
737: --
738: end set_security_group_id;
739: --
740: -- ---------------------------------------------------------------------------
761: l_proc varchar2(72) := g_package||'return_legislation_code';
762: --
763: Begin
764: --
765: hr_utility.set_location('Entering:'|| l_proc, 10);
766: --
767: -- Ensure that all the mandatory parameter are not null
768: --
769: hr_api.mandatory_arg_error
779: -- call to this function. Just return the value in the global
780: -- variable.
781: --
782: l_legislation_code := ota_bst_api.g_legislation_code;
783: hr_utility.set_location(l_proc, 20);
784: else
785: --
786: -- The ID is different to the last call to this function
787: -- or this is the first call to this function.
796: close csr_leg_code;
797: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
798: fnd_message.raise_error;
799: end if;
800: hr_utility.set_location(l_proc,30);
801: --
802: -- Set the global variables so the values are
803: -- available for the next call to this function.
804: --
805: close csr_leg_code;
806: ota_bst_api.g_booking_status_type_id := p_booking_status_type_id;
807: ota_bst_api.g_legislation_code := l_legislation_code;
808: end if;
809: hr_utility.set_location(' Leaving:'|| l_proc, 40);
810: return l_legislation_code;
811: end return_legislation_code;
812: --
813:
820: --
821: l_proc varchar2(72) := g_package||'set_base_key_value';
822: --
823: Begin
824: hr_utility.set_location('Entering:'||l_proc, 10);
825: --
826: ota_bst_api.g_booking_status_type_id_i := p_booking_status_type_id;
827: --
828: hr_utility.set_location(' Leaving:'||l_proc, 20);
824: hr_utility.set_location('Entering:'||l_proc, 10);
825: --
826: ota_bst_api.g_booking_status_type_id_i := p_booking_status_type_id;
827: --
828: hr_utility.set_location(' Leaving:'||l_proc, 20);
829: End set_base_key_value;
830: --
831: --
832: -- ----------------------------------------------------------------------------
873: --
874: W_PROC varchar2(72) := G_PACKAGE||'insert_dml';
875: --
876: Begin
877: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
878: p_rec.object_version_number := 1; -- Initialise the object version
879: --
880: g_api_dml := true; -- Set the api dml status
881: --
947: );
948: --
949: g_api_dml := false; -- Unset the api dml status
950: --
951: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
952: Exception
953: When hr_api.check_integrity_violated Then
954: -- A check constraint has been violated
955: g_api_dml := false; -- Unset the api dml status
1015: --
1016: W_PROC varchar2(72) := G_PACKAGE||'update_dml';
1017: --
1018: Begin
1019: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1020: --
1021: -- Increment the object version
1022: --
1023: p_rec.object_version_number := p_rec.object_version_number + 1;
1061: where booking_status_type_id = p_rec.booking_status_type_id;
1062: --
1063: g_api_dml := false; -- Unset the api dml status
1064: --
1065: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1066: --
1067: Exception
1068: When hr_api.check_integrity_violated Then
1069: -- A check constraint has been violated
1127: --
1128: W_PROC varchar2(72) := G_PACKAGE||'delete_dml';
1129: --
1130: Begin
1131: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1132: --
1133: g_api_dml := true; -- Set the api dml status
1134: --
1135: -- Delete the ota_booking_status_types row.
1138: where booking_status_type_id = p_rec.booking_status_type_id;
1139: --
1140: g_api_dml := false; -- Unset the api dml status
1141: --
1142: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1143: --
1144: Exception
1145: When hr_api.child_integrity_violated then
1146: -- Child integrity has been violated
1192: --
1193: Cursor C_Sel1 is select ota_booking_status_types_s.nextval from sys.dual;
1194: --
1195: Begin
1196: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1197: --
1198: --
1199: -- Select the next sequence number
1200: --
1201: Open C_Sel1;
1202: Fetch C_Sel1 Into p_rec.booking_status_type_id;
1203: Close C_Sel1;
1204: --
1205: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1206: End pre_insert;
1207: --
1208: -- ----------------------------------------------------------------------------
1209: -- |------------------------------< pre_update >------------------------------|
1238: --
1239: W_PROC varchar2(72) := G_PACKAGE||'pre_update';
1240: --
1241: Begin
1242: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1243: --
1244: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1245: End pre_update;
1246: --
1240: --
1241: Begin
1242: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1243: --
1244: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1245: End pre_update;
1246: --
1247: -- ----------------------------------------------------------------------------
1248: -- |------------------------------< pre_delete >------------------------------|
1277: --
1278: W_PROC varchar2(72) := G_PACKAGE||'pre_delete';
1279: --
1280: Begin
1281: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1282: --
1283: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1284: End pre_delete;
1285: --
1279: --
1280: Begin
1281: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1282: --
1283: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1284: End pre_delete;
1285: --
1286: -- ----------------------------------------------------------------------------
1287: -- |-----------------------------< post_insert >------------------------------|
1316: --
1317: W_PROC varchar2(72) := G_PACKAGE||'post_insert';
1318: --
1319: Begin
1320: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1321: --
1322: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1323: End post_insert;
1324: --
1318: --
1319: Begin
1320: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1321: --
1322: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1323: End post_insert;
1324: --
1325: -- ----------------------------------------------------------------------------
1326: -- |-----------------------------< post_update >------------------------------|
1355: --
1356: W_PROC varchar2(72) := G_PACKAGE||'post_update';
1357: --
1358: Begin
1359: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1360: --
1361: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1362: End post_update;
1363: --
1357: --
1358: Begin
1359: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1360: --
1361: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1362: End post_update;
1363: --
1364: -- ----------------------------------------------------------------------------
1365: -- |-----------------------------< post_delete >------------------------------|
1394: --
1395: W_PROC varchar2(72) := G_PACKAGE||'post_delete';
1396: --
1397: Begin
1398: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1399: --
1400: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1401: End post_delete;
1402: --
1396: --
1397: Begin
1398: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1399: --
1400: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1401: End post_delete;
1402: --
1403: -- ----------------------------------------------------------------------------
1404: -- |---------------------------------< lck >----------------------------------|
1448: --
1449: W_PROC varchar2(72) := G_PACKAGE||'lck';
1450: --
1451: Begin
1452: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1453: --
1454: -- Add any mandatory argument checking here:
1455: -- Example:
1456: -- hr_api.mandatory_arg_error
1465: --
1466: -- The primary key is invalid therefore we must error
1467: --
1468: FND_MESSAGE.SET_NAME('OTA', 'HR_7220_INVALID_PRIMARY_KEY');
1469: HR_UTILITY.raise_error;
1470: End If;
1471: Close C_Sel1;
1472: If (p_object_version_number <> g_old_rec.object_version_number) Then
1473: FND_MESSAGE.SET_NAME('OTA', 'HR_7155_OBJECT_INVALID');
1470: End If;
1471: Close C_Sel1;
1472: If (p_object_version_number <> g_old_rec.object_version_number) Then
1473: FND_MESSAGE.SET_NAME('OTA', 'HR_7155_OBJECT_INVALID');
1474: HR_UTILITY.raise_error;
1475: End If;
1476: --
1477: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1478: --
1473: FND_MESSAGE.SET_NAME('OTA', 'HR_7155_OBJECT_INVALID');
1474: HR_UTILITY.raise_error;
1475: End If;
1476: --
1477: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1478: --
1479: -- We need to trap the ORA LOCK exception
1480: --
1481: Exception
1485: -- error message.
1486: --
1487: FND_MESSAGE.SET_NAME('OTA', 'HR_7165_OBJECT_LOCKED');
1488: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'ota_booking_status_types');
1489: HR_UTILITY.raise_error;
1490: End lck;
1491: --
1492: -- ----------------------------------------------------------------------------
1493: -- |-----------------------------< convert_args >-----------------------------|
1555: W_PROC varchar2(72) := G_PACKAGE||'convert_args';
1556: --
1557: Begin
1558: --
1559: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1560: --
1561: -- Convert arguments into local l_rec structure.
1562: --
1563: l_rec.booking_status_type_id := p_booking_status_type_id;
1592: l_rec.bst_information20 := p_bst_information20;
1593: --
1594: -- Return the plsql record structure.
1595: --
1596: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1597: Return(l_rec);
1598: --
1599: End convert_args;
1600: --
1643: W_PROC varchar2(72) := G_PACKAGE||'convert_defs';
1644: --
1645: Begin
1646: --
1647: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1648: --
1649: -- We must now examine each argument value in the
1650: -- p_rec plsql record structure
1651: -- to see if a system default is being used. If a system default
1737: End If;
1738: --
1739: -- Return the plsql record structure.
1740: --
1741: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1742: Return(p_rec);
1743: --
1744: End convert_defs;
1745: --
1776: --
1777: W_PROC varchar2(72) := G_PACKAGE||'insert_validate';
1778: --
1779: Begin
1780: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1781: --
1782: -- Call all supporting business operations
1783: --
1784: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
1786: VALIDITY_CHECK (
1787: P_REC => P_REC);
1788: --
1789: --
1790: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1791: End insert_validate;
1792: --
1793: -- ----------------------------------------------------------------------------
1794: -- |---------------------------< update_validate >----------------------------|
1827: --
1828: W_PROC varchar2(72) := G_PACKAGE||'update_validate';
1829: --
1830: Begin
1831: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1832: --
1833: -- Call all supporting business operations
1834: --
1835: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
1838: VALIDITY_CHECK (
1839: P_REC => P_REC);
1840: end if;
1841: --
1842: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1843: End update_validate;
1844: --
1845: -- ----------------------------------------------------------------------------
1846: -- |---------------------------< delete_validate >----------------------------|
1875: --
1876: W_PROC varchar2(72) := G_PACKAGE||'delete_validate';
1877: --
1878: Begin
1879: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1880: --
1881: -- Call all supporting business operations
1882: --
1883: CHECK_BSH_EXISTS (
1889: CHECK_BSE_EXISTS (
1890: P_BOOKING_STATUS_TYPE_ID => P_REC.BOOKING_STATUS_TYPE_ID);
1891:
1892: --
1893: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1894: End delete_validate;
1895: --
1896: -- ----------------------------------------------------------------------------
1897: -- |---------------------------------< ins >----------------------------------|
1904: --
1905: W_PROC varchar2(72) := G_PACKAGE||'ins';
1906: --
1907: Begin
1908: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1909: --
1910: -- Determine if the business process is to be validated.
1911: --
1912: If p_validate then
1937: If p_validate then
1938: Raise HR_Api.Validate_Enabled;
1939: End If;
1940: --
1941: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
1942: Exception
1943: When HR_Api.Validate_Enabled Then
1944: --
1945: -- As the Validate_Enabled exception has been raised
1989: l_rec g_rec_type;
1990: W_PROC varchar2(72) := G_PACKAGE||'ins';
1991: --
1992: Begin
1993: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
1994: --
1995: -- Call conversion function to turn arguments into the
1996: -- p_rec structure.
1997: --
2040: --
2041: p_booking_status_type_id := l_rec.booking_status_type_id;
2042: p_object_version_number := l_rec.object_version_number;
2043: --
2044: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
2045: End ins;
2046: --
2047: -- ----------------------------------------------------------------------------
2048: -- |---------------------------------< upd >----------------------------------|
2055: --
2056: W_PROC varchar2(72) := G_PACKAGE||'upd';
2057: --
2058: Begin
2059: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
2060: --
2061: -- Determine if the business process is to be validated.
2062: --
2063: If p_validate then
2100: If p_validate then
2101: Raise HR_Api.Validate_Enabled;
2102: End If;
2103: --
2104: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
2105: Exception
2106: When HR_Api.Validate_Enabled Then
2107: --
2108: -- As the Validate_Enabled exception has been raised
2152: l_rec g_rec_type;
2153: W_PROC varchar2(72) := G_PACKAGE||'upd';
2154: --
2155: Begin
2156: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
2157: --
2158: -- Call conversion function to turn arguments into the
2159: -- l_rec structure.
2160: --
2199: --
2200: upd(l_rec, p_validate);
2201: p_object_version_number := l_rec.object_version_number;
2202: --
2203: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
2204: End upd;
2205: --
2206: -- ----------------------------------------------------------------------------
2207: -- |---------------------------------< del >----------------------------------|
2214: --
2215: W_PROC varchar2(72) := G_PACKAGE||'del';
2216: --
2217: Begin
2218: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
2219: --
2220: -- Determine if the business process is to be validated.
2221: --
2222: If p_validate then
2255: If p_validate then
2256: Raise HR_Api.Validate_Enabled;
2257: End If;
2258: --
2259: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
2260: Exception
2261: When HR_Api.Validate_Enabled Then
2262: --
2263: -- As the Validate_Enabled exception has been raised
2279: l_rec g_rec_type;
2280: W_PROC varchar2(72) := G_PACKAGE||'del';
2281: --
2282: Begin
2283: HR_UTILITY.SET_LOCATION('Entering:'||W_PROC, 5);
2284: --
2285: -- As the delete procedure accepts a plsql record structure we do need to
2286: -- convert the arguments into the record structure.
2287: -- We don't need to call the supplied conversion argument routine as we
2295: -- business process
2296: --
2297: del(l_rec, p_validate);
2298: --
2299: HR_UTILITY.SET_LOCATION(' Leaving:'||W_PROC, 10);
2300: End del;
2301: --
2302: end OTA_BST_API;