6:
7: PROCEDURE put_starttag(tag_name IN VARCHAR2) IS
8: BEGIN
9:
10: fnd_file.put_line(fnd_file.output, '<'||tag_name||'>');
11: --fnd_file.new_line(fnd_file.output,1);
12:
13: EXCEPTION
14:
7: PROCEDURE put_starttag(tag_name IN VARCHAR2) IS
8: BEGIN
9:
10: fnd_file.put_line(fnd_file.output, '<'||tag_name||'>');
11: --fnd_file.new_line(fnd_file.output,1);
12:
13: EXCEPTION
14:
15: WHEN OTHERS then
19:
20: PROCEDURE put_endtag(tag_name IN VARCHAR2) IS
21: BEGIN
22:
23: fnd_file.put_line(fnd_file.output, '');
24: --fnd_file.new_line(fnd_file.output,1);
25:
26: EXCEPTION
27:
20: PROCEDURE put_endtag(tag_name IN VARCHAR2) IS
21: BEGIN
22:
23: fnd_file.put_line(fnd_file.output, '');
24: --fnd_file.new_line(fnd_file.output,1);
25:
26: EXCEPTION
27:
28: WHEN OTHERS then
33: PROCEDURE put_element(tag_name IN VARCHAR2,
34: value IN VARCHAR2) IS
35: BEGIN
36:
37: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
38: fnd_file.put(fnd_file.output, '
39: fnd_file.put(fnd_file.output, value);
40: fnd_file.put(fnd_file.output, ']]>');
41: fnd_file.put_line(fnd_file.output, '');
34: value IN VARCHAR2) IS
35: BEGIN
36:
37: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
38: fnd_file.put(fnd_file.output, '
39: fnd_file.put(fnd_file.output, value);
40: fnd_file.put(fnd_file.output, ']]>');
41: fnd_file.put_line(fnd_file.output, '');
42:
35: BEGIN
36:
37: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
38: fnd_file.put(fnd_file.output, '
39: fnd_file.put(fnd_file.output, value);
40: fnd_file.put(fnd_file.output, ']]>');
41: fnd_file.put_line(fnd_file.output, '');
42:
43: EXCEPTION
36:
37: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
38: fnd_file.put(fnd_file.output, '
39: fnd_file.put(fnd_file.output, value);
40: fnd_file.put(fnd_file.output, ']]>');
41: fnd_file.put_line(fnd_file.output, '');
42:
43: EXCEPTION
44:
37: fnd_file.put(fnd_file.output, '<'||tag_name||'>');
38: fnd_file.put(fnd_file.output, '
39: fnd_file.put(fnd_file.output, value);
40: fnd_file.put(fnd_file.output, ']]>');
41: fnd_file.put_line(fnd_file.output, '');
42:
43: EXCEPTION
44:
45: WHEN OTHERS then
536:
537: PROCEDURE arch_ce_statements
538: IS
539: BEGIN
540: fnd_file.put_line(fnd_file.log, 'CE_PURGE.G_BANK_ACCOUNT_ID: '||CE_PURGE.G_BANK_ACCOUNT_ID);
541: fnd_file.put_line(fnd_file.log, 'CE_PURGE.G_BANK_BRANCH_ID: '||CE_PURGE.G_BANK_BRANCH_ID);
542:
543:
544: IF (CE_PURGE.G_BANK_ACCOUNT_ID IS NOT NULL) THEN
537: PROCEDURE arch_ce_statements
538: IS
539: BEGIN
540: fnd_file.put_line(fnd_file.log, 'CE_PURGE.G_BANK_ACCOUNT_ID: '||CE_PURGE.G_BANK_ACCOUNT_ID);
541: fnd_file.put_line(fnd_file.log, 'CE_PURGE.G_BANK_BRANCH_ID: '||CE_PURGE.G_BANK_BRANCH_ID);
542:
543:
544: IF (CE_PURGE.G_BANK_ACCOUNT_ID IS NOT NULL) THEN
545: fnd_file.put_line(fnd_file.log, 'IF (CE_PURGE.G_BANK_ACCOUNT_ID IS NOT NULL ');
541: fnd_file.put_line(fnd_file.log, 'CE_PURGE.G_BANK_BRANCH_ID: '||CE_PURGE.G_BANK_BRANCH_ID);
542:
543:
544: IF (CE_PURGE.G_BANK_ACCOUNT_ID IS NOT NULL) THEN
545: fnd_file.put_line(fnd_file.log, 'IF (CE_PURGE.G_BANK_ACCOUNT_ID IS NOT NULL ');
546:
547:
548: -- bug 3676745 in order to archive/purge stmts, the user
549: -- must have access to all the reconciled trx's
674: G_Archive_Stat_Headers := SQL%ROWCOUNT;
675:
676: ELSIF (CE_PURGE.G_BANK_BRANCH_ID IS NOT NULL) THEN
677:
678: fnd_file.put_line(fnd_file.log, 'IF (CE_PURGE.G_BANK_BRANCH_ID IS NOT NULL ');
679:
680: INSERT INTO ce_arch_headers (
681: STATEMENT_COMPLETE_FLAG,
682: --ORG_ID,