DBA Data[Home] [Help]

APPS.PO_CREATE_ISO dependencies on FND_FILE

Line 158: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Begin create internal sales order');

154: lin.line_num;
155:
156: BEGIN
157:
158: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Begin create internal sales order');
159:
160: BEGIN
161:
162: /* Select all requisition headers which have been approved since

Line 169: Fnd_File.Put_Line(FND_FILE.LOG, 'Updating Req Headers');

165: sourced reqs as well
166: so that the program does not have to sort through these rows
167: again next time */
168:
169: Fnd_File.Put_Line(FND_FILE.LOG, 'Updating Req Headers');
170:
171: IF p_req_header_id is null then
172:
173: /* Bug 2630523 Performance of the following SQL will be good if it choose

Line 203: Fnd_File.Put_Line(FND_FILE.LOG,to_char(SQL%ROWCOUNT)||' Reqs selected for processing');

199: AND Nvl(prl.transferred_to_oe_flag,'N') = 'N' --Bug7699084
200: AND Nvl(prl.cancel_flag,'N') = 'N'
201: AND Nvl(prl.closed_code,'OPEN') <> 'FINALLY CLOSED');
202:
203: Fnd_File.Put_Line(FND_FILE.LOG,to_char(SQL%ROWCOUNT)||' Reqs selected for processing');
204:
205: ELSE
206:
207: UPDATE PO_REQUISITION_HEADERS PRH

Line 221: Fnd_File.Put_Line(FND_FILE.LOG,to_char(SQL%ROWCOUNT)||' Reqs selected for processing');

217: and Nvl(prl.transferred_to_oe_flag,'N') = 'N' /*Bug 7699084*/
218: and nvl(prl.cancel_flag,'N') = 'N'
219: and nvl(prl.closed_code,'OPEN') <> 'FINALLY CLOSED');
220:
221: Fnd_File.Put_Line(FND_FILE.LOG,to_char(SQL%ROWCOUNT)||' Reqs selected for processing');
222:
223: END IF;
224:
225: EXCEPTION

Line 227: Fnd_File.Put_Line(FND_FILE.LOG, 'No reqs selected for processing');

223: END IF;
224:
225: EXCEPTION
226: WHEN NO_DATA_FOUND THEN /* there are no reqs to process */
227: Fnd_File.Put_Line(FND_FILE.LOG, 'No reqs selected for processing');
228: return;
229: WHEN OTHERS THEN
230: Fnd_File.Put_Line(FND_FILE.LOG, 'Error updating req headers');
231: return;

Line 230: Fnd_File.Put_Line(FND_FILE.LOG, 'Error updating req headers');

226: WHEN NO_DATA_FOUND THEN /* there are no reqs to process */
227: Fnd_File.Put_Line(FND_FILE.LOG, 'No reqs selected for processing');
228: return;
229: WHEN OTHERS THEN
230: Fnd_File.Put_Line(FND_FILE.LOG, 'Error updating req headers');
231: return;
232: END;
233:
234: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

Line 234: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

230: Fnd_File.Put_Line(FND_FILE.LOG, 'Error updating req headers');
231: return;
232: END;
233:
234: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
235:
236: /* 2034580 - Check if PJM is installed */
237:
238: x_pjm_status := po_core_s.get_product_install_status('PJM');

Line 251: Fnd_File.Put_Line(FND_FILE.LOG, 'Top of Fetch Loop');

247: l_req_line_number := 1; --Bug #12576879
248: l_prev_sold_to_org_id := -1;
249: Open REQ_LINES;
250: LOOP
251: Fnd_File.Put_Line(FND_FILE.LOG, 'Top of Fetch Loop');
252: fetch REQ_LINES into
253: l_op_unit_id,
254: l_req_hdr_id,
255: l_req_line_id, l_sold_to_org_id;

Line 278: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

