[Home] [Help]
135: l_incident_date per_work_incidents.incident_date%TYPE;
136: l_org_notified_date per_work_incidents.org_notified_date%TYPE;
137: --
138: begin
139: hr_utility.set_location('Entering:'|| l_proc, 10);
140: --
141: -- Issue a savepoint
142: --
143: savepoint create_work_incident;
528: --
529: p_incident_id := l_incident_id;
530: p_object_version_number := l_object_version_number;
531: --
532: hr_utility.set_location(' Leaving:'||l_proc, 70);
533: exception
534: when hr_api.validate_enabled then
535: --
536: -- As the Validate_Enabled exception has been raised
543: -- when validation only mode is being used.)
544: --
545: p_incident_id := null;
546: p_object_version_number := null;
547: hr_utility.set_location(' Leaving:'||l_proc, 80);
548: when others then
549: --
550: -- A validation or unexpected error has occured
551: --
555: --
556: p_incident_id := null;
557: p_object_version_number := null;
558: --
559: hr_utility.set_location(' Leaving:'||l_proc, 90);
560: raise;
561: end create_work_incident;
562: --
563: -- ----------------------------------------------------------------------------
690: l_incident_date per_work_incidents.incident_date%TYPE;
691: l_org_notified_date per_work_incidents.org_notified_date%TYPE;
692: --
693: begin
694: hr_utility.set_location('Entering:'|| l_proc, 10);
695: --
696: -- Issue a savepoint
697: --
698: savepoint update_work_incident;
1085: -- Set all output arguments
1086: --
1087: p_object_version_number := l_object_version_number;
1088: --
1089: hr_utility.set_location(' Leaving:'||l_proc, 70);
1090: exception
1091: when hr_api.validate_enabled then
1092: --
1093: -- As the Validate_Enabled exception has been raised
1098: -- Only set output warning arguments
1099: -- (Any key or derived arguments must be set to null
1100: -- when validation only mode is being used.)
1101: --
1102: hr_utility.set_location(' Leaving:'||l_proc, 80);
1103: when others then
1104: --
1105: -- A validation or unexpected error has occured
1106: --
1108: --
1109: -- set in out parameters and set out parameters
1110: --
1111: p_object_version_number := l_ovn;
1112: hr_utility.set_location(' Leaving:'||l_proc, 90);
1113: raise;
1114: end update_work_incident;
1115: --
1116: --
1128: --
1129: l_proc varchar2(72) := g_package||'delete_work_incident';
1130: --
1131: begin
1132: hr_utility.set_location('Entering:'|| l_proc, 5);
1133: --
1134: -- Issue a savepoint if operating in validation only mode.
1135: --
1136: savepoint delete_work_incident;
1150: );
1151: end;
1152: --
1153: --
1154: hr_utility.set_location(l_proc, 7);
1155: --
1156: -- Process Logic
1157: --
1158: per_inc_del.del
1159: (p_incident_id => p_incident_id
1160: ,p_object_version_number => p_object_version_number
1161: );
1162: --
1163: hr_utility.set_location(l_proc, 8);
1164: --
1165: --
1166: -- Call After Process User Hook
1167: begin
1182: if p_validate then
1183: raise hr_api.validate_enabled;
1184: end if;
1185: --
1186: hr_utility.set_location(' Leaving:'||l_proc, 11);
1187: exception
1188: when hr_api.validate_enabled then
1189: --
1190: -- As the Validate_Enabled exception has been raised
1191: -- we must rollback to the savepoint
1192: --
1193: ROLLBACK TO delete_work_incident;
1194: --
1195: hr_utility.set_location(' Leaving:'||l_proc, 12);
1196: --
1197: when others then
1198: --
1199: --