19: IS
20:
21: CURSOR c_ps_rows IS
22: SELECT *
23: FROM flm_ekb_pull_seq_interface
24: WHERE group_id = p_group_id
25: AND process_status = flm_kanban_massload.running
26: ORDER BY interface_id;
27:
26: ORDER BY interface_id;
27:
28: CURSOR c_supplier_rows IS
29: SELECT ksi.*
30: FROM flm_ekb_pull_seq_interface psi,
31: flm_ekb_supplier_interface ksi
32: WHERE psi.interface_id = ksi.parent_interface_id
33: AND psi.process_status = flm_kanban_massload.running
34: AND psi.group_id = p_group_id
36:
37: BEGIN
38:
39: --set process_status to running..
40: UPDATE flm_ekb_pull_seq_interface
41: SET process_status = flm_kanban_massload.running,
42: request_id = FND_GLOBAL.CONC_REQUEST_ID,
43: program_application_id = FND_GLOBAL.PROG_APPL_ID,
44: program_id = FND_GLOBAL.CONC_PROGRAM_ID,
160: x_ret_status => l_ret_status);
161:
162: -- update pull seq interface status
163: FORALL i IN g_pull_seq_tbl.FIRST..g_pull_seq_tbl.LAST
164: UPDATE flm_ekb_pull_seq_interface
165: SET pull_sequence_id = g_pull_seq_tbl(i).pull_sequence_id,
166: process_status = g_pull_seq_tbl(i).process_status,
167: error_text = g_pull_seq_tbl(i).error_text
168: WHERE interface_id = g_pull_seq_tbl(i).interface_id;