[Home] [Help]
PACKAGE BODY: APPS.PV_GE_HL_PARAM_PKG
Source
1 PACKAGE BODY PV_Ge_Hl_Param_PKG as
2 /* $Header: pvxtghpb.pls 120.1 2005/07/19 09:38:43 appldev ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_Ge_Hl_Param_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_Hl_Param_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtghpb.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_history_log_param_id IN OUT NOCOPY NUMBER,
44 p_entity_history_log_id NUMBER,
45 p_param_name VARCHAR2,
46 px_object_version_number IN OUT NOCOPY NUMBER,
47 p_param_value VARCHAR2,
48 p_created_by NUMBER,
49 p_creation_date DATE,
50 p_last_updated_by NUMBER,
51 p_last_update_date DATE,
52 p_last_update_login NUMBER,
53 p_param_type VARCHAR2,
54 p_lookup_type VARCHAR2)
55
56 IS
57 x_rowid VARCHAR2(30);
58
59
60 BEGIN
61
62 --dbms_output.put_line('value of px_hist_log_id '||to_char(px_history_log_param_id));
63 px_object_version_number := nvl(px_object_version_number, 1);
64
65
66 INSERT INTO pv_ge_history_log_params(
67 history_log_param_id,
68 entity_history_log_id,
69 param_name,
70 object_version_number,
71 param_value,
72 created_by,
73 creation_date,
74 last_updated_by,
75 last_update_date,
76 last_update_login,
77 param_type,
78 lookup_type
79 ) VALUES (
80 DECODE( px_history_log_param_id, FND_API.G_MISS_NUM, NULL, px_history_log_param_id),
81 DECODE( p_entity_history_log_id, FND_API.G_MISS_NUM, NULL, p_entity_history_log_id),
82 DECODE( p_param_name, FND_API.g_miss_char, NULL, p_param_name),
83 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
84 DECODE( p_param_value, FND_API.g_miss_char, NULL, p_param_value),
85 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
86 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
87 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
88 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
89 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
90 DECODE( p_param_type, FND_API.g_miss_char, NULL, p_param_type),
91 DECODE( p_lookup_type, FND_API.g_miss_char, NULL, p_lookup_type));
92
93 END Insert_Row;
94
95
96
97
98 -- ========================================================
99 --
100 -- NAME
101 -- Update_Row
102 --
103 -- PURPOSE
104 --
105 -- NOTES
106 --
107 -- HISTORY
108 --
109 -- ========================================================
110 PROCEDURE Update_Row(
111 p_history_log_param_id NUMBER,
112 p_entity_history_log_id NUMBER,
113 p_param_name VARCHAR2,
114 p_object_version_number IN NUMBER,
115 p_param_value VARCHAR2,
116 p_last_updated_by NUMBER,
117 p_last_update_date DATE,
118 p_last_update_login NUMBER,
119 p_param_type VARCHAR2,
120 p_lookup_type VARCHAR2)
121
122 IS
123 BEGIN
124 Update pv_ge_history_log_params
125 SET
126 history_log_param_id = DECODE( p_history_log_param_id, null, history_log_param_id, FND_API.G_MISS_NUM, null, p_history_log_param_id),
127 entity_history_log_id = DECODE( p_entity_history_log_id, null, entity_history_log_id, FND_API.G_MISS_NUM, null, p_entity_history_log_id),
128 param_name = DECODE( p_param_name, null, param_name, FND_API.g_miss_char, null, p_param_name),
129 object_version_number = nvl(p_object_version_number,0) + 1 ,
130 param_value = DECODE( p_param_value, null, param_value, FND_API.g_miss_char, null, p_param_value),
131 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
132 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
133 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
134 param_type = DECODE( p_param_type, null, p_param_type, FND_API.g_miss_char, null, p_param_type),
135 lookup_type = DECODE( p_lookup_type, null, p_lookup_type, FND_API.g_miss_char, null, p_lookup_type)
136 WHERE history_log_param_id = p_history_log_param_id
137 AND object_version_number = p_object_version_number;
138
139
140 IF (SQL%NOTFOUND) THEN
141 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142 END IF;
143
144
145 END Update_Row;
146
147
148
149
150 -- ========================================================
151 --
152 -- NAME
153 -- Delete_Row
154 --
155 -- PURPOSE
156 --
157 -- NOTES
158 --
159 -- HISTORY
160 --
161 -- ========================================================
162 PROCEDURE Delete_Row(
163 p_history_log_param_id NUMBER,
164 p_object_version_number NUMBER)
165 IS
166 BEGIN
167 DELETE FROM pv_ge_history_log_params
168 WHERE history_log_param_id = p_history_log_param_id
169 AND object_version_number = p_object_version_number;
170 If (SQL%NOTFOUND) then
171 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172 End If;
173 END Delete_Row ;
174
175
176
177
178
179 -- ========================================================
180 --
181 -- NAME
182 -- Lock_Row
183 --
184 -- PURPOSE
185 --
186 -- NOTES
187 --
188 -- HISTORY
189 --
190 -- ========================================================
191 PROCEDURE Lock_Row(
192 p_history_log_param_id NUMBER,
193 p_object_version_number NUMBER)
194 IS
195 CURSOR C IS
196 SELECT *
197 FROM pv_ge_history_log_params
198 WHERE history_log_param_id = p_history_log_param_id
199 AND object_version_number = p_object_version_number
200 FOR UPDATE OF history_log_param_id NOWAIT;
201 Recinfo C%ROWTYPE;
202 BEGIN
203
204 OPEN c;
205 FETCH c INTO Recinfo;
206 IF (c%NOTFOUND) THEN
207 CLOSE c;
208 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
209 RAISE FND_API.g_exc_error;
210 END IF;
211 CLOSE c;
212 END Lock_Row;
213
214
215
216 END PV_Ge_Hl_Param_PKG;