[Home] [Help]
PACKAGE BODY: APPS.AR_RAXTTL_XMLP_PKG
Source
1 PACKAGE BODY AR_RAXTTL_XMLP_PKG AS
2 /* $Header: RAXTTLB.pls 120.0 2007/12/27 14:34:56 abraghun noship $ */
3 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_REPORT_NAME VARCHAR2(80);
7 BEGIN
8 RP_COMPANY_NAME := COMPANY_NAME;
9 SELECT
10 SUBSTRB(CP.USER_CONCURRENT_PROGRAM_NAME
11 ,1
12 ,80)
13 INTO L_REPORT_NAME
14 FROM
15 FND_CONCURRENT_PROGRAMS_VL CP,
16 FND_CONCURRENT_REQUESTS CR
17 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
18 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
19 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
20 RP_REPORT_NAME := L_REPORT_NAME;
21 RETURN (L_REPORT_NAME);
22 EXCEPTION
23 WHEN NO_DATA_FOUND THEN
24 RP_REPORT_NAME := 'Transaction Types Listing';
25 RETURN ('Transaction Types Listing');
26 END;
27 RETURN NULL;
28 END REPORT_NAMEFORMULA;
29
30 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
31 BEGIN
32 BEGIN
33 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
34 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
35 END;
36 RETURN (TRUE);
37 END BEFOREREPORT;
38
39 FUNCTION SUB_TITLEFORMULA RETURN VARCHAR2 IS
40 BEGIN
41 BEGIN
42 RP_SUB_TITLE := ' ';
43 RETURN (' ');
44 END;
45 RETURN NULL;
46 END SUB_TITLEFORMULA;
47
48 FUNCTION AFTERREPORT RETURN BOOLEAN IS
49 BEGIN
50 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
51 RETURN (TRUE);
52 END AFTERREPORT;
53
54 FUNCTION GET_YES_NOFORMULA RETURN VARCHAR2 IS
55 BEGIN
56 DECLARE
57 YES VARCHAR2(30);
58 NO VARCHAR2(30);
59 BEGIN
60 SELECT
61 SUBSTR(LC1.MEANING
62 ,1
63 ,16),
64 SUBSTR(LC2.MEANING
65 ,1
66 ,16)
67 INTO YES,NO
68 FROM
69 AR_LOOKUPS LC1,
70 AR_LOOKUPS LC2
71 WHERE LC1.LOOKUP_CODE = 'Y'
72 AND LC1.LOOKUP_TYPE = 'YES/NO'
73 AND LC2.LOOKUP_CODE = 'N'
74 AND LC2.LOOKUP_TYPE = 'YES/NO';
75 YES := YES;
76 NO := NO;
77 RETURN (1);
78 END;
79 RETURN NULL;
80 END GET_YES_NOFORMULA;
81
82 FUNCTION INVOICE_TYPEFORMULA(INVOICE_TYPE_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
83 BEGIN
84 DECLARE
85 INVOICE_TYPE VARCHAR2(30);
86 BEGIN
87 RP_DATA_FOUND := 'X';
88 SELECT
89 DECODE(INVOICE_TYPE_TYPE_ID
90 ,NULL
91 ,''
92 ,SUBSTR(NAME
93 ,1
94 ,21))
95 INTO INVOICE_TYPE
96 FROM
97 RA_CUST_TRX_TYPES
98 WHERE CUST_TRX_TYPE_ID = INVOICE_TYPE_TYPE_ID
99 OR ( INVOICE_TYPE_TYPE_ID is null
100 AND ROWNUM < 2 );
101 RETURN (INVOICE_TYPE);
102 END;
103 RETURN NULL;
104 END INVOICE_TYPEFORMULA;
105
106 FUNCTION CREDIT_MEMO_TYPEFORMULA(CREDIT_MEMO_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
107 BEGIN
108 DECLARE
109 CREDIT_MEMO_TYPE VARCHAR2(30);
110 BEGIN
111 SELECT
112 DECODE(CREDIT_MEMO_TYPEFORMULA.CREDIT_MEMO_TYPE_ID
113 ,NULL
114 ,''
115 ,SUBSTR(NAME
116 ,1
117 ,27))
118 INTO CREDIT_MEMO_TYPE
119 FROM
120 RA_CUST_TRX_TYPES
121 WHERE CUST_TRX_TYPE_ID = CREDIT_MEMO_TYPEFORMULA.CREDIT_MEMO_TYPE_ID
122 OR ( CREDIT_MEMO_TYPEFORMULA.CREDIT_MEMO_TYPE_ID is null AND ROWNUM < 2 );
123 RETURN (CREDIT_MEMO_TYPE);
124 END;
125 RETURN NULL;
126 END CREDIT_MEMO_TYPEFORMULA;
127
128 FUNCTION TERM_NAMEFORMULA(TERM_ID IN NUMBER) RETURN VARCHAR2 IS
129 BEGIN
130 DECLARE
131 TERM_NAME VARCHAR2(30);
132 BEGIN
133 SELECT
134 DECODE(TERM_ID
135 ,NULL
136 ,''
137 ,SUBSTR(NAME
138 ,1
139 ,27))
140 INTO TERM_NAME
141 FROM
142 RA_TERMS
143 WHERE TERM_ID = TERM_NAMEFORMULA.TERM_ID
144 OR ( TERM_ID is null
145 AND ROWNUM < 2 );
146 RETURN (TERM_NAME);
147 END;
148 RETURN NULL;
149 END TERM_NAMEFORMULA;
150
151 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
152 BEGIN
153 RETURN RP_COMPANY_NAME;
154 END RP_COMPANY_NAME_P;
155
156 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN RP_REPORT_NAME;
159 END RP_REPORT_NAME_P;
160
161 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
162 BEGIN
163 RETURN RP_DATA_FOUND;
164 END RP_DATA_FOUND_P;
165
166 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN RP_SUB_TITLE;
169 END RP_SUB_TITLE_P;
170
171 FUNCTION YES_P RETURN VARCHAR2 IS
172 BEGIN
173 RETURN 'Yes';
174 END YES_P;
175
176 FUNCTION NO_P RETURN VARCHAR2 IS
177 BEGIN
178 RETURN 'No';
179 END NO_P;
180
181 END AR_RAXTTL_XMLP_PKG;
182