PACKAGE BODY: APPS.EGO_ITEM_MSG

Source

1 PACKAGE BODY EGO_Item_Msg AS
2 /* $Header: EGOMITMB.pls 115.0 2002/12/12 15:39:54 anakas noship $ */
3 
4 G_FILE_NAME       CONSTANT  VARCHAR2(12)  :=  'EGOMITMB.pls';
5 G_PKG_NAME        CONSTANT  VARCHAR2(30)  :=  'EGO_ITEM_MSG';
6 
7 -- =============================================================================
8 --                         Package variables and cursors
9 -- =============================================================================
10 
11 G_Entity_Code		VARCHAR2(30)    :=  'ITEM';
12 G_Table_Name		VARCHAR2(30)    :=  'MTL_SYSTEM_ITEMS_B';
13 G_Transaction_Id	NUMBER		:=  NULL;
14 
15 -- =============================================================================
16 --                                  Procedures
17 -- =============================================================================
18 
19 -- -----------------------------------------------------------------------------
20 --  API Name:		Add_Error_Message
21 -- -----------------------------------------------------------------------------
22 
23 PROCEDURE Add_Error_Message
24 (
25    p_Entity_Index		IN      NUMBER
26 ,  p_Application_Short_Name	IN	VARCHAR2
27 ,  p_Message_Name		IN      VARCHAR2
28 ,  p_Token_Name1		IN      VARCHAR2	DEFAULT  NULL
29 ,  p_Token_Value1		IN      VARCHAR2	DEFAULT  NULL
30 ,  p_Translate1			IN      BOOLEAN		DEFAULT  FALSE
31 ,  p_Token_Name2		IN      VARCHAR2	DEFAULT  NULL
32 ,  p_Token_Value2		IN      VARCHAR2	DEFAULT  NULL
33 ,  p_Translate2			IN      BOOLEAN		DEFAULT  FALSE
34 ,  p_Token_Name3		IN      VARCHAR2	DEFAULT  NULL
35 ,  p_Token_Value3		IN      VARCHAR2	DEFAULT  NULL
36 ,  p_Translate3			IN      BOOLEAN		DEFAULT  FALSE
37 )
38 IS
39    l_Token_Tbl			Error_Handler.Token_Tbl_Type;
40 BEGIN
41 
42    IF ( p_Token_Name1 IS NOT NULL ) THEN
43       l_Token_Tbl(1).Token_Name   :=  p_Token_Name1;
44       l_Token_Tbl(1).Token_Value  :=  p_Token_Value1;
45       l_Token_Tbl(1).Translate    :=  p_Translate1;
46    END IF;
47    IF ( p_Token_Name2 IS NOT NULL ) THEN
48       l_Token_Tbl(2).Token_Name   :=  p_Token_Name2;
49       l_Token_Tbl(2).Token_Value  :=  p_Token_Value2;
50       l_Token_Tbl(2).Translate    :=  p_Translate2;
51    END IF;
52    IF ( p_Token_Name3 IS NOT NULL ) THEN
53       l_Token_Tbl(3).Token_Name   :=  p_Token_Name3;
54       l_Token_Tbl(3).Token_Value  :=  p_Token_Value3;
55       l_Token_Tbl(3).Translate    :=  p_Translate3;
56    END IF;
57 
58    Error_Handler.Add_Error_Message
59    (
60       p_message_name		=>  p_Message_Name
61    ,  p_application_id		=>  p_Application_Short_Name
62    ,  p_token_tbl		=>  l_Token_Tbl
63    ,  p_message_type		=>  'E'
64    ,  p_row_identifier		=>  G_Transaction_Id
65    ,  p_entity_id		=>  NULL
66    ,  p_entity_code		=>  G_Entity_Code
67    ,  p_entity_index		=>  p_Entity_Index
68    ,  p_table_name		=>  G_Table_Name
69    );
70 
71 END Add_Error_Message;
72 
73 -- -----------------------------------------------------------------------------
74 --  API Name:		Add_Error_Text
75 -- -----------------------------------------------------------------------------
76 
77 PROCEDURE Add_Error_Text
78 (
79    p_Entity_Index		IN      NUMBER
80 ,  p_Message_Text		IN      VARCHAR2
81 )
82 IS
83 BEGIN
84 
85    Error_Handler.Add_Error_Message
86    (
87       p_message_text		=>  p_Message_Text
88    ,  p_message_type		=>  'E'
89    ,  p_row_identifier		=>  G_Transaction_Id
90    ,  p_entity_id		=>  NULL
91    ,  p_entity_code		=>  G_Entity_Code
92    ,  p_entity_index		=>  p_Entity_Index
93    ,  p_table_name		=>  G_Table_Name
94    );
95 
96 END Add_Error_Text;
97 
98 
99 END EGO_Item_Msg;