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