[Home] [Help]
PACKAGE BODY: APPS.FEM_BR_MAP_PREVIEW_PVT
Source
1 PACKAGE BODY FEM_BR_MAP_PREVIEW_PVT AS
2 /* $Header: fem_br_map_preview_pvt.plb 120.1 2008/02/20 06:55:37 jcliving ship $ */
3
4 -------------------------------------------------------------------------------
5 -- PRIVATE CONSTANTS
6 -------------------------------------------------------------------------------
7
8 G_PKG_NAME constant varchar2(30) := 'FEM_BR_MAP_PREVIEW_PVT';
9
10
11 -------------------------------------------------------------------------------
12 -- PRIVATE SPECIFICATIONS
13 -------------------------------------------------------------------------------
14
15 PROCEDURE DeleteMappingPreviewRec(
16 p_obj_def_id IN NUMBER
17 );
18
19 PROCEDURE DeletePreviewResults(
20 p_obj_def_id IN NUMBER
21 );
22
23
24 -------------------------------------------------------------------------------
25 -- PUBLIC BODIES
26 -------------------------------------------------------------------------------
27
28 --
29 -- PROCEDURE
30 -- DeleteObjectDefinition
31 --
32 -- DESCRIPTION
33 -- Deletes all the details records of a Mapping Preview Definition.
34 --
35 -- IN
36 -- p_obj_def_id - Object Definition ID.
37 --
38 -------------------------------------------------------------------------------
39 PROCEDURE DeleteObjectDefinition(
40 p_obj_def_id IN NUMBER
41 )
42 -------------------------------------------------------------------------------
43 IS
44
45 g_api_name constant varchar2(30) := 'DeleteObjectDefinition';
46
47 BEGIN
48
49 DeletePreviewResults(
50 p_obj_def_id => p_obj_def_id
51 );
52
53 DeleteMappingPreviewRec(
54 p_obj_def_id => p_obj_def_id
55 );
56
57 EXCEPTION
58
59 WHEN OTHERS THEN
60 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
61 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62
63 END DeleteObjectDefinition;
64
65
66 -------------------------------------------------------------------------------
67 -- PRIVATE BODIES
68 -------------------------------------------------------------------------------
69
70 --
71 -- PROCEDURE
72 -- DeletMappingPreviewRec
73 --
74 -- DESCRIPTION
75 -- Deletes a Mapping Preview Definition by performing deletes on records
76 -- in the FEM_ALLOC_PREVIEWS table.
77 --
78 -- IN
79 -- p_obj_def_id - Object Definition ID.
80 --
81 -------------------------------------------------------------------------------
82 PROCEDURE DeleteMappingPreviewRec(
83 p_obj_def_id IN NUMBER
84 )
85 -------------------------------------------------------------------------------
86 IS
87 BEGIN
88
89 DELETE FROM fem_alloc_previews
90 WHERE preview_obj_def_id = p_obj_def_id;
91
92 END DeleteMappingPreviewRec;
93
94
95 --
96 -- PROCEDURE
97 -- DeletePreviewResults
98 --
99 -- DESCRIPTION
100 -- Deletes the results generated by the Mapping Preview.
101 --
102 -- IN
103 -- p_obj_def_id - Preview Object Definition ID.
104 --
105 -------------------------------------------------------------------------------
106 PROCEDURE DeletePreviewResults(
107 p_obj_def_id IN NUMBER
108 )
109 -------------------------------------------------------------------------------
110 IS
111 v_return_status VARCHAR2(1);
112 v_msg_count NUMBER;
113 v_msg_data VARCHAR2 (4000);
114
115 BEGIN
116
117 FEM_MAPPING_PREVIEW_UTIL_PKG.Remove_Results(
118 p_api_version => 1.0,
119 p_init_msg_list => FND_API.G_FALSE,
120 p_commit => FND_API.G_FALSE,
121 x_return_status => v_return_status,
122 x_msg_count => v_msg_count,
123 x_msg_data => v_msg_data,
124 p_preview_obj_def_id => p_obj_def_id
125 );
126
127 IF (v_return_status = FND_API.G_RET_STS_ERROR) THEN
128 RAISE FND_API.G_EXC_ERROR;
129 ELSIF (v_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
130 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131 END IF;
132
133 END DeletePreviewResults;
134
135
136 -------------------------------------------------------------------------------
137
138 END FEM_BR_MAP_PREVIEW_PVT;