[Home] [Help]
PACKAGE BODY: APPS.IGI_SAP_INVOICE_CLERK_PKG
Source
1 PACKAGE BODY IGI_SAP_INVOICE_CLERK_PKG as
2 -- $Header: igisiadb.pls 120.4.12000000.1 2007/09/12 11:47:32 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 NUMBER,
16 X_Clerk_Id NUMBER,
17 X_Start_Date_Active DATE,
18 X_End_Date_Active DATE,
19 X_Creation_Date DATE,
20 X_Created_By NUMBER,
21 X_Last_Update_Login NUMBER,
22 X_Last_Update_Date DATE,
23 X_Last_Updated_By NUMBER
24 ) IS
25 CURSOR C IS SELECT rowid FROM IGI_SAP_INVOICE_CLERK
26 WHERE group_id = X_Group_Id
27 AND clerk_id = X_Clerk_Id;
28 BEGIN
29 INSERT INTO IGI_SAP_INVOICE_CLERK(
30 group_id,
31 clerk_id,
32 start_date_active,
33 end_date_active,
34 creation_date,
35 created_by,
36 last_update_login,
37 last_update_date,
38 last_updated_by
39 ) VALUES (
40 X_Group_Id,
41 X_Clerk_Id,
42 X_Start_Date_Active,
43 X_End_Date_Active,
44 X_Creation_Date,
45 X_Created_By,
46 X_Last_Update_Login,
47 X_Last_Update_Date,
48 X_Last_Updated_By
49 );
50 OPEN C;
51 FETCH C INTO X_Rowid;
52 if (C%NOTFOUND) then
53 CLOSE C;
54 Raise NO_DATA_FOUND;
55 end if;
56 CLOSE C;
57 END Insert_Row;
58 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
59 X_Group_Id NUMBER,
60 X_Clerk_Id NUMBER,
61 X_Start_Date_Active DATE,
62 X_End_Date_Active DATE) IS
63 CURSOR C IS
64 SELECT *
65 FROM IGI_SAP_INVOICE_CLERK
66 WHERE rowid = X_Rowid
67 FOR UPDATE of Group_Id NOWAIT;
68 Recinfo C%ROWTYPE;
69 BEGIN
70 OPEN C;
71 FETCH C INTO Recinfo;
72 if (C%NOTFOUND) then
73 CLOSE C;
74 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
75 --Bug 3199481 (start)
76 If (l_unexp_level >= l_debug_level) then
77 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_sap_invoice_clerk_pkg.lock_row.Msg1',FALSE);
78 End if;
79 --Bug 3199481 (end)
80 APP_EXCEPTION.Raise_Exception;
81 end if;
82 CLOSE C;
83 if (
84 (Recinfo.group_id = X_Group_Id)
85 AND (Recinfo.clerk_id = X_Clerk_Id)
86 AND (Recinfo.start_date_active = X_Start_Date_Active)
87 AND ( (Recinfo.end_date_active = X_End_Date_Active)
88 OR ( (Recinfo.end_date_active IS NULL)
89 AND (X_End_Date_Active IS NULL)))
90 ) then
91 return;
92 else
93 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
94 --Bug 3199481 (start)
95 If (l_unexp_level >= l_debug_level) then
96 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_sap_invoice_clerk_pkg.lock_row.Msg2',FALSE);
97 End if;
98 --Bug 3199481 (end)
99 APP_EXCEPTION.Raise_Exception;
100 end if;
101 END Lock_Row;
102 PROCEDURE Update_Row(X_Rowid VARCHAR2,
103 X_Group_Id NUMBER,
104 X_Clerk_Id NUMBER,
105 X_Start_Date_Active DATE,
106 X_End_Date_Active DATE,
107 X_Last_Update_Login NUMBER,
108 X_Last_Update_Date DATE,
109 X_Last_Updated_By NUMBER
110 ) IS
111 BEGIN
112 UPDATE IGI_SAP_INVOICE_CLERK
113 SET
114 group_id = X_Group_Id,
115 clerk_id = X_Clerk_Id,
116 start_date_active = X_Start_Date_Active,
117 end_date_active = X_End_Date_Active,
118 last_update_login = X_Last_Update_Login,
119 last_update_date = X_Last_Update_Date,
120 last_updated_by = X_Last_Updated_By
121 WHERE rowid = X_Rowid;
122
123 if (SQL%NOTFOUND) then
124 Raise NO_DATA_FOUND;
125 end if;
126 END Update_Row;
127 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
128 BEGIN
129 DELETE FROM IGI_SAP_INVOICE_CLERK
130 WHERE rowid = X_Rowid;
131
132 if (SQL%NOTFOUND) then
133 Raise NO_DATA_FOUND;
134 end if;
135 END Delete_Row;
136
137 END IGI_SAP_INVOICE_CLERK_PKG;