[Home] [Help]
PACKAGE BODY: APPS.PV_GE_PTNR_RESPS_PKG
Source
1 PACKAGE BODY PV_Ge_Ptnr_Resps_PKG as
2 /* $Header: pvxtgprb.pls 115.2 2003/11/18 22:51:17 ktsao noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_Ge_Ptnr_Resps_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This Api is generated with Latest version of
14 -- Rosetta, where g_miss indicates NULL and
15 -- NULL indicates missing value. Rosetta Version 1.55
16 -- End of Comments
17 -- ===============================================================
18
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_Ge_Ptnr_Resps_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtgprb.pls';
22
23
24
25
26 -- ========================================================
27 --
28 -- NAME
29 -- Insert_Row
30 --
31 -- PURPOSE
32 --
33 -- NOTES
34 --
35 -- HISTORY
36 --
37 -- ========================================================
38 PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
39 PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
40 PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
41
42 PROCEDURE Insert_Row(
43 px_ptnr_resp_id IN OUT NOCOPY NUMBER,
44 p_partner_id NUMBER,
45 p_user_role_code VARCHAR2,
46 p_program_id NUMBER,
47 p_responsibility_id NUMBER,
48 p_source_resp_map_rule_id NUMBER,
49 p_resp_type_code VARCHAR2,
50 px_object_version_number IN OUT NOCOPY NUMBER,
51 p_created_by NUMBER,
52 p_creation_date DATE,
53 p_last_updated_by NUMBER,
54 p_last_update_date DATE,
55 p_last_update_login NUMBER)
56
57 IS
58 x_rowid VARCHAR2(30);
59
60
61 BEGIN
62
63
64 px_object_version_number := nvl(px_object_version_number, 1);
65
66
67 INSERT INTO pv_ge_ptnr_resps(
68 ptnr_resp_id,
69 partner_id,
70 user_role_code,
71 program_id,
72 responsibility_id,
73 source_resp_map_rule_id,
74 resp_type_code,
75 object_version_number,
76 created_by,
77 creation_date,
78 last_updated_by,
79 last_update_date,
80 last_update_login
81 ) VALUES (
82 DECODE( px_ptnr_resp_id, FND_API.G_MISS_NUM, NULL, px_ptnr_resp_id),
83 DECODE( p_partner_id, FND_API.G_MISS_NUM, NULL, p_partner_id),
84 DECODE( p_user_role_code, FND_API.g_miss_char, NULL, p_user_role_code),
85 DECODE( p_program_id, FND_API.G_MISS_NUM, NULL, p_program_id),
86 DECODE( p_responsibility_id, FND_API.G_MISS_NUM, NULL, p_responsibility_id),
87 DECODE( p_source_resp_map_rule_id, FND_API.G_MISS_NUM, NULL, p_source_resp_map_rule_id),
88 DECODE( p_resp_type_code, FND_API.g_miss_char, NULL, p_resp_type_code),
89 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
90 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
91 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
92 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
93 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
94 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login));
95
96 END Insert_Row;
97
98
99
100
101 -- ========================================================
102 --
103 -- NAME
104 -- Update_Row
105 --
106 -- PURPOSE
107 --
108 -- NOTES
109 --
110 -- HISTORY
111 --
112 -- ========================================================
113 PROCEDURE Update_Row(
114 p_ptnr_resp_id NUMBER,
115 p_partner_id NUMBER,
116 p_user_role_code VARCHAR2,
117 p_program_id NUMBER,
118 p_responsibility_id NUMBER,
119 p_source_resp_map_rule_id NUMBER,
120 p_resp_type_code VARCHAR2,
121 p_object_version_number IN NUMBER,
122 p_last_updated_by NUMBER,
123 p_last_update_date DATE,
124 p_last_update_login NUMBER)
125
126 IS
127 BEGIN
128 Update pv_ge_ptnr_resps
129 SET
130 ptnr_resp_id = DECODE( p_ptnr_resp_id, null, ptnr_resp_id, FND_API.G_MISS_NUM, null, p_ptnr_resp_id),
131 partner_id = DECODE( p_partner_id, null, partner_id, FND_API.G_MISS_NUM, null, p_partner_id),
132 user_role_code = DECODE( p_user_role_code, null, user_role_code, FND_API.g_miss_char, null, p_user_role_code),
133 program_id = DECODE( p_program_id, null, program_id, FND_API.G_MISS_NUM, null, p_program_id),
134 responsibility_id = DECODE( p_responsibility_id, null, responsibility_id, FND_API.G_MISS_NUM, null, p_responsibility_id),
135 source_resp_map_rule_id = DECODE( p_source_resp_map_rule_id, null, source_resp_map_rule_id, FND_API.G_MISS_NUM, null, p_source_resp_map_rule_id),
136 resp_type_code = DECODE( p_resp_type_code, null, resp_type_code, FND_API.g_miss_char, null, p_resp_type_code),
137 object_version_number = nvl(p_object_version_number,0) + 1 ,
138 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
139 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
140 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
141 WHERE ptnr_resp_id = p_ptnr_resp_id
142 AND object_version_number = p_object_version_number;
143
144
145 IF (SQL%NOTFOUND) THEN
146 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147 END IF;
148
149
150 END Update_Row;
151
152
153
154
155 -- ========================================================
156 --
157 -- NAME
158 -- Delete_Row
159 --
160 -- PURPOSE
161 --
162 -- NOTES
163 --
164 -- HISTORY
165 --
166 -- ========================================================
167 PROCEDURE Delete_Row(
168 p_ptnr_resp_id NUMBER,
169 p_object_version_number NUMBER)
170 IS
171 BEGIN
172 DELETE FROM pv_ge_ptnr_resps
173 WHERE ptnr_resp_id = p_ptnr_resp_id
174 AND object_version_number = p_object_version_number;
175 If (SQL%NOTFOUND) then
176 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
177 End If;
178 END Delete_Row ;
179
180
181
182
183
184 -- ========================================================
185 --
186 -- NAME
187 -- Lock_Row
188 --
189 -- PURPOSE
190 --
191 -- NOTES
192 --
193 -- HISTORY
194 --
195 -- ========================================================
196 PROCEDURE Lock_Row(
197 p_ptnr_resp_id NUMBER,
198 p_object_version_number NUMBER)
199 IS
200 CURSOR C IS
201 SELECT *
202 FROM pv_ge_ptnr_resps
203 WHERE ptnr_resp_id = p_ptnr_resp_id
204 AND object_version_number = p_object_version_number
205 FOR UPDATE OF ptnr_resp_id NOWAIT;
206 Recinfo C%ROWTYPE;
207 BEGIN
208
209 OPEN c;
210 FETCH c INTO Recinfo;
211 IF (c%NOTFOUND) THEN
212 CLOSE c;
213 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
214 RAISE FND_API.g_exc_error;
215 END IF;
216 CLOSE c;
217 END Lock_Row;
218
219
220
221 END PV_Ge_Ptnr_Resps_PKG;