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:
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
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;
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,
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
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;
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;
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,
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;
123: if (SQL%NOTFOUND) then
124: Raise NO_DATA_FOUND;
125: end if;
126: END Delete_Row;
127: END IGI_SAP_GROUP_PKG;