1 PACKAGE BODY AR_ARXNRREV_XMLP_PKG AS
2 /* $Header: ARXNRREVB.pls 120.0 2007/12/27 13:57:22 abraghun noship $ */
3 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_REPORT_NAME VARCHAR2(80);
7 BEGIN
8 RP_COMPANY_NAME := COMPANY_NAME;
9 SELECT
10 CP.USER_CONCURRENT_PROGRAM_NAME
11 INTO L_REPORT_NAME
12 FROM
13 FND_CONCURRENT_PROGRAMS_VL CP,
14 FND_CONCURRENT_REQUESTS CR
15 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
16 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
17 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
18 L_REPORT_NAME := substr(L_REPORT_NAME,1,instr(L_REPORT_NAME,' (XML)'));
19 RP_REPORT_NAME := L_REPORT_NAME;
20 RETURN (L_REPORT_NAME);
21 EXCEPTION
22 WHEN NO_DATA_FOUND THEN
23 RP_REPORT_NAME := 'Title of the Report';
24 RETURN ('Title of the Report');
25 END;
26 RETURN NULL;
27 END REPORT_NAMEFORMULA;
28 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
29 BEGIN
30 BEGIN
31 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
32 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
33 BEGIN
34 /*SRW.REFERENCE(RP_SORT_BY_PHONETICS)*/NULL;
35 RP_SORT_BY_PHONETICS := FND_PROFILE.VALUE('RA_CUSTOMERS_SORT_BY_PHONETICS');
36 EXCEPTION
37 WHEN OTHERS THEN
38 RP_SORT_BY_PHONETICS := 'N';
39 END;
40 SELECT
41 MEANING
42 INTO CP_ORDER_BY
43 FROM
44 AR_LOOKUPS
45 WHERE LOOKUP_TYPE = 'ARXNRREV_ORDER_BY'
46 AND LOOKUP_CODE = P_ORDER_BY;
47 END;
48 RETURN (TRUE);
49 END BEFOREREPORT;
50 FUNCTION SUB_TITLEFORMULA RETURN VARCHAR2 IS
51 BEGIN
52 BEGIN
53 RP_SUB_TITLE := ' ';
54 RETURN (' ');
55 END;
56 RETURN NULL;
57 END SUB_TITLEFORMULA;
58 FUNCTION AFTERREPORT RETURN BOOLEAN IS
59 BEGIN
60 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
61 RETURN (TRUE);
62 END AFTERREPORT;
63 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
64 BEGIN
65 RETURN RP_COMPANY_NAME;
66 END RP_COMPANY_NAME_P;
67 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
68 BEGIN
69 RETURN RP_REPORT_NAME;
70 END RP_REPORT_NAME_P;
71 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
72 BEGIN
73 RETURN RP_DATA_FOUND;
74 END RP_DATA_FOUND_P;
75 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
76 BEGIN
77 RETURN RP_SUB_TITLE;
78 END RP_SUB_TITLE_P;
79 FUNCTION CP_ORDER_BY_P RETURN VARCHAR2 IS
80 BEGIN
81 RETURN CP_ORDER_BY;
82 END CP_ORDER_BY_P;
83 FUNCTION RP_SORT_BY_PHONETICS_P RETURN VARCHAR2 IS
84 BEGIN
85 RETURN RP_SORT_BY_PHONETICS;
86 END RP_SORT_BY_PHONETICS_P;
87 END AR_ARXNRREV_XMLP_PKG;
88