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