1 PACKAGE BODY PA_PAXAUVIT_XMLP_PKG AS
2 /* $Header: PAXAUVITB.pls 120.0 2008/01/02 11:19:19 krreddy noship $ */
3 FUNCTION get_cover_page_values RETURN BOOLEAN IS
4 BEGIN
5 RETURN(TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN(FALSE);
9 END;
10 FUNCTION get_company_name RETURN BOOLEAN IS
11 l_name gl_sets_of_books.name%TYPE;
12 BEGIN
13 SELECT gl.name
14 INTO l_name
15 FROM gl_sets_of_books gl,pa_implementations pi
16 WHERE gl.set_of_books_id = pi.set_of_books_id;
17 c_company_name_header := l_name;
18 RETURN (TRUE);
19 EXCEPTION
20 WHEN OTHERS THEN
21 RETURN (FALSE);
22 END;
23 function get_precision(qty_precision in number) return VARCHAR2 is
24 begin
25 if qty_precision = 0 then return('999G999G999G990');
26 elsif qty_precision = 1 then return('999G999G999G990D0');
27 elsif qty_precision = 3 then return('999G999G999G990D000');
28 elsif qty_precision = 4 then return('999G999G999G990D0000');
29 elsif qty_precision = 5 then return('999G999G999G990D00000');
30 elsif qty_precision = 6 then return('999G999G999G990D000000');
31 else return('999G999G999G990D00');
32 end if;
33 end;
34 function BeforeReport return boolean is
35 begin
36 Declare
37 init_failure exception;
38 ndf char(80);
39 BEGIN
40 QTY_PRECISION:= get_precision(2);
41 /*srw.user_exit('FND SRWINIT');*/null;
42 /*srw.user_exit('FND GETPROFILE
43 NAME="PA_DEBUG_MODE"
44 FIELD=":p_debug_mode"
45 PRINT_ERROR="N"');*/null;
46 /*srw.user_exit('FND GETPROFILE
47 NAME="PA_RULE_BASED_OPTIMIZER"
48 FIELD=":p_rule_optimizer"
49 PRINT_ERROR="N"');*/null;
50 IF (get_company_name <> TRUE) THEN RAISE init_failure;
51 END IF;
52 select meaning into ndf from pa_lookups where
53 lookup_code = 'NO_DATA_FOUND' and
54 lookup_type = 'MESSAGE';
55 c_no_data_found := ndf;
56 null;
57 IF (P_Report_Type = 'ER') THEN
58 c_select_clause:='substrb(pov.vendor_name,1,10)||''/''||substrb(per.full_name,1,15)';
59 c_from_clause:='PO_VENDORS pov,PER_PEOPLE_F per';
60 c_where_clause:='pov.vendor_id=api.vendor_id and per.person_id=pae.incurred_by_person_id and
61 (per.employee_number is not null OR per.npw_number IS NOT NULL) and trunc(sysdate) between per.effective_start_date and per.effective_end_date';
62 ELSE
63 c_select_clause:='substrb(pov.vendor_name,1,25)';
64 c_from_clause:='PO_VENDORS pov';
65 c_where_clause:='pov.vendor_id=api.vendor_id';
66 END IF;
67 P_FROM_GL_DATE1 := TO_CHAR(P_FROM_GL_DATE,'DD-MON-YY');
68 P_TO_GL_DATE1 := TO_CHAR(P_TO_GL_DATE,'DD-MON-YY');
69 P_TO_TRANSFER_DATE1 := TO_CHAR(P_TO_TRANSFER_DATE,'DD-MON-YY');
70 P_FROM_TRANSFER_DATE1 := TO_CHAR(P_FROM_TRANSFER_DATE,'DD-MON-YY');
71 EXCEPTION
72 WHEN NO_DATA_FOUND THEN
73 select meaning into ndf from pa_lookups where
74 lookup_code = 'NO_DATA_FOUND' and
75 lookup_type = 'MESSAGE';
76 c_no_data_found := ndf;
77 c_dummy_data := 1;
78 WHEN OTHERS THEN
79 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
80 null;
81 END;
82 return (TRUE);
83 end;
84 function account_idformula(dr_code_combination_id in number) return char is
85 begin
86 RETURN fnd_flex_ext.get_segs('SQLGL','GL#',p_coa_id,dr_code_combination_id);
87 end;
88 function account_flex_idformula(dr_code_combination_id1 in number) return char is
89 begin
90 RETURN fnd_flex_ext.get_segs('SQLGL','GL#',p_coa_id,dr_code_combination_id1);
91 end;
92 procedure get_precision (id IN NUMBER) is
93 begin
94 /*srw.attr.mask := SRW.FORMATMASK_ATTR;*/null;
95 if id = 0 then /*srw.attr.formatmask := '-N,NN,NN,NN,NN,NN0';*/null;
96 else
97 if id = 1 then /*srw.attr.formatmask := '-N,NN,NN,NN,NN,NN0.0';*/null;
98 else
99 if id = 3 then /*srw.attr.formatmask := '-NN,NN,NN,NN,NN0.000';*/null;
100 else
101 if id = 4 then /*srw.attr.formatmask := '-N,NN,NN,NN,NN0.0000';*/null;
102 else
103 if id = 5 then /*srw.attr.formatmask := '-NN,NN,NN,NN0.00000';*/null;
104 else
105 if id = 6 then /*srw.attr.formatmask := '-N,NN,NN,NN0.000000';*/null;
106 else
107 if id = 7 then /*srw.attr.formatmask := '-NNNNNNNNNNN0';*/null;
108 else
109 if id = 8 then /*srw.attr.formatmask := '-NNNNNNNNNNN0.0';*/null;
110 else
111 if id = 9 then /*srw.attr.formatmask := '-NNNNNNNNNN0.00';*/null;
112 else
113 if id = 10 then /*srw.attr.formatmask := '-NNNNNNNNNN0.000';*/null;
114 else
115 if id = 11 then /*srw.attr.formatmask := '-NNNNNNNNN0.0000';*/null;
116 else
117 if id = 12 then /*srw.attr.formatmask := '-NNNNNNNN0.00000';*/null;
118 else
119 if id = 13 then /*srw.attr.formatmask := '-NNNNNNN0.000000';*/null;
120 else /*srw.attr.formatmask := '-NN,NNN,NNN,NNN,NNN,NN0.00';*/null;
121 end if; end if; end if; end if; end if; end if;
122 end if; end if; end if; end if; end if; end if; end if;
123 /*srw.set_attr(0,srw.attr);*/null;
124 end;
125 function AfterReport return boolean is
126 begin
127 /*srw.user_exit('FND SRWEXIT') ;*/null;
128 return (TRUE);
129 end;
130 --Functions to refer Oracle report placeholders--
131 Function C_COMPANY_NAME_HEADER_p return varchar2 is
132 Begin
133 return C_COMPANY_NAME_HEADER;
134 END;
135 Function C_no_data_found_p return varchar2 is
136 Begin
137 return C_no_data_found;
138 END;
139 Function C_dummy_data_p return number is
140 Begin
141 return C_dummy_data;
142 END;
143 Function C_WHERE_CC_p return varchar2 is
144 Begin
145 return C_WHERE_CC;
146 END;
147 END PA_PAXAUVIT_XMLP_PKG ;
148
[Home] [Help]