DBA Data[Home] [Help]

APPS.AP_CREDIT_CARD_TRXN_LOADER_PKG dependencies on UTL_FILE

Line 40: l_indatafileptr utl_file.file_type;

36: p_cardbrand in varchar2) IS
37:
38: l_indatapathname varchar2(240);
39: l_indatafilename varchar2(240);
40: l_indatafileptr utl_file.file_type;
41: l_outdatapathname varchar2(240);
42: l_outdatafilename varchar2(240);
43: l_outdatafileptr utl_file.file_type;
44: l_ntdir number;

Line 43: l_outdatafileptr utl_file.file_type;

39: l_indatafilename varchar2(240);
40: l_indatafileptr utl_file.file_type;
41: l_outdatapathname varchar2(240);
42: l_outdatafilename varchar2(240);
43: l_outdatafileptr utl_file.file_type;
44: l_ntdir number;
45: l_unixdir number;
46: l_line varchar2(1000);
47: l_numrecs number;

Line 97: l_indatafileptr := utl_file.fopen(l_indatapathname, l_indatafilename, 'r');

93: --
94: -- Open the in/outdatafiles for read/write
95: --
96: fnd_file.put_line(fnd_file.log, 'Opening p_indatafilename '|| p_indatafilename);
97: l_indatafileptr := utl_file.fopen(l_indatapathname, l_indatafilename, 'r');
98: fnd_file.put_line(fnd_file.log, 'Opening p_outdatafilename '|| p_outdatafilename);
99: l_outdatafileptr := utl_file.fopen(l_outdatapathname, l_outdatafilename, 'w');
100:
101: fnd_file.put_line(fnd_file.log, 'p_cardbrand '|| p_cardbrand);

Line 99: l_outdatafileptr := utl_file.fopen(l_outdatapathname, l_outdatafilename, 'w');

95: --
96: fnd_file.put_line(fnd_file.log, 'Opening p_indatafilename '|| p_indatafilename);
97: l_indatafileptr := utl_file.fopen(l_indatapathname, l_indatafilename, 'r');
98: fnd_file.put_line(fnd_file.log, 'Opening p_outdatafilename '|| p_outdatafilename);
99: l_outdatafileptr := utl_file.fopen(l_outdatapathname, l_outdatafilename, 'w');
100:
101: fnd_file.put_line(fnd_file.log, 'p_cardbrand '|| p_cardbrand);
102: l_numrecs := 0;
103: --

Line 110: utl_file.get_line(l_indatafileptr, l_line);

106: --
107: if (p_cardbrand = 'MasterCard') then
108: loop
109: begin
110: utl_file.get_line(l_indatafileptr, l_line);
111: utl_file.put_line(l_outdatafileptr, substrb(l_line, 0, 43) || substrb(l_line, 44, 3) || substrb(l_line, 44, 3) || substrb(l_line, 47));
112: l_numrecs := l_numrecs + 1;
113: exception
114: when no_data_found then

Line 111: utl_file.put_line(l_outdatafileptr, substrb(l_line, 0, 43) || substrb(l_line, 44, 3) || substrb(l_line, 44, 3) || substrb(l_line, 47));

107: if (p_cardbrand = 'MasterCard') then
108: loop
109: begin
110: utl_file.get_line(l_indatafileptr, l_line);
111: utl_file.put_line(l_outdatafileptr, substrb(l_line, 0, 43) || substrb(l_line, 44, 3) || substrb(l_line, 44, 3) || substrb(l_line, 47));
112: l_numrecs := l_numrecs + 1;
113: exception
114: when no_data_found then
115: exit;

Line 124: utl_file.get_line(l_indatafileptr, l_line);

120: --
121: elsif (p_cardbrand = 'Visa') then
122: loop
123: begin
124: utl_file.get_line(l_indatafileptr, l_line);
125: utl_file.put_line(l_outdatafileptr, substrb(l_line, 0, 2) || l_line);
126: l_numrecs := l_numrecs + 1;
127: exception
128: when no_data_found then

Line 125: utl_file.put_line(l_outdatafileptr, substrb(l_line, 0, 2) || l_line);

121: elsif (p_cardbrand = 'Visa') then
122: loop
123: begin
124: utl_file.get_line(l_indatafileptr, l_line);
125: utl_file.put_line(l_outdatafileptr, substrb(l_line, 0, 2) || l_line);
126: l_numrecs := l_numrecs + 1;
127: exception
128: when no_data_found then
129: exit;

Line 139: utl_file.fclose(l_indatafileptr);

135: --
136: -- Close the in/outdatafiles
137: --
138: fnd_file.put_line(fnd_file.log, 'Closing p_indatafilename '|| p_indatafilename);
139: utl_file.fclose(l_indatafileptr);
140: fnd_file.put_line(fnd_file.log, 'Closing p_outdatafilename '|| p_outdatafilename);
141: utl_file.fclose(l_outdatafileptr);
142:
143: EXCEPTION

Line 141: utl_file.fclose(l_outdatafileptr);

137: --
138: fnd_file.put_line(fnd_file.log, 'Closing p_indatafilename '|| p_indatafilename);
139: utl_file.fclose(l_indatafileptr);
140: fnd_file.put_line(fnd_file.log, 'Closing p_outdatafilename '|| p_outdatafilename);
141: utl_file.fclose(l_outdatafileptr);
142:
143: EXCEPTION
144: WHEN OTHERS THEN
145: utl_file.fclose_all;

Line 145: utl_file.fclose_all;

141: utl_file.fclose(l_outdatafileptr);
142:
143: EXCEPTION
144: WHEN OTHERS THEN
145: utl_file.fclose_all;
146: fnd_message.set_name('AK', 'AK_INVALID_FILE_OPERATION');
147: errbuf := fnd_message.get;
148: retcode := 2;
149: