DECLARE
paslrec po_approved_supplier_list_rec;
paarec po_asl_attributes_rec;
padrec po_asl_documents_rec;
chvrec chv_authorizations_rec;
psicrec po_supplier_item_capacity_rec;
psitrec po_supplier_item_tolerance_rec;
x_errors po_asl_api_error_rec;
x_session_key NUMBER;
x_return_status VARCHAR2 (30);
x_return_msg VARCHAR2 (2000);
BEGIN
— Populating values in paslrec
paslrec := NEW po_approved_supplier_list_rec ();
paslrec.user_key := po_tbl_number (1);
paslrec.process_action := po_tbl_varchar30 (‘CREATE’);
paslrec.global_flag := po_tbl_varchar1 (‘Y’);
paslrec.owning_organization_id := po_tbl_number (90);– to be change in the loop
paslrec.owning_organization_dsp := po_tbl_varchar240 (NULL);
paslrec.vendor_business_type := po_tbl_varchar25 (‘DIRECT’);
paslrec.asl_status_id := po_tbl_number (2);
paslrec.asl_status_dsp := po_tbl_varchar25 (NULL);
paslrec.manufacturer_id := po_tbl_number (NULL);
paslrec.manufacturer_dsp := po_tbl_varchar100 (NULL);
paslrec.vendor_id := po_tbl_number (2692);– to be change in the loop
paslrec.vendor_dsp := po_tbl_varchar240 (NULL);
paslrec.item_id := po_tbl_number (9942); — to be change in the loop
paslrec.item_dsp := po_tbl_varchar50 (NULL);
paslrec.category_id := po_tbl_number (NULL);
paslrec.category_dsp := po_tbl_varchar240 (NULL);
paslrec.vendor_site_id := po_tbl_number (18934);– to be change in the loop
paslrec.vendor_site_dsp := po_tbl_varchar50 (NULL);
paslrec.primary_vendor_item := po_tbl_varchar25 (NULL);
paslrec.manufacturer_asl_id := po_tbl_number (NULL);
paslrec.manufacturer_asl_dsp := po_tbl_varchar50 (NULL);
paslrec.review_by_date := po_tbl_date (NULL);
paslrec.comments := po_tbl_varchar240 (NULL);
paslrec.attribute_category := po_tbl_varchar30 (NULL);
paslrec.attribute1 := po_tbl_varchar240 (NULL);
paslrec.attribute2 := po_tbl_varchar240 (NULL);
paslrec.attribute3 := po_tbl_varchar240 (NULL);
paslrec.attribute4 := po_tbl_varchar240 (NULL);
paslrec.attribute5 := po_tbl_varchar240 (NULL);
paslrec.attribute6 := po_tbl_varchar240 (NULL);
paslrec.attribute7 := po_tbl_varchar240 (NULL);
paslrec.attribute8 := po_tbl_varchar240 (NULL);
paslrec.attribute9 := po_tbl_varchar240 (NULL);
paslrec.attribute10 := po_tbl_varchar240 (NULL);
paslrec.attribute11 := po_tbl_varchar240 (NULL);
paslrec.attribute12 := po_tbl_varchar240 (NULL);
paslrec.attribute13 := po_tbl_varchar240 (NULL);
paslrec.attribute14 := po_tbl_varchar240 (NULL);
paslrec.attribute15 := po_tbl_varchar240 (NULL);
paslrec.request_id := po_tbl_number (NULL);
paslrec.program_application_id := po_tbl_number (NULL);
paslrec.program_id := po_tbl_number (NULL);
paslrec.program_update_date := po_tbl_date (NULL);
paslrec.disable_flag := po_tbl_varchar1 (‘N’);
— Populating values in paarec
paarec := NEW po_asl_attributes_rec ();
paarec.user_key := po_tbl_number (1);
paarec.process_action := po_tbl_varchar30 (‘ADD’);
paarec.using_organization_id := po_tbl_number (-1);
paarec.using_organization_dsp := po_tbl_varchar240 (NULL);
paarec.release_generation_method := po_tbl_varchar25 (‘CREATE_AND_APPROVE’);
paarec.release_generation_method_dsp :=
po_tbl_varchar50 (‘Automatic Release’);
paarec.purchasing_unit_of_measure_dsp := po_tbl_varchar25 (NULL);
paarec.enable_plan_schedule_flag_dsp := po_tbl_varchar1 (‘N’);
paarec.enable_ship_schedule_flag_dsp := po_tbl_varchar1 (NULL);
paarec.plan_schedule_type := po_tbl_varchar25 (NULL);
paarec.plan_schedule_type_dsp := po_tbl_varchar50 (NULL);
paarec.ship_schedule_type := po_tbl_varchar25 (NULL);
paarec.ship_schedule_type_dsp := po_tbl_varchar50 (NULL);
paarec.plan_bucket_pattern_id := po_tbl_number (NULL);
paarec.plan_bucket_pattern_dsp := po_tbl_varchar50 (NULL);
paarec.ship_bucket_pattern_id := po_tbl_number (NULL);
paarec.ship_bucket_pattern_dsp := po_tbl_varchar50 (NULL);
paarec.enable_autoschedule_flag_dsp := po_tbl_varchar1 (NULL);
paarec.scheduler_id := po_tbl_number (NULL);
paarec.scheduler_dsp := po_tbl_varchar50 (NULL);
paarec.enable_authorizations_flag_dsp := po_tbl_varchar1 (‘N’);
paarec.vendor_id := po_tbl_number (2692);
paarec.vendor_dsp := po_tbl_varchar240 (NULL);– to be change in the loop
paarec.vendor_site_id := po_tbl_number (18934);– to be change in the loop
paarec.vendor_site_dsp := po_tbl_varchar50 (NULL);
paarec.item_id := po_tbl_number (9942);– to be change in the loop
paarec.item_dsp := po_tbl_varchar50 (NULL);– to be change in the loop
paarec.category_id := po_tbl_number (NULL);
paarec.category_dsp := po_tbl_varchar50 (NULL);
paarec.attribute_category := po_tbl_varchar30 (NULL);
paarec.attribute1 := po_tbl_varchar240 (NULL);
paarec.attribute2 := po_tbl_varchar240 (NULL);
paarec.attribute3 := po_tbl_varchar240 (NULL);
paarec.attribute4 := po_tbl_varchar240 (NULL);
paarec.attribute5 := po_tbl_varchar240 (NULL);
paarec.attribute6 := po_tbl_varchar240 (NULL);
paarec.attribute7 := po_tbl_varchar240 (NULL);
paarec.attribute8 := po_tbl_varchar240 (NULL);
paarec.attribute9 := po_tbl_varchar240 (NULL);
paarec.attribute10 := po_tbl_varchar240 (NULL);
paarec.attribute11 := po_tbl_varchar240 (NULL);
paarec.attribute12 := po_tbl_varchar240 (NULL);
paarec.attribute13 := po_tbl_varchar240 (NULL);
paarec.attribute14 := po_tbl_varchar240 (NULL);
paarec.attribute15 := po_tbl_varchar240 (NULL);
paarec.request_id := po_tbl_number (NULL);
paarec.program_application_id := po_tbl_number (NULL);
paarec.program_id := po_tbl_number (NULL);
paarec.program_update_date := po_tbl_date (NULL);
paarec.price_update_tolerance_dsp := po_tbl_number (NULL);
paarec.processing_lead_time_dsp := po_tbl_number (NULL);
paarec.min_order_qty_dsp := po_tbl_number (10.256);
paarec.fixed_lot_multiple_dsp := po_tbl_number (85.25);
paarec.delivery_calendar_dsp := po_tbl_varchar25 (NULL);
paarec.country_of_origin_code_dsp := po_tbl_varchar25 (NULL);
paarec.enable_vmi_flag_dsp := po_tbl_varchar1 (NULL);
paarec.vmi_min_qty_dsp := po_tbl_number (NULL);
paarec.vmi_max_qty_dsp := po_tbl_number (NULL);
paarec.enable_vmi_auto_replenish_flag := po_tbl_varchar1 (NULL);
paarec.vmi_replenishment_approval := po_tbl_varchar30 (NULL);
paarec.vmi_replenishment_approval_dsp := po_tbl_varchar30 (NULL);
paarec.consigned_from_supp_flag_dsp := po_tbl_varchar1 (NULL);
paarec.last_billing_date := po_tbl_date (NULL);
paarec.consigned_billing_cycle_dsp := po_tbl_number (NULL);
paarec.consume_on_aging_flag_dsp := po_tbl_varchar1 (NULL);
paarec.aging_period_dsp := po_tbl_number (NULL);
paarec.replenishment_method := po_tbl_number (NULL);
paarec.replenishment_method_dsp := po_tbl_varchar50 (NULL);
paarec.vmi_min_days_dsp := po_tbl_number (NULL);
paarec.vmi_max_days_dsp := po_tbl_number (NULL);
paarec.fixed_order_quantity_dsp := po_tbl_number (NULL);
paarec.forecast_horizon_dsp := po_tbl_number (NULL);
–Populating values in padrec
padrec := NEW po_asl_documents_rec ();
padrec.user_key := po_tbl_number (1);
padrec.process_action := po_tbl_varchar30 (‘ADD’);
padrec.using_organization_id := po_tbl_number (-1);
padrec.using_organization_dsp := po_tbl_varchar240 (NULL);
padrec.sequence_num := po_tbl_number (1);
— padrec.document_type_code := po_tbl_varchar25 (NULL);
padrec.document_type_code := po_tbl_varchar25(‘BLANKET’);
padrec.document_type_dsp :=
po_tbl_varchar50 (‘Blanket Purchase Agreement’);
padrec.document_header_id := po_tbl_number (6955937);– to be change in the loop
padrec.document_header_dsp := po_tbl_varchar50 (NULL);
padrec.document_line_id := po_tbl_number (NULL);
padrec.document_line_num_dsp:= po_tbl_number (2);– to be change in the loop
padrec.attribute_category := po_tbl_varchar30 (NULL);
padrec.attribute1 := po_tbl_varchar240 (NULL);
padrec.attribute2 := po_tbl_varchar240 (NULL);
padrec.attribute3 := po_tbl_varchar240 (NULL);
padrec.attribute4 := po_tbl_varchar240 (NULL);
padrec.attribute5 := po_tbl_varchar240 (NULL);
padrec.attribute6 := po_tbl_varchar240 (NULL);
padrec.attribute7 := po_tbl_varchar240 (NULL);
padrec.attribute8 := po_tbl_varchar240 (NULL);
padrec.attribute9 := po_tbl_varchar240 (NULL);
padrec.attribute10 := po_tbl_varchar240 (NULL);
padrec.attribute11 := po_tbl_varchar240 (NULL);
padrec.attribute12 := po_tbl_varchar240 (NULL);
padrec.attribute13 := po_tbl_varchar240 (NULL);
padrec.attribute14 := po_tbl_varchar240 (NULL);
padrec.attribute15 := po_tbl_varchar240 (NULL);
padrec.request_id := po_tbl_number (NULL);
padrec.program_application_id := po_tbl_number (NULL);
padrec.program_id := po_tbl_number (NULL);
padrec.program_update_date := po_tbl_date (NULL);
padrec.org_id := po_tbl_number (NULL);
— Populating values in chvrec
chvrec := NEW chv_authorizations_rec ();
/*chvrec.user_key := po_tbl_number (1);
chvrec.process_action := po_tbl_varchar30 (‘ADD’);
chvrec.using_organization_id := po_tbl_number (-1);
chvrec.using_organization_dsp := po_tbl_varchar240 (NULL);
chvrec.authorization_code := po_tbl_varchar25 (NULL);
chvrec.authorization_code_dsp := po_tbl_varchar50 (‘Raw Materials’);
chvrec.authorization_sequence_dsp := po_tbl_number (3);
chvrec.timefence_days_dsp := po_tbl_number (8.95);
chvrec.attribute_category := po_tbl_varchar30 (NULL);
chvrec.attribute1 := po_tbl_varchar240 (NULL);
chvrec.attribute2 := po_tbl_varchar240 (NULL);
chvrec.attribute3 := po_tbl_varchar240 (NULL);
chvrec.attribute4 := po_tbl_varchar240 (NULL);
chvrec.attribute5 := po_tbl_varchar240 (NULL);
chvrec.attribute6 := po_tbl_varchar240 (NULL);
chvrec.attribute7 := po_tbl_varchar240 (NULL);
chvrec.attribute8 := po_tbl_varchar240 (NULL);
chvrec.attribute9 := po_tbl_varchar240 (NULL);
chvrec.attribute10 := po_tbl_varchar240 (NULL);
chvrec.attribute11 := po_tbl_varchar240 (NULL);
chvrec.attribute12 := po_tbl_varchar240 (NULL);
chvrec.attribute13 := po_tbl_varchar240 (NULL);
chvrec.attribute14 := po_tbl_varchar240 (NULL);
chvrec.attribute15 := po_tbl_varchar240 (NULL);
chvrec.request_id := po_tbl_number (NULL);
chvrec.program_application_id := po_tbl_number (NULL);
chvrec.program_id := po_tbl_number (NULL);
chvrec.program_update_date := po_tbl_date (NULL);*/
–Populating values in psicrec
psicrec := NEW po_supplier_item_capacity_rec ();
/* psicrec.user_key := po_tbl_number (1);
psicrec.process_action := po_tbl_varchar30 (‘ADD’);
psicrec.using_organization_id := po_tbl_number (-1);
psicrec.using_organization_dsp := po_tbl_varchar240 (NULL);
psicrec.from_date_dsp := po_tbl_date (’20-JUL-2012′);
psicrec.to_date_dsp := po_tbl_date (’20-DEC-2012′);
psicrec.capacity_per_day_dsp := po_tbl_number (8.95);
psicrec.attribute_category := po_tbl_varchar30 (NULL);
psicrec.attribute1 := po_tbl_varchar240 (NULL);
psicrec.attribute2 := po_tbl_varchar240 (NULL);
psicrec.attribute3 := po_tbl_varchar240 (NULL);
psicrec.attribute4 := po_tbl_varchar240 (NULL);
psicrec.attribute5 := po_tbl_varchar240 (NULL);
psicrec.attribute6 := po_tbl_varchar240 (NULL);
psicrec.attribute7 := po_tbl_varchar240 (NULL);
psicrec.attribute8 := po_tbl_varchar240 (NULL);
psicrec.attribute9 := po_tbl_varchar240 (NULL);
psicrec.attribute10 := po_tbl_varchar240 (NULL);
psicrec.attribute11 := po_tbl_varchar240 (NULL);
psicrec.attribute12 := po_tbl_varchar240 (NULL);
psicrec.attribute13 := po_tbl_varchar240 (NULL);
psicrec.attribute14 := po_tbl_varchar240 (NULL);
psicrec.attribute15 := po_tbl_varchar240 (NULL);
psicrec.request_id := po_tbl_number (NULL);
psicrec.program_application_id := po_tbl_number (NULL);
psicrec.program_id := po_tbl_number (NULL);
psicrec.program_update_date := po_tbl_date (NULL);*/
–Populating values in psitrec
psitrec := NEW po_supplier_item_tolerance_rec ();
/* psitrec.user_key := po_tbl_number (1);
psitrec.process_action := po_tbl_varchar30 (‘ADD’);
psitrec.using_organization_id := po_tbl_number (-1);
psitrec.using_organization_dsp := po_tbl_varchar240 (NULL);
psitrec.number_of_days_dsp := po_tbl_number (5.62);
psitrec.tolerance_dsp := po_tbl_number (6.358);
psitrec.attribute_category := po_tbl_varchar30 (NULL);
psitrec.attribute1 := po_tbl_varchar240 (NULL);
psitrec.attribute2 := po_tbl_varchar240 (NULL);
psitrec.attribute3 := po_tbl_varchar240 (NULL);
psitrec.attribute4 := po_tbl_varchar240 (NULL);
psitrec.attribute5 := po_tbl_varchar240 (NULL);
psitrec.attribute6 := po_tbl_varchar240 (NULL);
psitrec.attribute7 := po_tbl_varchar240 (NULL);
psitrec.attribute8 := po_tbl_varchar240 (NULL);
psitrec.attribute9 := po_tbl_varchar240 (NULL);
psitrec.attribute10 := po_tbl_varchar240 (NULL);
psitrec.attribute11 := po_tbl_varchar240 (NULL);
psitrec.attribute12 := po_tbl_varchar240 (NULL);
psitrec.attribute13 := po_tbl_varchar240 (NULL);
psitrec.attribute14 := po_tbl_varchar240 (NULL);
psitrec.attribute15 := po_tbl_varchar240 (NULL);
psitrec.request_id := po_tbl_number (NULL);
psitrec.program_application_id := po_tbl_number (NULL);
psitrec.program_id := po_tbl_number (NULL);
psitrec.program_update_date := po_tbl_date (NULL);*/
po_asl_api_pub.create_update_asl (p_asl_rec => paslrec,
p_asl_attr_rec => paarec,
p_asl_doc_rec => padrec,
p_chv_auth_rec => chvrec,
p_capacity_rec => psicrec,
p_tolerance_rec => psitrec,
p_commit => ‘N’,
x_session_key => x_session_key,
x_return_status => x_return_status,
x_return_msg => x_return_msg,
x_errors => x_errors
);
DBMS_OUTPUT.put_line (‘Session Key>>>> ‘ || x_session_key);
DBMS_OUTPUT.put_line (‘Return Status>>>>’ || x_return_status);
DBMS_OUTPUT.put_line (‘Return Msg>>>> ‘ || x_return_msg);
FOR i IN 1 .. x_errors.user_key.COUNT
LOOP
DBMS_OUTPUT.put_line ( ‘Session Key: ‘
|| x_errors.session_key (i)
|| ‘ user key:’
|| x_errors.user_key (i)
|| ‘ entity:’
|| x_errors.entity_name (i)
|| ‘ reason:’
|| x_errors.rejection_reason (i)
);
END LOOP;
FOR j IN 1 .. paslrec.user_key.COUNT
LOOP
DBMS_OUTPUT.put_line ( ‘user key:’
|| paslrec.user_key (j)
|| ‘ status:’
|| paslrec.process_status (j)
|| ‘ Return’ || x_return_status
);
END LOOP;
commit;
END;
