PACKAGE BODY: APPS.FA_FAWHTIF_XMLP_PKG

Source

1 PACKAGE BODY FA_FAWHTIF_XMLP_PKG AS
2 /* $Header: FAWHTIFB.pls 120.0.12010000.1 2008/07/28 13:19:30 appldev ship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       L_CURRENCY_CODE VARCHAR2(15);
7       L_PRECISION NUMBER(15);
8       L_COMPANY_NAME VARCHAR2(30);
9     BEGIN
10 
11         P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 select SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
13 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2)),
14 SUBSTR(argument3,INSTR(argument3,'=',1)+1,LENGTH(argument3))
15 into P_REQUEST_ID_T,P_BOOK_T,P_CURRENCY_T
16         from FND_CONCURRENT_REQUESTS
17 where request_id=P_CONC_REQUEST_ID;
18       SELECT
19         SC.COMPANY_NAME
20       INTO
21         L_COMPANY_NAME
22       FROM
23         FA_SYSTEM_CONTROLS SC;
24       SELECT
25         SOB.CURRENCY_CODE,
26         CUR.PRECISION
27       INTO
28         L_CURRENCY_CODE
29         ,L_PRECISION
30       FROM
31         FA_BOOK_CONTROLS BC,
32         GL_SETS_OF_BOOKS SOB,
33         FND_CURRENCIES CUR
34       WHERE BC.BOOK_TYPE_CODE = P_BOOK_T
35         AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
36         AND CUR.CURRENCY_CODE = SOB.CURRENCY_CODE;
37       RP_COMPANY_NAME := L_COMPANY_NAME;
38       C_CURRENCY_CODE := L_CURRENCY_CODE;
39       P_MIN_PRECISION := L_PRECISION;
40       C_BOOK_TYPE_CODE := P_BOOK_T;
41       C_CURRENCY_CODE := P_CURRENCY_T;
42       DECLARE
43         L_REPORT_NAME VARCHAR2(80);
44         L_CONC_PROGRAM_ID NUMBER;
45       BEGIN
46         SELECT
47           CR.CONCURRENT_PROGRAM_ID
48         INTO
49           L_CONC_PROGRAM_ID
50         FROM
51           FND_CONCURRENT_REQUESTS CR
52         WHERE CR.PROGRAM_APPLICATION_ID = 140
53           AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
54         SELECT
55           CP.USER_CONCURRENT_PROGRAM_NAME
56         INTO
57           L_REPORT_NAME
58         FROM
59           FND_CONCURRENT_PROGRAMS_VL CP
60         WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
61           AND CP.APPLICATION_ID = 140;
62         RP_REPORT_NAME := L_REPORT_NAME;
63       EXCEPTION
64         WHEN OTHERS THEN
65           RP_REPORT_NAME := 'What-If Depreciation Report';
66       END;
67       RETURN (TRUE);
68     EXCEPTION
69       WHEN OTHERS THEN
70         RETURN (FALSE);
71     END;
72   END BEFOREREPORT;
73 
74   FUNCTION AFTERREPORT RETURN BOOLEAN IS
75   BEGIN
76     RETURN (TRUE);
77   END AFTERREPORT;
78 
79   FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
80   BEGIN
81     RETURN RP_COMPANY_NAME;
82   END RP_COMPANY_NAME_P;
83 
84   FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
85   BEGIN
86     RETURN RP_REPORT_NAME;
87   END RP_REPORT_NAME_P;
88 
89   FUNCTION C_CURRENCY_CODE_P RETURN VARCHAR2 IS
90   BEGIN
91     RETURN C_CURRENCY_CODE;
92   END C_CURRENCY_CODE_P;
93 
94   FUNCTION C_BOOK_TYPE_CODE_P RETURN VARCHAR2 IS
95   BEGIN
96     RETURN C_BOOK_TYPE_CODE;
97   END C_BOOK_TYPE_CODE_P;
98 
99 END FA_FAWHTIF_XMLP_PKG;
100