DBA Data[Home] [Help]

APPS.PO_CREATE_ISO dependencies on FND_FILE

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

119: lin.line_num;
120:
121: BEGIN
122:
123: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Begin create internal sales order');
124:
125: BEGIN
126:
127: /* Select all requisition headers which have been approved since

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

130: sourced reqs as well
131: so that the program does not have to sort through these rows
132: again next time */
133:
134: Fnd_File.Put_Line(FND_FILE.LOG, 'Updating Req Headers');
135:
136: IF p_req_header_id is null then
137:
138: /* Bug 2630523 Performance of the following SQL will be good if it choose

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

149: and prl.source_type_code = 'INVENTORY'
150: and nvl(prl.cancel_flag,'N') = 'N'
151: and nvl(prl.closed_code,'OPEN') <> 'FINALLY CLOSED');
152:
153: Fnd_File.Put_Line(FND_FILE.LOG,to_char(SQL%ROWCOUNT)||' Reqs selected for processing');
154:
155: ELSE
156:
157: UPDATE PO_REQUISITION_HEADERS PRH

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

166: and prl.source_type_code = 'INVENTORY'
167: and nvl(prl.cancel_flag,'N') = 'N'
168: and nvl(prl.closed_code,'OPEN') <> 'FINALLY CLOSED');
169:
170: Fnd_File.Put_Line(FND_FILE.LOG,to_char(SQL%ROWCOUNT)||' Reqs selected for processing');
171:
172: END IF;
173:
174: EXCEPTION

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

172: END IF;
173:
174: EXCEPTION
175: WHEN NO_DATA_FOUND THEN /* there are no reqs to process */
176: Fnd_File.Put_Line(FND_FILE.LOG, 'No reqs selected for processing');
177: return;
178: WHEN OTHERS THEN
179: Fnd_File.Put_Line(FND_FILE.LOG, 'Error updating req headers');
180: return;

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

175: WHEN NO_DATA_FOUND THEN /* there are no reqs to process */
176: Fnd_File.Put_Line(FND_FILE.LOG, 'No reqs selected for processing');
177: return;
178: WHEN OTHERS THEN
179: Fnd_File.Put_Line(FND_FILE.LOG, 'Error updating req headers');
180: return;
181: END;
182:
183: Fnd_File.Put_Line(FND_FILE.LOG, '-----');

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

179: Fnd_File.Put_Line(FND_FILE.LOG, 'Error updating req headers');
180: return;
181: END;
182:
183: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
184:
185: /* 2034580 - Check if PJM is installed */
186:
187: x_pjm_status := po_core_s.get_product_install_status('PJM');

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

195: l_req_hdr_id_prev := 0;
196:
197: Open REQ_LINES;
198: LOOP
199: Fnd_File.Put_Line(FND_FILE.LOG, 'Top of Fetch Loop');
200: fetch REQ_LINES into
201: l_op_unit_id,
202: l_req_hdr_id,
203: l_req_line_id;

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

