PACKAGE BODY: APPS.PO_POXVDRVL_XMLP_PKG

Source

1 PACKAGE BODY PO_POXVDRVL_XMLP_PKG AS
2 /* $Header: POXVDRVLB.pls 120.1 2007/12/25 12:39:29 krreddy noship $ */
3 
4 function orderby_clauseFormula return VARCHAR2 is
5 begin
6 
7 if    upper(P_orderby) = 'VENDOR' then
8       return('pov.vendor_name');
9 elsif upper(P_orderby) = 'VENDOR SITE' then
10       return('pvs.vendor_site_code');
11 elsif upper(P_orderby) = 'ZIP CODE' then
12       return('pvs.zip');
13 end if;
14 RETURN 'pov.vendor_name'; end;
15 
16 function BeforeReport return boolean is
17 begin
18 
19 declare
20 l_active_inactive    po_lookup_codes.displayed_field%type ;
21 l_sort     po_lookup_codes.displayed_field%type ;
22 l_vendor_type     po_lookup_codes.displayed_field%type ;
23 
24 begin
25 
26 begin
27 
28 /*SRW.USER_EXIT('FND SRWINIT');*/null;
29 
30 
31 if P_active_inactive is not null then
32 
33     select displayed_field
34     into l_active_inactive
35     from po_lookup_codes
36     where lookup_code = P_active_inactive
37     and lookup_type = 'ACTIVE_INACTIVE';
38 
39     P_active_inactive_disp := l_active_inactive ;
40 
41 else
42 
43     P_active_inactive_disp := '' ;
44 
45 end if;
46 
47 if P_vendor_type is not null then
48 
49     select displayed_field
50     into l_vendor_type
51     from po_lookup_codes
52     where lookup_code = P_vendor_type
53     and lookup_type = 'VENDOR TYPE';
54 
55     P_vendor_type_displayed := l_vendor_type ;
56 
57 else
58 
59     P_vendor_type_displayed := '' ;
60 
61 end if;
62 
63 
64 if P_orderby is not null then
65 
66     select displayed_field
67     into l_sort
68     from po_lookup_codes
69     where lookup_code = P_orderby
70     and lookup_type = 'SRS ORDER BY';
71 
72     P_orderby_displayed := l_sort ;
73 
74 else
75 
76     P_orderby_displayed := '' ;
77 
78 end if;
79 
80 
81 end;
82 
83 end;
84   return (TRUE);
85 end;
86 
87 function AfterReport return boolean is
88 begin
89   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
90 
91   return (TRUE);
92 end;
93 
94 --Functions to refer Oracle report placeholders--
95 
96 END PO_POXVDRVL_XMLP_PKG ;
97