[Home] [Help]
PACKAGE BODY: APPS.AP_APXINDIA_XMLP_PKG
Source
1 PACKAGE BODY AP_APXINDIA_XMLP_PKG AS
2 /* $Header: APXINDIAB.pls 120.0 2007/12/27 07:49:02 vjaganat noship $ */
3 function BeforeReport return boolean is
4 begin
5 DECLARE
6 init_failure EXCEPTION;
7 BEGIN
8 /*SRW.USER_EXIT('FND SRWINIT');*/null;
9 IF (p_debug_switch = 'Y') THEN
10 /*SRW.MESSAGE('1','After SRWINIT');*/null;
11 END IF;
12 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
13 END IF;
14 --IF (p_debug_switch = 'Y') THEN
15 -- /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
16 --END IF;
17 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
18 END IF;
19 --IF (p_debug_switch = 'Y') THEN
20 -- /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
21 --END IF;
22 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
23 END IF;
24 --IF (p_debug_switch = 'Y') THEN
25 -- /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
26 --END IF;
27 IF (get_header_values() <> TRUE) THEN RAISE init_failure;
28 END IF;
29 --IF (p_debug_switch = 'Y') THEN
30 -- /*SRW.MESSAGE('5','After Custom_Init');*/null;
31 --END IF;
32 --IF (P_DEBUG_SWITCH = 'Y') THEN
33 -- /*SRW.BREAK;*/null;
34 --END IF;
35 P_DISC_THRU_DATE_p := to_char(P_DISC_THRU_DATE,'DD-MON-YY');
36 RETURN (TRUE);
37 EXCEPTION
38 WHEN OTHERS THEN
39 --RAISE_APPLICATION_ERROR(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
40 --RAISE_APPLICATION_ERROR(-20101,'PROGRAM_ABORT');
41 return true;
42 END; return (TRUE);
43 end;
44 FUNCTION get_nls_strings RETURN BOOLEAN IS
45 nls_all ap_lookup_codes.displayed_field%TYPE;
46 BEGIN
47 nls_all := '';
48 SELECT al.displayed_field
49 INTO nls_all
50 FROM ap_lookup_codes al
51 WHERE al.lookup_type = 'NLS REPORT PARAMETER'
52 AND al.lookup_code = 'ALL';
53 c_nls_all := nls_all;
54 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
55 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
56 /*c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';*/
57 c_nls_no_data_exists := 'No Data Found';
58 /*SRW.USER_EXIT('FND MESSAGE_NAME APPl="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
59 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
60 /*c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';*/
61 c_nls_end_of_report := 'End of Report';
62 RETURN (TRUE);
63 RETURN NULL; EXCEPTION
64 WHEN OTHERS THEN
65 RETURN (FALSE);
66 END;
67 FUNCTION get_base_curr_data RETURN BOOLEAN IS
68 base_curr VARCHAR2(15); prec NUMBER; min_au NUMBER;
69 BEGIN
70 SELECT p.base_currency_code,
71 c.precision,
72 c.minimum_accountable_unit
73 INTO base_curr,
74 prec,
75 min_au
76 FROM ap_system_parameters p,
77 fnd_currencies_vl c
78 WHERE p.base_currency_code = c.currency_code;
79 c_base_currency_code := base_curr;
80 c_base_precision := prec;
81 c_base_min_acct_unit := min_au;
82 RETURN (TRUE);
83 RETURN NULL; EXCEPTION
84 WHEN OTHERS THEN
85 RETURN (FALSE);
86 END;
87 FUNCTION get_company_name RETURN BOOLEAN IS
88 c_name VARCHAR2(30); test_date VARCHAR2(9); l_report_start_date DATE := sysdate;
89 BEGIN
90 C_REPORT_START_DATE := l_report_start_date;
91 SELECT substr(g.name,1,30), to_char(sysdate-1, 'DD-MON-RR')
92 INTO c_name, test_date
93 FROM gl_sets_of_books g, ap_system_parameters P
94 WHERE g.set_of_books_id = P.set_of_books_id;
95 c_company_name_header := c_name;
96 c_test_date := test_date;
97 RETURN (TRUE);
98 RETURN NULL; EXCEPTION
99 WHEN OTHERS THEN
100 RETURN (FALSE);
101 END;
102 function AfterReport return boolean is
103 begin
104 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
105 return (TRUE);
106 end;
107 FUNCTION custom_init RETURN BOOLEAN IS
108 BEGIN
109 RETURN (TRUE);
110 RETURN NULL; EXCEPTION
111 WHEN OTHERS THEN
112 RETURN (FALSE);
113 END;
114 FUNCTION get_header_values RETURN BOOLEAN IS
115 ven_name po_vendors.vendor_name%TYPE;
116 ven_id VARCHAR2(15);
117 vendor_type VARCHAR2(25);
118 pay_group VARCHAR2(25);
119 BEGIN
120 /*commented by raj ven_id := P_VEN_ID;
121 vendor_type := P_VENDOR_TYPE;
122 pay_group := P_PAY_GROUP;*/
123 ven_id := nvl(P_VEN_ID, 'All');
124 vendor_type := nvl(P_VENDOR_TYPE, 'All');
125 pay_group := nvl(P_PAY_GROUP, 'All');
126 IF (VEN_ID IS NULL OR vendor_type IS NULL or pay_group IS NULL) THEN
127 /*SRW.MESSAGE('60','NULL value for Vendor Type, Pay Group, or Vendor ID');*/null;
128 RETURN(FALSE);
129 END IF;
130 IF (vendor_type = 'All') THEN
131 C_VENDOR_TYPE := C_NLS_ALL;
132 ELSE C_VENDOR_TYPE := vendor_type;
133 END IF;
134 IF (pay_group = 'All') THEN
135 C_PAY_GROUP := C_NLS_ALL;
136 ELSE C_PAY_GROUP := pay_group;
137 END IF;
138 IF (ven_id = 'All') THEN
139 C_VEN_NAME := C_NLS_ALL;
140 RETURN(TRUE);
141 END IF;
142 SELECT vendor_name
143 INTO ven_name
144 FROM po_vendors
145 WHERE vendor_id = to_number(ven_id);
146 C_VEN_NAME := ven_name;
147 RETURN(TRUE);
148 RETURN NULL; EXCEPTION
149 WHEN OTHERS THEN
150 RETURN(FALSE);
151 END;
152 --Functions to refer Oracle report placeholders--
153 Function C_BASE_MIN_ACCT_UNIT_p return number is
154 Begin
155 return C_BASE_MIN_ACCT_UNIT;
156 END;
157 Function C_VEN_NAME_p return varchar2 is
158 Begin
159 return C_VEN_NAME;
160 END;
161 Function C_BASE_CURRENCY_CODE_p return varchar2 is
162 Begin
163 return C_BASE_CURRENCY_CODE;
164 END;
165 Function C_TEST_DATE_p return varchar2 is
166 Begin
167 return C_TEST_DATE;
168 END;
169 Function C_BASE_PRECISION_p return number is
170 Begin
171 return C_BASE_PRECISION;
172 END;
173 Function C_NLS_ALL_p return varchar2 is
174 Begin
175 return C_NLS_ALL;
176 END;
177 Function C_PAY_GROUP_p return varchar2 is
178 Begin
179 return C_PAY_GROUP;
180 END;
181 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
182 Begin
183 return C_NLS_NO_DATA_EXISTS;
184 END;
185 Function C_VENDOR_TYPE_p return varchar2 is
186 Begin
187 return C_VENDOR_TYPE;
188 END;
189 Function C_COMPANY_NAME_HEADER_p return varchar2 is
190 Begin
191 return C_COMPANY_NAME_HEADER;
192 END;
193 Function C_REPORT_START_DATE_p return date is
194 Begin
195 return C_REPORT_START_DATE;
196 END;
197 Function C_REPORT_RUN_TIME_p return varchar2 is
198 Begin
199 return C_REPORT_RUN_TIME;
200 END;
201 Function C_NLS_END_OF_REPORT_p return varchar2 is
202 Begin
203 return C_NLS_END_OF_REPORT;
204 END;
205 END AP_APXINDIA_XMLP_PKG ;
206