DBA Data[Home] [Help]

APPS.PO_SOURCING_RULES_SV dependencies on PO_DEBUG

Line 146: PO_DEBUG.put_line(' Creating sourcing rule for the item ...');

142:
143: --Setting of this flag is now done before the call to the procedure.
144: --X_header_processable_flag := 'Y'; --
145: IF (g_po_pdoi_write_to_file = 'Y') THEN
146: PO_DEBUG.put_line(' Creating sourcing rule for the item ...');
147: END IF;
148:
149:
150: ----

Line 187: PO_DEBUG.put_line(' Creating call rule for the item ...');

183: IF ((X_header_processable_flag = 'Y') and
184: ((p_create_update_code = 'CREATE')
185: OR (p_create_update_code ='CREATE_UPDATE'))) THEN
186: IF (g_po_pdoi_write_to_file = 'Y') THEN
187: PO_DEBUG.put_line(' Creating call rule for the item ...');
188: END IF;
189: PO_SOURCING_RULES_SV.create_sourcing_rule(
190: x_interface_header_id =>p_interface_header_id,
191: x_interface_line_id =>p_interface_line_id,

Line 394: PO_DEBUG.put_line(' Vendor Site from doc: ' || to_char (x_vendor_site_id));

390:
391: --
392:
393: IF (g_po_pdoi_write_to_file = 'Y') THEN
394: PO_DEBUG.put_line(' Vendor Site from doc: ' || to_char (x_vendor_site_id));
395: END IF;
396:
397:
398: -- Check to see if there is an item level assignment for

Line 463: PO_DEBUG.put_line(' Inserting Record in Mrp Sourcing Rules');

459:
460: X_progress := '030';
461: IF (x_sourcing_rule_id is NULL) THEN
462: IF (g_po_pdoi_write_to_file = 'Y') THEN
463: PO_DEBUG.put_line(' Inserting Record in Mrp Sourcing Rules');
464: END IF;
465:
466: SELECT MRP_SOURCING_RULES_S.NEXTVAL
467: INTO x_sourcing_rule_id

Line 497: PO_DEBUG.put_line(' Inserting Record in Mrp Sr Receipt Org');

493: 1 -- planning_active (1=ACTIVE)
494: );
495:
496: IF (g_po_pdoi_write_to_file = 'Y') THEN
497: PO_DEBUG.put_line(' Inserting Record in Mrp Sr Receipt Org');
498: END IF;
499:
500: SELECT MRP_SR_RECEIPT_ORG_S.NEXTVAL
501: INTO x_sr_receipt_id

Line 531: PO_DEBUG.put_line(' Inserting Record in Mrp Sr Source Org');

527: l_organization_id----
528: );
529:
530: IF (g_po_pdoi_write_to_file = 'Y') THEN
531: PO_DEBUG.put_line(' Inserting Record in Mrp Sr Source Org');
532: END IF;
533:
534: X_progress := '050';
535: SELECT MRP_SR_SOURCE_ORG_S.NEXTVAL

Line 569: PO_DEBUG.put_line(' Assigning Sourcing Rule at Item level');

565: x_last_update_login
566: );
567:
568: IF (g_po_pdoi_write_to_file = 'Y') THEN
569: PO_DEBUG.put_line(' Assigning Sourcing Rule at Item level');
570: END IF;
571:
572: X_progress := '060';
573: -- Assign at Item level

Line 592: PO_DEBUG.put_line('Cannot create ASL entry; item not defined in inv org. Insert warning msg');

