PACKAGE BODY: APPS.PO_POXVCVAR_XMLP_PKG

Source

1 PACKAGE BODY PO_POXVCVAR_XMLP_PKG AS
2 /* $Header: POXVCVARB.pls 120.1 2007/12/25 12:38:02 krreddy noship $ */
3 
4 function BeforeReport return boolean is
5 begin
6 
7 DECLARE
8       	x_assignment_set_id  VARCHAR2(240) := '';
9 	x_organization_code  VARCHAR2(240) := '';
10 BEGIN
11   /*SRW.USER_EXIT('FND SRWINIT');*/null;
12 
13 
14  null;
15 
16 
17  null;
18 
19 
20 
21 
22 
23   fnd_profile.get('MRP_DEFAULT_ASSIGNMENT_SET',
24 	x_assignment_set_id);
25   IF (x_assignment_set_id IS NULL) THEN
26 	begin
27 	P_ASSIGNMENT_SET_ID := -1;
28 	P_ASSIGNMENT_SET_ID_Qry:= -1;
29 	end;
30   ELSE
31   begin
32 	P_ASSIGNMENT_SET_ID :=
33 		to_number(x_assignment_set_id);
34   P_ASSIGNMENT_SET_ID_Qry:=P_ASSIGNMENT_SET_ID;
35 	end;
36   END IF;
37 
38 
39 
40     select organization_code
41     into   x_organization_code
42     from   mtl_parameters
43     where  organization_id = P_ORGANIZATION_ID;
44 
45     CP_ORGANIZATION_CODE := x_organization_code;
46 
47 
48   RETURN TRUE;
49 EXCEPTION
50    when no_data_found then null;
51    when others then
52 	/*srw.message('50', 'Exception from BEFOREREPORT: '||sqlerrm);*/null;
53 
54 END;
55   return (TRUE);
56 end;
57 
58 function P_titleValidTrigger return boolean is
59 begin
60 
61 		  return (TRUE);
62 end;
63 
64 function AfterReport return boolean is
65 begin
66 
67 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
68   return (TRUE);
69 end;
70 
71 function get_actual(Expenditure_total in number, C_vendor_total in number) return number is
72 actual number;
73 begin
74   if Expenditure_total <> 0          then
75      actual := C_vendor_total/Expenditure_Total*100;
76   else
77      actual := 0;
78   end if;
79   return (actual);
80 RETURN NULL; exception
81   when others then
82     /*srw.message('010','Error error error');*/null;
83 
84     raise_application_error(-20101,null);/*srw.context_failure;*/null;
85 
86 end;
87 
88 function c_intendedformula(Split in number, Expenditure_Total in number) return number is
89 begin
90 
91  return ((Split/100)*Expenditure_Total);
92 end;
93 
94 --Functions to refer Oracle report placeholders--
95 
96 END PO_POXVCVAR_XMLP_PKG ;
97