[Home] [Help]
PACKAGE BODY: APPS.JL_JLARPCWT_XMLP_PKG
Source
1 PACKAGE BODY JL_JLARPCWT_XMLP_PKG AS
2 /* $Header: JLARPCWTB.pls 120.1 2007/12/25 16:33:36 dwkrishn noship $ */
3 FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN IS
4 BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5 PREC FND_CURRENCIES_VL.PRECISION%TYPE;
6 MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7 DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
8 BEGIN
9 BASE_CURR := '';
10 PREC := 0;
11 MIN_AU := 0;
12 DESCR := '';
13 SELECT
14 P.BASE_CURRENCY_CODE,
15 C.PRECISION,
16 C.MINIMUM_ACCOUNTABLE_UNIT,
17 C.DESCRIPTION
18 INTO BASE_CURR,PREC,MIN_AU,DESCR
19 FROM
20 AP_SYSTEM_PARAMETERS P,
21 FND_CURRENCIES_VL C
22 WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
23 C_BASE_CURRENCY_CODE := BASE_CURR;
24 C_BASE_PRECISION := PREC;
25 C_BASE_MIN_ACCT_UNIT := MIN_AU;
26 C_BASE_DESCRIPTION := DESCR;
27 RETURN (TRUE);
28 RETURN NULL;
29 EXCEPTION
30 WHEN OTHERS THEN
31 RETURN (FALSE);
32 END GET_BASE_CURR_DATA;
33
34 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
35 BEGIN
36 RETURN (TRUE);
37 RETURN NULL;
38 EXCEPTION
39 WHEN OTHERS THEN
40 RETURN (FALSE);
41 END GET_COVER_PAGE_VALUES;
42
43 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
44 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
45 NLS_YES FND_LOOKUPS.MEANING%TYPE;
46 NLS_NO FND_LOOKUPS.MEANING%TYPE;
47 BEGIN
48 NLS_ALL := '';
49 NLS_YES := '';
50 NLS_NO := '';
51 SELECT
52 LY.MEANING,
53 LN.MEANING,
54 LA.DISPLAYED_FIELD
55 INTO NLS_YES,NLS_NO,NLS_ALL
56 FROM
57 FND_LOOKUPS LY,
58 FND_LOOKUPS LN,
59 AP_LOOKUP_CODES LA
60 WHERE LY.LOOKUP_TYPE = 'YES_NO'
61 AND LY.LOOKUP_CODE = 'Y'
62 AND LN.LOOKUP_TYPE = 'YES_NO'
63 AND LN.LOOKUP_CODE = 'N'
64 AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
65 AND LA.LOOKUP_CODE = 'ALL';
66 C_NLS_YES := NLS_YES;
67 C_NLS_NO := NLS_NO;
68 C_NLS_ALL := NLS_ALL;
69 FND_MESSAGE.SET_NAME('SQLAP'
70 ,'AP_APPRVL_NO_DATA');
71 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
72 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
73 RETURN (TRUE);
74 RETURN NULL;
75 EXCEPTION
76 WHEN OTHERS THEN
77 RETURN (FALSE);
78 END GET_NLS_STRINGS;
79
80 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
81 BEGIN
82 DECLARE
83 INIT_FAILURE EXCEPTION;
84 ORG_ID NUMBER;
85 V_PROFILE_COUNTRY_CODE VARCHAR2(10);
86 BEGIN
87 BEGIN
88 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
89 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
90 IF (P_DEBUG_SWITCH = 'Y') THEN
91 /*SRW.MESSAGE('1'
92 ,'After SRWINIT')*/NULL;
93 END IF;
94 EXCEPTION
95 /*WHEN SRW.UNKNOWN_USER_EXIT THEN
96 /*SRW.MESSAGE(01
97 ,'FND SRWINIT user exit is unknown.');
98 RAISE;*/
99 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
100 /*SRW.MESSAGE(02
101 ,'FND SRWINIT user exit failed.')*/NULL;
102 RAISE;
103 END;
104 IF (GET_BASE_CURR_DATA <> TRUE) THEN
105 RAISE INIT_FAILURE;
106 END IF;
107 IF (P_DEBUG_SWITCH = 'Y') THEN
108 /*SRW.MESSAGE('4'
109 ,'After Get_Base_Curr_Data')*/NULL;
110 END IF;
111 IF (P_DEBUG_SWITCH = 'Y') THEN
112 /*SRW.BREAK*/NULL;
113 END IF;
114 RETURN (TRUE);
115 EXCEPTION
116 WHEN OTHERS THEN
117 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
118 END;
119 RETURN (TRUE);
120 END BEFOREREPORT;
121
122 FUNCTION AFTERREPORT RETURN BOOLEAN IS
123 BEGIN
124 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
125 IF (P_DEBUG_SWITCH = 'Y') THEN
126 /*SRW.MESSAGE('20'
127 ,'After SRWEXIT')*/NULL;
128 END IF;
129 RETURN (TRUE);
130 RETURN NULL;
131 EXCEPTION
132 WHEN OTHERS THEN
133 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
134 RETURN (FALSE);
135 END AFTERREPORT;
136
137 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
138 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
139 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
140 L_REPORT_START_DATE DATE;
141 BEGIN
142 L_REPORT_START_DATE := SYSDATE;
143 SELECT
144 NAME,
145 CHART_OF_ACCOUNTS_ID
146 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
147 FROM
148 GL_SETS_OF_BOOKS G,
149 AP_SYSTEM_PARAMETERS A
150 WHERE G.SET_OF_BOOKS_ID = A.SET_OF_BOOKS_ID;
151 C_COMPANY_NAME_HEADER := L_NAME;
152 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
153 C_REPORT_START_DATE := L_REPORT_START_DATE;
154 RETURN (TRUE);
155 RETURN NULL;
156 EXCEPTION
157 WHEN OTHERS THEN
158 RETURN (FALSE);
159 END GET_COMPANY_NAME;
160
161 FUNCTION CALCULATE_RUN_TIME RETURN BOOLEAN IS
162 END_DATE DATE;
163 START_DATE DATE;
164 BEGIN
165 END_DATE := SYSDATE;
166 START_DATE := C_REPORT_START_DATE;
167 C_REPORT_RUN_TIME := TO_CHAR(TO_DATE('01/01/0001'
168 ,'DD/MM/YYYY') + ((END_DATE - START_DATE))
169 ,'HH24:MI:SS');
170 RETURN (TRUE);
171 RETURN NULL;
172 EXCEPTION
173 WHEN OTHERS THEN
174 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
175 END CALCULATE_RUN_TIME;
176
177 FUNCTION CF_1FORMULA(JURISDICTION_TYPE IN VARCHAR2
178 ,TAXABLE_BASE_AMOUNT_BASIS IN VARCHAR2
179 ,AWT_TYPE_CODE IN VARCHAR2
180 ,CREDIT_LETTER_FLAG IN VARCHAR2) RETURN VARCHAR2 IS
181 BEGIN
182 IF (P_DEBUG_SWITCH = 'Y') THEN
183 /*SRW.MESSAGE('220'
184 ,'Before trigger CF_1Formula return')*/NULL;
185 END IF;
186 IF JURISDICTION_TYPE = 'PROVINCIAL' THEN
187 RETURN ('Turnover');
188 ELSIF JURISDICTION_TYPE = 'FEDERAL' THEN
189 IF TAXABLE_BASE_AMOUNT_BASIS = 'INVOICE' THEN
190 RETURN ('VAT');
191 ELSIF TAXABLE_BASE_AMOUNT_BASIS = 'PAYMENT' THEN
192 RETURN ('Income');
193 ELSE
194 /*SRW.MESSAGE(100
195 ,'Error in ' || AWT_TYPE_CODE || ' Setup')*/NULL;
196 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
197 END IF;
198 ELSIF JURISDICTION_TYPE = 'ZONAL' THEN
199 IF CREDIT_LETTER_FLAG = 'Y' THEN
200 RETURN ('RS');
201 ELSIF CREDIT_LETTER_FLAG = 'N' THEN
202 RETURN ('SUSS');
203 ELSE
204 /*SRW.MESSAGE(101
205 ,'Error in ' || AWT_TYPE_CODE || ' Setup')*/NULL;
206 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
207 END IF;
208 ELSE
209 /*SRW.MESSAGE(102
210 ,'Error in ' || AWT_TYPE_CODE || ' Setup')*/NULL;
211 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
212 END IF;
213 IF (P_DEBUG_SWITCH = 'Y') THEN
214 /*SRW.MESSAGE('220'
215 ,'After trigger CF_1Formula return')*/NULL;
216 END IF;
217 RETURN NULL;
218 END CF_1FORMULA;
219
220 FUNCTION CF_PAYMENT_AMOUNTFORMULA(CHECK_NUMBER IN NUMBER) RETURN NUMBER IS
221 V_AMOUNT NUMBER;
222 USER_EXCEPTION EXCEPTION;
223 CURSOR PAYMENT_AMOUNT IS
224 SELECT
225 PMT.PAYMENT_AMOUNT
226 FROM
227 IBY_FD_PAYMENTS_V PMT
228 WHERE PMT.PAPER_DOCUMENT_NUMBER = CF_PAYMENT_AMOUNTFORMULA.CHECK_NUMBER;
229 BEGIN
230 IF (P_DEBUG_SWITCH = 'Y') THEN
231 /*SRW.MESSAGE('201'
232 ,'Before trigger CF_Payment_amountFormula')*/NULL;
233 END IF;
234 OPEN PAYMENT_AMOUNT;
235 FETCH PAYMENT_AMOUNT
236 INTO V_AMOUNT;
237 IF (PAYMENT_AMOUNT%NOTFOUND) THEN
238 CLOSE PAYMENT_AMOUNT;
239 /*SRW.MESSAGE('110'
240 ,'CURSOR payment_amount return NO DATA FOUND')*/NULL;
241 /*SRW.MESSAGE('110'
242 ,'Checkrun_name: ' || P_CHECKRUN_NAME)*/NULL;
243 /*SRW.MESSAGE('110'
244 ,'Check_number: ' || TO_CHAR(CHECK_NUMBER))*/NULL;
245 RAISE USER_EXCEPTION;
246 END IF;
247 CLOSE PAYMENT_AMOUNT;
248 IF (P_DEBUG_SWITCH = 'Y') THEN
249 /*SRW.MESSAGE('201'
250 ,'After trigger CF_Payment_amountFormula')*/NULL;
251 END IF;
252 RETURN (V_AMOUNT);
253 RETURN NULL;
254 EXCEPTION
255 WHEN USER_EXCEPTION THEN
256 RETURN NULL;
257 END CF_PAYMENT_AMOUNTFORMULA;
258
259 FUNCTION UPDATE_CERTIFICATE_STATUS(V_AWT_TYPE_CODE IN VARCHAR2
260 ,V_CERTIFICATE_NUMBER IN NUMBER) RETURN BOOLEAN IS
261 PRAGMA AUTONOMOUS_TRANSACTION;
262 BEGIN
263 UPDATE
264 JL_AR_AP_AWT_CERTIF jaac
265 SET
266 STATUS = DECODE(STATUS
267 ,'NOT PRINTED'
268 ,'PRINTED'
269 ,DECODE(STATUS
270 ,'PRINTED '
271 ,'REPRINTED '
272 ,'REPRINTED'))
273 WHERE AWT_TYPE_CODE = NVL(V_AWT_TYPE_CODE
274 ,AWT_TYPE_CODE)
275 AND CERTIFICATE_NUMBER = NVL(V_CERTIFICATE_NUMBER
276 ,CERTIFICATE_NUMBER);
277 COMMIT;
278 RETURN (TRUE);
279 RETURN NULL;
280 EXCEPTION
281 WHEN OTHERS THEN
282 /*SRW.MESSAGE(120
283 ,'ERROR in function UPDATE_CERTIFICATE_STATUS')*/NULL;
284 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,sqlcode || ' ' ||sqlerrm);
285 RETURN (TRUE);
286 END UPDATE_CERTIFICATE_STATUS;
287
288 FUNCTION CF_COMP_NUM_AGENT_RETENCION7FO(CF_CERTIFICATE_TYPE IN VARCHAR2
289 ,COMP_PRIMARY_ID_NUMBER IN VARCHAR2
290 ,COMP_TAX_AUTHORITY_ID IN NUMBER
291 ,COMP_TAX_AUTHORITY_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
292 L_PROVINCE_NAME VARCHAR2(50);
293 L_COMPANY_NUM_AGENT_RET VARCHAR2(50);
294 L_SUPPLIER_PROVINCE_NUMBER VARCHAR2(50);
295 BEGIN
296 IF CF_CERTIFICATE_TYPE = 'Turnover' THEN
297 SELECT
298 JGEA_C.ID_NUMBER
299 INTO L_COMPANY_NUM_AGENT_RET
300 FROM
301 JG_ZZ_ENTITY_ASSOC JGEA_C
302 WHERE JGEA_C.PRIMARY_ID_NUMBER = COMP_PRIMARY_ID_NUMBER
303 AND JGEA_C.ASSOCIATED_ENTITY_ID = COMP_TAX_AUTHORITY_ID
304 AND JGEA_C.ID_TYPE = COMP_TAX_AUTHORITY_TYPE;
305 RETURN (L_COMPANY_NUM_AGENT_RET);
306 ELSE
307 RETURN ('');
308 END IF;
309 RETURN NULL;
310 EXCEPTION
311 WHEN OTHERS THEN
312 /*SRW.MESSAGE('7'
313 ,'The program can not obtain the Company Withholding Agent ID')*/NULL;
314 /*SRW.MESSAGE('7'
315 ,'primary_id_number: ' || COMP_PRIMARY_ID_NUMBER)*/NULL;
316 /*SRW.MESSAGE('7'
317 ,'associated_entity_id: ' || TO_CHAR(COMP_TAX_AUTHORITY_ID))*/NULL;
318 /*SRW.MESSAGE('7'
319 ,'jgea_c.id_type: ' || COMP_TAX_AUTHORITY_TYPE)*/NULL;
320 RETURN NULL;
321 END CF_COMP_NUM_AGENT_RETENCION7FO;
322
323 FUNCTION CF_SUPP_PROVINCE_NUMBERFORMULA(CF_CERTIFICATE_TYPE IN VARCHAR2
324 ,SUPP_PRIMARY_ID_NUMBER IN VARCHAR2
325 ,SUPP_TAX_AUTHORITY_ID IN NUMBER
326 ,SUPP_TAX_AUTHORITY_TYPE IN VARCHAR2
327 ,WITHHOLDING_DATE IN DATE) RETURN VARCHAR2 IS
328 L_SUPPLIER_PROVINCE_NUMBER VARCHAR2(50);
329 BEGIN
330 IF CF_CERTIFICATE_TYPE = 'Turnover' THEN
331 SELECT
332 JGEA_S.ID_NUMBER SUPPLIER_PROVINCE_NUMBER
333 INTO L_SUPPLIER_PROVINCE_NUMBER
334 FROM
335 JG_ZZ_ENTITY_ASSOC JGEA_S
336 WHERE JGEA_S.PRIMARY_ID_NUMBER = SUPP_PRIMARY_ID_NUMBER
337 AND JGEA_S.ASSOCIATED_ENTITY_ID = SUPP_TAX_AUTHORITY_ID
338 AND JGEA_S.ID_TYPE = SUPP_TAX_AUTHORITY_TYPE
339 AND WITHHOLDING_DATE between JGEA_S.EFFECTIVE_DATE
340 AND NVL(JGEA_S.INEFFECTIVE_DATE
341 ,SYSDATE);
342 RETURN (L_SUPPLIER_PROVINCE_NUMBER);
343 ELSE
344 RETURN ('');
345 END IF;
346 RETURN NULL;
347 EXCEPTION
348 WHEN OTHERS THEN
349 /*SRW.MESSAGE('7'
350 ,'The program can not obtain the Supplier Province Number')*/NULL;
351 /*SRW.MESSAGE('7'
352 ,'primary_id_number: ' || SUPP_PRIMARY_ID_NUMBER)*/NULL;
353 /*SRW.MESSAGE('7'
354 ,'associated_entity_id: ' || TO_CHAR(SUPP_TAX_AUTHORITY_ID))*/NULL;
355 /*SRW.MESSAGE('7'
356 ,'jgea_c.id_type: ' || SUPP_TAX_AUTHORITY_TYPE)*/NULL;
357 RETURN NULL;
358 END CF_SUPP_PROVINCE_NUMBERFORMULA;
359
360 FUNCTION PROVINCE_NAMEFORMULA(CF_CERTIFICATE_TYPE IN VARCHAR2
361 ,PROVINCE_CODE IN VARCHAR2) RETURN VARCHAR2 IS
362 L_PROVINCE_NAME VARCHAR2(50);
363 BEGIN
364 IF PROVINCE_NAMEFORMULA.CF_CERTIFICATE_TYPE = 'Turnonver' THEN
365 SELECT
366 JAAP.PROVINCE_NAME || ' Turnover Withholding' PROVINCE_NAME1
367 INTO L_PROVINCE_NAME
368 FROM
369 JL_AR_AP_PROVINCES JAAP
370 WHERE JAAP.PROVINCE_CODE = PROVINCE_NAMEFORMULA.PROVINCE_CODE;
371 RETURN (L_PROVINCE_NAME);
372 ELSE
373 RETURN ('');
374 END IF;
375 RETURN NULL;
376 EXCEPTION
377 WHEN OTHERS THEN
378 /*SRW.MESSAGE('7'
379 ,'The program can not obtain the Province Name')*/NULL;
380 /*SRW.MESSAGE('7'
381 ,'Province Code: ' || PROVINCE_CODE)*/NULL;
382 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
383 END PROVINCE_NAMEFORMULA;
384
385 FUNCTION P_SUPPLIER_IDVALIDTRIGGER RETURN BOOLEAN IS
386 BEGIN
387 RETURN (ACCEPT_PARAMETER('P_Supplier_Id'));
388 RETURN (TRUE);
389 END P_SUPPLIER_IDVALIDTRIGGER;
390
391 FUNCTION ACCEPT_PARAMETER(PARAMETER_NAME IN VARCHAR2) RETURN BOOLEAN IS
392 BEGIN
393 IF (PARAMETER_NAME = 'P_Supplier_Id') THEN
394 IF (P_SUPPLIER_ID IS NOT NULL) THEN
395 P_SUPPLIER_FROM := NULL;
396 P_SUPPLIER_TO := NULL;
397 P_SUPP_NUM_FROM := NULL;
398 P_SUPP_NUM_TO := NULL;
399 END IF;
400 END IF;
401 RETURN (TRUE);
402 END ACCEPT_PARAMETER;
403
404 FUNCTION FSELECTEDSUPPLIERS RETURN VARCHAR2 IS
405 NL CONSTANT VARCHAR2(1) DEFAULT ' ';
406 RET_TEXT VARCHAR2(2000):=' ';
407 BEGIN
408 IF (P_AWT_TYPE_CODE IS NULL AND P_CERTIFICATE_NUMBER IS NULL AND P_CHECKRUN_NAME IS NULL AND
409 P_DATE_FROM IS NULL AND P_DATE_TO IS NULL AND P_SUPPLIER_ID IS NULL AND P_SUPPLIER_FROM IS NULL AND P_SUPPLIER_TO IS NULL AND
410 P_SUPP_NUM_FROM IS NULL AND P_SUPP_NUM_TO IS NULL) THEN
411 P_OK_PARAMETER_FLAG := 'N';
412 /*SRW.MESSAGE('100'
413 ,P_PARAMETER_MSG)*/NULL;
414 ELSE
415 P_OK_PARAMETER_FLAG := 'Y';
416 END IF;
417 IF (P_SUPPLIER_ID IS NOT NULL) THEN
418 RET_TEXT := 'and pv1.vendor_id = :P_Supplier_Id';
419 ELSE
420 IF ((P_SUPPLIER_FROM IS NOT NULL) OR (P_SUPPLIER_TO IS NOT NULL)) THEN
421 RET_TEXT := 'and pv1.vendor_name between nvl(:P_Supplier_From' || NL || ' ,
422 pv1.vendor_name)' || NL || ' and nvl(:P_Supplier_To' || NL || ' ,
423 pv1.vendor_name)';
424 ELSE
425 IF ((P_SUPP_NUM_FROM IS NOT NULL) OR (P_SUPP_NUM_TO IS NOT NULL)) THEN
426 DECLARE
427 SUP_NUM VARCHAR2(2000) := 'pv1.segment1';
428 NUM_FROM VARCHAR2(2000) := 'nvl(:P_Supp_Num_From, pv1.segment1)';
429 NUM_TO VARCHAR2(2000) := 'nvl(:P_Supp_Num_To, pv1.segment1)';
430 BEGIN
431 RET_TEXT := 'and ' || SUP_NUM || ' between ' || NUM_FROM || ' and ' || NUM_TO;
432 END;
433 END IF;
434 END IF;
435 END IF;
436 RETURN (RET_TEXT);
437 END FSELECTEDSUPPLIERS;
438
439 FUNCTION AFTERPFORM RETURN BOOLEAN IS
440 BEGIN
441 P_SELECTED_SUPPLIERS := FSELECTEDSUPPLIERS;
442 IF (P_DEBUG_SWITCH = 'Y') THEN
443 /*SRW.MESSAGE('1'
444 ,'Making Condition Where in After Form Trigger:' || P_SELECTED_SUPPLIERS)*/NULL;
445 END IF;
446 IF P_REPORTING_LEVEL = '2000' THEN
447 LP_JL_AR_AP_AWT_CERTIF_ALL_WH := ' AND jaac.legal_entity_id = ' || P_REPORTING_CONTEXT;
448 ELSE
449 FND_MO_REPORTING_API.INITIALIZE(P_REPORTING_LEVEL
450 ,P_REPORTING_CONTEXT
451 ,'AUTO');
452 LP_JL_AR_AP_AWT_CERTIF_ALL_WH := FND_MO_REPORTING_API.GET_PREDICATE('jaac'
453 ,NULL
454 ,P_REPORTING_CONTEXT);
455 END IF;
456 /*SRW.MESSAGE('1'
457 ,'Condition Where in After Form Trigger:' || LP_JL_AR_AP_AWT_CERTIF_ALL_WH)*/NULL;
458 RETURN (TRUE);
459 END AFTERPFORM;
460
461 FUNCTION CF_1FORMULA0039(AWT_TYPE_CODE IN VARCHAR2
462 ,CERTIFICATE_NUMBER_NUM IN NUMBER) RETURN VARCHAR2 IS
463 BEGIN
464 IF (P_DEBUG_SWITCH = 'Y') THEN
465 /*SRW.MESSAGE('1'
466 ,'Before UPDATE_CERTIFICATE_STATUS')*/NULL;
467 END IF;
468 IF (UPDATE_CERTIFICATE_STATUS(AWT_TYPE_CODE
469 ,CERTIFICATE_NUMBER_NUM) <> TRUE) THEN
470 /*SRW.MESSAGE('1'
471 ,'Error Updating Certificate Status')*/NULL;
472 /*RAISE SRW.PROGRAM_ABORT */RAISE_APPLICATION_ERROR(-20101,SQLCODE ||' '|| SQLERRM);
473 END IF;
474 IF (P_DEBUG_SWITCH = 'Y') THEN
475 /*SRW.MESSAGE('1'
476 ,'After UPDATE_CERTIFICATE_STATUS')*/NULL;
477 END IF;
478 RETURN ('');
479 RETURN NULL;
480 EXCEPTION
481 WHEN OTHERS THEN
482 /*SRW.MESSAGE('200'
483 ,'Error in CF_UPDATE_CERTIFICATES')*/NULL;
484 /*SRW.MESSAGE('200'
485 ,SUBSTR(SQLERRM
486 ,1
487 ,100))*/NULL;
488 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,SQLCODE ||' '|| SQLERRM);
489 END CF_1FORMULA0039;
490
491 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
492 BEGIN
493 RETURN C_BASE_CURRENCY_CODE;
494 END C_BASE_CURRENCY_CODE_P;
495
496 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
497 BEGIN
498 RETURN C_BASE_PRECISION;
499 END C_BASE_PRECISION_P;
500
501 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
502 BEGIN
503 RETURN C_BASE_MIN_ACCT_UNIT;
504 END C_BASE_MIN_ACCT_UNIT_P;
505
506 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
507 BEGIN
508 RETURN C_BASE_DESCRIPTION;
509 END C_BASE_DESCRIPTION_P;
510
511 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
512 BEGIN
513 RETURN C_COMPANY_NAME_HEADER;
514 END C_COMPANY_NAME_HEADER_P;
515
516 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
517 BEGIN
518 RETURN C_REPORT_START_DATE;
519 END C_REPORT_START_DATE_P;
520
521 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
522 BEGIN
523 RETURN C_NLS_YES;
524 END C_NLS_YES_P;
525
526 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
527 BEGIN
528 RETURN C_NLS_NO;
529 END C_NLS_NO_P;
530
531 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
532 BEGIN
533 RETURN C_NLS_ALL;
534 END C_NLS_ALL_P;
535
536 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
537 BEGIN
538 RETURN C_NLS_NO_DATA_EXISTS;
539 END C_NLS_NO_DATA_EXISTS_P;
540
541 FUNCTION C_REPORT_RUN_TIME_P RETURN VARCHAR2 IS
542 BEGIN
543 RETURN C_REPORT_RUN_TIME;
544 END C_REPORT_RUN_TIME_P;
545
546 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
547 BEGIN
548 RETURN C_CHART_OF_ACCOUNTS_ID;
549 END C_CHART_OF_ACCOUNTS_ID_P;
550
551 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
552 BEGIN
553 RETURN C_NLS_END_OF_REPORT;
554 END C_NLS_END_OF_REPORT_P;
555
556 FUNCTION C_PROFILE_COUNTRY_CODE_P RETURN VARCHAR2 IS
557 BEGIN
558 RETURN C_PROFILE_COUNTRY_CODE;
559 END C_PROFILE_COUNTRY_CODE_P;
560
561 END JL_JLARPCWT_XMLP_PKG;
562
563
564