PACKAGE BODY: APPS.PO_POXRVOVS_XMLP_PKG

Source

1 PACKAGE BODY PO_POXRVOVS_XMLP_PKG AS
2 /* $Header: POXRVOVSB.pls 120.1 2007/12/25 12:13:34 krreddy noship $ */
3 
4 USER_EXIT_FAILURE EXCEPTION;
5 
6 function BeforeReport return boolean is
7 begin
8 
9 declare
10 l_sort     po_lookup_codes.displayed_field%type ;
11 l_org_displayed     org_organization_definitions.organization_name%type ;
12 begin
13 
14 if P_sort is not null then
15 
16     select displayed_field
17     into l_sort
18     from po_lookup_codes
19     where lookup_code = P_sort
20     and lookup_type = 'SRS ORDER BY';
21 
22     P_sort_disp := l_sort ;
23 
24 else
25 
26     P_sort_disp := '' ;
27 
28 end if;
29 
30 if P_org_id is not null then
31 
32     select organization_name
33     into l_org_displayed
34     from org_organization_definitions
35     where organization_id = P_org_id ;
36 
37     P_org_displayed := l_org_displayed ;
38 
39 else
40 
41     P_org_displayed := '' ;
42 
43 end if;
44 
45 FORMAT_MASK := PO_COMMON_XMLP_PKG.GET_PRECISION(P_QTY_PRECISION);
46 end;
47 BEGIN
48   /*SRW.USER_EXIT('FND SRWINIT');*/null;
49 
50   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
51             /*SRW.MESSAGE(1,'srw_init');*/null;
52 
53 END;
54 BEGIN
55   if (get_p_struct_num <> TRUE )
56     then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
57 
58   end if;
59 END;
60 BEGIN
61 
62  null;
63   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
64             /*SRW.MESSAGE(1,'Before Cat Flex');*/null;
65 
66 END;
67 BEGIN
68 
69  null;
70   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
71             /*SRW.MESSAGE(1,'Before Item Flex');*/null;
72 
73 END;
74 RETURN TRUE;  return (TRUE);
75 end;
76 
77 procedure get_precision is
78 begin
79 /*srw.attr.mask        :=  SRW.FORMATMASK_ATTR;*/null;
80 
81 if P_qty_precision = 0 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0';*/null;
82 
83 else
84 if P_qty_precision = 1 then /*srw.attr.formatmask  := '-NNN,NNN,NNN,NN0.0';*/null;
85 
86 else
87 if P_qty_precision = 3 then /*srw.attr.formatmask  :=  '-NN,NNN,NNN,NN0.000';*/null;
88 
89 else
90 if P_qty_precision = 4 then /*srw.attr.formatmask  :=   '-N,NNN,NNN,NN0.0000';*/null;
91 
92 else
93 if P_qty_precision = 5 then /*srw.attr.formatmask  :=     '-NNN,NNN,NN0.00000';*/null;
94 
95 else
96 if P_qty_precision = 6 then /*srw.attr.formatmask  :=      '-NN,NNN,NN0.000000';*/null;
97 
98 else /*srw.attr.formatmask  :=  '-NNN,NNN,NNN,NN0.00';*/null;
99 
100 end if; end if; end if; end if; end if; end if;
101 /*srw.set_attr(0,srw.attr);*/null;
102 
103 end;
104 
105 function orderby_clauseFormula return VARCHAR2 is
106 begin
107 
108 if P_SORT = 'VENDOR' then
109    return('3');
110 else
111    return('20,21');
112 end if;
113 RETURN NULL; end;
114 
115 function get_p_struct_num return boolean is
116 
117 l_p_struct_num number;
118 
119 begin
120         select structure_id
121         into l_p_struct_num
122         from mtl_default_sets_view
123         where functional_area_id = 2 ;
124 
125         P_STRUCT_NUM := l_p_struct_num ;
126 
127         return(TRUE) ;
128 
129         RETURN NULL; exception
130         when others then return(FALSE) ;
131 end;
132 
133 function AfterReport return boolean is
134 begin
135 
136 
137   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
138 
139 
140   return (TRUE);
141 end;
142 
143 --Functions to refer Oracle report placeholders--
144 
145 END PO_POXRVOVS_XMLP_PKG ;
146