[Home] [Help]
PACKAGE BODY: APPS.IGI_ITR_APPROVAL_LINES_SS_PKG
Source
1 PACKAGE BODY IGI_ITR_APPROVAL_LINES_SS_PKG as
2 -- $Header: igiitrmb.pls 120.4.12000000.1 2007/09/12 10:31:55 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 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
15 X_It_Service_Line_Id NUMBER,
16 X_Status_Flag VARCHAR2,
17 X_Rejection_Note VARCHAR2,
18 X_Suggested_Amount NUMBER,
19 X_Suggested_Recv_Ccid NUMBER
20 )
21 IS
22
23 CURSOR C IS
24 SELECT * FROM igi_itr_charge_lines
25 WHERE rowid = X_Rowid
26 FOR UPDATE OF It_Service_Line_Id NOWAIT;
27
28 Recinfo C%ROWTYPE;
29
30 BEGIN
31 OPEN C;
32 FETCH C INTO Recinfo;
33 IF (C%NOTFOUND) THEN
34 CLOSE C;
35 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
36
37 IF( l_excep_level >= l_debug_level) THEN
38 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrmb.IGI_ITR_APPROVAL_LINES_SS_PKG.lock_row.msg1', FALSE);
39 END IF;
40
41 APP_EXCEPTION.Raise_Exception;
42 END IF;
43 CLOSE C;
44 IF (
45 (Recinfo.It_Service_Line_Id = X_It_Service_Line_Id)
46 AND ( (Recinfo.Status_Flag = X_Status_Flag)
47 OR ( (Recinfo.Status_Flag IS NULL)
48 AND (X_Status_Flag IS NULL)))
49 AND ( (Recinfo.Rejection_Note = X_Rejection_Note)
50 OR ( (Recinfo.Rejection_Note IS NULL)
51 AND (X_Rejection_Note IS NULL)))
52 AND ( (Recinfo.Suggested_Amount = X_Suggested_Amount)
53 OR ( (Recinfo.Suggested_Amount IS NULL)
54 AND (X_Suggested_Amount IS NULL)))
55 AND ( (Recinfo.Suggested_Recv_Ccid = X_Suggested_Recv_Ccid)
56 OR ( (Recinfo.Suggested_Recv_Ccid IS NULL)
57 AND (X_Suggested_Recv_Ccid IS NULL)))
58 ) THEN
59 RETURN;
60 ELSE
61 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
62
63 IF( l_excep_level >= l_debug_level) THEN
64 FND_LOG.MESSAGE(l_excep_level,'igi.plsql.igiitrmb.IGI_ITR_APPROVAL_LINES_SS_PKG.lock_row.msg2', FALSE);
65 END IF;
66
67 APP_EXCEPTION.Raise_Exception;
68 END IF;
69 END Lock_Row;
70
71
72
73
74 PROCEDURE Update_Row(X_Rowid VARCHAR2,
75 X_Status_Flag VARCHAR2,
76 X_Rejection_Note VARCHAR2,
77 X_Suggested_Amount NUMBER,
78 X_Suggested_Recv_Ccid NUMBER,
79 X_Last_Update_Login NUMBER,
80 X_Last_Updated_By NUMBER,
81 X_Last_Update_Date DATE
82 ) IS
83 BEGIN
84 UPDATE igi_itr_charge_lines
85 SET
86 Status_Flag = X_Status_Flag,
87 Rejection_Note = X_Rejection_Note,
88 Suggested_Amount = X_Suggested_Amount,
89 Suggested_Recv_Ccid = X_Suggested_Recv_Ccid,
90 Last_Update_Login = X_Last_Update_Login,
91 Last_Updated_By = X_Last_Updated_By,
92 Last_Update_Date = X_Last_Update_Date
93 WHERE rowid = X_Rowid;
94 IF (SQL%NOTFOUND) THEN
95 RAISE NO_DATA_FOUND;
96 END IF;
97 END Update_Row;
98
99
100 END IGI_ITR_APPROVAL_LINES_SS_PKG;