1 PACKAGE BODY AP_APXVDLBL_XMLP_PKG AS
2 /* $Header: APXVDLBLB.pls 120.0 2007/12/27 08:45:36 vjaganat noship $ */
3 FUNCTION custom_init RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 SELECT sort_by_alternate_field
7 INTO SORT_BY_ALTERNATE
8 FROM AP_SYSTEM_PARAMETERS;
9 EXCEPTION
10 WHEN OTHERS THEN
11 SORT_BY_ALTERNATE := 'N';
12 END;
13 BEGIN
14 /*SRW.REFERENCE(DEFAULT_COUNTRY_CODE);*/null;
15 /*SRW.USER_EXIT('FND GETPROFILE NAME="DEFAULT_COUNTRY" FIELD="DEFAULT_COUNTRY_CODE"');*/null;
16 EXCEPTION
17 WHEN OTHERS THEN
18 DEFAULT_COUNTRY_CODE_1 := 'US';
19 END;
20 IF DEFAULT_COUNTRY_CODE is NULL THEN
21 DEFAULT_COUNTRY_CODE_1 := 'US';
22 else
23 DEFAULT_COUNTRY_CODE_1:=DEFAULT_COUNTRY_CODE;
24 END IF;
25 BEGIN
26 select territory_short_name into DEFAULT_COUNTRY_NAME
27 from fnd_territories_vl
28 where territory_code = DEFAULT_COUNTRY_CODE_1;
29 EXCEPTION
30 WHEN NO_DATA_FOUND THEN
31 select territory_short_name into DEFAULT_COUNTRY_NAME
32 from fnd_territories_vl
33 where territory_code = 'US';
34 END;
35 BEGIN
36 select displayed_field into ATTN_MESSAGE
37 from ap_lookup_codes
38 where lookup_type = 'MAIL_LABEL_ATTN_MESSAGE' and
39 lookup_code = 'ATTN_MESSAGE';
40 EXCEPTION
41 WHEN NO_DATA_FOUND THEN
42 ATTN_MESSAGE := 'Attn: Accounts Receivable';
43 END;
44 IF (P_VENDOR_TYPE is NULL) THEN
45 P_VENDOR_TYPE_1:= 'All';
46 END IF;
47 IF (P_SITE is NULL) THEN
48 P_SITE_1 := 'All';
49 END IF;
50 IF (P_SITE = 'Pay') THEN
51 PAY_SITE := 'Y';
52 ELSIF (P_SITE = 'Non-Pay') THEN
53 PAY_SITE := 'N';
54 END IF;
55 RETURN (TRUE);
56 RETURN NULL; EXCEPTION
57 WHEN OTHERS THEN
58 RETURN (FALSE);
59 END;
60 function BeforeReport return boolean is
61 begin
62 DECLARE
63 init_failure EXCEPTION;
64 BEGIN
65 /*SRW.USER_EXIT('FND SRWINIT');*/null;
66 IF (p_debug_switch in ('y','Y')) THEN
67 /*SRW.MESSAGE('1','After SRWINIT');*/null;
68 END IF;
69 IF(custom_init <> TRUE) THEN
70 RAISE init_failure;
71 END IF;
72 IF (p_debug_switch in ('y','Y')) THEN
73 /*SRW.MESSAGE('2','After Custom_Init');*/null;
74 END IF;
75 IF (p_debug_switch in ('y','Y')) THEN
76 /*SRW.BREAK;*/null;
77 END IF;
78 RETURN (TRUE);
79 EXCEPTION
80 WHEN OTHERS THEN
81 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
82 END;
83 return (TRUE);
84 end;
85 function AfterReport return boolean is
86 begin
87 BEGIN
88 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
89 IF (P_DEBUG_SWITCH = 'Y') THEN
90 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
91 END IF;
92 EXCEPTION
93 WHEN OTHERS THEN
94 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
95 END; return (TRUE);
96 end;
97 function C_ORDER_BYFormula return VARCHAR2 is
98 begin
99 IF P_ORDER_COLUMN = 'Zip' THEN
100 IF SORT_BY_ALTERNATE = 'Y' THEN
101 return('ORDER BY upper(s.zip), upper(v.vendor_name_alt), upper(s.vendor_site_code_alt)');
102 ELSE
103 return('ORDER BY upper(s.zip), upper(v.vendor_name), upper(s.vendor_site_code)');
104 END IF;
105 ELSE
106 IF SORT_BY_ALTERNATE = 'Y' THEN
107 return('ORDER BY upper(v.vendor_name_alt), upper(s.vendor_site_code_alt)');
108 ELSE
109 return('ORDER BY upper(v.vendor_name), upper(s.vendor_site_code)');
110 END IF;
111 END IF;
112 RETURN NULL; end;
113 function c_address_concatenatedformula(address1 in varchar2, address2 in varchar2, address3 in varchar2,
114 city in varchar2, state in varchar2, zip in varchar2, country_name in varchar2,
115 country_code in varchar2, vendor_name in varchar2, attention in varchar2) return varchar2 is
116 begin
117 return( arp_addr_label_pkg.format_address_label(
118 NULL,
119 address1,
120 address2,
121 address3,
122 NULL,
123 city,
124 NULL,
125 state,
126 NULL,
127 zip,
128 country_name,
129 country_code,
130 vendor_name,
131 NULL,
132 attention,
133 NULL,
134 NULL,
135 DEFAULT_COUNTRY_CODE_1,
136 DEFAULT_COUNTRY_NAME,
137 P_PRINT_HOME_COUNTRY,
138 34,
139 6,
140 6
141 ));
142 end;
143 --Functions to refer Oracle report placeholders--
144 END AP_APXVDLBL_XMLP_PKG ;
145
146