[Home] [Help]
PACKAGE BODY: APPS.AR_ARBRRMLT_XMLP_PKG
Source
1 PACKAGE BODY AR_ARBRRMLT_XMLP_PKG AS
2 /* $Header: ARBRRMLTB.pls 120.0 2007/12/27 13:18:29 abraghun noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 LP_CREATION_DATE_FROM := P_CREATION_DATE_FROM;
7 LP_CREATION_DATE_TO := P_CREATION_DATE_TO;
8 LP_DRAWEE_NAME_FROM := P_DRAWEE_NAME_FROM;
9 LP_DRAWEE_NAME_TO := P_DRAWEE_NAME_TO;
10 LP_DRAWEE_NUMBER_FROM := P_DRAWEE_NUMBER_FROM;
11 LP_DRAWEE_NUMBER_TO := P_DRAWEE_NUMBER_TO;
12 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13 SELECT
14 SET_OF_BOOKS_ID
15 INTO P_SET_OF_BOOKS_ID
16 FROM
17 AR_SYSTEM_PARAMETERS;
18 IF LP_DRAWEE_NAME_FROM IS NULL THEN
19 LP_DRAWEE_NAME_FROM := LP_DRAWEE_NAME_TO;
20 END IF;
21 IF LP_DRAWEE_NAME_TO IS NULL THEN
22 LP_DRAWEE_NAME_TO := LP_DRAWEE_NAME_FROM;
23 END IF;
24 IF LP_DRAWEE_NAME_FROM IS NULL THEN
25 LP_CUSTOMER_RANGE := ' AND 1 = 1';
26 ELSE
27 LP_CUSTOMER_RANGE := ' and party.party_name between ' || '''' || LP_DRAWEE_NAME_FROM || '''' || ' and ' || '''' || LP_DRAWEE_NAME_TO || '''';
28 END IF;
29 IF LP_CREATION_DATE_FROM IS NULL THEN
30 LP_CREATION_DATE_FROM := LP_CREATION_DATE_TO;
31 END IF;
32 IF LP_CREATION_DATE_TO IS NULL THEN
33 LP_CREATION_DATE_TO := LP_CREATION_DATE_FROM;
34 END IF;
35 IF LP_CREATION_DATE_FROM IS NULL THEN
36 LP_CREATION_DATE_RANGE := NULL;
37
38 ELSE
39 LP_CREATION_DATE_RANGE := ' and trx_date between ' || '''' || LP_CREATION_DATE_FROM || '''' || ' and ' || '''' || LP_CREATION_DATE_TO || '''';
40 END IF;
41 IF LP_DRAWEE_NUMBER_FROM IS NULL THEN
42 LP_DRAWEE_NUMBER_FROM := LP_DRAWEE_NUMBER_TO;
43 END IF;
44 IF LP_DRAWEE_NUMBER_TO IS NULL THEN
45 LP_DRAWEE_NUMBER_TO := LP_DRAWEE_NUMBER_FROM;
46 END IF;
47 IF LP_DRAWEE_NUMBER_FROM IS NULL THEN
48 LP_CUSTOMER_NUMBER_RANGE := ' AND 1 = 1';
49 ELSE
50 LP_CUSTOMER_NUMBER_RANGE := ' and cust.cust_account_id between ' || LP_DRAWEE_NUMBER_FROM || ' and ' || LP_DRAWEE_NUMBER_TO;
51 END IF;
52 IF P_DAYS_LATE_SINCE_CREATION IS NULL THEN
53 LP_DAYS_LATE_SINCE_CREATION := NULL;
54 ELSE
55 LP_DAYS_LATE_SINCE_CREATION := ' and trunc(sysdate - term_due_date) = ' || P_DAYS_LATE_SINCE_CREATION;
56 END IF;
57 RETURN (TRUE);
58 EXCEPTION
59 WHEN OTHERS THEN
60 /*SRW.MESSAGE(9999
61 ,'Exception Others in Before Report Trigger')*/NULL;
62 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
63 RETURN (TRUE);
64 END BEFOREREPORT;
65
66 FUNCTION AFTERREPORT RETURN BOOLEAN IS
67 BEGIN
68 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
69 RETURN (TRUE);
70 END AFTERREPORT;
71
72 FUNCTION CF_CURRENT_DATEFORMULA RETURN CHAR IS
73 BEGIN
74 RETURN FND_DATE.DATE_TO_CHARDATE(SYSDATE);
75 END CF_CURRENT_DATEFORMULA;
76
77 FUNCTION CF_BR_DATEFORMULA(BR_DATE IN DATE) RETURN CHAR IS
78 BEGIN
79 RETURN (FND_DATE.DATE_TO_CHARDATE(BR_DATE));
80 END CF_BR_DATEFORMULA;
81
82 FUNCTION AFTERPFORM RETURN BOOLEAN IS
83 L_PRINT_COUNTRY_FLAG VARCHAR2(1);
84 L_DEFAULT_COUNTRY VARCHAR2(60);
85 BEGIN
86 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
87 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
88 /*SRW.MESSAGE(100
89 ,'DEBUG: AfterpForm')*/NULL;
90 SELECT
91 PRINT_HOME_COUNTRY_FLAG,
92 NVL(DEFAULT_COUNTRY
93 ,'US')
94 INTO L_PRINT_COUNTRY_FLAG,L_DEFAULT_COUNTRY
95 FROM
96 AR_SYSTEM_PARAMETERS;
97 P_PRINT_HOME_COUNTRY_FLAG := L_PRINT_COUNTRY_FLAG;
98 P_DEFAULT_COUNTRY := L_DEFAULT_COUNTRY;
99 P_DEFAULT_COUNTRY_DESCRIPTION := GET_COUNTRY_DESCRIPTION(P_DEFAULT_COUNTRY);
100 RETURN (TRUE);
101 END AFTERPFORM;
102
103 FUNCTION GET_COUNTRY_DESCRIPTION(COUNTRY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
104 COUNTRY_DESCRIPTION VARCHAR2(80) := NULL;
105 BEGIN
106 /*SRW.MESSAGE(100
107 ,'DEBUG: Get_Country_Description.')*/NULL;
108 IF COUNTRY_CODE IS NOT NULL THEN
109 IF COUNTRY_CODE <> NVL(P_DEFAULT_COUNTRY
110 ,'XXXXXX') THEN
111 SELECT
112 TERRITORY_SHORT_NAME
113 INTO COUNTRY_DESCRIPTION
114 FROM
115 FND_TERRITORIES_VL
116 WHERE TERRITORY_CODE = COUNTRY_CODE;
117 IF COUNTRY_DESCRIPTION IS NULL THEN
118 COUNTRY_DESCRIPTION := COUNTRY_CODE;
119 END IF;
120 ELSE
121 IF P_PRINT_HOME_COUNTRY_FLAG = 'Y' THEN
122 SELECT
123 TERRITORY_SHORT_NAME
124 INTO COUNTRY_DESCRIPTION
125 FROM
126 FND_TERRITORIES_VL
127 WHERE TERRITORY_CODE = COUNTRY_CODE;
128 ELSE
129 COUNTRY_DESCRIPTION := NULL;
130 END IF;
131 END IF;
132 ELSE
133 COUNTRY_DESCRIPTION := NULL;
134 END IF;
135 RETURN (COUNTRY_DESCRIPTION);
136 EXCEPTION
137 WHEN NO_DATA_FOUND THEN
138 RETURN (COUNTRY_CODE);
139 WHEN OTHERS THEN
140 IF SQLCODE = -20000 THEN
141 /*SRW.MESSAGE('100'
142 ,ARP_STANDARD.FND_MESSAGE(ARP_STANDARD.MD_MSG_TEXT + ARP_STANDARD.MD_MSG_NUMBER))*/NULL;
143 RETURN (COUNTRY_CODE);
144 ELSE
145 /*SRW.MESSAGE('100'
146 ,'Oracle Error in call to' || ' arp_adds.location_description ' || TO_CHAR(SQLCODE
147 ,'999999'))*/NULL;
148 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
149 END IF;
150 RETURN NULL;
151 END GET_COUNTRY_DESCRIPTION;
152
153 FUNCTION CUSTOMER_ADDRESS_STRINGFORMULA(CUST_NAME IN VARCHAR2
154 ,CUST_ADDRESS1 IN VARCHAR2
155 ,CUST_ADDRESS2 IN VARCHAR2
156 ,CUST_ADDRESS3 IN VARCHAR2
157 ,CUST_ADDRESS4 IN VARCHAR2
158 ,CUST_CITY IN VARCHAR2
159 ,CUST_STATE IN VARCHAR2
160 ,CUST_POSTAL_CODE IN VARCHAR2
161 ,CUST_COUNTRY IN VARCHAR2) RETURN VARCHAR2 IS
162 CUST_ADDRESS_STRING VARCHAR2(5000);
163 ADDRESS_STYLE VARCHAR2(30);
164 ADDRESS1 VARCHAR2(240);
165 ADDRESS2 VARCHAR2(240);
166 ADDRESS3 VARCHAR2(240);
167 ADDRESS4 VARCHAR2(240);
168 CITY VARCHAR2(60);
169 COUNTY VARCHAR2(60);
170 STATE VARCHAR2(60);
171 PROVINCE VARCHAR2(60);
172 POSTAL_CODE VARCHAR2(60);
173 TERRITORY_SHORT_NAME VARCHAR2(80);
174 COUNTRY_CODE VARCHAR2(60);
175 CUSTOMER_NAME VARCHAR2(360);
176 BILL_TO_LOCATION VARCHAR2(40);
177 FIRST_NAME VARCHAR2(40);
178 LAST_NAME VARCHAR2(50);
179 MAIL_STOP VARCHAR2(60);
180 DEFAULT_COUNTRY_CODE VARCHAR2(60);
181 DEFAULT_COUNTRY_DESC VARCHAR2(80);
182 PRINT_HOME_COUNTRY_FLAG VARCHAR2(5);
183 PRINT_DEFAULT_ATTN_FLAG VARCHAR2(5);
184 WIDTH NUMBER(3);
185 HEIGHT_MIN NUMBER(3);
186 HEIGHT_MAX NUMBER(3);
187 BEGIN
188 /*SRW.REFERENCE(CUST_NAME)*/NULL;
189 /*SRW.REFERENCE(CUST_ADDRESS1)*/NULL;
190 /*SRW.REFERENCE(CUST_ADDRESS2)*/NULL;
191 /*SRW.REFERENCE(CUST_ADDRESS3)*/NULL;
192 /*SRW.REFERENCE(CUST_ADDRESS4)*/NULL;
193 /*SRW.REFERENCE(CUST_CITY)*/NULL;
194 /*SRW.REFERENCE(CUST_STATE)*/NULL;
195 /*SRW.REFERENCE(CUST_POSTAL_CODE)*/NULL;
196 /*SRW.REFERENCE(CUST_COUNTRY)*/NULL;
197 /*SRW.REFERENCE(P_DEFAULT_COUNTRY)*/NULL;
198 /*SRW.REFERENCE(P_DEFAULT_COUNTRY_DESCRIPTION)*/NULL;
199 /*SRW.REFERENCE(P_PRINT_HOME_COUNTRY_FLAG)*/NULL;
200 ADDRESS1 := CUST_ADDRESS1;
201 ADDRESS2 := CUST_ADDRESS2;
202 ADDRESS3 := CUST_ADDRESS3;
203 ADDRESS4 := CUST_ADDRESS4;
204 CITY := CUST_CITY;
205 STATE := CUST_STATE;
206 COUNTY := NULL;
207 PROVINCE := NULL;
208 POSTAL_CODE := CUST_POSTAL_CODE;
209 TERRITORY_SHORT_NAME := NULL;
210 COUNTRY_CODE := CUST_COUNTRY;
211 CUSTOMER_NAME := CUST_NAME;
212 BILL_TO_LOCATION := NULL;
213 FIRST_NAME := NULL;
214 LAST_NAME := NULL;
215 MAIL_STOP := NULL;
216 DEFAULT_COUNTRY_CODE := P_DEFAULT_COUNTRY;
217 DEFAULT_COUNTRY_DESC := P_DEFAULT_COUNTRY_DESCRIPTION;
218 PRINT_HOME_COUNTRY_FLAG := P_PRINT_HOME_COUNTRY_FLAG;
219 PRINT_DEFAULT_ATTN_FLAG := 'N';
220 WIDTH := 40;
221 HEIGHT_MIN := 8;
222 HEIGHT_MAX := 8;
223 CUST_ADDRESS_STRING := ARP_ADDR_LABEL_PKG.FORMAT_ADDRESS(ADDRESS_STYLE
224 ,ADDRESS1
225 ,ADDRESS2
226 ,ADDRESS3
227 ,ADDRESS4
228 ,CITY
229 ,COUNTY
230 ,STATE
231 ,PROVINCE
232 ,POSTAL_CODE
233 ,TERRITORY_SHORT_NAME
234 ,COUNTRY_CODE
235 ,CUSTOMER_NAME
236 ,BILL_TO_LOCATION
237 ,FIRST_NAME
238 ,LAST_NAME
239 ,MAIL_STOP
240 ,DEFAULT_COUNTRY_CODE
241 ,DEFAULT_COUNTRY_DESC
242 ,PRINT_HOME_COUNTRY_FLAG
243 ,PRINT_DEFAULT_ATTN_FLAG
244 ,WIDTH
245 ,HEIGHT_MIN
246 ,HEIGHT_MAX);
247 RETURN (CUST_ADDRESS_STRING);
248 RETURN NULL;
249 EXCEPTION
250 WHEN OTHERS THEN
251 /*SRW.MESSAGE(5000
252 ,'DEBUG: Cannot format Cust_address_String.')*/NULL;
253 CUST_ADDRESS_STRING := '';
254 RETURN (CUST_ADDRESS_STRING);
255 END CUSTOMER_ADDRESS_STRINGFORMULA;
256
257 FUNCTION C_OUR_STREET_P RETURN VARCHAR2 IS
258 BEGIN
259 RETURN C_OUR_STREET;
260 END C_OUR_STREET_P;
261
262 FUNCTION C_OUR_ZIPCITY_P RETURN VARCHAR2 IS
263 BEGIN
264 RETURN C_OUR_ZIPCITY;
265 END C_OUR_ZIPCITY_P;
266
267 FUNCTION C_LISTNUM_P RETURN NUMBER IS
268 BEGIN
269 RETURN C_LISTNUM;
270 END C_LISTNUM_P;
271
272 FUNCTION C_OUR_SOB_NAME_P RETURN VARCHAR2 IS
273 BEGIN
274 RETURN C_OUR_SOB_NAME;
275 END C_OUR_SOB_NAME_P;
276
277 FUNCTION C_LOCATION_P RETURN VARCHAR2 IS
278 BEGIN
279 RETURN C_LOCATION;
280 END C_LOCATION_P;
281
282 END AR_ARBRRMLT_XMLP_PKG;
283