274: every time the Source Organization Operating Unit Changes. */
275:
276: l_req_hdr_id_prev := 0;
277:
278: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Source Operating Unit: ' || to_char(l_op_unit_id));
280:
281: GET_OPUNIT_DETAILS(l_op_unit_id,
282: l_error_flag,

Line 279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Source Operating Unit: ' || to_char(l_op_unit_id));

275:
276: l_req_hdr_id_prev := 0;
277:
278: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Source Operating Unit: ' || to_char(l_op_unit_id));
280:
281: GET_OPUNIT_DETAILS(l_op_unit_id,
282: l_error_flag,
283: l_currency_code,

Line 303: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

299: IF l_sold_to_org_id <> l_prev_sold_to_org_id then
300: l_prev_sold_to_org_id :=l_sold_to_org_id;
301: l_req_hdr_id_prev := 0;
302: l_req_line_number := 1; --Bug #12576879
303: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
304: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Customer id: ' || to_char(l_sold_to_org_id));
305:
306: END IF; /*--7716682*/
307: IF (l_error_flag <> 'Y') then

Line 304: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Customer id: ' || to_char(l_sold_to_org_id));

300: l_prev_sold_to_org_id :=l_sold_to_org_id;
301: l_req_hdr_id_prev := 0;
302: l_req_line_number := 1; --Bug #12576879
303: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
304: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Customer id: ' || to_char(l_sold_to_org_id));
305:
306: END IF; /*--7716682*/
307: IF (l_error_flag <> 'Y') then
308:

Line 372: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

368: was inserted. */
369:
370: IF SQL%ROWCOUNT>0 then
371:
372: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
373: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting Header : '||to_char(l_req_hdr_id));
374:
375: /* Bug # 1653150
376: Used OE_ACTIONS_IFACE_ALL rather than OE_ACTIONS_INTERFACE as it was

Line 373: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting Header : '||to_char(l_req_hdr_id));

369:
370: IF SQL%ROWCOUNT>0 then
371:
372: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
373: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting Header : '||to_char(l_req_hdr_id));
374:
375: /* Bug # 1653150
376: Used OE_ACTIONS_IFACE_ALL rather than OE_ACTIONS_INTERFACE as it was
377: inserting with the Org_id of the Destination Org. This resulted in Sales

Line 380: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id');

376: Used OE_ACTIONS_IFACE_ALL rather than OE_ACTIONS_INTERFACE as it was
377: inserting with the Org_id of the Destination Org. This resulted in Sales
378: Order not getting Created in a Booked State. */
379:
380: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id');
381:
382: -- Bug 3365408: We need to insert the customer id into
383: -- the sold to org column in the actions interface
384: Begin

Line 394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id Exception :' || to_char(sqlcode));

390: AND nvl(PLA.ORG_ID,-1) = l_op_unit_id
391: AND RL.REQUISITION_LINE_ID = l_req_line_id;
392: Exception
393: When others then
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id Exception :' || to_char(sqlcode));
395: l_customer_id:= null;
396: End;
397:
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id: ' || l_customer_id);

Line 398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id: ' || l_customer_id);

394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id Exception :' || to_char(sqlcode));
395: l_customer_id:= null;
396: End;
397:
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id: ' || l_customer_id);
399:
400: INSERT INTO OE_ACTIONS_IFACE_ALL
401: (ORDER_SOURCE_ID,
402: ORIG_SYS_DOCUMENT_REF,

Line 415: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

411: l_customer_id -- Bug 3365408
412: );
413: ELSE
414:
415: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
416: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Header not Inserted : '||to_char(l_req_hdr_id));
417:
418: END IF;
419:

Line 416: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Header not Inserted : '||to_char(l_req_hdr_id));

412: );
413: ELSE
414:
415: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
416: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Header not Inserted : '||to_char(l_req_hdr_id));
417:
418: END IF;
419:
420: END IF; /* end of if it is a new header */

Line 465: FND_FILE.put_line(FND_FILE.LOG, 'Destination type is not Inventory - nulling out the project and task.');

461: -- Check #1: Destination type is not Inventory, so null out
462: -- the project and task.
463: l_project_id := NULL;
464: l_task_id := NULL;
465: FND_FILE.put_line(FND_FILE.LOG, 'Destination type is not Inventory - nulling out the project and task.');
466:
467: ELSE -- destation type is Inventory
468: -- Check #2: Call the PJM validation API with the source org.
469: --< Bug 3265539 Start >

Line 495: FND_FILE.put_line(FND_FILE.LOG, 'PJM validation failed in the source org - nulling out the project and task. Error message follows:');

491: IF ( l_val_proj_result = PO_PROJECT_DETAILS_SV.pjm_validate_failure ) THEN
492: -- PJM validation failed, so null out the project and task.
493: l_project_id := NULL;
494: l_task_id := NULL;
495: FND_FILE.put_line(FND_FILE.LOG, 'PJM validation failed in the source org - nulling out the project and task. Error message follows:');
496: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.get);
497: END IF;
498: --< Bug 3265539 End >
499:

