1 PACKAGE BODY AR_ARXAPRCF_XMLP_PKG AS
2 /* $Header: ARXAPRCFB.pls 120.1 2008/01/07 14:51:34 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 SUBSTR(CP.USER_CONCURRENT_PROGRAM_NAME
11 ,1
12 ,80)
13 INTO L_REPORT_NAME
14 FROM
15 FND_CONCURRENT_PROGRAMS_VL CP,
16 FND_CONCURRENT_REQUESTS CR
17 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
18 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
19 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
20 RP_REPORT_NAME := SUBSTR(L_REPORT_NAME,1,INSTR(L_REPORT_NAME,' (XML)'));
21 RETURN (L_REPORT_NAME);
22 EXCEPTION
23 WHEN NO_DATA_FOUND THEN
24 RP_REPORT_NAME := 'Automatic Receipts Awaiting Confirmation';
25 RETURN ('Automatic Receipts Awaiting Confirmation');
26 END;
27 RETURN NULL;
28 END REPORT_NAMEFORMULA;
29
30 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
31 BEGIN
32 BEGIN
33 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
34 CP_MATURITY_DATE_LOW := TO_CHAR(P_MATURITY_DATE_LOW,'DD-MON-YY');
35 CP_MATURITY_DATE_HIGH := TO_CHAR(P_MATURITY_DATE_HIGH,'DD-MON-YY');
36 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
37 /*SRW.REFERENCE(SORT_BY_PHONETICS)*/NULL;
38 SORT_BY_PHONETICS := FND_PROFILE.VALUE('RA_CUSTOMERS_SORT_BY_PHONETICS');
39 IF SORT_BY_PHONETICS = 'Y' THEN
40 P_SORT := 'PARTY.ORGANIZATION_NAME_PHONETIC';
41 ELSE
42 P_SORT := 'PARTY.PARTY_NAME';
43 END IF;
44 EXCEPTION
45 WHEN OTHERS THEN
46 P_SORT := 'PARTY.PARTY_NAME';
47 END;
48 RETURN (TRUE);
49 END BEFOREREPORT;
50
51 FUNCTION SUB_TITLEFORMULA RETURN VARCHAR2 IS
52 BEGIN
53 BEGIN
54 RP_SUB_TITLE := ' ';
55 RETURN (' ');
56 END;
57 RETURN NULL;
58 END SUB_TITLEFORMULA;
59
60 FUNCTION AFTERREPORT RETURN BOOLEAN IS
61 BEGIN
62 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
63 RETURN (TRUE);
64 END AFTERREPORT;
65
66 FUNCTION AFTERPFORM RETURN BOOLEAN IS
67 BEGIN
68 IF P_CUST_NAME_LOW IS NOT NULL THEN
69 LP_CUST_NAME := ' and PARTY.PARTY_NAME >= :p_cust_name_low';
70 END IF;
71 IF P_CUST_NAME_HIGH IS NOT NULL THEN
72 LP_CUST_NAME := LP_CUST_NAME || ' and PARTY.PARTY_NAME <= :p_cust_name_high';
73 END IF;
74 IF P_CUST_NUM_LOW IS NOT NULL THEN
75 LP_CUST_NUM := ' and cust.ACCOUNT_NUMBER >= :p_cust_num_low';
76 END IF;
77 IF P_CUST_NUM_HIGH IS NOT NULL THEN
78 LP_CUST_NUM := LP_CUST_NUM || ' and cust.ACCOUNT_NUMBER <= :p_cust_num_high';
79 END IF;
80 IF P_REMIT_ACCOUNT IS NOT NULL THEN
81 LP_REMIT_ACCOUNT := ' and acct.bank_account_name = :p_remit_account';
82 END IF;
83 IF P_MATURITY_DATE_LOW IS NOT NULL THEN
84 LP_MATURITY_DATE := ' and nvl(ps.due_date,to_date(''01/01/0001'',''MM/DD/YYYY'')) >= :p_maturity_date_low';
85 END IF;
86 IF P_MATURITY_DATE_HIGH IS NOT NULL THEN
87 LP_MATURITY_DATE := LP_MATURITY_DATE || ' and nvl(ps.due_date,to_date(''01/01/0001'',''MM/DD/YYYY'')) <= :p_maturity_date_high ';
88 END IF;
89 IF P_CURRENCY IS NOT NULL THEN
90 LP_CURRENCY := ' and cr.currency_code = :P_CURRENCY';
91 END IF;
92 RETURN (TRUE);
93 END AFTERPFORM;
94
95 FUNCTION RP_DISP_SORT_BYFORMULA RETURN VARCHAR2 IS
96 BEGIN
97 RETURN (ARPT_SQL_FUNC_UTIL.GET_LOOKUP_MEANING('SORT_BY_ARXAPRCF'
98 ,P_SORT_BY));
99 END RP_DISP_SORT_BYFORMULA;
100
101 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
102 BEGIN
103 RETURN RP_COMPANY_NAME;
104 END RP_COMPANY_NAME_P;
105
106 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN RP_REPORT_NAME;
109 END RP_REPORT_NAME_P;
110
111 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
112 BEGIN
113 RETURN RP_DATA_FOUND;
114 END RP_DATA_FOUND_P;
115
116 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN RP_SUB_TITLE;
119 END RP_SUB_TITLE_P;
120
121 END AR_ARXAPRCF_XMLP_PKG;
122