[Home] [Help]
PACKAGE BODY: APPS.IGI_ITR_CHARGE_SERVICES_SS_PKG
Source
1 PACKAGE BODY IGI_ITR_CHARGE_SERVICES_SS_PKG as
2 -- $Header: igiitrkb.pls 120.5.12000000.1 2007/09/12 10:31:40 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
14
15 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
16 X_Charge_Center_Id NUMBER,
17 X_Service_Id NUMBER,
18 X_Charge_Service_Id NUMBER,
19 X_Creation_Ccid NUMBER,
20 X_Receiving_Ccid NUMBER,
21 X_Start_Date DATE,
22 X_End_Date DATE,
23 X_Creation_Date DATE,
24 X_Created_By NUMBER,
25 X_Last_Update_Login NUMBER,
26 X_Last_Update_Date DATE,
27 X_Last_Updated_By NUMBER
28 ) IS
29 CURSOR C IS SELECT rowid FROM IGI_itr_charge_service
30 WHERE charge_service_id = X_Charge_Service_Id;
31
32 BEGIN
33 INSERT INTO IGI_itr_charge_service(
34 charge_center_Id,
35 charge_service_id,
36 service_id,
37 creation_ccid,
38 receiving_ccid,
39 start_date,
40 end_date,
41 creation_date,
42 created_by,
43 last_update_login,
44 last_update_date,
45 last_updated_by)
46 VALUES (
47 X_Charge_Center_Id,
48 X_Charge_Service_Id,
49 X_Service_Id,
50 X_Creation_Ccid,
51 X_Receiving_Ccid,
52 X_Start_Date,
53 X_End_Date,
54 X_Creation_Date,
55 X_Created_By,
56 X_Last_Update_Login,
57 X_Last_Update_Date,
58 X_Last_Updated_By
59 );
60
61 OPEN C;
62 FETCH C INTO X_Rowid;
63 if (C%NOTFOUND) then
64 CLOSE C;
65 Raise NO_DATA_FOUND;
66 end if;
67 CLOSE C;
68 END Insert_Row;
69
70
71 PROCEDURE Lock_Row( X_Rowid VARCHAR2,
72 X_Charge_Center_Id NUMBER,
73 X_Charge_Service_Id NUMBER,
74 X_Service_Id NUMBER,
75 X_Creation_Ccid NUMBER,
76 X_Receiving_Ccid NUMBER,
77 X_Start_Date DATE,
78 X_End_Date DATE
79 ) IS
80
81 CURSOR C IS
82 SELECT *
83 FROM IGI_itr_charge_service
84 WHERE rowid = X_Rowid
85 FOR UPDATE of Charge_Service_Id NOWAIT;
86
87 Recinfo C%ROWTYPE;
88
89 BEGIN
90 OPEN C;
91 FETCH C INTO Recinfo;
92 -- fnd_message.debug('RowId '||X_Rowid);
93 -- fnd_message.debug(Recinfo.charge_service_id);
94 if (C%NOTFOUND) then
95 CLOSE C;
96 -- fnd_message.debug('Form Record deleted');
97 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
98
99 IF( l_excep_level >= l_debug_level) THEN
100 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrkb.IGI_ITR_CHARGE_SERVICES_SS_PKG.lock_row.msg1', FALSE);
101 END IF;
102
103 APP_EXCEPTION.Raise_Exception;
104 -- fnd_message.error;
105 -- RAISE form_trigger_failure;
106 end if;
107 CLOSE C;
108 if (
109 (Recinfo.charge_center_id = X_Charge_Center_Id)
110 AND (Recinfo.service_id = X_Service_Id)
111 AND (Recinfo.charge_service_id = X_Charge_Service_Id)
112 AND (Recinfo.creation_ccid = X_Creation_Ccid)
113 AND (Recinfo.receiving_ccid = X_Receiving_Ccid)
114 AND ( (Recinfo.start_date = X_Start_Date)
115 OR ( (Recinfo.start_date IS NULL)
116 AND (X_Start_Date IS NULL)))
117 AND ( (Recinfo.end_date = X_End_Date)
118 OR ( (Recinfo.end_date IS NULL)
119 AND (X_End_Date IS NULL)))
120 ) then
121 return;
122 else
123 -- fnd_message.debug('Form record changed');
124 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
125
126 IF( l_excep_level >= l_debug_level) THEN
127 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrkb.IGI_ITR_CHARGE_SERVICES_SS_PKG.lock_row.msg2', FALSE);
128 END IF;
129
130 APP_EXCEPTION.Raise_Exception;
131 end if;
132 END Lock_Row;
133
134
135
136 PROCEDURE Update_Row(X_Rowid VARCHAR2,
137 X_Charge_Center_Id NUMBER,
138 X_Charge_Service_Id NUMBER,
139 X_Service_Id NUMBER,
140 X_Creation_Ccid NUMBER,
141 X_Receiving_Ccid NUMBER,
142 X_Start_Date DATE,
143 X_End_Date DATE,
144 X_Last_Update_Login NUMBER,
145 X_Last_Update_Date DATE,
146 X_Last_Updated_By NUMBER
147 ) IS
148
149 BEGIN
150 UPDATE IGI_itr_charge_service
151 SET
152 charge_center_id = X_Charge_Center_Id,
153 service_id = X_Service_Id,
154 creation_ccid = X_Creation_Ccid,
155 receiving_ccid = X_Receiving_Ccid,
156 start_date = X_Start_Date,
157 end_date = X_End_Date,
158 last_update_login = X_Last_Update_Login,
159 last_update_date = X_Last_Update_Date,
160 last_updated_by = X_Last_Updated_By
161
162 WHERE rowid = X_Rowid;
163
164 if (SQL%NOTFOUND) then
165 Raise NO_DATA_FOUND;
166 end if;
167 END Update_Row;
168
169
170 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
171 BEGIN
172 DELETE FROM IGI_itr_charge_service
173 WHERE rowid = X_Rowid;
174 if (SQL%NOTFOUND) then
175 Raise NO_DATA_FOUND;
176 end if;
177 END Delete_Row;
178
179
180
181 END IGI_ITR_CHARGE_SERVICES_SS_PKG;