1: package body WMS_LABEL_FIELDS_PKG as
2: /* $Header: WMSLBFLB.pls 120.0 2005/05/24 19:11:22 appldev noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_LABEL_FIELD_ID in NUMBER,
500: --
501: SELECT Sysdate INTO l_sysdate FROM dual;
502: l_label_field_id := fnd_number.canonical_to_number(x_label_field_id);
503: l_document_id := fnd_number.canonical_to_number(x_document_id);
504: wms_label_fields_pkg.update_row
505: (
506: x_label_field_id => l_label_field_id
507: ,x_document_id => l_document_id
508: ,x_field_list_updated_flag => x_field_list_updated_flag
531: ,x_wms_exclusive => x_wms_exclusive
532: );
533: EXCEPTION
534: WHEN no_data_found THEN
535: wms_label_fields_pkg.insert_row
536: (
537: x_rowid => l_row_id
538: ,x_label_field_id => l_label_field_id
539: ,x_document_id => l_document_id
569: ,x_wms_exclusive => x_wms_exclusive
570: );
571: END;
572: END load_row;
573: end WMS_LABEL_FIELDS_PKG;