[Home] [Help]
538: x_bucket_end_date_table);
539:
540: ---- dbms_output.put_line('Build Schedules: end Date'||to_char(x_horizon_end_date,'DD-MON-YYYY'));
541:
542: -- Insert a new row into CHV_SCHEDULE_HEADERS.
543: -- Before that, get a new unique schedule header ID.
544: -- Any error will be caught at the exception at the end of the procedure.
545: x_progress := '050';
546: SELECT chv_schedule_headers_s.NEXTVAL
542: -- Insert a new row into CHV_SCHEDULE_HEADERS.
543: -- Before that, get a new unique schedule header ID.
544: -- Any error will be caught at the exception at the end of the procedure.
545: x_progress := '050';
546: SELECT chv_schedule_headers_s.NEXTVAL
547: INTO x_schedule_id
548: FROM DUAL;
549:
550: ---- dbms_output.put_line('Schedule Header id'||x_schedule_id);
548: FROM DUAL;
549:
550: ---- dbms_output.put_line('Schedule Header id'||x_schedule_id);
551:
552: ---- dbms_output.put_line('Build_schedule: insert into chv_schedule_headers');
553:
554: ---- dbms_output.put_line('Build_schedule: schedule id'||x_schedule_id);
555: ---- dbms_output.put_line('Build_schedule: vendor id'||x_vendor_id);
556: ---- dbms_output.put_line('Build_schedule: site id'||x_vendor_site_id);
564: ---- dbms_output.put_line('Build_schedule: user id'||x_user_id);
565: ---- dbms_output.put_line('Build_schedule: login id'||x_login_id);
566:
567: x_progress := '060';
568: INSERT INTO chv_schedule_headers(schedule_id,
569: vendor_id,
570: vendor_site_id,
571: schedule_type,
572: schedule_subtype,
670: x_progress := '075';
671:
672: ---- dbms_output.put_line('deleteing the schedule header');
673:
674: DELETE from chv_schedule_headers
675: where schedule_id = x_schedule_id;
676:
677: ELSE
678:
711: INTO x_transmission_method
712: FROM ece_tp_headers eth,
713: ece_tp_details etd,
714: po_vendor_sites pvs,
715: chv_schedule_headers csh
716: WHERE eth.tp_header_id = etd.tp_header_id
717: AND decode(csh.schedule_type, 'PLAN_SCHEDULE', 'SPSO', 'SSSO') =
718: etd.document_id
719: AND eth.tp_header_id = pvs.tp_header_id
723: /*
724: SELECT transmission_method
725: INTO x_transmission_method
726: FROM ECE_CONTROL ECC,
727: CHV_SCHEDULE_HEADERS CSH
728: WHERE CSH.schedule_id = x_schedule_id
729: AND decode(CSH.schedule_type, 'PLAN_SCHEDULE', 'SPSO', 'SSSO')
730: = ECC.DOCUMENT_TYPE
731: AND CSH.vendor_id = ECC.entity_id
759: -- that they should be sent.
760: IF (x_transmission_method = 'Y' AND
761: p_communication_code = 'EDI') THEN
762:
763: UPDATE chv_schedule_headers
764: SET communication_code = 'EDI'
765: WHERE schedule_id = x_schedule_id;
766:
767: x_edi_set := 'Y';
768:
769: ELSIF (x_transmission_method = 'Y' AND
770: p_communication_code = 'BOTH' ) THEN
771:
772: UPDATE chv_schedule_headers
773: SET communication_code = 'BOTH'
774: WHERE schedule_id = x_schedule_id;
775:
776: x_edi_set := 'Y';
778: ELSIF ((x_transmission_method <> 'Y' AND
779: p_communication_code = 'BOTH') OR
780: (p_communication_code = 'PRINT')) THEN
781:
782: UPDATE chv_schedule_headers
783: SET communication_code = 'PRINT'
784: WHERE schedule_id = x_schedule_id;
785:
786: END IF;
1244: -- Select the next largest number to be used for the next schedule
1245: -- generated today; Set the revision to 0 for a new schedule.
1246: x_progress := '010';
1247:
1248: SELECT chv_schedule_headers_s2.NEXTVAL
1249: INTO x_count_l
1250: FROM DUAL;
1251:
1252: x_schedule_num := TO_CHAR(SYSDATE, 'YYYYMMDD') || '-' ||
1259: -- Select the next largest revision number for a given schedule;
1260: x_progress := '020';
1261: SELECT NVL(MAX(schedule_revision),0) + 1
1262: INTO x_count_l
1263: FROM chv_schedule_headers
1264: WHERE schedule_num = x_schedule_num;
1265:
1266: x_schedule_revision := x_count_l;
1267: