[Home] [Help]
PACKAGE BODY: APPS.IGI_IGI_ITR_CHARGE_AUTH_PKG
Source
1 PACKAGE BODY IGI_IGI_ITR_CHARGE_AUTH_PKG as
2 -- $Header: igiitrdb.pls 120.5.12000000.1 2007/09/12 10:30:42 mbremkum ship $
3 --
4
5 l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
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 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
14 X_Charge_Center_Id NUMBER,
15 X_User_Id NUMBER,
16 X_Creation_Date DATE,
17 X_Created_By NUMBER,
18 X_Last_Update_Login NUMBER,
19 X_Last_Update_Date DATE,
20 X_Last_Updated_By NUMBER
21 ) IS
22 CURSOR C IS SELECT rowid FROM IGI_itr_charge_auth
23 WHERE charge_center_id = X_Charge_Center_Id
24 AND user_id = X_User_Id;
25
26 BEGIN
27
28 INSERT INTO IGI_itr_charge_auth(
29 charge_center_id,
30 user_id,
31 creation_date,
32 created_by,
33 last_update_login,
34 last_update_date,
35 last_updated_by
36 ) VALUES (
37 X_Charge_Center_Id,
38 X_User_Id,
39 X_Creation_Date,
40 X_Created_By,
41 X_Last_Update_Login,
42 X_Last_Update_Date,
43 X_Last_Updated_By
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
56 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
57 X_Charge_Center_Id NUMBER,
58 X_User_Id NUMBER
59 ) IS
60
61 CURSOR C IS
62 SELECT *
63 FROM IGI_itr_charge_auth
64 WHERE rowid = X_Rowid
65 FOR UPDATE of Charge_Center_Id NOWAIT;
66 Recinfo C%ROWTYPE;
67
68 BEGIN
69 OPEN C;
70 FETCH C INTO Recinfo;
71 if (C%NOTFOUND) then
72 CLOSE C;
73 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
74
75 IF ( l_excep_level >= l_debug_level) THEN
76 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrdb.IGI_IGI_ITR_CHARGE_AUTH_PKG.lock_row.msg1', FALSE);
77 END IF;
78
79 APP_EXCEPTION.Raise_Exception;
80 end if;
81 CLOSE C;
82 if (
83 (Recinfo.charge_center_id = X_Charge_Center_Id)
84 AND (Recinfo.user_id = X_User_Id)
85 ) then
86 return;
87 else
88 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
89
90 IF ( l_excep_level >= l_debug_level) THEN
91 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrdb.IGI_IGI_ITR_CHARGE_AUTH_PKG.lock_row.msg2', FALSE);
92 END IF;
93
94 APP_EXCEPTION.Raise_Exception;
95 end if;
96 END Lock_Row;
97
98
99
100 PROCEDURE Update_Row(X_Rowid VARCHAR2,
101 X_Charge_Center_Id NUMBER,
102 X_User_Id NUMBER,
103 X_Last_Update_Login NUMBER,
104 X_Last_Update_Date DATE,
105 X_Last_Updated_By NUMBER
106 ) IS
107 BEGIN
108 UPDATE IGI_itr_charge_auth
109 SET
110 charge_center_id = X_Charge_Center_Id,
111 user_id = X_User_Id,
112 last_update_login = X_Last_Update_Login,
113 last_update_date = X_Last_Update_Date,
114 last_updated_by = X_Last_Updated_By
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_itr_charge_auth
124 WHERE rowid = X_Rowid;
125 if (SQL%NOTFOUND) then
126 Raise NO_DATA_FOUND;
127 end if;
128 END Delete_Row;
129
130
131 END IGI_IGI_ITR_CHARGE_AUTH_PKG;