PACKAGE BODY: APPS.PO_POXSURUM_XMLP_PKG

Source

1 PACKAGE BODY PO_POXSURUM_XMLP_PKG AS
2 /* $Header: POXSURUMB.pls 120.1 2007/12/25 12:36:34 krreddy noship $ */
3 
4 procedure get_precision is
5 begin
6 /*srw.attr.mask        :=  SRW.FORMATMASK_ATTR;*/null;
7 
8 if P_qty_precision = 0 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0';*/null;
9 
10 else
11 if P_qty_precision = 1 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0.0';*/null;
12 
13 else
14 if P_qty_precision = 3 then /*srw.attr.formatmask  :=  '-NN,NNN,NNN,NN0.000';*/null;
15 
16 else
17 if P_qty_precision = 4 then /*srw.attr.formatmask  :=   '-N,NNN,NNN,NN0.0000';*/null;
18 
19 else
20 if P_qty_precision = 5 then /*srw.attr.formatmask  :=     '-NNN,NNN,NN0.00000';*/null;
21 
22 else
23 if P_qty_precision = 6 then /*srw.attr.formatmask  :=      '-NN,NNN,NN0.000000';*/null;
24 
25 else /*srw.attr.formatmask  :=  '-NNN,NNN,NNN,NN0.00';*/null;
26 
27 end if; end if; end if; end if; end if; end if;
28 /*srw.set_attr(0,srw.attr);*/null;
29 
30 end;
31 
32 function BeforeReport return boolean is
33 begin
34 
35 declare
36 l_active_inactive    po_lookup_codes.displayed_field%type ;
37 
38 begin
39 /*SRW.USER_EXIT('FND SRWINIT');*/null;
40 
41 if P_active_inactive is not null then
42 
43     select displayed_field
44     into l_active_inactive
45     from po_lookup_codes
46     where lookup_code = P_active_inactive
47     and lookup_type = 'ACTIVE_INACTIVE';
48 
49     P_active_inactive_disp := l_active_inactive ;
50 
51 else
52 
53     P_active_inactive_disp := '' ;
54 
55 end if;
56 
57 
58 end;
59   return (TRUE);
60 end;
61 
62 function AfterReport return boolean is
63 begin
64   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
65 
66   return (TRUE);
67 end;
68 
69 --Functions to refer Oracle report placeholders--
70 
71 END PO_POXSURUM_XMLP_PKG ;
72 
73