[Home] [Help]
PACKAGE BODY: APPS.IGI_AR_SYS_OPT_PKG
Source
1 PACKAGE BODY IGI_AR_SYS_OPT_PKG as
2 -- $Header: igirsopb.pls 120.4.12000000.2 2007/10/25 06:24:54 mbremkum ship $
3
4 l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 l_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6 l_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7 l_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8 l_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9 l_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10 l_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11 l_path VARCHAR2(50) := 'IGI.PLSQL.igirsopb.IGI_AR_SYS_OPT_PKG.';
12
13
14 /*Added Insert Row for R12 Uptake bug No 5905216*/
15
16 PROCEDURE Insert_Row(X_Rowid VARCHAR2,
17 X_Set_Of_Books_Id NUMBER,
18 X_Rpi_Header_Context_Code VARCHAR2,
19 X_Rpi_Header_Charge_Id VARCHAR2,
20 X_Rpi_Header_Generate_Seq VARCHAR2,
21 X_Rpi_Line_Context_Code VARCHAR2,
22 X_Rpi_Line_Charge_Id VARCHAR2,
23 X_Rpi_Line_Generate_Seq VARCHAR2,
24 X_Rpi_Line_Charge_Line_Num VARCHAR2,
25 X_Rpi_Line_Price_Break_Num VARCHAR2,
26 -- X_Dunning_Receivables_Trx_Id NUMBER,
27 X_Last_Updated_By NUMBER,
28 X_Last_Update_Date DATE,
29 X_Last_Update_Login NUMBER,
30 X_Created_By VARCHAR2,
31 X_Creation_Date DATE,
32 X_Org_Id NUMBER
33
34 ) IS
35
36 l_login_id NUMBER;
37 l_created_by NUMBER;
38 l_updated_by NUMBER;
39
40 BEGIN
41
42 l_login_id := FND_GLOBAL.LOGIN_ID;
43 l_created_by := FND_GLOBAL.USER_ID;
44 l_updated_by := FND_GLOBAL.USER_ID;
45
46 insert into igi_ar_system_options_all
47 (
48 SET_OF_BOOKS_ID,
49 RPI_HEADER_CONTEXT_CODE,
50 RPI_HEADER_CHARGE_ID,
51 RPI_HEADER_GENERATE_SEQ,
52 RPI_LINE_CONTEXT_CODE,
53 RPI_LINE_CHARGE_ID,
54 RPI_LINE_GENERATE_SEQ,
55 RPI_LINE_CHARGE_LINE_NUM,
56 RPI_LINE_PRICE_BREAK_NUM,
57 DUNNING_RECEIVABLES_TRX_ID,
58 LAST_UPDATED_BY,
59 LAST_UPDATE_DATE,
60 LAST_UPDATE_LOGIN,
61 CREATED_BY,
62 CREATION_DATE,
63 ORG_ID
64 )
65 values
66 (
67 X_Set_Of_Books_Id,
68 X_Rpi_Header_Context_Code,
69 X_Rpi_Header_Charge_Id,
70 X_Rpi_Header_Generate_Seq,
71 X_Rpi_Line_Context_Code,
72 X_Rpi_Line_Charge_Id,
73 X_Rpi_Line_Generate_Seq,
74 X_Rpi_Line_Charge_Line_Num,
75 X_Rpi_Line_Price_Break_Num,
76 NULL, /*Inserting NULL as Dunning is obsolete*/
77 l_updated_by,
78 X_Last_Update_Date,
79 l_login_id,
80 l_created_by,
81 X_Creation_Date,
82 X_Org_Id
83 );
84
85 END Insert_Row;
86
87
88 PROCEDURE Update_Row(X_Rowid VARCHAR2,
89 X_Set_Of_Books_Id NUMBER,
90 -- X_Arc_Auto_Gl_Import_Flag VARCHAR2, /*Commented for R12 Uptake Bug No 5905216*/
91 -- X_Arc_Cash_Sob_Id NUMBER,
92 -- X_Arc_Unalloc_Rev_Ccid NUMBER,
93 -- X_Dunning_Receivables_Trx_Id NUMBER,
94 X_Rpi_Header_Context_Code VARCHAR2,
95 X_Rpi_Header_Charge_Id VARCHAR2,
96 X_Rpi_Header_Generate_Seq VARCHAR2,
97 X_Rpi_Line_Context_Code VARCHAR2,
98 X_Rpi_Line_Charge_Id VARCHAR2,
99 X_Rpi_Line_Generate_Seq VARCHAR2,
100 X_Rpi_Line_Charge_Line_Num VARCHAR2,
101 X_Rpi_Line_Price_Break_Num VARCHAR2,
102 X_Last_Updated_By NUMBER,
103 X_Last_Update_Date DATE,
104 X_Last_Update_Login NUMBER
105 -- X_Arc_Je_Source_Name VARCHAR2
106 ) IS
107 BEGIN
108
109 UPDATE igi_ar_system_options_all
110 SET
111 Set_Of_Books_Id = X_Set_Of_Books_Id,
112 -- Arc_Auto_Gl_Import_Flag = X_Arc_Auto_Gl_Import_Flag, /*Commented for R12 Uptake bug No 5905216*/
113 -- Arc_Cash_Sob_Id = X_Arc_Cash_Sob_Id,
114 -- Arc_Unalloc_Rev_Ccid = X_Arc_Unalloc_Rev_Ccid,
115 -- Dunning_Receivables_Trx_id = X_Dunning_Receivables_Trx_Id,
116 Rpi_Header_Context_Code = X_Rpi_Header_Context_Code,
117 Rpi_Header_Charge_Id = X_Rpi_Header_Charge_Id,
118 Rpi_Header_Generate_Seq = X_Rpi_Header_Generate_Seq,
119 Rpi_Line_Context_Code = X_Rpi_Line_Context_Code,
120 Rpi_Line_Charge_Id = X_Rpi_Line_Charge_Id,
121 Rpi_Line_Generate_Seq = X_Rpi_Line_Generate_Seq,
122 Rpi_Line_Charge_Line_Num = X_Rpi_Line_Charge_Line_Num,
123 Rpi_Line_Price_Break_Num = X_Rpi_Line_Price_Break_Num,
124 Last_Updated_By = X_Last_Updated_By,
125 Last_Update_Date = X_Last_Update_Date,
126 Last_Update_Login = X_Last_Update_Login
127 -- Arc_Je_Source_Name = X_Arc_Je_Source_Name
128 WHERE rowid = X_Rowid;
129 if (SQL%NOTFOUND) then
130 raise NO_DATA_FOUND;
131 end if;
132 END Update_Row;
133
134
135 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
136 X_Set_Of_Books_Id NUMBER,
137 -- X_Arc_Auto_Gl_Import_Flag VARCHAR2, /*Commented for R12 Uptake bug No 5905216*/
138 -- X_Arc_Cash_Sob_Id NUMBER,
139 -- X_Arc_Unalloc_Rev_Ccid NUMBER,
140 -- X_Dunning_Receivables_Trx_Id NUMBER,
141 X_Rpi_Header_Context_Code VARCHAR2,
142 X_Rpi_Header_Charge_Id VARCHAR2,
143 X_Rpi_Header_Generate_Seq VARCHAR2,
144 X_Rpi_Line_Context_Code VARCHAR2,
145 X_Rpi_Line_Charge_Id VARCHAR2,
146 X_Rpi_Line_Generate_Seq VARCHAR2,
147 X_Rpi_Line_Charge_Line_Num VARCHAR2,
148 X_Rpi_Line_Price_Break_Num VARCHAR2
149 -- X_Arc_Je_Source_Name VARCHAR2
150 ) IS
151 CURSOR C IS
152 SELECT *
153 FROM igi_ar_system_options_all
154 WHERE rowid = X_Rowid
155 FOR UPDATE of Set_Of_Books_Id NOWAIT;
156 Recinfo C%ROWTYPE;
157 BEGIN
158 OPEN C;
159 FETCH C INTO Recinfo;
160 if (C%NOTFOUND) then
161 CLOSE C;
162 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
163 IF ( l_excep_level >= l_debug_level ) THEN
164 FND_LOG.MESSAGE (l_excep_level,l_path || 'Lock_Row',FALSE);
165 END IF;
166 APP_EXCEPTION.Raise_Exception;
167 end if;
168 CLOSE C;
169
170 if (
171 (Recinfo.Set_Of_Books_Id = X_Set_Of_Books_Id)
172 -- AND ( (Recinfo.Arc_Auto_Gl_Import_Flag = X_Arc_Auto_Gl_Import_Flag)
173 -- OR ( (Recinfo.Arc_Auto_Gl_Import_Flag IS NULL)
174 -- AND (X_Arc_Auto_Gl_Import_Flag IS NULL)))
175 -- AND ( (Recinfo.Arc_Cash_Sob_Id = X_Arc_Cash_Sob_Id)
176 -- OR ( (Recinfo.Arc_Cash_Sob_Id IS NULL)
177 -- AND (X_Arc_Cash_Sob_Id IS NULL)))
178 -- AND ( (Recinfo.Arc_Unalloc_Rev_Ccid = X_Arc_Unalloc_Rev_Ccid)
179 -- OR ( (Recinfo.Arc_Unalloc_Rev_Ccid IS NULL)
180 -- AND (X_Arc_Unalloc_Rev_Ccid IS NULL)))
181 -- AND ( (Recinfo.Dunning_Receivables_Trx_Id = X_Dunning_Receivables_Trx_Id)
182 -- OR ( (Recinfo.Dunning_Receivables_Trx_Id IS NULL)
183 -- AND (X_Dunning_Receivables_Trx_Id IS NULL)))
184 AND ( (Recinfo.Rpi_Header_Context_Code = X_Rpi_Header_Context_Code)
185 OR ( (Recinfo.Rpi_Header_Context_Code IS NULL)
186 AND (X_Rpi_Header_Context_Code IS NULL)))
187 AND ( (Recinfo.Rpi_Header_Charge_Id = X_Rpi_Header_Charge_Id)
188 OR ( (Recinfo.Rpi_Header_Charge_Id IS NULL)
189 AND (X_Rpi_Header_Charge_Id IS NULL)))
190 AND ( (Recinfo.Rpi_Header_Generate_Seq = X_Rpi_Header_Generate_Seq)
191 OR ( (Recinfo.Rpi_Header_Generate_Seq IS NULL)
192 AND (X_Rpi_Header_Generate_Seq IS NULL)))
193 AND ( (Recinfo.Rpi_Line_Context_Code = X_Rpi_Line_Context_Code)
194 OR ( (Recinfo.Rpi_Line_Context_Code IS NULL)
195 AND (X_Rpi_Line_Context_Code IS NULL)))
196 AND ( (Recinfo.Rpi_Line_Charge_Id = X_Rpi_Line_Charge_Id)
197 OR ( (Recinfo.Rpi_Line_Charge_Id IS NULL)
198 AND (X_Rpi_Line_Charge_Id IS NULL)))
199 AND ( (Recinfo.Rpi_Line_Generate_Seq = X_Rpi_Line_Generate_Seq)
200 OR ( (Recinfo.Rpi_Line_Generate_Seq IS NULL)
201 AND (X_Rpi_Line_Generate_Seq IS NULL)))
202 AND ( (Recinfo.Rpi_Line_Charge_Line_Num = X_Rpi_Line_Charge_Line_Num)
203 OR ( (Recinfo.Rpi_Line_Charge_Line_Num IS NULL)
204 AND (X_Rpi_Line_Charge_Line_Num IS NULL)))
205 AND ( (Recinfo.Rpi_Line_Price_Break_Num = X_Rpi_Line_Price_Break_Num)
206 OR ( (Recinfo.Rpi_Line_Price_Break_Num IS NULL)
207 AND (X_Rpi_Line_Price_Break_Num IS NULL)))
208 -- AND ( (Recinfo.Arc_Je_Source_Name = X_Arc_Je_Source_Name)
209 -- OR ( (Recinfo.Arc_Je_Source_Name IS NULL)
210 -- AND (X_Arc_Je_Source_Name IS NULL)))
211
212 ) then
213 return;
214 else
215
216
217 FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
218 IF ( l_excep_level >= l_debug_level ) THEN
219 FND_LOG.MESSAGE (l_excep_level,l_path || 'Lock_Row',FALSE);
220 END IF;
221 APP_EXCEPTION.Raise_Exception;
222 end if;
223
224 END Lock_Row;
225
226 END IGI_AR_SYS_OPT_PKG;