145: schedule_ship_date_arr date_tab;
146: BEGIN
147:
148: -- initialize the program_id and the request_id from the concurrent request.
149: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
150: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
151:
152: -- set the return status.
153: x_return_status := FND_API.G_RET_STS_SUCCESS ;
146: BEGIN
147:
148: -- initialize the program_id and the request_id from the concurrent request.
149: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
150: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
151:
152: -- set the return status.
153: x_return_status := FND_API.G_RET_STS_SUCCESS ;
154:
161: oe_debug_pub.add('l_source_code = '||lsourcecode);
162: END IF;
163:
164: -- set the batch_id to the request_id
165: l_batch_id := FND_GLOBAL.CONC_REQUEST_ID;
166:
167: -- Log all the input parameters
168: l_stmt_num := 1;
169: