PACKAGE BODY: APPS.CSM_CUSTOM_PKG

Source

1 PACKAGE BODY CSM_CUSTOM_PKG AS
2 /* $Header: csmecusb.pls 120.1 2005/07/24 22:55:50 trajasek noship $*/
3 --
4 -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
5 -- directory of SQL Navigator
6 --
7 -- Purpose: Briefly explain the functionality of the package body
8 --
9 -- MODIFICATION HISTORY
10 -- Person      Date    Comments
11 -- ---------   ------  ------------------------------------------
12    -- Enter procedure, function bodies as shown below
13 
14 g_object_name  CONSTANT VARCHAR2(30) := 'CSM_CUSTOM_PKG';  -- package name
15 g_counter_val_acc_table_name     CONSTANT VARCHAR2(30) := 'CSM_COUNTER_VALUES_ACC';
16 g_counter_val_pk1_name           CONSTANT VARCHAR2(30) := 'COUNTER_VALUE_ID';
17 g_counter_val_pubi_name          CONSTANT CSM_ACC_PKG.t_publication_item_list :=
18   CSM_ACC_PKG.t_publication_item_list('CSF_M_COUNTER_VALUES');
19 
20 PROCEDURE counter_values_del(p_counter_value_id IN number, x_return_status OUT NOCOPY  varchar2)
21 IS
22 l_err_msg varchar2(4000);
23 
24 CURSOR l_counter_values_csr(p_counter_value_id IN number)
25 IS
26 SELECT user_id, counter_value_id
27 FROM csm_counter_values_acc acc
28 WHERE counter_value_id = p_counter_value_id;
29 
30 BEGIN
31    FOR r_counter_values_csr IN l_counter_values_csr(p_counter_value_id) LOOP
32             CSM_ACC_PKG.Delete_Acc
33                    ( P_PUBLICATION_ITEM_NAMES => g_counter_val_pubi_name
34                     ,P_ACC_TABLE_NAME         => g_counter_val_acc_table_name
35                     ,P_PK1_NAME               => g_counter_val_pk1_name
36                     ,P_PK1_NUM_VALUE          => r_counter_values_csr.counter_value_id
37                     ,P_USER_ID                => r_counter_values_csr.user_id
38                    );
39    END LOOP;
40 
41    x_return_status := FND_API.G_RET_STS_SUCCESS;
42 
43  EXCEPTION
44    WHEN others THEN
45      x_return_status := FND_API.G_RET_STS_ERROR;
46      l_err_msg := 'Exception occurred in ' || g_object_name || '.counter_values_del: ' || substr(SQLERRM, 1, 240)|| ' for PK ' || to_char(p_counter_value_id);
47      CSM_UTIL_PKG.LOG( l_err_msg, 'CSM_CUSTOM_PKG.COUNTER_VALUES_DEL', FND_LOG.LEVEL_EXCEPTION);
48 END counter_values_del;
49 
50 END CSM_CUSTOM_PKG;