[Home] [Help]
6758: IS
6759: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6760: l_msg_count NUMBER;
6761: l_msg_data VARCHAR2(2000);
6762: l_cto_change_tbl CTO_CHANGE_ORDER_PK.CHANGE_TABLE_TYPE;
6763: l_ato_line_id NUMBER := p_ato_line_id;
6764: I NUMBER;
6765: l_split_tbl CTO_CHANGE_ORDER_PK.SPLIT_CHG_TABLE_TYPE;
6766: l_decimal_tbl CTO_CHANGE_ORDER_PK.OPTION_CHG_TABLE_TYPE;
6761: l_msg_data VARCHAR2(2000);
6762: l_cto_change_tbl CTO_CHANGE_ORDER_PK.CHANGE_TABLE_TYPE;
6763: l_ato_line_id NUMBER := p_ato_line_id;
6764: I NUMBER;
6765: l_split_tbl CTO_CHANGE_ORDER_PK.SPLIT_CHG_TABLE_TYPE;
6766: l_decimal_tbl CTO_CHANGE_ORDER_PK.OPTION_CHG_TABLE_TYPE;
6767:
6768: --
6769: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6762: l_cto_change_tbl CTO_CHANGE_ORDER_PK.CHANGE_TABLE_TYPE;
6763: l_ato_line_id NUMBER := p_ato_line_id;
6764: I NUMBER;
6765: l_split_tbl CTO_CHANGE_ORDER_PK.SPLIT_CHG_TABLE_TYPE;
6766: l_decimal_tbl CTO_CHANGE_ORDER_PK.OPTION_CHG_TABLE_TYPE;
6767:
6768: --
6769: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6770: --
6776: I := 0;
6777:
6778: IF p_request_rec.param1 is not NULL THEN
6779: I := I + 1;
6780: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY_CHANGE;
6781: l_cto_change_tbl(I).old_value := p_request_rec.param1;
6782: l_cto_change_tbl(I).new_value := p_request_rec.param2;
6783: END IF;
6784:
6783: END IF;
6784:
6785: IF p_request_rec.param3 is not NULL THEN
6786: I := I + 1;
6787: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.RD_CHANGE;
6788: l_cto_change_tbl(I).old_value := p_request_rec.param3;
6789: l_cto_change_tbl(I).new_value := p_request_rec.param4;
6790: END IF;
6791:
6790: END IF;
6791:
6792: IF p_request_rec.param5 is not NULL THEN
6793: I := I + 1;
6794: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.SSD_CHANGE;
6795: l_cto_change_tbl(I).old_value := p_request_rec.param5;
6796: l_cto_change_tbl(I).new_value := p_request_rec.param6;
6797: END IF;
6798:
6797: END IF;
6798:
6799: IF p_request_rec.param7 is not NULL THEN
6800: I := I + 1;
6801: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.SAD_CHANGE;
6802: l_cto_change_tbl(I).old_value := p_request_rec.param7;
6803: l_cto_change_tbl(I).new_value := p_request_rec.param8;
6804: END IF;
6805:
6804: END IF;
6805:
6806: IF p_request_rec.param9 is not NULL THEN
6807: I := I + 1;
6808: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
6809: END IF;
6810:
6811: IF p_request_rec.param10 is not NULL THEN
6812: I := I + 1;
6809: END IF;
6810:
6811: IF p_request_rec.param10 is not NULL THEN
6812: I := I + 1;
6813: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE;
6814: l_cto_change_tbl(I).old_value := p_request_rec.param10;
6815: l_cto_change_tbl(I).new_value := p_request_rec.param11;
6816: END IF;
6817: -- INVCONV start
6817: -- INVCONV start
6818:
6819: IF p_request_rec.param12 is not NULL THEN
6820: I := I + 1;
6821: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY2_CHANGE;
6822: l_cto_change_tbl(I).old_value := p_request_rec.param12;
6823: l_cto_change_tbl(I).new_value := p_request_rec.param13;
6824: END IF;
6825: IF l_debug_level > 0 THEN
6826: oe_debug_pub.add('NOTIFY_CTO 3 ' , 1);
6827: END IF;
6828: IF p_request_rec.param14 is not NULL THEN
6829: I := I + 1;
6830: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE;
6831: l_cto_change_tbl(I).old_value := p_request_rec.param14;
6832: l_cto_change_tbl(I).new_value := p_request_rec.param15;
6833: END IF;
6834: IF l_debug_level > 0 THEN
6835: oe_debug_pub.add('NOTIFY_CTO 4 ' , 1);
6836: END IF;
6837: IF p_request_rec.param16 is not NULL THEN
6838: I := I + 1;
6839: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE;
6840: l_cto_change_tbl(I).old_value := p_request_rec.param16;
6841: l_cto_change_tbl(I).new_value := p_request_rec.param17;
6842: END IF;
6843:
6860: IF l_debug_level > 0 THEN
6861: oe_debug_pub.add('part of PTO, but correct ato_line_id ', 3 );
6862: END IF;
6863:
6864: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
6865: l_cto_change_tbl(I).old_value := p_request_tbl(I).param1;
6866: l_cto_change_tbl(I).new_value := 'PTO_ATO_CREATE';
6867: l_ato_line_id := null;
6868: END IF;
6918: END IF;
6919:
6920: IF l_cto_change_tbl.COUNT > 0 THEN
6921:
6922: CTO_CHANGE_ORDER_PK.CHANGE_NOTIFY
6923: ( plineid => l_ato_line_id
6924: ,pchgtype => l_cto_change_tbl
6925: ,poptionchgdtls => l_decimal_tbl
6926: ,psplitdtls => l_split_tbl