eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.IBY_UPG_PPP_PKG

Source


1 package body IBY_UPG_PPP_PKG as
2   /* $Header: ibypppub.pls 120.3.12010000.2 2008/08/04 15:16:36 visundar ship $ */
3 
4 procedure INSERT_ROW (
5   X_ROWID in out nocopy VARCHAR2,
6   X_SYSTEM_PROFILE_CODE in VARCHAR2,
7   X_REMIT_PMT_DETAILS_LENGTH_LIM in NUMBER,
8   X_REMIT_REMITTANCE_ADVICE_FORM in VARCHAR2,
9   X_REMIT_SRA_OVERRIDE_PAYEE_FLA in VARCHAR2,
10   X_REMIT_ADVICE_DELIVERY_METHOD in VARCHAR2,
11   X_REMIT_AUTOMATIC_SRA_SUBMIT in VARCHAR2,
12   X_OBJECT_VERSION_NUMBER in NUMBER,
13   X_PMT_PAYMENT_DETAILS_FORMULA in VARCHAR2,
14   X_INST_GROUP_BY_LEGAL_ENTITY in VARCHAR2,
15   X_INST_GROUP_BY_BILL_PAYABLE in VARCHAR2,
16   X_INST_GROUP_BY_MAX_INSTRUCTIO in VARCHAR2,
17   X_INST_GROUP_BY_ORGANIZATION in VARCHAR2,
18   X_INST_GROUP_BY_PAYMENT_FUNCTI in VARCHAR2,
19   X_INST_GROUP_BY_PAYMENT_REASON in VARCHAR2,
20   X_INST_GROUP_BY_RFC in VARCHAR2,
21   X_INST_MAX_PAYMENTS_PER_INSTR in NUMBER,
22   X_INST_MAX_AMOUNT_PER_INSTR_VA in NUMBER,
23   X_INST_MAX_AMOUNT_PER_INSTR_CU in VARCHAR2,
24   X_INST_MAX_AMOUNT_FX_RATE_TYPE in VARCHAR2,
25   X_INST_SORT_OPTION_1 in VARCHAR2,
26   X_INST_SORT_ORDER_1 in VARCHAR2,
27   X_INST_SORT_OPTION_2 in VARCHAR2,
28   X_POSITIVE_PAY_DELIVERY_FLAG in VARCHAR2,
29   X_TRANSMIT_INSTR_IMMED_FLAG in VARCHAR2,
30   X_AUTOMATIC_PI_REG_SUBMIT in VARCHAR2,
31   X_PMT_GROUP_BY_DELIVERY_CHANNE in VARCHAR2,
32   X_PMT_GROUP_BY_REMITTANCE_MES in VARCHAR2,
33   X_PMT_GROUP_BY_MAX_DOCUMENTS in VARCHAR2,
34   X_PMT_GROUP_BY_UNIQUE_REMIT_ID in VARCHAR2,
35   X_PMT_GROUP_BY_SETTLE_PRIORITY in VARCHAR2,
36   X_PMT_GROUP_BY_PAYMENT_REASON in VARCHAR2,
37   X_PMT_GROUP_BY_DUE_DATE_FLAG in VARCHAR2,
38   X_PMT_MAX_DOCUMENTS_PER_PAYMEN in NUMBER,
39   X_PMT_PAYMENT_DETAILS_LENGTH_L in NUMBER,
40   X_PMT_GROUP_BY_PAYMENT_DETAILS in VARCHAR2,
41   X_PMT_GROUP_BY_BANK_CHARGE_BEA in VARCHAR2,
42   X_INST_SORT_ORDER_2 in VARCHAR2,
43   X_INST_SORT_OPTION_3 in VARCHAR2,
44   X_INST_SORT_ORDER_3 in VARCHAR2,
45   X_REMIT_DOCUMENT_COUNT_LIMIT in NUMBER,
46   X_REMIT_ALLOW_MULTIPLE_COPY_FL in VARCHAR2,
47   X_INST_GROUP_BY_PAYMENT_DATE in VARCHAR2,
48   X_INST_GROUP_BY_PAYMENT_CURREN in VARCHAR2,
49   X_INST_GROUP_BY_INT_BANK_ACCT in VARCHAR2,
50   X_INST_GROUP_BY_MAX_PAYMENTS in VARCHAR2,
51   X_INST_GROUP_BY_PAY_SERVICE_RE in VARCHAR2,
52   X_DCL_ONLY_FOREIGN_CURR_PMT_FL in VARCHAR2,
53   X_DECLARATION_REPORT_FORMAT_CO in VARCHAR2,
54   X_DECLARATION_CURR_FX_RATE_TYP in VARCHAR2,
55   X_DECLARATION_CURRENCY_CODE in VARCHAR2,
56   X_DECLARATION_THRESHOLD_AMOUNT in NUMBER,
57   X_BANK_INSTRUCTION1_CODE in VARCHAR2,
58   X_BANK_INSTRUCTION2_CODE in VARCHAR2,
59   X_BANK_INSTRUCTION_DETAILS in VARCHAR2,
60   X_PAYMENT_TEXT_MESSAGE1 in VARCHAR2,
61   X_PAYMENT_TEXT_MESSAGE2 in VARCHAR2,
62   X_ACK_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
63   X_ACK_SECURITY_PROTOCOL_CODE in VARCHAR2,
64   X_SEND_TO_FILE_FLAG in VARCHAR2,
65   X_PI_REGISTER_FORMAT in VARCHAR2,
66   X_BEP_ACCOUNT_ID in NUMBER,
67   X_APPLICABLE_PMT_METHOD in VARCHAR2,
68   X_APPLICABLE_CURRENCY in VARCHAR2,
69   X_APPLICABLE_PAYER_ORG in VARCHAR2,
70   X_APPLICABLE_INT_BANK_ACCOUNT in VARCHAR2,
71   X_BEP_SUFFIX in VARCHAR2,
72   X_SECURITY_PROTOCOL_CODE in VARCHAR2,
73   X_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
74   X_PAYMENT_FORMAT_CODE in VARCHAR2,
75   X_POSITIVE_PAY_FORMAT_CODE in VARCHAR2,
76   X_PAY_FILE_LETTER_FORMAT_CODE in VARCHAR2,
77   X_PRINT_INSTRUCTION_IMMED_FLAG in VARCHAR2,
78   X_PERIODIC_SEQUENCE_NAME_1 in VARCHAR2,
79   X_PERIODIC_SEQUENCE_NAME_2 in VARCHAR2,
80   X_PERIODIC_SEQUENCE_NAME_3 in VARCHAR2,
81   X_PROCESSING_TYPE in VARCHAR2,
82   X_MARK_COMPLETE_EVENT in VARCHAR2,
83   X_MANUAL_MARK_COMPLETE_FLAG in VARCHAR2,
84   X_DECLARATION_OPTION in VARCHAR2,
85   X_SYSTEM_PROFILE_NAME in VARCHAR2,
86   X_SYSTEM_PROFILE_DESCRIPTION in VARCHAR2,
87   X_CREATION_DATE in DATE,
88   X_CREATED_BY in NUMBER,
89   X_LAST_UPDATE_DATE in DATE,
90   X_LAST_UPDATED_BY in NUMBER,
91   X_LAST_UPDATE_LOGIN in NUMBER,
92   X_ELECTRONIC_PROCESSING_CHNNL in VARCHAR2,
93   X_LOGICAL_GROUPING_MODE in VARCHAR2,
94   X_BATCH_BOOKING_FLAG in VARCHAR2,
95   X_INST_GROUP_BY_PAYMENT_METHOD in VARCHAR2
96 ) is
97   cursor C is select ROWID from IBY_UPG_PPP_B
98     where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
99     ;
100 begin
101   insert into IBY_UPG_PPP_B (
102     REMIT_PMT_DETAILS_LENGTH_LIM,
103     REMIT_REMITTANCE_ADVICE_FORMAT,
104     REMIT_SRA_OVERRIDE_PAYEE_FLAG,
105     REMIT_ADVICE_DELIVERY_METHOD,
106     REMIT_AUTOMATIC_SRA_SUBMIT,
107     OBJECT_VERSION_NUMBER,
108     PMT_PAYMENT_DETAILS_FORMULA,
109     INST_GROUP_BY_LEGAL_ENTITY,
110     INST_GROUP_BY_BILL_PAYABLE,
111     INST_GROUP_BY_MAX_INSTRUCTION,
112     INST_GROUP_BY_ORGANIZATION,
113     INST_GROUP_BY_PAYMENT_FUNCTION,
114     INST_GROUP_BY_PAYMENT_REASON,
115     INST_GROUP_BY_RFC,
116     INST_MAX_PAYMENTS_PER_INSTR,
117     INST_MAX_AMOUNT_PER_INSTR_VAL,
118     INST_MAX_AMOUNT_PER_INSTR_CURR,
119     INST_MAX_AMOUNT_FX_RATE_TYPE,
120     INST_SORT_OPTION_1,
121     INST_SORT_ORDER_1,
122     INST_SORT_OPTION_2,
123     POSITIVE_PAY_DELIVERY_FLAG,
124     TRANSMIT_INSTR_IMMED_FLAG,
125     AUTOMATIC_PI_REG_SUBMIT,
126     PMT_GROUP_BY_DELIVERY_CHANNEL,
127     PMT_GROUP_BY_REMITTANCE_MES,
128     PMT_GROUP_BY_MAX_DOCUMENTS,
129     PMT_GROUP_BY_UNIQUE_REMIT_ID,
130     PMT_GROUP_BY_SETTLE_PRIORITY,
131     PMT_GROUP_BY_PAYMENT_REASON,
132     PMT_GROUP_BY_DUE_DATE_FLAG,
133     PMT_MAX_DOCUMENTS_PER_PAYMENT,
134     PMT_PAYMENT_DETAILS_LENGTH_LIM,
135     PMT_GROUP_BY_PAYMENT_DETAILS,
136     PMT_GROUP_BY_BANK_CHARGE_BEAR,
137     INST_SORT_ORDER_2,
138     INST_SORT_OPTION_3,
139     INST_SORT_ORDER_3,
140     REMIT_DOCUMENT_COUNT_LIMIT,
141     REMIT_ALLOW_MULTIPLE_COPY_FLAG,
142     INST_GROUP_BY_PAYMENT_DATE,
143     INST_GROUP_BY_PAYMENT_CURRENCY,
144     INST_GROUP_BY_INT_BANK_ACCT,
145     INST_GROUP_BY_MAX_PAYMENTS,
146     INST_GROUP_BY_PAY_SERVICE_REQ,
147     DCL_ONLY_FOREIGN_CURR_PMT_FLAG,
148     DECLARATION_REPORT_FORMAT_CODE,
149     DECLARATION_CURR_FX_RATE_TYPE,
150     DECLARATION_CURRENCY_CODE,
151     DECLARATION_THRESHOLD_AMOUNT,
152     BANK_INSTRUCTION1_CODE,
153     BANK_INSTRUCTION2_CODE,
154     BANK_INSTRUCTION_DETAILS,
155     PAYMENT_TEXT_MESSAGE1,
156     PAYMENT_TEXT_MESSAGE2,
157     ACK_TRANSMIT_PROTOCOL_CODE,
158     ACK_SECURITY_PROTOCOL_CODE,
159     SEND_TO_FILE_FLAG,
160     PI_REGISTER_FORMAT,
161     BEP_ACCOUNT_ID,
162     APPLICABLE_PMT_METHOD,
163     APPLICABLE_CURRENCY,
164     APPLICABLE_PAYER_ORG,
165     APPLICABLE_INT_BANK_ACCOUNT,
166     SYSTEM_PROFILE_CODE,
167     BEP_SUFFIX,
168     SECURITY_PROTOCOL_CODE,
169     TRANSMIT_PROTOCOL_CODE,
170     PAYMENT_FORMAT_CODE,
171     POSITIVE_PAY_FORMAT_CODE,
172     PAY_FILE_LETTER_FORMAT_CODE,
173     PRINT_INSTRUCTION_IMMED_FLAG,
174     PERIODIC_SEQUENCE_NAME_1,
175     PERIODIC_SEQUENCE_NAME_2,
176     PERIODIC_SEQUENCE_NAME_3,
177     PROCESSING_TYPE,
178     MARK_COMPLETE_EVENT,
179     MANUAL_MARK_COMPLETE_FLAG,
180     DECLARATION_OPTION,
181     CREATION_DATE,
182     CREATED_BY,
183     LAST_UPDATE_DATE,
184     LAST_UPDATED_BY,
185     LAST_UPDATE_LOGIN,
186     ELECTRONIC_PROCESSING_CHANNEL,
187     LOGICAL_GROUPING_MODE,
188     BATCH_BOOKING_FLAG,
189     INST_GROUP_BY_PAYMENT_METHOD
190   ) values (
191     X_REMIT_PMT_DETAILS_LENGTH_LIM,
192     X_REMIT_REMITTANCE_ADVICE_FORM,
193     X_REMIT_SRA_OVERRIDE_PAYEE_FLA,
194     X_REMIT_ADVICE_DELIVERY_METHOD,
195     X_REMIT_AUTOMATIC_SRA_SUBMIT,
196     X_OBJECT_VERSION_NUMBER,
197     X_PMT_PAYMENT_DETAILS_FORMULA,
198     X_INST_GROUP_BY_LEGAL_ENTITY,
199     X_INST_GROUP_BY_BILL_PAYABLE,
200     X_INST_GROUP_BY_MAX_INSTRUCTIO,
201     X_INST_GROUP_BY_ORGANIZATION,
202     X_INST_GROUP_BY_PAYMENT_FUNCTI,
203     X_INST_GROUP_BY_PAYMENT_REASON,
204     X_INST_GROUP_BY_RFC,
205     X_INST_MAX_PAYMENTS_PER_INSTR,
206     X_INST_MAX_AMOUNT_PER_INSTR_VA,
207     X_INST_MAX_AMOUNT_PER_INSTR_CU,
208     X_INST_MAX_AMOUNT_FX_RATE_TYPE,
209     X_INST_SORT_OPTION_1,
210     X_INST_SORT_ORDER_1,
211     X_INST_SORT_OPTION_2,
212     X_POSITIVE_PAY_DELIVERY_FLAG,
213     X_TRANSMIT_INSTR_IMMED_FLAG,
214     X_AUTOMATIC_PI_REG_SUBMIT,
215     X_PMT_GROUP_BY_DELIVERY_CHANNE,
216     X_PMT_GROUP_BY_REMITTANCE_MES,
217     X_PMT_GROUP_BY_MAX_DOCUMENTS,
218     X_PMT_GROUP_BY_UNIQUE_REMIT_ID,
219     X_PMT_GROUP_BY_SETTLE_PRIORITY,
220     X_PMT_GROUP_BY_PAYMENT_REASON,
221     X_PMT_GROUP_BY_DUE_DATE_FLAG,
222     X_PMT_MAX_DOCUMENTS_PER_PAYMEN,
223     X_PMT_PAYMENT_DETAILS_LENGTH_L,
224     X_PMT_GROUP_BY_PAYMENT_DETAILS,
225     X_PMT_GROUP_BY_BANK_CHARGE_BEA,
226     X_INST_SORT_ORDER_2,
227     X_INST_SORT_OPTION_3,
228     X_INST_SORT_ORDER_3,
229     X_REMIT_DOCUMENT_COUNT_LIMIT,
230     X_REMIT_ALLOW_MULTIPLE_COPY_FL,
231     X_INST_GROUP_BY_PAYMENT_DATE,
232     X_INST_GROUP_BY_PAYMENT_CURREN,
233     X_INST_GROUP_BY_INT_BANK_ACCT,
234     X_INST_GROUP_BY_MAX_PAYMENTS,
235     X_INST_GROUP_BY_PAY_SERVICE_RE,
236     X_DCL_ONLY_FOREIGN_CURR_PMT_FL,
237     X_DECLARATION_REPORT_FORMAT_CO,
238     X_DECLARATION_CURR_FX_RATE_TYP,
239     X_DECLARATION_CURRENCY_CODE,
240     X_DECLARATION_THRESHOLD_AMOUNT,
241     X_BANK_INSTRUCTION1_CODE,
242     X_BANK_INSTRUCTION2_CODE,
243     X_BANK_INSTRUCTION_DETAILS,
244     X_PAYMENT_TEXT_MESSAGE1,
245     X_PAYMENT_TEXT_MESSAGE2,
246     X_ACK_TRANSMIT_PROTOCOL_CODE,
247     X_ACK_SECURITY_PROTOCOL_CODE,
248     X_SEND_TO_FILE_FLAG,
249     X_PI_REGISTER_FORMAT,
250     X_BEP_ACCOUNT_ID,
251     X_APPLICABLE_PMT_METHOD,
252     X_APPLICABLE_CURRENCY,
253     X_APPLICABLE_PAYER_ORG,
254     X_APPLICABLE_INT_BANK_ACCOUNT,
255     X_SYSTEM_PROFILE_CODE,
256     X_BEP_SUFFIX,
257     X_SECURITY_PROTOCOL_CODE,
258     X_TRANSMIT_PROTOCOL_CODE,
259     X_PAYMENT_FORMAT_CODE,
260     X_POSITIVE_PAY_FORMAT_CODE,
261     X_PAY_FILE_LETTER_FORMAT_CODE,
262     X_PRINT_INSTRUCTION_IMMED_FLAG,
263     X_PERIODIC_SEQUENCE_NAME_1,
264     X_PERIODIC_SEQUENCE_NAME_2,
265     X_PERIODIC_SEQUENCE_NAME_3,
266     X_PROCESSING_TYPE,
267     X_MARK_COMPLETE_EVENT,
268     X_MANUAL_MARK_COMPLETE_FLAG,
269     X_DECLARATION_OPTION,
270     X_CREATION_DATE,
271     X_CREATED_BY,
272     X_LAST_UPDATE_DATE,
273     X_LAST_UPDATED_BY,
274     X_LAST_UPDATE_LOGIN,
275     X_ELECTRONIC_PROCESSING_CHNNL,
276     X_LOGICAL_GROUPING_MODE,
277     X_BATCH_BOOKING_FLAG,
278     X_INST_GROUP_BY_PAYMENT_METHOD
279   );
280 
281   insert into IBY_UPG_PPP_TL (
282     SYSTEM_PROFILE_CODE,
283     SYSTEM_PROFILE_NAME,
284     SYSTEM_PROFILE_DESCRIPTION,
285     CREATED_BY,
286     CREATION_DATE,
287     LAST_UPDATED_BY,
288     LAST_UPDATE_DATE,
289     LAST_UPDATE_LOGIN,
290     OBJECT_VERSION_NUMBER,
291     LANGUAGE,
292     SOURCE_LANG
293   ) select
294     X_SYSTEM_PROFILE_CODE,
295     X_SYSTEM_PROFILE_NAME,
296     X_SYSTEM_PROFILE_DESCRIPTION,
297     X_CREATED_BY,
298     X_CREATION_DATE,
299     X_LAST_UPDATED_BY,
300     X_LAST_UPDATE_DATE,
301     X_LAST_UPDATE_LOGIN,
302     X_OBJECT_VERSION_NUMBER,
303     L.LANGUAGE_CODE,
304     userenv('LANG')
305   from FND_LANGUAGES L
306   where L.INSTALLED_FLAG in ('I', 'B')
307   and not exists
308     (select NULL
309     from IBY_UPG_PPP_TL T
310     where T.SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
311     and T.LANGUAGE = L.LANGUAGE_CODE);
312 
313   open c;
314   fetch c into X_ROWID;
315   if (c%notfound) then
316     close c;
317     raise no_data_found;
318   end if;
319   close c;
320 
321 end INSERT_ROW;
322 
323 procedure LOCK_ROW (
324   X_SYSTEM_PROFILE_CODE in VARCHAR2,
325   X_REMIT_PMT_DETAILS_LENGTH_LIM in NUMBER,
326   X_REMIT_REMITTANCE_ADVICE_FORM in VARCHAR2,
327   X_REMIT_SRA_OVERRIDE_PAYEE_FLA in VARCHAR2,
328   X_REMIT_ADVICE_DELIVERY_METHOD in VARCHAR2,
329   X_REMIT_AUTOMATIC_SRA_SUBMIT in VARCHAR2,
330   X_OBJECT_VERSION_NUMBER in NUMBER,
331   X_PMT_PAYMENT_DETAILS_FORMULA in VARCHAR2,
332   X_INST_GROUP_BY_LEGAL_ENTITY in VARCHAR2,
333   X_INST_GROUP_BY_BILL_PAYABLE in VARCHAR2,
334   X_INST_GROUP_BY_MAX_INSTRUCTIO in VARCHAR2,
335   X_INST_GROUP_BY_ORGANIZATION in VARCHAR2,
336   X_INST_GROUP_BY_PAYMENT_FUNCTI in VARCHAR2,
337   X_INST_GROUP_BY_PAYMENT_REASON in VARCHAR2,
338   X_INST_GROUP_BY_RFC in VARCHAR2,
339   X_INST_MAX_PAYMENTS_PER_INSTR in NUMBER,
340   X_INST_MAX_AMOUNT_PER_INSTR_VA in NUMBER,
341   X_INST_MAX_AMOUNT_PER_INSTR_CU in VARCHAR2,
342   X_INST_MAX_AMOUNT_FX_RATE_TYPE in VARCHAR2,
343   X_INST_SORT_OPTION_1 in VARCHAR2,
344   X_INST_SORT_ORDER_1 in VARCHAR2,
345   X_INST_SORT_OPTION_2 in VARCHAR2,
346   X_POSITIVE_PAY_DELIVERY_FLAG in VARCHAR2,
347   X_TRANSMIT_INSTR_IMMED_FLAG in VARCHAR2,
348   X_AUTOMATIC_PI_REG_SUBMIT in VARCHAR2,
349   X_PMT_GROUP_BY_DELIVERY_CHANNE in VARCHAR2,
350   X_PMT_GROUP_BY_REMITTANCE_MES in VARCHAR2,
351   X_PMT_GROUP_BY_MAX_DOCUMENTS in VARCHAR2,
352   X_PMT_GROUP_BY_UNIQUE_REMIT_ID in VARCHAR2,
353   X_PMT_GROUP_BY_SETTLE_PRIORITY in VARCHAR2,
354   X_PMT_GROUP_BY_PAYMENT_REASON in VARCHAR2,
355   X_PMT_GROUP_BY_DUE_DATE_FLAG in VARCHAR2,
356   X_PMT_MAX_DOCUMENTS_PER_PAYMEN in NUMBER,
357   X_PMT_PAYMENT_DETAILS_LENGTH_L in NUMBER,
358   X_PMT_GROUP_BY_PAYMENT_DETAILS in VARCHAR2,
359   X_PMT_GROUP_BY_BANK_CHARGE_BEA in VARCHAR2,
360   X_INST_SORT_ORDER_2 in VARCHAR2,
361   X_INST_SORT_OPTION_3 in VARCHAR2,
362   X_INST_SORT_ORDER_3 in VARCHAR2,
363   X_REMIT_DOCUMENT_COUNT_LIMIT in NUMBER,
364   X_REMIT_ALLOW_MULTIPLE_COPY_FL in VARCHAR2,
365   X_INST_GROUP_BY_PAYMENT_DATE in VARCHAR2,
366   X_INST_GROUP_BY_PAYMENT_CURREN in VARCHAR2,
367   X_INST_GROUP_BY_INT_BANK_ACCT in VARCHAR2,
368   X_INST_GROUP_BY_MAX_PAYMENTS in VARCHAR2,
369   X_INST_GROUP_BY_PAY_SERVICE_RE in VARCHAR2,
370   X_DCL_ONLY_FOREIGN_CURR_PMT_FL in VARCHAR2,
371   X_DECLARATION_REPORT_FORMAT_CO in VARCHAR2,
372   X_DECLARATION_CURR_FX_RATE_TYP in VARCHAR2,
373   X_DECLARATION_CURRENCY_CODE in VARCHAR2,
374   X_DECLARATION_THRESHOLD_AMOUNT in NUMBER,
375   X_BANK_INSTRUCTION1_CODE in VARCHAR2,
376   X_BANK_INSTRUCTION2_CODE in VARCHAR2,
377   X_BANK_INSTRUCTION_DETAILS in VARCHAR2,
378   X_PAYMENT_TEXT_MESSAGE1 in VARCHAR2,
379   X_PAYMENT_TEXT_MESSAGE2 in VARCHAR2,
380   X_ACK_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
381   X_ACK_SECURITY_PROTOCOL_CODE in VARCHAR2,
382   X_SEND_TO_FILE_FLAG in VARCHAR2,
383   X_PI_REGISTER_FORMAT in VARCHAR2,
384   X_BEP_ACCOUNT_ID in NUMBER,
385   X_APPLICABLE_PMT_METHOD in VARCHAR2,
386   X_APPLICABLE_CURRENCY in VARCHAR2,
387   X_APPLICABLE_PAYER_ORG in VARCHAR2,
388   X_APPLICABLE_INT_BANK_ACCOUNT in VARCHAR2,
389   X_BEP_SUFFIX in VARCHAR2,
390   X_SECURITY_PROTOCOL_CODE in VARCHAR2,
391   X_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
392   X_PAYMENT_FORMAT_CODE in VARCHAR2,
393   X_POSITIVE_PAY_FORMAT_CODE in VARCHAR2,
394   X_PAY_FILE_LETTER_FORMAT_CODE in VARCHAR2,
395   X_PRINT_INSTRUCTION_IMMED_FLAG in VARCHAR2,
396   X_PERIODIC_SEQUENCE_NAME_1 in VARCHAR2,
397   X_PERIODIC_SEQUENCE_NAME_2 in VARCHAR2,
398   X_PERIODIC_SEQUENCE_NAME_3 in VARCHAR2,
399   X_PROCESSING_TYPE in VARCHAR2,
400   X_MARK_COMPLETE_EVENT in VARCHAR2,
401   X_MANUAL_MARK_COMPLETE_FLAG in VARCHAR2,
402   X_DECLARATION_OPTION in VARCHAR2,
403   X_SYSTEM_PROFILE_NAME in VARCHAR2,
404   X_SYSTEM_PROFILE_DESCRIPTION in VARCHAR2,
405   X_ELECTRONIC_PROCESSING_CHNNL in VARCHAR2,
406   X_LOGICAL_GROUPING_MODE in VARCHAR2,
407   X_BATCH_BOOKING_FLAG in VARCHAR2,
408   X_INST_GROUP_BY_PAYMENT_METHOD in VARCHAR2
409 ) is
410   cursor c is select
411       REMIT_PMT_DETAILS_LENGTH_LIM,
412       REMIT_REMITTANCE_ADVICE_FORMAT,
413       REMIT_SRA_OVERRIDE_PAYEE_FLAG,
414       REMIT_ADVICE_DELIVERY_METHOD,
415       REMIT_AUTOMATIC_SRA_SUBMIT,
416       OBJECT_VERSION_NUMBER,
417       PMT_PAYMENT_DETAILS_FORMULA,
418       INST_GROUP_BY_LEGAL_ENTITY,
419       INST_GROUP_BY_BILL_PAYABLE,
420       INST_GROUP_BY_MAX_INSTRUCTION,
421       INST_GROUP_BY_ORGANIZATION,
422       INST_GROUP_BY_PAYMENT_FUNCTION,
423       INST_GROUP_BY_PAYMENT_REASON,
424       INST_GROUP_BY_RFC,
425       INST_MAX_PAYMENTS_PER_INSTR,
426       INST_MAX_AMOUNT_PER_INSTR_VAL,
427       INST_MAX_AMOUNT_PER_INSTR_CURR,
428       INST_MAX_AMOUNT_FX_RATE_TYPE,
429       INST_SORT_OPTION_1,
430       INST_SORT_ORDER_1,
431       INST_SORT_OPTION_2,
432       POSITIVE_PAY_DELIVERY_FLAG,
433       TRANSMIT_INSTR_IMMED_FLAG,
434       AUTOMATIC_PI_REG_SUBMIT,
435       PMT_GROUP_BY_DELIVERY_CHANNEL,
436       PMT_GROUP_BY_REMITTANCE_MES,
437       PMT_GROUP_BY_MAX_DOCUMENTS,
438       PMT_GROUP_BY_UNIQUE_REMIT_ID,
439       PMT_GROUP_BY_SETTLE_PRIORITY,
440       PMT_GROUP_BY_PAYMENT_REASON,
441       PMT_GROUP_BY_DUE_DATE_FLAG,
442       PMT_MAX_DOCUMENTS_PER_PAYMENT,
443       PMT_PAYMENT_DETAILS_LENGTH_LIM,
444       PMT_GROUP_BY_PAYMENT_DETAILS,
445       PMT_GROUP_BY_BANK_CHARGE_BEAR,
446       INST_SORT_ORDER_2,
447       INST_SORT_OPTION_3,
448       INST_SORT_ORDER_3,
449       REMIT_DOCUMENT_COUNT_LIMIT,
450       REMIT_ALLOW_MULTIPLE_COPY_FLAG,
451       INST_GROUP_BY_PAYMENT_DATE,
452       INST_GROUP_BY_PAYMENT_CURRENCY,
453       INST_GROUP_BY_INT_BANK_ACCT,
454       INST_GROUP_BY_MAX_PAYMENTS,
455       INST_GROUP_BY_PAY_SERVICE_REQ,
456       DCL_ONLY_FOREIGN_CURR_PMT_FLAG,
457       DECLARATION_REPORT_FORMAT_CODE,
458       DECLARATION_CURR_FX_RATE_TYPE,
459       DECLARATION_CURRENCY_CODE,
460       DECLARATION_THRESHOLD_AMOUNT,
461       BANK_INSTRUCTION1_CODE,
462       BANK_INSTRUCTION2_CODE,
463       BANK_INSTRUCTION_DETAILS,
464       PAYMENT_TEXT_MESSAGE1,
465       PAYMENT_TEXT_MESSAGE2,
466       ACK_TRANSMIT_PROTOCOL_CODE,
467       ACK_SECURITY_PROTOCOL_CODE,
468       SEND_TO_FILE_FLAG,
469       PI_REGISTER_FORMAT,
470       BEP_ACCOUNT_ID,
471       APPLICABLE_PMT_METHOD,
472       APPLICABLE_CURRENCY,
473       APPLICABLE_PAYER_ORG,
474       APPLICABLE_INT_BANK_ACCOUNT,
475       BEP_SUFFIX,
476       SECURITY_PROTOCOL_CODE,
477       TRANSMIT_PROTOCOL_CODE,
478       PAYMENT_FORMAT_CODE,
479       POSITIVE_PAY_FORMAT_CODE,
480       PAY_FILE_LETTER_FORMAT_CODE,
481       PRINT_INSTRUCTION_IMMED_FLAG,
482       PERIODIC_SEQUENCE_NAME_1,
483       PERIODIC_SEQUENCE_NAME_2,
484       PERIODIC_SEQUENCE_NAME_3,
485       PROCESSING_TYPE,
486       MARK_COMPLETE_EVENT,
487       MANUAL_MARK_COMPLETE_FLAG,
488       DECLARATION_OPTION,
489       ELECTRONIC_PROCESSING_CHANNEL,
490       LOGICAL_GROUPING_MODE,
491       BATCH_BOOKING_FLAG,
492       INST_GROUP_BY_PAYMENT_METHOD
493     from IBY_UPG_PPP_B
494     where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
495     for update of SYSTEM_PROFILE_CODE nowait;
496   recinfo c%rowtype;
497 
498   cursor c1 is select
499       SYSTEM_PROFILE_NAME,
500       SYSTEM_PROFILE_DESCRIPTION,
501       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
502     from IBY_UPG_PPP_TL
503     where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
504     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
505     for update of SYSTEM_PROFILE_CODE nowait;
506 begin
507   open c;
508   fetch c into recinfo;
509   if (c%notfound) then
510     close c;
511     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
512     app_exception.raise_exception;
513   end if;
514   close c;
515   if (    ((recinfo.REMIT_PMT_DETAILS_LENGTH_LIM = X_REMIT_PMT_DETAILS_LENGTH_LIM)
516            OR ((recinfo.REMIT_PMT_DETAILS_LENGTH_LIM is null) AND (X_REMIT_PMT_DETAILS_LENGTH_LIM is null)))
517       AND ((recinfo.REMIT_REMITTANCE_ADVICE_FORMAT = X_REMIT_REMITTANCE_ADVICE_FORM)
518            OR ((recinfo.REMIT_REMITTANCE_ADVICE_FORMAT is null) AND (X_REMIT_REMITTANCE_ADVICE_FORM is null)))
519       AND (recinfo.REMIT_SRA_OVERRIDE_PAYEE_FLAG = X_REMIT_SRA_OVERRIDE_PAYEE_FLA)
520       AND ((recinfo.REMIT_ADVICE_DELIVERY_METHOD = X_REMIT_ADVICE_DELIVERY_METHOD)
521            OR ((recinfo.REMIT_ADVICE_DELIVERY_METHOD is null) AND (X_REMIT_ADVICE_DELIVERY_METHOD is null)))
522       AND (recinfo.REMIT_AUTOMATIC_SRA_SUBMIT = X_REMIT_AUTOMATIC_SRA_SUBMIT)
523       AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
524       AND ((recinfo.PMT_PAYMENT_DETAILS_FORMULA = X_PMT_PAYMENT_DETAILS_FORMULA)
525            OR ((recinfo.PMT_PAYMENT_DETAILS_FORMULA is null) AND (X_PMT_PAYMENT_DETAILS_FORMULA is null)))
526       AND (recinfo.INST_GROUP_BY_LEGAL_ENTITY = X_INST_GROUP_BY_LEGAL_ENTITY)
527       AND (recinfo.INST_GROUP_BY_BILL_PAYABLE = X_INST_GROUP_BY_BILL_PAYABLE)
528       AND (recinfo.INST_GROUP_BY_MAX_INSTRUCTION = X_INST_GROUP_BY_MAX_INSTRUCTIO)
529       AND (recinfo.INST_GROUP_BY_ORGANIZATION = X_INST_GROUP_BY_ORGANIZATION)
530       AND (recinfo.INST_GROUP_BY_PAYMENT_FUNCTION = X_INST_GROUP_BY_PAYMENT_FUNCTI)
531       AND (recinfo.INST_GROUP_BY_PAYMENT_REASON = X_INST_GROUP_BY_PAYMENT_REASON)
532       AND (recinfo.INST_GROUP_BY_RFC = X_INST_GROUP_BY_RFC)
533       AND ((recinfo.INST_MAX_PAYMENTS_PER_INSTR = X_INST_MAX_PAYMENTS_PER_INSTR)
534            OR ((recinfo.INST_MAX_PAYMENTS_PER_INSTR is null) AND (X_INST_MAX_PAYMENTS_PER_INSTR is null)))
535       AND ((recinfo.INST_MAX_AMOUNT_PER_INSTR_VAL = X_INST_MAX_AMOUNT_PER_INSTR_VA)
536            OR ((recinfo.INST_MAX_AMOUNT_PER_INSTR_VAL is null) AND (X_INST_MAX_AMOUNT_PER_INSTR_VA is null)))
537       AND ((recinfo.INST_MAX_AMOUNT_PER_INSTR_CURR = X_INST_MAX_AMOUNT_PER_INSTR_CU)
538            OR ((recinfo.INST_MAX_AMOUNT_PER_INSTR_CURR is null) AND (X_INST_MAX_AMOUNT_PER_INSTR_CU is null)))
539       AND ((recinfo.INST_MAX_AMOUNT_FX_RATE_TYPE = X_INST_MAX_AMOUNT_FX_RATE_TYPE)
540            OR ((recinfo.INST_MAX_AMOUNT_FX_RATE_TYPE is null) AND (X_INST_MAX_AMOUNT_FX_RATE_TYPE is null)))
541       AND ((recinfo.INST_SORT_OPTION_1 = X_INST_SORT_OPTION_1)
542            OR ((recinfo.INST_SORT_OPTION_1 is null) AND (X_INST_SORT_OPTION_1 is null)))
543       AND ((recinfo.INST_SORT_ORDER_1 = X_INST_SORT_ORDER_1)
544            OR ((recinfo.INST_SORT_ORDER_1 is null) AND (X_INST_SORT_ORDER_1 is null)))
545       AND ((recinfo.INST_SORT_OPTION_2 = X_INST_SORT_OPTION_2)
546            OR ((recinfo.INST_SORT_OPTION_2 is null) AND (X_INST_SORT_OPTION_2 is null)))
547       AND (recinfo.POSITIVE_PAY_DELIVERY_FLAG = X_POSITIVE_PAY_DELIVERY_FLAG)
548       AND (recinfo.TRANSMIT_INSTR_IMMED_FLAG = X_TRANSMIT_INSTR_IMMED_FLAG)
549       AND (recinfo.AUTOMATIC_PI_REG_SUBMIT = X_AUTOMATIC_PI_REG_SUBMIT)
550       AND (recinfo.PMT_GROUP_BY_DELIVERY_CHANNEL = X_PMT_GROUP_BY_DELIVERY_CHANNE)
551       AND (recinfo.PMT_GROUP_BY_REMITTANCE_MES = X_PMT_GROUP_BY_REMITTANCE_MES)
552       AND (recinfo.PMT_GROUP_BY_MAX_DOCUMENTS = X_PMT_GROUP_BY_MAX_DOCUMENTS)
553       AND (recinfo.PMT_GROUP_BY_UNIQUE_REMIT_ID = X_PMT_GROUP_BY_UNIQUE_REMIT_ID)
554       AND (recinfo.PMT_GROUP_BY_SETTLE_PRIORITY = X_PMT_GROUP_BY_SETTLE_PRIORITY)
555       AND (recinfo.PMT_GROUP_BY_PAYMENT_REASON = X_PMT_GROUP_BY_PAYMENT_REASON)
556       AND (recinfo.PMT_GROUP_BY_DUE_DATE_FLAG = X_PMT_GROUP_BY_DUE_DATE_FLAG)
557       AND ((recinfo.PMT_MAX_DOCUMENTS_PER_PAYMENT = X_PMT_MAX_DOCUMENTS_PER_PAYMEN)
558            OR ((recinfo.PMT_MAX_DOCUMENTS_PER_PAYMENT is null) AND (X_PMT_MAX_DOCUMENTS_PER_PAYMEN is null)))
559       AND ((recinfo.PMT_PAYMENT_DETAILS_LENGTH_LIM = X_PMT_PAYMENT_DETAILS_LENGTH_L)
560            OR ((recinfo.PMT_PAYMENT_DETAILS_LENGTH_LIM is null) AND (X_PMT_PAYMENT_DETAILS_LENGTH_L is null)))
561       AND (recinfo.PMT_GROUP_BY_PAYMENT_DETAILS = X_PMT_GROUP_BY_PAYMENT_DETAILS)
562       AND (recinfo.PMT_GROUP_BY_BANK_CHARGE_BEAR = X_PMT_GROUP_BY_BANK_CHARGE_BEA)
563       AND ((recinfo.INST_SORT_ORDER_2 = X_INST_SORT_ORDER_2)
564            OR ((recinfo.INST_SORT_ORDER_2 is null) AND (X_INST_SORT_ORDER_2 is null)))
565       AND ((recinfo.INST_SORT_OPTION_3 = X_INST_SORT_OPTION_3)
566            OR ((recinfo.INST_SORT_OPTION_3 is null) AND (X_INST_SORT_OPTION_3 is null)))
567       AND ((recinfo.INST_SORT_ORDER_3 = X_INST_SORT_ORDER_3)
568            OR ((recinfo.INST_SORT_ORDER_3 is null) AND (X_INST_SORT_ORDER_3 is null)))
569       AND ((recinfo.REMIT_DOCUMENT_COUNT_LIMIT = X_REMIT_DOCUMENT_COUNT_LIMIT)
570            OR ((recinfo.REMIT_DOCUMENT_COUNT_LIMIT is null) AND (X_REMIT_DOCUMENT_COUNT_LIMIT is null)))
571       AND ((recinfo.REMIT_ALLOW_MULTIPLE_COPY_FLAG = X_REMIT_ALLOW_MULTIPLE_COPY_FL)
572            OR ((recinfo.REMIT_ALLOW_MULTIPLE_COPY_FLAG is null) AND (X_REMIT_ALLOW_MULTIPLE_COPY_FL is null)))
573       AND (recinfo.INST_GROUP_BY_PAYMENT_DATE = X_INST_GROUP_BY_PAYMENT_DATE)
574       AND (recinfo.INST_GROUP_BY_PAYMENT_CURRENCY = X_INST_GROUP_BY_PAYMENT_CURREN)
575       AND (recinfo.INST_GROUP_BY_INT_BANK_ACCT = X_INST_GROUP_BY_INT_BANK_ACCT)
576       AND (recinfo.INST_GROUP_BY_MAX_PAYMENTS = X_INST_GROUP_BY_MAX_PAYMENTS)
577       AND (recinfo.INST_GROUP_BY_PAY_SERVICE_REQ = X_INST_GROUP_BY_PAY_SERVICE_RE)
578       AND ((recinfo.DCL_ONLY_FOREIGN_CURR_PMT_FLAG = X_DCL_ONLY_FOREIGN_CURR_PMT_FL)
579            OR ((recinfo.DCL_ONLY_FOREIGN_CURR_PMT_FLAG is null) AND (X_DCL_ONLY_FOREIGN_CURR_PMT_FL is null)))
580       AND ((recinfo.DECLARATION_REPORT_FORMAT_CODE = X_DECLARATION_REPORT_FORMAT_CO)
581            OR ((recinfo.DECLARATION_REPORT_FORMAT_CODE is null) AND (X_DECLARATION_REPORT_FORMAT_CO is null)))
582       AND ((recinfo.DECLARATION_CURR_FX_RATE_TYPE = X_DECLARATION_CURR_FX_RATE_TYP)
583            OR ((recinfo.DECLARATION_CURR_FX_RATE_TYPE is null) AND (X_DECLARATION_CURR_FX_RATE_TYP is null)))
584       AND ((recinfo.DECLARATION_CURRENCY_CODE = X_DECLARATION_CURRENCY_CODE)
585            OR ((recinfo.DECLARATION_CURRENCY_CODE is null) AND (X_DECLARATION_CURRENCY_CODE is null)))
586       AND ((recinfo.DECLARATION_THRESHOLD_AMOUNT = X_DECLARATION_THRESHOLD_AMOUNT)
587            OR ((recinfo.DECLARATION_THRESHOLD_AMOUNT is null) AND (X_DECLARATION_THRESHOLD_AMOUNT is null)))
588       AND ((recinfo.BANK_INSTRUCTION1_CODE = X_BANK_INSTRUCTION1_CODE)
589            OR ((recinfo.BANK_INSTRUCTION1_CODE is null) AND (X_BANK_INSTRUCTION1_CODE is null)))
590       AND ((recinfo.BANK_INSTRUCTION2_CODE = X_BANK_INSTRUCTION2_CODE)
591            OR ((recinfo.BANK_INSTRUCTION2_CODE is null) AND (X_BANK_INSTRUCTION2_CODE is null)))
592       AND ((recinfo.BANK_INSTRUCTION_DETAILS = X_BANK_INSTRUCTION_DETAILS)
593            OR ((recinfo.BANK_INSTRUCTION_DETAILS is null) AND (X_BANK_INSTRUCTION_DETAILS is null)))
594       AND ((recinfo.PAYMENT_TEXT_MESSAGE1 = X_PAYMENT_TEXT_MESSAGE1)
595            OR ((recinfo.PAYMENT_TEXT_MESSAGE1 is null) AND (X_PAYMENT_TEXT_MESSAGE1 is null)))
596       AND ((recinfo.PAYMENT_TEXT_MESSAGE2 = X_PAYMENT_TEXT_MESSAGE2)
597            OR ((recinfo.PAYMENT_TEXT_MESSAGE2 is null) AND (X_PAYMENT_TEXT_MESSAGE2 is null)))
598       AND ((recinfo.ACK_TRANSMIT_PROTOCOL_CODE = X_ACK_TRANSMIT_PROTOCOL_CODE)
599            OR ((recinfo.ACK_TRANSMIT_PROTOCOL_CODE is null) AND (X_ACK_TRANSMIT_PROTOCOL_CODE is null)))
600       AND ((recinfo.ACK_SECURITY_PROTOCOL_CODE = X_ACK_SECURITY_PROTOCOL_CODE)
601            OR ((recinfo.ACK_SECURITY_PROTOCOL_CODE is null) AND (X_ACK_SECURITY_PROTOCOL_CODE is null)))
602       AND (recinfo.SEND_TO_FILE_FLAG = X_SEND_TO_FILE_FLAG)
603       AND ((recinfo.PI_REGISTER_FORMAT = X_PI_REGISTER_FORMAT)
604            OR ((recinfo.PI_REGISTER_FORMAT is null) AND (X_PI_REGISTER_FORMAT is null)))
605       AND ((recinfo.BEP_ACCOUNT_ID = X_BEP_ACCOUNT_ID)
606            OR ((recinfo.BEP_ACCOUNT_ID is null) AND (X_BEP_ACCOUNT_ID is null)))
607       AND ((recinfo.APPLICABLE_PMT_METHOD = X_APPLICABLE_PMT_METHOD)
608            OR ((recinfo.APPLICABLE_PMT_METHOD is null) AND (X_APPLICABLE_PMT_METHOD is null)))
609       AND ((recinfo.APPLICABLE_CURRENCY = X_APPLICABLE_CURRENCY)
610            OR ((recinfo.APPLICABLE_CURRENCY is null) AND (X_APPLICABLE_CURRENCY is null)))
611       AND ((recinfo.APPLICABLE_PAYER_ORG = X_APPLICABLE_PAYER_ORG)
612            OR ((recinfo.APPLICABLE_PAYER_ORG is null) AND (X_APPLICABLE_PAYER_ORG is null)))
613       AND ((recinfo.APPLICABLE_INT_BANK_ACCOUNT = X_APPLICABLE_INT_BANK_ACCOUNT)
614            OR ((recinfo.APPLICABLE_INT_BANK_ACCOUNT is null) AND (X_APPLICABLE_INT_BANK_ACCOUNT is null)))
615       AND ((recinfo.BEP_SUFFIX = X_BEP_SUFFIX)
616            OR ((recinfo.BEP_SUFFIX is null) AND (X_BEP_SUFFIX is null)))
617       AND ((recinfo.SECURITY_PROTOCOL_CODE = X_SECURITY_PROTOCOL_CODE)
618            OR ((recinfo.SECURITY_PROTOCOL_CODE is null) AND (X_SECURITY_PROTOCOL_CODE is null)))
619       AND ((recinfo.TRANSMIT_PROTOCOL_CODE = X_TRANSMIT_PROTOCOL_CODE)
620            OR ((recinfo.TRANSMIT_PROTOCOL_CODE is null) AND (X_TRANSMIT_PROTOCOL_CODE is null)))
621       AND (recinfo.PAYMENT_FORMAT_CODE = X_PAYMENT_FORMAT_CODE)
622       AND ((recinfo.POSITIVE_PAY_FORMAT_CODE = X_POSITIVE_PAY_FORMAT_CODE)
623            OR ((recinfo.POSITIVE_PAY_FORMAT_CODE is null) AND (X_POSITIVE_PAY_FORMAT_CODE is null)))
624       AND ((recinfo.PAY_FILE_LETTER_FORMAT_CODE = X_PAY_FILE_LETTER_FORMAT_CODE)
625            OR ((recinfo.PAY_FILE_LETTER_FORMAT_CODE is null) AND (X_PAY_FILE_LETTER_FORMAT_CODE is null)))
626       AND (recinfo.PRINT_INSTRUCTION_IMMED_FLAG = X_PRINT_INSTRUCTION_IMMED_FLAG)
627       AND ((recinfo.PERIODIC_SEQUENCE_NAME_1 = X_PERIODIC_SEQUENCE_NAME_1)
628            OR ((recinfo.PERIODIC_SEQUENCE_NAME_1 is null) AND (X_PERIODIC_SEQUENCE_NAME_1 is null)))
629       AND ((recinfo.PERIODIC_SEQUENCE_NAME_2 = X_PERIODIC_SEQUENCE_NAME_2)
630            OR ((recinfo.PERIODIC_SEQUENCE_NAME_2 is null) AND (X_PERIODIC_SEQUENCE_NAME_2 is null)))
631       AND ((recinfo.PERIODIC_SEQUENCE_NAME_3 = X_PERIODIC_SEQUENCE_NAME_3)
632            OR ((recinfo.PERIODIC_SEQUENCE_NAME_3 is null) AND (X_PERIODIC_SEQUENCE_NAME_3 is null)))
633       AND (recinfo.PROCESSING_TYPE = X_PROCESSING_TYPE)
634       AND (recinfo.MARK_COMPLETE_EVENT = X_MARK_COMPLETE_EVENT)
635       AND (recinfo.MANUAL_MARK_COMPLETE_FLAG = X_MANUAL_MARK_COMPLETE_FLAG)
636       AND ((recinfo.DECLARATION_OPTION = X_DECLARATION_OPTION)
637            OR ((recinfo.DECLARATION_OPTION is null) AND (X_DECLARATION_OPTION is null)))
638       AND ((recinfo.ELECTRONIC_PROCESSING_CHANNEL = X_ELECTRONIC_PROCESSING_CHNNL)
639            OR ((recinfo.ELECTRONIC_PROCESSING_CHANNEL is null) AND (X_ELECTRONIC_PROCESSING_CHNNL is null)))
640       AND ((recinfo.LOGICAL_GROUPING_MODE = X_LOGICAL_GROUPING_MODE)
641            OR ((recinfo.LOGICAL_GROUPING_MODE is null) AND (X_LOGICAL_GROUPING_MODE is null)))
642       AND ((recinfo.BATCH_BOOKING_FLAG = X_BATCH_BOOKING_FLAG)
643            OR ((recinfo.BATCH_BOOKING_FLAG is null) AND (X_BATCH_BOOKING_FLAG is null)))
644       AND ((recinfo.INST_GROUP_BY_PAYMENT_METHOD = X_INST_GROUP_BY_PAYMENT_METHOD)
645            OR ((recinfo.INST_GROUP_BY_PAYMENT_METHOD is null) AND (X_INST_GROUP_BY_PAYMENT_METHOD is null)))
646   ) then
647     null;
648   else
649     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
650     app_exception.raise_exception;
651   end if;
652 
653   for tlinfo in c1 loop
654     if (tlinfo.BASELANG = 'Y') then
655       if (    (tlinfo.SYSTEM_PROFILE_NAME = X_SYSTEM_PROFILE_NAME)
656           AND ((tlinfo.SYSTEM_PROFILE_DESCRIPTION = X_SYSTEM_PROFILE_DESCRIPTION)
657                OR ((tlinfo.SYSTEM_PROFILE_DESCRIPTION is null) AND (X_SYSTEM_PROFILE_DESCRIPTION is null)))
658       ) then
659         null;
660       else
661         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
662         app_exception.raise_exception;
663       end if;
664     end if;
665   end loop;
666   return;
667 end LOCK_ROW;
668 
669 procedure UPDATE_ROW (
670   X_SYSTEM_PROFILE_CODE in VARCHAR2,
671   X_REMIT_PMT_DETAILS_LENGTH_LIM in NUMBER,
672   X_REMIT_REMITTANCE_ADVICE_FORM in VARCHAR2,
673   X_REMIT_SRA_OVERRIDE_PAYEE_FLA in VARCHAR2,
674   X_REMIT_ADVICE_DELIVERY_METHOD in VARCHAR2,
675   X_REMIT_AUTOMATIC_SRA_SUBMIT in VARCHAR2,
676   X_OBJECT_VERSION_NUMBER in NUMBER,
677   X_PMT_PAYMENT_DETAILS_FORMULA in VARCHAR2,
678   X_INST_GROUP_BY_LEGAL_ENTITY in VARCHAR2,
679   X_INST_GROUP_BY_BILL_PAYABLE in VARCHAR2,
680   X_INST_GROUP_BY_MAX_INSTRUCTIO in VARCHAR2,
681   X_INST_GROUP_BY_ORGANIZATION in VARCHAR2,
682   X_INST_GROUP_BY_PAYMENT_FUNCTI in VARCHAR2,
683   X_INST_GROUP_BY_PAYMENT_REASON in VARCHAR2,
684   X_INST_GROUP_BY_RFC in VARCHAR2,
685   X_INST_MAX_PAYMENTS_PER_INSTR in NUMBER,
686   X_INST_MAX_AMOUNT_PER_INSTR_VA in NUMBER,
687   X_INST_MAX_AMOUNT_PER_INSTR_CU in VARCHAR2,
688   X_INST_MAX_AMOUNT_FX_RATE_TYPE in VARCHAR2,
689   X_INST_SORT_OPTION_1 in VARCHAR2,
690   X_INST_SORT_ORDER_1 in VARCHAR2,
691   X_INST_SORT_OPTION_2 in VARCHAR2,
692   X_POSITIVE_PAY_DELIVERY_FLAG in VARCHAR2,
693   X_TRANSMIT_INSTR_IMMED_FLAG in VARCHAR2,
694   X_AUTOMATIC_PI_REG_SUBMIT in VARCHAR2,
695   X_PMT_GROUP_BY_DELIVERY_CHANNE in VARCHAR2,
696   X_PMT_GROUP_BY_REMITTANCE_MES in VARCHAR2,
697   X_PMT_GROUP_BY_MAX_DOCUMENTS in VARCHAR2,
698   X_PMT_GROUP_BY_UNIQUE_REMIT_ID in VARCHAR2,
699   X_PMT_GROUP_BY_SETTLE_PRIORITY in VARCHAR2,
700   X_PMT_GROUP_BY_PAYMENT_REASON in VARCHAR2,
701   X_PMT_GROUP_BY_DUE_DATE_FLAG in VARCHAR2,
702   X_PMT_MAX_DOCUMENTS_PER_PAYMEN in NUMBER,
703   X_PMT_PAYMENT_DETAILS_LENGTH_L in NUMBER,
704   X_PMT_GROUP_BY_PAYMENT_DETAILS in VARCHAR2,
705   X_PMT_GROUP_BY_BANK_CHARGE_BEA in VARCHAR2,
706   X_INST_SORT_ORDER_2 in VARCHAR2,
707   X_INST_SORT_OPTION_3 in VARCHAR2,
708   X_INST_SORT_ORDER_3 in VARCHAR2,
709   X_REMIT_DOCUMENT_COUNT_LIMIT in NUMBER,
710   X_REMIT_ALLOW_MULTIPLE_COPY_FL in VARCHAR2,
711   X_INST_GROUP_BY_PAYMENT_DATE in VARCHAR2,
712   X_INST_GROUP_BY_PAYMENT_CURREN in VARCHAR2,
713   X_INST_GROUP_BY_INT_BANK_ACCT in VARCHAR2,
714   X_INST_GROUP_BY_MAX_PAYMENTS in VARCHAR2,
715   X_INST_GROUP_BY_PAY_SERVICE_RE in VARCHAR2,
716   X_DCL_ONLY_FOREIGN_CURR_PMT_FL in VARCHAR2,
717   X_DECLARATION_REPORT_FORMAT_CO in VARCHAR2,
718   X_DECLARATION_CURR_FX_RATE_TYP in VARCHAR2,
719   X_DECLARATION_CURRENCY_CODE in VARCHAR2,
720   X_DECLARATION_THRESHOLD_AMOUNT in NUMBER,
721   X_BANK_INSTRUCTION1_CODE in VARCHAR2,
722   X_BANK_INSTRUCTION2_CODE in VARCHAR2,
723   X_BANK_INSTRUCTION_DETAILS in VARCHAR2,
724   X_PAYMENT_TEXT_MESSAGE1 in VARCHAR2,
725   X_PAYMENT_TEXT_MESSAGE2 in VARCHAR2,
726   X_ACK_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
727   X_ACK_SECURITY_PROTOCOL_CODE in VARCHAR2,
728   X_SEND_TO_FILE_FLAG in VARCHAR2,
729   X_PI_REGISTER_FORMAT in VARCHAR2,
730   X_BEP_ACCOUNT_ID in NUMBER,
731   X_APPLICABLE_PMT_METHOD in VARCHAR2,
732   X_APPLICABLE_CURRENCY in VARCHAR2,
733   X_APPLICABLE_PAYER_ORG in VARCHAR2,
734   X_APPLICABLE_INT_BANK_ACCOUNT in VARCHAR2,
735   X_BEP_SUFFIX in VARCHAR2,
736   X_SECURITY_PROTOCOL_CODE in VARCHAR2,
737   X_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
738   X_PAYMENT_FORMAT_CODE in VARCHAR2,
739   X_POSITIVE_PAY_FORMAT_CODE in VARCHAR2,
740   X_PAY_FILE_LETTER_FORMAT_CODE in VARCHAR2,
741   X_PRINT_INSTRUCTION_IMMED_FLAG in VARCHAR2,
742   X_PERIODIC_SEQUENCE_NAME_1 in VARCHAR2,
743   X_PERIODIC_SEQUENCE_NAME_2 in VARCHAR2,
744   X_PERIODIC_SEQUENCE_NAME_3 in VARCHAR2,
745   X_PROCESSING_TYPE in VARCHAR2,
746   X_MARK_COMPLETE_EVENT in VARCHAR2,
747   X_MANUAL_MARK_COMPLETE_FLAG in VARCHAR2,
748   X_DECLARATION_OPTION in VARCHAR2,
749   X_SYSTEM_PROFILE_NAME in VARCHAR2,
750   X_SYSTEM_PROFILE_DESCRIPTION in VARCHAR2,
751   X_LAST_UPDATE_DATE in DATE,
752   X_LAST_UPDATED_BY in NUMBER,
753   X_LAST_UPDATE_LOGIN in NUMBER,
754   X_ELECTRONIC_PROCESSING_CHNNL in VARCHAR2,
755   X_LOGICAL_GROUPING_MODE in VARCHAR2,
756   X_BATCH_BOOKING_FLAG in VARCHAR2,
757   X_INST_GROUP_BY_PAYMENT_METHOD in VARCHAR2
758 ) is
759 
760 
761 l_jenl_eft_reporting_limit              NUMBER;
762 l_system_profile_code                   IBY_SYS_PMT_PROFILES_B.SYSTEM_PROFILE_CODE%TYPE;
763 
764 TYPE t_sys_profile_code IS TABLE OF
765      IBY_SYS_PMT_PROFILES_B.system_profile_code%TYPE
766 INDEX BY BINARY_INTEGER;
767 
768 l_sys_profile_code_tab t_sys_profile_code;
769 
770 
771 
772 cursor get_sys_prof_code(X_SYSTEM_PROFILE_CODE IBY_SYS_PMT_PROFILES_B.system_profile_code%TYPE, l_jenl_eft_reporting_limit NUMBER)
773 IS
774 select system_profile_code
775 from
776 (SELECT DISTINCT(decode(sfgdf.org_id,
777 NULL,ppp.system_profile_code || '_' ||
778 to_char(cf.check_format_id),
779 ppp.system_profile_code || '_' || to_char
780 (cf.check_format_id) || '_' || sfgdf.org_id))
781 system_profile_code
782 FROM
783 ap_check_formats cf,
784 ap_check_stocks_all cs,
785 ce_upg_bank_accounts cba,
786 ap_payment_programs pp,
787 jg_zz_pay_format_info gdf,
788     (SELECT(
789    CASE
790    WHEN sfa.jgzz_attribute_category =
791 'SE.JESEPBAI' THEN sfa.jgzz_system_info5
792    END) AS
793   payment_text_message1,
794     (
795    CASE
796    WHEN sfa.jgzz_attribute_category =
797 'SE.JESEPBAI' THEN sfa.jgzz_system_info3
798    END) AS
799   payment_text_message2,
800     (
801    CASE
802    WHEN sfa.jgzz_attribute_category =
803 'NO.JENOPTGN' THEN
804 sfa.jgzz_system_info20
805    WHEN sfa.jgzz_attribute_category =
806 'SE.JESEPBAI' THEN sfa.jgzz_system_info10
807    WHEN sfa.jgzz_attribute_category =
808 'SE.JESEPBSI' THEN sfa.jgzz_system_info8
809    WHEN sfa.jgzz_attribute_category =
810 'SE.JESEPBUT' THEN sfa.jgzz_system_info8
811    WHEN sfa.jgzz_attribute_category =
812 'SE.JESEPPOI' THEN sfa.jgzz_system_info11
813    WHEN sfa.jgzz_attribute_category =
814 'SE.JESEPPOU' THEN sfa.jgzz_system_info10
815    END) AS
816   outbound_pmt_file_directory,
817     (
818    CASE
819    WHEN sfa.jgzz_attribute_category =
820 'DE.JEDEDEFI' THEN decode
821 (sfa.jgzz_system_info3,    'Y',
822 'DECLARE_THROUGH_BANK',    'N',
823 'NO_DECLARATIONS',
824 sfa.jgzz_system_info3)
825    WHEN sfa.jgzz_attribute_category =
826 'NL.JENLFFGN' THEN decode(
827       l_jenl_eft_reporting_limit,
828 	   NULL,
829 	   'NO_DECLARATIONS',
830 	   'DECLARE_THROUGH_BANK')
831     END)
832   AS
833   declaration_option,
834     (
835    CASE
836    WHEN sfa.jgzz_attribute_category =
837 'DE.JEDEDEFI' THEN to_number
838 (sfa.jgzz_system_info5)
839    WHEN sfa.jgzz_attribute_category =
840 'NL.JENLFFGN' THEN
841       l_jenl_eft_reporting_limit
842     END)
843   AS
844   declaration_threshold_amount,
845     (
846    CASE
847    WHEN sfa.jgzz_attribute_category =
848 'DE.JEDEDEFI'
849    AND sfa.jgzz_system_info5 IS NOT NULL
850 THEN 'EUR'
851    WHEN sfa.jgzz_attribute_category =
852 'NL.JENLFFGN'
853    AND
854     l_jenl_eft_reporting_limit
855     IS
856     NOT NULL THEN
857       'NLG'
858      END)
859   AS
860   declaration_currency_code,
861     (
862    CASE
863    WHEN sfa.jgzz_attribute_category =
864 'NL.JENLFFGN' THEN sfa.jgzz_system_info13
865    WHEN sfa.jgzz_attribute_category =
866 'DE.JEDEDEFI' THEN decode
867 (sfa.jgzz_system_info3,    'Y',    'Corporate')
868    END) AS
869   declaration_curr_fx_rate_type,
870      sfa.jgzz_attribute_category,
871      SUBSTR(sfa.jgzz_attribute_category,
872 LENGTH(sfa.jgzz_country_code) + 2,
873 LENGTH(sfa.jgzz_attribute_category))
874 format_code,
875      sfa.org_id
876    FROM jg_zz_sys_formats_all_b sfa)
877 sfgdf,
878   iby_formats_b ipf,
879   iby_upg_ppp_b ppp,
880   iby_bepinfo bep,
881   iby_bepkeys KEY
882 WHERE cf.format_payments_program_id =
883 pp.program_id
884  AND cf.check_format_id =
885 cs.check_format_id(+)
886  AND cs.bank_account_id = cba.source_pk_id
887 (+)
888  AND cba.source_application_id(+) = 200
889  AND cf.check_format_id =
890 gdf.check_format_id(+)
891  AND pp.program_name =
892 ipf.reference_format_code
893  AND ipf.format_type_code =
894 'OUTBOUND_PAYMENT_INSTRUCTION'
895  AND pp.program_name = sfgdf.format_code
896 (+)
897  AND ppp.payment_format_code =
898 ipf.format_code
899  AND ppp.bep_suffix = bep.suffix(+)
900  AND bep.bepid = KEY.bepid(+)
901  AND ppp.system_profile_code =
902 X_SYSTEM_PROFILE_CODE
903 
904 UNION ALL
905 
906 SELECT distinct(ppb.system_profile_code) system_profile_code
907 FROM iby_formats_b ipf,
908   iby_upg_ppp_tl ppp,
909   iby_upg_ppp_b ppb,
910   iby_acct_pmt_profiles_b app,
911   iby_bepinfo bep,
912   iby_bepkeys key1
913 WHERE(ipf.reference_format_code IS NULL OR(ipf.reference_format_code IS NOT NULL
914  AND ipf.reference_format_code NOT IN
915   (SELECT pp.program_name
916    FROM ap_check_formats cf,    ap_payment_programs pp
917    WHERE cf.format_payments_program_id = pp.program_id)))
918 AND ppb.payment_format_code = ipf.format_code
919  AND ipf.format_type_code = 'OUTBOUND_PAYMENT_INSTRUCTION'
920  AND ppp.system_profile_code = app.system_profile_code
921  AND ppp.system_profile_code = ppb.system_profile_code
922  AND ppb.bep_suffix = bep.suffix(+)
923  AND app.bep_account_id = key1.bep_account_id(+)
924  AND ppp.system_profile_code = X_SYSTEM_PROFILE_CODE) SYSTEM_PROF_CODE_TABLE;
925 
926 
927 BEGIN
928 
929   BEGIN
930     SELECT TO_NUMBER(x.profile_option_value)
931       INTO l_jenl_eft_reporting_limit
932       FROM (  SELECT o.profile_option_name, v.profile_option_value,
933                      row_number() OVER (partition by o.profile_option_name
934                                         order by count(*) desc) order_rank
935                 FROM fnd_profile_options o,
936                      fnd_profile_option_values v
937                WHERE o.profile_option_name = UPPER('JENL_REPORTING_THRESHOLD')
938                  AND v.application_id = o.application_id
939                  AND v.profile_option_id = o.profile_option_id
940                GROUP BY o.profile_option_name, v.profile_option_value) x
941      WHERE x.order_rank = 1;
942   EXCEPTION
943     WHEN others THEN NULL;
944   END;
945 
946 
947 
948   -- kp_msg('The value for l_jenl_eft_reporting_limit: '|| l_jenl_eft_reporting_limit);
949 
950   -- kp_msg('The value for x_system_profile_code'|| X_SYSTEM_PROFILE_CODE||'*******');
951 
952   open get_sys_prof_code(X_SYSTEM_PROFILE_CODE,l_jenl_eft_reporting_limit);
953   FETCH get_sys_prof_code BULK COLLECT INTO l_sys_profile_code_tab;
954   CLOSE get_sys_prof_code;
955 
956 
957   update IBY_UPG_PPP_B set
958     REMIT_PMT_DETAILS_LENGTH_LIM = X_REMIT_PMT_DETAILS_LENGTH_LIM,
959     REMIT_REMITTANCE_ADVICE_FORMAT = X_REMIT_REMITTANCE_ADVICE_FORM,
960     REMIT_SRA_OVERRIDE_PAYEE_FLAG = X_REMIT_SRA_OVERRIDE_PAYEE_FLA,
961     REMIT_ADVICE_DELIVERY_METHOD = X_REMIT_ADVICE_DELIVERY_METHOD,
962     REMIT_AUTOMATIC_SRA_SUBMIT = X_REMIT_AUTOMATIC_SRA_SUBMIT,
963     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
964     PMT_PAYMENT_DETAILS_FORMULA = X_PMT_PAYMENT_DETAILS_FORMULA,
965     INST_GROUP_BY_LEGAL_ENTITY = X_INST_GROUP_BY_LEGAL_ENTITY,
966     INST_GROUP_BY_BILL_PAYABLE = X_INST_GROUP_BY_BILL_PAYABLE,
967     INST_GROUP_BY_MAX_INSTRUCTION = X_INST_GROUP_BY_MAX_INSTRUCTIO,
968     INST_GROUP_BY_ORGANIZATION = X_INST_GROUP_BY_ORGANIZATION,
969     INST_GROUP_BY_PAYMENT_FUNCTION = X_INST_GROUP_BY_PAYMENT_FUNCTI,
970     INST_GROUP_BY_PAYMENT_REASON = X_INST_GROUP_BY_PAYMENT_REASON,
971     INST_GROUP_BY_RFC = X_INST_GROUP_BY_RFC,
972     INST_MAX_PAYMENTS_PER_INSTR = X_INST_MAX_PAYMENTS_PER_INSTR,
973     INST_MAX_AMOUNT_PER_INSTR_VAL = X_INST_MAX_AMOUNT_PER_INSTR_VA,
974     INST_MAX_AMOUNT_PER_INSTR_CURR = X_INST_MAX_AMOUNT_PER_INSTR_CU,
975     INST_MAX_AMOUNT_FX_RATE_TYPE = X_INST_MAX_AMOUNT_FX_RATE_TYPE,
976     INST_SORT_OPTION_1 = X_INST_SORT_OPTION_1,
977     INST_SORT_ORDER_1 = X_INST_SORT_ORDER_1,
978     INST_SORT_OPTION_2 = X_INST_SORT_OPTION_2,
979     POSITIVE_PAY_DELIVERY_FLAG = X_POSITIVE_PAY_DELIVERY_FLAG,
980     TRANSMIT_INSTR_IMMED_FLAG = X_TRANSMIT_INSTR_IMMED_FLAG,
981     AUTOMATIC_PI_REG_SUBMIT = X_AUTOMATIC_PI_REG_SUBMIT,
982     PMT_GROUP_BY_DELIVERY_CHANNEL = X_PMT_GROUP_BY_DELIVERY_CHANNE,
983     PMT_GROUP_BY_REMITTANCE_MES = X_PMT_GROUP_BY_REMITTANCE_MES,
984     PMT_GROUP_BY_MAX_DOCUMENTS = X_PMT_GROUP_BY_MAX_DOCUMENTS,
985     PMT_GROUP_BY_UNIQUE_REMIT_ID = X_PMT_GROUP_BY_UNIQUE_REMIT_ID,
986     PMT_GROUP_BY_SETTLE_PRIORITY = X_PMT_GROUP_BY_SETTLE_PRIORITY,
987     PMT_GROUP_BY_PAYMENT_REASON = X_PMT_GROUP_BY_PAYMENT_REASON,
988     PMT_GROUP_BY_DUE_DATE_FLAG = X_PMT_GROUP_BY_DUE_DATE_FLAG,
989     PMT_MAX_DOCUMENTS_PER_PAYMENT = X_PMT_MAX_DOCUMENTS_PER_PAYMEN,
990     PMT_PAYMENT_DETAILS_LENGTH_LIM = X_PMT_PAYMENT_DETAILS_LENGTH_L,
991     PMT_GROUP_BY_PAYMENT_DETAILS = X_PMT_GROUP_BY_PAYMENT_DETAILS,
992     PMT_GROUP_BY_BANK_CHARGE_BEAR = X_PMT_GROUP_BY_BANK_CHARGE_BEA,
993     INST_SORT_ORDER_2 = X_INST_SORT_ORDER_2,
994     INST_SORT_OPTION_3 = X_INST_SORT_OPTION_3,
995     INST_SORT_ORDER_3 = X_INST_SORT_ORDER_3,
996     REMIT_DOCUMENT_COUNT_LIMIT = X_REMIT_DOCUMENT_COUNT_LIMIT,
997     REMIT_ALLOW_MULTIPLE_COPY_FLAG = X_REMIT_ALLOW_MULTIPLE_COPY_FL,
998     INST_GROUP_BY_PAYMENT_DATE = X_INST_GROUP_BY_PAYMENT_DATE,
999     INST_GROUP_BY_PAYMENT_CURRENCY = X_INST_GROUP_BY_PAYMENT_CURREN,
1000     INST_GROUP_BY_INT_BANK_ACCT = X_INST_GROUP_BY_INT_BANK_ACCT,
1001     INST_GROUP_BY_MAX_PAYMENTS = X_INST_GROUP_BY_MAX_PAYMENTS,
1002     INST_GROUP_BY_PAY_SERVICE_REQ = X_INST_GROUP_BY_PAY_SERVICE_RE,
1003     DCL_ONLY_FOREIGN_CURR_PMT_FLAG = X_DCL_ONLY_FOREIGN_CURR_PMT_FL,
1004     DECLARATION_REPORT_FORMAT_CODE = X_DECLARATION_REPORT_FORMAT_CO,
1005     DECLARATION_CURR_FX_RATE_TYPE = X_DECLARATION_CURR_FX_RATE_TYP,
1006     DECLARATION_CURRENCY_CODE = X_DECLARATION_CURRENCY_CODE,
1007     DECLARATION_THRESHOLD_AMOUNT = X_DECLARATION_THRESHOLD_AMOUNT,
1008     BANK_INSTRUCTION1_CODE = X_BANK_INSTRUCTION1_CODE,
1009     BANK_INSTRUCTION2_CODE = X_BANK_INSTRUCTION2_CODE,
1010     BANK_INSTRUCTION_DETAILS = X_BANK_INSTRUCTION_DETAILS,
1011     PAYMENT_TEXT_MESSAGE1 = X_PAYMENT_TEXT_MESSAGE1,
1012     PAYMENT_TEXT_MESSAGE2 = X_PAYMENT_TEXT_MESSAGE2,
1013     ACK_TRANSMIT_PROTOCOL_CODE = X_ACK_TRANSMIT_PROTOCOL_CODE,
1014     ACK_SECURITY_PROTOCOL_CODE = X_ACK_SECURITY_PROTOCOL_CODE,
1015     SEND_TO_FILE_FLAG = X_SEND_TO_FILE_FLAG,
1016     PI_REGISTER_FORMAT = X_PI_REGISTER_FORMAT,
1017     BEP_ACCOUNT_ID = X_BEP_ACCOUNT_ID,
1018     APPLICABLE_PMT_METHOD = X_APPLICABLE_PMT_METHOD,
1019     APPLICABLE_CURRENCY = X_APPLICABLE_CURRENCY,
1020     APPLICABLE_PAYER_ORG = X_APPLICABLE_PAYER_ORG,
1021     APPLICABLE_INT_BANK_ACCOUNT = X_APPLICABLE_INT_BANK_ACCOUNT,
1022     BEP_SUFFIX = X_BEP_SUFFIX,
1023     SECURITY_PROTOCOL_CODE = X_SECURITY_PROTOCOL_CODE,
1024     TRANSMIT_PROTOCOL_CODE = X_TRANSMIT_PROTOCOL_CODE,
1025     PAYMENT_FORMAT_CODE = X_PAYMENT_FORMAT_CODE,
1026     POSITIVE_PAY_FORMAT_CODE = X_POSITIVE_PAY_FORMAT_CODE,
1027     PAY_FILE_LETTER_FORMAT_CODE = X_PAY_FILE_LETTER_FORMAT_CODE,
1028     PRINT_INSTRUCTION_IMMED_FLAG = X_PRINT_INSTRUCTION_IMMED_FLAG,
1029     PERIODIC_SEQUENCE_NAME_1 = X_PERIODIC_SEQUENCE_NAME_1,
1030     PERIODIC_SEQUENCE_NAME_2 = X_PERIODIC_SEQUENCE_NAME_2,
1031     PERIODIC_SEQUENCE_NAME_3 = X_PERIODIC_SEQUENCE_NAME_3,
1032     PROCESSING_TYPE = X_PROCESSING_TYPE,
1033     MARK_COMPLETE_EVENT = X_MARK_COMPLETE_EVENT,
1034     MANUAL_MARK_COMPLETE_FLAG = X_MANUAL_MARK_COMPLETE_FLAG,
1035     DECLARATION_OPTION = X_DECLARATION_OPTION,
1036     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1037     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1038     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
1039     ELECTRONIC_PROCESSING_CHANNEL = X_ELECTRONIC_PROCESSING_CHNNL,
1040     LOGICAL_GROUPING_MODE = X_LOGICAL_GROUPING_MODE,
1041     BATCH_BOOKING_FLAG = X_BATCH_BOOKING_FLAG,
1042     INST_GROUP_BY_PAYMENT_METHOD = X_INST_GROUP_BY_PAYMENT_METHOD
1043 
1044   where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE;
1045 
1046   if (sql%notfound) then
1047     raise no_data_found;
1048   end if;
1049 
1050 -- Uncomment the below code for debugging..
1051 -- kp_msg('The updation of iby_upg_ppp_b tables has been done successfully');
1052 -- CODE TO UPDATE BASE TABLES
1053 
1054 FOR i IN l_sys_profile_code_tab.FIRST .. l_sys_profile_code_tab.LAST LOOP
1055 
1056 --kp_msg('Inside the loop for i=' || i|| '; value of sys_prof_code =' ||l_sys_profile_code_tab(i));
1057 
1058   update iby_sys_pmt_profiles_b set
1059         payment_format_code = X_PAYMENT_FORMAT_CODE,
1060         print_instruction_immed_flag = X_PRINT_INSTRUCTION_IMMED_FLAG,
1061         processing_type = X_PROCESSING_TYPE,
1062         mark_complete_event = X_MARK_COMPLETE_EVENT,
1063         manual_mark_complete_flag = X_MANUAL_MARK_COMPLETE_FLAG,
1064         positive_pay_delivery_flag= X_POSITIVE_PAY_DELIVERY_FLAG,
1065         object_version_number= X_OBJECT_VERSION_NUMBER,
1066         transmit_instr_immed_flag= X_TRANSMIT_INSTR_IMMED_FLAG,
1067         automatic_pi_reg_submit = X_AUTOMATIC_PI_REG_SUBMIT,
1068         send_to_file_flag = X_SEND_TO_FILE_FLAG,
1069         dcl_only_foreign_curr_pmt_flag = X_DCL_ONLY_FOREIGN_CURR_PMT_FL,
1070         security_protocol_code = X_SECURITY_PROTOCOL_CODE,
1071         transmit_protocol_code = X_TRANSMIT_PROTOCOL_CODE,
1072         positive_pay_format_code = X_POSITIVE_PAY_FORMAT_CODE,
1073         pay_file_letter_format_code = X_PAY_FILE_LETTER_FORMAT_CODE,
1074         periodic_sequence_name_1 = X_PERIODIC_SEQUENCE_NAME_1,
1075         periodic_sequence_name_2= X_PERIODIC_SEQUENCE_NAME_2,
1076         periodic_sequence_name_3= X_PERIODIC_SEQUENCE_NAME_3,
1077         declaration_option= X_DECLARATION_OPTION,
1078         declaration_report_format_code =X_DECLARATION_REPORT_FORMAT_CO,
1079         declaration_curr_fx_rate_type = X_DECLARATION_CURR_FX_RATE_TYP,
1080         declaration_currency_code = X_DECLARATION_CURRENCY_CODE,
1081         declaration_threshold_amount = X_DECLARATION_THRESHOLD_AMOUNT,
1082         bank_instruction1_code= X_BANK_INSTRUCTION1_CODE,
1083         bank_instruction2_code= X_BANK_INSTRUCTION2_CODE,
1084         bank_instruction_details = X_BANK_INSTRUCTION_DETAILS,
1085         payment_text_message1= X_PAYMENT_TEXT_MESSAGE1,
1086         payment_text_message2=X_PAYMENT_TEXT_MESSAGE2,
1087         ack_transmit_protocol_code = X_ACK_TRANSMIT_PROTOCOL_CODE,
1088         ack_security_protocol_code= X_ACK_SECURITY_PROTOCOL_CODE,
1089         pi_register_format= X_PI_REGISTER_FORMAT,
1090         electronic_processing_channel=  X_ELECTRONIC_PROCESSING_CHNNL,
1091 	logical_grouping_mode=X_LOGICAL_GROUPING_MODE,
1092         BATCH_BOOKING_FLAG = X_BATCH_BOOKING_FLAG,
1093 	LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1094         LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1095         LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
1096   where SYSTEM_PROFILE_CODE = l_sys_profile_code_tab(i);
1097 
1098 
1099   if (sql%notfound) then
1100     raise no_data_found;
1101   end if;
1102 
1103 --  kp_msg('The updation of iby_sys_pmt_profiles_b tables has been done successfully');
1104 
1105   update IBY_PMT_CREATION_RULES set
1106     group_by_delivery_channel = X_PMT_GROUP_BY_DELIVERY_CHANNE,
1107     group_by_remittance_message = X_PMT_GROUP_BY_REMITTANCE_MES,
1108     group_by_max_documents_flag = X_PMT_GROUP_BY_MAX_DOCUMENTS,
1109     group_by_unique_remit_id_flag = X_PMT_GROUP_BY_UNIQUE_REMIT_ID,
1110     group_by_settle_priority_flag = X_PMT_GROUP_BY_SETTLE_PRIORITY,
1111     group_by_payment_reason = X_PMT_GROUP_BY_PAYMENT_REASON,
1112     group_by_due_date_flag = X_PMT_GROUP_BY_DUE_DATE_FLAG,
1113     max_documents_per_payment = X_PMT_MAX_DOCUMENTS_PER_PAYMEN,
1114     payment_details_length_limit = X_PMT_PAYMENT_DETAILS_LENGTH_L,
1115     payment_details_formula = X_PMT_PAYMENT_DETAILS_FORMULA,
1116     group_by_payment_details_flag = X_PMT_GROUP_BY_PAYMENT_DETAILS,
1117     group_by_bank_charge_bearer = X_PMT_GROUP_BY_BANK_CHARGE_BEA,
1118     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1119     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1120     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
1121  where system_profile_code = l_sys_profile_code_tab(i);
1122 
1123  if (sql%notfound) then
1124     raise no_data_found;
1125  end if;
1126 
1127   update iby_acct_pmt_profiles_b set
1128     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1129     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1130     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
1131     BEP_ACCOUNT_ID = X_BEP_ACCOUNT_ID
1132   where SYSTEM_PROFILE_CODE = l_sys_profile_code_tab(i) ;
1133 
1134   if (sql%notfound) then
1135     raise no_data_found;
1136   end if;
1137 
1138   update iby_instr_creation_rules set
1139      group_by_payment_date= X_INST_GROUP_BY_PAYMENT_DATE,
1140      group_by_payment_currency = X_INST_GROUP_BY_PAYMENT_CURREN,
1141      group_by_internal_bank_account = X_INST_GROUP_BY_INT_BANK_ACCT,
1142      group_by_max_payments_flag = X_INST_GROUP_BY_MAX_PAYMENTS,
1143      group_by_pay_service_request = X_INST_GROUP_BY_PAY_SERVICE_RE,
1144      group_by_legal_entity = X_INST_GROUP_BY_LEGAL_ENTITY,
1145      group_by_bill_payable = X_INST_GROUP_BY_BILL_PAYABLE,
1146      group_by_organization = X_INST_GROUP_BY_ORGANIZATION,
1147      group_by_max_instruction_flag = X_INST_GROUP_BY_MAX_INSTRUCTIO,
1148      group_by_payment_function = X_INST_GROUP_BY_PAYMENT_FUNCTI,
1149      group_by_payment_reason = X_INST_GROUP_BY_PAYMENT_REASON,
1150      group_by_rfc= X_INST_GROUP_BY_RFC,
1151      max_payments_per_instruction = X_INST_MAX_PAYMENTS_PER_INSTR,
1152      max_amount_per_instr_value = X_INST_MAX_AMOUNT_PER_INSTR_VA,
1153      max_amount_per_instr_curr_code= X_INST_MAX_AMOUNT_PER_INSTR_CU,
1154      max_amount_fx_rate_type=  X_INST_MAX_AMOUNT_FX_RATE_TYPE,
1155      SORT_OPTION_1 = X_INST_SORT_OPTION_1,
1156      SORT_ORDER_1 = X_INST_SORT_ORDER_1,
1157      SORT_OPTION_2 = X_INST_SORT_OPTION_2,
1158      SORT_ORDER_2 = X_INST_SORT_ORDER_2,
1159      SORT_OPTION_3 = X_INST_SORT_OPTION_3,
1160      SORT_ORDER_3 = X_INST_SORT_ORDER_3,
1161      group_by_payment_method = X_INST_GROUP_BY_PAYMENT_METHOD,
1162      LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1163      LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1164      LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
1165   where SYSTEM_PROFILE_CODE = l_sys_profile_code_tab(i) ;
1166 
1167   if (sql%notfound) then
1168     raise no_data_found;
1169   end if;
1170 
1171 -- kp_msg('The updation of iby_instr_creation_rules tables has been done successfully');
1172 
1173  update iby_remit_advice_setup set
1174     document_count_limit = X_REMIT_DOCUMENT_COUNT_LIMIT,
1175     allow_multiple_copy_flag = X_REMIT_ALLOW_MULTIPLE_COPY_FL,
1176     remittance_advice_format_code = X_REMIT_REMITTANCE_ADVICE_FORM,
1177     sra_override_payee_flag = X_REMIT_SRA_OVERRIDE_PAYEE_FLA,
1178     REMIT_ADVICE_DELIVERY_METHOD = X_REMIT_ADVICE_DELIVERY_METHOD,
1179     automatic_sra_submit_flag = X_REMIT_AUTOMATIC_SRA_SUBMIT,
1180     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1181     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1182     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
1183  where system_profile_code = l_sys_profile_code_tab(i);
1184 
1185  if (sql%notfound) then
1186     raise no_data_found;
1187   end if;
1188 
1189 
1190  END LOOP;
1191 
1192   update IBY_UPG_PPP_TL set
1193     SYSTEM_PROFILE_NAME = X_SYSTEM_PROFILE_NAME,
1194     SYSTEM_PROFILE_DESCRIPTION = X_SYSTEM_PROFILE_DESCRIPTION,
1195     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1196     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1197     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
1198     SOURCE_LANG = userenv('LANG')
1199   where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
1200   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
1201 
1202   if (sql%notfound) then
1203     raise no_data_found;
1204   end if;
1205 end UPDATE_ROW;
1206 
1207 procedure DELETE_ROW (
1208   X_SYSTEM_PROFILE_CODE in VARCHAR2
1209 ) is
1210 begin
1211   delete from IBY_UPG_PPP_TL
1212   where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE;
1213 
1214   if (sql%notfound) then
1215     raise no_data_found;
1216   end if;
1217 
1218   delete from IBY_UPG_PPP_B
1219   where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE;
1220 
1221   if (sql%notfound) then
1222     raise no_data_found;
1223   end if;
1224 end DELETE_ROW;
1225 
1226 procedure ADD_LANGUAGE
1227 is
1228 begin
1229   delete from IBY_UPG_PPP_TL T
1230   where not exists
1231     (select NULL
1232     from IBY_UPG_PPP_B B
1233     where B.SYSTEM_PROFILE_CODE = T.SYSTEM_PROFILE_CODE
1234     );
1235 
1236   update IBY_UPG_PPP_TL T set (
1237       SYSTEM_PROFILE_NAME,
1238       SYSTEM_PROFILE_DESCRIPTION
1239     ) = (select
1240       B.SYSTEM_PROFILE_NAME,
1241       B.SYSTEM_PROFILE_DESCRIPTION
1242     from IBY_UPG_PPP_TL B
1243     where B.SYSTEM_PROFILE_CODE = T.SYSTEM_PROFILE_CODE
1244     and B.LANGUAGE = T.SOURCE_LANG)
1245   where (
1246       T.SYSTEM_PROFILE_CODE,
1247       T.LANGUAGE
1248   ) in (select
1249       SUBT.SYSTEM_PROFILE_CODE,
1250       SUBT.LANGUAGE
1251     from IBY_UPG_PPP_TL SUBB, IBY_UPG_PPP_TL SUBT
1252     where SUBB.SYSTEM_PROFILE_CODE = SUBT.SYSTEM_PROFILE_CODE
1253     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1254     and (SUBB.SYSTEM_PROFILE_NAME <> SUBT.SYSTEM_PROFILE_NAME
1255       or SUBB.SYSTEM_PROFILE_DESCRIPTION <> SUBT.SYSTEM_PROFILE_DESCRIPTION
1256       or (SUBB.SYSTEM_PROFILE_DESCRIPTION is null and SUBT.SYSTEM_PROFILE_DESCRIPTION is not null)
1257       or (SUBB.SYSTEM_PROFILE_DESCRIPTION is not null and SUBT.SYSTEM_PROFILE_DESCRIPTION is null)
1258   ));
1259 
1260   insert into IBY_UPG_PPP_TL (
1261     SYSTEM_PROFILE_CODE,
1262     SYSTEM_PROFILE_NAME,
1263     SYSTEM_PROFILE_DESCRIPTION,
1264     CREATED_BY,
1265     CREATION_DATE,
1266     LAST_UPDATED_BY,
1267     LAST_UPDATE_DATE,
1268     LAST_UPDATE_LOGIN,
1269     OBJECT_VERSION_NUMBER,
1270     LANGUAGE,
1271     SOURCE_LANG
1272   ) select /*+ ORDERED */
1273     B.SYSTEM_PROFILE_CODE,
1274     B.SYSTEM_PROFILE_NAME,
1275     B.SYSTEM_PROFILE_DESCRIPTION,
1276     B.CREATED_BY,
1277     B.CREATION_DATE,
1278     B.LAST_UPDATED_BY,
1279     B.LAST_UPDATE_DATE,
1280     B.LAST_UPDATE_LOGIN,
1281     B.OBJECT_VERSION_NUMBER,
1282     L.LANGUAGE_CODE,
1283     B.SOURCE_LANG
1284   from IBY_UPG_PPP_TL B, FND_LANGUAGES L
1285   where L.INSTALLED_FLAG in ('I', 'B')
1286   and B.LANGUAGE = userenv('LANG')
1287   and not exists
1288     (select NULL
1289     from IBY_UPG_PPP_TL T
1290     where T.SYSTEM_PROFILE_CODE = B.SYSTEM_PROFILE_CODE
1291     and T.LANGUAGE = L.LANGUAGE_CODE);
1292 end ADD_LANGUAGE;
1293 
1294 procedure LOAD_ROW (
1295   X_SYSTEM_PROFILE_CODE in VARCHAR2,
1296   X_BEP_SUFFIX in VARCHAR2,
1297   X_SECURITY_PROTOCOL_CODE in VARCHAR2,
1298   X_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
1299   X_PAYMENT_FORMAT_CODE in VARCHAR2,
1300   X_POSITIVE_PAY_FORMAT_CODE in VARCHAR2,
1301   X_PAY_FILE_LETTER_FORMAT_CODE in VARCHAR2,
1302   X_PRINT_INSTRUCTION_IMMED_FLAG in VARCHAR2,
1303   X_PERIODIC_SEQUENCE_NAME_1 in VARCHAR2,
1304   X_PERIODIC_SEQUENCE_NAME_2 in VARCHAR2,
1305   X_PERIODIC_SEQUENCE_NAME_3 in VARCHAR2,
1306   X_PROCESSING_TYPE in VARCHAR2,
1307   X_MARK_COMPLETE_EVENT in VARCHAR2,
1308   X_MANUAL_MARK_COMPLETE_FLAG in VARCHAR2,
1309   X_POSITIVE_PAY_DELIVERY_FLAG in VARCHAR2,
1310   X_TRANSMIT_INSTR_IMMED_FLAG in VARCHAR2,
1311   X_AUTOMATIC_PI_REG_SUBMIT in VARCHAR2,
1312   X_DECLARATION_OPTION in VARCHAR2,
1313   X_DCL_ONLY_FOREIGN_CURR_PMT_FL in VARCHAR2,
1314   X_DECLARATION_REPORT_FORMAT_CO in VARCHAR2,
1315   X_DECLARATION_CURR_FX_RATE_TYP in VARCHAR2,
1316   X_DECLARATION_CURRENCY_CODE in VARCHAR2,
1317   X_DECLARATION_THRESHOLD_AMOUNT in NUMBER,
1318   X_BANK_INSTRUCTION1_CODE in VARCHAR2,
1319   X_BANK_INSTRUCTION2_CODE in VARCHAR2,
1320   X_BANK_INSTRUCTION_DETAILS in VARCHAR2,
1321   X_PAYMENT_TEXT_MESSAGE1 in VARCHAR2,
1322   X_PAYMENT_TEXT_MESSAGE2 in VARCHAR2,
1323   X_ACK_TRANSMIT_PROTOCOL_CODE in VARCHAR2,
1324   X_ACK_SECURITY_PROTOCOL_CODE in VARCHAR2,
1325   X_SEND_TO_FILE_FLAG in VARCHAR2,
1326   X_PI_REGISTER_FORMAT in VARCHAR2,
1327   X_BEP_ACCOUNT_ID in NUMBER,
1328   X_APPLICABLE_PMT_METHOD in VARCHAR2,
1329   X_APPLICABLE_CURRENCY in VARCHAR2,
1330   X_APPLICABLE_PAYER_ORG in VARCHAR2,
1331   X_APPLICABLE_INT_BANK_ACCOUNT in VARCHAR2,
1332   X_PMT_GROUP_BY_PAYMENT_DETAILS in VARCHAR2,
1333   X_PMT_GROUP_BY_BANK_CHARGE_BEA in VARCHAR2,
1334   X_PMT_GROUP_BY_DELIVERY_CHANNE in VARCHAR2,
1335   X_PMT_GROUP_BY_REMITTANCE_MES in VARCHAR2,
1336   X_PMT_GROUP_BY_MAX_DOCUMENTS in VARCHAR2,
1337   X_PMT_GROUP_BY_UNIQUE_REMIT_ID in VARCHAR2,
1338   X_PMT_GROUP_BY_SETTLE_PRIORITY in VARCHAR2,
1339   X_PMT_GROUP_BY_PAYMENT_REASON in VARCHAR2,
1340   X_PMT_GROUP_BY_DUE_DATE_FLAG in VARCHAR2,
1341   X_PMT_MAX_DOCUMENTS_PER_PAYMEN in NUMBER,
1342   X_PMT_PAYMENT_DETAILS_LENGTH_L in NUMBER,
1343   X_PMT_PAYMENT_DETAILS_FORMULA in VARCHAR2,
1344   X_INST_GROUP_BY_PAYMENT_DATE in VARCHAR2,
1345   X_INST_GROUP_BY_PAYMENT_CURREN in VARCHAR2,
1346   X_INST_GROUP_BY_INT_BANK_ACCT in VARCHAR2,
1347   X_INST_GROUP_BY_MAX_PAYMENTS in VARCHAR2,
1348   X_INST_GROUP_BY_PAY_SERVICE_RE in VARCHAR2,
1349   X_INST_GROUP_BY_LEGAL_ENTITY in VARCHAR2,
1350   X_INST_GROUP_BY_BILL_PAYABLE in VARCHAR2,
1351   X_INST_GROUP_BY_MAX_INSTRUCTIO in VARCHAR2,
1352   X_INST_GROUP_BY_ORGANIZATION in VARCHAR2,
1353   X_INST_GROUP_BY_PAYMENT_FUNCTI in VARCHAR2,
1354   X_INST_GROUP_BY_PAYMENT_REASON in VARCHAR2,
1355   X_INST_GROUP_BY_RFC in VARCHAR2,
1356   X_INST_MAX_PAYMENTS_PER_INSTR in NUMBER,
1357   X_INST_MAX_AMOUNT_PER_INSTR_VA in NUMBER,
1358   X_INST_MAX_AMOUNT_PER_INSTR_CU in VARCHAR2,
1359   X_INST_MAX_AMOUNT_FX_RATE_TYPE in VARCHAR2,
1360   X_INST_SORT_OPTION_1 in VARCHAR2,
1361   X_INST_SORT_ORDER_1 in VARCHAR2,
1362   X_INST_SORT_OPTION_2 in VARCHAR2,
1363   X_INST_SORT_ORDER_2 in VARCHAR2,
1364   X_INST_SORT_OPTION_3 in VARCHAR2,
1365   X_INST_SORT_ORDER_3 in VARCHAR2,
1366   X_REMIT_DOCUMENT_COUNT_LIMIT in NUMBER,
1367   X_REMIT_ALLOW_MULTIPLE_COPY_FL in VARCHAR2,
1368   X_REMIT_PMT_DETAILS_LENGTH_LIM in NUMBER,
1369   X_REMIT_REMITTANCE_ADVICE_FORM in VARCHAR2,
1370   X_REMIT_SRA_OVERRIDE_PAYEE_FLA in VARCHAR2,
1371   X_REMIT_ADVICE_DELIVERY_METHOD in VARCHAR2,
1372   X_REMIT_AUTOMATIC_SRA_SUBMIT in VARCHAR2,
1373   X_SYSTEM_PROFILE_NAME in VARCHAR2,
1374   X_SYSTEM_PROFILE_DESCRIPTION in VARCHAR2,
1375   X_CREATION_DATE in DATE,
1376   X_CREATED_BY in NUMBER,
1377   X_LAST_UPDATE_DATE in DATE,
1378   X_LAST_UPDATED_BY in NUMBER,
1379   X_LAST_UPDATE_LOGIN in NUMBER,
1380   X_OBJECT_VERSION_NUMBER in NUMBER,
1381   X_ELECTRONIC_PROCESSING_CHNNL in VARCHAR2,
1382   X_LOGICAL_GROUPING_MODE in VARCHAR2,
1383   X_BATCH_BOOKING_FLAG in VARCHAR2,
1384   X_INST_GROUP_BY_PAYMENT_METHOD in VARCHAR2
1385 )
1386   is
1387       row_id VARCHAR2(200);
1388   begin
1389 
1390 UPDATE_ROW (
1391   X_SYSTEM_PROFILE_CODE,
1392   X_REMIT_PMT_DETAILS_LENGTH_LIM,
1393   X_REMIT_REMITTANCE_ADVICE_FORM,
1394   X_REMIT_SRA_OVERRIDE_PAYEE_FLA,
1395   X_REMIT_ADVICE_DELIVERY_METHOD,
1396   X_REMIT_AUTOMATIC_SRA_SUBMIT,
1397   X_OBJECT_VERSION_NUMBER,
1398   X_PMT_PAYMENT_DETAILS_FORMULA,
1399   X_INST_GROUP_BY_LEGAL_ENTITY,
1400   X_INST_GROUP_BY_BILL_PAYABLE,
1401   X_INST_GROUP_BY_MAX_INSTRUCTIO,
1402   X_INST_GROUP_BY_ORGANIZATION,
1403   X_INST_GROUP_BY_PAYMENT_FUNCTI,
1404   X_INST_GROUP_BY_PAYMENT_REASON,
1405   X_INST_GROUP_BY_RFC,
1406   X_INST_MAX_PAYMENTS_PER_INSTR,
1407   X_INST_MAX_AMOUNT_PER_INSTR_VA,
1408   X_INST_MAX_AMOUNT_PER_INSTR_CU,
1409   X_INST_MAX_AMOUNT_FX_RATE_TYPE,
1410   X_INST_SORT_OPTION_1,
1411   X_INST_SORT_ORDER_1,
1412   X_INST_SORT_OPTION_2,
1413   X_POSITIVE_PAY_DELIVERY_FLAG,
1414   X_TRANSMIT_INSTR_IMMED_FLAG,
1415   X_AUTOMATIC_PI_REG_SUBMIT,
1416   X_PMT_GROUP_BY_DELIVERY_CHANNE,
1417   X_PMT_GROUP_BY_REMITTANCE_MES,
1418   X_PMT_GROUP_BY_MAX_DOCUMENTS,
1419   X_PMT_GROUP_BY_UNIQUE_REMIT_ID,
1420   X_PMT_GROUP_BY_SETTLE_PRIORITY,
1421   X_PMT_GROUP_BY_PAYMENT_REASON,
1422   X_PMT_GROUP_BY_DUE_DATE_FLAG,
1423   X_PMT_MAX_DOCUMENTS_PER_PAYMEN,
1424   X_PMT_PAYMENT_DETAILS_LENGTH_L,
1425   X_PMT_GROUP_BY_PAYMENT_DETAILS,
1426   X_PMT_GROUP_BY_BANK_CHARGE_BEA,
1427   X_INST_SORT_ORDER_2,
1428   X_INST_SORT_OPTION_3,
1429   X_INST_SORT_ORDER_3,
1430   X_REMIT_DOCUMENT_COUNT_LIMIT,
1431   X_REMIT_ALLOW_MULTIPLE_COPY_FL,
1432   X_INST_GROUP_BY_PAYMENT_DATE,
1433   X_INST_GROUP_BY_PAYMENT_CURREN,
1434   X_INST_GROUP_BY_INT_BANK_ACCT,
1435   X_INST_GROUP_BY_MAX_PAYMENTS,
1436   X_INST_GROUP_BY_PAY_SERVICE_RE,
1437   X_DCL_ONLY_FOREIGN_CURR_PMT_FL,
1438   X_DECLARATION_REPORT_FORMAT_CO,
1439   X_DECLARATION_CURR_FX_RATE_TYP,
1440   X_DECLARATION_CURRENCY_CODE,
1441   X_DECLARATION_THRESHOLD_AMOUNT,
1442   X_BANK_INSTRUCTION1_CODE,
1443   X_BANK_INSTRUCTION2_CODE,
1444   X_BANK_INSTRUCTION_DETAILS,
1445   X_PAYMENT_TEXT_MESSAGE1,
1446   X_PAYMENT_TEXT_MESSAGE2,
1447   X_ACK_TRANSMIT_PROTOCOL_CODE,
1448   X_ACK_SECURITY_PROTOCOL_CODE,
1449   X_SEND_TO_FILE_FLAG,
1450   X_PI_REGISTER_FORMAT,
1451   X_BEP_ACCOUNT_ID,
1452   X_APPLICABLE_PMT_METHOD,
1453   X_APPLICABLE_CURRENCY,
1454   X_APPLICABLE_PAYER_ORG,
1455   X_APPLICABLE_INT_BANK_ACCOUNT,
1456   X_BEP_SUFFIX,
1457   X_SECURITY_PROTOCOL_CODE,
1458   X_TRANSMIT_PROTOCOL_CODE,
1459   X_PAYMENT_FORMAT_CODE,
1460   X_POSITIVE_PAY_FORMAT_CODE,
1461   X_PAY_FILE_LETTER_FORMAT_CODE,
1462   X_PRINT_INSTRUCTION_IMMED_FLAG,
1463   X_PERIODIC_SEQUENCE_NAME_1,
1464   X_PERIODIC_SEQUENCE_NAME_2,
1465   X_PERIODIC_SEQUENCE_NAME_3,
1466   X_PROCESSING_TYPE,
1467   X_MARK_COMPLETE_EVENT,
1468   X_MANUAL_MARK_COMPLETE_FLAG,
1469   X_DECLARATION_OPTION,
1470   X_SYSTEM_PROFILE_NAME,
1471   X_SYSTEM_PROFILE_DESCRIPTION,
1472   X_LAST_UPDATE_DATE,
1473   X_LAST_UPDATED_BY,
1474   X_LAST_UPDATE_LOGIN,
1475   X_ELECTRONIC_PROCESSING_CHNNL,
1476   X_LOGICAL_GROUPING_MODE,
1477   X_BATCH_BOOKING_FLAG,
1478   X_INST_GROUP_BY_PAYMENT_METHOD);
1479 
1480   exception
1481     when no_data_found then
1482 INSERT_ROW (
1483   row_id,
1484   X_SYSTEM_PROFILE_CODE,
1485   X_REMIT_PMT_DETAILS_LENGTH_LIM,
1486   X_REMIT_REMITTANCE_ADVICE_FORM,
1487   X_REMIT_SRA_OVERRIDE_PAYEE_FLA,
1488   X_REMIT_ADVICE_DELIVERY_METHOD,
1489   X_REMIT_AUTOMATIC_SRA_SUBMIT,
1490   X_OBJECT_VERSION_NUMBER,
1491   X_PMT_PAYMENT_DETAILS_FORMULA,
1492   X_INST_GROUP_BY_LEGAL_ENTITY,
1493   X_INST_GROUP_BY_BILL_PAYABLE,
1494   X_INST_GROUP_BY_MAX_INSTRUCTIO,
1495   X_INST_GROUP_BY_ORGANIZATION,
1496   X_INST_GROUP_BY_PAYMENT_FUNCTI,
1497   X_INST_GROUP_BY_PAYMENT_REASON,
1498   X_INST_GROUP_BY_RFC,
1499   X_INST_MAX_PAYMENTS_PER_INSTR,
1500   X_INST_MAX_AMOUNT_PER_INSTR_VA,
1501   X_INST_MAX_AMOUNT_PER_INSTR_CU,
1502   X_INST_MAX_AMOUNT_FX_RATE_TYPE,
1503   X_INST_SORT_OPTION_1,
1504   X_INST_SORT_ORDER_1,
1505   X_INST_SORT_OPTION_2,
1506   X_POSITIVE_PAY_DELIVERY_FLAG,
1507   X_TRANSMIT_INSTR_IMMED_FLAG,
1508   X_AUTOMATIC_PI_REG_SUBMIT,
1509   X_PMT_GROUP_BY_DELIVERY_CHANNE,
1510   X_PMT_GROUP_BY_REMITTANCE_MES,
1511   X_PMT_GROUP_BY_MAX_DOCUMENTS,
1512   X_PMT_GROUP_BY_UNIQUE_REMIT_ID,
1513   X_PMT_GROUP_BY_SETTLE_PRIORITY,
1514   X_PMT_GROUP_BY_PAYMENT_REASON,
1515   X_PMT_GROUP_BY_DUE_DATE_FLAG,
1516   X_PMT_MAX_DOCUMENTS_PER_PAYMEN,
1517   X_PMT_PAYMENT_DETAILS_LENGTH_L,
1518   X_PMT_GROUP_BY_PAYMENT_DETAILS,
1519   X_PMT_GROUP_BY_BANK_CHARGE_BEA,
1520   X_INST_SORT_ORDER_2,
1521   X_INST_SORT_OPTION_3,
1522   X_INST_SORT_ORDER_3,
1523   X_REMIT_DOCUMENT_COUNT_LIMIT,
1524   X_REMIT_ALLOW_MULTIPLE_COPY_FL,
1525   X_INST_GROUP_BY_PAYMENT_DATE,
1526   X_INST_GROUP_BY_PAYMENT_CURREN,
1527   X_INST_GROUP_BY_INT_BANK_ACCT,
1528   X_INST_GROUP_BY_MAX_PAYMENTS,
1529   X_INST_GROUP_BY_PAY_SERVICE_RE,
1530   X_DCL_ONLY_FOREIGN_CURR_PMT_FL,
1531   X_DECLARATION_REPORT_FORMAT_CO,
1532   X_DECLARATION_CURR_FX_RATE_TYP,
1533   X_DECLARATION_CURRENCY_CODE,
1534   X_DECLARATION_THRESHOLD_AMOUNT,
1535   X_BANK_INSTRUCTION1_CODE,
1536   X_BANK_INSTRUCTION2_CODE,
1537   X_BANK_INSTRUCTION_DETAILS,
1538   X_PAYMENT_TEXT_MESSAGE1,
1539   X_PAYMENT_TEXT_MESSAGE2,
1540   X_ACK_TRANSMIT_PROTOCOL_CODE,
1541   X_ACK_SECURITY_PROTOCOL_CODE,
1542   X_SEND_TO_FILE_FLAG,
1543   X_PI_REGISTER_FORMAT,
1544   X_BEP_ACCOUNT_ID,
1545   X_APPLICABLE_PMT_METHOD,
1546   X_APPLICABLE_CURRENCY,
1547   X_APPLICABLE_PAYER_ORG,
1548   X_APPLICABLE_INT_BANK_ACCOUNT,
1549   X_BEP_SUFFIX,
1550   X_SECURITY_PROTOCOL_CODE,
1551   X_TRANSMIT_PROTOCOL_CODE,
1552   X_PAYMENT_FORMAT_CODE,
1553   X_POSITIVE_PAY_FORMAT_CODE,
1554   X_PAY_FILE_LETTER_FORMAT_CODE,
1555   X_PRINT_INSTRUCTION_IMMED_FLAG,
1556   X_PERIODIC_SEQUENCE_NAME_1,
1557   X_PERIODIC_SEQUENCE_NAME_2,
1558   X_PERIODIC_SEQUENCE_NAME_3,
1559   X_PROCESSING_TYPE,
1560   X_MARK_COMPLETE_EVENT,
1561   X_MANUAL_MARK_COMPLETE_FLAG,
1562   X_DECLARATION_OPTION,
1563   X_SYSTEM_PROFILE_NAME,
1564   X_SYSTEM_PROFILE_DESCRIPTION,
1565   X_CREATION_DATE,
1566   X_CREATED_BY,
1567   X_LAST_UPDATE_DATE,
1568   X_LAST_UPDATED_BY,
1569   X_LAST_UPDATE_LOGIN,
1570   X_ELECTRONIC_PROCESSING_CHNNL,
1571   X_LOGICAL_GROUPING_MODE,
1572   X_BATCH_BOOKING_FLAG,
1573   X_INST_GROUP_BY_PAYMENT_METHOD);
1574 
1575 end LOAD_ROW;
1576 
1577 procedure TRANSLATE_ROW (
1578   X_SYSTEM_PROFILE_CODE in VARCHAR2,
1579   X_SYSTEM_PROFILE_NAME in VARCHAR2,
1580   X_SYSTEM_PROFILE_DESCRIPTION in VARCHAR2,
1581   X_LAST_UPDATE_DATE in DATE,
1582   X_LAST_UPDATED_BY in NUMBER,
1583   X_LAST_UPDATE_LOGIN in NUMBER)
1584   is
1585   begin
1586     update IBY_UPG_PPP_TL set
1587     SYSTEM_PROFILE_NAME = X_SYSTEM_PROFILE_NAME,
1588     SYSTEM_PROFILE_DESCRIPTION = X_SYSTEM_PROFILE_DESCRIPTION,
1589     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
1590     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1591     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
1592     SOURCE_LANG = userenv('LANG')
1593   where SYSTEM_PROFILE_CODE = X_SYSTEM_PROFILE_CODE
1594   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
1595 
1596   if (sql%notfound) then
1597     raise no_data_found;
1598   end if;
1599 
1600   end TRANSLATE_ROW;
1601 
1602 end IBY_UPG_PPP_PKG;