[Home] [Help]
PACKAGE BODY: APPS.AMS_UPGRADE_TRACK_ERROR_PKG
Source
1 PACKAGE BODY AMS_UPGRADE_TRACK_ERROR_PKG as
2 /* $Header: amstuteb.pls 120.0 2005/05/31 21:55:15 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_UPGRADE_TRACK_ERROR_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_UPGRADE_TRACK_ERROR_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstuteb.pls';
19
20
21 ----------------------------------------------------------
22 ---- MEDIA ----
23 ----------------------------------------------------------
24
25 -- ========================================================
26 --
27 -- NAME
28 -- createInsertBody
29 --
30 -- PURPOSE
31 --
32 -- NOTES
33 --
34 -- HISTORY
35 --
36 -- ========================================================
37 PROCEDURE Insert_Row(
38 p_object_code VARCHAR2,
39 p_object_id NUMBER,
40 p_creation_date DATE,
41 p_error_code VARCHAR2,
42 p_object_name VARCHAR2,
43 p_language VARCHAR2,
44 p_error_message VARCHAR2,
45 p_proposed_action VARCHAR2)
46
47 IS
48 x_rowid VARCHAR2(30);
49
50
51 BEGIN
52
53
54 INSERT INTO AMS_UPGRADE_TRACK_ERROR(
55 object_code,
56 object_id,
57 creation_date,
58 error_code,
59 object_name,
60 language,
61 error_message,
62 proposed_action
63 ) VALUES (
64 DECODE( p_object_code, FND_API.g_miss_char, NULL, p_object_code),
65 DECODE( p_object_id, FND_API.g_miss_num, NULL, p_object_id),
66 DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date),
67 DECODE( p_error_code, FND_API.g_miss_char, NULL, p_error_code),
68 DECODE( p_object_name, FND_API.g_miss_char, NULL, p_object_name),
69 DECODE( p_language, FND_API.g_miss_char, NULL, p_language),
70 DECODE( p_error_message, FND_API.g_miss_char, NULL, p_error_message),
71 DECODE( p_proposed_action, FND_API.g_miss_char, NULL, p_proposed_action));
72 END Insert_Row;
73
74
75 ----------------------------------------------------------
76 ---- MEDIA ----
77 ----------------------------------------------------------
78
79 -- ========================================================
80 --
81 -- NAME
82 -- createUpdateBody
83 --
84 -- PURPOSE
85 --
86 -- NOTES
87 --
88 -- HISTORY
89 --
90 -- ========================================================
91 PROCEDURE Update_Row(
92 p_object_code VARCHAR2,
93 p_object_id NUMBER,
94 p_creation_date DATE,
95 p_error_code VARCHAR2,
96 p_object_name VARCHAR2,
97 p_language VARCHAR2,
98 p_error_message VARCHAR2,
99 p_proposed_action VARCHAR2)
100
101 IS
102 BEGIN
103 Update AMS_UPGRADE_TRACK_ERROR
104 SET
105 object_code = DECODE( p_object_code, FND_API.g_miss_char, object_code, p_object_code),
106 object_id = DECODE( p_object_id, FND_API.g_miss_num, object_id, p_object_id),
107 error_code = DECODE( p_error_code, FND_API.g_miss_char, error_code, p_error_code),
108 object_name = DECODE( p_object_name, FND_API.g_miss_char, object_name, p_object_name),
109 language = DECODE( p_language, FND_API.g_miss_char, language, p_language),
110 error_message = DECODE( p_error_message, FND_API.g_miss_char, error_message, p_error_message),
111 proposed_action = DECODE( p_proposed_action, FND_API.g_miss_char, proposed_action, p_proposed_action)
112 WHERE OBJECT_CODE = p_object_code
113 AND OBJECT_ID = p_OBJECT_ID;
114
115 IF (SQL%NOTFOUND) THEN
116 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
117 END IF;
118 END Update_Row;
119
120
121 ----------------------------------------------------------
122 ---- MEDIA ----
123 ----------------------------------------------------------
124
125 -- ========================================================
126 --
127 -- NAME
128 -- createDeleteBody
129 --
130 -- PURPOSE
131 --
132 -- NOTES
133 --
134 -- HISTORY
135 --
136 -- ========================================================
137 PROCEDURE Delete_Row(
138 p_OBJECT_CODE Number
139 ,p_OBJECT_ID NUMBER)
140 IS
141 BEGIN
142 DELETE FROM AMS_UPGRADE_TRACK_ERROR
143 WHERE OBJECT_CODE = p_OBJECT_CODE
144 AND OBJECT_ID = p_OBJECT_ID;
145 If (SQL%NOTFOUND) then
146 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147 End If;
148 END Delete_Row ;
149
150 END AMS_UPGRADE_TRACK_ERROR_PKG;