PACKAGE BODY: APPS.FA_FAHYPWIF_XMLP_PKG

Source

1 PACKAGE BODY FA_FAHYPWIF_XMLP_PKG AS
2 /* $Header: FAHYPWIFB.pls 120.1.12010000.1 2008/07/28 13:12:04 appldev ship $ */
3 
4   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
5   BEGIN
6     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 
8    SELECT SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=',1,1)+1)
9 	INTO P_CONC_REQUEST_ID_RX
10 	FROM FND_CONCURRENT_REQUESTS
11 	WHERE REQUEST_ID =P_CONC_REQUEST_ID;
12 
13     SELECT SUBSTR(ARGUMENT2,INSTR(ARGUMENT2,'=',1,1)+1)
14 	INTO P_BOOK1
15 	FROM FND_CONCURRENT_REQUESTS
16 	WHERE REQUEST_ID =P_CONC_REQUEST_ID;
17 
18     SELECT SUBSTR(ARGUMENT2,INSTR(ARGUMENT2,'=',1,1)+1)
19 	INTO P_BOOK1
20 	FROM FND_CONCURRENT_REQUESTS
21 	WHERE REQUEST_ID =P_CONC_REQUEST_ID;
22 
23 	SELECT SUBSTR(ARGUMENT3,INSTR(ARGUMENT3,'=',1,1)+1)
24 	INTO P_CURRENCY1
25 	FROM FND_CONCURRENT_REQUESTS
26 	WHERE REQUEST_ID =P_CONC_REQUEST_ID;
27     DECLARE
28       L_CURRENCY_CODE VARCHAR2(15);
29       L_PRECISION NUMBER(15);
30       L_COMPANY_NAME VARCHAR2(30);
31     BEGIN
32       SELECT
33         SC.COMPANY_NAME
34       INTO
35         L_COMPANY_NAME
36       FROM
37         FA_SYSTEM_CONTROLS SC;
38       SELECT
39         SOB.CURRENCY_CODE,
40         CUR.PRECISION
41       INTO
42         L_CURRENCY_CODE
43         ,L_PRECISION
44       FROM
45         FA_BOOK_CONTROLS BC,
46         GL_SETS_OF_BOOKS SOB,
47         FND_CURRENCIES CUR
48       --WHERE BC.BOOK_TYPE_CODE = P_BOOK
49       WHERE BC.BOOK_TYPE_CODE = P_BOOK1
50         AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
51         AND CUR.CURRENCY_CODE = SOB.CURRENCY_CODE;
52       RP_COMPANY_NAME := L_COMPANY_NAME;
53       C_CURRENCY_CODE := L_CURRENCY_CODE;
54       P_MIN_PRECISION := L_PRECISION;
55       C_CURRENCY_CODE := P_CURRENCY1;
56       --C_CURRENCY_CODE := P_CURRENCY;
57       DECLARE
58         L_REPORT_NAME VARCHAR2(80);
59         L_CONC_PROGRAM_ID NUMBER;
60       BEGIN
61         SELECT
62           CR.CONCURRENT_PROGRAM_ID
63         INTO
64           L_CONC_PROGRAM_ID
65         FROM
66           FND_CONCURRENT_REQUESTS CR
67         WHERE CR.PROGRAM_APPLICATION_ID = 140
68           AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
69         SELECT
70           CP.USER_CONCURRENT_PROGRAM_NAME
71         INTO
72           L_REPORT_NAME
73         FROM
74           FND_CONCURRENT_PROGRAMS_VL CP
75         WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
76           AND CP.APPLICATION_ID = 140;
77         RP_REPORT_NAME := L_REPORT_NAME;
78 	--Added
79 	IF (UPPER(RP_REPORT_NAME) LIKE 'HYPOTHETICAL%WHAT%IF%REPORT%(XML)%') THEN
80 		RP_REPORT_NAME := 'Hypothetical What If Report';
81 	END IF;
82 
83       EXCEPTION
84         WHEN OTHERS THEN
85           RP_REPORT_NAME := 'Hypothetical What-If Report';
86       END;
87       RETURN (TRUE);
88     EXCEPTION
89       WHEN OTHERS THEN
90         RETURN (FALSE);
91     END;
92   END BEFOREREPORT;
93 
94   FUNCTION AFTERREPORT RETURN BOOLEAN IS
95   BEGIN
96     RETURN (TRUE);
97   END AFTERREPORT;
98 
99   FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
100   BEGIN
101     RETURN RP_COMPANY_NAME;
102   END RP_COMPANY_NAME_P;
103 
104   FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
105   BEGIN
106     RETURN RP_REPORT_NAME;
107   END RP_REPORT_NAME_P;
108 
109   FUNCTION C_CURRENCY_CODE_P RETURN VARCHAR2 IS
110   BEGIN
111     RETURN C_CURRENCY_CODE;
112   END C_CURRENCY_CODE_P;
113 
114 END FA_FAHYPWIF_XMLP_PKG;