1 PACKAGE BODY FA_FAS822_XMLP_PKG AS
2 /* $Header: FAS822B.pls 120.0.12010000.1 2008/07/28 13:15:39 appldev ship $ */
3 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_REPORT_NAME VARCHAR2(80);
7 L_CONC_PROGRAM_ID NUMBER;
8 BEGIN
9 RP_COMPANY_NAME := COMPANY_NAME;
10 SELECT
11 CR.CONCURRENT_PROGRAM_ID
12 INTO
13 L_CONC_PROGRAM_ID
14 FROM
15 FND_CONCURRENT_REQUESTS CR
16 WHERE CR.PROGRAM_APPLICATION_ID = 140
17 AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
18 SELECT
19 CP.USER_CONCURRENT_PROGRAM_NAME
20 INTO
21 L_REPORT_NAME
22 FROM
23 FND_CONCURRENT_PROGRAMS_VL CP
24 WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
25 AND CP.APPLICATION_ID = 140;
26 L_REPORT_NAME := substr(L_REPORT_NAME,1,instr(L_REPORT_NAME,' (XML)'));
27 RP_REPORT_NAME := L_REPORT_NAME;
28 RETURN (L_REPORT_NAME);
29 EXCEPTION
30 WHEN OTHERS THEN
31 RP_REPORT_NAME := ':Mass Additions Create Report:';
32 RETURN (RP_REPORT_NAME);
33 END;
34 RETURN NULL;
35 END REPORT_NAMEFORMULA;
36 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
37 BEGIN
38 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
39 RETURN (TRUE);
40 END BEFOREREPORT;
41 FUNCTION AFTERREPORT RETURN BOOLEAN IS
42 BEGIN
43 RETURN (TRUE);
44 END AFTERREPORT;
45 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
46 BEGIN
47 RETURN ACCT_BAL_APROMPT;
48 END ACCT_BAL_APROMPT_P;
49 FUNCTION ACCT_CC_APROMPT_P RETURN VARCHAR2 IS
50 BEGIN
51 RETURN ACCT_CC_APROMPT;
52 END ACCT_CC_APROMPT_P;
53 FUNCTION CAT_MAJ_RPROMPT_P RETURN VARCHAR2 IS
54 BEGIN
55 RETURN CAT_MAJ_RPROMPT;
56 END CAT_MAJ_RPROMPT_P;
57 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
58 BEGIN
59 RETURN RP_COMPANY_NAME;
60 END RP_COMPANY_NAME_P;
61 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
62 BEGIN
63 RETURN RP_REPORT_NAME;
64 END RP_REPORT_NAME_P;
65 END FA_FAS822_XMLP_PKG;
66