1 PACKAGE BODY AP_APXIIMPT_XMLP_PKG AS
2 /* $Header: APXIIMPTB.pls 120.1 2008/01/06 11:51:59 vjaganat 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 DEBUG_INFO VARCHAR2(500);
9 BEGIN
10 BASE_CURR := '';
11 PREC := 0;
12 MIN_AU := 0;
13 DESCR := '';
14 DEBUG_INFO := '(Get Base Curr data 1) Get the Base Currency Information';
15 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
16 /*SRW.MESSAGE('1'
17 ,DEBUG_INFO)*/NULL;
18 END IF;
19 RETURN (TRUE);
20 RETURN NULL;
21 EXCEPTION
22 WHEN OTHERS THEN
23 /*SRW.MESSAGE('999'
24 ,DEBUG_INFO)*/NULL;
25 RETURN (FALSE);
26 END GET_BASE_CURR_DATA;
27
28 FUNCTION CUSTOM_INIT RETURN BOOLEAN IS
29 DEBUG_INFO VARCHAR2(500);
30 BEGIN
31 DEBUG_INFO := '(Custom Init 1) Custom Init';
32 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
33 /*SRW.MESSAGE('1'
34 ,DEBUG_INFO)*/NULL;
35 END IF;
36 RETURN (TRUE);
37 RETURN NULL;
38 EXCEPTION
39 WHEN OTHERS THEN
40 /*SRW.MESSAGE('999'
41 ,DEBUG_INFO)*/NULL;
42 IF (SQLCODE < 0) THEN
43 /*SRW.MESSAGE('999'
44 ,SQLERRM)*/NULL;
45 END IF;
46 RETURN (FALSE);
47 END CUSTOM_INIT;
48
49 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
50 BEGIN
51 RETURN (TRUE);
52 RETURN NULL;
53 EXCEPTION
54 WHEN OTHERS THEN
55 RETURN (FALSE);
56 END GET_COVER_PAGE_VALUES;
57
58 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
59 NLS_VOID AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
60 NLS_NA AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
61 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
62 NLS_YES FND_LOOKUPS.MEANING%TYPE;
63 NLS_NO FND_LOOKUPS.MEANING%TYPE;
64 BEGIN
65 SELECT
66 LY.MEANING,
67 LN.MEANING,
68 L1.DISPLAYED_FIELD,
69 L2.DISPLAYED_FIELD,
70 L3.DISPLAYED_FIELD
71 INTO NLS_YES,NLS_NO,NLS_ALL,NLS_VOID,NLS_NA
72 FROM
73 FND_LOOKUPS LY,
74 FND_LOOKUPS LN,
75 AP_LOOKUP_CODES L1,
76 AP_LOOKUP_CODES L2,
77 AP_LOOKUP_CODES L3
78 WHERE LY.LOOKUP_TYPE = 'YES_NO'
79 AND LY.LOOKUP_CODE = 'Y'
80 AND LN.LOOKUP_TYPE = 'YES_NO'
81 AND LN.LOOKUP_CODE = 'N'
82 AND L1.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
83 AND L1.LOOKUP_CODE = 'ALL'
84 AND L2.LOOKUP_TYPE = 'NLS TRANSLATION'
85 AND L2.LOOKUP_CODE = 'VOID'
86 AND L3.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
87 AND L3.LOOKUP_CODE = 'NA';
88 C_NLS_YES := NLS_YES;
89 C_NLS_NO := NLS_NO;
90 C_NLS_ALL := NLS_ALL;
91 C_NLS_VOID := NLS_VOID;
92 C_NLS_NA := NLS_NA;
93 FND_MESSAGE.SET_NAME('SQLAP'
94 ,'AP_APPRVL_NO_DATA');
95 FND_MESSAGE.SET_NAME('SQLAP'
96 ,'AP_ALL_END_OF_REPORT');
97 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
98 C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';
99 RETURN (TRUE);
100 RETURN NULL;
101 EXCEPTION
102 WHEN OTHERS THEN
103 RETURN (FALSE);
104 END GET_NLS_STRINGS;
105
106 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
107 BEGIN
108 DECLARE
109 INIT_FAILURE EXCEPTION;
110 L_BATCH_ERROR_FLAG VARCHAR2(1) := 'N';
111 L_INVOICES_FETCHED NUMBER := 0;
112 L_INVOICES_CREATED NUMBER := 0;
113 L_TOTAL_INVOICE_AMOUNT NUMBER := 0;
114 CURRENT_CALLING_SEQUENCE VARCHAR2(2000);
115 DEBUG_INFO VARCHAR2(500);
116 BEGIN
117 CURRENT_CALLING_SEQUENCE := 'Before Report Trigger<-Build Program';
118 C_REPORT_START_DATE := SYSDATE;
119 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
120 --added as fix
121 select SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
122 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2)),
123 SUBSTR(argument3,INSTR(argument3,'=',1)+1,LENGTH(argument3)),
124 SUBSTR(argument4,INSTR(argument4,'=',1)+1,LENGTH(argument4)),
125 SUBSTR(argument5,INSTR(argument5,'=',1)+1,LENGTH(argument5)),
126 SUBSTR(argument6,INSTR(argument6,'=',1)+1,LENGTH(argument6)),
127 to_date(SUBSTR(argument7,INSTR(argument7,'=',1)+1,LENGTH(argument7)),'YYYY/MM/DD HH24:MI:SS'),
128 SUBSTR(argument8,INSTR(argument8,'=',1)+1,LENGTH(argument8)),
129 SUBSTR(argument9,INSTR(argument9,'=',1)+1,LENGTH(argument9)),
130 SUBSTR(argument10,INSTR(argument10,'=',1)+1,LENGTH(argument10)),
131 SUBSTR(argument11,INSTR(argument11,'=',1)+1,LENGTH(argument11))
132 into
133 p_org_id_t,p_source_t,p_group_id_t,p_batch_name_t,p_hold_code_t,p_hold_reason_t,p_gl_date_t,
134 p_purge_flag_t,p_trace_switch_t,p_debug_switch_t,p_summary_flag_t
135 from FND_CONCURRENT_REQUESTS
136 where request_id=P_CONC_REQUEST_ID;
137 --fix ends
138
139 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
140 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
141 /*SRW.MESSAGE('1'
142 ,'(Before Report) After SRWINIT')*/NULL;
143 END IF;
144 MO_GLOBAL.INIT('SQLAP');
145 IF (GET_COMPANY_NAME <> TRUE) THEN
146 RAISE INIT_FAILURE;
147
148 END IF;
149 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
150 /*SRW.MESSAGE('2'
151 ,'(Before Report) After Get_Company_Name')*/NULL;
152 END IF;
153 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
154 /*SRW.MESSAGE('3'
155 ,'(Before Report) After Get_NLS_Strings')*/NULL;
156 END IF;
157 IF (GET_BASE_CURR_DATA <> TRUE) THEN
158 RAISE INIT_FAILURE;
159
160 END IF;
161 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
162 /*SRW.MESSAGE('4'
163 ,'(Before Report) After Get_Base_Curr_Data')*/NULL;
164 END IF;
165 IF (GET_OPERATING_UNIT <> TRUE) THEN
166 RAISE INIT_FAILURE;
167
168 END IF;
169 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
170 /*SRW.MESSAGE('1.1'
171 ,'After Get Operating Unit')*/NULL;
172 END IF;
173 IF (GET_PURGE_FLAG <> TRUE) THEN
174 RAISE INIT_FAILURE;
175
176 END IF;
177 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
178 /*SRW.MESSAGE('1.2'
179 ,'After Get Purge Flag')*/NULL;
180 END IF;
181 DEBUG_INFO := '(Before Report Trigger 1) Import Invoices.';
182 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
183 /*SRW.MESSAGE('2'
184 ,DEBUG_INFO)*/NULL;
185 END IF;
186 IF (AP_IMPORT_INVOICES_PKG.IMPORT_INVOICES(p_batch_name_t
187 ,p_gl_date_t
188 ,p_hold_code_t
189 ,p_hold_reason_t
190 ,P_COMMIT_CYCLES
191 ,p_source_t
192 ,p_group_id_t
193 ,P_CONC_REQUEST_ID
194 ,P_DEBUG_SWITCH_T
195 ,p_org_id_t
196 ,L_BATCH_ERROR_FLAG
197 ,L_INVOICES_FETCHED
198 ,L_INVOICES_CREATED
199 ,L_TOTAL_INVOICE_AMOUNT
200 ,C_PRINT_BATCH
201 ,'Before Report Trigger') <> TRUE) THEN
202 RAISE INIT_FAILURE;
203
204 END IF;
205 IF (L_BATCH_ERROR_FLAG = 'Y') THEN
206 /*SRW.MESSAGE('0'
207 ,'------------------> l_batch_error_flag = ' || L_BATCH_ERROR_FLAG)*/NULL;
208 /*SRW.MESSAGE('999'
209 ,'(Before report Trigger :After Import Invoices) Fatal Error: No batch information and batch control is turned on!!!')*/NULL;
210 END IF;
211 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
212 /*SRW.MESSAGE('0'
213 ,'------------------> l_batch_error_flag = ' || L_BATCH_ERROR_FLAG)*/NULL;
214 END IF;
215 DEBUG_INFO := '(Before Report Trigger 4) Commit.';
216 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
217 /*SRW.MESSAGE('13'
218 ,DEBUG_INFO)*/NULL;
219 END IF;
220 COMMIT;
221 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
222 /*SRW.BREAK*/NULL;
223 END IF;
224 /*SRW.MESSAGE('0'
225 ,TO_CHAR(L_INVOICES_CREATED) || ' invoice(s) were created during the process run')*/NULL;
226 /*SRW.MESSAGE('0'
227 ,TO_CHAR(L_INVOICES_FETCHED) || ' invoice(s) were fetched during the process run')*/NULL;
228 /*SRW.MESSAGE('0'
229 ,' summarize flag' || p_summary_flag_t)*/NULL;
230 FND_MESSAGE.SET_NAME('SQLAP'
231 ,'AP_IG_INVOICES_FETCHED');
232
233 FND_MESSAGE.SET_NAME('SQLAP'
234 ,'AP_IG_INVOICES_CREATED');
235 C_INVOICES_FETCHED := TO_CHAR(L_INVOICES_FETCHED);
236 C_INVOICES_CREATED := TO_CHAR(L_INVOICES_CREATED);
237 C_TOTAL_INVOICES_CREATED := L_INVOICES_CREATED;
238 C_TOTAL_INVOICE_AMOUNT := NVL(L_TOTAL_INVOICE_AMOUNT
239 ,0);
240 C_TOTAL_INVOICES_REJECTED := L_INVOICES_FETCHED - L_INVOICES_CREATED;
241 RETURN (TRUE);
242 EXCEPTION
243 WHEN OTHERS THEN
244 DEBUG_INFO := '(Before Report Trigger 3) Exception: When Others.';
245 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
246 /*SRW.MESSAGE('3'
247 ,DEBUG_INFO)*/NULL;
248 END IF;
249 IF (SQLCODE < 0) THEN
250 /*SRW.MESSAGE('999'
251 ,SQLERRM)*/NULL;
252 END IF;
253 C_ERROR_FLAG := 'Y';
254 C_ERROR_MESSAGE := SQLERRM;
255 ROLLBACK;
256 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
257 END;
258 RETURN (TRUE);
259 END BEFOREREPORT;
260
261 FUNCTION AFTERREPORT RETURN BOOLEAN IS
262 BEGIN
263 DECLARE
264 INIT_FAILURE EXCEPTION;
265 DEBUG_INFO VARCHAR2(500);
266 CURRENT_CALLING_SEQUENCE VARCHAR2(2000);
267 BEGIN
268 /*SRW.MESSAGE('883'
269 ,'After Repport Trigger: Setting the Org Context to Multiple')*/NULL;
270 MO_GLOBAL.SET_POLICY_CONTEXT('M'
271 ,NULL);
272 CURRENT_CALLING_SEQUENCE := 'After Report Trigger <- Inovice Open Interface Import';
273 IF (C_ERROR_FLAG = 'Y') THEN
274 DEBUG_INFO := '(After report trigger 1) Rollback';
275 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
276 /*SRW.MESSAGE('1'
277 ,DEBUG_INFO)*/NULL;
278 END IF;
279 ROLLBACK;
280 END IF;
281 IF (p_source_t = 'XML GATEWAY') THEN
282 AP_XML_INVOICE_INBOUND_PKG.NOTIFY_SUPPLIER(P_CONC_REQUEST_ID
283 ,CURRENT_CALLING_SEQUENCE);
284 IF (AP_IMPORT_INVOICES_PKG.XML_IMPORT_PURGE(p_group_id_t
285 ,CURRENT_CALLING_SEQUENCE) <> TRUE) THEN
286 /*SRW.MESSAGE('2'
287 ,'XML_IMPORT_PURGE FAILED')*/NULL;
288 END IF;
289 END IF;
290 IF (NVL(p_purge_flag_t
291 ,'N') in ('Y','y')) THEN
292 DEBUG_INFO := '(After report trigger 2) Delete records in ap_invoices_interface';
293 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
294 /*SRW.MESSAGE('2'
295 ,DEBUG_INFO)*/NULL;
296 END IF;
297 IF (AP_IMPORT_INVOICES_PKG.IMPORT_PURGE(p_source_t
298 ,p_group_id_t
299 ,p_org_id_t
300 ,P_COMMIT_CYCLES
301 ,'Before Report Trigger') <> TRUE) THEN
302 RAISE INIT_FAILURE;
303 END IF;
304 END IF;
305 DEBUG_INFO := '(After report 3) Delete record in ap_interface_controls';
306 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
307 /*SRW.MESSAGE('3'
308 ,DEBUG_INFO)*/NULL;
309 END IF;
310 DELETE FROM AP_INTERFACE_CONTROLS
311 WHERE SOURCE = p_source_t
312 AND ( ( p_group_id_t IS NULL )
313 OR ( GROUP_ID = p_group_id_t ) )
314 AND REQUEST_ID = P_CONC_REQUEST_ID;
315 DEBUG_INFO := '(After Report Trigger 4) Commit.';
316 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
317 /*SRW.MESSAGE('4'
318 ,DEBUG_INFO)*/NULL;
319 END IF;
320 COMMIT;
321 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
322 IF (P_DEBUG_SWITCH_T = 'Y') THEN
323 /*SRW.MESSAGE('5'
324 ,'(After Report Trigger 5) After SRWEXIT')*/NULL;
325 END IF;
326 EXCEPTION
327 WHEN OTHERS THEN
328 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
329 END;
330 RETURN (TRUE);
331 END AFTERREPORT;
332
333 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
334 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
335 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
336 L_SOB_ID NUMBER;
337 DEBUG_INFO VARCHAR2(500);
338 BEGIN
339 RETURN (TRUE);
340 RETURN NULL;
341 EXCEPTION
342 WHEN OTHERS THEN
343 /*SRW.MESSAGE('999'
344 ,DEBUG_INFO)*/NULL;
345 RETURN (FALSE);
346 END GET_COMPANY_NAME;
347
348 FUNCTION GET_FLEXDATA RETURN BOOLEAN IS
349 BEGIN
350 RETURN NULL;
351 EXCEPTION
352 WHEN OTHERS THEN
353 RETURN (FALSE);
354 END GET_FLEXDATA;
355
356 FUNCTION GET_BATCH_ID(p_batch_name_t IN VARCHAR2
357 ,P_BATCH_ID OUT NOCOPY NUMBER
358 ,P_BATCH_TYPE OUT NOCOPY VARCHAR2
359 ,P_CALLING_SEQUENCE IN VARCHAR2) RETURN BOOLEAN IS
360 L_BATCH_ID NUMBER;
361 CURRENT_CALLING_SEQUENCE VARCHAR2(2000);
362 DEBUG_INFO VARCHAR2(500);
363 BEGIN
364 CURRENT_CALLING_SEQUENCE := 'get_batch_id<-' || P_CALLING_SEQUENCE;
365 DEBUG_INFO := 'Check batch_name existance';
366 BEGIN
367 DEBUG_INFO := '(Get_batch_id 1) Get old batch id';
368 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
369 /*SRW.MESSAGE('1'
370 ,DEBUG_INFO)*/NULL;
371 END IF;
372 SELECT
373 'OLD BATCH',
374 BATCH_ID
375 INTO P_BATCH_TYPE,L_BATCH_ID
376 FROM
377 AP_BATCHES
378 WHERE BATCH_NAME = p_batch_name_t;
379 EXCEPTION
380 WHEN NO_DATA_FOUND THEN
381 P_BATCH_TYPE := 'NEW BATCH';
382 END;
383 IF (P_BATCH_TYPE = 'NEW BATCH') THEN
384 DEBUG_INFO := '(Get_batch_id 2) Get New batch_id';
385 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
386 /*SRW.MESSAGE('1'
387 ,DEBUG_INFO)*/NULL;
388 END IF;
389 SELECT
390 AP_BATCHES_S.NEXTVAL
391 INTO L_BATCH_ID
392 FROM
393 SYS.DUAL;
394 END IF;
395 P_BATCH_ID := L_BATCH_ID;
396 RETURN (TRUE);
397 RETURN NULL;
398 EXCEPTION
399 WHEN OTHERS THEN
400 /*SRW.MESSAGE('999'
401 ,DEBUG_INFO)*/NULL;
402 IF (SQLCODE < 0) THEN
403 /*SRW.MESSAGE('999'
404 ,SQLERRM)*/NULL;
405 END IF;
406 RETURN (FALSE);
407 END GET_BATCH_ID;
408
409 FUNCTION GET_CURRENT_DIST_LINE_NUM(P_INVOICE_ID IN NUMBER
413 DEBUG_INFO VARCHAR2(500);
410 ,P_CURRENT_DIST_NUM OUT NOCOPY NUMBER
411 ,P_CALLING_SEQUENCE IN VARCHAR2) RETURN BOOLEAN IS
412 CURRENT_CALLING_SEQUENCE VARCHAR2(2000);
414 BEGIN
415 CURRENT_CALLING_SEQUENCE := 'get_current_dist_line_num<-' || P_CALLING_SEQUENCE;
416 DEBUG_INFO := '(Get Current Dist Line Num 1) Get the next available distribution line number';
417 IF (P_DEBUG_SWITCH_T in ('y','Y')) THEN
418 /*SRW.MESSAGE('1'
419 ,DEBUG_INFO)*/NULL;
420 END IF;
421 SELECT
422 NVL(MAX(DISTRIBUTION_LINE_NUMBER)
423 ,0)
424 INTO P_CURRENT_DIST_NUM
425 FROM
426 AP_INVOICE_DISTRIBUTIONS
427 WHERE INVOICE_ID = P_INVOICE_ID;
428 RETURN (TRUE);
429 RETURN NULL;
430 EXCEPTION
431 WHEN OTHERS THEN
432 /*SRW.MESSAGE('999'
433 ,DEBUG_INFO)*/NULL;
434 IF (SQLCODE < 0) THEN
435 /*SRW.MESSAGE('999'
436 ,SQLERRM)*/NULL;
437 END IF;
438 RETURN (FALSE);
439 END GET_CURRENT_DIST_LINE_NUM;
440
441 FUNCTION C_LINE_LEVELFORMULA(LINE_NUMBER IN NUMBER) RETURN VARCHAR2 IS
442 BEGIN
443 BEGIN
444 IF (LINE_NUMBER = 0) THEN
445 RETURN (' ');
446 ELSIF (LINE_NUMBER = 999) THEN
447 RETURN ('Line');
448 ELSE
449 RETURN (LINE_NUMBER);
450 END IF;
451 END;
452 RETURN NULL;
453 END C_LINE_LEVELFORMULA;
454
455 FUNCTION CF_SOURCE_NAMEFORMULA RETURN CHAR IS
456 L_SOURCES VARCHAR2(80);
457 BEGIN
458 BEGIN
459 SELECT
460 DISPLAYED_FIELD
461 INTO L_SOURCES
462 FROM
463 AP_LOOKUP_CODES
464 WHERE LOOKUP_TYPE = 'SOURCE'
465 AND LOOKUP_CODE = p_source_t;
466 RETURN L_SOURCES;
467 END;
468 RETURN NULL;
469 END CF_SOURCE_NAMEFORMULA;
470
471 FUNCTION GET_OPERATING_UNIT RETURN BOOLEAN IS
472 L_OPERATING_UNIT VARCHAR2(240);
473 BEGIN
474 IF p_org_id_t IS NOT NULL THEN
475 L_OPERATING_UNIT := SUBSTRB(MO_GLOBAL.GET_OU_NAME(p_org_id_t)
476 ,1
477 ,240);
478 CP_OPERATING_UNIT := L_OPERATING_UNIT;
479 ELSE
480 NULL;
481 END IF;
482 RETURN (TRUE);
483 RETURN (NULL);
484 EXCEPTION
485 WHEN OTHERS THEN
486 RETURN (FALSE);
487 END GET_OPERATING_UNIT;
488
489 FUNCTION GET_PURGE_FLAG RETURN BOOLEAN IS
490 L_PURGE_FLAG VARCHAR2(240);
491 BEGIN
492 IF p_purge_flag_t IS NOT NULL THEN
493 SELECT
494 MEANING
495 INTO L_PURGE_FLAG
496 FROM
497 FND_LOOKUPS
498 WHERE LOOKUP_CODE = p_purge_flag_t
499 AND LOOKUP_TYPE = 'YES_NO';
500 CP_PURGE_FLAG := L_PURGE_FLAG;
501 ELSE
502 NULL;
503 END IF;
504 RETURN (TRUE);
505 RETURN (NULL);
506 EXCEPTION
507 WHEN OTHERS THEN
508 RETURN (FALSE);
509 END GET_PURGE_FLAG;
510
511 FUNCTION CF_AUDIT_OUFORMULA(AUDIT_ORG_ID IN NUMBER) RETURN CHAR IS
512 BEGIN
513 DECLARE
514 L_OPERATING_UNIT VARCHAR2(240);
515 BEGIN
516 /*SRW.REFERENCE(AUDIT_ORG_ID)*/NULL;
517 L_OPERATING_UNIT := SUBSTRB(MO_GLOBAL.GET_OU_NAME(AUDIT_ORG_ID)
518 ,1
519 ,240);
520 RETURN (L_OPERATING_UNIT);
521 EXCEPTION
522 WHEN OTHERS THEN
523 RETURN NULL;
524 END;
525 RETURN NULL;
526 END CF_AUDIT_OUFORMULA;
527
528 FUNCTION CF_REJECT_OUFORMULA(REJECT_ORG_ID IN NUMBER) RETURN CHAR IS
529 BEGIN
530 DECLARE
531 L_OPERATING_UNIT VARCHAR2(240);
532 BEGIN
533 /*SRW.REFERENCE(REJECT_ORG_ID)*/NULL;
534 IF REJECT_ORG_ID IS NOT NULL THEN
535 L_OPERATING_UNIT := SUBSTRB(MO_GLOBAL.GET_OU_NAME(REJECT_ORG_ID)
536 ,1
537 ,240);
538 END IF;
539 RETURN (L_OPERATING_UNIT);
540 EXCEPTION
541 WHEN OTHERS THEN
542 RETURN NULL;
543 END;
544 RETURN NULL;
545 END CF_REJECT_OUFORMULA;
546
547 FUNCTION CF_INVOICE_AMOUNT2FORMULA(CF_INVOICE_AMOUNT2 IN NUMBER) RETURN NUMBER IS
548 BEGIN
549 RETURN (CF_INVOICE_AMOUNT2);
550 END CF_INVOICE_AMOUNT2FORMULA;
551
552 FUNCTION CF_INVOICE_AMOUNT3FORMULA(CF_INVOICE_AMOUNT3 IN NUMBER) RETURN NUMBER IS
553 BEGIN
554 RETURN (CF_INVOICE_AMOUNT3);
555 END CF_INVOICE_AMOUNT3FORMULA;
556
557 FUNCTION CF_IPV_ADJ_AMOUNTFORMULA(CF_IPV_ADJ_AMOUNT IN NUMBER) RETURN NUMBER IS
558 BEGIN
559 RETURN (CF_IPV_ADJ_AMOUNT);
560 END CF_IPV_ADJ_AMOUNTFORMULA;
561
562 FUNCTION CF_TIPV_ADJ_AMOUNTFORMULA(CF_TIPV_ADJ_AMOUNT IN NUMBER) RETURN NUMBER IS
563 BEGIN
564 RETURN (CF_TIPV_ADJ_AMOUNT);
565 END CF_TIPV_ADJ_AMOUNTFORMULA;
566
567 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
568 BEGIN
569 RETURN C_NLS_YES;
570 END C_NLS_YES_P;
571
572 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
573 BEGIN
574 RETURN C_NLS_NO;
575 END C_NLS_NO_P;
576
577 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
578 BEGIN
579 RETURN C_NLS_ALL;
580 END C_NLS_ALL_P;
581
582 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
583 BEGIN
584 RETURN C_NLS_NO_DATA_EXISTS;
585 END C_NLS_NO_DATA_EXISTS_P;
586
587 FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
588 BEGIN
589 RETURN C_NLS_VOID;
590 END C_NLS_VOID_P;
591
592 FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
593 BEGIN
594 RETURN C_NLS_NA;
595 END C_NLS_NA_P;
596
597 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
598 BEGIN
599 RETURN C_NLS_END_OF_REPORT;
600 END C_NLS_END_OF_REPORT_P;
601
602 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
603 BEGIN
604 RETURN C_REPORT_START_DATE;
605 END C_REPORT_START_DATE_P;
606
607 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
608 BEGIN
609 RETURN C_COMPANY_NAME_HEADER;
610 END C_COMPANY_NAME_HEADER_P;
611
612 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
613 BEGIN
614 RETURN C_BASE_CURRENCY_CODE;
615 END C_BASE_CURRENCY_CODE_P;
616
617 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
618 BEGIN
619 RETURN C_BASE_PRECISION;
620 END C_BASE_PRECISION_P;
621
622 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
623 BEGIN
624 RETURN C_BASE_MIN_ACCT_UNIT;
625 END C_BASE_MIN_ACCT_UNIT_P;
626
627 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
628 BEGIN
629 RETURN C_BASE_DESCRIPTION;
630 END C_BASE_DESCRIPTION_P;
631
632 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
633 BEGIN
634 RETURN C_CHART_OF_ACCOUNTS_ID;
635 END C_CHART_OF_ACCOUNTS_ID_P;
636
637 FUNCTION PAYABLES_OPEN_INTERFACE_IMPOR RETURN VARCHAR2 IS
638 BEGIN
639 RETURN PAYABLES_OPEN_INTERFACE_IMPORT;
640 END PAYABLES_OPEN_INTERFACE_IMPOR;
641
642 FUNCTION C_ERROR_FLAG_P RETURN VARCHAR2 IS
643 BEGIN
644 RETURN C_ERROR_FLAG;
645 END C_ERROR_FLAG_P;
646
647 FUNCTION C_ERROR_MESSAGE_P RETURN VARCHAR2 IS
648 BEGIN
649 RETURN C_ERROR_MESSAGE;
650 END C_ERROR_MESSAGE_P;
651
652 FUNCTION C_PRINT_BATCH_P RETURN VARCHAR2 IS
653 BEGIN
654 RETURN C_PRINT_BATCH;
655 END C_PRINT_BATCH_P;
656
657 FUNCTION C_INVOICES_FETCHED_P RETURN VARCHAR2 IS
658 BEGIN
659 RETURN C_INVOICES_FETCHED;
660 END C_INVOICES_FETCHED_P;
661
662 FUNCTION C_INVOICES_CREATED_P RETURN VARCHAR2 IS
663 BEGIN
664 RETURN C_INVOICES_CREATED;
665 END C_INVOICES_CREATED_P;
666
667 FUNCTION C_TOTAL_INVOICE_AMOUNT_P RETURN NUMBER IS
668 BEGIN
669 RETURN C_TOTAL_INVOICE_AMOUNT;
670 END C_TOTAL_INVOICE_AMOUNT_P;
671
672 FUNCTION C_TOTAL_INVOICES_CREATED_P RETURN VARCHAR2 IS
673 BEGIN
674 RETURN C_TOTAL_INVOICES_CREATED;
675 END C_TOTAL_INVOICES_CREATED_P;
676
677 FUNCTION C_TOTAL_INVOICES_REJECTED_P RETURN NUMBER IS
678 BEGIN
679 RETURN C_TOTAL_INVOICES_REJECTED;
680 END C_TOTAL_INVOICES_REJECTED_P;
681
682 FUNCTION C_MSG_TYPE_P RETURN VARCHAR2 IS
683 BEGIN
684 RETURN C_MSG_TYPE;
685 END C_MSG_TYPE_P;
686
687 FUNCTION C_MSG_TOKEN1_P RETURN VARCHAR2 IS
688 BEGIN
689 RETURN C_MSG_TOKEN1;
690 END C_MSG_TOKEN1_P;
691
692 FUNCTION C_MSG_TOKEN2_P RETURN VARCHAR2 IS
693 BEGIN
694 RETURN C_MSG_TOKEN2;
695 END C_MSG_TOKEN2_P;
696
697 FUNCTION C_MSG_TOKEN3_P RETURN VARCHAR2 IS
698 BEGIN
699 RETURN C_MSG_TOKEN3;
700 END C_MSG_TOKEN3_P;
701
702 FUNCTION C_MSG_COUNT_P RETURN NUMBER IS
703 BEGIN
704 RETURN C_MSG_COUNT;
705 END C_MSG_COUNT_P;
706
707 FUNCTION C_MSG_DATA_P RETURN VARCHAR2 IS
708 BEGIN
709 RETURN C_MSG_DATA;
710 END C_MSG_DATA_P;
711
712 FUNCTION C_PA_MESSAGE_P RETURN VARCHAR2 IS
713 BEGIN
714 RETURN C_PA_MESSAGE;
715 END C_PA_MESSAGE_P;
716
717 FUNCTION CP_OPERATING_UNIT_P RETURN VARCHAR2 IS
718 BEGIN
719 RETURN CP_OPERATING_UNIT;
720 END CP_OPERATING_UNIT_P;
721
722 FUNCTION CP_PURGE_FLAG_P RETURN VARCHAR2 IS
723 BEGIN
724 RETURN CP_PURGE_FLAG;
725 END CP_PURGE_FLAG_P;
726
727 FUNCTION FCREATE_RETROPRICE_ADJUSTMENTS RETURN NUMBER IS
728 BEGIN
729 RETURN CREATE_RETROPRICE_ADJUSTMENTS;
730 END FCREATE_RETROPRICE_ADJUSTMENTS;
731
732 FUNCTION IMPORT_INVOICES_P RETURN NUMBER IS
733 BEGIN
734 RETURN IMPORT_INVOICES;
735 END IMPORT_INVOICES_P;
736
737 END AP_APXIIMPT_XMLP_PKG;
738