DBA Data[Home] [Help]

APPS.PO_GML_DB_COMMON dependencies on GML_INTORD_LOT_STS

Line 975: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'

971:
972: -- lot status: bug 3278027, this is for direct shipment of internal orders
973: -- Bug 3917381 changed following IF condition from l_item_sts_ctl = 1 to l_item_sts_ctl <> 0
974: IF l_item_sts_ctl <> 0 THEN
975: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'
976: AND l_receipt_source_code = 'INTERNAL ORDER' ) THEN
977:
978: GML_INTORD_LOT_STS.derive_porc_lot_status( p_item_id => l_item_id
979: , p_whse_code => l_tran_rec.whse_code

Line 978: GML_INTORD_LOT_STS.derive_porc_lot_status( p_item_id => l_item_id

974: IF l_item_sts_ctl <> 0 THEN
975: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'
976: AND l_receipt_source_code = 'INTERNAL ORDER' ) THEN
977:
978: GML_INTORD_LOT_STS.derive_porc_lot_status( p_item_id => l_item_id
979: , p_whse_code => l_tran_rec.whse_code
980: , p_lot_id => l_tran_rec.lot_id
981: , p_location => l_tran_rec.location
982: , p_ship_lot_status => cr_intorg_tran_rec.lot_status

Line 1059: END IF; /* IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y' */

1055: When OTHERS then
1056: x_return_status := '-70';
1057: raise ex_exception_found;
1058: END;
1059: END IF; /* IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y' */
1060: END IF; /* IF l_item_sts_ctl <> 0 */
1061:
1062: END IF; /* IF l_tran_rec.lot_id is not null */
1063:

Line 1181: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'

1177: END IF;
1178:
1179: -- begin lot status: bug 3278027
1180: -- Bug 3917381 changed last AND condition from l_item_sts_ctl = 1 to l_item_sts_ctl <> 0
1181: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'
1182: AND l_req_line_id IS NOT NULL
1183: AND l_receipt_source_code = 'INTERNAL ORDER'
1184: AND l_item_sts_ctl <> 0 ) THEN
1185: BEGIN

Line 1187: GML_INTORD_LOT_STS.get_omso_lot_status( p_req_line_id => l_req_line_id

1183: AND l_receipt_source_code = 'INTERNAL ORDER'
1184: AND l_item_sts_ctl <> 0 ) THEN
1185: BEGIN
1186: -- fetch the omso lots
1187: GML_INTORD_LOT_STS.get_omso_lot_status( p_req_line_id => l_req_line_id
1188: , p_item_id => l_item_id
1189: , x_lot_sts_tab => GML_INTORD_LOT_STS.G_lot_sts_tab
1190: , x_return_status => l_return_status
1191: , x_msg_data => l_msg_data);

Line 1189: , x_lot_sts_tab => GML_INTORD_LOT_STS.G_lot_sts_tab

1185: BEGIN
1186: -- fetch the omso lots
1187: GML_INTORD_LOT_STS.get_omso_lot_status( p_req_line_id => l_req_line_id
1188: , p_item_id => l_item_id
1189: , x_lot_sts_tab => GML_INTORD_LOT_STS.G_lot_sts_tab
1190: , x_return_status => l_return_status
1191: , x_msg_data => l_msg_data);
1192: EXCEPTION
1193: WHEN OTHERS THEN

Line 1203: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'

1199:
1200: -- lot status: bug 3278027, this is for indirect shipment of internal orders
1201: -- Bug 3917381 changed following IF condition from l_item_sts_ctl = 1 to l_item_sts_ctl <> 0
1202: IF l_item_sts_ctl <> 0 THEN
1203: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'
1204: AND l_receipt_source_code = 'INTERNAL ORDER' ) THEN
1205:
1206: l_ship_status := NULL;
1207: l_rec_cnt := GML_INTORD_LOT_STS.G_lot_sts_tab.count;

Line 1207: l_rec_cnt := GML_INTORD_LOT_STS.G_lot_sts_tab.count;

1203: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'
1204: AND l_receipt_source_code = 'INTERNAL ORDER' ) THEN
1205:
1206: l_ship_status := NULL;
1207: l_rec_cnt := GML_INTORD_LOT_STS.G_lot_sts_tab.count;
1208: FOR i in 1 .. l_rec_cnt LOOP
1209: IF GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_id = l_tran_rec.lot_id THEN
1210: l_ship_status := GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_status;
1211: EXIT;

Line 1209: IF GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_id = l_tran_rec.lot_id THEN

1205:
1206: l_ship_status := NULL;
1207: l_rec_cnt := GML_INTORD_LOT_STS.G_lot_sts_tab.count;
1208: FOR i in 1 .. l_rec_cnt LOOP
1209: IF GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_id = l_tran_rec.lot_id THEN
1210: l_ship_status := GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_status;
1211: EXIT;
1212: END IF;
1213: END LOOP;

Line 1210: l_ship_status := GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_status;

1206: l_ship_status := NULL;
1207: l_rec_cnt := GML_INTORD_LOT_STS.G_lot_sts_tab.count;
1208: FOR i in 1 .. l_rec_cnt LOOP
1209: IF GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_id = l_tran_rec.lot_id THEN
1210: l_ship_status := GML_INTORD_LOT_STS.G_lot_sts_tab(i).lot_status;
1211: EXIT;
1212: END IF;
1213: END LOOP;
1214:

Line 1219: GML_INTORD_LOT_STS.derive_porc_lot_status( p_item_id => l_item_id

1215: -- omso lot/status found
1216: IF l_ship_status IS NOT NULL THEN
1217:
1218: -- derive porc lot status
1219: GML_INTORD_LOT_STS.derive_porc_lot_status( p_item_id => l_item_id
1220: , p_whse_code => l_tran_rec.whse_code
1221: , p_lot_id => l_tran_rec.lot_id
1222: , p_location => l_tran_rec.location
1223: , p_ship_lot_status => l_ship_status

Line 1277: END IF; -- IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'

1273: IF (l_txn_allowed = 'Y' AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1274: l_tran_rec.lot_status := l_rcpt_status;
1275: END IF;
1276: END IF; -- IF l_ship_status IS NOT NULL
1277: END IF; -- IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'
1278:
1279: /* lot status: bug 3278027, null l_ship_status indicates omso lot not found
1280: hence continue as per previous functionality */
1281: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts <> 'Y'

Line 1281: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts <> 'Y'

1277: END IF; -- IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts = 'Y'
1278:
1279: /* lot status: bug 3278027, null l_ship_status indicates omso lot not found
1280: hence continue as per previous functionality */
1281: IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts <> 'Y'
1282: OR l_receipt_source_code <> 'INTERNAL ORDER'
1283: OR l_ship_status IS NULL) THEN
1284:
1285: /* Select lot status Check a record in ic_loct_inv for the item,lot,warehouse,location

Line 1308: END IF; -- IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts <> 'Y'

1304: When OTHERS then
1305: x_return_status := '-100';
1306: raise ex_exception_found;
1307: END;
1308: END IF; -- IF ( GML_INTORD_LOT_STS.G_retain_ship_lot_sts <> 'Y'
1309: END IF; -- IF l_item_sts_ctl <> 1
1310: -- end lot status: bug 3278027
1311:
1312: -- PK Bug 3991705