1 PACKAGE BODY AR_ARXNROPN_XMLP_PKG AS
2 /* $Header: ARXNROPNB.pls 120.0 2007/12/27 13:56:25 abraghun noship $ */
3 UNKNOWN_USER_EXIT EXCEPTION;
4 USER_EXIT_FAILURE EXCEPTION;
5 function BeforeReport return boolean is
6 begin
7 begin
8 /*srw.user_exit('FND SRWINIT');*/null;
9 exception
10 when UNKNOWN_USER_EXIT /*srw.unknown_user_exit */then
11 /*srw.message(01,'FND SRWINIT user exit is unknown.');*/null;
12 raise;
13 when USER_EXIT_FAILURE /*srw.user_exit_failure */then
14 /*srw.message(02,'FND SRWINIT user exit failed.');*/null;
15 raise;
16 end;
17 begin
18 /*srw.reference(RP_SORT_BY_PHONETICS);*/null;
19 /*srw.user_exit('FND GETPROFILE
20 NAME="RA_CUSTOMERS_SORT_BY_PHONETICS"
21 FIELD="RP_SORT_BY_PHONETICS"
22 PRINT_ERROR="N"');*/null;
23 exception
24 when others then
25 RP_SORT_BY_PHONETICS := 'N';
26 end;
27 begin
28 select meaning
29 into HP_ORDER_BY
30 from ar_lookups
31 where lookup_type = 'ARXNROPN_ORDER_BY'
32 and lookup_code = P_ORDER_BY;
33 exception
34 when NO_DATA_FOUND
35 then HP_ORDER_BY := '';
36 end;
37 begin
38 select bank_account_num
39 into HP_BANK_ACCOUNT
40 from ce_bank_accounts
41 where bank_account_id = P_BANK_ACCOUNT_ID;
42 exception
43 when NO_DATA_FOUND
44 then HP_BANK_ACCOUNT := '';
45 end;
46 begin
47 select meaning
48 into HP_NOTE_STATUS
49 from ar_lookups
50 where lookup_type = decode(P_NOTE_STATUS,
51 'REMITTED', 'RECEIPT_CREATION_STATUS',
52 'AR_NOTE_STATUS')
53 and lookup_code = P_NOTE_STATUS;
54 exception
55 when NO_DATA_FOUND
56 then HP_NOTE_STATUS := '';
57 end;
58 return (TRUE);
59 end;
60 function AfterReport return boolean is
61 begin
62 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
63 return (TRUE);
64 end;
65 function AfterPForm return boolean is
66 begin
67 P_START_DATE1 := to_char(P_START_DATE,'DD-MON-YY');
68 P_END_DATE1 := to_char(P_END_DATE,'DD-MON-YY');
69 IF P_CURRENCY_CODE IS NOT NULL THEN
70 LP_CURRENCY_CODE := 'and cr.currency_code = :P_CURRENCY_CODE';
71 END IF;
72 IF P_START_DATE IS NOT NULL THEN
73 LP_START_DATE := 'and ps.due_date >= :P_START_DATE';
74 END IF;
75 IF P_END_DATE IS NOT NULL THEN
76 LP_END_DATE := 'and ps.due_date <= :P_END_DATE';
77 END IF;
78 IF P_REMITTANCE_BANK IS NOT NULL THEN
79 LP_REMITTANCE_BANK := 'and bb.bank_name = :P_REMITTANCE_BANK';
80 END IF;
81 IF P_BANK_ACCOUNT_ID IS NOT NULL THEN
82 LP_BANK_ACCOUNT_ID := 'and cr.remit_bank_acct_use_id = :P_BANK_ACCOUNT_ID';
83 END IF;
84 IF P_CUSTOMER_NAME_LOW IS NOT NULL THEN
85 LP_CUSTOMER_NAME_LOW := 'and PARTY.PARTY_NAME >= :P_CUSTOMER_NAME_LOW';
86 END IF;
87 IF P_CUSTOMER_NAME_HIGH IS NOT NULL THEN
88 LP_CUSTOMER_NAME_HIGH := 'and PARTY.PARTY_NAME <= :P_CUSTOMER_NAME_HIGH';
89 END IF;
90 IF P_CUSTOMER_NUMBER_LOW IS NOT NULL THEN
91 LP_CUSTOMER_NUMBER_LOW := 'and cust.ACCOUNT_NUMBER >= :P_CUSTOMER_NUMBER_LOW';
92 END IF;
93 IF P_CUSTOMER_NUMBER_HIGH IS NOT NULL THEN
94 LP_CUSTOMER_NUMBER_HIGH := 'and cust.ACCOUNT_NUMBER <= :P_CUSTOMER_NUMBER_HIGH';
95 END IF;
96 IF P_NOTE_STATUS = 'REMITTED' THEN
97 LP_NOTE_STATUS := 'and lk.lookup_code = ''REMITTED''';
98 ELSIF P_NOTE_STATUS = 'OPEN' THEN
99 LP_NOTE_STATUS := 'and lk.lookup_code = ''OPEN''';
100 ELSIF P_NOTE_STATUS = 'EXCHANGE' THEN
101 LP_NOTE_STATUS := 'and lk.lookup_code = ''EXCHANGE''';
102 ELSIF P_NOTE_STATUS = 'MATURED' THEN
103 LP_NOTE_STATUS := 'and lk.lookup_code = ''MATURED''';
104 END IF;
105 return (TRUE);
106 end;
107 function setupformula(set_of_books_name in varchar2, functional_curr in varchar2, functional_curr_prec in number) return varchar2 is
108 begin
109 RP_SET_OF_BOOKS_NAME := set_of_books_name;
110 RP_FUNCTIONAL_CURR := functional_curr;
111 RP_FUNCTIONAL_CURR_PREC := functional_curr_prec;
112 return('');
113 end;
114 --Functions to refer Oracle report placeholders--
115 Function RP_DATA_FOUND_p return varchar2 is
116 Begin
117 return RP_DATA_FOUND;
118 END;
119 Function RP_SORT_BY_PHONETICS_p return varchar2 is
120 Begin
121 return RP_SORT_BY_PHONETICS;
122 END;
123 Function RP_FUNCTIONAL_CURR_p return varchar2 is
124 Begin
125 return RP_FUNCTIONAL_CURR;
126 END;
127 Function RP_FUNCTIONAL_CURR_PREC_p return number is
128 Begin
129 return RP_FUNCTIONAL_CURR_PREC;
130 END;
131 Function RP_SET_OF_BOOKS_NAME_p return varchar2 is
132 Begin
133 return RP_SET_OF_BOOKS_NAME;
134 END;
135 END AR_ARXNROPN_XMLP_PKG ;
136