PACKAGE BODY: APPS.JL_ZZ_POSTBATCH

Source

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