Line 496: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.get);

492: -- PJM validation failed, so null out the project and task.
493: l_project_id := NULL;
494: l_task_id := NULL;
495: FND_FILE.put_line(FND_FILE.LOG, 'PJM validation failed in the source org - nulling out the project and task. Error message follows:');
496: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.get);
497: END IF;
498: --< Bug 3265539 End >
499:
500: END IF; -- project and task are null

Line 763: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

759:
760: END LOOP;
761: CLOSE REQ_LINES;
762:
763: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
764:
765: /* Update transferred_to_oe_flag for all rows processed */
766:
767: UPDATE PO_REQUISITION_HEADERS

Line 789: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updated the TRANSFERRED_TO_OE_FLAG of the corresponding lines');

785: and nvl(prl.closed_code,'OPEN') <> 'FINALLY CLOSED';
786:
787: END LOOP;
788:
789: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updated the TRANSFERRED_TO_OE_FLAG of the corresponding lines');
790:
791: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updating TRANSFERRED_TO_OE_FLAG of '||to_char(SQL%ROWCOUNT)|| ' Requisitions');
792:
793: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');

Line 791: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updating TRANSFERRED_TO_OE_FLAG of '||to_char(SQL%ROWCOUNT)|| ' Requisitions');

787: END LOOP;
788:
789: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updated the TRANSFERRED_TO_OE_FLAG of the corresponding lines');
790:
791: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updating TRANSFERRED_TO_OE_FLAG of '||to_char(SQL%ROWCOUNT)|| ' Requisitions');
792:
793: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');
794:
795: EXCEPTION

Line 793: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');

789: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updated the TRANSFERRED_TO_OE_FLAG of the corresponding lines');
790:
791: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updating TRANSFERRED_TO_OE_FLAG of '||to_char(SQL%ROWCOUNT)|| ' Requisitions');
792:
793: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');
794:
795: EXCEPTION
796: WHEN OTHERS THEN
797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unhandled Exception : '||sqlerrm);

Line 797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unhandled Exception : '||sqlerrm);

793: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');
794:
795: EXCEPTION
796: WHEN OTHERS THEN
797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unhandled Exception : '||sqlerrm);
798: /* Bug # 1653150
799: Raised a Exception if the process fails for Some reason */
800: raise;
801: END;

Line 824: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Currency Code');

820: return one row, if not return error and exit subroutine */
821:
822: BEGIN
823:
824: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Currency Code');
825:
826: SELECT glsob.CURRENCY_CODE
827: INTO l_currency_code
828: FROM GL_SETS_OF_BOOKS GLSOB,

Line 835: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CURRENCY_CODE NOT SET');

831: AND nvl(FSP.org_id,-1) = l_op_unit_id;
832:
833: EXCEPTION
834: WHEN NO_DATA_FOUND THEN
835: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CURRENCY_CODE NOT SET');
836: l_error_flag := 'Y';
837: return;
838: WHEN OTHERS THEN
839: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in Currency Code retrieval');

Line 839: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in Currency Code retrieval');

835: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CURRENCY_CODE NOT SET');
836: l_error_flag := 'Y';
837: return;
838: WHEN OTHERS THEN
839: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in Currency Code retrieval');
840: l_error_flag := 'Y';
841: return;
842:
843: END;

Line 845: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currency Code : ' || l_currency_code);

841: return;
842:
843: END;
844:
845: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currency Code : ' || l_currency_code);
846:
847: BEGIN
848:
849: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Order Type');

Line 849: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Order Type');

845: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currency Code : ' || l_currency_code);
846:
847: BEGIN
848:
849: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Order Type');
850:
851: SELECT ORDER_TYPE_ID
852: INTO l_ot_id
853: FROM PO_SYSTEM_PARAMETERS_ALL

