Batch returns from loop

Question

I have a procedure which creates tickets to be printed. However I would like to amend this procedure so that the user can input the number of tickets s/he will be printing and then loop through my current procedure to generate them all at once.
I have been staring at this for 30 min and decided to post. It is probably glaringly obvious, but I am in need of help.
TIA
PROCEDURE create_inv (
MS_ID_IN IN mfg_stations.ms_id%TYPE,
ITEM_CODE_IN IN mfg_stations.item_code_dnmlz%TYPE,
UOM_CODE_IN IN mfg_stations.inv_uom_code_dnmlz%TYPE,
PROCESS_NAME_IN IN mfg_stations.process_name_dnmlz%TYPE,
ZONE_IN IN mfg_stations.zone_dnmlz%TYPE,
LOT_CODE_IN IN mfg_stations.lot_code_dnmlz%TYPE,
GRADE_CODE_IN IN mfg_stations.grade_code_dnmlz%TYPE,
CREATED_QTY_IN IN mfg_stations.created_qty_dnmlz%TYPE,
INV_STATUS_IN IN mfg_stations.inv_status_dnmlz%TYPE,
ret_val_out OUT ret_val_curtype) IS
-- Cursor Var...
new_iu_id inventory_units.iu_id%TYPE;
new_i_id items.i_id%TYPE;
new_im_id item_uoms.im_id%TYPE;
new_g_id grades.g_id%TYPE;
new_l_id locations.l_id%TYPE;
new_mfp_id mfg_processes.mfp_id%TYPE;
new_z_id zones.z_id%TYPE;
created_ts DATE;
mod_ts DATE;
BEGIN
select iu_seq.nextval
into new_iu_id
from dual;
select i_id
into new_i_id
from items
where item_code = item_code_in;
select im_id
into new_im_id
from item_uoms
where inv_uom_code = uom_code_in;
select g_id
into new_g_id
from grades
where grade_code = grade_code_in;
select l_id
into new_l_id
from mfg_stations
where ms_id = ms_id_in;
select mfp_id
into new_mfp_id
from mfg_processes
where l_id = new_l_id
and process_name = process_name_in;
select z_id
into new_z_id
from zones
where zone = zone_in;
select general_pkg.usertime(sysdate),
trunc(general_pkg.usertime(sysdate))
into created_ts,
mod_ts
from dual;
/* INSERT */
insert into inventory_units
IU_ID,
I_ID,
LOT_CODE,
INV_STATUS,
IM_ID,
G_ID,
MFP_ID,
MS_ID,
CREATED_QTY,
CURRENT_QTY,
Z_ID,
CREATED_TIMESTAMP,
MOD_TIMESTAMP,
CB_USER
values
new_iu_id,
new_i_id,
lot_code_in,
inv_status_in,
new_im_id,
new_g_id,
new_mfp_id,
ms_id_in,
created_qty_in,
created_qty_in, /* current gets same initial value as created */
new_z_id,
created_ts,
mod_ts,
user
COMMIT;
/* UPDATE */
UPDATE MFG_STATIONS
SET NEXT_SERIAL_CODE = NEXT_SERIAL_CODE,
LOT_CODE_DNMLZ = lot_code_in,
INV_STATUS_DNMLZ = inv_status_in,
CREATED_QTY_DNMLZ = created_qty_in,
PROCESS_NAME_DNMLZ = process_name_in,
PROCESS_TYPE_DNMLZ = process_type_dnmlz, /* From Database Trigger on insert */
ITEM_CODE_DNMLZ = item_code_in,
GRADE_CODE_DNMLZ = grade_code_in,
ZONE_DNMLZ = zone_in,
INV_UOM_CODE_DNMLZ = uom_code_in
WHERE MS_ID = ms_id_in;
COMMIT;
OPEN ret_val_out FOR
select new_iu_id
from dual;
END;
null

Answer 1

I have a procedure which creates tickets to be printed. However I would like to amend this procedure so that the user can input the number of tickets s/he will be printing and then loop through my current procedure to generate them all at once.
I have been staring at this for 30 min and decided to post. It is probably glaringly obvious, but I am in need of help.
TIA
PROCEDURE create_inv (
MS_ID_IN IN mfg_stations.ms_id%TYPE,
ITEM_CODE_IN IN mfg_stations.item_code_dnmlz%TYPE,
UOM_CODE_IN IN mfg_stations.inv_uom_code_dnmlz%TYPE,
PROCESS_NAME_IN IN mfg_stations.process_name_dnmlz%TYPE,
ZONE_IN IN mfg_stations.zone_dnmlz%TYPE,
LOT_CODE_IN IN mfg_stations.lot_code_dnmlz%TYPE,
GRADE_CODE_IN IN mfg_stations.grade_code_dnmlz%TYPE,
CREATED_QTY_IN IN mfg_stations.created_qty_dnmlz%TYPE,
INV_STATUS_IN IN mfg_stations.inv_status_dnmlz%TYPE,
ret_val_out OUT ret_val_curtype) IS
-- Cursor Var...
new_iu_id inventory_units.iu_id%TYPE;
new_i_id items.i_id%TYPE;
new_im_id item_uoms.im_id%TYPE;
new_g_id grades.g_id%TYPE;
new_l_id locations.l_id%TYPE;
new_mfp_id mfg_processes.mfp_id%TYPE;
new_z_id zones.z_id%TYPE;
created_ts DATE;
mod_ts DATE;
BEGIN
select iu_seq.nextval
into new_iu_id
from dual;
select i_id
into new_i_id
from items
where item_code = item_code_in;
select im_id
into new_im_id
from item_uoms
where inv_uom_code = uom_code_in;
select g_id
into new_g_id
from grades
where grade_code = grade_code_in;
select l_id
into new_l_id
from mfg_stations
where ms_id = ms_id_in;
select mfp_id
into new_mfp_id
from mfg_processes
where l_id = new_l_id
and process_name = process_name_in;
select z_id
into new_z_id
from zones
where zone = zone_in;
select general_pkg.usertime(sysdate),
trunc(general_pkg.usertime(sysdate))
into created_ts,
mod_ts
from dual;
/* INSERT */
insert into inventory_units
IU_ID,
I_ID,
LOT_CODE,
INV_STATUS,
IM_ID,
G_ID,
MFP_ID,
MS_ID,
CREATED_QTY,
CURRENT_QTY,
Z_ID,
CREATED_TIMESTAMP,
MOD_TIMESTAMP,
CB_USER
values
new_iu_id,
new_i_id,
lot_code_in,
inv_status_in,
new_im_id,
new_g_id,
new_mfp_id,
ms_id_in,
created_qty_in,
created_qty_in, /* current gets same initial value as created */
new_z_id,
created_ts,
mod_ts,
user
COMMIT;
/* UPDATE */
UPDATE MFG_STATIONS
SET NEXT_SERIAL_CODE = NEXT_SERIAL_CODE,
LOT_CODE_DNMLZ = lot_code_in,
INV_STATUS_DNMLZ = inv_status_in,
CREATED_QTY_DNMLZ = created_qty_in,
PROCESS_NAME_DNMLZ = process_name_in,
PROCESS_TYPE_DNMLZ = process_type_dnmlz, /* From Database Trigger on insert */
ITEM_CODE_DNMLZ = item_code_in,
GRADE_CODE_DNMLZ = grade_code_in,
ZONE_DNMLZ = zone_in,
INV_UOM_CODE_DNMLZ = uom_code_in
WHERE MS_ID = ms_id_in;
COMMIT;
OPEN ret_val_out FOR
select new_iu_id
from dual;
END;
null