[Home] [Help]
PACKAGE BODY: APPS.PV_GE_TEMP_APPROVERS_PKG
Source
1 PACKAGE BODY Pv_Ge_Temp_Approvers_PKG as
2 /* $Header: pvxtptab.pls 120.1 2006/01/25 15:42:36 ktsao noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- Pv_Ge_Temp_Approvers_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_Temp_Approvers_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtptab.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_entity_approver_id IN OUT NOCOPY NUMBER,
44 px_object_version_number IN OUT NOCOPY NUMBER,
45 p_arc_appr_for_entity_code VARCHAR2,
46 p_appr_for_entity_id NUMBER,
47 p_approver_id NUMBER,
48 p_approver_type_code VARCHAR2,
49 p_approval_status_code VARCHAR2,
50 p_workflow_item_key VARCHAR2,
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_temp_approvers(
68 entity_approver_id,
69 object_version_number,
70 arc_appr_for_entity_code,
71 appr_for_entity_id,
72 approver_id,
73 approver_type_code,
74 approval_status_code,
75 workflow_item_key,
76 created_by,
77 creation_date,
78 last_updated_by,
79 last_update_date,
80 last_update_login
81 ) VALUES (
82 DECODE( px_entity_approver_id, FND_API.G_MISS_NUM, NULL, px_entity_approver_id),
83 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
84 DECODE( p_arc_appr_for_entity_code, FND_API.g_miss_char, NULL, p_arc_appr_for_entity_code),
85 DECODE( p_appr_for_entity_id, FND_API.G_MISS_NUM, NULL, p_appr_for_entity_id),
86 DECODE( p_approver_id, FND_API.G_MISS_NUM, NULL, p_approver_id),
87 DECODE( p_approver_type_code, FND_API.g_miss_char, NULL, p_approver_type_code),
88 DECODE( p_approval_status_code, FND_API.g_miss_char, NULL, p_approval_status_code),
89 DECODE( p_workflow_item_key, FND_API.g_miss_char, NULL, p_workflow_item_key),
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_entity_approver_id NUMBER,
115 p_object_version_number IN NUMBER,
116 p_arc_appr_for_entity_code VARCHAR2,
117 p_appr_for_entity_id NUMBER,
118 p_approver_id NUMBER,
119 p_approver_type_code VARCHAR2,
120 p_approval_status_code VARCHAR2,
121 p_workflow_item_key VARCHAR2,
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_temp_approvers
129 SET
130 entity_approver_id = DECODE( p_entity_approver_id, null, entity_approver_id, FND_API.G_MISS_NUM, null, p_entity_approver_id),
131 object_version_number = nvl(p_object_version_number,0) + 1 ,
132 arc_appr_for_entity_code = DECODE( p_arc_appr_for_entity_code, null, arc_appr_for_entity_code, FND_API.g_miss_char, null, p_arc_appr_for_entity_code),
133 appr_for_entity_id = DECODE( p_appr_for_entity_id, null, appr_for_entity_id, FND_API.G_MISS_NUM, null, p_appr_for_entity_id),
134 approver_id = DECODE( p_approver_id, null, approver_id, FND_API.G_MISS_NUM, null, p_approver_id),
135 approver_type_code = DECODE( p_approver_type_code, null, approver_type_code, FND_API.g_miss_char, null, p_approver_type_code),
136 approval_status_code = DECODE( p_approval_status_code, null, approval_status_code, FND_API.g_miss_char, null, p_approval_status_code),
137 workflow_item_key = DECODE( p_workflow_item_key, null, workflow_item_key, FND_API.g_miss_char, null, p_workflow_item_key),
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 entity_approver_id = p_entity_approver_id
142 AND object_version_number = p_object_version_number;
143
144
145 IF (SQL%NOTFOUND) THEN
146 RAISE PVX_Utility_PVT.API_RECORD_CHANGED;
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_entity_approver_id NUMBER,
169 p_object_version_number NUMBER)
170 IS
171 BEGIN
172 DELETE FROM pv_ge_temp_approvers
173 WHERE entity_approver_id = p_entity_approver_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_entity_approver_id NUMBER,
198 p_object_version_number NUMBER)
199 IS
200 CURSOR C IS
201 SELECT *
202 FROM pv_ge_temp_approvers
203 WHERE entity_approver_id = p_entity_approver_id
204 AND object_version_number = p_object_version_number
205 FOR UPDATE OF entity_approver_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_Temp_Approvers_PKG;