Line 858: FND_FILE.PUT_LINE(FND_FILE.LOG, 'System Parameters not found');

854: WHERE nvl(ORG_ID,-1) = l_op_unit_id;
855:
856: EXCEPTION
857: WHEN NO_DATA_FOUND THEN
858: FND_FILE.PUT_LINE(FND_FILE.LOG, 'System Parameters not found');
859: l_error_flag := 'Y';
860: return;
861: WHEN OTHERS THEN
862: Fnd_File.Put_Line(FND_FILE.LOG, 'Error selecting order type');

Line 862: Fnd_File.Put_Line(FND_FILE.LOG, 'Error selecting order type');

858: FND_FILE.PUT_LINE(FND_FILE.LOG, 'System Parameters not found');
859: l_error_flag := 'Y';
860: return;
861: WHEN OTHERS THEN
862: Fnd_File.Put_Line(FND_FILE.LOG, 'Error selecting order type');
863: l_error_flag := 'Y';
864: return;
865:
866: END;

Line 868: FND_FILE.PUT_LINE(FND_FILE.LOG,'Order Type ID:'||to_char(l_ot_id));

864: return;
865:
866: END;
867:
868: FND_FILE.PUT_LINE(FND_FILE.LOG,'Order Type ID:'||to_char(l_ot_id));
869:
870: BEGIN
871:
872: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Price List from Order Type');

Line 872: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Price List from Order Type');

868: FND_FILE.PUT_LINE(FND_FILE.LOG,'Order Type ID:'||to_char(l_ot_id));
869:
870: BEGIN
871:
872: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Price List from Order Type');
873:
874: SELECT PRICE_LIST_ID,
875: ACCOUNTING_RULE_ID,
876: INVOICING_RULE_ID

Line 888: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No OE Information');

884:
885: EXCEPTION
886: WHEN NO_DATA_FOUND THEN
887: FND_MESSAGE.SET_NAME('PO', 'PO_CISO_NO_OE_INFO');
888: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No OE Information');
889: -- l_error_flag := 'Y'; Do not throw error if the Order type is not set in Purchasing options
890: return;
891: WHEN OTHERS THEN
892: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error selecting OE Information');

Line 892: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error selecting OE Information');

888: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No OE Information');
889: -- l_error_flag := 'Y'; Do not throw error if the Order type is not set in Purchasing options
890: return;
891: WHEN OTHERS THEN
892: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error selecting OE Information');
893: l_error_flag := 'Y';
894: return;
895:
896: END;

Line 990: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-discrete internal order transfer');

986: -- for process-process orders. Call get cost API
987:
988: IF (l_src_process_enabled_flag = 'Y' AND l_dest_process_enabled_flag = 'N')
989: THEN
990: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-discrete internal order transfer');
991: ELSIF (l_src_process_enabled_flag = 'N' AND l_dest_process_enabled_flag = 'Y')
992: THEN
993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-to-process internal order transfer');
994: ELSE

Line 993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-to-process internal order transfer');

989: THEN
990: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-discrete internal order transfer');
991: ELSIF (l_src_process_enabled_flag = 'N' AND l_dest_process_enabled_flag = 'Y')
992: THEN
993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-to-process internal order transfer');
994: ELSE
995: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-process internal order transfer');
996: END IF;
997:

Line 995: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-process internal order transfer');

991: ELSIF (l_src_process_enabled_flag = 'N' AND l_dest_process_enabled_flag = 'Y')
992: THEN
993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-to-process internal order transfer');
994: ELSE
995: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-process internal order transfer');
996: END IF;
997:
998: -- get the from ou and to ou
999: -- Bug 7462235 - Changed org_information2 to org_information3 to fetch OU Id

Line 1086: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: Transfer Price = ' || x_unit_price);

1082: THEN
1083: x_unit_price := 0;
1084: END IF;
1085:
1086: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: Transfer Price = ' || x_unit_price);
1087: RETURN x_unit_price;
1088:
1089: END IF;
1090: --

Line 1093: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-discrete internal order transfer');

1089: END IF;
1090: --
1091: ELSE
1092:
1093: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-discrete internal order transfer');
1094: po_items_sv2.get_item_cost (x_item_id,
1095: x_organization_id,
1096: x_primary_cost);
1097: END IF;