1 PACKAGE BODY AR_ARXDPR_XMLP_PKG AS
2 /* $Header: ARXDPRB.pls 120.0 2007/12/27 13:48:57 abraghun noship $ */
3
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6
7 DECLARE
8 l_report_name VARCHAR2(80);
9 BEGIN
10 RP_Company_Name := Company_Name;
11
12 SELECT substr(cp.user_concurrent_program_name,1,80)
13 INTO l_report_name
14 FROM FND_CONCURRENT_PROGRAMS_VL cp,
15 FND_CONCURRENT_REQUESTS cr
16 WHERE cr.request_id = P_CONC_REQUEST_ID
17 AND cp.application_id = cr.program_application_id
18 AND cp.concurrent_program_id=cr.concurrent_program_id;
19
20 RP_Report_Name := l_report_name;
21 RETURN(l_report_name);
22
23 EXCEPTION
24 WHEN OTHERS THEN
25 RP_Report_Name := 'Discount Projection Report';
26 RETURN('Discount Projection Report');
27 END;
28 RETURN NULL; end;
29
30 function BeforeReport return boolean is
31 begin
32
33 /*SRW.USER_EXIT('FND SRWINIT');*/null;
34 return (TRUE);
35 end;
36
37 function AfterReport return boolean is
38 begin
39
40 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
41 return (TRUE);
42 end;
43
44 function abs_discFormula return Number is
45 begin
46
47 /*srw.reference(out_disc_to_take);*/null;
48
49 return(nvl(out_earned_disc,0) + nvl(out_unearned_disc,0));
50 end;
51
52 function unearnd_disc_pctformula(unearned_discount in varchar2) return number is
53 begin
54
55 if(unearned_discount = 'N') THEN return(NULL);
56 else return(nvl(best_disc_pct,0) - nvl(earned_disc_pct,0));
57 end if;
58 RETURN NULL; end;
59
60 function cf_acc_messageformula(gl_date in date) return number is
61 l_msg VARCHAR2(2000) ;
62 begin
66 l_msg := FND_MESSAGE.get;
63 IF gl_date IS NOT NULL THEN
64
65 FND_MESSAGE.SET_NAME('AR','AR_REPORT_ACC_NOT_GEN');
67 cp_acc_message := l_msg;
68
69 ELSE
70 cp_acc_message := NULL;
71 END IF;
72 return 0;
73 end;
74
75 --Functions to refer Oracle report placeholders--
76
77 Function ACCT_BAL_APROMPT_p return varchar2 is
78 Begin
79 return ACCT_BAL_APROMPT;
80 END;
81 Function out_discount_date_p return varchar2 is
82 Begin
83 return out_discount_date;
84 END;
85 Function out_amt_to_apply_p return number is
86 Begin
87 return out_amt_to_apply;
88 END;
89 Function earned_disc_pct_p return number is
90 Begin
91 return earned_disc_pct;
92 END;
93 Function out_earned_disc_p return number is
94 Begin
95 return out_earned_disc;
96 END;
97 Function out_unearned_disc_p return number is
98 Begin
99 return out_unearned_disc;
100 END;
101 Function best_disc_pct_p return number is
102 Begin
103 return best_disc_pct;
104 END;
105 Function RP_COMPANY_NAME_p return varchar2 is
106 Begin
107 return RP_COMPANY_NAME;
108 END;
109 Function RP_REPORT_NAME_p return varchar2 is
110 Begin
111 return RP_REPORT_NAME;
112 END;
113 Function CP_ACC_MESSAGE_p return varchar2 is
114 Begin
115 return CP_ACC_MESSAGE;
116 END;
117 END AR_ARXDPR_XMLP_PKG ;
118