217: every time the Source Organization Operating Unit Changes. */
218:
219: l_req_hdr_id_prev := 0;
220:
221: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
222: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Source Operating Unit: ' || to_char(l_op_unit_id));
223:
224: GET_OPUNIT_DETAILS(l_op_unit_id,
225: l_error_flag,

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

218:
219: l_req_hdr_id_prev := 0;
220:
221: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
222: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Source Operating Unit: ' || to_char(l_op_unit_id));
223:
224: GET_OPUNIT_DETAILS(l_op_unit_id,
225: l_error_flag,
226: l_currency_code,

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

302: was inserted. */
303:
304: IF SQL%ROWCOUNT>0 then
305:
306: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting Header : '||to_char(l_req_hdr_id));
308:
309: /* Bug # 1653150
310: Used OE_ACTIONS_IFACE_ALL rather than OE_ACTIONS_INTERFACE as it was

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

303:
304: IF SQL%ROWCOUNT>0 then
305:
306: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
307: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting Header : '||to_char(l_req_hdr_id));
308:
309: /* Bug # 1653150
310: Used OE_ACTIONS_IFACE_ALL rather than OE_ACTIONS_INTERFACE as it was
311: inserting with the Org_id of the Destination Org. This resulted in Sales

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

310: Used OE_ACTIONS_IFACE_ALL rather than OE_ACTIONS_INTERFACE as it was
311: inserting with the Org_id of the Destination Org. This resulted in Sales
312: Order not getting Created in a Booked State. */
313:
314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id');
315:
316: -- Bug 3365408: We need to insert the customer id into
317: -- the sold to org column in the actions interface
318: Begin

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

324: AND nvl(PLA.ORG_ID,-1) = l_op_unit_id
325: AND RL.REQUISITION_LINE_ID = l_req_line_id;
326: Exception
327: When others then
328: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id Exception :' || to_char(sqlcode));
329: l_customer_id:= null;
330: End;
331:
332: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id: ' || l_customer_id);

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

328: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id Exception :' || to_char(sqlcode));
329: l_customer_id:= null;
330: End;
331:
332: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the customer id: ' || l_customer_id);
333:
334: INSERT INTO OE_ACTIONS_IFACE_ALL
335: (ORDER_SOURCE_ID,
336: ORIG_SYS_DOCUMENT_REF,

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

345: l_customer_id -- Bug 3365408
346: );
347: ELSE
348:
349: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
350: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Header not Inserted : '||to_char(l_req_hdr_id));
351:
352: END IF;
353:

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

346: );
347: ELSE
348:
349: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
350: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Header not Inserted : '||to_char(l_req_hdr_id));
351:
352: END IF;
353:
354: END IF; /* end of if it is a new header */

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

393: -- Check #1: Destination type is not Inventory, so null out
394: -- the project and task.
395: l_project_id := NULL;
396: l_task_id := NULL;
397: FND_FILE.put_line(FND_FILE.LOG, 'Destination type is not Inventory - nulling out the project and task.');
398:
399: ELSE -- destation type is Inventory
400: -- Check #2: Call the PJM validation API with the source org.
401: --< Bug 3265539 Start >

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

423: IF ( l_val_proj_result = PO_PROJECT_DETAILS_SV.pjm_validate_failure ) THEN
424: -- PJM validation failed, so null out the project and task.
425: l_project_id := NULL;
426: l_task_id := NULL;
427: FND_FILE.put_line(FND_FILE.LOG, 'PJM validation failed in the source org - nulling out the project and task. Error message follows:');
428: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.get);
429: END IF;
430: --< Bug 3265539 End >
431:

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

424: -- PJM validation failed, so null out the project and task.
425: l_project_id := NULL;
426: l_task_id := NULL;
427: FND_FILE.put_line(FND_FILE.LOG, 'PJM validation failed in the source org - nulling out the project and task. Error message follows:');
428: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.get);
429: END IF;
430: --< Bug 3265539 End >
431:
432: END IF; -- project and task are null

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

625:
626: END LOOP;
627: CLOSE REQ_LINES;
628:
629: Fnd_File.Put_Line(FND_FILE.LOG, '-----');
630:
631: /* Update transferred_to_oe_flag for all rows processed */
632:
633: UPDATE PO_REQUISITION_HEADERS

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

634: SET TRANSFERRED_TO_OE_FLAG =
635: DECODE(TRANSFERRED_TO_OE_FLAG,'I','Y','E','N')
636: WHERE TRANSFERRED_TO_OE_FLAG IN ('I', 'E');
637:
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updating TRANSFERRED_TO_OE_FLAG of '||to_char(SQL%ROWCOUNT)|| ' Requisitions');
639:
640: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');
641:
642: EXCEPTION

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

636: WHERE TRANSFERRED_TO_OE_FLAG IN ('I', 'E');
637:
638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Updating TRANSFERRED_TO_OE_FLAG of '||to_char(SQL%ROWCOUNT)|| ' Requisitions');
639:
640: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');
641:
642: EXCEPTION
643: WHEN OTHERS THEN
644: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unhandled Exception : '||sqlerrm);

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

640: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Create Internal Sales Order');
641:
642: EXCEPTION
643: WHEN OTHERS THEN
644: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unhandled Exception : '||sqlerrm);
645: /* Bug # 1653150
646: Raised a Exception if the process fails for Some reason */
647: raise;
648: END;

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

667: return one row, if not return error and exit subroutine */
668:
669: BEGIN
670:
671: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Currency Code');
672:
673: SELECT glsob.CURRENCY_CODE
674: INTO l_currency_code
675: FROM GL_SETS_OF_BOOKS GLSOB,

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

678: AND nvl(FSP.org_id,-1) = l_op_unit_id;
679:
680: EXCEPTION
681: WHEN NO_DATA_FOUND THEN
682: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CURRENCY_CODE NOT SET');
683: l_error_flag := 'Y';
684: return;
685: WHEN OTHERS THEN
686: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in Currency Code retrieval');

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

