1 package body ENG_RELATED_ENTITY_PKG as
2 /*$Header: ENGRENTB.pls 120.16 2011/03/29 14:06:40 pnagasur ship $ */
3 -- Global constant holding the package name
4
5 G_PKG_NAME CONSTANT VARCHAR2(30) :=
6 'ENG_RELATED_ENTITY_PKG' ;
7 -- For Debug
8 g_debug_file UTL_FILE.FILE_TYPE ;
9 g_debug_flag BOOLEAN := FALSE ; -- For TEST : FALSE ;
10 g_output_dir VARCHAR2(80) := NULL ;
11 g_debug_filename VARCHAR2(30) := 'eng.chgmt.relationship.log' ;
12 g_debug_errmesg VARCHAR2(240);
13
14
15 change_policy_defined EXCEPTION;
16 duplicate_related_doc EXCEPTION;
17
18 -- Seeded approval_status_type for change header
19 /********************************************************************
20 * Debug APIs : Open_Debug_Session, Close_Debug_Session,
21 * Write_Debug
22 * Parameters IN :
23 * Parameters OUT:
24 * Purpose : These procedures are for test and debug
25 *********************************************************************/
26 -- Open_Debug_Session
27 Procedure Open_Debug_Session
28 ( p_output_dir IN VARCHAR2 := NULL
29 , p_file_name IN VARCHAR2 := NULL
30 )
31 IS
32 l_found NUMBER := 0;
33 l_utl_file_dir VARCHAR2(2000);
34
35 BEGIN
36
37 IF p_output_dir IS NOT NULL THEN
38 g_output_dir := p_output_dir ;
39
40 END IF ;
41
42 IF p_file_name IS NOT NULL THEN
43 g_debug_filename := p_file_name ;
44 END IF ;
45
46 IF g_output_dir IS NULL
47 THEN
48
49 g_output_dir := FND_PROFILE.VALUE('ECX_UTL_LOG_DIR') ;
50
51 END IF;
52
53 select value
54 INTO l_utl_file_dir
55 FROM v$parameter
56 WHERE name = 'utl_file_dir';
57
58 l_found := INSTR(l_utl_file_dir, g_output_dir);
59
60 IF l_found = 0
61 THEN
62 RETURN;
63 END IF;
64
65 g_debug_file := utl_file.fopen( g_output_dir
66 , g_debug_filename
67 , 'w');
68 g_debug_flag := TRUE ;
69
70 EXCEPTION
71 WHEN OTHERS THEN
72 g_debug_errmesg := Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240);
73 g_debug_flag := FALSE;
74
75 END Open_Debug_Session ;
76
77 -- Close Debug_Session
78 Procedure Close_Debug_Session
79 IS
80 BEGIN
81 IF utl_file.is_open(g_debug_file)
82 THEN
83 utl_file.fclose(g_debug_file);
84 END IF ;
85
86 EXCEPTION
87 WHEN OTHERS THEN
88 g_debug_errmesg := Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240);
89 g_debug_flag := FALSE;
90
91 END Close_Debug_Session ;
92
93 -- Test Debug
94 Procedure Write_Debug
95 ( p_debug_message IN VARCHAR2 )
96 IS
97 BEGIN
98
99 IF utl_file.is_open(g_debug_file)
100 THEN
101 utl_file.put_line(g_debug_file, p_debug_message);
102 END IF ;
103
104 EXCEPTION
105 WHEN OTHERS THEN
106 g_debug_errmesg := Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240);
107 g_debug_flag := FALSE;
108
109 END Write_Debug;
110 --added l_to_current _value as defination change from DOm side.
111 Procedure Implement_Relationship_Changes
112 (
113 p_api_version IN NUMBER --
114 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
115 ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
116 ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
117 ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
118 ,p_output_dir IN VARCHAR2 := NULL --
119 ,p_debug_filename IN VARCHAR2 := 'ENGRENTB.Implement_Relationship_Changes.log'
120 ,x_return_status OUT NOCOPY VARCHAR2 --
121 ,x_msg_count OUT NOCOPY NUMBER --
122 ,x_msg_data OUT NOCOPY VARCHAR2 --
123 ,p_change_id IN NUMBER -- header's change_id
124 ,p_entity_id IN NUMBER -- ed item sequence id
125 )
126 IS
127
128
129 BEGIN
130 -- Null out entire method as part of 12.2 DOM deprecation
131 x_return_status := FND_API.G_RET_STS_SUCCESS ;
132 x_msg_count := 0;
133 x_msg_data := NULL;
134 END Implement_Relationship_Changes;
135
136 -- Procedure to check if the floating revision is under change control
137 -- change policy.
138
139 Procedure Validate_floating_revision (
140 p_api_version IN NUMBER
141 ,p_change_id IN NUMBER
142 ,p_rev_item_seq_id IN NUMBER := NULL
143 ,x_return_status OUT NOCOPY VARCHAR2
144 ,x_msg_count OUT NOCOPY NUMBER
145 ,x_msg_data OUT NOCOPY VARCHAR2
146 )
147 IS
148
149
150 BEGIN
151 -- Null out entire method as part of 12.2 DOM deprecation
152 x_return_status := FND_API.G_RET_STS_SUCCESS ;
153 x_msg_count := 0;
154 x_msg_data := NULL;
155
156 END Validate_floating_revision;
157
158 END ENG_RELATED_ENTITY_PKG;