[Home] [Help]
PACKAGE BODY: APPS.CSM_CSP_REQ_HEADERS_EVENT_PKG
Source
1 PACKAGE BODY CSM_CSP_REQ_HEADERS_EVENT_PKG
2 /* $Header: csmerhb.pls 120.1 2005/07/25 00:19:46 trajasek noship $*/
3 AS
4 --
5 -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
6 -- directory of SQL Navigator
7 --
8 -- Purpose: Briefly explain the functionality of the package body
9 --
10 -- MODIFICATION HISTORY
11 -- Person Date Comments
12 -- --------- ------ ------------------------------------------
13 -- Enter procedure, function bodies as shown below
14
15 g_table_name1 CONSTANT VARCHAR2(30) := 'CSP_REQUIREMENT_HEADERS';
16 g_acc_table_name1 CONSTANT VARCHAR2(30) := 'CSM_REQ_HEADERS_ACC';
17 g_acc_sequence_name1 CONSTANT VARCHAR2(30) := 'CSM_REQ_HEADERS_ACC_S';
18 g_publication_item_name1 CONSTANT CSM_ACC_PKG.t_publication_item_list :=
19 CSM_ACC_PKG.t_publication_item_list('CSM_REQ_HEADERS');
20 g_pk1_name1 CONSTANT VARCHAR2(30) := 'REQUIREMENT_HEADER_ID';
21
22 PROCEDURE CSP_REQ_HEADERS_MDIRTY_I(p_requirement_header_id IN NUMBER,
23 p_user_id IN NUMBER)
24 IS
25 l_sqlerrno VARCHAR2(20);
26 l_sqlerrmsg VARCHAR2(4000);
27 l_error_msg VARCHAR2(4000);
28 l_return_status VARCHAR2(2000);
29
30 BEGIN
31 CSM_UTIL_PKG.LOG('Entering CSP_REQ_HEADERS_MDIRTY_I for requirement_header_id: ' || p_requirement_header_id,
32 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_I',FND_LOG.LEVEL_PROCEDURE);
33
34 CSM_ACC_PKG.Insert_Acc
35 ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
36 ,P_ACC_TABLE_NAME => g_acc_table_name1
37 ,P_SEQ_NAME => g_acc_sequence_name1
38 ,P_PK1_NAME => g_pk1_name1
39 ,P_PK1_NUM_VALUE => p_requirement_header_id
40 ,P_USER_ID => p_user_id
41 );
42
43 CSM_UTIL_PKG.LOG('Leaving CSP_REQ_HEADERS_MDIRTY_I for requirement_header_id: ' || p_requirement_header_id,
44 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_I',FND_LOG.LEVEL_PROCEDURE);
45 EXCEPTION
46 WHEN OTHERS THEN
47 l_sqlerrno := to_char(SQLCODE);
48 l_sqlerrmsg := substr(SQLERRM, 1,2000);
49 l_error_msg := ' Exception in CSP_REQ_HEADERS_MDIRTY_I for requirement_header_id:'
50 || to_char(p_requirement_header_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
51 CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_I',FND_LOG.LEVEL_EXCEPTION);
52 RAISE;
53 END CSP_REQ_HEADERS_MDIRTY_I;
54
55 PROCEDURE CSP_REQ_HEADERS_MDIRTY_D(p_requirement_header_id IN NUMBER,
56 p_user_id IN NUMBER)
57 IS
58 l_sqlerrno VARCHAR2(20);
59 l_sqlerrmsg VARCHAR2(4000);
60 l_error_msg VARCHAR2(4000);
61 l_return_status VARCHAR2(2000);
62
63 BEGIN
64 CSM_UTIL_PKG.LOG('Entering CSP_REQ_HEADERS_MDIRTY_D for requirement_header_id: ' || p_requirement_header_id,
65 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_D',FND_LOG.LEVEL_PROCEDURE);
66
67 CSM_ACC_PKG.Delete_Acc
68 ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
69 ,P_ACC_TABLE_NAME => g_acc_table_name1
70 ,P_PK1_NAME => g_pk1_name1
71 ,P_PK1_NUM_VALUE => p_requirement_header_id
72 ,P_USER_ID => p_user_id
73 );
74
75 CSM_UTIL_PKG.LOG('Leaving CSP_REQ_HEADERS_MDIRTY_D for requirement_header_id: ' || p_requirement_header_id,
76 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_D',FND_LOG.LEVEL_PROCEDURE);
77 EXCEPTION
78 WHEN OTHERS THEN
79 l_sqlerrno := to_char(SQLCODE);
80 l_sqlerrmsg := substr(SQLERRM, 1,2000);
81 l_error_msg := ' Exception in CSP_REQ_HEADERS_MDIRTY_D for requirement_header_id:'
82 || to_char(p_requirement_header_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
83 CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_D',FND_LOG.LEVEL_EXCEPTION);
84 RAISE;
85 END CSP_REQ_HEADERS_MDIRTY_D;
86
87 PROCEDURE CSP_REQ_HEADERS_MDIRTY_U(p_requirement_header_id IN NUMBER,
88 p_user_id IN NUMBER)
89 IS
90 l_sqlerrno VARCHAR2(20);
91 l_sqlerrmsg VARCHAR2(4000);
92 l_error_msg VARCHAR2(4000);
93 l_return_status VARCHAR2(2000);
94 l_access_id NUMBER;
95
96 BEGIN
97 CSM_UTIL_PKG.LOG('Entering CSP_REQ_HEADERS_MDIRTY_U for requirement_header_id: ' || p_requirement_header_id,
98 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_U',FND_LOG.LEVEL_PROCEDURE);
99
100 l_access_id := CSM_ACC_PKG.Get_Acc_Id
101 ( P_ACC_TABLE_NAME => g_acc_table_name1
102 ,P_PK1_NAME => g_pk1_name1
103 ,P_PK1_NUM_VALUE => p_requirement_header_id
104 ,P_USER_ID => p_user_id
105 );
106
107 IF l_access_id <> -1 THEN
108 CSM_ACC_PKG.Update_Acc
109 ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
110 ,P_ACC_TABLE_NAME => g_acc_table_name1
111 ,P_ACCESS_ID => l_access_id
112 ,P_USER_ID => p_user_id
113 );
114 END IF;
115
116 CSM_UTIL_PKG.LOG('Leaving CSP_REQ_HEADERS_MDIRTY_U for requirement_header_id: ' || p_requirement_header_id,
117 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_U',FND_LOG.LEVEL_PROCEDURE);
118 EXCEPTION
119 WHEN OTHERS THEN
120 l_sqlerrno := to_char(SQLCODE);
121 l_sqlerrmsg := substr(SQLERRM, 1,2000);
122 l_error_msg := ' Exception in CSP_REQ_HEADERS_MDIRTY_U for requirement_header_id:'
123 || to_char(p_requirement_header_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
124 CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_CSP_REQ_HEADERS_EVENT_PKG.CSP_REQ_HEADERS_MDIRTY_U',FND_LOG.LEVEL_EXCEPTION);
125 RAISE;
126 END CSP_REQ_HEADERS_MDIRTY_U;
127
128 END CSM_CSP_REQ_HEADERS_EVENT_PKG;