PACKAGE BODY: APPS.PA_PARGCALG_XMLP_PKG

Source

1 PACKAGE BODY PA_PARGCALG_XMLP_PKG AS
2 /* $Header: PARGCALGB.pls 120.1 2008/01/03 11:09:31 krreddy noship $ */
3 
4 function AfterReport return boolean is
5 begin
6   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
7 
8   return (TRUE);
9 
10 end;
11 
12 function BeforeReport return boolean is
13  x_status       VARCHAR2(1);
14  x_count        NUMBER;
15  x_data         VARCHAR2(250);
16 
17 begin
18 
19 /*srw.user_exit('FND SRWINIT');*/null;
20 
21 
22 
23 /*srw.user_exit('FND GETPROFILE
24 NAME="PA_DEBUG_MODE"
25 FIELD=":p_debug_mode"
26 PRINT_ERROR="N"');*/null;
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 /*srw.user_exit('FND GETPROFILE
37 NAME="CURRENCY:MIXED_PRECISION"
38 FIELD=":p_min_precision"
39 PRINT_ERROR="N"');*/null;
40 
41 
42 
43  IF (UPPER(p_run_mode) = 'R') THEN
44   PA_SCHEDULE_PUB.create_new_cal_schedules(p_start_calendar_name,
45                            p_end_calendar_name,
46                            x_status,x_count,x_data);
47  ELSIF (UPPER(p_run_mode) = 'S' ) THEN
48   PA_SCHEDULE_PUB.create_new_cal_schedules(p_start_calendar_name,
49                            p_start_calendar_name,
50                            x_status,x_count,x_data);
51  END IF;
52 
53    return(TRUE);
54 EXCEPTION
55   WHEN OTHERS THEN
56        Raise;
57 return (TRUE);
58 end;
59 
60 function CF_company_nameFormula return Char is
61  v_company_name  gl_sets_of_books.name%type;
62 
63 begin
64 
65   select glb.name into v_company_name
66   from gl_sets_of_books glb, pa_implementations pi
67   where glb.set_of_books_id=pi.set_of_books_id;
68   cp_company_name:=v_company_name;
69    return  cp_company_name;
70  exception
71     when others then
72      null;
73      return  cp_company_name;
74 end;
75 
76 --Functions to refer Oracle report placeholders--
77 
78  Function CP_company_name_p return varchar2 is
79 	Begin
80 	 return CP_company_name;
81 	 END;
82  Function CP_NODATAFOUND_p return varchar2 is
83 	Begin
84 	 return CP_NODATAFOUND;
85 	 END;
86 END PA_PARGCALG_XMLP_PKG ;
87