[Home] [Help]
PACKAGE BODY: APPS.AP_APXPTPTR_XMLP_PKG
Source
1 PACKAGE BODY AP_APXPTPTR_XMLP_PKG AS
2 /* $Header: APXPTPTRB.pls 120.0 2007/12/27 08:26:51 vjaganat noship $ */
3 FUNCTION get_base_curr_data RETURN BOOLEAN IS
4 base_curr ap_system_parameters.base_currency_code%TYPE; prec fnd_currencies_vl.precision%TYPE; min_au fnd_currencies_vl.minimum_accountable_unit%TYPE; descr fnd_currencies_vl.description%TYPE;
5 BEGIN
6 base_curr := '';
7 prec := 0;
8 min_au := 0;
9 descr := '';
10 SELECT p.base_currency_code,
11 c.precision,
12 c.minimum_accountable_unit,
13 c.description
14 INTO base_curr,
15 prec,
16 min_au,
17 descr
18 FROM ap_system_parameters p,
19 fnd_currencies_vl c
20 WHERE p.base_currency_code = c.currency_code;
21 c_base_currency_code := base_curr;
22 c_base_precision := prec;
23 c_base_min_acct_unit := min_au;
24 c_base_description := descr;
25 RETURN (TRUE);
26 RETURN NULL; EXCEPTION
27 WHEN OTHERS THEN
28 RETURN (FALSE);
29 END;
30 FUNCTION custom_init RETURN BOOLEAN IS
31 BEGIN
32 RETURN (TRUE);
33 RETURN NULL; EXCEPTION
34 WHEN OTHERS THEN
35 RETURN (FALSE);
36 END;
37 FUNCTION get_cover_page_values RETURN BOOLEAN IS
38 BEGIN
39 RETURN(TRUE);
40 RETURN NULL; EXCEPTION
41 WHEN OTHERS THEN
42 RETURN(FALSE);
43 END;
44 FUNCTION get_nls_strings RETURN BOOLEAN IS
45 nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE; nls_termtype ap_lookup_codes.displayed_field%TYPE;
46 BEGIN
47 nls_all := '';
48 nls_yes := '';
49 nls_no := '';
50 nls_termtype := '';
51 SELECT ly.meaning,
52 ln.meaning,
53 la.displayed_field, lt.displayed_field
54 INTO nls_yes, nls_no, nls_all, nls_termtype
55 FROM fnd_lookups ly, fnd_lookups ln, ap_lookup_codes la,
56 ap_lookup_codes lt
57 WHERE ly.lookup_type = 'YES_NO'
58 AND ly.lookup_code = 'Y'
59 AND ln.lookup_type = 'YES_NO'
60 AND ln.lookup_code = 'N'
61 AND la.lookup_type = 'NLS REPORT PARAMETER'
62 AND la.lookup_code = 'ALL'
63 AND lt.lookup_type = 'ACTIVE_OPTIONS'
64 AND lt.lookup_code = p_termtype;
65 c_nls_yes := nls_yes;
66 c_nls_no := nls_no;
67 c_nls_all := nls_all;
68 c_nls_termtype := nls_termtype;
69 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
70 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
71 /*c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';*/
72 c_nls_no_data_exists := 'No Data Found';
73 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
74 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
75 /*c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';*/
76 c_nls_end_of_report := 'End of Report';
77 RETURN (TRUE);
78 RETURN NULL; EXCEPTION
79 WHEN OTHERS THEN
80 RETURN (FALSE);
81 END;
82 function BeforeReport return boolean is
83 begin
84 LP_EFFECTIVE_DATE := to_char(P_EFFECTIVE_DATE, 'DD-MON-YYYY');
85 DECLARE
86 init_failure EXCEPTION;
87 BEGIN
88 /*SRW.USER_EXIT('FND SRWINIT');*/null;
89 IF (p_debug_switch = 'Y') THEN
90 /*SRW.MESSAGE('1','After SRWINIT');*/null;
91 END IF;
92 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
93 END IF;
94 IF (p_debug_switch = 'Y') THEN
95 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
96 END IF;
97 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
98 END IF;
99 IF (p_debug_switch = 'Y') THEN
100 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
101 END IF;
102 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
103 END IF;
104 IF (p_debug_switch = 'Y') THEN
105 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
106 END IF;
107 IF (p_debug_switch = 'Y') THEN
108 /*SRW.BREAK;*/null;
109 END IF;
110 RETURN (TRUE);
111 EXCEPTION
112 WHEN OTHERS THEN
113 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
114 END; return (TRUE);
115 end;
116 function AfterReport return boolean is
117 begin
118 BEGIN
119 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
120 IF (P_DEBUG_SWITCH = 'Y') THEN
121 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
122 END IF;
123 EXCEPTION
124 WHEN OTHERS THEN
125 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
126 END; return (TRUE);
127 end;
128 FUNCTION get_company_name RETURN BOOLEAN IS
129 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
130 l_name gl_sets_of_books.name%TYPE;
131 l_sob_id NUMBER;
132 l_report_start_date DATE;
133 BEGIN
134 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
135 SELECT name,
136 chart_of_accounts_id
137 INTO l_name,
138 l_chart_of_accounts_id
139 FROM gl_sets_of_books
140 WHERE set_of_books_id = l_sob_id;
141 c_company_name_header := l_name;
142 c_chart_of_accounts_id := l_chart_of_accounts_id;
143 c_report_start_date := l_report_start_date;
144 RETURN (TRUE);
145 RETURN NULL; EXCEPTION
146 WHEN OTHERS THEN
147 RETURN (FALSE);
148 END;
149 --Functions to refer Oracle report placeholders--
150 Function C_BASE_CURRENCY_CODE_p return varchar2 is
151 Begin
152 return C_BASE_CURRENCY_CODE;
153 END;
154 Function C_BASE_PRECISION_p return number is
155 Begin
156 return C_BASE_PRECISION;
157 END;
158 Function C_BASE_MIN_ACCT_UNIT_p return number is
159 Begin
160 return C_BASE_MIN_ACCT_UNIT;
161 END;
162 Function C_BASE_DESCRIPTION_p return varchar2 is
163 Begin
164 return C_BASE_DESCRIPTION;
165 END;
166 Function C_COMPANY_NAME_HEADER_p return varchar2 is
167 Begin
168 return C_COMPANY_NAME_HEADER;
169 END;
170 Function C_REPORT_START_DATE_p return date is
171 Begin
172 return C_REPORT_START_DATE;
173 END;
174 Function C_NLS_YES_p return varchar2 is
175 Begin
176 return C_NLS_YES;
177 END;
178 Function C_NLS_NO_p return varchar2 is
179 Begin
180 return C_NLS_NO;
181 END;
182 Function C_NLS_ALL_p return varchar2 is
183 Begin
184 return C_NLS_ALL;
185 END;
186 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
187 Begin
188 return C_NLS_NO_DATA_EXISTS;
189 END;
190 Function C_CHART_OF_ACCOUNTS_ID_p return number is
191 Begin
192 return C_CHART_OF_ACCOUNTS_ID;
193 END;
194 Function C_NLS_TERMTYPE_p return varchar2 is
195 Begin
196 return C_NLS_TERMTYPE;
197 END;
198 Function C_NLS_END_OF_REPORT_p return varchar2 is
199 Begin
200 return C_NLS_END_OF_REPORT;
201 END;
202 END AP_APXPTPTR_XMLP_PKG ;
203