[Home] [Help]
PACKAGE BODY: APPS.IGI_DUN_CUST_LET_SET_CUR_PKG
Source
1 PACKAGE BODY IGI_DUN_CUST_LET_SET_CUR_PKG as
2 /* $Header: igidunkb.pls 115.6 2003/11/27 13:09:43 sdixit ship $ */
3
4 --following variables added for bug 3199481: fnd logging changes: sdixit
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_Customer_Profile_Id NUMBER,
15 X_Currency_Code VARCHAR2,
16 X_Created_By NUMBER,
17 X_Creation_Date DATE,
18 X_Last_Updated_By NUMBER,
19 X_Last_Update_Date DATE,
20 X_Last_Update_Login NUMBER
21
22 ) IS
23 CURSOR C IS SELECT rowid FROM igi_dun_cust_letter_set_cur
24 WHERE customer_profile_id = X_Customer_Profile_Id
25 AND currency_code = X_Currency_Code;
26
27 BEGIN
28
29 INSERT INTO igi_dun_cust_letter_set_cur(
30 customer_profile_id,
31 currency_code,
32 created_by,
33 creation_date,
34 last_updated_by,
35 last_update_date,
36 last_update_login
37 ) VALUES (
38 X_Customer_Profile_Id,
39 X_Currency_Code,
40 X_Created_By,
41 X_Creation_Date,
42 X_Last_Updated_By,
43 X_Last_Update_Date,
44 X_Last_Update_Login
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 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
56 X_Customer_Profile_Id NUMBER,
57 X_Currency_Code VARCHAR2
58
59 ) IS
60 CURSOR C IS
61 SELECT *
62 FROM igi_dun_cust_letter_set_cur
63 WHERE rowid = X_Rowid
64 FOR UPDATE of Customer_Profile_Id NOWAIT;
65 Recinfo C%ROWTYPE;
66
67 BEGIN
68 OPEN C;
69 FETCH C INTO Recinfo;
70 if (C%NOTFOUND) then
71 CLOSE C;
72 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
73 --bug 3199481 fnd logging changes: sdixit: start block
74 IF (l_excep_level >= l_debug_level ) THEN
75 FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunkb.IGI_DUN_CUST_LET_SET_CUR_PKG.Lock_Row',FALSE);
76 END IF;
77 --bug 3199481 fnd logging changes: sdixit: end block
78 APP_EXCEPTION.Raise_Exception;
79 end if;
80 CLOSE C;
81 if (
82 (Recinfo.customer_profile_id = X_Customer_Profile_Id)
83 AND (Recinfo.currency_code = X_Currency_Code)
84
85 ) then
86 return;
87 else
88 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
89 --bug 3199481 fnd logging changes: sdixit: start block
90 IF (l_excep_level >= l_debug_level ) THEN
91 FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunkb.IGI_DUN_CUST_LET_SET_CUR_PKG.Lock_Row',FALSE);
92 END IF;
93 --bug 3199481 fnd logging changes: sdixit: end block
94 APP_EXCEPTION.Raise_Exception;
95 end if;
96 END Lock_Row;
97
98 PROCEDURE Update_Row(X_Rowid VARCHAR2,
99 X_Customer_Profile_Id NUMBER,
100 X_Currency_Code VARCHAR2,
101 X_Last_Updated_By NUMBER,
102 X_Last_Update_Date DATE,
103 X_Last_Update_Login NUMBER
104
105 ) IS
106 BEGIN
107 UPDATE igi_dun_cust_letter_set_cur
108 SET
109 customer_profile_id = X_Customer_Profile_Id,
110 currency_code = X_Currency_Code,
111 last_updated_by = X_Last_Updated_By,
112 last_update_date = X_Last_Update_Date,
113 last_update_login = X_Last_Update_Login
114 WHERE rowid = X_Rowid;
115
116 if (SQL%NOTFOUND) then
117 Raise NO_DATA_FOUND;
118 end if;
119 END Update_Row;
120
121 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
122 BEGIN
123 DELETE FROM igi_dun_cust_letter_set_cur
124 WHERE rowid = X_Rowid;
125
126 if (SQL%NOTFOUND) then
127 Raise NO_DATA_FOUND;
128 end if;
129 END Delete_Row;
130
131
132 END IGI_DUN_CUST_LET_SET_CUR_PKG;