26: --
27: -- Declare cursors and local variables
28: --
29: l_proc VARCHAR2(72) := g_package||'create_cagr_entitlement';
30: l_object_version_number per_cagr_entitlements.object_version_number%TYPE;
31: l_cagr_entitlement_id per_cagr_entitlements.cagr_entitlement_id%TYPE;
32: l_effective_date DATE;
33: --
34: BEGIN
27: -- Declare cursors and local variables
28: --
29: l_proc VARCHAR2(72) := g_package||'create_cagr_entitlement';
30: l_object_version_number per_cagr_entitlements.object_version_number%TYPE;
31: l_cagr_entitlement_id per_cagr_entitlements.cagr_entitlement_id%TYPE;
32: l_effective_date DATE;
33: --
34: BEGIN
35: --
182: --
183: -- Declare cursors and local variables
184: --
185: l_proc VARCHAR2(72) := g_package||'update_cagr_entitlement';
186: l_object_version_number per_cagr_entitlements.object_version_number%TYPE;
187: l_ovn per_cagr_entitlements.object_version_number%TYPE := p_object_version_number;
188: l_effective_date DATE;
189: --
190: BEGIN
183: -- Declare cursors and local variables
184: --
185: l_proc VARCHAR2(72) := g_package||'update_cagr_entitlement';
186: l_object_version_number per_cagr_entitlements.object_version_number%TYPE;
187: l_ovn per_cagr_entitlements.object_version_number%TYPE := p_object_version_number;
188: l_effective_date DATE;
189: --
190: BEGIN
191: --
326: --
327: PROCEDURE delete_cagr_entitlement
328: (p_validate IN BOOLEAN DEFAULT false
329: ,p_effective_date IN DATE
330: ,p_cagr_entitlement_id IN per_cagr_entitlements.cagr_entitlement_id%TYPE
331: ,p_object_version_number IN OUT NOCOPY NUMBER
332: ) IS
333: --
334: -- Declare cursors and local variables
339: FROM per_cagr_entitlement_lines_f pcl
340: WHERE pcl.cagr_entitlement_id = p_cagr_entitlement_id;
341: --
342: l_proc VARCHAR2(72) := g_package||'update_cagr_entitlement';
343: l_object_version_number per_cagr_entitlements.object_version_number%TYPE;
344: l_ovn per_cagr_entitlements.object_version_number%TYPE := p_object_version_number;
345: l_effective_date DATE;
346: l_pcl_ovn NUMBER;
347: l_pcl_end_date DATE;
340: WHERE pcl.cagr_entitlement_id = p_cagr_entitlement_id;
341: --
342: l_proc VARCHAR2(72) := g_package||'update_cagr_entitlement';
343: l_object_version_number per_cagr_entitlements.object_version_number%TYPE;
344: l_ovn per_cagr_entitlements.object_version_number%TYPE := p_object_version_number;
345: l_effective_date DATE;
346: l_pcl_ovn NUMBER;
347: l_pcl_end_date DATE;
348: l_pcl_start_date DATE;