[Home] [Help]
127:
128: FOR I IN 1..x_rev_sub_resource_tbl.COUNT LOOP
129: -- Processing records for which the return status is null
130: IF (x_rev_sub_resource_tbl(I).return_status IS NULL OR
131: x_rev_sub_resource_tbl(I).return_status = FND_API.G_MISS_CHAR)
132: THEN
133: BEGIN
134:
135: -- Load local records
171: -- that it is the child of the parent that called this procedure
172: --
173:
174: IF --(l_rev_sub_resource_rec.return_status IS NULL OR
175: -- l_rev_sub_resource_rec.return_status = FND_API.G_MISS_CHAR)
176: --AND
177: (
178: -- Did Op_Seq call this procedure, that is,
179: -- if revised operation(operation sequence) exists, then is this record a child ?
180: ( l_op_parent_exists AND
181: l_rev_sub_resource_rec.ECO_name = p_change_notice AND
182: l_rev_sub_res_unexp_rec.organization_id
183: = p_organization_id AND
184: NVL(l_rev_sub_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
185: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
186: l_rev_sub_resource_rec.revised_item_name
187: = p_revised_item_name AND
188: l_rev_sub_resource_rec.operation_sequence_number
181: l_rev_sub_resource_rec.ECO_name = p_change_notice AND
182: l_rev_sub_res_unexp_rec.organization_id
183: = p_organization_id AND
184: NVL(l_rev_sub_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
185: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
186: l_rev_sub_resource_rec.revised_item_name
187: = p_revised_item_name AND
188: l_rev_sub_resource_rec.operation_sequence_number
189: = p_operation_seq_num AND
186: l_rev_sub_resource_rec.revised_item_name
187: = p_revised_item_name AND
188: l_rev_sub_resource_rec.operation_sequence_number
189: = p_operation_seq_num AND
190: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
191: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
192: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
193: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
194: l_rev_sub_resource_rec.op_start_effective_date
187: = p_revised_item_name AND
188: l_rev_sub_resource_rec.operation_sequence_number
189: = p_operation_seq_num AND
190: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
191: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
192: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
193: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
194: l_rev_sub_resource_rec.op_start_effective_date
195: = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) -- Bug 6657209
188: l_rev_sub_resource_rec.operation_sequence_number
189: = p_operation_seq_num AND
190: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
191: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
192: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
193: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
194: l_rev_sub_resource_rec.op_start_effective_date
195: = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) -- Bug 6657209
196: -- NVL(l_rev_sub_resource_rec.operation_type, 1)
189: = p_operation_seq_num AND
190: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
191: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
192: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
193: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
194: l_rev_sub_resource_rec.op_start_effective_date
195: = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) -- Bug 6657209
196: -- NVL(l_rev_sub_resource_rec.operation_type, 1)
197: -- = NVL(p_operation_type, 1)
203: ( l_rtg_parent_exists AND
204: l_rev_sub_resource_rec.ECO_name = p_change_notice AND
205: l_rev_sub_res_unexp_rec.organization_id
206: = p_organization_id AND
207: NVL(l_rev_sub_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
208: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
209: l_rev_sub_resource_rec.revised_item_name
210: = p_revised_item_name AND
211: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
204: l_rev_sub_resource_rec.ECO_name = p_change_notice AND
205: l_rev_sub_res_unexp_rec.organization_id
206: = p_organization_id AND
207: NVL(l_rev_sub_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
208: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
209: l_rev_sub_resource_rec.revised_item_name
210: = p_revised_item_name AND
211: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
212: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
207: NVL(l_rev_sub_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
208: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
209: l_rev_sub_resource_rec.revised_item_name
210: = p_revised_item_name AND
211: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
212: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
213: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
214: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
215: l_rev_sub_resource_rec.op_start_effective_date
208: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
209: l_rev_sub_resource_rec.revised_item_name
210: = p_revised_item_name AND
211: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
212: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
213: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
214: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
215: l_rev_sub_resource_rec.op_start_effective_date
216: = p_effectivity_date
209: l_rev_sub_resource_rec.revised_item_name
210: = p_revised_item_name AND
211: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
212: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
213: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
214: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
215: l_rev_sub_resource_rec.op_start_effective_date
216: = p_effectivity_date
217: -- NVL(l_rev_sub_resource_rec.alternate_routing_code, 'P')
210: = p_revised_item_name AND
211: NVL(l_rev_sub_resource_rec.new_routing_revision,FND_API.G_MISS_CHAR )
212: = NVL(p_routing_revision,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
213: NVL(l_rev_sub_resource_rec.from_end_item_unit_number,FND_API.G_MISS_CHAR )
214: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
215: l_rev_sub_resource_rec.op_start_effective_date
216: = p_effectivity_date
217: -- NVL(l_rev_sub_resource_rec.alternate_routing_code, 'P')
218: -- = NVL(p_alternate_routing_code, 'P')
221: OR
222: (NOT l_rtg_parent_exists AND NOT l_op_parent_exists)
223: )
224: THEN
225: l_return_status := FND_API.G_RET_STS_SUCCESS;
226: l_rev_sub_resource_rec.return_status := FND_API.G_RET_STS_SUCCESS;
227:
228: -- Bug 6657209
229: IF (l_op_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
222: (NOT l_rtg_parent_exists AND NOT l_op_parent_exists)
223: )
224: THEN
225: l_return_status := FND_API.G_RET_STS_SUCCESS;
226: l_rev_sub_resource_rec.return_status := FND_API.G_RET_STS_SUCCESS;
227:
228: -- Bug 6657209
229: IF (l_op_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
230: l_rev_sub_resource_rec.op_start_effective_date := p_effectivity_date;
1159: WHEN EXC_SEV_QUIT_RECORD THEN
1160: ECO_Error_Handler.Log_Error
1161: ( p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
1162: , p_mesg_token_tbl => l_mesg_token_tbl
1163: , p_error_status => FND_API.G_RET_STS_ERROR
1164: , p_error_scope => Error_Handler.G_SCOPE_RECORD
1165: , p_error_level => ECO_Error_Handler.G_SR_LEVEL
1166: , p_entity_index => I
1167: , x_ECO_rec => l_ECO_rec
1501:
1502: FOR I IN 1..x_rev_op_resource_tbl.COUNT LOOP
1503: -- Processing records for which the return status is null
1504: IF (x_rev_op_resource_tbl(I).return_status IS NULL OR
1505: x_rev_op_resource_tbl(I).return_status = FND_API.G_MISS_CHAR) THEN
1506: BEGIN
1507:
1508: -- Load local records
1509: l_rev_op_resource_rec := x_rev_op_resource_tbl(I) ;
1556: ' Op. Seq: ' || p_operation_seq_num); END IF;
1557:
1558:
1559: IF --(l_rev_op_resource_rec.return_status IS NULL OR
1560: --l_rev_op_resource_rec.return_status = FND_API.G_MISS_CHAR)
1561: --AND
1562: (
1563: -- Did Op_Seq call this procedure, that is,
1564: -- if revised operation(operation sequence) exists, then is this record a child ?
1568: l_rev_op_res_unexp_rec.organization_id
1569: = p_organization_id AND
1570: l_rev_op_resource_rec.op_start_effective_date
1571: = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
1572: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1573: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
1574: l_rev_op_resource_rec.revised_item_name
1575: = p_revised_item_name AND
1576: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1569: = p_organization_id AND
1570: l_rev_op_resource_rec.op_start_effective_date
1571: = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
1572: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1573: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
1574: l_rev_op_resource_rec.revised_item_name
1575: = p_revised_item_name AND
1576: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1577: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1572: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1573: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
1574: l_rev_op_resource_rec.revised_item_name
1575: = p_revised_item_name AND
1576: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1577: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1578: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1579: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1580: l_rev_op_resource_rec.operation_sequence_number
1573: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
1574: l_rev_op_resource_rec.revised_item_name
1575: = p_revised_item_name AND
1576: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1577: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1578: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1579: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1580: l_rev_op_resource_rec.operation_sequence_number
1581: = p_operation_seq_num AND
1574: l_rev_op_resource_rec.revised_item_name
1575: = p_revised_item_name AND
1576: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1577: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1578: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1579: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1580: l_rev_op_resource_rec.operation_sequence_number
1581: = p_operation_seq_num AND
1582: NVL(l_rev_op_resource_rec.operation_type, 1)
1575: = p_revised_item_name AND
1576: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1577: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1578: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1579: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1580: l_rev_op_resource_rec.operation_sequence_number
1581: = p_operation_seq_num AND
1582: NVL(l_rev_op_resource_rec.operation_type, 1)
1583: = NVL(p_operation_type, 1)
1595: l_rev_op_resource_rec.revised_item_name
1596: = p_revised_item_name AND
1597: l_rev_op_resource_rec.op_start_effective_date
1598: = p_effectivity_date AND
1599: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1600: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1601: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1602: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1603: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1596: = p_revised_item_name AND
1597: l_rev_op_resource_rec.op_start_effective_date
1598: = p_effectivity_date AND
1599: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1600: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1601: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1602: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1603: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1604: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) )
1597: l_rev_op_resource_rec.op_start_effective_date
1598: = p_effectivity_date AND
1599: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1600: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1601: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1602: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1603: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1604: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) )
1605: )
1598: = p_effectivity_date AND
1599: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1600: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1601: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1602: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1603: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1604: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) )
1605: )
1606:
1599: NVL(l_rev_op_resource_rec.new_routing_revision, FND_API.G_MISS_CHAR )
1600: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1601: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1602: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1603: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1604: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) )
1605: )
1606:
1607: OR
1600: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1601: NVL(l_rev_op_resource_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
1602: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
1603: NVL(l_rev_op_resource_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
1604: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) )
1605: )
1606:
1607: OR
1608:
1610: NOT l_op_parent_exists)
1611: )
1612:
1613: THEN
1614: l_return_status := FND_API.G_RET_STS_SUCCESS;
1615: l_rev_op_resource_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1616:
1617: -- Bug 6657209
1618: IF (l_op_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
1611: )
1612:
1613: THEN
1614: l_return_status := FND_API.G_RET_STS_SUCCESS;
1615: l_rev_op_resource_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1616:
1617: -- Bug 6657209
1618: IF (l_op_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
1619: l_rev_op_resource_rec.op_start_effective_date := p_effectivity_date;
2194:
2195: Bom_Op_Res_Util.Query_Row
2196: ( p_resource_sequence_number => l_rev_op_resource_rec.resource_sequence_number
2197: , p_operation_sequence_id => l_rev_op_res_unexp_rec.operation_sequence_id
2198: , p_acd_type => FND_API.G_MISS_NUM
2199: , p_mesg_token_tbl => l_mesg_token_tbl
2200: , x_rev_op_resource_rec => l_old_rev_op_resource_rec
2201: , x_rev_op_res_unexp_rec => l_old_rev_op_res_unexp_rec
2202: , x_mesg_token_tbl => l_mesg_token_tbl
2517: WHEN EXC_SEV_QUIT_RECORD THEN
2518: ECO_Error_Handler.Log_Error
2519: ( p_rev_op_resource_tbl => x_rev_op_resource_tbl
2520: , p_mesg_token_tbl => l_mesg_token_tbl
2521: , p_error_status => FND_API.G_RET_STS_ERROR
2522: , p_error_scope => Error_Handler.G_SCOPE_RECORD
2523: , p_error_level => Error_Handler.G_RES_LEVEL
2524: , p_entity_index => I
2525: , x_ECO_rec => l_ECO_rec
2843:
2844: BEGIN
2845:
2846: -- Init local table variables.
2847: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2848: l_bo_return_status := FND_API.G_RET_STS_SUCCESS ;
2849: x_rev_operation_tbl := p_rev_operation_tbl ;
2850: x_rev_op_resource_tbl := p_rev_op_resource_tbl ;
2851: x_rev_sub_resource_tbl := p_rev_sub_resource_tbl ;
2844: BEGIN
2845:
2846: -- Init local table variables.
2847: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2848: l_bo_return_status := FND_API.G_RET_STS_SUCCESS ;
2849: x_rev_operation_tbl := p_rev_operation_tbl ;
2850: x_rev_op_resource_tbl := p_rev_op_resource_tbl ;
2851: x_rev_sub_resource_tbl := p_rev_sub_resource_tbl ;
2852:
2855:
2856: FOR I IN 1..x_rev_operation_tbl.COUNT LOOP
2857:
2858: IF (x_rev_operation_tbl(I).return_status IS NULL OR
2859: x_rev_operation_tbl(I).return_status = FND_API.G_MISS_CHAR) THEN
2860:
2861: BEGIN
2862:
2863: -- Load local records.
2897: -- that it is the child of the parent that called this procedure
2898: --
2899:
2900: IF --(l_rev_operation_rec.return_status IS NULL OR
2901: --l_rev_operation_rec.return_status = FND_API.G_MISS_CHAR)
2902: --AND
2903:
2904: -- Did Rev_Items call this procedure, that is,
2905: -- if revised item exists, then is this record a child ?
2910: (l_rev_operation_rec.ECO_Name = p_change_notice AND
2911: l_rev_op_unexp_rec.organization_id = p_organization_id AND
2912: l_rev_operation_rec.revised_item_name = p_revised_item_name AND
2913: l_rev_operation_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
2914: NVL(l_rev_operation_rec.new_routing_revision, FND_API.G_MISS_CHAR )
2915: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2916: NVL(l_rev_operation_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
2917: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2918: NVL(l_rev_operation_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
2911: l_rev_op_unexp_rec.organization_id = p_organization_id AND
2912: l_rev_operation_rec.revised_item_name = p_revised_item_name AND
2913: l_rev_operation_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
2914: NVL(l_rev_operation_rec.new_routing_revision, FND_API.G_MISS_CHAR )
2915: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2916: NVL(l_rev_operation_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
2917: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2918: NVL(l_rev_operation_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
2919: = NVL(p_item_revision, FND_API.G_MISS_CHAR) ))
2912: l_rev_operation_rec.revised_item_name = p_revised_item_name AND
2913: l_rev_operation_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
2914: NVL(l_rev_operation_rec.new_routing_revision, FND_API.G_MISS_CHAR )
2915: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2916: NVL(l_rev_operation_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
2917: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2918: NVL(l_rev_operation_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
2919: = NVL(p_item_revision, FND_API.G_MISS_CHAR) ))
2920: )
2913: l_rev_operation_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
2914: NVL(l_rev_operation_rec.new_routing_revision, FND_API.G_MISS_CHAR )
2915: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2916: NVL(l_rev_operation_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
2917: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2918: NVL(l_rev_operation_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
2919: = NVL(p_item_revision, FND_API.G_MISS_CHAR) ))
2920: )
2921: THEN
2914: NVL(l_rev_operation_rec.new_routing_revision, FND_API.G_MISS_CHAR )
2915: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2916: NVL(l_rev_operation_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
2917: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2918: NVL(l_rev_operation_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
2919: = NVL(p_item_revision, FND_API.G_MISS_CHAR) ))
2920: )
2921: THEN
2922:
2915: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2916: NVL(l_rev_operation_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
2917: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
2918: NVL(l_rev_operation_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
2919: = NVL(p_item_revision, FND_API.G_MISS_CHAR) ))
2920: )
2921: THEN
2922:
2923: l_return_status := FND_API.G_RET_STS_SUCCESS;
2919: = NVL(p_item_revision, FND_API.G_MISS_CHAR) ))
2920: )
2921: THEN
2922:
2923: l_return_status := FND_API.G_RET_STS_SUCCESS;
2924: l_rev_operation_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2925:
2926: -- Bug 6657209
2927: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
2920: )
2921: THEN
2922:
2923: l_return_status := FND_API.G_RET_STS_SUCCESS;
2924: l_rev_operation_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2925:
2926: -- Bug 6657209
2927: IF (l_item_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
2928: l_rev_operation_rec.start_effective_date := p_effectivity_date;
3073: -- by model unit effectivity
3074: --
3075: --
3076: IF Bom_Rtg_Globals.Get_Unit_Controlled_Item THEN
3077: l_return_status := FND_API.G_RET_STS_ERROR;
3078: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3079: l_token_tbl(1).token_value := l_rev_operation_rec.operation_sequence_number ;
3080: l_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
3081: l_token_tbl(2).token_value := l_rev_operation_rec.revised_item_name ;
3592: AND l_rev_operation_rec.acd_type IN (2 ,3) ) -- ACD Type: Change or Disable
3593: THEN
3594:
3595: IF l_rev_operation_rec.old_operation_sequence_number IS NULL OR
3596: l_rev_operation_rec.old_operation_sequence_number = FND_API.G_MISS_NUM
3597: THEN
3598: l_rev_operation_rec.old_operation_sequence_number
3599: := l_rev_operation_rec.operation_sequence_number ;
3600: END IF ;
4059: ( p_rev_operation_tbl => x_rev_operation_tbl
4060: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4061: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4062: , p_mesg_token_tbl => l_mesg_token_tbl
4063: , p_error_status => FND_API.G_RET_STS_ERROR
4064: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4065: , p_error_level => Error_Handler.G_OP_LEVEL
4066: , p_entity_index => I
4067: , x_eco_rec => l_eco_rec
4096: ( p_rev_operation_tbl => x_rev_operation_tbl
4097: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4098: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4099: , p_mesg_token_tbl => l_mesg_token_tbl
4100: , p_error_status => FND_API.G_RET_STS_ERROR
4101: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4102: , p_error_level => Error_Handler.G_OP_LEVEL
4103: , p_entity_index => I
4104: , x_eco_rec => l_eco_rec
4132: ( p_rev_operation_tbl => x_rev_operation_tbl
4133: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4134: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4135: , p_mesg_token_tbl => l_mesg_token_tbl
4136: , p_error_status => FND_API.G_RET_STS_ERROR
4137: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4138: , p_error_level => Error_Handler.G_OP_LEVEL
4139: , p_entity_index => I
4140: , x_eco_rec => l_eco_rec
4167: ( p_rev_operation_tbl => x_rev_operation_tbl
4168: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4169: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4170: , p_mesg_token_tbl => l_mesg_token_tbl
4171: , p_error_status => FND_API.G_RET_STS_ERROR
4172: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4173: , p_error_level => Error_Handler.G_OP_LEVEL
4174: , p_entity_index => I
4175: , x_eco_rec => l_eco_rec
4204: ( p_rev_operation_tbl => x_rev_operation_tbl
4205: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4206: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4207: , p_mesg_token_tbl => l_mesg_token_tbl
4208: , p_error_status => FND_API.G_RET_STS_ERROR
4209: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4210: , p_error_level => Error_Handler.G_OP_LEVEL
4211: , p_entity_index => I
4212: , x_eco_rec => l_eco_rec
4235: ( p_rev_operation_tbl => x_rev_operation_tbl
4236: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4237: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4238: , p_mesg_token_tbl => l_mesg_token_tbl
4239: , p_error_status => FND_API.G_RET_STS_ERROR
4240: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4241: , p_error_level => Error_Handler.G_OP_LEVEL
4242: , p_entity_index => I
4243: , x_eco_rec => l_eco_rec
4266: ( p_rev_operation_tbl => x_rev_operation_tbl
4267: , p_rev_op_resource_tbl => x_rev_op_resource_tbl
4268: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl
4269: , p_mesg_token_tbl => l_mesg_token_tbl
4270: , p_error_status => FND_API.G_RET_STS_ERROR
4271: , p_error_scope => Error_Handler.G_SCOPE_RECORD
4272: , p_error_level => Error_Handler.G_OP_LEVEL
4273: , p_entity_index => I
4274: , x_eco_rec => l_eco_rec
4483:
4484: FOR I IN 1..x_sub_component_tbl.COUNT LOOP
4485:
4486: IF (x_sub_component_tbl(I).return_status IS NULL OR
4487: x_sub_component_tbl(I).return_status = FND_API.G_MISS_CHAR) THEN
4488:
4489: BEGIN
4490:
4491: -- Load local records.
4520: -- that it is the child of the parent that called this procedure
4521: --
4522:
4523: IF --(l_sub_component_rec.return_status IS NULL OR
4524: --l_sub_component_rec.return_status = FND_API.G_MISS_CHAR)
4525: --AND
4526:
4527: -- Did Rev_Comps call this procedure, that is,
4528: -- if revised comp exists, then is this record a child ?
4530: ((l_comp_parent_exists AND
4531: (l_sub_component_rec.ECO_Name = p_change_notice AND
4532: l_sub_comp_unexp_rec.organization_id = p_organization_id AND
4533: l_sub_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
4534: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4535: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
4536: l_sub_component_rec.revised_item_name = p_revised_item_name AND
4537: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4538: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4531: (l_sub_component_rec.ECO_Name = p_change_notice AND
4532: l_sub_comp_unexp_rec.organization_id = p_organization_id AND
4533: l_sub_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
4534: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4535: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
4536: l_sub_component_rec.revised_item_name = p_revised_item_name AND
4537: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4538: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4539: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4534: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4535: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
4536: l_sub_component_rec.revised_item_name = p_revised_item_name AND
4537: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4538: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4539: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4540: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4541: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4542: l_sub_component_rec.component_item_name = p_component_item_name AND
4535: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
4536: l_sub_component_rec.revised_item_name = p_revised_item_name AND
4537: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4538: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4539: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4540: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4541: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4542: l_sub_component_rec.component_item_name = p_component_item_name AND
4543: l_sub_component_rec.operation_sequence_number = p_operation_seq_num))
4536: l_sub_component_rec.revised_item_name = p_revised_item_name AND
4537: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4538: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4539: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4540: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4541: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4542: l_sub_component_rec.component_item_name = p_component_item_name AND
4543: l_sub_component_rec.operation_sequence_number = p_operation_seq_num))
4544:
4537: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4538: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4539: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4540: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4541: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4542: l_sub_component_rec.component_item_name = p_component_item_name AND
4543: l_sub_component_rec.operation_sequence_number = p_operation_seq_num))
4544:
4545: OR
4552: l_sub_comp_unexp_rec.organization_id = p_organization_id AND
4553: l_sub_component_rec.revised_item_name = p_revised_item_name AND
4554: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4555: l_sub_component_rec.start_effective_date = p_effectivity_date AND
4556: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4557: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4558: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4559: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/0
4560: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4553: l_sub_component_rec.revised_item_name = p_revised_item_name AND
4554: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4555: l_sub_component_rec.start_effective_date = p_effectivity_date AND
4556: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4557: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4558: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4559: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/0
4560: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4561: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
4554: NVL(l_sub_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
4555: l_sub_component_rec.start_effective_date = p_effectivity_date AND
4556: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4557: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4558: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4559: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/0
4560: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4561: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
4562:
4555: l_sub_component_rec.start_effective_date = p_effectivity_date AND
4556: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4557: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4558: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4559: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/0
4560: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4561: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
4562:
4563: OR
4556: NVL(l_sub_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
4557: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4558: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4559: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/0
4560: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4561: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
4562:
4563: OR
4564:
4557: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
4558: NVL(l_sub_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
4559: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/0
4560: NVL(l_sub_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
4561: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
4562:
4563: OR
4564:
4565: (NOT l_comp_parent_exists AND
4565: (NOT l_comp_parent_exists AND
4566: NOT l_item_parent_exists))
4567: THEN
4568:
4569: l_return_status := FND_API.G_RET_STS_SUCCESS;
4570:
4571: l_sub_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4572:
4573: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing substitite component: ' || l_sub_component_rec.substitute_component_name); END IF;
4567: THEN
4568:
4569: l_return_status := FND_API.G_RET_STS_SUCCESS;
4570:
4571: l_sub_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
4572:
4573: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing substitite component: ' || l_sub_component_rec.substitute_component_name); END IF;
4574:
4575: -- Bug 6657209
5390:
5391:
5392: FOR I IN 1..x_ref_designator_tbl.COUNT LOOP
5393: IF (x_ref_designator_tbl(I).return_status IS NULL OR
5394: x_ref_designator_tbl(I).return_status = FND_API.G_MISS_CHAR) THEN
5395:
5396: BEGIN
5397:
5398: -- Load local records.
5443: ' Rev Comp: ' || p_component_item_name ||
5444: ' Op. Seq : ' || p_operation_seq_num); END IF;
5445:
5446: IF --(l_ref_designator_rec.return_status IS NULL OR
5447: --l_ref_designator_rec.return_status = FND_API.G_MISS_CHAR)
5448: --AND
5449:
5450: -- Did Rev_Comps call this procedure, that is,
5451: -- if revised comp exists, then is this record a child ?
5453: ((l_comp_parent_exists AND
5454: (l_ref_designator_rec.ECO_Name = p_change_notice AND
5455: l_ref_desg_unexp_rec.organization_id = p_organization_id AND
5456: l_ref_designator_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- bug 6657209
5457: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5458: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
5459: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5460: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5461: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5454: (l_ref_designator_rec.ECO_Name = p_change_notice AND
5455: l_ref_desg_unexp_rec.organization_id = p_organization_id AND
5456: l_ref_designator_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- bug 6657209
5457: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5458: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
5459: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5460: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5461: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5462: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5455: l_ref_desg_unexp_rec.organization_id = p_organization_id AND
5456: l_ref_designator_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- bug 6657209
5457: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5458: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
5459: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5460: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5461: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5462: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5463: l_ref_designator_rec.revised_item_name = p_revised_item_name AND
5456: l_ref_designator_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- bug 6657209
5457: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5458: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
5459: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5460: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5461: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5462: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5463: l_ref_designator_rec.revised_item_name = p_revised_item_name AND
5464: NVL(l_ref_designator_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
5457: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5458: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
5459: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5460: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5461: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5462: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5463: l_ref_designator_rec.revised_item_name = p_revised_item_name AND
5464: NVL(l_ref_designator_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
5465: l_ref_designator_rec.component_item_name = p_component_item_name AND
5458: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) AND
5459: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5460: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5461: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5462: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5463: l_ref_designator_rec.revised_item_name = p_revised_item_name AND
5464: NVL(l_ref_designator_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
5465: l_ref_designator_rec.component_item_name = p_component_item_name AND
5466: l_ref_designator_rec.operation_sequence_number = p_operation_seq_num))
5475: l_ref_desg_unexp_rec.organization_id = p_organization_id AND
5476: l_ref_designator_rec.revised_item_name = p_revised_item_name AND
5477: NVL(l_ref_designator_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
5478: l_ref_designator_rec.start_effective_date = p_effectivity_date AND
5479: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5480: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5481: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5482: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5483: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5476: l_ref_designator_rec.revised_item_name = p_revised_item_name AND
5477: NVL(l_ref_designator_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
5478: l_ref_designator_rec.start_effective_date = p_effectivity_date AND
5479: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5480: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5481: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5482: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5483: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5484: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
5477: NVL(l_ref_designator_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND -- Bug 3991176
5478: l_ref_designator_rec.start_effective_date = p_effectivity_date AND
5479: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5480: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5481: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5482: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5483: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5484: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
5485:
5478: l_ref_designator_rec.start_effective_date = p_effectivity_date AND
5479: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5480: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5481: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5482: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5483: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5484: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
5485:
5486: OR
5479: NVL(l_ref_designator_rec.new_routing_revision, FND_API.G_MISS_CHAR )
5480: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5481: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5482: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5483: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5484: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
5485:
5486: OR
5487:
5480: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5481: NVL(l_ref_designator_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
5482: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
5483: NVL(l_ref_designator_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
5484: = NVL(p_item_revision, FND_API.G_MISS_CHAR ) ))
5485:
5486: OR
5487:
5488: (NOT l_item_parent_exists AND
5488: (NOT l_item_parent_exists AND
5489: NOT l_comp_parent_exists))
5490: THEN
5491:
5492: l_return_status := FND_API.G_RET_STS_SUCCESS;
5493:
5494: l_ref_designator_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5495:
5496: -- Bug 6657209
5490: THEN
5491:
5492: l_return_status := FND_API.G_RET_STS_SUCCESS;
5493:
5494: l_ref_designator_rec.return_status := FND_API.G_RET_STS_SUCCESS;
5495:
5496: -- Bug 6657209
5497: IF (l_comp_parent_exists and ENG_Default_Revised_Item.G_OLD_SCHED_DATE is not null) THEN
5498: l_ref_designator_rec.start_effective_date := p_effectivity_date;
6205: EXC_UNEXP_SKIP_OBJECT EXCEPTION;
6206:
6207: BEGIN
6208:
6209: l_return_status := FND_API.G_RET_STS_SUCCESS;
6210: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
6211: x_return_status := FND_API.G_RET_STS_SUCCESS;
6212: x_ref_designator_tbl := p_ref_designator_tbl;
6213: x_sub_component_tbl := p_sub_component_tbl;
6206:
6207: BEGIN
6208:
6209: l_return_status := FND_API.G_RET_STS_SUCCESS;
6210: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
6211: x_return_status := FND_API.G_RET_STS_SUCCESS;
6212: x_ref_designator_tbl := p_ref_designator_tbl;
6213: x_sub_component_tbl := p_sub_component_tbl;
6214: l_rev_comp_unexp_rec.organization_id := ENG_GLOBALS.Get_org_id;
6207: BEGIN
6208:
6209: l_return_status := FND_API.G_RET_STS_SUCCESS;
6210: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
6211: x_return_status := FND_API.G_RET_STS_SUCCESS;
6212: x_ref_designator_tbl := p_ref_designator_tbl;
6213: x_sub_component_tbl := p_sub_component_tbl;
6214: l_rev_comp_unexp_rec.organization_id := ENG_GLOBALS.Get_org_id;
6215:
6269: -- that it is the child of the parent that called this procedure
6270: --
6271:
6272: IF --(l_rev_component_rec.return_status IS NULL OR
6273: --l_rev_component_rec.return_status = FND_API.G_MISS_CHAR)
6274: --AND
6275:
6276: -- Did Rev_Items call this procedure, that is,
6277: -- if revised item exists, then is this record a child ?
6284: l_rev_component_rec.revised_item_name = p_revised_item_name AND
6285: NVL(l_rev_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND
6286: -- Bug 2429272 Change 4
6287: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
6288: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
6289: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6290: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
6291: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6292: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
6285: NVL(l_rev_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND
6286: -- Bug 2429272 Change 4
6287: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
6288: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
6289: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6290: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
6291: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6292: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
6293: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
6286: -- Bug 2429272 Change 4
6287: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
6288: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
6289: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6290: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
6291: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6292: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
6293: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
6294:
6287: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
6288: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
6289: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6290: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
6291: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6292: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
6293: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
6294:
6295: THEN
6288: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
6289: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6290: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
6291: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6292: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
6293: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
6294:
6295: THEN
6296:
6289: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6290: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
6291: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
6292: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
6293: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
6294:
6295: THEN
6296:
6297: l_return_status := FND_API.G_RET_STS_SUCCESS;
6293: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
6294:
6295: THEN
6296:
6297: l_return_status := FND_API.G_RET_STS_SUCCESS;
6298:
6299: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
6300:
6301: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
6295: THEN
6296:
6297: l_return_status := FND_API.G_RET_STS_SUCCESS;
6298:
6299: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
6300:
6301: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
6302: -- Check if transaction_type is valid
6303: --
7110: ( p_rev_component_tbl => x_rev_component_tbl
7111: , p_ref_designator_tbl => x_ref_designator_tbl
7112: , p_sub_component_tbl => x_sub_component_tbl
7113: , p_mesg_token_tbl => l_mesg_token_tbl
7114: , p_error_status => FND_API.G_RET_STS_ERROR
7115: , p_error_scope => Error_Handler.G_SCOPE_RECORD
7116: , p_error_level => 4
7117: , p_entity_index => I
7118: , x_eco_rec => l_eco_rec
7434: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7435: , x_return_status => l_return_status
7436: );
7437:
7438: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
7439: THEN
7440: l_bo_return_status := l_return_status;
7441: END IF;
7442:
7465: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7466: , x_return_status => l_return_status
7467: );
7468:
7469: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
7470: THEN
7471: l_bo_return_status := l_return_status;
7472: END IF;
7473:
7546: BEGIN
7547:
7548: -- Init local table variables.
7549:
7550: l_return_status := FND_API.G_RET_STS_SUCCESS;
7551: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
7552:
7553: x_return_status := FND_API.G_RET_STS_SUCCESS;
7554:
7547:
7548: -- Init local table variables.
7549:
7550: l_return_status := FND_API.G_RET_STS_SUCCESS;
7551: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
7552:
7553: x_return_status := FND_API.G_RET_STS_SUCCESS;
7554:
7555: --l_rev_component_tbl := p_rev_component_tbl;
7549:
7550: l_return_status := FND_API.G_RET_STS_SUCCESS;
7551: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
7552:
7553: x_return_status := FND_API.G_RET_STS_SUCCESS;
7554:
7555: --l_rev_component_tbl := p_rev_component_tbl;
7556: x_rev_component_tbl := p_rev_component_tbl;
7557: x_ref_designator_tbl := p_ref_designator_tbl;
7560: l_rev_comp_unexp_rec.organization_id := ENG_GLOBALS.Get_org_id;
7561:
7562: FOR I IN 1..x_rev_component_tbl.COUNT LOOP
7563: IF (x_rev_component_tbl(I).return_status IS NULL OR
7564: x_rev_component_tbl(I).return_status = FND_API.G_MISS_CHAR) THEN
7565:
7566: BEGIN
7567:
7568: --
7619: -- that it is the child of the parent that called this procedure
7620: --
7621:
7622: IF --(l_rev_component_rec.return_status IS NULL OR
7623: --l_rev_component_rec.return_status = FND_API.G_MISS_CHAR)
7624: --AND
7625:
7626: -- Did Rev_Items call this procedure, that is,
7627: -- if revised item exists, then is this record a child ?
7634: l_rev_component_rec.revised_item_name = p_revised_item_name AND
7635: NVL(l_rev_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND
7636: -- Bug 2429272 Change 4
7637: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
7638: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
7639: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7640: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
7641: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7642: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
7635: NVL(l_rev_component_rec.alternate_bom_code,'NULL') = NVL(p_alternate_bom_code,'NULL') AND
7636: -- Bug 2429272 Change 4
7637: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
7638: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
7639: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7640: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
7641: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7642: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
7643: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
7636: -- Bug 2429272 Change 4
7637: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
7638: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
7639: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7640: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
7641: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7642: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
7643: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
7644:
7637: l_rev_component_rec.start_effective_date = nvl(ENG_Default_Revised_Item.G_OLD_SCHED_DATE,p_effectivity_date) AND -- Bug 6657209
7638: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
7639: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7640: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
7641: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7642: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
7643: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
7644:
7645: THEN
7638: NVL(l_rev_component_rec.new_routing_revision, FND_API.G_MISS_CHAR )
7639: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7640: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
7641: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7642: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
7643: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
7644:
7645: THEN
7646:
7639: = NVL(p_routing_revision, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7640: NVL(l_rev_component_rec.from_end_item_unit_number, FND_API.G_MISS_CHAR )
7641: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR ) AND -- Added by MK on 11/02/00
7642: NVL(l_rev_component_rec.new_revised_item_revision, FND_API.G_MISS_CHAR )
7643: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
7644:
7645: THEN
7646:
7647: l_return_status := FND_API.G_RET_STS_SUCCESS;
7643: = NVL(p_item_revision, FND_API.G_MISS_CHAR) )))
7644:
7645: THEN
7646:
7647: l_return_status := FND_API.G_RET_STS_SUCCESS;
7648:
7649: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
7650:
7651: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
7645: THEN
7646:
7647: l_return_status := FND_API.G_RET_STS_SUCCESS;
7648:
7649: l_rev_component_rec.return_status := FND_API.G_RET_STS_SUCCESS;
7650:
7651: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing component: ' || l_rev_component_rec.component_item_name); END IF;
7652: -- Check if transaction_type is valid
7653: --
8458: ( p_rev_component_tbl => x_rev_component_tbl
8459: , p_ref_designator_tbl => x_ref_designator_tbl
8460: , p_sub_component_tbl => x_sub_component_tbl
8461: , p_mesg_token_tbl => l_mesg_token_tbl
8462: , p_error_status => FND_API.G_RET_STS_ERROR
8463: , p_error_scope => Error_Handler.G_SCOPE_RECORD
8464: , p_error_level => 4
8465: , p_entity_index => I
8466: , x_eco_rec => l_eco_rec
8773: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8774: , x_return_status => l_return_status
8775: );
8776:
8777: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
8778: THEN
8779: l_bo_return_status := l_return_status;
8780: END IF;
8781:
8804: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
8805: , x_return_status => l_return_status
8806: );
8807:
8808: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
8809: THEN
8810: l_bo_return_status := l_return_status;
8811: END IF;
8812:
8905:
8906: -- End Changes
8907:
8908: BEGIN
8909: l_return_status := FND_API.G_RET_STS_SUCCESS;
8910: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
8911: x_return_status := FND_API.G_RET_STS_SUCCESS;
8912:
8913: x_rev_component_tbl := p_rev_component_tbl;
8906: -- End Changes
8907:
8908: BEGIN
8909: l_return_status := FND_API.G_RET_STS_SUCCESS;
8910: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
8911: x_return_status := FND_API.G_RET_STS_SUCCESS;
8912:
8913: x_rev_component_tbl := p_rev_component_tbl;
8914: x_ref_designator_tbl := p_ref_designator_tbl;
8907:
8908: BEGIN
8909: l_return_status := FND_API.G_RET_STS_SUCCESS;
8910: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
8911: x_return_status := FND_API.G_RET_STS_SUCCESS;
8912:
8913: x_rev_component_tbl := p_rev_component_tbl;
8914: x_ref_designator_tbl := p_ref_designator_tbl;
8915: x_sub_component_tbl := p_sub_component_tbl;
8951:
8952: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Revised Item . . . ' || l_revised_item_rec.revised_item_name); END IF;
8953:
8954: IF --(l_revised_item_rec.return_status IS NULL OR
8955: --l_revised_item_rec.return_status = FND_API.G_MISS_CHAR)
8956: --AND
8957: (NOT l_eco_parent_exists
8958: OR
8959: (l_eco_parent_exists AND
8960: (l_revised_item_rec.ECO_Name = p_change_notice AND
8961: l_rev_item_unexp_rec.organization_id = p_organization_id)))
8962: THEN
8963:
8964: l_return_status := FND_API.G_RET_STS_SUCCESS;
8965:
8966: l_revised_item_rec.return_status := FND_API.G_RET_STS_SUCCESS;
8967:
8968: -- Check if transaction_type is valid
8962: THEN
8963:
8964: l_return_status := FND_API.G_RET_STS_SUCCESS;
8965:
8966: l_revised_item_rec.return_status := FND_API.G_RET_STS_SUCCESS;
8967:
8968: -- Check if transaction_type is valid
8969: --
8970:
9709: , p_rev_operation_tbl => x_rev_operation_tbl --L1
9710: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
9711: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
9712: , p_mesg_token_tbl => l_mesg_token_tbl
9713: , p_error_status => FND_API.G_RET_STS_ERROR
9714: , p_error_scope => Error_Handler.G_SCOPE_RECORD
9715: , p_error_level => 3
9716: , p_entity_index => I
9717: , x_eco_rec => l_eco_rec
10080: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10081: , x_return_status => l_return_status
10082: );
10083:
10084: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10085: THEN
10086: l_bo_return_status := l_return_status;
10087: END IF;
10088:
10110: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl
10111: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10112: , x_return_status => l_return_status
10113: );
10114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10115: THEN
10116: l_bo_return_status := l_return_status;
10117: END IF;
10118:
10136: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl
10137: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10138: , x_return_status => l_return_status
10139: );
10140: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10141: THEN
10142: l_bo_return_status := l_return_status;
10143: END IF;
10144:
10176: );
10177:
10178: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev_Comps return status ' || l_return_status); END IF;
10179:
10180: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10181: THEN
10182:
10183: IF Bom_Globals.Get_Debug = 'Y' THEN
10184: Error_Handler.Write_Debug('Rev_Comps returned in Rev_Items . . .BO Status: ' || l_return_status);
10218: -- Process Substitute Components that are orphans
10219: -- (without immediate revised component parents) but are
10220: -- indirect children of this item
10221:
10222: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10223: THEN
10224: l_bo_return_status := l_return_status;
10225: END IF;
10226:
10244: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
10245: , x_return_status => l_return_status
10246: );
10247:
10248: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10249: THEN
10250: l_bo_return_status := l_return_status;
10251: END IF;
10252:
10331: BEGIN
10332:
10333: -- Init local table variables.
10334:
10335: l_return_status := FND_API.G_RET_STS_SUCCESS;
10336: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
10337: x_return_status := FND_API.G_RET_STS_SUCCESS;
10338:
10339: x_revised_item_tbl := p_revised_item_tbl;
10332:
10333: -- Init local table variables.
10334:
10335: l_return_status := FND_API.G_RET_STS_SUCCESS;
10336: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
10337: x_return_status := FND_API.G_RET_STS_SUCCESS;
10338:
10339: x_revised_item_tbl := p_revised_item_tbl;
10340: x_rev_component_tbl := p_rev_component_tbl;
10333: -- Init local table variables.
10334:
10335: l_return_status := FND_API.G_RET_STS_SUCCESS;
10336: l_bo_return_status := FND_API.G_RET_STS_SUCCESS;
10337: x_return_status := FND_API.G_RET_STS_SUCCESS;
10338:
10339: x_revised_item_tbl := p_revised_item_tbl;
10340: x_rev_component_tbl := p_rev_component_tbl;
10341: x_ref_designator_tbl := p_ref_designator_tbl;
10347: -- l_Rev_Item_Unexp_Rec.organization_id := ENG_GLOBALS.Get_org_id;
10348:
10349: FOR I IN 1..x_revised_item_tbl.COUNT LOOP
10350: IF (x_revised_item_tbl(I).return_status IS NULL OR
10351: x_revised_item_tbl(I).return_status = FND_API.G_MISS_CHAR) THEN
10352:
10353: BEGIN
10354:
10355: -- Load local records.
10386:
10387: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Revised Item . . . ' || l_revised_item_rec.revised_item_name); END IF;
10388:
10389: IF --(l_revised_item_rec.return_status IS NULL OR
10390: --l_revised_item_rec.return_status = FND_API.G_MISS_CHAR)
10391: --AND
10392: (NOT l_eco_parent_exists
10393: OR
10394: (l_eco_parent_exists AND
10395: (l_revised_item_rec.ECO_Name = p_change_notice AND
10396: l_rev_item_unexp_rec.organization_id = p_organization_id)))
10397: THEN
10398:
10399: l_return_status := FND_API.G_RET_STS_SUCCESS;
10400:
10401: l_revised_item_rec.return_status := FND_API.G_RET_STS_SUCCESS;
10402:
10403: -- Check if transaction_type is valid
10397: THEN
10398:
10399: l_return_status := FND_API.G_RET_STS_SUCCESS;
10400:
10401: l_revised_item_rec.return_status := FND_API.G_RET_STS_SUCCESS;
10402:
10403: -- Check if transaction_type is valid
10404: --
10405:
11235: , p_rev_operation_tbl => x_rev_operation_tbl --L1
11236: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
11237: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
11238: , p_mesg_token_tbl => l_mesg_token_tbl
11239: , p_error_status => FND_API.G_RET_STS_ERROR
11240: , p_error_scope => Error_Handler.G_SCOPE_RECORD
11241: , p_error_level => 3
11242: , p_entity_index => I
11243: , x_eco_rec => l_eco_rec
11606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11607: , x_return_status => l_return_status
11608: );
11609:
11610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11611: THEN
11612: l_bo_return_status := l_return_status;
11613: END IF;
11614:
11636: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl
11637: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11638: , x_return_status => l_return_status
11639: );
11640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11641: THEN
11642: l_bo_return_status := l_return_status;
11643: END IF;
11644:
11662: , x_rev_sub_resource_tbl => x_rev_sub_resource_tbl
11663: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11664: , x_return_status => l_return_status
11665: );
11666: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11667: THEN
11668: l_bo_return_status := l_return_status;
11669: END IF;
11670:
11702: );
11703:
11704: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rev_Comps return status ' || l_return_status); END IF;
11705:
11706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11707: THEN
11708:
11709: IF Bom_Globals.Get_Debug = 'Y' THEN
11710: Error_Handler.Write_Debug('Rev_Comps returned in Rev_Items . . .BO Status: ' || l_return_status);
11744: -- Process Substitute Components that are orphans
11745: -- (without immediate revised component parents) but are
11746: -- indirect children of this item
11747:
11748: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11749: THEN
11750: l_bo_return_status := l_return_status;
11751: END IF;
11752:
11770: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
11771: , x_return_status => l_return_status
11772: );
11773:
11774: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11775: THEN
11776: l_bo_return_status := l_return_status;
11777: END IF;
11778:
11876: BEGIN
11877:
11878:
11879: -- Init local table variables.
11880: l_return_status := FND_API.G_RET_STS_SUCCESS ;
11881: l_bo_return_status := FND_API.G_RET_STS_SUCCESS ;
11882: --l_change_line_tbl := p_change_line_tbl ;
11883: x_change_line_tbl := p_change_line_tbl;
11884: x_revised_item_tbl := p_revised_item_tbl;
11877:
11878:
11879: -- Init local table variables.
11880: l_return_status := FND_API.G_RET_STS_SUCCESS ;
11881: l_bo_return_status := FND_API.G_RET_STS_SUCCESS ;
11882: --l_change_line_tbl := p_change_line_tbl ;
11883: x_change_line_tbl := p_change_line_tbl;
11884: x_revised_item_tbl := p_revised_item_tbl;
11885: x_rev_component_tbl := p_rev_component_tbl;
11896: -- Process Flow Step 2: Check if record has not yet been processed and
11897: -- that it is the child of the parent that called this procedure
11898: --
11899: IF (x_change_line_tbl(I).return_status IS NULL OR
11900: x_change_line_tbl(I).return_status = FND_API.G_MISS_CHAR)
11901: THEN
11902:
11903: BEGIN
11904:
11943:
11944: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing Change Line . . . ' || l_change_line_rec.name); END IF;
11945:
11946: --IF (l_change_line_rec.return_status IS NULL OR
11947: --l_change_line_rec.return_status = FND_API.G_MISS_CHAR)
11948: --THEN
11949:
11950: l_return_status := FND_API.G_RET_STS_SUCCESS;
11951: l_change_line_rec.return_status := FND_API.G_RET_STS_SUCCESS;
11946: --IF (l_change_line_rec.return_status IS NULL OR
11947: --l_change_line_rec.return_status = FND_API.G_MISS_CHAR)
11948: --THEN
11949:
11950: l_return_status := FND_API.G_RET_STS_SUCCESS;
11951: l_change_line_rec.return_status := FND_API.G_RET_STS_SUCCESS;
11952:
11953: -- Check if transaction_type is valid
11954: --
11947: --l_change_line_rec.return_status = FND_API.G_MISS_CHAR)
11948: --THEN
11949:
11950: l_return_status := FND_API.G_RET_STS_SUCCESS;
11951: l_change_line_rec.return_status := FND_API.G_RET_STS_SUCCESS;
11952:
11953: -- Check if transaction_type is valid
11954: --
11955:
12751: , p_rev_operation_tbl => x_rev_operation_tbl --L1
12752: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
12753: , p_rev_sub_resource_tbl=> x_rev_sub_resource_tbl --L1
12754: , p_mesg_token_tbl => l_mesg_token_tbl
12755: , p_error_status => FND_API.G_RET_STS_ERROR
12756: , p_error_scope => Error_Handler.G_SCOPE_RECORD
12757: , p_error_level => ECO_Error_Handler.G_CL_LEVEL
12758: , p_entity_index => I
12759: , x_ECO_rec => l_ECO_rec
13100: l_eco_rev_unexp_rec.organization_id := ENG_GLOBALS.Get_org_id;
13101:
13102: FOR I IN 1..x_eco_revision_tbl.COUNT LOOP
13103: IF (x_eco_revision_tbl(I).return_status IS NULL OR
13104: x_eco_revision_tbl(I).return_status = FND_API.G_MISS_CHAR) THEN
13105:
13106: BEGIN
13107:
13108: -- Load local records.
13122: -- that it is the child of the parent that called this procedure
13123: --
13124:
13125: IF --(l_eco_revision_rec.return_status IS NULL OR
13126: --l_eco_revision_rec.return_status = FND_API.G_MISS_CHAR)
13127: --AND
13128: (NOT l_eco_parent_exists
13129: OR
13130: (l_eco_parent_exists AND
13131: (l_eco_revision_rec.ECO_Name = p_change_notice AND
13132: l_eco_rev_unexp_rec.organization_id = p_organization_id)))
13133: THEN
13134:
13135: l_return_status := FND_API.G_RET_STS_SUCCESS;
13136:
13137: l_eco_revision_rec.return_status := FND_API.G_RET_STS_SUCCESS;
13138:
13139: -- Check if transaction_type is valid
13133: THEN
13134:
13135: l_return_status := FND_API.G_RET_STS_SUCCESS;
13136:
13137: l_eco_revision_rec.return_status := FND_API.G_RET_STS_SUCCESS;
13138:
13139: -- Check if transaction_type is valid
13140: --
13141:
13512: , p_rev_operation_tbl => x_rev_operation_tbl --L1
13513: , p_rev_op_resource_tbl => x_rev_op_resource_tbl --L1
13514: , p_rev_sub_resource_tbl => x_rev_sub_resource_tbl --L1
13515: , p_mesg_token_tbl => l_mesg_token_tbl
13516: , p_error_status => FND_API.G_RET_STS_ERROR
13517: , p_error_scope => Error_Handler.G_SCOPE_RECORD
13518: , p_error_level => 2
13519: , p_entity_index => I
13520: , x_eco_rec => l_eco_rec
13905: l_change_line_rec Eng_Eco_Pub.Change_Line_Rec_Type;
13906: l_change_line_unexp_rec Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type;
13907: l_dest_change_id NUMBER;
13908: l_msg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
13909: l_Return_Status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13910: l_sql_stmt VARCHAR2(1000);
13911:
13912: BEGIN
13913:
14067: ) ;
14068: END IF ;
14069:
14070: -- Return the status and message table.
14071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14072: x_mesg_token_tbl := l_mesg_token_tbl ;
14073:
14074: end Create_Relation;
14075:
14117: l_other_token_tbl Error_Handler.Token_Tbl_Type;
14118: l_other_message VARCHAR2(50);
14119: l_err_text VARCHAR2(2000);
14120: l_valid BOOLEAN := TRUE;
14121: l_Return_Status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14122: l_bo_return_status VARCHAR2(1) := 'S';
14123: l_ECO_Rec Eng_Eco_Pub.ECO_Rec_Type;
14124: l_ECO_Unexp_Rec Eng_Eco_Pub.ECO_Unexposed_Rec_Type;
14125: l_Old_ECO_Rec Eng_Eco_Pub.ECO_Rec_Type := NULL;
14194: -- Process Flow Step 2: Check if record has not yet been processed
14195: --
14196:
14197: IF l_ECO_rec.return_status IS NOT NULL AND
14198: l_ECO_rec.return_status <> FND_API.G_MISS_CHAR
14199: THEN
14200: x_return_status := l_return_status;
14201: x_ECO_rec := l_ECO_rec;
14202: x_eco_revision_tbl := l_eco_revision_tbl;
14211:
14212: RETURN;
14213: END IF;
14214:
14215: l_return_status := FND_API.G_RET_STS_SUCCESS;
14216: l_eco_rec.return_status := FND_API.G_RET_STS_SUCCESS;
14217:
14218: -- Check if transaction_type is valid
14219: --
14212: RETURN;
14213: END IF;
14214:
14215: l_return_status := FND_API.G_RET_STS_SUCCESS;
14216: l_eco_rec.return_status := FND_API.G_RET_STS_SUCCESS;
14217:
14218: -- Check if transaction_type is valid
14219: --
14220:
15094: , p_rev_operation_tbl => l_rev_operation_tbl --L1
15095: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
15096: , p_rev_sub_resource_tbl=> l_rev_sub_resource_tbl --L1
15097: , p_mesg_token_tbl => l_mesg_token_tbl
15098: , p_error_status => FND_API.G_RET_STS_ERROR
15099: , p_error_scope => Error_Handler.G_SCOPE_RECORD
15100: , p_error_level => 1
15101: , x_ECO_rec => l_ECO_rec
15102: , x_eco_revision_tbl => l_eco_revision_tbl
15567: -- End of Comments
15568:
15569: PROCEDURE Process_Eco
15570: ( p_api_version_number IN NUMBER
15571: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
15572: , p_control_rec IN ENG_GLOBALS.Control_Rec_Type :=
15573: ENG_GLOBALS.G_MISS_CONTROL_REC
15574: , x_return_status OUT NOCOPY VARCHAR2
15575: , x_msg_count OUT NOCOPY NUMBER
15670:
15671: /*------------------------------------
15672: -- Not used
15673:
15674: IF NOT FND_API.Compatible_API_Call
15675: ( l_api_version_number
15676: , p_api_version_number
15677: , l_api_name
15678: , G_PKG_NAME
15725: BOM_Globals.Set_Unit_Effectivity (FALSE);
15726: ENG_Globals.Set_Unit_Effectivity (FALSE);
15727: END IF;
15728:
15729: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
15730: THEN
15731: RAISE EXC_ERR_PVT_API_MAIN;
15732: END IF;
15733: -- Eco
15730: THEN
15731: RAISE EXC_ERR_PVT_API_MAIN;
15732: END IF;
15733: -- Eco
15734: IF (l_ECO_rec.ECO_Name <> FND_API.G_MISS_CHAR
15735: AND l_ECO_rec.ECO_Name IS NOT NULL)
15736: THEN
15737: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(' '); END IF;
15738: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('PVT API: Calling ECO_Header'); END IF;
16212: , p_rev_operation_tbl => l_rev_operation_tbl --L1
16213: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
16214: , p_rev_sub_resource_tbl => l_rev_sub_resource_tbl --L1
16215: , p_mesg_token_tbl => l_mesg_token_tbl
16216: , p_error_status => FND_API.G_RET_STS_UNEXP_ERROR
16217: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
16218: , p_other_message => l_other_message
16219: , p_other_token_tbl => l_other_token_tbl
16220: , p_error_level => 0
16299: , p_rev_operation_tbl => l_rev_operation_tbl --L1
16300: , p_rev_op_resource_tbl => l_rev_op_resource_tbl --L1
16301: , p_rev_sub_resource_tbl => l_rev_sub_resource_tbl --L1
16302: , p_mesg_token_tbl => l_mesg_token_tbl
16303: , p_error_status => FND_API.G_RET_STS_UNEXP_ERROR
16304: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
16305: , p_other_message => l_other_message
16306: , p_other_token_tbl => l_other_token_tbl
16307: , p_error_level => 0
16359: -- End of Comments
16360:
16361: PROCEDURE Lock_Eco
16362: ( p_api_version_number IN NUMBER
16363: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16364: , x_return_status OUT NOCOPY VARCHAR2
16365: , x_msg_count OUT NOCOPY NUMBER
16366: , x_msg_data OUT NOCOPY VARCHAR2
16367: , p_ECO_rec IN ENG_Eco_PUB.Eco_Rec_Type :=
16386: )
16387: IS
16388: l_api_version_number CONSTANT NUMBER := 1.0;
16389: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Eco';
16390: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
16391: l_eco_revision_rec ENG_Eco_PUB.Eco_Revision_Rec_Type;
16392: l_revised_item_rec ENG_Eco_PUB.Revised_Item_Rec_Type;
16393: l_rev_component_rec BOM_BO_PUB.Rev_Component_Rec_Type;
16394: l_ref_designator_rec BOM_BO_PUB.Ref_Designator_Rec_Type;
16400: NULL;
16401:
16402: /*********************** Temporarily commented *****************************
16403:
16404: IF NOT FND_API.Compatible_API_Call
16405: ( l_api_version_number
16406: , p_api_version_number
16407: , l_api_name
16408: , G_PKG_NAME
16407: , l_api_name
16408: , G_PKG_NAME
16409: )
16410: THEN
16411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16412: END IF;
16413:
16414: -- Initialize message list.
16415:
16412: END IF;
16413:
16414: -- Initialize message list.
16415:
16416: IF FND_API.to_Boolean(p_init_msg_list) THEN
16417: FND_MSG_PUB.initialize;
16418: END IF;
16419:
16420: -- Set Savepoint
16431: , x_return_status => l_return_status
16432: , x_err_text => x_err_text
16433: );
16434:
16435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16438: RAISE FND_API.G_EXC_ERROR;
16439: END IF;
16432: , x_err_text => x_err_text
16433: );
16434:
16435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16438: RAISE FND_API.G_EXC_ERROR;
16439: END IF;
16440:
16433: );
16434:
16435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16438: RAISE FND_API.G_EXC_ERROR;
16439: END IF;
16440:
16441:
16434:
16435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16438: RAISE FND_API.G_EXC_ERROR;
16439: END IF;
16440:
16441:
16442: END IF;
16453: , x_return_status => l_return_status
16454: , x_err_text => x_err_text
16455: );
16456:
16457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16460: RAISE FND_API.G_EXC_ERROR;
16461: END IF;
16454: , x_err_text => x_err_text
16455: );
16456:
16457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16460: RAISE FND_API.G_EXC_ERROR;
16461: END IF;
16462:
16455: );
16456:
16457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16460: RAISE FND_API.G_EXC_ERROR;
16461: END IF;
16462:
16463: x_eco_revision_tbl(I) := l_eco_revision_rec;
16456:
16457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16460: RAISE FND_API.G_EXC_ERROR;
16461: END IF;
16462:
16463: x_eco_revision_tbl(I) := l_eco_revision_rec;
16464:
16478: , x_return_status => l_return_status
16479: , x_err_text => x_err_text
16480: );
16481:
16482: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16484: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16485: RAISE FND_API.G_EXC_ERROR;
16486: END IF;
16479: , x_err_text => x_err_text
16480: );
16481:
16482: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16484: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16485: RAISE FND_API.G_EXC_ERROR;
16486: END IF;
16487:
16480: );
16481:
16482: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16484: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16485: RAISE FND_API.G_EXC_ERROR;
16486: END IF;
16487:
16488: x_revised_item_tbl(I) := l_revised_item_rec;
16481:
16482: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16484: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16485: RAISE FND_API.G_EXC_ERROR;
16486: END IF;
16487:
16488: x_revised_item_tbl(I) := l_revised_item_rec;
16489:
16503: , x_return_status => l_return_status
16504: , x_err_text => x_err_text
16505: );
16506:
16507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16510: RAISE FND_API.G_EXC_ERROR;
16511: END IF;
16504: , x_err_text => x_err_text
16505: );
16506:
16507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16510: RAISE FND_API.G_EXC_ERROR;
16511: END IF;
16512:
16505: );
16506:
16507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16510: RAISE FND_API.G_EXC_ERROR;
16511: END IF;
16512:
16513: x_rev_component_tbl(I) := l_rev_component_rec;
16506:
16507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16510: RAISE FND_API.G_EXC_ERROR;
16511: END IF;
16512:
16513: x_rev_component_tbl(I) := l_rev_component_rec;
16514:
16528: , x_return_status => l_return_status
16529: , x_err_text => x_err_text
16530: );
16531:
16532: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16535: RAISE FND_API.G_EXC_ERROR;
16536: END IF;
16529: , x_err_text => x_err_text
16530: );
16531:
16532: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16535: RAISE FND_API.G_EXC_ERROR;
16536: END IF;
16537:
16530: );
16531:
16532: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16535: RAISE FND_API.G_EXC_ERROR;
16536: END IF;
16537:
16538: x_ref_designator_tbl(I) := l_ref_designator_rec;
16531:
16532: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16535: RAISE FND_API.G_EXC_ERROR;
16536: END IF;
16537:
16538: x_ref_designator_tbl(I) := l_ref_designator_rec;
16539:
16553: , x_return_status => l_return_status
16554: , x_err_text => x_err_text
16555: );
16556:
16557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16560: RAISE FND_API.G_EXC_ERROR;
16561: END IF;
16554: , x_err_text => x_err_text
16555: );
16556:
16557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16560: RAISE FND_API.G_EXC_ERROR;
16561: END IF;
16562:
16555: );
16556:
16557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16560: RAISE FND_API.G_EXC_ERROR;
16561: END IF;
16562:
16563: x_sub_component_tbl(I) := l_sub_component_rec;
16556:
16557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16560: RAISE FND_API.G_EXC_ERROR;
16561: END IF;
16562:
16563: x_sub_component_tbl(I) := l_sub_component_rec;
16564:
16567: END LOOP;
16568:
16569: -- Set return status
16570:
16571: x_return_status := FND_API.G_RET_STS_SUCCESS;
16572:
16573: -- Get message count and data
16574:
16575: FND_MSG_PUB.Count_And_Get
16579:
16580:
16581: EXCEPTION
16582:
16583: WHEN FND_API.G_EXC_ERROR THEN
16584:
16585: x_return_status := FND_API.G_RET_STS_ERROR;
16586:
16587: -- Get message count and data
16581: EXCEPTION
16582:
16583: WHEN FND_API.G_EXC_ERROR THEN
16584:
16585: x_return_status := FND_API.G_RET_STS_ERROR;
16586:
16587: -- Get message count and data
16588:
16589: FND_MSG_PUB.Count_And_Get
16594: -- Rollback
16595:
16596: ROLLBACK TO Lock_Eco_PVT;
16597:
16598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16599:
16600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16601:
16602: -- Get message count and data
16596: ROLLBACK TO Lock_Eco_PVT;
16597:
16598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16599:
16600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16601:
16602: -- Get message count and data
16603:
16604: FND_MSG_PUB.Count_And_Get
16611: ROLLBACK TO Lock_Eco_PVT;
16612:
16613: WHEN OTHERS THEN
16614:
16615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16616:
16617: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16618: THEN
16619: FND_MSG_PUB.Add_Exc_Msg