PACKAGE BODY: APPS.AR_CUST_BAL_RPT_PKG

Source

1 PACKAGE BODY AR_CUST_BAL_RPT_PKG
2 -- $Header: AR_CBSLRPTB.pls 120.0.12000000.1 2007/10/23 14:12:26 sgudupat noship $
3 --*************************************************************************
4 -- Copyright (c)  2000    Oracle                 Product Development
5 -- All rights reserved
6 --*************************************************************************
7 --
8 -- HEADER
9 --   Source control header
10 --
11 -- PROGRAM NAME
12 --  AR_CBSLRPTB.pls
13 --
14 -- DESCRIPTION
15 --  This script creates the package body of AR_CUST_BAL_RPT_PKG
16 --  This package is used to report on AR Customer Balance Statement Letter Report.
17 --
18 -- USAGE
19 --   To install       sqlplus <apps_user>/<apps_pwd> @AR_CBSLRPTB.pls
20 --   To execute       sqlplus <apps_user>/<apps_pwd> AR_CUST_BAL_RPT_PKG
21 --
22 -- PROGRAM LIST                DESCRIPTION
23 --
24 -- DEPENDENCIES
25 --   None
26 --
27 -- CALLED BY
28 --   Statement Generation Program.
29 --
30 -- LAST UPDATE DATE   24-Jun-2007
31 --   Date the program has been modified for the last time
32 --
33 -- HISTORY
34 -- =======
35 --
36 -- VERSION DATE        AUTHOR(S)       DESCRIPTION
37 -- ------- ----------- --------------- ------------------------------------
38 -- Draft1A 02-Feb-2007 Sajana Doma     Initial Creation
39 --
40 --
41 --************************************************************************
42 AS
43    FUNCTION BeforeReport RETURN BOOLEAN
44    IS
45     l_count1 number;
46     l_count2 number;
47    BEGIN
48       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
49       P_SORT_BY_PHONETICS := FND_PROFILE.VALUE('RA_CUSTOMERS_SORT_BY_PHONETICS');
50 
51       IF P_SORT_BY_PHONETICS = 'Y'
52       THEN
53          P_SORT := 'HZP.ORGANIZATION_NAME_PHONETIC';
54       ELSE
55          P_SORT := 'HZP.PARTY_NAME';
56       END IF;
57 
58       RETURN (TRUE);
59    EXCEPTION
60       WHEN OTHERS THEN
61          P_SORT_BY_PHONETICS := 'N';
62          P_SORT := 'HZP.PARTY_NAME';
63    END;
64 
65    FUNCTION AfterReport RETURN BOOLEAN
66    IS
67    l_count1 number;
68    l_count2 number;
69    BEGIN
70       RETURN (TRUE);
71    END;
72 
73 END AR_CUST_BAL_RPT_PKG;