197: fnd_message.set_token('ORGCODE', l_organization_code);
198: l_err_msg := FND_MESSAGE.Get;
199: l_err_msg := substrb('CSTPIPVB : ' || l_err_msg,1,240);
200: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',l_err_msg);
201: fnd_file.put_line(fnd_file.log,l_err_msg);
202: RETURN;
203: END IF;
204:
205: EXCEPTION
224: l_txn_date_profile := FND_PROFILE.VALUE('TRANSACTION_DATE');
225:
226: l_stmt_num := 10;
227:
228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transfer Invoice to Inventory');
229:
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'request_id: '
231: ||to_char(l_request_id));
232: FND_FILE.PUT_LINE(FND_FILE.LOG, 'prog_appl_id: '
226: l_stmt_num := 10;
227:
228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transfer Invoice to Inventory');
229:
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'request_id: '
231: ||to_char(l_request_id));
232: FND_FILE.PUT_LINE(FND_FILE.LOG, 'prog_appl_id: '
233: ||to_char(l_prog_app_id));
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_user_id: '
228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transfer Invoice to Inventory');
229:
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'request_id: '
231: ||to_char(l_request_id));
232: FND_FILE.PUT_LINE(FND_FILE.LOG, 'prog_appl_id: '
233: ||to_char(l_prog_app_id));
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_user_id: '
235: ||to_char(l_user_id));
236: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_program_id: '
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'request_id: '
231: ||to_char(l_request_id));
232: FND_FILE.PUT_LINE(FND_FILE.LOG, 'prog_appl_id: '
233: ||to_char(l_prog_app_id));
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_user_id: '
235: ||to_char(l_user_id));
236: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_program_id: '
237: ||to_char(l_prog_id));
238: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_login_id: '
232: FND_FILE.PUT_LINE(FND_FILE.LOG, 'prog_appl_id: '
233: ||to_char(l_prog_app_id));
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_user_id: '
235: ||to_char(l_user_id));
236: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_program_id: '
237: ||to_char(l_prog_id));
238: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_login_id: '
239: ||to_char(l_login_id));
240: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_conc_program_id: '
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_user_id: '
235: ||to_char(l_user_id));
236: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_program_id: '
237: ||to_char(l_prog_id));
238: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_login_id: '
239: ||to_char(l_login_id));
240: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_conc_program_id: '
241: ||to_char(l_conc_program_id));
242: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
236: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_program_id: '
237: ||to_char(l_prog_id));
238: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_login_id: '
239: ||to_char(l_login_id));
240: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_conc_program_id: '
241: ||to_char(l_conc_program_id));
242: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
243: ||l_debug);
244: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
238: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_login_id: '
239: ||to_char(l_login_id));
240: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_conc_program_id: '
241: ||to_char(l_conc_program_id));
242: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
243: ||l_debug);
244: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
245: ||TO_CHAR(l_txn_date_profile));
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
240: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_conc_program_id: '
241: ||to_char(l_conc_program_id));
242: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
243: ||l_debug);
244: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
245: ||TO_CHAR(l_txn_date_profile));
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
247: ||TO_CHAR(p_organization_id));
248: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
242: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
243: ||l_debug);
244: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
245: ||TO_CHAR(l_txn_date_profile));
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
247: ||TO_CHAR(p_organization_id));
248: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
249: ||p_description);
250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
244: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
245: ||TO_CHAR(l_txn_date_profile));
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
247: ||TO_CHAR(p_organization_id));
248: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
249: ||p_description);
250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
251: ||TO_CHAR(p_item_option));
252: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item dummy: '
246: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
247: ||TO_CHAR(p_organization_id));
248: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
249: ||p_description);
250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
251: ||TO_CHAR(p_item_option));
252: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item dummy: '
253: ||TO_CHAR(p_item_dummy));
254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category_dummy: '
248: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
249: ||p_description);
250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
251: ||TO_CHAR(p_item_option));
252: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item dummy: '
253: ||TO_CHAR(p_item_dummy));
254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category_dummy: '
255: ||TO_CHAR(p_category_dummy));
256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
251: ||TO_CHAR(p_item_option));
252: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item dummy: '
253: ||TO_CHAR(p_item_dummy));
254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category_dummy: '
255: ||TO_CHAR(p_category_dummy));
256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
257: ||TO_CHAR(p_specific_item_id));
258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
252: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item dummy: '
253: ||TO_CHAR(p_item_dummy));
254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category_dummy: '
255: ||TO_CHAR(p_category_dummy));
256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
257: ||TO_CHAR(p_specific_item_id));
258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
259: ||TO_CHAR(p_category_set_id));
260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Validate Flag: '
254: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category_dummy: '
255: ||TO_CHAR(p_category_dummy));
256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
257: ||TO_CHAR(p_specific_item_id));
258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
259: ||TO_CHAR(p_category_set_id));
260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Validate Flag: '
261: ||p_category_validate_flag);
262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Structure: '
256: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
257: ||TO_CHAR(p_specific_item_id));
258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
259: ||TO_CHAR(p_category_set_id));
260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Validate Flag: '
261: ||p_category_validate_flag);
262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Structure: '
263: ||TO_CHAR(p_category_structure));
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
259: ||TO_CHAR(p_category_set_id));
260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Validate Flag: '
261: ||p_category_validate_flag);
262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Structure: '
263: ||TO_CHAR(p_category_structure));
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
265: ||TO_CHAR(p_category_id));
266: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Validate Flag: '
261: ||p_category_validate_flag);
262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Structure: '
263: ||TO_CHAR(p_category_structure));
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
265: ||TO_CHAR(p_category_id));
266: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
267: ||TO_CHAR(p_invoice_project_option));
268: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Dummy: '
262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category Structure: '
263: ||TO_CHAR(p_category_structure));
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
265: ||TO_CHAR(p_category_id));
266: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
267: ||TO_CHAR(p_invoice_project_option));
268: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Dummy: '
269: ||TO_CHAR(p_project_dummy));
270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
265: ||TO_CHAR(p_category_id));
266: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
267: ||TO_CHAR(p_invoice_project_option));
268: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Dummy: '
269: ||TO_CHAR(p_project_dummy));
270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
271: ||TO_CHAR(p_project_id));
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account Dummy: '
266: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
267: ||TO_CHAR(p_invoice_project_option));
268: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Dummy: '
269: ||TO_CHAR(p_project_dummy));
270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
271: ||TO_CHAR(p_project_id));
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account Dummy: '
273: ||TO_CHAR(p_adj_account_dummy));
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
268: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Dummy: '
269: ||TO_CHAR(p_project_dummy));
270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
271: ||TO_CHAR(p_project_id));
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account Dummy: '
273: ||TO_CHAR(p_adj_account_dummy));
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
275: ||TO_CHAR(p_adj_account));
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
271: ||TO_CHAR(p_project_id));
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account Dummy: '
273: ||TO_CHAR(p_adj_account_dummy));
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
275: ||TO_CHAR(p_adj_account));
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
277: ||p_cutoff_date);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Process Mode: '
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account Dummy: '
273: ||TO_CHAR(p_adj_account_dummy));
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
275: ||TO_CHAR(p_adj_account));
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
277: ||p_cutoff_date);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Process Mode: '
279: ||TO_CHAR(p_transaction_process_mode));
280:
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
275: ||TO_CHAR(p_adj_account));
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
277: ||p_cutoff_date);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Process Mode: '
279: ||TO_CHAR(p_transaction_process_mode));
280:
281: ----------------------------------------------------------------------
282: -- Make sure there is no other program running with the same args
387: )
388: );
389:
390: IF (l_debug = 'Y') THEN
391: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)
392: ||' Rows marked as NULL in AIDA ');
393: END IF;
394:
395:
465: RAISE cst_process_error;
466: END IF;
467:
468: IF (l_debug = 'Y') THEN
469: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch: '||TO_CHAR(l_batch_id));
470: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Default Date: '
471: ||TO_CHAR(l_default_txn_date));
472: END IF;
473:
466: END IF;
467:
468: IF (l_debug = 'Y') THEN
469: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch: '||TO_CHAR(l_batch_id));
470: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Default Date: '
471: ||TO_CHAR(l_default_txn_date));
472: END IF;
473:
474: --------------------------------------------------------------------
480:
481: l_cost_group_id := c_item_rec.cg_id;
482:
483: IF (l_debug = 'Y') THEN
484: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item: '
485: ||TO_CHAR(c_item_rec.item_id));
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CG: '||TO_CHAR(l_cost_group_id));
487: END IF;
488:
482:
483: IF (l_debug = 'Y') THEN
484: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item: '
485: ||TO_CHAR(c_item_rec.item_id));
486: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CG: '||TO_CHAR(l_cost_group_id));
487: END IF;
488:
489: l_stmt_num := 50;
490: CSTPPIPV.generate_trf_info
582: AND cavh.organization_id = msi.organization_id
583: );
584:
585: IF (l_debug = 'Y') THEN
586: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)
587: ||' Rows inserted into MTI');
588: END IF;
589:
590: -------------------------------------------------------------------
628: );
629:
630: IF (l_debug = 'Y') THEN
631:
632: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)
633: ||' Rows inserted into MTCDI');
634: END IF;
635:
636: COMMIT;
652:
653: fnd_message.set_name('BOM', 'CST_CSTPPIPV_RUNNING');
654: l_err_msg := fnd_message.get;
655: l_err_msg := SUBSTR(l_err_msg,1,240);
656: FND_FILE.PUT_LINE(fnd_file.log,SUBSTR(l_err_code
657: ||' '
658: ||l_err_msg,1,240));
659: CONC_STATUS := FND_CONCURRENT.
660: SET_COMPLETION_STATUS('ERROR',l_err_msg);
672:
673: fnd_message.set_name('BOM', 'CST_NO_AVG_ORG');
674: l_err_msg := fnd_message.get;
675: l_err_msg := SUBSTR(l_err_msg,1,240);
676: FND_FILE.PUT_LINE(fnd_file.log,l_err_msg);
677: CONC_STATUS := FND_CONCURRENT.
678: SET_COMPLETION_STATUS('ERROR',l_err_msg);
679:
680:
682: ROLLBACK;
683: l_err_num := l_err_num;
684: l_err_code := l_err_code;
685: l_err_msg := SUBSTR(l_err_msg,1,240);
686: FND_FILE.PUT_LINE(fnd_file.log,l_err_msg);
687: CONC_STATUS := FND_CONCURRENT.
688: SET_COMPLETION_STATUS('ERROR',l_err_msg);
689:
690:
695: l_err_msg := SUBSTR('CSTPPIPV.trf_invoice_to_inventory('
696: || to_char(l_stmt_num)
697: || '): '
698: ||SQLERRM,1,240);
699: FND_FILE.PUT_LINE(fnd_file.log,l_err_msg);
700: CONC_STATUS := FND_CONCURRENT.
701: SET_COMPLETION_STATUS('ERROR',l_err_msg);
702:
703:
945: l_txn_date_profile := FND_PROFILE.VALUE('TRANSACTION_DATE');
946:
947: l_stmt_num := 10;
948:
949: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transfer Invoice to Work In Process');
950:
951: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Request Id: '
952: ||to_char(l_request_id));
953: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User Id: '
947: l_stmt_num := 10;
948:
949: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transfer Invoice to Work In Process');
950:
951: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Request Id: '
952: ||to_char(l_request_id));
953: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User Id: '
954: ||to_char(l_user_id));
955: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Login Id: '
949: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transfer Invoice to Work In Process');
950:
951: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Request Id: '
952: ||to_char(l_request_id));
953: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User Id: '
954: ||to_char(l_user_id));
955: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Login Id: '
956: ||to_char(l_login_id));
957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Program Id: '
951: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Request Id: '
952: ||to_char(l_request_id));
953: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User Id: '
954: ||to_char(l_user_id));
955: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Login Id: '
956: ||to_char(l_login_id));
957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Program Id: '
958: ||to_char(l_prog_id));
959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prog Appl Id: '
953: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User Id: '
954: ||to_char(l_user_id));
955: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Login Id: '
956: ||to_char(l_login_id));
957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Program Id: '
958: ||to_char(l_prog_id));
959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prog Appl Id: '
960: ||to_char(l_prog_app_id));
961: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Conc Program Id: '
955: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Login Id: '
956: ||to_char(l_login_id));
957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Program Id: '
958: ||to_char(l_prog_id));
959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prog Appl Id: '
960: ||to_char(l_prog_app_id));
961: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Conc Program Id: '
962: ||to_char(l_conc_program_id));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Program Id: '
958: ||to_char(l_prog_id));
959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prog Appl Id: '
960: ||to_char(l_prog_app_id));
961: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Conc Program Id: '
962: ||to_char(l_conc_program_id));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
964: ||l_debug);
965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Prog Appl Id: '
960: ||to_char(l_prog_app_id));
961: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Conc Program Id: '
962: ||to_char(l_conc_program_id));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
964: ||l_debug);
965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
966: ||TO_CHAR(l_txn_date_profile));
967: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
961: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Conc Program Id: '
962: ||to_char(l_conc_program_id));
963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
964: ||l_debug);
965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
966: ||TO_CHAR(l_txn_date_profile));
967: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
968: ||TO_CHAR(p_organization_id));
969: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Debug: '
964: ||l_debug);
965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
966: ||TO_CHAR(l_txn_date_profile));
967: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
968: ||TO_CHAR(p_organization_id));
969: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
970: ||p_description);
971: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Work Order: '
965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Date Profile: '
966: ||TO_CHAR(l_txn_date_profile));
967: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
968: ||TO_CHAR(p_organization_id));
969: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
970: ||p_description);
971: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Work Order: '
972: ||TO_CHAR(p_work_order_id));
973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Type: '
967: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Organization: '
968: ||TO_CHAR(p_organization_id));
969: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
970: ||p_description);
971: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Work Order: '
972: ||TO_CHAR(p_work_order_id));
973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Type: '
974: ||TO_CHAR(p_item_type));
975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
969: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Description: '
970: ||p_description);
971: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Work Order: '
972: ||TO_CHAR(p_work_order_id));
973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Type: '
974: ||TO_CHAR(p_item_type));
975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
976: ||TO_CHAR(l_item_option));
977: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
971: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Work Order: '
972: ||TO_CHAR(p_work_order_id));
973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Type: '
974: ||TO_CHAR(p_item_type));
975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
976: ||TO_CHAR(l_item_option));
977: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
978: ||TO_CHAR(p_specific_item_id));
979: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Type: '
974: ||TO_CHAR(p_item_type));
975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
976: ||TO_CHAR(l_item_option));
977: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
978: ||TO_CHAR(p_specific_item_id));
979: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
980: ||TO_CHAR(p_category_set_id));
981: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Item Option: '
976: ||TO_CHAR(l_item_option));
977: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
978: ||TO_CHAR(p_specific_item_id));
979: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
980: ||TO_CHAR(p_category_set_id));
981: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
982: ||TO_CHAR(p_category_id));
983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
977: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Specific Item: '
978: ||TO_CHAR(p_specific_item_id));
979: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
980: ||TO_CHAR(p_category_set_id));
981: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
982: ||TO_CHAR(p_category_id));
983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
984: ||TO_CHAR(l_project_option));
985: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
979: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category set id: '
980: ||TO_CHAR(p_category_set_id));
981: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
982: ||TO_CHAR(p_category_id));
983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
984: ||TO_CHAR(l_project_option));
985: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
986: ||TO_CHAR(p_project_id));
987: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
981: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Category: '
982: ||TO_CHAR(p_category_id));
983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
984: ||TO_CHAR(l_project_option));
985: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
986: ||TO_CHAR(p_project_id));
987: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
988: ||TO_CHAR(p_adj_account));
989: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
983: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Project Option: '
984: ||TO_CHAR(l_project_option));
985: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
986: ||TO_CHAR(p_project_id));
987: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
988: ||TO_CHAR(p_adj_account));
989: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
990: ||p_cutoff_date);
991: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Process Mode: '
985: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Project Id: '
986: ||TO_CHAR(p_project_id));
987: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
988: ||TO_CHAR(p_adj_account));
989: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
990: ||p_cutoff_date);
991: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Process Mode: '
992: ||TO_CHAR(p_transaction_process_mode));
993:
987: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Adjustment Account: '
988: ||TO_CHAR(p_adj_account));
989: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice Cutoff Date: '
990: ||p_cutoff_date);
991: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Txn Process Mode: '
992: ||TO_CHAR(p_transaction_process_mode));
993:
994: ----------------------------------------------------------------------
995: -- Make sure there is no other program running with the same args
1063:
1064: close c_po_dists2;
1065:
1066: IF (l_debug = 'Y') THEN
1067: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(l_row_count)||' rows marked as S in AIDA');
1068: END IF;
1069:
1070: ----------------------------------------------------------------------
1071: -- Set aida rows with 'N' status but which have no IPV to NULL.
1114: );
1115:
1116:
1117: IF (l_debug = 'Y') THEN
1118: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)||' rows marked as NULL in AIDA');
1119: END IF;
1120:
1121: ----------------------------------------------------------------------
1122: -- Create a batch for the the process
1200: RAISE cst_process_error;
1201: END IF;
1202:
1203: IF (l_debug = 'Y') THEN
1204: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch: '||TO_CHAR(l_batch_id));
1205: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Default Date: '||TO_CHAR(l_default_txn_date));
1206: END IF;
1207:
1208: ----------------------------------------------------------------------
1201: END IF;
1202:
1203: IF (l_debug = 'Y') THEN
1204: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch: '||TO_CHAR(l_batch_id));
1205: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Default Date: '||TO_CHAR(l_default_txn_date));
1206: END IF;
1207:
1208: ----------------------------------------------------------------------
1209: -- Calculate timezone offset from legal entity time to server time
1238:
1239: FOR c_po_dist_rec IN c_po_dist LOOP
1240:
1241: IF (l_debug = 'Y') THEN
1242: FND_FILE.PUT_LINE(FND_FILE.LOG, 'PO Distribution: '
1243: ||TO_CHAR(c_po_dist_rec.po_distribution_id));
1244: END IF;
1245:
1246: l_stmt_num := 50;
1383: AND mp.organization_id = cavh.organization_id
1384: AND fu.user_id = l_user_id);
1385:
1386: IF (l_debug = 'Y') THEN
1387: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)
1388: ||' Rows inserted into WCTI');
1389: END IF;
1390:
1391: END IF;
1408:
1409: fnd_message.set_name('BOM', 'CST_CSTPPIPV_RUNNING');
1410: l_err_msg := fnd_message.get;
1411: l_err_msg := SUBSTR(l_err_msg,1,240);
1412: FND_FILE.PUT_LINE(fnd_file.log,SUBSTR(l_err_code
1413: ||' '
1414: ||l_err_msg,1,240));
1415: CONC_STATUS := FND_CONCURRENT.
1416: SET_COMPLETION_STATUS('ERROR',l_err_msg);
1420: retcode := 1;
1421: l_err_num := l_err_num;
1422: l_err_code := l_err_code;
1423: l_err_msg := SUBSTR(l_err_msg,1,240);
1424: FND_FILE.PUT_LINE(fnd_file.log,l_err_msg);
1425: CONC_STATUS := FND_CONCURRENT.
1426: SET_COMPLETION_STATUS('ERROR',l_err_msg);
1427:
1428: WHEN OTHERS THEN
1433: l_err_msg := SUBSTR('CSTPPIPV.trf_invoice_to_wip('
1434: || to_char(l_stmt_num)
1435: || '): '
1436: ||SQLERRM,1,240);
1437: FND_FILE.PUT_LINE(fnd_file.log,l_err_msg);
1438: CONC_STATUS := FND_CONCURRENT.
1439: SET_COMPLETION_STATUS('ERROR',l_err_msg);
1440: END trf_invoice_to_wip;
1441:
1498: fnd_message.set_token('ORGCODE', l_organization_code);
1499: l_err_msg := FND_MESSAGE.Get;
1500: l_err_msg := substrb('CSTPIPVB : ' || l_err_msg,1,240);
1501: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',l_err_msg);
1502: fnd_file.put_line(fnd_file.log,l_err_msg);
1503: RETURN;
1504: END IF;
1505:
1506: EXCEPTION
1548: l_err_msg := SUBSTR('CSTPPIPV.trf_invoice_to_wip('
1549: || to_char(l_stmt_num)
1550: || '): '
1551: ||SQLERRM,1,240);
1552: FND_FILE.PUT_LINE(fnd_file.log,l_err_msg);
1553: CONC_STATUS := FND_CONCURRENT.
1554: SET_COMPLETION_STATUS('ERROR',l_err_msg);
1555: END trf_invoice_to_wip;
1556:
1765: AND aida.corrected_invoice_dist_id IS NULL --same as change made earlier
1766: );
1767:
1768:
1769: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)
1770: || ' Rows inserted into CAVL');
1771:
1772: l_stmt_num := 10;
1773:
1841: FROM DUAL
1842: );
1843:
1844: -- Debug statements -----------------------------------------------
1845: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.podist: '
1846: -- ||to_char(c_cavl_po_rec.po_distribution_id));
1847: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.batch_id: '
1848: -- ||to_char(p_batch_id));
1849: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.var_amt: '
1843:
1844: -- Debug statements -----------------------------------------------
1845: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.podist: '
1846: -- ||to_char(c_cavl_po_rec.po_distribution_id));
1847: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.batch_id: '
1848: -- ||to_char(p_batch_id));
1849: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.var_amt: '
1850: -- ||to_char(c_cavl_po_rec.var_amount));
1851: -- End Debug ------------------------------------------------------
1845: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.podist: '
1846: -- ||to_char(c_cavl_po_rec.po_distribution_id));
1847: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.batch_id: '
1848: -- ||to_char(p_batch_id));
1849: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'cavh.var_amt: '
1850: -- ||to_char(c_cavl_po_rec.var_amount));
1851: -- End Debug ------------------------------------------------------
1852:
1853: END LOOP; -- c_cavl_po_rec
1895: AND cavl.cost_group_id = p_cost_group_id
1896: AND cavl.inventory_item_id = p_inventory_item_id
1897: );
1898:
1899: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)
1900: || ' Rows marked as transferred in AIDA');
1901:
1902:
1903: EXCEPTION
2059: -- AND aida.root_distribution_id IS NULL
2060: AND aida.corrected_invoice_dist_id IS NULL
2061: AND aida.po_distribution_id = p_po_distribution_id);
2062:
2063: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)|| ' Rows inserted into CAVL');
2064:
2065: l_stmt_num := 10;
2066:
2067: ---------------------------------------------------------------------
2167: WHERE cavl.batch_id = p_batch_id
2168: AND cavl.invoice_distribution_id = aida.invoice_distribution_id
2169: );
2170:
2171: FND_FILE.PUT_LINE(FND_FILE.LOG, TO_CHAR(SQL%ROWCOUNT)
2172: || ' Rows marked as transferred in AIDA');
2173: END IF;
2174:
2175: EXCEPTION