Assigning random serial numbers and ship confirm thru API

 
For I in Delivery_id Loop
L_CHANGED_ATTRIBUTES (L_INDEX2).DELIVERY_DETAIL_ID := I.DELIVERY_DETAIL_ID;
L_CHANGED_ATTRIBUTES (L_INDEX2).SHIPPED_QUANTITY :=   I.SHIPPED_QTY;--
For J in serial_table loop
L_SERIAL_ATTRIBUTES (L_INDEX3).DELIVERY_DETAIL_ID := I.DELIVERY_DETAIL_ID;
L_SERIAL_ATTRIBUTES (L_INDEX3).FROM_SERIAL_NUMBER := J.SERIAL_NUMBER;
L_SERIAL_ATTRIBUTES (L_INDEX3).TO_SERIAL_NUMBER := J.SERIAL_NUMBER;
L_SERIAL_ATTRIBUTES (L_INDEX3).QUANTITY :=1;

WSH_DELIVERY_DETAILS_PUB.UPDATE_SHIPPING_ATTRIBUTES
(P_API_VERSION_NUMBER => 1.0,
P_INIT_MSG_LIST => INIT_MSG_LIST,
P_COMMIT => L_COMMIT,
X_RETURN_STATUS => X_RETURN_STATUS,
X_MSG_COUNT => X_MSG_COUNT,
X_MSG_DATA => X_MSG_DATA,
P_CHANGED_ATTRIBUTES => L_CHANGED_ATTRIBUTES,
P_SOURCE_CODE => L_SOURCE_CODE,
P_SERIAL_RANGE_TAB => L_SERIAL_ATTRIBUTES
);
End Loop --For I
End Loop -- For J