DBA Data[Home] [Help]

PACKAGE BODY: APPS.AMS_IMP_DOC_PKG

Source


1 PACKAGE BODY AMS_IMP_DOC_PKG as
2  /* $Header: amstidob.pls 115.4 2002/11/14 21:59:26 jieli noship $ */
3  -- ===============================================================
4  -- Start of Comments
5  -- Package name
6  --          AMS_Imp_Doc_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_PKG';
21  G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstidob.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_document_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_content_text    CLOB := NULL,
52            p_dtd_text    CLOB := NULL,
53            p_file_type    VARCHAR2,
54            p_filter_content_text    CLOB := NULL,
55            p_file_size    NUMBER
56  )
57 
58   IS
59     x_rowid    VARCHAR2(30);
60 
61 
62  BEGIN
63 
64 
65     px_object_version_number := nvl(px_object_version_number, 1);
66 
67 
68     INSERT INTO ams_imp_documents(
69             imp_document_id,
70             last_updated_by,
71             object_version_number,
72             --last_update_by,
73             created_by,
74             --creation_date,
75             last_update_login,
76             --created_by,
77             last_update_date,
78             --last_update_login,
79             creation_date,
80             --object_version_number,
81             import_list_header_id,
82             --import_list_header_id,
83             --content_text,
84             --content_text,
85             --dtd_text,
86             --dtd_text,
87             file_type,
88             --filter_content_text,
89             --filter_content_text,
90             --file_type,
91             --file_size,
92             file_size
93             --last_updated_by
94     ) VALUES (
95             DECODE( px_imp_document_id, FND_API.G_MISS_NUM, NULL, px_imp_document_id),
96             DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
97             DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
98             --DECODE( p_last_update_by, FND_API.G_MISS_NUM, NULL, p_last_update_by),
99             DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
100             --DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
101             DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
102             --DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
103             DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
104             --DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
105             DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
106             --DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
107             --DECODE( p_import_list_header_id, FND_API.G_MISS_NUM, NULL, p_import_list_header_id),
108             DECODE( p_import_list_header_id, FND_API.G_MISS_NUM, NULL, p_import_list_header_id),
109             --DECODE( p_content_text, FND_API.g_miss_char, NULL, p_content_text),
110             --DECODE( p_content_text, FND_API.g_miss_char, NULL, p_content_text),
111             --DECODE( p_dtd_text, FND_API.g_miss_char, NULL, p_dtd_text),
112             --DECODE( p_dtd_text, FND_API.g_miss_char, NULL, p_dtd_text),
113             DECODE( p_file_type, FND_API.g_miss_char, NULL, p_file_type),
114             --DECODE( p_filter_content_text, FND_API.g_miss_char, NULL, p_filter_content_text),
115             --DECODE( p_filter_content_text, FND_API.g_miss_char, NULL, p_filter_content_text),
116             --DECODE( p_file_type, FND_API.g_miss_char, NULL, p_file_type),
117             --DECODE( p_file_size, FND_API.G_MISS_NUM, NULL, p_file_size),
118             DECODE( p_file_size, FND_API.G_MISS_NUM, NULL, p_file_size));
119             --DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by));
120 
121  END Insert_Row;
122 
123 
124 
125 
126  --  ========================================================
127  --
128  --  NAME
129  --  Update_Row
130  --
131  --  PURPOSE
132  --
133  --  NOTES
134  --
135  --  HISTORY
136  --
137  --  ========================================================
138  PROCEDURE Update_Row(
139            p_imp_document_id    NUMBER,
140            p_last_updated_by    NUMBER,
141            px_object_version_number   IN OUT NOCOPY NUMBER,
142            p_last_update_login    NUMBER,
143            p_last_update_date    DATE,
144            p_import_list_header_id    NUMBER,
145            p_content_text    CLOB := NULL,
146            p_dtd_text    CLOB := NULL,
147            p_file_type    VARCHAR2,
148            p_filter_content_text    CLOB := NULL,
149            p_file_size    NUMBER
150  )
151 
152   IS
153   BEGIN
154      Update ams_imp_documents
155      SET
156                imp_document_id = DECODE( p_imp_document_id, null, imp_document_id, FND_API.G_MISS_NUM, null, p_imp_document_id),
157                --imp_document_id = DECODE( p_imp_document_id, null, imp_document_id, FND_API.G_MISS_NUM, null, p_imp_document_id),
158                last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
159                --last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
160  --            object_version_number = DECODE( px_object_version_number, null , nvl(object_version_number,1), FND_API.G_MISS_NUM, 1, p_object_version_number),
161                --last_update_by = DECODE( p_last_update_by, null, last_update_by, FND_API.G_MISS_NUM, null, p_last_update_by),
162  --            created_by = DECODE( p_created_by, null, created_by, FND_API.G_MISS_NUM, null, p_created_by),
163  --            creation_date = DECODE( p_creation_date, null, creation_date, FND_API.G_MISS_DATE, null, p_creation_date),
164                last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
165  --            created_by = DECODE( p_created_by, null, created_by, FND_API.G_MISS_NUM, null, p_created_by),
166                last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
167                --last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
168  --            creation_date = DECODE( p_creation_date, null, creation_date, FND_API.G_MISS_DATE, null, p_creation_date),
169  --            object_version_number = DECODE( px_object_version_number, null , nvl(object_version_number,1), FND_API.G_MISS_NUM, 1, p_object_version_number),
170                --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),
171                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),
172                --content_text = DECODE( p_content_text, null, content_text, FND_API.g_miss_char, null, p_content_text),
173                --content_text = DECODE( p_content_text, null, content_text, FND_API.g_miss_char, null, p_content_text),
174                --dtd_text = DECODE( p_dtd_text, null, dtd_text, FND_API.g_miss_char, null, p_dtd_text),
175                --dtd_text = DECODE( p_dtd_text, null, dtd_text, FND_API.g_miss_char, null, p_dtd_text),
176                file_type = DECODE( p_file_type, null, file_type, FND_API.g_miss_char, null, p_file_type),
177                --filter_content_text = DECODE( p_filter_content_text, null, filter_content_text, FND_API.g_miss_char, null, p_filter_content_text),
178                --filter_content_text = DECODE( p_filter_content_text, null, filter_content_text, FND_API.g_miss_char, null, p_filter_content_text),
179                --file_type = DECODE( p_file_type, null, file_type, FND_API.g_miss_char, null, p_file_type),
180                --file_size = DECODE( p_file_size, null, file_size, FND_API.G_MISS_NUM, null, p_file_size),
181                file_size = DECODE( p_file_size, null, file_size, FND_API.G_MISS_NUM, null, p_file_size)
182                --last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by)
183     WHERE imp_document_id = p_imp_document_id
184     AND   object_version_number = px_object_version_number;
185 
186 
187     IF (SQL%NOTFOUND) THEN
188        RAISE  FND_API.G_EXC_UNEXPECTED_ERROR;
189     END IF;
190 
191     px_object_version_number := nvl(px_object_version_number,0) + 1;
192 
193  END Update_Row;
194 
195 
196 
197 
198  --  ========================================================
199  --
200  --  NAME
201  --  Delete_Row
202  --
203  --  PURPOSE
204  --
205  --  NOTES
206  --
207  --  HISTORY
208  --
209  --  ========================================================
210  PROCEDURE Delete_Row(
211      p_imp_document_id  NUMBER,
212      p_object_version_number  NUMBER)
213   IS
214   BEGIN
215     DELETE FROM ams_imp_documents
216      WHERE imp_document_id = p_imp_document_id
217      AND object_version_number = p_object_version_number;
218     If (SQL%NOTFOUND) then
219        RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220     End If;
221   END Delete_Row ;
222 
223 
224 
225 
226 
227  --  ========================================================
228  --
229  --  NAME
230  --  Lock_Row
231  --
232  --  PURPOSE
233  --
234  --  NOTES
235  --
236  --  HISTORY
237  --
238  --  ========================================================
239  PROCEDURE Lock_Row(
240      p_imp_document_id  NUMBER)
241   IS
242     CURSOR C IS
243          SELECT *
244           FROM ams_imp_documents
245          WHERE imp_document_id =  p_imp_document_id
246          FOR UPDATE OF imp_document_id NOWAIT;
247     Recinfo C%ROWTYPE;
248   BEGIN
249      OPEN c;
250      FETCH c INTO Recinfo;
251      IF (c%NOTFOUND) THEN
252          CLOSE c;
253          FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
254          APP_EXCEPTION.RAISE_EXCEPTION;
255      END IF;
256      CLOSE C;
257  END Lock_Row;
258 
259 -----------------------------------------------------------------------------------------------
260 -----------------------------------------------------------------------------------------------
261 
262 
263 
264 
265 END AMS_IMP_DOC_PKG;