[Home] [Help]
PACKAGE BODY: APPS.IGI_IGI_INT_BK_ID_MAP_PKG
Source
1 PACKAGE BODY IGI_IGI_INT_BK_ID_MAP_PKG as
2 -- $Header: igiintcb.pls 120.7.12000000.1 2007/09/12 09:37:33 mbremkum ship $
3 --
4 l_debug_level number;
5 l_state_level number;
6 l_proc_level number;
7 l_event_level number;
8 l_excep_level number;
9 l_error_level number;
10 l_unexp_level number;
11
12 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
13 X_Feeder_Book_Id VARCHAR2,
14 X_Set_Of_Books_Id NUMBER,
15 X_Creation_Date DATE,
16 X_Created_By NUMBER,
17 X_Last_Update_Date DATE,
18 X_Last_Updated_By NUMBER,
19 X_Last_Update_Login NUMBER
20 ) IS
21 CURSOR C IS SELECT rowid FROM igi_int_bk_id_map
22 WHERE feeder_book_id = X_Feeder_Book_Id;
23
24 BEGIN
25
26
27 INSERT INTO igi_int_bk_id_map(
28
29 feeder_book_id,
30 set_of_books_id,
31 creation_date,
32 created_by,
33 last_update_date,
34 last_updated_by,
35 last_update_login
36 ) VALUES (
37 X_Feeder_Book_Id,
38 X_Set_Of_Books_Id,
39 X_Creation_Date,
40 X_Created_By,
41 X_Last_Update_Date,
42 X_Last_Updated_By,
43 X_Last_Update_Login
44 );
45
46 OPEN C;
47 FETCH C INTO X_Rowid;
48 if (C%NOTFOUND) then
49 CLOSE C;
50 Raise NO_DATA_FOUND;
51 end if;
52 CLOSE C;
53 END Insert_Row;
54
55 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
56 X_Feeder_Book_Id VARCHAR2,
57 X_Set_Of_Books_Id NUMBER
58 ) IS
59 CURSOR C IS
60 SELECT *
61 FROM igi_int_bk_id_map
62 WHERE rowid = X_Rowid
63 FOR UPDATE of Feeder_Book_Id NOWAIT;
64 Recinfo C%ROWTYPE;
65
66
67 BEGIN
68 OPEN C;
69 FETCH C INTO Recinfo;
70 if (C%NOTFOUND) then
71 CLOSE C;
72 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
73 -- bug 3199481, start block
74 IF (l_unexp_level >= l_debug_level) THEN
75 FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_igi_int_bk_id_map_pkg.lock_row.Msg1',FALSE);
76 END IF;
77 -- bug 3199481, end block
78 APP_EXCEPTION.Raise_Exception;
79 end if;
80 CLOSE C;
81 if (
82 (Recinfo.feeder_book_id = X_Feeder_Book_Id)
83 AND (Recinfo.set_of_books_id = X_Set_Of_Books_Id)
84 ) then
85 return;
86 else
87 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
88 -- bug 3199481, start block
89 IF (l_unexp_level >= l_debug_level) THEN
90 FND_LOG.MESSAGE(l_unexp_level, 'igi.plsql.igi_igi_int_bk_id_map_pkg.lock_row.Msg2',FALSE);
91 END IF;
92 -- bug 3199481, end block
93 APP_EXCEPTION.Raise_Exception;
94 end if;
95 END Lock_Row;
96
97
98
99 PROCEDURE Update_Row(X_Rowid VARCHAR2,
100 X_Feeder_Book_Id VARCHAR2,
101 X_Set_Of_Books_Id NUMBER,
102 X_Last_Update_Date DATE,
103 X_Last_Updated_By NUMBER,
104 X_Last_Update_Login NUMBER
105
106 ) IS
107 BEGIN
108 UPDATE igi_int_bk_id_map
109 SET
110 feeder_book_id = X_Feeder_Book_Id,
111 set_of_books_id = X_Set_Of_Books_Id,
112 last_update_date = X_Last_Update_Date,
113 last_updated_by = X_Last_Updated_By,
114 last_update_login = X_Last_Update_Login
115 WHERE rowid = X_Rowid;
116
117 if (SQL%NOTFOUND) then
118 Raise NO_DATA_FOUND;
119 end if;
120 END Update_Row;
121 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
122 BEGIN
123 DELETE FROM igi_int_bk_id_map
124 WHERE rowid = X_Rowid;
125
126 if (SQL%NOTFOUND) then
127 Raise NO_DATA_FOUND;
128 end if;
129 END Delete_Row;
130 BEGIN
131
132 l_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
133 l_state_level := FND_LOG.LEVEL_STATEMENT ;
134 l_proc_level := FND_LOG.LEVEL_PROCEDURE ;
135 l_event_level := FND_LOG.LEVEL_EVENT ;
136 l_excep_level := FND_LOG.LEVEL_EXCEPTION ;
137 l_error_level := FND_LOG.LEVEL_ERROR ;
138 l_unexp_level := FND_LOG.LEVEL_UNEXPECTED ;
139
140 END IGI_IGI_INT_BK_ID_MAP_PKG;