[Home] [Help]
PACKAGE BODY: APPS.PV_GE_CHKLST_RESP_PKG
Source
1 PACKAGE BODY PV_Ge_Chklst_Resp_PKG as
2 /* $Header: pvxtgcrb.pls 115.4 2002/12/10 10:24:11 anubhavk ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_Ge_Chklst_Resp_PKG
7 -- Purpose
8 --
9 -- History
10 -- 15 Nov 2002 anubhavk created
11 -- 19 Nov 2002 anubhavk Updated - For NOCOPY by running nocopy.sh
12 --
13 -- NOTE
14 --
15 -- This Api is generated with Latest version of
16 -- Rosetta, where g_miss indicates NULL and
17 -- NULL indicates missing value. Rosetta Version 1.55
18 -- End of Comments
19 -- ===============================================================
20
21
22 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_Ge_Chklst_Resp_PKG';
23 G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxtgcrb.pls';
24
25
26
27
28 -- ========================================================
29 --
30 -- NAME
31 -- Insert_Row
32 --
33 -- PURPOSE
34 --
35 -- NOTES
36 --
37 -- HISTORY
38 --
39 -- ========================================================
40 PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
41 PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
42 PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
43
44 PROCEDURE Insert_Row(
45 px_chklst_response_id IN OUT NOCOPY NUMBER,
46 p_checklist_item_id NUMBER,
47 px_object_version_number IN OUT NOCOPY NUMBER,
48 p_arc_response_for_entity_code VARCHAR2,
49 p_response_flag VARCHAR2,
50 p_response_for_entity_id NUMBER,
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_chklst_responses(
68 chklst_response_id,
69 checklist_item_id,
70 object_version_number,
71 arc_response_for_entity_code,
72 response_flag,
73 response_for_entity_id,
74 created_by,
75 creation_date,
76 last_updated_by,
77 last_update_date,
78 last_update_login
79 ) VALUES (
80 DECODE( px_chklst_response_id, FND_API.G_MISS_NUM, NULL, px_chklst_response_id),
81 DECODE( p_checklist_item_id, FND_API.G_MISS_NUM, NULL, p_checklist_item_id),
82 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
83 DECODE( p_arc_response_for_entity_code, FND_API.g_miss_char, NULL, p_arc_response_for_entity_code),
84 DECODE( p_response_flag, FND_API.g_miss_char, NULL, p_response_flag),
85 DECODE( p_response_for_entity_id, FND_API.G_MISS_NUM, NULL, p_response_for_entity_id),
86 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
87 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
88 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
89 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
90 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login));
91
92 END Insert_Row;
93
94
95
96
97 -- ========================================================
98 --
99 -- NAME
100 -- Update_Row
101 --
102 -- PURPOSE
103 --
104 -- NOTES
105 --
106 -- HISTORY
107 --
108 -- ========================================================
109 PROCEDURE Update_Row(
110 p_chklst_response_id NUMBER,
111 p_checklist_item_id NUMBER,
112 p_object_version_number IN NUMBER,
113 p_arc_response_for_entity_code VARCHAR2,
114 p_response_flag VARCHAR2,
115 p_response_for_entity_id NUMBER,
116 p_last_updated_by NUMBER,
117 p_last_update_date DATE,
118 p_last_update_login NUMBER)
119
120 IS
121 BEGIN
122 Update pv_ge_chklst_responses
123 SET
124 chklst_response_id = DECODE( p_chklst_response_id, null, chklst_response_id, FND_API.G_MISS_NUM, null, p_chklst_response_id),
125 checklist_item_id = DECODE( p_checklist_item_id, null, checklist_item_id, FND_API.G_MISS_NUM, null, p_checklist_item_id),
126 object_version_number = nvl(p_object_version_number,0) + 1 ,
127 arc_response_for_entity_code = DECODE( p_arc_response_for_entity_code, null, arc_response_for_entity_code, FND_API.g_miss_char, null, p_arc_response_for_entity_code),
128 response_flag = DECODE( p_response_flag, null, response_flag, FND_API.g_miss_char, null, p_response_flag),
129 response_for_entity_id = DECODE( p_response_for_entity_id, null, response_for_entity_id, FND_API.G_MISS_NUM, null, p_response_for_entity_id),
130 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
131 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
132 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
133 WHERE chklst_response_id = p_chklst_response_id
134 AND object_version_number = p_object_version_number;
135
136
137 IF (SQL%NOTFOUND) THEN
138 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139 END IF;
140
141
142 END Update_Row;
143
144
145
146
147 -- ========================================================
148 --
149 -- NAME
150 -- Delete_Row
151 --
152 -- PURPOSE
153 --
154 -- NOTES
155 --
156 -- HISTORY
157 --
158 -- ========================================================
159 PROCEDURE Delete_Row(
160 p_chklst_response_id NUMBER,
161 p_object_version_number NUMBER)
162 IS
163 BEGIN
164 DELETE FROM pv_ge_chklst_responses
165 WHERE chklst_response_id = p_chklst_response_id
166 AND object_version_number = p_object_version_number;
167 If (SQL%NOTFOUND) then
168 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169 End If;
170 END Delete_Row ;
171
172
173
174
175
176 -- ========================================================
177 --
178 -- NAME
179 -- Lock_Row
180 --
181 -- PURPOSE
182 --
183 -- NOTES
184 --
185 -- HISTORY
186 --
187 -- ========================================================
188 PROCEDURE Lock_Row(
189 p_chklst_response_id NUMBER,
190 p_object_version_number NUMBER)
191 IS
192 CURSOR C IS
193 SELECT *
194 FROM pv_ge_chklst_responses
195 WHERE chklst_response_id = p_chklst_response_id
196 AND object_version_number = p_object_version_number
197 FOR UPDATE OF chklst_response_id NOWAIT;
198 Recinfo C%ROWTYPE;
199 BEGIN
200
201 OPEN c;
202 FETCH c INTO Recinfo;
203 IF (c%NOTFOUND) THEN
204 CLOSE c;
205 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
206 RAISE FND_API.g_exc_error;
207 END IF;
208 CLOSE c;
209 END Lock_Row;
210
211
212
213 END PV_Ge_Chklst_Resp_PKG;