[Home] [Help]
PACKAGE BODY: APPS.PV_PEC_RULES_PKG
Source
1 PACKAGE BODY PV_Pec_Rules_PKG as
2 /* $Header: pvxtecrb.pls 115.3 2002/12/10 10:26:37 swkulkar ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_Pec_Rules_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_Pec_Rules_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtecrb.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_enrl_change_rule_id IN OUT NOCOPY NUMBER,
44 px_object_version_number IN OUT NOCOPY NUMBER,
45 p_change_from_program_id NUMBER,
46 p_change_to_program_id NUMBER,
47 p_change_direction_code VARCHAR2,
48 p_effective_from_date DATE,
49 p_effective_to_date DATE,
50 p_active_flag 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_pg_enrl_change_rules(
68 enrl_change_rule_id,
69 object_version_number,
70 change_from_program_id,
71 change_to_program_id,
72 change_direction_code,
73 effective_from_date,
74 effective_to_date,
75 active_flag,
76 created_by,
77 creation_date,
78 last_updated_by,
79 last_update_date,
80 last_update_login
81 ) VALUES (
82 DECODE( px_enrl_change_rule_id, FND_API.G_MISS_NUM, NULL, px_enrl_change_rule_id),
83 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
84 DECODE( p_change_from_program_id, FND_API.G_MISS_NUM, NULL, p_change_from_program_id),
85 DECODE( p_change_to_program_id, FND_API.G_MISS_NUM, NULL, p_change_to_program_id),
86 DECODE( p_change_direction_code, FND_API.g_miss_char, NULL, p_change_direction_code),
87 DECODE( p_effective_from_date, FND_API.G_MISS_DATE, NULL, p_effective_from_date),
88 DECODE( p_effective_to_date, FND_API.G_MISS_DATE, NULL, p_effective_to_date),
89 DECODE( p_active_flag, FND_API.g_miss_char, NULL, p_active_flag),
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_enrl_change_rule_id NUMBER,
115 px_object_version_number IN OUT NOCOPY NUMBER,
116 p_change_from_program_id NUMBER,
117 p_change_to_program_id NUMBER,
118 p_change_direction_code VARCHAR2,
119 p_effective_from_date DATE,
120 p_effective_to_date DATE,
121 p_active_flag 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_pg_enrl_change_rules
129 SET
130 enrl_change_rule_id = DECODE( p_enrl_change_rule_id, null, enrl_change_rule_id, FND_API.G_MISS_NUM, null, p_enrl_change_rule_id),
131 object_version_number = object_version_number + 1 ,
132 change_from_program_id = DECODE( p_change_from_program_id, null, change_from_program_id, FND_API.G_MISS_NUM, null, p_change_from_program_id),
133 change_to_program_id = DECODE( p_change_to_program_id, null, change_to_program_id, FND_API.G_MISS_NUM, null, p_change_to_program_id),
134 change_direction_code = DECODE( p_change_direction_code, null, change_direction_code, FND_API.g_miss_char, null, p_change_direction_code),
135 effective_from_date = DECODE( p_effective_from_date, null, effective_from_date, FND_API.G_MISS_DATE, null, p_effective_from_date),
136 effective_to_date = DECODE( p_effective_to_date, null, effective_to_date, FND_API.G_MISS_DATE, null, p_effective_to_date),
137 active_flag = DECODE( p_active_flag, null, active_flag, FND_API.g_miss_char, null, p_active_flag),
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 enrl_change_rule_id = p_enrl_change_rule_id;
142 -- AND object_version_number = px_object_version_number;
143
144
145 IF (SQL%NOTFOUND) THEN
146 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147 END IF;
148
149 px_object_version_number := nvl(px_object_version_number,0) + 1;
150
151 END Update_Row;
152
153
154
155
156 -- ========================================================
157 --
158 -- NAME
159 -- Delete_Row
160 --
161 -- PURPOSE
162 --
163 -- NOTES
164 --
165 -- HISTORY
166 --
167 -- ========================================================
168 PROCEDURE Delete_Row(
169 p_enrl_change_rule_id NUMBER,
170 p_object_version_number NUMBER)
171 IS
172 BEGIN
173 DELETE FROM pv_pg_enrl_change_rules
174 WHERE enrl_change_rule_id = p_enrl_change_rule_id
175 AND object_version_number = p_object_version_number;
176 If (SQL%NOTFOUND) then
177 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178 End If;
179 END Delete_Row ;
180
181
182
183
184
185 -- ========================================================
186 --
187 -- NAME
188 -- Lock_Row
189 --
190 -- PURPOSE
191 --
192 -- NOTES
193 --
194 -- HISTORY
195 --
196 -- ========================================================
197 PROCEDURE Lock_Row(
198 p_enrl_change_rule_id NUMBER,
199 p_object_version_number NUMBER)
200 IS
201 CURSOR C IS
202 SELECT *
203 FROM pv_pg_enrl_change_rules
204 WHERE enrl_change_rule_id = p_enrl_change_rule_id
205 AND object_version_number = p_object_version_number
206 FOR UPDATE OF enrl_change_rule_id NOWAIT;
207 Recinfo C%ROWTYPE;
208 BEGIN
209
210 OPEN c;
211 FETCH c INTO Recinfo;
212 IF (c%NOTFOUND) THEN
213 CLOSE c;
214 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
215 RAISE FND_API.g_exc_error;
216 END IF;
217 CLOSE c;
218 END Lock_Row;
219
220
221
222 END PV_Pec_Rules_PKG;