682: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CURRENCY_CODE NOT SET');
683: l_error_flag := 'Y';
684: return;
685: WHEN OTHERS THEN
686: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in Currency Code retrieval');
687: l_error_flag := 'Y';
688: return;
689:
690: END;

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

688: return;
689:
690: END;
691:
692: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currency Code : ' || l_currency_code);
693:
694: BEGIN
695:
696: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Order Type');

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

692: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currency Code : ' || l_currency_code);
693:
694: BEGIN
695:
696: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Order Type');
697:
698: SELECT ORDER_TYPE_ID
699: INTO l_ot_id
700: FROM PO_SYSTEM_PARAMETERS_ALL

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

701: WHERE nvl(ORG_ID,-1) = l_op_unit_id;
702:
703: EXCEPTION
704: WHEN NO_DATA_FOUND THEN
705: FND_FILE.PUT_LINE(FND_FILE.LOG, 'System Parameters not found');
706: l_error_flag := 'Y';
707: return;
708: WHEN OTHERS THEN
709: Fnd_File.Put_Line(FND_FILE.LOG, 'Error selecting order type');

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

705: FND_FILE.PUT_LINE(FND_FILE.LOG, 'System Parameters not found');
706: l_error_flag := 'Y';
707: return;
708: WHEN OTHERS THEN
709: Fnd_File.Put_Line(FND_FILE.LOG, 'Error selecting order type');
710: l_error_flag := 'Y';
711: return;
712:
713: END;

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

711: return;
712:
713: END;
714:
715: FND_FILE.PUT_LINE(FND_FILE.LOG,'Order Type ID:'||to_char(l_ot_id));
716:
717: BEGIN
718:
719: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Price List from Order Type');

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

715: FND_FILE.PUT_LINE(FND_FILE.LOG,'Order Type ID:'||to_char(l_ot_id));
716:
717: BEGIN
718:
719: Fnd_File.Put_Line(FND_FILE.LOG, 'Selecting Price List from Order Type');
720:
721: SELECT PRICE_LIST_ID,
722: ACCOUNTING_RULE_ID,
723: INVOICING_RULE_ID

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

731:
732: EXCEPTION
733: WHEN NO_DATA_FOUND THEN
734: FND_MESSAGE.SET_NAME('PO', 'PO_CISO_NO_OE_INFO');
735: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No OE Information');
736: -- l_error_flag := 'Y'; Do not throw error if the Order type is not set in Purchasing options
737: return;
738: WHEN OTHERS THEN
739: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error selecting OE Information');

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

735: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No OE Information');
736: -- l_error_flag := 'Y'; Do not throw error if the Order type is not set in Purchasing options
737: return;
738: WHEN OTHERS THEN
739: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error selecting OE Information');
740: l_error_flag := 'Y';
741: return;
742:
743: END;

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

833: -- for process-process orders. Call get cost API
834:
835: IF (l_src_process_enabled_flag = 'Y' AND l_dest_process_enabled_flag = 'N')
836: THEN
837: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-discrete internal order transfer');
838: ELSIF (l_src_process_enabled_flag = 'N' AND l_dest_process_enabled_flag = 'Y')
839: THEN
840: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-to-process internal order transfer');
841: ELSE

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

836: THEN
837: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-discrete internal order transfer');
838: ELSIF (l_src_process_enabled_flag = 'N' AND l_dest_process_enabled_flag = 'Y')
839: THEN
840: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-to-process internal order transfer');
841: ELSE
842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-process internal order transfer');
843: END IF;
844:

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

838: ELSIF (l_src_process_enabled_flag = 'N' AND l_dest_process_enabled_flag = 'Y')
839: THEN
840: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-to-process internal order transfer');
841: ELSE
842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a process-to-process internal order transfer');
843: END IF;
844:
845: -- get the from ou and to ou
846: -- Bug 7462235 - Changed org_information2 to org_information3 to fetch OU Id

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

929: THEN
930: x_unit_price := 0;
931: END IF;
932:
933: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: Transfer Price = ' || x_unit_price);
934: RETURN x_unit_price;
935:
936: END IF;
937: --

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

936: END IF;
937: --
938: ELSE
939:
940: FND_FILE.PUT_LINE(FND_FILE.LOG, 'INVCONV: This is a discrete-discrete internal order transfer');
941: po_items_sv2.get_item_cost (x_item_id,
942: x_organization_id,
943: x_primary_cost);
944: END IF;