55: 'Select statement used for fetching mass additions (Capitalized)');
56: psa_utils.debug_other_string(g_state_level,l_full_path,p_mass_add_capital_stmt);
57: -- ========================= FND LOG ===========================
58:
59: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Updating asset type for mass additions (Capitalized)');
60: PRINT_REPORT_HEADER;
61:
62: OPEN mass_add_cur FOR p_mass_add_capital_stmt USING p_asset_book;
63: LOOP
80: 'CC', 'WHERE', 'ALL','BETWEEN', p_cip_acct_from, p_cip_acct_to);
81:
82: p_mass_add_cip_stmt := p_mass_add_query || ' AND ' || p_where_clause;
83:
84: FND_FILE.NEW_LINE (FND_FILE.LOG, 1);
85: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
86: -- ========================= FND LOG ===========================
87: psa_utils.debug_other_string(g_state_level,
88: l_full_path,
81:
82: p_mass_add_cip_stmt := p_mass_add_query || ' AND ' || p_where_clause;
83:
84: FND_FILE.NEW_LINE (FND_FILE.LOG, 1);
85: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
86: -- ========================= FND LOG ===========================
87: psa_utils.debug_other_string(g_state_level,
88: l_full_path,
89: 'Select statement used for fetching mass additions (CIP)');
89: 'Select statement used for fetching mass additions (CIP)');
90: psa_utils.debug_other_string(g_state_level,l_full_path, p_mass_add_cip_stmt);
91: -- ========================= FND LOG ===========================
92:
93: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
94: 'Updating asset type for mass additions (CIP)');
95: PRINT_REPORT_HEADER;
96:
97: OPEN mass_add_cur FOR p_mass_add_cip_stmt USING p_asset_book;
110: CLOSE mass_add_cur;
111:
112: COMMIT;
113:
114: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing Complete ...');
115:
116: EXCEPTION
117: WHEN FND_FILE.UTL_FILE_ERROR THEN
118: -- Need not error out of the conc pgm just because of file i/o error.
113:
114: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Processing Complete ...');
115:
116: EXCEPTION
117: WHEN FND_FILE.UTL_FILE_ERROR THEN
118: -- Need not error out of the conc pgm just because of file i/o error.
119: -- File creation errors are recorded in the log file.
120: NULL;
121:
127: p_cip_acct_from IN VARCHAR2,
128: p_cip_acct_to IN VARCHAR2) IS
129:
130: BEGIN
131: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PROGRAM - UPDATE ASSET TYPE');
132:
133: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
134: 'Asset Book : '|| p_asset_book );
135:
129:
130: BEGIN
131: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PROGRAM - UPDATE ASSET TYPE');
132:
133: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
134: 'Asset Book : '|| p_asset_book );
135:
136: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
137: 'Capitalize Account From : '|| p_capital_acct_from );
132:
133: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
134: 'Asset Book : '|| p_asset_book );
135:
136: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
137: 'Capitalize Account From : '|| p_capital_acct_from );
138:
139: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
140: 'Capitalize Account To : '|| p_capital_acct_to );
135:
136: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
137: 'Capitalize Account From : '|| p_capital_acct_from );
138:
139: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
140: 'Capitalize Account To : '|| p_capital_acct_to );
141:
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
143: 'CIP Account From : '|| p_cip_acct_from );
138:
139: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
140: 'Capitalize Account To : '|| p_capital_acct_to );
141:
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
143: 'CIP Account From : '|| p_cip_acct_from );
144:
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
146: 'CIP Account To : '|| p_cip_acct_to );
141:
142: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
143: 'CIP Account From : '|| p_cip_acct_from );
144:
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
146: 'CIP Account To : '|| p_cip_acct_to );
147: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
148:
149: EXCEPTION
143: 'CIP Account From : '|| p_cip_acct_from );
144:
145: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
146: 'CIP Account To : '|| p_cip_acct_to );
147: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
148:
149: EXCEPTION
150: WHEN FND_FILE.UTL_FILE_ERROR THEN
151: -- Need not error out of the conc pgm just because of file i/o error.
146: 'CIP Account To : '|| p_cip_acct_to );
147: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
148:
149: EXCEPTION
150: WHEN FND_FILE.UTL_FILE_ERROR THEN
151: -- Need not error out of the conc pgm just because of file i/o error.
152: -- File creation errors are recorded in the log file.
153: NULL;
154:
157: PROCEDURE print_report_header IS
158:
159: BEGIN
160:
161: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
162: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('Mass Addition ID', 17) ||
163: RPAD ('Invoice Number', 27) ||
164: RPAD ('Amount', 22) || 'Description' );
165:
158:
159: BEGIN
160:
161: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
162: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('Mass Addition ID', 17) ||
163: RPAD ('Invoice Number', 27) ||
164: RPAD ('Amount', 22) || 'Description' );
165:
166: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('----------------', 17) ||
162: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('Mass Addition ID', 17) ||
163: RPAD ('Invoice Number', 27) ||
164: RPAD ('Amount', 22) || 'Description' );
165:
166: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('----------------', 17) ||
167: RPAD ('--------------', 27) ||
168: RPAD ('------', 22) || '-----------' );
169: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
170:
165:
166: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, RPAD ('----------------', 17) ||
167: RPAD ('--------------', 27) ||
168: RPAD ('------', 22) || '-----------' );
169: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
170:
171: END print_report_header;
172:
173: PROCEDURE print_mass_addition_details (p_mass_addition_id IN NUMBER) IS
183: FETCH c_invoice_details
184: INTO l_mass_addition_details;
185: CLOSE c_invoice_details;
186:
187: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
188: RPAD (l_mass_addition_details.mass_addition_id, 17) ||
189: RPAD (l_mass_addition_details.invoice_number, 27) ||
190: RPAD (l_mass_addition_details.payables_cost, 22) ||
191: l_mass_addition_details.description );