[Home] [Help]
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;