PACKAGE BODY: APPS.PO_POXRQCRQ_XMLP_PKG

Source

1 PACKAGE BODY PO_POXRQCRQ_XMLP_PKG AS
2 /* $Header: POXRQCRQB.pls 120.1 2007/12/25 11:46:37 krreddy noship $ */
3 
4 function BeforeReport return boolean is
5 begin
6 
7 declare
8 
9 l_sort     po_lookup_codes.displayed_field%type ;
10 begin
11 
12 QTY_PRECISION:=PO_common_xmlp_pkg.GET_PRECISION(P_QTY_PRECISION);
13 if P_orderby is not null then
14 
15     select displayed_field
16     into l_sort
17     from po_lookup_codes
18     where lookup_code = P_orderby
19     and lookup_type = 'SRS ORDER BY';
20 
21     P_orderby_displayed := l_sort ;
22 
23 else
24 
25     P_orderby_displayed := '' ;
26 
27 end if;
28 
29   /*SRW.USER_EXIT('FND SRWINIT');*/null;
30 
31 
32  null;
33   RETURN TRUE;
34 END;  return (TRUE);
35 end;
36 
37 function AfterReport return boolean is
38 begin
39 
40 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
41   return (TRUE);
42 end;
43 
44 procedure get_precision is
45 begin
46 /*srw.attr.mask        :=  SRW.FORMATMASK_ATTR;*/null;
47 
48 if P_qty_precision = 0 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0';*/null;
49 
50 else
51 if P_qty_precision = 1 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0.0';*/null;
52 
53 else
54 if P_qty_precision = 3 then /*srw.attr.formatmask  :=  '-NN,NNN,NNN,NN0.000';*/null;
55 
56 else
57 if P_qty_precision = 4 then /*srw.attr.formatmask  :=   '-N,NNN,NNN,NN0.0000';*/null;
58 
59 else
60 if P_qty_precision = 5 then /*srw.attr.formatmask  :=     '-NNN,NNN,NN0.00000';*/null;
61 
62 else
63 if P_qty_precision = 6 then /*srw.attr.formatmask  :=      '-NN,NNN,NN0.000000';*/null;
64 
65 else /*srw.attr.formatmask  :=  '-NNN,NNN,NNN,NN0.00';*/null;
66 
67 end if; end if; end if; end if; end if; end if;
68 /*srw.set_attr(0,srw.attr);*/null;
69 
70 end;
71 
72 function orderby_clauseFormula return VARCHAR2 is
73 begin
74 
75 if upper(P_ORDERBY) = 'PREPARER' then
76    return('papf.full_name');
77 elsif upper(P_ORDERBY) = 'REQ NUMBER' then
78    return('decode(psp1.manual_req_num_type,''NUMERIC'',
79             null,prh.segment1)
80           ,decode(psp1.manual_req_num_type,''NUMERIC'',
81             to_number(prh.segment1),null)');
82 end if;
83 --RETURN NULL; end;
84 RETURN('papf.full_name'); end;
85 
86 --Functions to refer Oracle report placeholders--
87 
88 END PO_POXRQCRQ_XMLP_PKG ;
89