1 PACKAGE BODY JL_ZZ_POSTBATCH as
2 /*$Header: jlarrpbb.pls 115.0 99/07/16 02:59:47 porting ship $*/
3
4 PROCEDURE populate_gdfs (
5 p_cash_receipt_id IN ar_cash_receipts_all.cash_receipt_id%TYPE,
6 p_batch_id IN ar_batches.batch_id%TYPE )
7 IS
8 BEGIN
9
10 IF fnd_profile.value ('JGZZ_COUNTRY_CODE') = 'AR' THEN
11
12 UPDATE ar_cash_receipts
13 SET global_attribute1 = (SELECT name
14 FROM ar_batches
15 WHERE batch_id = p_batch_id),
16 global_attribute_category = 'JL.AR.ARXRWMAI.RGW_FOLDER'
17 WHERE cash_receipt_id = p_cash_receipt_id;
18
19 END IF;
20
21 END populate_gdfs;
22
23 END JL_ZZ_POSTBATCH;
24