518: -- we insert all the records with same packet ID.
519:
520: SELECT GL_BC_PACKETS_S.nextval
521: INTO x_packet_id
522: FROM DUAL;
523:
524: l_progress := '020';
525:
526: IF g_debug_stmt THEN
711: l_progress := '110';
712:
713: -- Updating event_type_code for main record.
714: UPDATE po_bc_distributions pbd
715: SET event_type_code = (select get_event_type_code(pbd.distribution_type,p_action) from dual)
716: WHERE packet_id = x_packet_id
717: AND main_or_backing_code = 'M'
718: RETURNING sequence_number
719: BULK COLLECT
4153: l_progress := '010';
4154:
4155: SELECT PO_ONLINE_REPORT_TEXT_S.nextval
4156: INTO l_report_id
4157: FROM dual;
4158:
4159: l_progress := '020';
4160:
4161: l_user_id := NVL(p_user_id,0);