[Home] [Help]
PACKAGE BODY: APPS.IGI_IGI_ITR_CHARGE_HEADERS_PKG
Source
1 PACKAGE BODY IGI_IGI_ITR_CHARGE_HEADERS_PKG as
2 -- $Header: igiitrab.pls 120.5.12000000.1 2007/09/12 10:30:18 mbremkum ship $
3 --
4
5
6 l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7 l_state_level number := FND_LOG.LEVEL_STATEMENT;
8 l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
9 l_event_level number := FND_LOG.LEVEL_EVENT;
10 l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
11 l_error_level number := FND_LOG.LEVEL_ERROR;
12 l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
13
14
15 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
16 X_It_Header_Id IN OUT NOCOPY NUMBER,
17 X_Set_Of_Books_Id NUMBER,
18 X_Name VARCHAR2,
19 X_Description VARCHAR2,
20 X_It_Period_Name VARCHAR2,
21 X_Entered_Dr NUMBER,
22 X_Entered_Cr NUMBER,
23 X_Submit_Flag VARCHAR2,
24 X_It_Originator_Id VARCHAR2,
25 X_It_Category VARCHAR2,
26 X_It_Source VARCHAR2,
27 X_Gl_Date DATE,
28 X_Submit_Date DATE,
29 X_Currency_Code VARCHAR2,
30 X_Code_Combination_Id NUMBER,
31 X_Encumbrance_Type_Id NUMBER,
32 X_Creation_Date DATE,
33 X_Created_By NUMBER,
34 X_Last_Update_Login NUMBER,
35 X_Last_Update_Date DATE,
36 X_Last_Updated_By NUMBER
37 ) IS
38 CURSOR C IS SELECT rowid FROM IGI_itr_charge_headers
39 WHERE it_header_id = X_It_Header_Id;
40 CURSOR C2 IS SELECT IGI_IGI_itr_charge_headers_s.nextval FROM sys.dual;
41 BEGIN
42 if (X_It_Header_Id is NULL) then
43 OPEN C2;
44 FETCH C2 INTO X_It_Header_Id;
45 CLOSE C2;
46 end if;
47
48 INSERT INTO IGI_itr_charge_headers(
49 it_header_id,
50 set_of_books_id,
51 name,
52 description,
53 it_period_name,
54 entered_dr,
55 entered_cr,
56 submit_flag,
57 it_originator_id,
58 it_category,
59 it_source,
60 gl_date,
61 submit_date,
62 currency_code,
63 code_combination_id,
64 encumbrance_type_id,
65 creation_date,
66 created_by,
67 last_update_login,
68 last_update_date,
69 last_updated_by
70 ) VALUES (
71 X_It_Header_Id,
72 X_Set_Of_Books_Id,
73 X_Name,
74 X_Description,
75 X_It_Period_Name,
76 X_Entered_Dr,
77 X_Entered_Cr,
78 X_Submit_Flag,
79 X_It_Originator_Id,
80 X_It_Category,
81 X_It_Source,
82 X_Gl_Date,
83 X_Submit_Date,
84 X_Currency_Code,
85 X_Code_Combination_Id,
86 X_Encumbrance_Type_Id,
87 X_Creation_Date,
88 X_Created_By,
89 X_Last_Update_Login,
90 X_Last_Update_Date,
91 X_Last_Updated_By
92 );
93
94 OPEN C;
95 FETCH C INTO X_Rowid;
96 if (C%NOTFOUND) then
97 CLOSE C;
98 Raise NO_DATA_FOUND;
99 end if;
100 CLOSE C;
101 END Insert_Row;
102
103
104 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
105 X_It_Header_Id NUMBER,
106 X_Set_Of_Books_Id NUMBER,
107 X_Name VARCHAR2,
108 X_Description VARCHAR2,
109 X_It_Period_Name VARCHAR2,
110 X_Entered_Dr NUMBER,
111 X_Entered_Cr NUMBER,
112 X_Submit_Flag VARCHAR2,
113 X_It_Originator_Id VARCHAR2,
114 X_It_Category VARCHAR2,
115 X_It_Source VARCHAR2,
116 X_Gl_Date DATE,
117 X_Submit_Date DATE,
118 X_Currency_Code VARCHAR2,
119 X_Code_Combination_Id NUMBER,
120 X_Encumbrance_Type_Id NUMBER
121 ) IS
122
123 CURSOR C IS
124 SELECT *
125 FROM IGI_itr_charge_headers
126 WHERE rowid = X_Rowid
127 FOR UPDATE of It_Header_Id NOWAIT;
128 Recinfo C%ROWTYPE;
129
130
131 BEGIN
132 OPEN C;
133 FETCH C INTO Recinfo;
134 if (C%NOTFOUND) then
135 CLOSE C;
136 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
137
138 IF( l_excep_level >= l_debug_level) THEN
139 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrab.IGI_IGI_ITR_CHARGE_HEADERS_PKG.lock_row.msg1', FALSE);
140 END IF;
141
142 APP_EXCEPTION.Raise_Exception;
143 end if;
144 CLOSE C;
145 if (
146
147 (Recinfo.it_header_id = X_It_Header_Id)
148 AND (Recinfo.set_of_books_id = X_Set_Of_Books_Id)
149 AND (Recinfo.name = X_Name)
150 AND ( (Recinfo.description = X_Description)
151 OR ( (Recinfo.description IS NULL)
152 AND (X_Description IS NULL)))
153 AND (Recinfo.it_period_name = X_It_Period_Name)
154 AND ( (Recinfo.entered_dr = X_Entered_Dr)
155 OR ( (Recinfo.entered_dr IS NULL)
156 AND (X_Entered_Dr IS NULL)))
157 AND ( (Recinfo.entered_cr = X_Entered_Cr)
158 OR ( (Recinfo.entered_cr IS NULL)
159 AND (X_Entered_Cr IS NULL)))
160 AND (Recinfo.submit_flag = X_Submit_Flag)
161 AND (Recinfo.it_originator_id = X_It_Originator_Id)
162 AND (Recinfo.it_category = X_It_Category)
163 AND (Recinfo.it_source = X_It_Source)
164 AND (Recinfo.gl_date = X_Gl_Date)
165 AND ( (Recinfo.submit_date = X_Submit_Date)
166 OR ( (Recinfo.submit_date IS NULL)
167 AND (X_Submit_Date IS NULL)))
168 AND (Recinfo.currency_code = X_Currency_Code)
169 AND (Recinfo.code_combination_id = X_Code_Combination_Id)
170 AND (Recinfo.encumbrance_type_id = X_Encumbrance_Type_Id)
171 ) then
172 return;
173 else
174 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
175
176 IF( l_excep_level >= l_debug_level) THEN
177 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrab.IGI_IGI_ITR_CHARGE_HEADERS_PKG.lock_row.msg2', FALSE);
178 END IF;
179
180 APP_EXCEPTION.Raise_Exception;
181 end if;
182 END Lock_Row;
183
184
185
186 PROCEDURE Update_Row(X_Rowid VARCHAR2,
187 X_It_Header_Id NUMBER,
188 X_Set_Of_Books_Id NUMBER,
189 X_Name VARCHAR2,
190 X_Description VARCHAR2,
191 X_It_Period_Name VARCHAR2,
192 X_Entered_Dr NUMBER,
193 X_Entered_Cr NUMBER,
194 X_Submit_Flag VARCHAR2,
195 X_It_Originator_Id VARCHAR2,
196 X_It_Category VARCHAR2,
197 X_It_Source VARCHAR2,
198 X_Gl_Date DATE,
199 X_Submit_Date DATE,
200 X_Currency_Code VARCHAR2,
201 X_Code_Combination_Id NUMBER,
202 X_Encumbrance_Type_Id NUMBER,
203 X_Last_Update_Login NUMBER,
204 X_Last_Update_Date DATE,
205 X_Last_Updated_By NUMBER
206 ) IS
207 BEGIN
208 UPDATE IGI_itr_charge_headers
209 SET
210 it_header_id = X_It_Header_Id,
211 set_of_books_id = X_Set_Of_Books_Id,
212 name = X_Name,
213 description = X_Description,
214 it_period_name = X_It_Period_Name,
215 entered_dr = X_Entered_Dr,
216 entered_cr = X_Entered_Cr,
217 submit_flag = X_Submit_Flag,
218 it_originator_id = X_It_Originator_Id,
219 it_category = X_It_Category,
220 it_source = X_It_Source,
221 gl_date = X_Gl_Date,
222 submit_date = X_Submit_Date,
223 currency_code = X_Currency_Code,
224 code_combination_id = X_Code_Combination_Id,
225 encumbrance_type_id = X_Encumbrance_Type_Id,
226 last_update_login = X_Last_Update_Login,
227 last_update_date = X_Last_Update_Date,
228 last_updated_by = X_Last_Updated_By
229 WHERE rowid = X_Rowid;
230
231 if (SQL%NOTFOUND) then
232 Raise NO_DATA_FOUND;
233 end if;
234 END Update_Row;
235 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
236 BEGIN
237 DELETE FROM IGI_itr_charge_headers
238 WHERE rowid = X_Rowid;
239
240 if (SQL%NOTFOUND) then
241 Raise NO_DATA_FOUND;
242 end if;
243 END Delete_Row;
244
245
246 END IGI_IGI_ITR_CHARGE_HEADERS_PKG;