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