[Home] [Help]
PACKAGE BODY: APPS.MTL_LE_ECONOMIC_ZONES_PKG
Source
1 PACKAGE BODY MTL_LE_ECONOMIC_ZONES_PKG AS
2 -- $Header: INVGLEZB.pls 115.2 99/07/16 10:51:22 porting ship $
3 --+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| <filename.pls> |
10 --| |
11 --| DESCRIPTION |
12 --| add description here |
13 --| |
14 --| PROCEDURE LIST |
15 --| add list of procedures and functions here in order of |
16 --| declaration |
17 --| |
18 --| HISTORY |
19 --| MM/DD/YY <Author> Created |
20 --+======================================================================*/
21
22 --===================
23 -- CONSTANTS
24 --===================
25 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MTL_LE_ECONOMIC_ZONES_PKG';
26 -- add your constants here if any
27
28 --===================
29 -- GLOBAL VARIABLES
30 --===================
31 -- add your private global variables here if any
32
33 --===================
34 -- PUBLIC PROCEDURES AND FUNCTIONS
35 --===================
36
37 --========================================================================
38 -- PROCEDURE : Insert_Row PRIVATE
39 -- PARAMETERS:
40 --
41 --
42 -- COMMENT :
43 --
44 -- EXCEPTIONS:
45 --========================================================================
46 PROCEDURE Insert_Row
47 ( p_rowid IN OUT VARCHAR2
48 , p_legal_entity_id NUMBER
49 , p_zone_code VARCHAR2
50 , p_last_update_date DATE
51 , p_last_updated_by NUMBER
52 , p_last_update_login NUMBER
53 , p_created_by NUMBER
54 , p_creation_date DATE
55 )
56 IS
57 l_count NUMBER;
58 CURSOR C IS
59 SELECT
60 rowid
61 FROM
62 MTL_LE_ECONOMIC_ZONES
63 WHERE Legal_Entity_ID = p_legal_entity_id
64 AND Zone_Code = p_zone_code;
65
66 BEGIN
67
68 SELECT
69 COUNT(*)
70 INTO
71 l_count
72 FROM
73 MTL_LE_ECONOMIC_ZONES
74 WHERE Legal_Entity_id = p_legal_entity_id
75 AND Zone_Code = p_zone_code;
76
77 IF l_count = 0 THEN
78 INSERT INTO MTL_LE_ECONOMIC_ZONES(
79 Legal_Entity_ID
80 , Zone_Code
81 , Last_Update_Date
82 , Last_Updated_By
83 , Last_Update_Login
84 , Created_By
85 , Creation_Date
86 )
87 VALUES(
88 p_legal_entity_id
89 , p_zone_code
90 , p_last_update_date
91 , p_last_updated_by
92 , p_last_update_login
93 , p_created_by
94 , p_creation_date
95 );
96
97 OPEN C;
98 FETCH C INTO p_rowid;
99 IF (C%NOTFOUND) THEN
100 CLOSE C;
101 RAISE NO_DATA_FOUND;
102 END IF;
103 CLOSE C;
104 END IF;
105
106 END Insert_Row;
107
108
109 --========================================================================
110 -- PROCEDURE : Lock_Row PRIVATE
111 -- PARAMETERS:
112 --
113 --
114 -- COMMENT :
115 --
116 -- EXCEPTIONS:
117 --========================================================================
118 PROCEDURE Lock_Row
119 ( p_rowid IN VARCHAR2
120 , p_legal_entity_id NUMBER
121 , p_zone_code VARCHAR2
122 )
123 IS
124 CURSOR C IS
125 SELECT *
126 FROM MTL_LE_ECONOMIC_ZONES
127 WHERE ROWID = p_rowid
128 FOR UPDATE OF Legal_Entity_ID NOWAIT;
129 Recinfo C%ROWTYPE;
130
131 BEGIN
132
133 OPEN C;
134 FETCH C INTO Recinfo;
135 IF (C%NOTFOUND) THEN
136 CLOSE C;
137 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
138 APP_EXCEPTION.Raise_Exception;
139 END IF;
140 CLOSE C;
141
142 IF (
143 (Recinfo.Legal_Entity_ID = p_legal_entity_id)
144 AND
145 (Recinfo.zone_code = p_zone_code)
146 )
147 THEN
148 RETURN;
149 ELSE
150 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
151 APP_EXCEPTION.Raise_Exception;
152 END IF;
153
154 END Lock_Row;
155
156
157 --========================================================================
158 -- PROCEDURE : Update_Row PRIVATE
159 -- PARAMETERS:
160 --
161 --
162 -- COMMENT :
163 --
164 -- EXCEPTIONS:
165 --========================================================================
166 PROCEDURE Update_Row
167 ( p_rowid IN VARCHAR2
168 , p_legal_entity_id NUMBER
169 , p_zone_code VARCHAR2
170 , p_last_update_date DATE
171 , p_last_updated_by NUMBER
172 , p_last_update_login NUMBER
173 , p_created_by NUMBER
174 , p_creation_date DATE
175 )
176 IS
177 BEGIN
178
179 UPDATE MTL_LE_ECONOMIC_ZONES
180 SET
181 Legal_Entity_ID = p_legal_entity_id
182 , zone_code = p_zone_code
183 , last_update_date = p_last_update_date
184 , last_updated_by = p_last_updated_by
185 , last_update_login = p_last_update_login
186 , created_by = p_created_by
187 , creation_date = p_creation_date
188 WHERE ROWID = p_rowid;
189
190 IF (SQL%NOTFOUND) THEN
191 RAISE NO_DATA_FOUND;
192 END IF;
193
194 END Update_Row;
195
196
197 --========================================================================
198 -- PROCEDURE : Delete_Row PRIVATE
199 -- PARAMETERS:
200 --
201 --
202 -- COMMENT :
203 --
204 -- EXCEPTIONS:
205 --========================================================================
206 PROCEDURE Delete_Row
207 ( p_rowid IN VARCHAR2
208 )
209 IS
210 BEGIN
211
212 DELETE FROM MTL_LE_ECONOMIC_ZONES
213 WHERE ROWID = p_rowid;
214
215 IF (SQL%NOTFOUND) THEN
216 RAISE NO_DATA_FOUND;
217 END IF;
218
219 END Delete_Row;
220
221 END MTL_LE_ECONOMIC_ZONES_PKG;