PACKAGE BODY: APPS.PO_POXCORIT_XMLP_PKG

Source

1 PACKAGE BODY PO_POXCORIT_XMLP_PKG AS
2 /* $Header: POXCORITB.pls 120.1 2007/12/25 10:51:36 krreddy noship $ */
3 
4 USER_EXIT_FAILURE EXCEPTION;
5 
6 function BeforeReport return boolean is
7 begin
8 declare
9   l_org_displayed  org_organization_definitions.organization_name%type ;
10 begin
11   if P_org_id is not null then
12     select organization_name
13     into l_org_displayed
14     from org_organization_definitions
15     where organization_id = P_org_id ;
16 
17     p_organization_name:=l_org_displayed;
18  else
19   P_organization_name := '' ;
20   end if;
21 
22   if p_country_of_origin_code IS NOT NULL then
23     p_query_where_country_code := ' poll.country_of_origin_code = '|| '''' || P_COUNTRY_OF_ORIGIN_CODE || '''';
24   end if;
25   if P_QUERY_WHERE_COUNTRY_CODE is null then P_QUERY_WHERE_COUNTRY_CODE:= '1=1'; end if;
26 end;
27 BEGIN
28   /*SRW.USER_EXIT('FND SRWINIT');*/null;
29 
30   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
31             /*SRW.MESSAGE(1,'srw_init');*/null;
32 
33 END;
34   if (get_p_struct_num <> TRUE )
35     then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
36 
37   end if;
38 
39 
40  null;
41 
42 
43  null;
44 
45 
46  null;
47 
48 
49  null;
50   return (TRUE);
51 end;
52 
53 function AfterReport return boolean is
54 begin
55   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
56 
57   return (TRUE);
58 end;
59 
60 function get_p_struct_num return boolean is
61 
62 l_p_struct_num number;
63 
64 begin
65         select structure_id
66         into l_p_struct_num
67         from mtl_default_sets_view
68         where functional_area_id = 2 ;
69 
70         P_CAT_STRUCT_NUM := l_p_struct_num ;
71 
72         return(TRUE) ;
73 
74         RETURN NULL; exception
75         when others then return(FALSE) ;
76 end;
77 
78 function f_get_vendor_item_number (p_org_id number
79              , p_vendor_id number
80              , p_vendor_site_id number
81              , p_item_id number)return varchar2 is
82 l_item_number VARCHAR2(25);
83 BEGIN
84   SELECT primary_vendor_item
85   INTO l_item_number
86   FROM po_approved_supplier_list
87   WHERE using_organization_id = p_org_id
88   AND   vendor_id = p_vendor_id
89   AND   vendor_site_id = p_vendor_site_id
90   AND   item_id = p_item_id;
91 
92   RETURN l_item_number;
93 EXCEPTION
94   WHEN OTHERS THEN
95     RETURN NULL;
96 END;
97 
98 function cf_vendor_item_numberformula(C_USING_ORG_ID in number, C_VENDOR_ID in number, C_VENDOR_SITE_ID in number, C_ITEM_ID in number) return varchar2 is
99 begin
100   return(F_GET_VENDOR_ITEM_NUMBER(C_USING_ORG_ID,C_VENDOR_ID
101                         , C_VENDOR_SITE_ID, C_ITEM_ID));
102 end;
103 
104 --Functions to refer Oracle report placeholders--
105 
106 END PO_POXCORIT_XMLP_PKG ;
107