1706: t_base_item_desc(j) := null;
1707: END;
1708:
1709:
1710: msc_x_util.get_uom_conversion_rates( t_uom_code(j),
1711: t_tp_uom(j),
1712: t_item_id(j),
1713: l_conversion_found,
1714: l_conversion_rate);
1834: trunc(t_ship_date(j)) = trunc(t_ship_date(j-1)) and
1835: t_order_type(j) = t_order_type(j-1)) THEN
1836:
1837: IF (t_order_type(j) = PLANNED_EXTERNAL_REPAIR_ORDER) THEN
1838: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
1839: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
1840: begin
1841: IF (t_base_item_id(j) is not null) THEN
1842: update msc_sup_dem_entries
1835: t_order_type(j) = t_order_type(j-1)) THEN
1836:
1837: IF (t_order_type(j) = PLANNED_EXTERNAL_REPAIR_ORDER) THEN
1838: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
1839: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
1840: begin
1841: IF (t_base_item_id(j) is not null) THEN
1842: update msc_sup_dem_entries
1843: set quantity = quantity + t_qty(j),
1988: when others then
1989: null;
1990: end;
1991: ELSIF (t_order_type(j) = EXTERNAL_REPAIR_ORDER) THEN
1992: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
1993: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
1994: begin
1995: IF (t_base_item_id(j) is not null) THEN
1996: update msc_sup_dem_entries
1989: null;
1990: end;
1991: ELSIF (t_order_type(j) = EXTERNAL_REPAIR_ORDER) THEN
1992: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
1993: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
1994: begin
1995: IF (t_base_item_id(j) is not null) THEN
1996: update msc_sup_dem_entries
1997: set quantity = quantity + t_qty(j),
2142: when others then
2143: null;
2144: end;
2145: ELSIF (t_order_type(j) = PLANNED_NEW_BUY_ORDER) THEN
2146: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
2147: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
2148: begin
2149: IF (t_base_item_id(j) is not null) THEN
2150: update msc_sup_dem_entries
2143: null;
2144: end;
2145: ELSIF (t_order_type(j) = PLANNED_NEW_BUY_ORDER) THEN
2146: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
2147: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
2148: begin
2149: IF (t_base_item_id(j) is not null) THEN
2150: update msc_sup_dem_entries
2151: set quantity = quantity + t_qty(j),
3016: ------------------------------------------------------
3017: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'PLO' || t_planned_order_qty(j) || ' tp '
3018: -- || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3019: log_message('PLO' || t_planned_order_qty(j) || ' tp ' || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3020: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_ORDER);
3021: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3022:
3023: IF ( t_planned_order_qty(j) <> 0 ) THEN
3024: l_planned_order_qty := t_planned_order_qty(j);
3017: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'PLO' || t_planned_order_qty(j) || ' tp '
3018: -- || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3019: log_message('PLO' || t_planned_order_qty(j) || ' tp ' || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3020: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_ORDER);
3021: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3022:
3023: IF ( t_planned_order_qty(j) <> 0 ) THEN
3024: l_planned_order_qty := t_planned_order_qty(j);
3025: l_tp_planned_order_qty := t_planned_order_qty(j);
3153: ----------------------------------------------------------
3154: -- RELEASED_PLANNED_ORDER
3155: ----------------------------------------------------------
3156:
3157: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_PLANNED_ORDER);
3158: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3159: IF (t_released_qty(j) <> 0 ) THEN
3160: l_released_qty := t_released_qty(j);
3161: l_tp_released_qty := t_tp_released_qty(j);
3154: -- RELEASED_PLANNED_ORDER
3155: ----------------------------------------------------------
3156:
3157: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_PLANNED_ORDER);
3158: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3159: IF (t_released_qty(j) <> 0 ) THEN
3160: l_released_qty := t_released_qty(j);
3161: l_tp_released_qty := t_tp_released_qty(j);
3162: IF (t_released_qty(j) < 0 ) THEN
3294:
3295: ------------------------------------------------------
3296: -- PURCHASE_ORDER_FROM_PLAN
3297: ------------------------------------------------------
3298: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PURCHASE_ORDER_FROM_PLAN);
3299: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3300:
3301: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Po ' || t_qty(j) || ' tp ' || t_tp_qty(j)
3302: --|| 'date ' || t_key_date(j));
3295: ------------------------------------------------------
3296: -- PURCHASE_ORDER_FROM_PLAN
3297: ------------------------------------------------------
3298: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PURCHASE_ORDER_FROM_PLAN);
3299: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3300:
3301: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Po ' || t_qty(j) || ' tp ' || t_tp_qty(j)
3302: --|| 'date ' || t_key_date(j));
3303: log_message( 'Po ' || t_qty(j) || ' tp ' || t_tp_qty(j) || 'date ' || t_key_date(j));
3430: ---------------------------------------------------------
3431: -- EXPECTED_INBOUND_SHIPMENT (PLANNED_INBOUND_SHIPMENT)
3432: ---------------------------------------------------------
3433:
3434: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_INBOUND_SHIPMENT);
3435: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3436:
3437: IF ( t_planned_order_qty(j) <> 0 ) THEN
3438: l_planned_order_qty := t_planned_order_qty(j);
3431: -- EXPECTED_INBOUND_SHIPMENT (PLANNED_INBOUND_SHIPMENT)
3432: ---------------------------------------------------------
3433:
3434: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_INBOUND_SHIPMENT);
3435: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3436:
3437: IF ( t_planned_order_qty(j) <> 0 ) THEN
3438: l_planned_order_qty := t_planned_order_qty(j);
3439: l_tp_planned_order_qty := t_planned_order_qty(j);
3569: ----------------------------------------------------------
3570: -- CP_RELEASED_INBOUND_SHIPMENT (qty released from PIS)
3571: ----------------------------------------------------------
3572:
3573: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_INBOUND_SHIPMENT);
3574: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3575: IF (t_released_qty(j) <> 0 ) THEN
3576: l_released_qty := t_released_qty(j);
3577: l_tp_released_qty := t_tp_released_qty(j);
3570: -- CP_RELEASED_INBOUND_SHIPMENT (qty released from PIS)
3571: ----------------------------------------------------------
3572:
3573: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_INBOUND_SHIPMENT);
3574: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3575: IF (t_released_qty(j) <> 0 ) THEN
3576: l_released_qty := t_released_qty(j);
3577: l_tp_released_qty := t_tp_released_qty(j);
3578: IF (t_released_qty(j) < 0 ) THEN
3712: ---------------------------------------------------*/
3713: ELSE
3714:
3715: FND_FILE.PUT_LINE(FND_FILE.LOG, 'qty ' || t_qty(j) || ' tp ' || t_tp_qty(j)|| 'date ' || t_key_date(j) || ' Item ' || t_item_id(j) || ' base ' || t_base_item_id(j));
3716: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
3717: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3718:
3719: IF (t_base_item_id(j) is null) THEN
3720: l_item_id := t_item_id(j);
3713: ELSE
3714:
3715: FND_FILE.PUT_LINE(FND_FILE.LOG, 'qty ' || t_qty(j) || ' tp ' || t_tp_qty(j)|| 'date ' || t_key_date(j) || ' Item ' || t_item_id(j) || ' base ' || t_base_item_id(j));
3716: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',ORDER_FORECAST);
3717: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3718:
3719: IF (t_base_item_id(j) is null) THEN
3720: l_item_id := t_item_id(j);
3721: l_base_item_name := null;
3889: ------------------------------------------------------
3890: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'PLO' || t_planned_order_qty(j) || ' tp '
3891: -- || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3892: log_message('PLO' || t_planned_order_qty(j) || ' tp ' || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3893: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_ORDER);
3894: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3895: IF ( t_planned_order_qty(j) <> 0 ) THEN
3896: l_planned_order_qty := t_planned_order_qty(j);
3897: l_tp_planned_order_qty := t_tp_planned_order_qty(j);
3890: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'PLO' || t_planned_order_qty(j) || ' tp '
3891: -- || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3892: log_message('PLO' || t_planned_order_qty(j) || ' tp ' || t_tp_planned_order_qty(j) || 'date ' || t_key_date(j));
3893: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_ORDER);
3894: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
3895: IF ( t_planned_order_qty(j) <> 0 ) THEN
3896: l_planned_order_qty := t_planned_order_qty(j);
3897: l_tp_planned_order_qty := t_tp_planned_order_qty(j);
3898:
4026: ----------------------------------------------------------
4027: -- RELEASED_PLANNED_ORDER
4028: ----------------------------------------------------------
4029:
4030: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_PLANNED_ORDER);
4031: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4032: IF (t_released_qty(j) <> 0 ) THEN
4033: l_released_qty := t_released_qty(j);
4034: l_tp_released_qty := t_tp_released_qty(j);
4027: -- RELEASED_PLANNED_ORDER
4028: ----------------------------------------------------------
4029:
4030: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_PLANNED_ORDER);
4031: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4032: IF (t_released_qty(j) <> 0 ) THEN
4033: l_released_qty := t_released_qty(j);
4034: l_tp_released_qty := t_tp_released_qty(j);
4035: IF (t_released_qty(j) < 0 ) THEN
4167:
4168: ------------------------------------------------------
4169: -- PURCHASE_ORDER_FROM_PLAN
4170: ------------------------------------------------------
4171: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PURCHASE_ORDER_FROM_PLAN);
4172: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4173: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Po ' || t_qty(j) || ' tp ' || t_tp_qty(j)
4174: --|| 'date ' || t_key_date(j));
4175: log_message( 'Po ' || t_qty(j) || ' tp ' || t_tp_qty(j) || 'date ' || t_key_date(j));
4168: ------------------------------------------------------
4169: -- PURCHASE_ORDER_FROM_PLAN
4170: ------------------------------------------------------
4171: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PURCHASE_ORDER_FROM_PLAN);
4172: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4173: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'Po ' || t_qty(j) || ' tp ' || t_tp_qty(j)
4174: --|| 'date ' || t_key_date(j));
4175: log_message( 'Po ' || t_qty(j) || ' tp ' || t_tp_qty(j) || 'date ' || t_key_date(j));
4176: insert into msc_sup_dem_entries (
4303: ---------------------------------------------------------
4304: -- EXPECTED_INBOUND_SHIPMENT (PLANNED_INBOUND_SHIPMENT)
4305: ---------------------------------------------------------
4306:
4307: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_INBOUND_SHIPMENT);
4308: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4309: IF ( t_planned_order_qty(j) <> 0 ) THEN
4310: l_planned_order_qty := t_planned_order_qty(j);
4311: l_tp_planned_order_qty := t_tp_planned_order_qty(j);
4304: -- EXPECTED_INBOUND_SHIPMENT (PLANNED_INBOUND_SHIPMENT)
4305: ---------------------------------------------------------
4306:
4307: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_PLANNED_INBOUND_SHIPMENT);
4308: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4309: IF ( t_planned_order_qty(j) <> 0 ) THEN
4310: l_planned_order_qty := t_planned_order_qty(j);
4311: l_tp_planned_order_qty := t_tp_planned_order_qty(j);
4312:
4442: ----------------------------------------------------------
4443: -- CP_RELEASED_INBOUND_SHIPMENT (qty released from PIS)
4444: ----------------------------------------------------------
4445:
4446: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_INBOUND_SHIPMENT);
4447: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4448: IF (t_released_qty(j) <> 0 ) THEN
4449: l_released_qty := t_released_qty(j);
4450: l_tp_released_qty := t_tp_released_qty(j);
4443: -- CP_RELEASED_INBOUND_SHIPMENT (qty released from PIS)
4444: ----------------------------------------------------------
4445:
4446: l_order_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',CP_RELEASED_INBOUND_SHIPMENT);
4447: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4448: IF (t_released_qty(j) <> 0 ) THEN
4449: l_released_qty := t_released_qty(j);
4450: l_tp_released_qty := t_tp_released_qty(j);
4451: IF (t_released_qty(j) < 0 ) THEN
4740: and trunc(key_date) = DECODE(t_order_type(j),ISO_DEF,trunc(t_receipt_date(j)),trunc(t_key_date(j)))
4741: and publisher_order_type = RETURNS_FORECAST ;
4742:
4743: IF SQL%NOTFOUND THEN
4744: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',RETURNS_FORECAST);
4745: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4746: INSERT INTO msc_sup_dem_entries
4747: (transaction_id,
4748: plan_id,
4741: and publisher_order_type = RETURNS_FORECAST ;
4742:
4743: IF SQL%NOTFOUND THEN
4744: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',RETURNS_FORECAST);
4745: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4746: INSERT INTO msc_sup_dem_entries
4747: (transaction_id,
4748: plan_id,
4749: sr_instance_id,
4885: and NVL(line_number,G_NULL_STRING) = NVL(t_line_num(j),G_NULL_STRING) -- bug#7310179
4886: and publisher_order_type = DEFECTIVE_OUTBOUND_SHIPMENT;
4887:
4888: IF SQL%NOTFOUND THEN
4889: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',DEFECTIVE_OUTBOUND_SHIPMENT);
4890: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4891: INSERT INTO msc_sup_dem_entries
4892: (transaction_id,
4893: plan_id,
4886: and publisher_order_type = DEFECTIVE_OUTBOUND_SHIPMENT;
4887:
4888: IF SQL%NOTFOUND THEN
4889: l_order_type_desc:=MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_ORDER_TYPE',DEFECTIVE_OUTBOUND_SHIPMENT);
4890: l_bucket_type_desc := MSC_X_UTIL.GET_LOOKUP_MEANING('MSC_X_BUCKET_TYPE',t_bucket_type(j));
4891: INSERT INTO msc_sup_dem_entries
4892: (transaction_id,
4893: plan_id,
4894: sr_instance_id,