[Home] [Help]
PACKAGE BODY: APPS.PV_PG_ENRQ_INIT_SOURCES_PKG
Source
1 PACKAGE BODY PV_Pg_Enrq_Init_Sources_PKG as
2 /* $Header: pvxtpeib.pls 115.2 2002/12/10 20:36:23 jkylee ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_Pg_Enrq_Init_Sources_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_Pg_Enrq_Init_Sources_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtpeib.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_initiation_source_id IN OUT NOCOPY NUMBER,
44 px_object_version_number IN OUT NOCOPY NUMBER,
45 p_enrl_request_id NUMBER,
46 p_prev_membership_id NUMBER,
47 p_enrl_change_rule_id NUMBER,
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
54 IS
55 x_rowid VARCHAR2(30);
56
57
58 BEGIN
59
60
61 px_object_version_number := nvl(px_object_version_number, 1);
62
63
64 INSERT INTO pv_pg_enrq_init_sources(
65 initiation_source_id,
66 object_version_number,
67 enrl_request_id,
68 prev_membership_id,
69 enrl_change_rule_id,
70 created_by,
71 creation_date,
72 last_updated_by,
73 last_update_date,
74 last_update_login
75 ) VALUES (
76 DECODE( px_initiation_source_id, FND_API.G_MISS_NUM, NULL, px_initiation_source_id),
77 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
78 DECODE( p_enrl_request_id, FND_API.G_MISS_NUM, NULL, p_enrl_request_id),
79 DECODE( p_prev_membership_id, FND_API.G_MISS_NUM, NULL, p_prev_membership_id),
80 DECODE( p_enrl_change_rule_id, FND_API.G_MISS_NUM, NULL, p_enrl_change_rule_id),
81 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
82 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
83 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
84 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
85 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login));
86
87 END Insert_Row;
88
89
90
91
92 -- ========================================================
93 --
94 -- NAME
95 -- Update_Row
96 --
97 -- PURPOSE
98 --
99 -- NOTES
100 --
101 -- HISTORY
102 --
103 -- ========================================================
104 PROCEDURE Update_Row(
105 p_initiation_source_id NUMBER,
106 p_object_version_number IN NUMBER,
107 p_enrl_request_id NUMBER,
108 p_prev_membership_id NUMBER,
109 p_enrl_change_rule_id NUMBER,
110 p_last_updated_by NUMBER,
111 p_last_update_date DATE,
112 p_last_update_login NUMBER)
113
114 IS
115 BEGIN
116 Update pv_pg_enrq_init_sources
117 SET
118 initiation_source_id = DECODE( p_initiation_source_id, null, initiation_source_id, FND_API.G_MISS_NUM, null, p_initiation_source_id),
119 object_version_number = nvl(p_object_version_number,0) + 1 ,
120 enrl_request_id = DECODE( p_enrl_request_id, null, enrl_request_id, FND_API.G_MISS_NUM, null, p_enrl_request_id),
121 prev_membership_id = DECODE( p_prev_membership_id, null, prev_membership_id, FND_API.G_MISS_NUM, null, p_prev_membership_id),
122 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),
123 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
124 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
125 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
126 WHERE initiation_source_id = p_initiation_source_id
127 AND object_version_number = p_object_version_number;
128
129
130 IF (SQL%NOTFOUND) THEN
131 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132 END IF;
133
134
135 END Update_Row;
136
137
138
139
140 -- ========================================================
141 --
142 -- NAME
143 -- Delete_Row
144 --
145 -- PURPOSE
146 --
147 -- NOTES
148 --
149 -- HISTORY
150 --
151 -- ========================================================
152 PROCEDURE Delete_Row(
153 p_initiation_source_id NUMBER,
154 p_object_version_number NUMBER)
155 IS
156 BEGIN
157 DELETE FROM pv_pg_enrq_init_sources
158 WHERE initiation_source_id = p_initiation_source_id
159 AND object_version_number = p_object_version_number;
160 If (SQL%NOTFOUND) then
161 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
162 End If;
163 END Delete_Row ;
164
165
166
167
168
169 -- ========================================================
170 --
171 -- NAME
172 -- Lock_Row
173 --
174 -- PURPOSE
175 --
176 -- NOTES
177 --
178 -- HISTORY
179 --
180 -- ========================================================
181 PROCEDURE Lock_Row(
182 p_initiation_source_id NUMBER,
183 p_object_version_number NUMBER)
184 IS
185 CURSOR C IS
186 SELECT *
187 FROM pv_pg_enrq_init_sources
188 WHERE initiation_source_id = p_initiation_source_id
189 AND object_version_number = p_object_version_number
190 FOR UPDATE OF initiation_source_id NOWAIT;
191 Recinfo C%ROWTYPE;
192 BEGIN
193
194 OPEN c;
195 FETCH c INTO Recinfo;
196 IF (c%NOTFOUND) THEN
197 CLOSE c;
198 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
199 RAISE FND_API.g_exc_error;
200 END IF;
201 CLOSE c;
202 END Lock_Row;
206 END PV_Pg_Enrq_Init_Sources_PKG;
203
204
205