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