86: )
87: IS
88: l_api_name CONSTANT VARCHAR2 (30) := 'Create_Lot';
89: l_api_version CONSTANT NUMBER := 2.0;
90: l_lot_id ic_lots_mst.lot_id%TYPE;
91: l_shipvend_id ic_lots_mst.shipvend_id%TYPE;
92: l_msg_count NUMBER;
93: l_msg_data VARCHAR2(2000);
94: l_return_status VARCHAR2(1);
87: IS
88: l_api_name CONSTANT VARCHAR2 (30) := 'Create_Lot';
89: l_api_version CONSTANT NUMBER := 2.0;
90: l_lot_id ic_lots_mst.lot_id%TYPE;
91: l_shipvend_id ic_lots_mst.shipvend_id%TYPE;
92: l_msg_count NUMBER;
93: l_msg_data VARCHAR2(2000);
94: l_return_status VARCHAR2(1);
95: l_user_name fnd_user.user_name%TYPE;
94: l_return_status VARCHAR2(1);
95: l_user_name fnd_user.user_name%TYPE;
96: l_user_id fnd_user.user_id%TYPE;
97: l_ic_item_mst_rec ic_item_mst%ROWTYPE;
98: l_ic_lots_mst_rec ic_lots_mst%ROWTYPE;
99: l_ic_lots_cpg_rec ic_lots_cpg%ROWTYPE;
100: l_lot_rec lot_rec_typ;
101: l_po_vend_mst_rec po_vend_mst%ROWTYPE;
102: l_ic_item_cpg_rec ic_item_cpg%ROWTYPE;
329: ELSE
330: l_shipvend_id :=NULL;
331: END IF;
332:
333: -- Set up PL/SQL record and insert lot into ic_lots_mst
334:
335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
331: END IF;
332:
333: -- Set up PL/SQL record and insert lot into ic_lots_mst
334:
335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
332:
333: -- Set up PL/SQL record and insert lot into ic_lots_mst
334:
335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
333: -- Set up PL/SQL record and insert lot into ic_lots_mst
334:
335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
334:
335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
335: l_ic_lots_mst_rec.item_id := l_ic_item_mst_rec.item_id;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
336: l_ic_lots_mst_rec.lot_no := l_lot_rec.lot_no;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
337: l_ic_lots_mst_rec.sublot_no := l_lot_rec.sublot_no;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
338: l_ic_lots_mst_rec.lot_id := l_lot_id;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
339: l_ic_lots_mst_rec.lot_desc := l_lot_rec.lot_desc;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
340: l_ic_lots_mst_rec.qc_grade := l_lot_rec.qc_grade;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
341: l_ic_lots_mst_rec.expaction_code := l_lot_rec.expaction_code;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
342: l_ic_lots_mst_rec.expaction_date := l_lot_rec.expaction_date;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
343: l_ic_lots_mst_rec.lot_created := l_lot_rec.lot_created;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
344: l_ic_lots_mst_rec.expire_date := l_lot_rec.expire_date;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
345: l_ic_lots_mst_rec.retest_date := l_lot_rec.retest_date;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
353: l_ic_lots_mst_rec.created_by := l_user_id;
346: l_ic_lots_mst_rec.strength := l_lot_rec.strength;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
353: l_ic_lots_mst_rec.created_by := l_user_id;
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
347: l_ic_lots_mst_rec.inactive_ind := l_lot_rec.inactive_ind;
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
353: l_ic_lots_mst_rec.created_by := l_user_id;
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
348: l_ic_lots_mst_rec.origination_type := l_lot_rec.origination_type;
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
353: l_ic_lots_mst_rec.created_by := l_user_id;
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
356: 'LOGIN_ID'));
349: l_ic_lots_mst_rec.vendor_lot_no := l_lot_rec.vendor_lot_no;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
353: l_ic_lots_mst_rec.created_by := l_user_id;
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
356: 'LOGIN_ID'));
357: l_ic_lots_mst_rec.trans_cnt := 1;
350: l_ic_lots_mst_rec.shipvend_id := l_shipvend_id;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
353: l_ic_lots_mst_rec.created_by := l_user_id;
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
356: 'LOGIN_ID'));
357: l_ic_lots_mst_rec.trans_cnt := 1;
358: l_ic_lots_mst_rec.delete_mark := 0;
351: l_ic_lots_mst_rec.creation_date := SYSDATE;
352: l_ic_lots_mst_rec.last_update_date := SYSDATE;
353: l_ic_lots_mst_rec.created_by := l_user_id;
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
356: 'LOGIN_ID'));
357: l_ic_lots_mst_rec.trans_cnt := 1;
358: l_ic_lots_mst_rec.delete_mark := 0;
359: l_ic_lots_mst_rec.text_code := NULL;
353: l_ic_lots_mst_rec.created_by := l_user_id;
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
356: 'LOGIN_ID'));
357: l_ic_lots_mst_rec.trans_cnt := 1;
358: l_ic_lots_mst_rec.delete_mark := 0;
359: l_ic_lots_mst_rec.text_code := NULL;
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
354: l_ic_lots_mst_rec.last_updated_by := l_user_id;
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
356: 'LOGIN_ID'));
357: l_ic_lots_mst_rec.trans_cnt := 1;
358: l_ic_lots_mst_rec.delete_mark := 0;
359: l_ic_lots_mst_rec.text_code := NULL;
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
355: l_ic_lots_mst_rec.last_update_login :=TO_NUMBER(FND_PROFILE.Value(
356: 'LOGIN_ID'));
357: l_ic_lots_mst_rec.trans_cnt := 1;
358: l_ic_lots_mst_rec.delete_mark := 0;
359: l_ic_lots_mst_rec.text_code := NULL;
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
356: 'LOGIN_ID'));
357: l_ic_lots_mst_rec.trans_cnt := 1;
358: l_ic_lots_mst_rec.delete_mark := 0;
359: l_ic_lots_mst_rec.text_code := NULL;
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
357: l_ic_lots_mst_rec.trans_cnt := 1;
358: l_ic_lots_mst_rec.delete_mark := 0;
359: l_ic_lots_mst_rec.text_code := NULL;
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
358: l_ic_lots_mst_rec.delete_mark := 0;
359: l_ic_lots_mst_rec.text_code := NULL;
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
359: l_ic_lots_mst_rec.text_code := NULL;
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
360: l_ic_lots_mst_rec.attribute1 := UPPER(l_lot_rec.attribute1);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
361: l_ic_lots_mst_rec.attribute2 := UPPER(l_lot_rec.attribute2);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
362: l_ic_lots_mst_rec.attribute3 := UPPER(l_lot_rec.attribute3);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
363: l_ic_lots_mst_rec.attribute4 := UPPER(l_lot_rec.attribute4);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
364: l_ic_lots_mst_rec.attribute5 := UPPER(l_lot_rec.attribute5);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
365: l_ic_lots_mst_rec.attribute6 := UPPER(l_lot_rec.attribute6);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
366: l_ic_lots_mst_rec.attribute7 := UPPER(l_lot_rec.attribute7);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
367: l_ic_lots_mst_rec.attribute8 := UPPER(l_lot_rec.attribute8);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
368: l_ic_lots_mst_rec.attribute9 := UPPER(l_lot_rec.attribute9);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
369: l_ic_lots_mst_rec.attribute10 := UPPER(l_lot_rec.attribute10);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
370: l_ic_lots_mst_rec.attribute11 := UPPER(l_lot_rec.attribute11);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
371: l_ic_lots_mst_rec.attribute12 := UPPER(l_lot_rec.attribute12);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
372: l_ic_lots_mst_rec.attribute13 := UPPER(l_lot_rec.attribute13);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
373: l_ic_lots_mst_rec.attribute14 := UPPER(l_lot_rec.attribute14);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
374: l_ic_lots_mst_rec.attribute15 := UPPER(l_lot_rec.attribute15);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
375: l_ic_lots_mst_rec.attribute16 := UPPER(l_lot_rec.attribute16);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
376: l_ic_lots_mst_rec.attribute17 := UPPER(l_lot_rec.attribute17);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
377: l_ic_lots_mst_rec.attribute18 := UPPER(l_lot_rec.attribute18);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
378: l_ic_lots_mst_rec.attribute19 := UPPER(l_lot_rec.attribute19);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
379: l_ic_lots_mst_rec.attribute20 := UPPER(l_lot_rec.attribute20);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
380: l_ic_lots_mst_rec.attribute21 := UPPER(l_lot_rec.attribute21);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
388: l_ic_lots_mst_rec.attribute29 := UPPER(l_lot_rec.attribute29);
381: l_ic_lots_mst_rec.attribute22 := UPPER(l_lot_rec.attribute22);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
388: l_ic_lots_mst_rec.attribute29 := UPPER(l_lot_rec.attribute29);
389: l_ic_lots_mst_rec.attribute30 := UPPER(l_lot_rec.attribute30);
382: l_ic_lots_mst_rec.attribute23 := UPPER(l_lot_rec.attribute23);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
388: l_ic_lots_mst_rec.attribute29 := UPPER(l_lot_rec.attribute29);
389: l_ic_lots_mst_rec.attribute30 := UPPER(l_lot_rec.attribute30);
390: l_ic_lots_mst_rec.attribute_category := UPPER(l_lot_rec.attribute_category);
383: l_ic_lots_mst_rec.attribute24 := UPPER(l_lot_rec.attribute24);
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
388: l_ic_lots_mst_rec.attribute29 := UPPER(l_lot_rec.attribute29);
389: l_ic_lots_mst_rec.attribute30 := UPPER(l_lot_rec.attribute30);
390: l_ic_lots_mst_rec.attribute_category := UPPER(l_lot_rec.attribute_category);
391:
384: l_ic_lots_mst_rec.attribute25 := UPPER(l_lot_rec.attribute25);
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
388: l_ic_lots_mst_rec.attribute29 := UPPER(l_lot_rec.attribute29);
389: l_ic_lots_mst_rec.attribute30 := UPPER(l_lot_rec.attribute30);
390: l_ic_lots_mst_rec.attribute_category := UPPER(l_lot_rec.attribute_category);
391:
392:
385: l_ic_lots_mst_rec.attribute26 := UPPER(l_lot_rec.attribute26);
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
388: l_ic_lots_mst_rec.attribute29 := UPPER(l_lot_rec.attribute29);
389: l_ic_lots_mst_rec.attribute30 := UPPER(l_lot_rec.attribute30);
390: l_ic_lots_mst_rec.attribute_category := UPPER(l_lot_rec.attribute_category);
391:
392:
393: IF NOT GMI_LOTS_PVT.insert_ic_lots_mst(l_ic_lots_mst_rec)
386: l_ic_lots_mst_rec.attribute27 := UPPER(l_lot_rec.attribute27);
387: l_ic_lots_mst_rec.attribute28 := UPPER(l_lot_rec.attribute28);
388: l_ic_lots_mst_rec.attribute29 := UPPER(l_lot_rec.attribute29);
389: l_ic_lots_mst_rec.attribute30 := UPPER(l_lot_rec.attribute30);
390: l_ic_lots_mst_rec.attribute_category := UPPER(l_lot_rec.attribute_category);
391:
392:
393: IF NOT GMI_LOTS_PVT.insert_ic_lots_mst(l_ic_lots_mst_rec)
394: THEN
389: l_ic_lots_mst_rec.attribute30 := UPPER(l_lot_rec.attribute30);
390: l_ic_lots_mst_rec.attribute_category := UPPER(l_lot_rec.attribute_category);
391:
392:
393: IF NOT GMI_LOTS_PVT.insert_ic_lots_mst(l_ic_lots_mst_rec)
394: THEN
395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
396: END IF;
397:
514: l_msg_count NUMBER;
515: l_msg_data VARCHAR2(2000);
516: l_return_status VARCHAR2(1);
517: l_item_no ic_item_mst.item_no%TYPE;
518: l_lot_no ic_lots_mst.lot_no%TYPE;
519: l_sublot_no ic_lots_mst.sublot_no%TYPE;
520: l_qc_grade ic_lots_mst.qc_grade%TYPE;
521: l_expaction_code ic_lots_mst.expaction_code%TYPE;
522: l_user_name fnd_user.user_name%TYPE;
515: l_msg_data VARCHAR2(2000);
516: l_return_status VARCHAR2(1);
517: l_item_no ic_item_mst.item_no%TYPE;
518: l_lot_no ic_lots_mst.lot_no%TYPE;
519: l_sublot_no ic_lots_mst.sublot_no%TYPE;
520: l_qc_grade ic_lots_mst.qc_grade%TYPE;
521: l_expaction_code ic_lots_mst.expaction_code%TYPE;
522: l_user_name fnd_user.user_name%TYPE;
523:
516: l_return_status VARCHAR2(1);
517: l_item_no ic_item_mst.item_no%TYPE;
518: l_lot_no ic_lots_mst.lot_no%TYPE;
519: l_sublot_no ic_lots_mst.sublot_no%TYPE;
520: l_qc_grade ic_lots_mst.qc_grade%TYPE;
521: l_expaction_code ic_lots_mst.expaction_code%TYPE;
522: l_user_name fnd_user.user_name%TYPE;
523:
524: BEGIN
517: l_item_no ic_item_mst.item_no%TYPE;
518: l_lot_no ic_lots_mst.lot_no%TYPE;
519: l_sublot_no ic_lots_mst.sublot_no%TYPE;
520: l_qc_grade ic_lots_mst.qc_grade%TYPE;
521: l_expaction_code ic_lots_mst.expaction_code%TYPE;
522: l_user_name fnd_user.user_name%TYPE;
523:
524: BEGIN
525: