DBA Data[Home] [Help]

APPS.BOM_PFI_PVT dependencies on BOM_PFI_PVT

Line 1: PACKAGE BODY BOM_PFI_PVT AS

1: PACKAGE BODY BOM_PFI_PVT AS
2: /* $Header: BOMVPFIB.pls 120.2 2005/06/21 03:58:14 appldev ship $ */
3:
4: /****************************************************************************/
5: -- --------------- Private constants -----------------

Line 8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'BOM_PFI_PVT' ;

4: /****************************************************************************/
5: -- --------------- Private constants -----------------
6: -- -----------------------------------------------------
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'BOM_PFI_PVT' ;
9:
10: /****************************************************************************/
11:
12: -- Record in PL/SQL table each product family item corresponding to a

Line 38: l_return_err := 'BOM_PFI_PVT.Store_Cat_Create: ' || SQLERRM ;

34: EXCEPTION
35: WHEN OTHERS THEN
36: p_Cat_Create_Num := 0 ;
37: p_return_sts := 1 ;
38: l_return_err := 'BOM_PFI_PVT.Store_Cat_Create: ' || SQLERRM ;
39: raise_application_error (-20000, l_return_err);
40:
41: END Store_Cat_Create;
42:

Line 91: BOM_PFI_PVT.Get_Category_ID

87: l_org_id := p_Create_Cat_Tbl( l_Cat_Ind ).org_id ;
88:
89: l_stmt_num := 2 ;
90:
91: BOM_PFI_PVT.Get_Category_ID
92: ( p_return_sts => l_return_sts ,
93: p_return_err => l_return_err ,
94: p_item_id => l_item_id ,
95: p_org_id => l_org_id ,

Line 105: l_return_err := 'BOM_PFI_PVT.Create_PF_Category: ' || l_return_err ;

101: -- Do not insert if category already exists
102: GOTO No_Insert;
103: ELSIF ( l_return_sts <> 3 ) THEN
104: p_return_sts := 2 ;
105: l_return_err := 'BOM_PFI_PVT.Create_PF_Category: ' || l_return_err ;
106: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_MSG');
107: FND_MESSAGE.set_token('MSG', l_return_err);
108: APP_EXCEPTION.RAISE_EXCEPTION;
109: END IF;

Line 106: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_MSG');

102: GOTO No_Insert;
103: ELSIF ( l_return_sts <> 3 ) THEN
104: p_return_sts := 2 ;
105: l_return_err := 'BOM_PFI_PVT.Create_PF_Category: ' || l_return_err ;
106: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_MSG');
107: FND_MESSAGE.set_token('MSG', l_return_err);
108: APP_EXCEPTION.RAISE_EXCEPTION;
109: END IF;
110:

Line 154: BOM_PFI_PVT.G_PF_Structure_ID ,

150: LAST_UPDATE_LOGIN
151: )
152: SELECT
153: l_New_Category_ID ,
154: BOM_PFI_PVT.G_PF_Structure_ID ,
155: null ,
156: SI.SEGMENT1 ,
157: SI.SEGMENT2 ,
158: SI.SEGMENT3 ,

Line 233: l_return_err := 'BOM_PFI_PVT.Create_PF_Category: cannot insert category' ;

229: EXCEPTION
230: WHEN CAT_NOT_INSERTED THEN
231: p_Cat_Create_Num := 0 ;
232: p_return_sts := 1 ;
233: l_return_err := 'BOM_PFI_PVT.Create_PF_Category: cannot insert category' ;
234: raise_application_error (-20000, l_return_err);
235:
236: WHEN OTHERS THEN
237: p_Cat_Create_Num := 0 ;

Line 242: l_return_err := 'BOM_PFI_PVT.Create_PF_Category: ' || SQLERRM ;

238: IF ( SQLCODE = -20001 ) THEN
239: APP_EXCEPTION.RAISE_EXCEPTION;
240: ELSE
241: p_return_sts := 4 ;
242: l_return_err := 'BOM_PFI_PVT.Create_PF_Category: ' || SQLERRM ;
243: raise_application_error (-20000, l_return_err);
244: END IF;
245:
246: END Create_PF_Category;

Line 276: l_return_err := 'BOM_PFI_PVT.Store_Category: ' || SQLERRM ;

272: EXCEPTION
273: WHEN OTHERS THEN
274: p_Cat_Num := 0 ;
275: p_return_sts := 1 ;
276: l_return_err := 'BOM_PFI_PVT.Store_Category: ' || SQLERRM ;
277: raise_application_error (-20000, l_return_err);
278:
279: END Store_Category;
280:

Line 312: BOM_PFI_PVT.Get_Category_ID

308: l_org_id := p_Delete_Cat_Tbl( l_Cat_Ind ).org_id ;
309:
310: l_stmt_num := 2 ;
311:
312: BOM_PFI_PVT.Get_Category_ID
313: ( p_return_sts => l_return_sts ,
314: p_return_err => l_return_err ,
315: p_item_id => l_item_id ,
316: p_org_id => l_org_id ,

Line 334: l_return_err := 'BOM_PFI_PVT.Delete_PF_Category: ' || l_return_err ;

330: WHERE CATEGORY_ID = l_category_id ;
331:
332: ELSE
333: p_return_sts := 2 ;
334: l_return_err := 'BOM_PFI_PVT.Delete_PF_Category: ' || l_return_err ;
335: END IF;
336:
337: ----------------------------------------
338: END LOOP; -- recorded category deletion

Line 349: l_return_err := 'BOM_PFI_PVT.Delete_PF_Category: ' || SQLERRM ;

345: EXCEPTION
346: WHEN OTHERS THEN
347: p_Cat_Num := 0 ;
348: p_return_sts := 4 ;
349: l_return_err := 'BOM_PFI_PVT.Delete_PF_Category: ' || SQLERRM ;
350: raise_application_error (-20000, l_return_err);
351:
352: END Delete_PF_Category;
353:

Line 383: l_return_err := 'BOM_PFI_PVT.Store_Cat_Assign: ' || SQLERRM ;

379: EXCEPTION
380: WHEN OTHERS THEN
381: p_Assign_Num := 0 ;
382: p_return_sts := 1 ;
383: l_return_err := 'BOM_PFI_PVT.Store_Cat_Assign: ' || SQLERRM ;
384: raise_application_error (-20000, l_return_err);
385:
386: END Store_Cat_Assign;
387:

Line 421: BOM_PFI_PVT.Get_Master_Org_ID

417: l_pf_item_id := p_Cat_Assign_Tbl( l_Assign_Ind ).pf_item_id ;
418:
419: l_stmt_num := 1 ;
420:
421: BOM_PFI_PVT.Get_Master_Org_ID
422: ( p_return_sts => l_return_sts ,
423: p_return_err => l_return_err ,
424: p_org_id => l_org_id ,
425: p_master_org_id => l_master_org_id

Line 430: BOM_PFI_PVT.Get_Category_ID

426: );
427:
428: l_stmt_num := 2 ;
429:
430: BOM_PFI_PVT.Get_Category_ID
431: ( p_return_sts => l_return_sts ,
432: p_return_err => l_return_err ,
433: p_item_id => l_pf_item_id ,
434: p_org_id => l_master_org_id ,

Line 441: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_CAT_ASSIGN');

437: );
438:
439: IF ( l_return_sts = 3 ) THEN
440: p_return_sts := 3 ;
441: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_CAT_ASSIGN');
442: FND_MESSAGE.set_token('CAT', l_concat_segments);
443: APP_EXCEPTION.RAISE_EXCEPTION;
444: ELSIF ( l_return_sts <> 0 ) THEN
445: p_return_sts := 2 ;

Line 447: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_MSG');

443: APP_EXCEPTION.RAISE_EXCEPTION;
444: ELSIF ( l_return_sts <> 0 ) THEN
445: p_return_sts := 2 ;
446: l_return_err := 'Assign_To_Category: ' || l_return_err ;
447: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_MSG');
448: FND_MESSAGE.set_token('MSG', l_return_err);
449: APP_EXCEPTION.RAISE_EXCEPTION;
450: END IF;
451:

Line 499: l_return_err := 'BOM_PFI_PVT.Assign_To_Category: ' || SQLERRM ;

495: IF ( SQLCODE = -20001 ) THEN
496: APP_EXCEPTION.RAISE_EXCEPTION;
497: ELSE
498: p_return_sts := 4 ;
499: l_return_err := 'BOM_PFI_PVT.Assign_To_Category: ' || SQLERRM ;
500: raise_application_error (-20000, l_return_err);
501: END IF;
502:
503: END Assign_To_Category;

Line 540: l_return_err := 'BOM_PFI_PVT.Remove_From_Category: ' || SQLERRM ;

536: p_return_err := 'Remove_From_Category: Item assignment not found.' ;
537: */
538: WHEN OTHERS THEN
539: p_return_sts := 2 ;
540: l_return_err := 'BOM_PFI_PVT.Remove_From_Category: ' || SQLERRM ;
541: raise_application_error (-20000, l_return_err);
542:
543: END Remove_From_Category;
544:

Line 568: structure_number => BOM_PFI_PVT.G_MSTK_Structure_ID ,

564:
565: IF FND_FLEX_KEYVAL.validate_ccid
566: ( appl_short_name => 'INV' ,
567: key_flex_code => 'MSTK' ,
568: structure_number => BOM_PFI_PVT.G_MSTK_Structure_ID ,
569: combination_id => p_item_id ,
570: data_set => p_org_id
571: )
572: THEN

Line 588: structure_number => BOM_PFI_PVT.G_PF_Structure_ID ,

584: IF FND_FLEX_KEYVAL.validate_segs
585: ( operation => 'FIND_COMBINATION' ,
586: appl_short_name => 'INV' ,
587: key_flex_code => 'MCAT' ,
588: structure_number => BOM_PFI_PVT.G_PF_Structure_ID ,
589: concat_segments => l_concat_segments
590: )
591: THEN
592: p_category_id := FND_FLEX_KEYVAL.combination_id ;

Line 632: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_NOTFOUND');

628:
629: EXCEPTION
630: WHEN NO_DATA_FOUND THEN
631: l_return_err := to_char( p_org_id );
632: FND_MESSAGE.set_name('BOM', 'BOM_PFI_PVT_NOTFOUND');
633: FND_MESSAGE.set_token('PROC', 'Get_Master_Org_ID');
634: FND_MESSAGE.set_token('ENTITY', 'ORG_ID ' || l_return_err);
635: APP_EXCEPTION.RAISE_EXCEPTION;
636:

Line 696: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;

692: and enabled_flag = 'Y'
693: order by segment_num;
694:
695: BEGIN
696: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;
697:
698: OPEN MSI_Struct_Segs;
699: OPEN PF_Struct_Segs;
700: LOOP

Line 710: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Mismatch;

706: EXIT;
707: ELSIF ( MSI_Struct_Segs%FOUND and PF_Struct_Segs%FOUND )
708: THEN
709: IF NOT (l_PF_segs = l_MSI_segs) THEN
710: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Mismatch;
711: EXIT;
712: END IF;
713: ELSE
714: IF ( l_PF_segs is null ) THEN

Line 715: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Undefined;

711: EXIT;
712: END IF;
713: ELSE
714: IF ( l_PF_segs is null ) THEN
715: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Undefined;
716: ELSE
717: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Mismatch;
718: END IF;
719: EXIT;

Line 717: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Mismatch;

713: ELSE
714: IF ( l_PF_segs is null ) THEN
715: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Undefined;
716: ELSE
717: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_Mismatch;
718: END IF;
719: EXIT;
720: END IF;
721: END LOOP;

Line 725: IF ( BOM_PFI_PVT.PF_Segs_Status = BOM_PFI_PVT.G_PF_Segs_Status_Mismatch )

721: END LOOP;
722: CLOSE MSI_Struct_Segs;
723: CLOSE PF_Struct_Segs;
724:
725: IF ( BOM_PFI_PVT.PF_Segs_Status = BOM_PFI_PVT.G_PF_Segs_Status_Mismatch )
726: THEN
727: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;
728: FND_MESSAGE.set_name('INV', 'INV_BOM_PFI_SEGS_MISMATCH');
729: APP_EXCEPTION.RAISE_EXCEPTION;

Line 727: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;

723: CLOSE PF_Struct_Segs;
724:
725: IF ( BOM_PFI_PVT.PF_Segs_Status = BOM_PFI_PVT.G_PF_Segs_Status_Mismatch )
726: THEN
727: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;
728: FND_MESSAGE.set_name('INV', 'INV_BOM_PFI_SEGS_MISMATCH');
729: APP_EXCEPTION.RAISE_EXCEPTION;
730: END IF;
731:

Line 740: IF ( BOM_PFI_PVT.PF_Segs_Status = BOM_PFI_PVT.G_PF_Segs_Status_Undefined )

736: FUNCTION PF_Segs_Undefined
737: RETURN BOOLEAN
738: IS
739: BEGIN
740: IF ( BOM_PFI_PVT.PF_Segs_Status = BOM_PFI_PVT.G_PF_Segs_Status_Undefined )
741: THEN
742: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;
743: RETURN TRUE;
744: ELSE

Line 742: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;

738: IS
739: BEGIN
740: IF ( BOM_PFI_PVT.PF_Segs_Status = BOM_PFI_PVT.G_PF_Segs_Status_Undefined )
741: THEN
742: BOM_PFI_PVT.PF_Segs_Status := BOM_PFI_PVT.G_PF_Segs_Status_OK;
743: RETURN TRUE;
744: ELSE
745: RETURN FALSE;
746: END IF;

Line 752: END BOM_PFI_PVT;

748: END PF_Segs_Undefined;
749:
750: /****************************************************************************/
751:
752: END BOM_PFI_PVT;