195: --Modified the IF condition from Null to NOT NULL and commented the
196: --two lines.
197: IF (Get_Field(l_line,l_delimiter,7) IS NOT NULL)
198: THEN
199: --lot_rec.expaction_date :=GMA_GLOBAL_GRP.SY$MAX_DATE;
200: -- ELSE
201: lot_rec.expaction_date :=TO_DATE(
202: Get_Field(l_line,l_delimiter,7),'DDMMYYYY');
203: END IF;
213: --Modified the IF conditions from Null to NOT NULL and commented the
214: --four lines.
215: IF (Get_Field(l_line,l_delimiter,9) IS NOT NULL)
216: THEN
217: --lot_rec.expire_date :=GMA_GLOBAL_GRP.SY$MAX_DATE;
218: --ELSE
219: lot_rec.expire_date :=TO_DATE(
220: Get_Field(l_line,l_delimiter,9),'DDMMYYYY');
221: END IF;
221: END IF;
222:
223: IF (Get_Field(l_line,l_delimiter,10) IS NOT NULL)
224: THEN
225: --lot_rec.retest_date :=GMA_GLOBAL_GRP.SY$MAX_DATE;
226: -- ELSE
227: lot_rec.retest_date :=TO_DATE(
228: Get_Field(l_line,l_delimiter,10),'DDMMYYYY');
229: END IF;
248: lot_rec.shipvendor_no :=Get_Field(l_line,l_delimiter,14);
249: lot_rec.vendor_lot_no :=Get_Field(l_line,l_delimiter,15);
250: IF (Get_Field(l_line,l_delimiter,16) IS NULL)
251: THEN
252: lot_rec.ic_matr_date :=GMA_GLOBAL_GRP.SY$MAX_DATE;
253: ELSE
254: lot_rec.ic_matr_date :=TO_DATE(
255: Get_Field(l_line,l_delimiter,16),'DDMMYYYY');
256: END IF;