1 PACKAGE BODY JA_JAINOTDS_XMLP_PKG AS
2 /* $Header: JAINOTDSB.pls 120.1 2007/12/25 16:23:37 dwkrishn noship $ */
3 FUNCTION CF_VENDOR_NAMEFORMULA0009(VENDOR_ID IN NUMBER) RETURN CHAR IS
4 VEN_NAME VARCHAR2(80);
5 BEGIN
6 SELECT
7 VENDOR_NAME
8 INTO VEN_NAME
9 FROM
10 PO_VENDORS
11 WHERE VENDOR_ID = CF_VENDOR_NAMEFORMULA0009.VENDOR_ID;
12 RETURN (VEN_NAME);
13 EXCEPTION
14 WHEN OTHERS THEN
15 RETURN (NULL);
16 END CF_VENDOR_NAMEFORMULA0009;
17
18 FUNCTION CF_VENDOR_SITEFORMULA(VENDOR_SITE_ID IN NUMBER) RETURN CHAR IS
19 SITE_NAME VARCHAR2(15);
20 BEGIN
21 SELECT
22 VENDOR_SITE_CODE
23 INTO SITE_NAME
24 FROM
25 PO_VENDOR_SITES_ALL
26 WHERE VENDOR_SITE_ID = CF_VENDOR_SITEFORMULA.VENDOR_SITE_ID;
27 RETURN (SITE_NAME);
28 EXCEPTION
29 WHEN OTHERS THEN
30 RETURN (NULL);
31 END CF_VENDOR_SITEFORMULA;
32
33 FUNCTION CF_VENDOR_NAME1FORMULA(VENDOR_ID1 IN NUMBER
34 ,VENDOR_ID IN NUMBER
35 ,CF_VENDOR_NAME IN VARCHAR2) RETURN CHAR IS
36 VEN_NAME VARCHAR2(100);
37 BEGIN
38 IF VENDOR_ID1 = VENDOR_ID THEN
39 RETURN (CF_VENDOR_NAME);
40 ELSE
41 SELECT
42 VENDOR_NAME
43 INTO VEN_NAME
44 FROM
45 PO_VENDORS
46 WHERE VENDOR_ID = VENDOR_ID1;
47 RETURN (VEN_NAME);
48 END IF;
49 EXCEPTION
50 WHEN OTHERS THEN
51 RETURN (NULL);
52 END CF_VENDOR_NAME1FORMULA;
53
54 FUNCTION CF_VENDOR_SITE_1FORMULA(VENDOR_SITE_ID1 IN NUMBER
55 ,VENDOR_SITE_ID IN NUMBER
56 ,CF_VENDOR_SITE IN VARCHAR2) RETURN CHAR IS
57 SITE_NAME VARCHAR2(100);
58 BEGIN
59 IF VENDOR_SITE_ID1 = VENDOR_SITE_ID THEN
60 RETURN (CF_VENDOR_SITE);
61 ELSE
62 SELECT
63 VENDOR_SITE_CODE
64 INTO SITE_NAME
65 FROM
66 PO_VENDOR_SITES_ALL
67 WHERE VENDOR_SITE_ID = VENDOR_SITE_ID1;
68 RETURN (SITE_NAME);
69 END IF;
70 EXCEPTION
71 WHEN OTHERS THEN
72 RETURN (NULL);
73 END CF_VENDOR_SITE_1FORMULA;
74
75 FUNCTION CF_TDS_SECTIONFORMULA(VENDOR_ID1 IN NUMBER
76 ,VENDOR_ID IN NUMBER
77 ,INVOICE_ID IN NUMBER
78 ,INVOICE_NUM1 IN VARCHAR2) RETURN CHAR IS
79 V_TDS_SECTION VARCHAR2(100);
80 BEGIN
81 IF VENDOR_ID1 = VENDOR_ID THEN
82 RETURN (NULL);
83 ELSE
84 SELECT
85 TDS_SECTION
86 INTO V_TDS_SECTION
87 FROM
88 JAI_AP_TDS_INVOICES
89 WHERE INVOICE_ID = CF_TDS_SECTIONFORMULA.INVOICE_ID
90 AND TDS_INVOICE_NUM = INVOICE_NUM1;
91 RETURN (V_TDS_SECTION);
92 END IF;
93 EXCEPTION
94 WHEN OTHERS THEN
95 RETURN (NULL);
96 END CF_TDS_SECTIONFORMULA;
97
98 FUNCTION CF_TDS_TAX_RATEFORMULA(VENDOR_ID1 IN NUMBER
99 ,VENDOR_ID IN NUMBER
100 ,INVOICE_ID IN NUMBER
101 ,INVOICE_NUM1 IN VARCHAR2) RETURN NUMBER IS
102 V_TDS_RATE NUMBER;
103 BEGIN
104 IF VENDOR_ID1 = VENDOR_ID THEN
105 RETURN (NULL);
106 ELSE
107 SELECT
108 TDS_TAX_RATE
109 INTO V_TDS_RATE
110 FROM
111 JAI_AP_TDS_INVOICES
112 WHERE INVOICE_ID = CF_TDS_TAX_RATEFORMULA.INVOICE_ID
113 AND TDS_INVOICE_NUM = INVOICE_NUM1;
114 RETURN (V_TDS_RATE);
115 END IF;
116 EXCEPTION
117 WHEN OTHERS THEN
118 RETURN (NULL);
119 END CF_TDS_TAX_RATEFORMULA;
120
121 FUNCTION CF_TAX_NAMEFORMULA(VENDOR_ID1 IN NUMBER
122 ,VENDOR_ID IN NUMBER
123 ,INVOICE_ID IN NUMBER
124 ,INVOICE_NUM1 IN VARCHAR2) RETURN CHAR IS
125 V_TDS_TAX_NAME VARCHAR2(100);
126 V_TDS_TAX_ID NUMBER;
127 BEGIN
128 IF VENDOR_ID1 = VENDOR_ID THEN
129 RETURN (NULL);
130 ELSE
131 SELECT
132 TDS_TAX_ID
133 INTO V_TDS_TAX_ID
134 FROM
135 JAI_AP_TDS_INVOICES
136 WHERE INVOICE_ID = CF_TAX_NAMEFORMULA.INVOICE_ID
137 AND TDS_INVOICE_NUM = INVOICE_NUM1;
138 SELECT
139 TAX_NAME
140 INTO V_TDS_TAX_NAME
141 FROM
142 JAI_CMN_TAXES_ALL
143 WHERE TAX_ID = V_TDS_TAX_ID;
144 RETURN (V_TDS_TAX_NAME);
145 END IF;
146 EXCEPTION
147 WHEN OTHERS THEN
148 RETURN (NULL);
149 END CF_TAX_NAMEFORMULA;
150
151 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
152 CURSOR C_PROGRAM_ID(P_REQUEST_ID IN NUMBER) IS
153 SELECT
154 CONCURRENT_PROGRAM_ID,
155 NVL(ENABLE_TRACE
156 ,'N')
157 FROM
158 FND_CONCURRENT_REQUESTS
159 WHERE REQUEST_ID = P_REQUEST_ID;
160 V_ENABLE_TRACE FND_CONCURRENT_PROGRAMS.ENABLE_TRACE%TYPE;
161 V_PROGRAM_ID FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_ID%TYPE;
162 BEGIN
163 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
164 P_FROM_DATE_1:=to_char(P_FROM_DATE,'DD-MON-YY');
165 P_TO_DATE_1:=to_char(P_TO_DATE,'DD-MON-YY');
166 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
167 /*SRW.MESSAGE(1275
168 ,'Report Version is 120.2 Last modified date is 25/07/2005')*/NULL;
169 BEGIN
170 OPEN C_PROGRAM_ID(P_CONC_REQUEST_ID);
171 FETCH C_PROGRAM_ID
172 INTO V_PROGRAM_ID,V_ENABLE_TRACE;
173 CLOSE C_PROGRAM_ID;
174 /*SRW.MESSAGE(1275
175 ,'v_program_id -> ' || V_PROGRAM_ID || ', v_enable_trace -> ' || V_ENABLE_TRACE || ', request_id -> ' || P_CONC_REQUEST_ID)*/NULL;
176 IF V_ENABLE_TRACE = 'Y' THEN
177 EXECUTE IMMEDIATE
178 'ALTER SESSION SET EVENTS ''10046 trace name context forever, level 4''';
179 END IF;
180 RETURN (TRUE);
181 EXCEPTION
182 WHEN OTHERS THEN
183 /*SRW.MESSAGE(1275
184 ,'Error during enabling the trace. ErrCode -> ' || SQLCODE || ', ErrMesg ->' || SQLERRM)*/NULL;
185 RETURN (TRUE);
186 END;
187 END BEFOREREPORT;
188
189 FUNCTION AFTERREPORT RETURN BOOLEAN IS
190 BEGIN
191 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
192 RETURN (TRUE);
193 END AFTERREPORT;
194
195 END JA_JAINOTDS_XMLP_PKG;
196
197