1: PACKAGE BODY BOM_RTG_Globals AS
2: /* $Header: BOMRGLBB.pls 120.1 2006/06/14 06:10:00 abbhardw noship $ */
3: /**********************************************************************
4: --
5: -- Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA
10: -- RTGSGLBB.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package BOM_RTG_Globals
15: --
16: -- NOTES
17: --
18: -- HISTORY
20: -- 04-AUG-2000 Biao Zhang Initial Creation
21: --
22: **********************************************************************/
23:
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'BOM_Rtg_Globals';
25:
26: -- Global variable holding ECO workflow approval process name
27:
28: G_PROCESS_NAME VARCHAR2(30) := NULL;
34: , x_return_status IN OUT NOCOPY VARCHAR2
35: )
36: IS
37: BEGIN
38: BOM_Rtg_Globals.Set_user_id( p_user_id => FND_GLOBAL.user_id);
39: BOM_Rtg_Globals.Set_login_id( p_login_id => FND_GLOBAL.login_id);
40: BOM_Rtg_Globals.Set_prog_id( p_prog_id => FND_GLOBAL.conc_program_id);
41: BOM_Rtg_Globals.Set_prog_appid( p_prog_appid => FND_GLOBAL.prog_appl_id);
42: BOM_Rtg_Globals.Set_request_id( p_request_id => FND_GLOBAL.conc_request_id);
35: )
36: IS
37: BEGIN
38: BOM_Rtg_Globals.Set_user_id( p_user_id => FND_GLOBAL.user_id);
39: BOM_Rtg_Globals.Set_login_id( p_login_id => FND_GLOBAL.login_id);
40: BOM_Rtg_Globals.Set_prog_id( p_prog_id => FND_GLOBAL.conc_program_id);
41: BOM_Rtg_Globals.Set_prog_appid( p_prog_appid => FND_GLOBAL.prog_appl_id);
42: BOM_Rtg_Globals.Set_request_id( p_request_id => FND_GLOBAL.conc_request_id);
43:
36: IS
37: BEGIN
38: BOM_Rtg_Globals.Set_user_id( p_user_id => FND_GLOBAL.user_id);
39: BOM_Rtg_Globals.Set_login_id( p_login_id => FND_GLOBAL.login_id);
40: BOM_Rtg_Globals.Set_prog_id( p_prog_id => FND_GLOBAL.conc_program_id);
41: BOM_Rtg_Globals.Set_prog_appid( p_prog_appid => FND_GLOBAL.prog_appl_id);
42: BOM_Rtg_Globals.Set_request_id( p_request_id => FND_GLOBAL.conc_request_id);
43:
44: END Init_System_Info_Rec;
37: BEGIN
38: BOM_Rtg_Globals.Set_user_id( p_user_id => FND_GLOBAL.user_id);
39: BOM_Rtg_Globals.Set_login_id( p_login_id => FND_GLOBAL.login_id);
40: BOM_Rtg_Globals.Set_prog_id( p_prog_id => FND_GLOBAL.conc_program_id);
41: BOM_Rtg_Globals.Set_prog_appid( p_prog_appid => FND_GLOBAL.prog_appl_id);
42: BOM_Rtg_Globals.Set_request_id( p_request_id => FND_GLOBAL.conc_request_id);
43:
44: END Init_System_Info_Rec;
45:
38: BOM_Rtg_Globals.Set_user_id( p_user_id => FND_GLOBAL.user_id);
39: BOM_Rtg_Globals.Set_login_id( p_login_id => FND_GLOBAL.login_id);
40: BOM_Rtg_Globals.Set_prog_id( p_prog_id => FND_GLOBAL.conc_program_id);
41: BOM_Rtg_Globals.Set_prog_appid( p_prog_appid => FND_GLOBAL.prog_appl_id);
42: BOM_Rtg_Globals.Set_request_id( p_request_id => FND_GLOBAL.conc_request_id);
43:
44: END Init_System_Info_Rec;
45:
46: /****************************************************************************
62: * Parameters OUT: None
63: * Purpose : This procedure will return the value of the system information
64: * record.
65: ****************************************************************************/
66: FUNCTION Get_System_Information RETURN BOM_Rtg_Globals.System_Information_Rec_Type
67: IS
68: BEGIN
69: RETURN G_System_Information;
70:
80: * record.
81: ****************************************************************************/
82: PROCEDURE Set_System_Information
83: ( p_system_information_rec IN
84: BOM_Rtg_Globals.System_Information_Rec_Type)
85: IS
86: BEGIN
87: G_System_Information := p_system_information_rec;
88:
100: l_approval_status_type NUMBER;
101: BEGIN
102: x_processed := FALSE;
103: -- Get Workflow Process name
104: l_process_name := BOM_Rtg_Globals.Get_Process_Name;
105: SELECT approval_status_type
106: INTO l_approval_status_type
107: FROM eng_engineering_changes
108: WHERE change_notice = p_change_notice
1686: RETURN NULL;
1687: END Get_Routing_Header_ECN;
1688:
1689:
1690: END BOM_RTG_Globals;