1 PACKAGE BODY AR_ARXCURLL_XMLP_PKG AS
2 /* $Header: ARXCURLLB.pls 120.0 2007/12/27 13:45:47 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 SUBSTRB(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 := L_REPORT_NAME;
21 RETURN (L_REPORT_NAME);
22 EXCEPTION
23 WHEN NO_DATA_FOUND THEN
24 RP_REPORT_NAME := 'Customer Relationship Listing';
25 RETURN ('Customer Relationship Listing');
26 END;
27 RETURN NULL;
28 END REPORT_NAMEFORMULA;
29
30 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
31 BEGIN
32 BEGIN
33 IF P_IN_BALANCING_SEGMENT_LOW IS NOT NULL THEN
34 LP_BALANCING_SEGMENT_LOW := ' and nvl(' || LP_BALANCING_SEGMENT_LOW || ',''NULL'') >= ''' || P_IN_BALANCING_SEGMENT_LOW || ''' ';
35 END IF;
36 IF P_IN_BALANCING_SEGMENT_HIGH IS NOT NULL THEN
37 LP_BALANCING_SEGMENT_HIGH := ' and nvl(' || LP_BALANCING_SEGMENT_HIGH || ',''NULL'') <= ''' || P_IN_BALANCING_SEGMENT_HIGH || ''' ';
38 END IF;
39 END;
40 RETURN (TRUE);
41 END BEFOREREPORT;
42
43 FUNCTION SUB_TITLEFORMULA RETURN VARCHAR2 IS
44 BEGIN
45 BEGIN
46 RP_SUB_TITLE := ' ';
47 RETURN (' ');
48 END;
49 RETURN NULL;
50 END SUB_TITLEFORMULA;
51
52 FUNCTION AFTERREPORT RETURN BOOLEAN IS
53 BEGIN
54 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
55 RETURN (TRUE);
56 END AFTERREPORT;
57
58 FUNCTION ACCT_FLEX_ALL_SEGFORMULA(COA_ID IN NUMBER
59 ,ACCT_FLEX_ALL_SEG IN VARCHAR2) RETURN VARCHAR2 IS
60 BEGIN
61 /*SRW.REFERENCE(COA_ID)*/NULL;
62 RETURN (ACCT_FLEX_ALL_SEG);
63 END ACCT_FLEX_ALL_SEGFORMULA;
64
65 FUNCTION ACCT_BAL_LPROMPTFORMULA(COA_ID IN NUMBER
66 ,ACCT_BAL_LPROMPT IN VARCHAR2) RETURN VARCHAR2 IS
67 BEGIN
68 /*SRW.REFERENCE(COA_ID)*/NULL;
69 RETURN (ACCT_BAL_LPROMPT);
70 END ACCT_BAL_LPROMPTFORMULA;
71
72 FUNCTION AFTERPFORM RETURN BOOLEAN IS
73 BEGIN
74 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
75 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
76 IF P_CUSTOMER_NAME_LOW IS NOT NULL THEN
77 IF P_CUSTOMER_NAME_HIGH IS NOT NULL THEN
78 LP_CUSTOMER_NAME := ' AND sub.party_name BETWEEN :p_customer_name_low AND :p_customer_name_high ';
79 ELSE
80 LP_CUSTOMER_NAME := ' AND sub.party_name >= :p_customer_name_low ';
81 END IF;
82 ELSE
83 IF P_CUSTOMER_NAME_HIGH IS NOT NULL THEN
84 LP_CUSTOMER_NAME := ' AND sub.party_name <= :p_customer_name_high ';
85 ELSE
86 LP_CUSTOMER_NAME := ' ';
87 END IF;
88 END IF;
89 IF P_CUSTOMER_NUMBER_LOW IS NOT NULL THEN
90 IF P_CUSTOMER_NUMBER_HIGH IS NOT NULL THEN
91 LP_CUSTOMER_NUMBER := ' AND cu1.account_number BETWEEN :p_customer_number_low AND :p_customer_number_high ';
92 ELSE
93 LP_CUSTOMER_NUMBER := ' AND cu1.account_number >= :p_customer_number_low ';
94 END IF;
95 ELSE
96 IF P_CUSTOMER_NUMBER_HIGH IS NOT NULL THEN
97 LP_CUSTOMER_NUMBER := ' AND cu1.account_number <= :p_customer_number_high ';
98 ELSE
99 LP_CUSTOMER_NUMBER := ' ';
100 END IF;
101 END IF;
102 IF P_REGISTRY_ID_LOW IS NOT NULL THEN
103 IF P_REGISTRY_ID_HIGH IS NOT NULL THEN
104 LP_REGISTRY_ID := ' AND sub.party_number BETWEEN :p_registry_id_low AND :p_registry_id_high ';
105 ELSE
106 LP_REGISTRY_ID := ' AND sub.party_number >= :p_registry_id_low ';
107 END IF;
108 ELSE
109 IF P_REGISTRY_ID_HIGH IS NOT NULL THEN
110 LP_REGISTRY_ID := ' AND sub.party_number <= :p_registry_id_high ';
111 ELSE
112 LP_REGISTRY_ID := ' ';
113 END IF;
114 END IF;
115 IF P_REL_TYPE_LOW IS NOT NULL THEN
116 IF P_REL_TYPE_HIGH IS NOT NULL THEN
117 LP_REL_TYPE := ' AND lrt.meaning BETWEEN :p_rel_type_low AND :p_rel_type_high ';
118 ELSE
119 LP_REL_TYPE := ' AND lrt.meaning >= :p_rel_type_low ';
120 END IF;
121 ELSE
122 IF P_REL_TYPE_HIGH IS NOT NULL THEN
123 LP_REL_TYPE := ' AND lrt.meaning <= :p_rel_type_high ';
124 ELSE
125 LP_REL_TYPE := ' ';
126 END IF;
127 END IF;
128 RETURN (TRUE);
129 END AFTERPFORM;
130
131 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
132 BEGIN
133 RETURN ACCT_BAL_APROMPT;
134 END ACCT_BAL_APROMPT_P;
135
136 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
137 BEGIN
138 RETURN RP_COMPANY_NAME;
139 END RP_COMPANY_NAME_P;
140
141 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
142 BEGIN
143 RETURN RP_REPORT_NAME;
144 END RP_REPORT_NAME_P;
145
146 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN RP_DATA_FOUND;
149 END RP_DATA_FOUND_P;
150
151 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
152 BEGIN
153 RETURN RP_SUB_TITLE;
154 END RP_SUB_TITLE_P;
155
156 END AR_ARXCURLL_XMLP_PKG;
157