[Home] [Help]
PACKAGE BODY: APPS.AR_ARXCCP_XMLP_PKG
Source
1 PACKAGE BODY AR_ARXCCP_XMLP_PKG AS
2 /* $Header: ARXCCPB.pls 120.0 2007/12/27 13:38:01 abraghun noship $ */
3
4 function NLS_YES1Formula return VARCHAR2 is
5 begin
6
7 EXECUTE IMMEDIATE 'SELECT meaning
8 FROM ar_lookups
9 WHERE lookup_type = ''YES/NO''
10 AND lookup_code = ''Y'''
11 INTO NLS_YES ;
12
13 /*SRW.DO_SQL('SELECT meaning
14 INTO :NLS_YES
15 FROM ar_lookups
16 WHERE lookup_type = ''YES/NO''
17 AND lookup_code = ''Y''');*/null;
18
19
20 COMMIT;
21
22 RETURN('');
23
24 end;
25
26 function NLS_YESFormula return VARCHAR2 is
27 begin
28
29 /*SRW.REFERENCE(NLS_YES1);*/null;
30
31
32 RETURN NULL; end;
33
34 function NLS_NO1Formula return VARCHAR2 is
35 begin
36
37 EXECUTE IMMEDIATE 'SELECT meaning
38 FROM ar_lookups
39 WHERE lookup_type = ''YES/NO''
40 AND lookup_code = ''N'''
41 INTO nls_no ;
42
43 /*SRW.DO_SQL('SELECT meaning
44 INTO :nls_no
45 FROM ar_lookups
46 WHERE lookup_type = ''YES/NO''
47 AND lookup_code = ''N''');*/null;
48
49
50 COMMIT;
51
52 RETURN('');
53
54 end;
55
56 function NLS_NOFormula return VARCHAR2 is
57 begin
58
59 /*SRW.REFERENCE(NLS_NO1);*/null;
60
61
62 RETURN NULL; end;
63
64 function BeforeReport return boolean is
65 begin
66 P_CONC_REQUEST_ID:=FND_GLOBAL.conc_request_id;
67 /*srw.message ('100', 'BeforeReport Trigger.... +');*/null;
68
69
70 /*srw.user_exit('FND SRWINIT');*/null;
71
72
73 Set_Sort_Order;
74
75 /*srw.message ('100', 'BeforeReport Trigger -');*/null;
76
77
78 return (TRUE);
79 end;
80
81 function AfterReport return boolean is
82 begin
83
84 /*srw.user_exit('FND SRWEXIT');*/null;
85 return (TRUE);
86 end;
87
88 function Report_NameFormula return VARCHAR2 is
89 begin
90
91 DECLARE
92 l_report_name VARCHAR2(240);
93 BEGIN
94 SELECT substrb(cp.user_concurrent_program_name,1,80)
95 INTO l_report_name
96 FROM FND_CONCURRENT_PROGRAMS_VL cp,
97 FND_CONCURRENT_REQUESTS cr
98 WHERE
99 cp.application_id = cr.program_application_id
100 AND cr.request_id = p_conc_request_id
101 AND cp.concurrent_program_id = cr.concurrent_program_id;
102
103 RP_Report_name := l_report_name;
104
105 RETURN(l_report_name);
106 EXCEPTION
107 WHEN NO_DATA_FOUND
108 THEN RP_REPORT_NAME := 'Customer Profiles Report';
109 RETURN('Customer Profiles Report');
110 END;
111
112
113
114 RETURN NULL; end;
115
116 --Functions to refer Oracle report placeholders--
117
118 Function NLS_YES_p return varchar2 is
119 Begin
120 return NLS_YES;
121 END;
122 Function NLS_NO_p return varchar2 is
123 Begin
124 return NLS_NO;
125 END;
126 Function RP_REPORT_NAME_p return varchar2 is
127 Begin
128 return RP_REPORT_NAME;
129 END;
130 PROCEDURE Set_Sort_Order IS
131 BEGIN
132
133 -- srw.message ('100', 'BeforeReport_Procs.Set_Sort_Order');
134
135 -- srw.reference(:SORT_BY_PHONETICS);
136
137 /* srw.user_exit('FND GETPROFILE
138 NAME="RA_CUSTOMERS_SORT_BY_PHONETICS"
139 FIELD="SORT_BY_PHONETICS"
140 PRINT_ERROR="N"');
141 */
142 if SORT_BY_PHONETICS = 'Y' then
143 P_SORT1 := 'party.organization_name_phonetic';
144 P_SORT2 := 'null';
145 else
146 P_SORT1 := 'cust.account_number';
147 P_SORT2 := 'cust.cust_account_id';
148 end if;
149
150 EXCEPTION
151 WHEN OTHERS THEN
152 SORT_BY_PHONETICS := 'N';
153 P_SORT1 := 'cust.account_number';
154 P_SORT2 := 'cust.cust_account_id';
155 END;
156 END AR_ARXCCP_XMLP_PKG ;
157