100: CLOSE inv_dist_cur;
101:
102: COMMIT;
103:
104: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
105: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'update_assets_tracking_flag: Processing Complete ...');
106:
107: EXCEPTION
108: WHEN FND_FILE.UTL_FILE_ERROR THEN
101:
102: COMMIT;
103:
104: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
105: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'update_assets_tracking_flag: Processing Complete ...');
106:
107: EXCEPTION
108: WHEN FND_FILE.UTL_FILE_ERROR THEN
109: -- Need not error out of the conc pgm just because of file i/o error.
104: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
105: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'update_assets_tracking_flag: Processing Complete ...');
106:
107: EXCEPTION
108: WHEN FND_FILE.UTL_FILE_ERROR THEN
109: -- Need not error out of the conc pgm just because of file i/o error.
110: -- File creation errors are recorded in the log file.
111: NULL;
112:
115: PROCEDURE print_header_info
116: (p_from_gl_date IN DATE, p_to_gl_date IN DATE, p_from_account IN VARCHAR2, p_to_account IN VARCHAR2) IS
117:
118: BEGIN
119: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'print_header_info: PROGRAM - UPDATE ASSETS TRACKING FLAG');
120:
121: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date From : '|| p_from_gl_date );
122:
123: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date To : '|| p_to_gl_date );
117:
118: BEGIN
119: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'print_header_info: PROGRAM - UPDATE ASSETS TRACKING FLAG');
120:
121: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date From : '|| p_from_gl_date );
122:
123: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date To : '|| p_to_gl_date );
124:
125: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account From : '|| p_from_account );
119: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'print_header_info: PROGRAM - UPDATE ASSETS TRACKING FLAG');
120:
121: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date From : '|| p_from_gl_date );
122:
123: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date To : '|| p_to_gl_date );
124:
125: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account From : '|| p_from_account );
126:
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account To : '|| p_to_account );
121: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date From : '|| p_from_gl_date );
122:
123: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date To : '|| p_to_gl_date );
124:
125: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account From : '|| p_from_account );
126:
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account To : '|| p_to_account );
128: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
129:
123: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'GL Date To : '|| p_to_gl_date );
124:
125: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account From : '|| p_from_account );
126:
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account To : '|| p_to_account );
128: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
129:
130: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Updating assets tracking flag for invoice distributions ...');
131: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
124:
125: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account From : '|| p_from_account );
126:
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account To : '|| p_to_account );
128: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
129:
130: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Updating assets tracking flag for invoice distributions ...');
131: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
132: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('Supplier', 32) ||
126:
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account To : '|| p_to_account );
128: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
129:
130: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Updating assets tracking flag for invoice distributions ...');
131: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
132: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('Supplier', 32) ||
133: RPAD ('Invoice ID', 17) ||
134: RPAD ('Invoice Number', 27) ||
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Account To : '|| p_to_account );
128: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
129:
130: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Updating assets tracking flag for invoice distributions ...');
131: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
132: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('Supplier', 32) ||
133: RPAD ('Invoice ID', 17) ||
134: RPAD ('Invoice Number', 27) ||
135: RPAD ('Line', 6) ||
128: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
129:
130: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Updating assets tracking flag for invoice distributions ...');
131: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
132: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('Supplier', 32) ||
133: RPAD ('Invoice ID', 17) ||
134: RPAD ('Invoice Number', 27) ||
135: RPAD ('Line', 6) ||
136: RPAD ('Amount', 22) || 'Description' );
134: RPAD ('Invoice Number', 27) ||
135: RPAD ('Line', 6) ||
136: RPAD ('Amount', 22) || 'Description' );
137:
138: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('--------', 32) ||
139: RPAD ('----------', 17) ||
140: RPAD ('--------------', 27) ||
141: RPAD ('----', 6) ||
142: RPAD ('------', 22) || '-----------' );
140: RPAD ('--------------', 27) ||
141: RPAD ('----', 6) ||
142: RPAD ('------', 22) || '-----------' );
143:
144: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
145:
146: EXCEPTION
147: WHEN FND_FILE.UTL_FILE_ERROR THEN
148: -- Need not error out NOCOPY of the conc pgm just because of file i/o error.
143:
144: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
145:
146: EXCEPTION
147: WHEN FND_FILE.UTL_FILE_ERROR THEN
148: -- Need not error out NOCOPY of the conc pgm just because of file i/o error.
149: -- File creation errors are recorded in the log file.
150: NULL;
151:
173: LOOP
174: FETCH c_invoice_details INTO l_invoice_details;
175: EXIT WHEN c_invoice_details%NOTFOUND;
176:
177: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'print_invoice_details: ' || RPAD (l_invoice_details.supplier, 32) ||
178: RPAD (l_invoice_details.invoice_id, 17) ||
179: RPAD (l_invoice_details.invoice_number, 27) ||
180: RPAD (l_invoice_details.line_number, 6) ||
181: RPAD (l_invoice_details.line_amount, 22) || l_invoice_details.line_description);