588:
589: EXCEPTION
590: WHEN NO_DATA_FOUND THEN
591: IF (g_po_pdoi_write_to_file = 'Y') THEN
592: PO_DEBUG.put_line('Cannot create ASL entry; item not defined in inv org. Insert warning msg');
593: END IF;
594: PO_INTERFACE_ERRORS_SV1.handle_interface_errors
595: ( x_interface_type => 'PO_DOCS_OPEN_INTERFACE'
596: , x_error_type => 'WARNING'

Line 675: PO_DEBUG.put_line(v_error_msg);

671: --
672: v_error_code := SQLCODE;
673: v_error_msg := SUBSTR (SQLERRM, 1, 2000);
674: IF (g_po_pdoi_write_to_file = 'Y') THEN
675: PO_DEBUG.put_line(v_error_msg);
676: PO_DEBUG.put_line(v_error_code);
677: END IF;
678: --
679:

Line 676: PO_DEBUG.put_line(v_error_code);

672: v_error_code := SQLCODE;
673: v_error_msg := SUBSTR (SQLERRM, 1, 2000);
674: IF (g_po_pdoi_write_to_file = 'Y') THEN
675: PO_DEBUG.put_line(v_error_msg);
676: PO_DEBUG.put_line(v_error_code);
677: END IF;
678: --
679:
680: --dbms_output.put_line('...2');

Line 824: PO_DEBUG.put_line('Trying to lock the sourcing rule');

820: FOR i IN 1..1000
821: LOOP
822: BEGIN
823: X_progress := '000';
824: PO_DEBUG.put_line('Trying to lock the sourcing rule');
825: PO_LOCKS.lock_sourcing_rules(
826: p_sourcing_rule_id => x_sourcing_rule_id
827: );
828: l_locked_doc := TRUE;

Line 839: PO_DEBUG.put_line('failed to lock the sourcing rule after 1000 tries');

835: END LOOP; -- for i in 1..1000
836:
837: IF (NOT l_locked_doc)
838: THEN
839: PO_DEBUG.put_line('failed to lock the sourcing rule after 1000 tries');
840: RAISE PO_CORE_S.g_early_return_exc;
841: END IF;
842:
843: --bug10330313

Line 918: PO_DEBUG.put_line(' Vendor Site: ' || to_char (x_vendor_site_id));

914:
915: --
916:
917: IF (g_po_pdoi_write_to_file = 'Y') THEN
918: PO_DEBUG.put_line(' Vendor Site: ' || to_char (x_vendor_site_id));
919: END IF;
920:
921: /* Bug 12344417 Added nvl clause in effective_date and disable_date */
922: SELECT count(*) into x_within_vendor_cnt

Line 937: PO_DEBUG.put_line(' x_within_vendor_cnt: ' || to_char (x_within_vendor_cnt));

933: AND (msso.vendor_site_id = x_vendor_site_id or
934: (msso.vendor_site_id is NULL and x_vendor_site_id is null));
935:
936: IF (g_po_pdoi_write_to_file = 'Y') THEN
937: PO_DEBUG.put_line(' x_within_vendor_cnt: ' || to_char (x_within_vendor_cnt));
938: END IF;
939:
940: SELECT count(*)
941: INTO x_assignment_count

Line 946: PO_DEBUG.put_line(' x_assignment_count: ' || to_char(x_assignment_count));

942: FROM mrp_sr_assignments
943: WHERE sourcing_rule_id = x_sourcing_rule_id;
944:
945: IF (g_po_pdoi_write_to_file = 'Y') THEN
946: PO_DEBUG.put_line(' x_assignment_count: ' || to_char(x_assignment_count));
947: END IF;
948:
949: SELECT count(*)
950: INTO x_item_assignment_count

Line 958: PO_DEBUG.put_line(' x_item_assignment_count: ' || to_char (x_item_assignment_count));

954: AND inventory_item_id = X_item_id
955: AND assignment_set_id = X_assignment_set_id ;
956:
957: IF (g_po_pdoi_write_to_file = 'Y') THEN
958: PO_DEBUG.put_line(' x_item_assignment_count: ' || to_char (x_item_assignment_count));
959: END IF;
960:
961: /* If x_within_vendor_cnt is 0, then it means that there is no
962: * sourcing rule with the same encompassing effective dates and

Line 987: PO_DEBUG.put_line(' The existing sourcing rule is assgned elsewhere and does not

983:
984: -- insert into po interface errors
985:
986: IF (g_po_pdoi_write_to_file = 'Y') THEN
987: PO_DEBUG.put_line(' The existing sourcing rule is assgned elsewhere and does not
988: match with the vendor provided in the blanket');
989: END IF;
990:
991: X_process_flag := 'N';

Line 1018: PO_DEBUG.put_line(' Startdate' || to_char(x_start_date,'dd-mon-yy'));

1014: OPEN C2;
1015: FETCH C2 INTO x_sr_receipt_id, x_effective_date, x_disable_date;
1016:
1017: IF (g_po_pdoi_write_to_file = 'Y') THEN
1018: PO_DEBUG.put_line(' Startdate' || to_char(x_start_date,'dd-mon-yy'));
1019: PO_DEBUG.put_line(' End date' || to_char (x_end_date,'dd-mon-yy'));
1020: END IF;
1021:
1022:

Line 1019: PO_DEBUG.put_line(' End date' || to_char (x_end_date,'dd-mon-yy'));

1015: FETCH C2 INTO x_sr_receipt_id, x_effective_date, x_disable_date;
1016:
1017: IF (g_po_pdoi_write_to_file = 'Y') THEN
1018: PO_DEBUG.put_line(' Startdate' || to_char(x_start_date,'dd-mon-yy'));
1019: PO_DEBUG.put_line(' End date' || to_char (x_end_date,'dd-mon-yy'));
1020: END IF;
1021:
1022:
1023: IF C2%FOUND THEN

Line 1031: PO_DEBUG.put_line(' The effectivity dates do not match');

1027:
1028: -- insert into po interface errors
1029:
1030: IF (g_po_pdoi_write_to_file = 'Y') THEN
1031: PO_DEBUG.put_line(' The effectivity dates do not match');
1032: END IF;
1033:
1034: X_process_flag := 'N';
1035: po_interface_errors_sv1.handle_interface_errors(

Line 1244: PO_DEBUG.put_line(' Check to see if the effectivity dates of new sourcing rule falls within the existing sourcing rules effectivity dates');

1240: If it does then dont do anything and proceed further else
1241: insert into mrp_sr_receipt_org */
1242:
1243: IF (g_po_pdoi_write_to_file = 'Y') THEN
1244: PO_DEBUG.put_line(' Check to see if the effectivity dates of new sourcing rule falls within the existing sourcing rules effectivity dates');
1245: END IF;
1246:
1247:
1248: IF (g_po_pdoi_write_to_file = 'Y') THEN

Line 1249: PO_DEBUG.put_line(' Inserting Record MSRO for existing rule');

1245: END IF;
1246:
1247:
1248: IF (g_po_pdoi_write_to_file = 'Y') THEN
1249: PO_DEBUG.put_line(' Inserting Record MSRO for existing rule');
1250: END IF;
1251:
1252: X_progress := '080';
1253: SELECT count(*) into x_sourcing_rule_within

Line 1305: PO_DEBUG.put_line(' Vendor Rank' || to_char(x_vendor_rank));

1301: FROM MRP_SR_SOURCE_ORG MSSO
1302: WHERE sr_receipt_id = x_sr_receipt_id;
1303:
1304: IF (g_po_pdoi_write_to_file = 'Y') THEN
1305: PO_DEBUG.put_line(' Vendor Rank' || to_char(x_vendor_rank));
1306: PO_DEBUG.put_line(' Inserting Record MSSO for existing rule');
1307: END IF;
1308:
1309: INSERT INTO MRP_SR_SOURCE_ORG(

Line 1306: PO_DEBUG.put_line(' Inserting Record MSSO for existing rule');

1302: WHERE sr_receipt_id = x_sr_receipt_id;
1303:
1304: IF (g_po_pdoi_write_to_file = 'Y') THEN
1305: PO_DEBUG.put_line(' Vendor Rank' || to_char(x_vendor_rank));
1306: PO_DEBUG.put_line(' Inserting Record MSSO for existing rule');
1307: END IF;
1308:
1309: INSERT INTO MRP_SR_SOURCE_ORG(
1310: sr_source_id,

Line 1344: PO_DEBUG.put_line(' New Vendor Rank ' || to_char(x_vendor_rank));

1340: END IF; -- C2%FOUND
1341:
1342: ELSE -- if c1%notfound
1343: IF (g_po_pdoi_write_to_file = 'Y') THEN
1344: PO_DEBUG.put_line(' New Vendor Rank ' || to_char(x_vendor_rank));
1345: END IF;
1346: X_progress := '090';
1347:
1348: -- Check to see if the item already has a sourcing rule with the same

Line 1368: PO_DEBUG.put_line(' The sourcing rule for this effectivity date already has this vendor');

1364:
1365: IF x_vendor_count_on_sr > 0 THEN
1366:
1367: IF (g_po_pdoi_write_to_file = 'Y') THEN
1368: PO_DEBUG.put_line(' The sourcing rule for this effectivity date already has this vendor');
1369: END IF;
1370:
1371: -- It is Not an error as we may still need to add the
1372: -- document to the ASL.

Line 1393: PO_DEBUG.put_line(' New Vendor Rank ' || to_char(x_vendor_rank));

1389: FROM MRP_SR_SOURCE_ORG MSSO
1390: WHERE sr_receipt_id = x_sr_receipt_id;
1391:
1392: IF (g_po_pdoi_write_to_file = 'Y') THEN
1393: PO_DEBUG.put_line(' New Vendor Rank ' || to_char(x_vendor_rank));
1394: END IF;*/
1395:
1396: Update Mrp_Sr_Source_Org
1397: Set Rank = Rank + 1

Line 1449: PO_DEBUG.put_line('Assigning Sourcing Rule at Item level');

1445: item to the assignment set below. */
1446: if ((X_temp_sourcing_rule_id is not null) and
1447: (X_header_processable_flag = 'Y')) then
1448: IF (g_po_pdoi_write_to_file = 'Y') THEN
1449: PO_DEBUG.put_line('Assigning Sourcing Rule at Item level');
1450: END IF;
1451:
1452: X_progress := '110';
1453: /* FPH. In the where claue below we used to check

Line 1479: PO_DEBUG.put_line('Cannot create ASL entry; item not defined in inv org. Insert warning msg');

1475:
1476: EXCEPTION
1477: WHEN NO_DATA_FOUND THEN
1478: IF (g_po_pdoi_write_to_file = 'Y') THEN
1479: PO_DEBUG.put_line('Cannot create ASL entry; item not defined in inv org. Insert warning msg');
1480: END IF;
1481: PO_INTERFACE_ERRORS_SV1.handle_interface_errors
1482: ( x_interface_type => 'PO_DOCS_OPEN_INTERFACE'
1483: , x_error_type => 'WARNING'

Line 1552: PO_DEBUG.put_line(v_error_msg);

1548: WHEN OTHERS THEN
1549: v_error_code := SQLCODE;
1550: v_error_msg := SUBSTR (SQLERRM, 1, 2000);
1551: IF (g_po_pdoi_write_to_file = 'Y') THEN
1552: PO_DEBUG.put_line(v_error_msg);
1553: PO_DEBUG.put_line(v_error_code);
1554: END IF;
1555: x_running_status := 'N';
1556: x_header_processable_flag := 'N';

Line 1553: PO_DEBUG.put_line(v_error_code);

1549: v_error_code := SQLCODE;
1550: v_error_msg := SUBSTR (SQLERRM, 1, 2000);
1551: IF (g_po_pdoi_write_to_file = 'Y') THEN
1552: PO_DEBUG.put_line(v_error_msg);
1553: PO_DEBUG.put_line(v_error_code);
1554: END IF;
1555: x_running_status := 'N';
1556: x_header_processable_flag := 'N';
1557: po_message_s.sql_error('update_sourcing_rule', x_progress, sqlcode);

Line 1579: PO_DEBUG.put_line(' Validating sourcing rule Inputs ...');

1575: x_asl_status_id number := null;
1576: X_progress VARCHAR2(3) := NULL;
1577: begin
1578: IF (g_po_pdoi_write_to_file = 'Y') THEN
1579: PO_DEBUG.put_line(' Validating sourcing rule Inputs ...');
1580: END IF;
1581:
1582: X_progress := '020';
1583: IF (X_start_date is not null) AND (X_end_date is not null) THEN

Line 1687: PO_DEBUG.put_line(' ** ERROR: Please set the following site level profile option');

1683:
1684: ----
1685: IF x_assignment_set_id IS NULL THEN
1686: IF (g_po_pdoi_write_to_file = 'Y') THEN
1687: PO_DEBUG.put_line(' ** ERROR: Please set the following site level profile option');
1688: PO_DEBUG.put_line(' ** before proceeding with this upgrade: ');
1689: PO_DEBUG.put_line(' ** MRP: Default Sourcing Assignment Set');
1690: END IF;
1691: X_process_flag := 'N';

Line 1688: PO_DEBUG.put_line(' ** before proceeding with this upgrade: ');

1684: ----
1685: IF x_assignment_set_id IS NULL THEN
1686: IF (g_po_pdoi_write_to_file = 'Y') THEN
1687: PO_DEBUG.put_line(' ** ERROR: Please set the following site level profile option');
1688: PO_DEBUG.put_line(' ** before proceeding with this upgrade: ');
1689: PO_DEBUG.put_line(' ** MRP: Default Sourcing Assignment Set');
1690: END IF;
1691: X_process_flag := 'N';
1692: po_interface_errors_sv1.handle_interface_errors(

Line 1689: PO_DEBUG.put_line(' ** MRP: Default Sourcing Assignment Set');

1685: IF x_assignment_set_id IS NULL THEN
1686: IF (g_po_pdoi_write_to_file = 'Y') THEN
1687: PO_DEBUG.put_line(' ** ERROR: Please set the following site level profile option');
1688: PO_DEBUG.put_line(' ** before proceeding with this upgrade: ');
1689: PO_DEBUG.put_line(' ** MRP: Default Sourcing Assignment Set');
1690: END IF;
1691: X_process_flag := 'N';
1692: po_interface_errors_sv1.handle_interface_errors(
1693: X_po_interface_error_code,