[Home] [Help]
PACKAGE BODY: APPS.AMS_IMP_DOC_CON_PKG
Source
1 PACKAGE BODY AMS_IMP_DOC_CON_PKG as
2 /* $Header: amstidcb.pls 115.4 2002/11/14 21:59:18 jieli noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_IMP_DOC_CON_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This Api is generated with Latest version of
14 -- Rosetta, where g_miss indicates NULL and
15 -- NULL indicates missing value. Rosetta Version 1.55
16 -- End of Comments
17 -- ===============================================================
18
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_IMP_DOC_CON_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstidcb.pls';
22
23
24
25
26 -- ========================================================
27 --
28 -- NAME
29 -- Insert_Row
30 --
31 -- PURPOSE
32 --
33 -- NOTES
34 --
35 -- HISTORY
36 --
37 -- ========================================================
38 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
39 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
40 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
41
42 PROCEDURE Insert_Row(
43 px_imp_doc_content_id IN OUT NOCOPY NUMBER,
44 p_last_updated_by NUMBER,
45 px_object_version_number IN OUT NOCOPY NUMBER,
46 p_created_by NUMBER,
47 p_last_update_login NUMBER,
48 p_last_update_date DATE,
49 p_creation_date DATE,
50 p_import_list_header_id NUMBER,
51 p_file_id NUMBER,
52 p_file_name VARCHAR2
53 )
54
55 IS
56 x_rowid VARCHAR2(30);
57
58
59 BEGIN
60
61
62 px_object_version_number := nvl(px_object_version_number, 1);
63
64
65 INSERT INTO ams_imp_doc_content (
66 imp_doc_content_id,
67 last_updated_by,
68 object_version_number,
69 created_by,
70 last_update_login,
71 last_update_date,
72 creation_date,
73 import_list_header_id,
74 file_id,
75 file_name
76 ) VALUES (
77 DECODE( px_imp_doc_content_id, FND_API.G_MISS_NUM, NULL, px_imp_doc_content_id),
78 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
79 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
80 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
81 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
82 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
83 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
84 DECODE( p_import_list_header_id, FND_API.G_MISS_NUM, NULL, p_import_list_header_id),
85 DECODE( p_file_id, FND_API.g_miss_num, NULL, p_file_id),
86 DECODE( p_file_name, FND_API.G_MISS_CHAR, NULL, p_file_name));
87
88 END Insert_Row;
89
90
91
92
93 -- ========================================================
94 --
95 -- NAME
96 -- Update_Row
97 --
98 -- PURPOSE
99 --
100 -- NOTES
101 --
102 -- HISTORY
103 --
104 -- ========================================================
105 PROCEDURE Update_Row(
106 p_imp_doc_content_id NUMBER,
107 p_last_updated_by NUMBER,
108 px_object_version_number IN OUT NOCOPY NUMBER,
109 p_last_update_login NUMBER,
110 p_last_update_date DATE,
111 p_import_list_header_id NUMBER,
112 p_file_id NUMBER,
113 p_file_name VARCHAR2
114 )
115
116 IS
117 BEGIN
118 Update ams_imp_doc_content
119 SET
120 imp_doc_content_id = DECODE( p_imp_doc_content_id, null, imp_doc_content_id, FND_API.G_MISS_NUM, null, p_imp_doc_content_id),
121 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
122 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
123 last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
124 import_list_header_id = DECODE( p_import_list_header_id, null, import_list_header_id, FND_API.G_MISS_NUM, null, p_import_list_header_id),
125 file_id = DECODE( p_file_id, null, file_id, FND_API.g_miss_num, null, p_file_id),
126 file_name = DECODE( p_file_name, null, file_name, FND_API.G_MISS_CHAR, null, p_file_name)
127 WHERE imp_doc_content_id = p_imp_doc_content_id
128 AND object_version_number = px_object_version_number;
129
130
131 IF (SQL%NOTFOUND) THEN
132 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133 END IF;
134
135 px_object_version_number := nvl(px_object_version_number,0) + 1;
136
137 END Update_Row;
138
139
140
141
142 -- ========================================================
143 --
144 -- NAME
145 -- Delete_Row
146 --
147 -- PURPOSE
148 --
149 -- NOTES
150 --
151 -- HISTORY
152 --
153 -- ========================================================
154 PROCEDURE Delete_Row(
155 p_imp_doc_content_id NUMBER,
156 p_object_version_number NUMBER)
157 IS
158 BEGIN
159 DELETE FROM ams_imp_doc_content
160 WHERE imp_doc_content_id = p_imp_doc_content_id
161 AND object_version_number = p_object_version_number;
162 If (SQL%NOTFOUND) then
163 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164 End If;
165 END Delete_Row ;
166
167
168
169
170
171 -- ========================================================
172 --
173 -- NAME
174 -- Lock_Row
175 --
176 -- PURPOSE
177 --
178 -- NOTES
179 --
180 -- HISTORY
181 --
182 -- ========================================================
183 PROCEDURE Lock_Row(
184 p_imp_doc_content_id NUMBER)
185 IS
186 CURSOR C IS
187 SELECT *
188 FROM ams_imp_doc_content
189 WHERE imp_doc_content_id = p_imp_doc_content_id
190 FOR UPDATE OF imp_doc_content_id NOWAIT;
191 Recinfo C%ROWTYPE;
192 BEGIN
193 OPEN c;
194 FETCH c INTO Recinfo;
195 IF (c%NOTFOUND) THEN
196 CLOSE c;
197 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
198 APP_EXCEPTION.RAISE_EXCEPTION;
199 END IF;
200 CLOSE C;
201 END Lock_Row;
202
203 -----------------------------------------------------------------------------------------------
204 -----------------------------------------------------------------------------------------------
205
206
207
208
209 END AMS_IMP_DOC_CON_PKG;