[Home] [Help]
57: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
58: l_return_status VARCHAR2(1);
59: BEGIN
60:
61: IF BOM_Rtg_Globals.Get_Debug = 'Y'
62: THEN Error_Handler.Write_Debug('Quering Assembly item '
63: || to_char(p_rtg_rev_unexp_rec.assembly_item_id));
64: END IF;
65:
62: THEN Error_Handler.Write_Debug('Quering Assembly item '
63: || to_char(p_rtg_rev_unexp_rec.assembly_item_id));
64: END IF;
65:
66: IF BOM_Rtg_Globals.Get_Debug = 'Y'
67: THEN Error_Handler.Write_Debug(' Org: '
68: || to_char(p_rtg_rev_unexp_rec.organization_id)) ;
69: END IF;
70:
67: THEN Error_Handler.Write_Debug(' Org: '
68: || to_char(p_rtg_rev_unexp_rec.organization_id)) ;
69: END IF;
70:
71: IF BOM_Rtg_Globals.Get_Debug = 'Y'
72: THEN Error_Handler.Write_Debug('Revision'
73: || p_rtg_revision_rec.revision );
74: END IF;
75:
82: , x_rtg_revision_rec => x_old_rtg_revision_rec
83: , x_rtg_rev_unexp_rec => x_old_rtg_rev_unexp_rec
84: , x_return_status => l_return_status
85: );
86: IF BOM_Rtg_Globals.Get_Debug = 'Y'
87: THEN Error_Handler.Write_Debug('Query Row Returned with : '
88: || l_return_status); END IF;
89:
90: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
86: IF BOM_Rtg_Globals.Get_Debug = 'Y'
87: THEN Error_Handler.Write_Debug('Query Row Returned with : '
88: || l_return_status); END IF;
89:
90: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
91: p_rtg_revision_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
92: THEN
93: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
94: l_token_tbl(1).token_value :=
87: THEN Error_Handler.Write_Debug('Query Row Returned with : '
88: || l_return_status); END IF;
89:
90: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
91: p_rtg_revision_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
92: THEN
93: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
94: l_token_tbl(1).token_value :=
95: p_rtg_revision_rec.assembly_item_name;
102: , p_message_name => 'BOM_RTG_REV_ALREADY_EXISTS'
103: , p_token_tbl => l_token_tbl
104: );
105: l_return_status := FND_API.G_RET_STS_ERROR;
106: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
107: p_rtg_revision_rec.transaction_type IN
108: (BOM_RTG_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
109: THEN
110: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
104: );
105: l_return_status := FND_API.G_RET_STS_ERROR;
106: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
107: p_rtg_revision_rec.transaction_type IN
108: (BOM_RTG_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
109: THEN
110: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
111: l_token_tbl(1).token_value := p_rtg_revision_rec.assembly_item_name;
112: l_token_tbl(2).token_name := 'REVISION';
181: BEGIN
182:
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
185: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
186: Error_Handler.Write_Debug(
187: 'Within Rtg Revision Check Attributes . . . ');
188: Error_Handler.Write_Debug(
189: 'transaction_type:'||p_rtg_revision_rec.transaction_type);
190: Error_Handler.Write_Debug(
191: 'change_notice:'||p_rtg_rev_unexp_rec.change_notice);
192: END IF;
193:
194: IF p_rtg_revision_rec.transaction_type= BOM_Rtg_Globals.G_OPR_UPDATE
195: THEN
196: open c_created_by_eco;
197: fetch c_created_by_eco into l_eco;
198: close c_created_by_eco;
196: open c_created_by_eco;
197: fetch c_created_by_eco into l_eco;
198: close c_created_by_eco;
199: IF l_eco IS NOT NULL AND l_eco <> FND_API.G_MISS_CHAR THEN
200: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
201: Error_Handler.Write_Debug(
202: 'Within Rtg Revision Check Attributes 1. . . ');
203: END IF;
204:
204:
205: IF p_rtg_revision_rec.start_effective_date IS NOT NULL
206: AND p_rtg_revision_rec.start_effective_date <>
207: FND_API.G_MISS_DATE THEN
208: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
209: Error_Handler.Write_Debug
210: ('Within Rtg Revision Check Attributes 2. . . ');
211: END IF;
212:
283: l_token_tbl(2).token_name := 'REVISION';
284: l_token_tbl(2).token_value := p_rtg_revision_rec.revision;
285:
286:
287: IF p_rtg_revision_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
288: THEN
289:
290: --
291: -- Revision name is not allowed to use 'Quote'.
388: -- If the user is attempting to create or update effective date of the
389: -- revision and the date is less than the current date then it should
390: -- get an error.
391: IF ( p_rtg_revision_rec.transaction_type =
392: BOM_Rtg_Globals.G_OPR_CREATE AND
393: nvl(Bom_Globals.get_caller_type(),'') <> 'MIGRATION' AND -- bug 2871039
394: TRUNC(NVL(p_rtg_revision_rec.start_effective_date, SYSDATE))
395: < TRUNC(SYSDATE)
396: ) OR
394: TRUNC(NVL(p_rtg_revision_rec.start_effective_date, SYSDATE))
395: < TRUNC(SYSDATE)
396: ) OR
397: ( p_rtg_revision_rec.transaction_type =
398: BOM_Rtg_Globals.G_OPR_UPDATE AND
399: p_old_rtg_revision_Rec.start_effective_date <>
400: p_rtg_revision_rec.start_effective_date AND
401: TRUNC(NVL(p_rtg_revision_rec.start_effective_date,SYSDATE))
402: < TRUNC(SYSDATE)
418: --
419: -- Start effective date can not lie between the effective date of an
420: -- existing revision.
421: --
422: IF p_rtg_revision_rec.transaction_type <> BOM_Rtg_Globals.G_OPR_DELETE
423: THEN
424: BEGIN
425: SELECT 1
426: INTO l_dummy
457: l_token_tbl.delete(3) ;
458: END;
459: END IF;
460:
461: IF p_rtg_revision_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
462: THEN
463: SELECT effectivity_date into l_effectivity_date
464: FROM mtl_rtg_item_revisions
465: WHERE inventory_item_id =p_rtg_rev_Unexp_Rec.assembly_Item_Id