57: CLOSE c_supplier_rows;
58:
59: EXCEPTION
60: WHEN OTHERS THEN
61: x_ret_status := FND_API.G_RET_STS_ERROR;
62: fnd_message.set_name('FLM', 'FLM_INTERFACE_ERR');
63: x_err_msg := fnd_message.get;
64:
65: END read_pull_sequence_interface;
100: CLOSE c_card_rows;
101:
102: EXCEPTION
103: WHEN OTHERS THEN
104: x_ret_status := FND_API.G_RET_STS_ERROR;
105: fnd_message.set_name('FLM', 'FLM_INTERFACE_ERR');
106: x_err_msg := fnd_message.get;
107:
108: END read_cards_interface;
125: read_pull_sequence_interface(p_group_id => p_group_id,
126: x_ret_status => l_ret_status,
127: x_err_msg => l_error_msg);
128:
129: IF l_ret_status = FND_API.G_RET_STS_ERROR THEN
130: retcode := 2;
131: fnd_message.set_name('FLM','FLM_PULLSEQ_INTF_ERR');
132: errbuf := fnd_message.get;
133: fnd_file.put_line(fnd_file.log, errbuf);
132: errbuf := fnd_message.get;
133: fnd_file.put_line(fnd_file.log, errbuf);
134: l_conc_status := fnd_concurrent.set_completion_status('ERROR', errbuf);
135: RETURN;
136: ELSIF l_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: END IF;
139:
140: -- read Kanban cards interface records
133: fnd_file.put_line(fnd_file.log, errbuf);
134: l_conc_status := fnd_concurrent.set_completion_status('ERROR', errbuf);
135: RETURN;
136: ELSIF l_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: END IF;
139:
140: -- read Kanban cards interface records
141: read_cards_interface(p_group_id => p_group_id,
141: read_cards_interface(p_group_id => p_group_id,
142: x_ret_status => l_ret_status,
143: x_err_msg => l_error_msg);
144:
145: IF l_ret_status = FND_API.G_RET_STS_ERROR THEN
146: retcode := 2;
147: fnd_message.set_name('FLM','FLM_CARDS_INTF_ERR');
148: errbuf := fnd_message.get;
149: fnd_file.put_line(fnd_file.log, errbuf);
148: errbuf := fnd_message.get;
149: fnd_file.put_line(fnd_file.log, errbuf);
150: l_conc_status := fnd_concurrent.set_completion_status('ERROR', errbuf);
151: RETURN;
152: ELSIF l_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
156: -- process pull seq and kanban cards
149: fnd_file.put_line(fnd_file.log, errbuf);
150: l_conc_status := fnd_concurrent.set_completion_status('ERROR', errbuf);
151: RETURN;
152: ELSIF l_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
156: -- process pull seq and kanban cards
157: FLM_KANBAN_PUB.process_kanban(p_pull_sequence_tbl => g_pull_seq_tbl,
174: process_status = g_kanban_card_tbl(i).process_status,
175: error_text = g_kanban_card_tbl(i).error_text
176: WHERE interface_id = g_kanban_card_tbl(i).interface_id;
177:
178: IF l_ret_status = FND_API.G_RET_STS_SUCCESS THEN
179: retcode := 0;
180: fnd_message.set_name('FLM','FLM_INTERFACE_SUCCESS');
181: errbuf := fnd_message.get;
182: fnd_file.put_line(fnd_file.log, errbuf);