[Home] [Help]
PACKAGE BODY: APPS.FA_INVOICE_TRANSACTIONS_PKG
Source
1 PACKAGE BODY FA_INVOICE_TRANSACTIONS_PKG as
2 /* $Header: faxitsb.pls 120.4 2009/03/27 03:44:40 bridgway ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Invoice_Transaction_Id IN OUT NOCOPY NUMBER,
6 X_Book_Type_Code VARCHAR2,
7 X_Transaction_Type VARCHAR2,
8 X_Date_Effective DATE,
9 X_Calling_Fn VARCHAR2
10 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
11 CURSOR C IS SELECT rowid FROM fa_invoice_transactions
12 WHERE invoice_transaction_id = X_Invoice_Transaction_Id;
13 CURSOR C2 IS SELECT fa_invoice_transactions_s.nextval FROM sys.dual;
14 BEGIN
15 if (X_Invoice_Transaction_Id is NULL) then
16 OPEN C2;
17 FETCH C2 INTO X_Invoice_Transaction_Id;
18 CLOSE C2;
19 end if;
20
21 INSERT INTO fa_invoice_transactions(
22
23 invoice_transaction_id,
24 book_type_code,
25 transaction_type,
26 date_effective
27 ) VALUES (
28
29 X_Invoice_Transaction_Id,
30 X_Book_Type_Code,
31 X_Transaction_Type,
32 X_Date_Effective
33
34 );
35
36 OPEN C;
37 FETCH C INTO X_Rowid;
38 if (C%NOTFOUND) then
39 CLOSE C;
40 Raise NO_DATA_FOUND;
41 end if;
42 CLOSE C;
43
44 EXCEPTION
45 WHEN Others THEN
46 /* FA_STANDARD_PKG.RAISE_ERROR
47 (Called_Fn => 'FA_INVOICE_TRANSACTIONS_PKG.Insert_Row',
48 Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec); */
49 FA_SRVR_MSG.Add_SQL_Error(
50 Calling_Fn => 'FA_INVOICE_TRANSACTIONS_PKG.Insert_Row', p_log_level_rec => p_log_level_rec);
51 raise;
52 END Insert_Row;
53
54
55 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
56 X_Invoice_Transaction_Id NUMBER,
57 X_Book_Type_Code VARCHAR2,
58 X_Transaction_Type VARCHAR2,
59 X_Date_Effective DATE,
60 X_Calling_Fn VARCHAR2
61 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
62 CURSOR C IS
63 SELECT *
64 FROM fa_invoice_transactions
65 WHERE rowid = X_Rowid
66 FOR UPDATE of Invoice_Transaction_Id NOWAIT;
67 Recinfo C%ROWTYPE;
68
69
70 BEGIN
71 OPEN C;
72 FETCH C INTO Recinfo;
73 if (C%NOTFOUND) then
74 CLOSE C;
75 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
76 APP_EXCEPTION.Raise_Exception;
77 end if;
78 CLOSE C;
79 if (
80
81 (Recinfo.invoice_transaction_id = X_Invoice_Transaction_Id)
82 AND (Recinfo.book_type_code = X_Book_Type_Code)
83 AND (Recinfo.transaction_type = X_Transaction_Type)
84 AND (Recinfo.date_effective = X_Date_Effective)
85 ) then
86 return;
87 else
88 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
89 APP_EXCEPTION.Raise_Exception;
90 end if;
91 END Lock_Row;
92
93 PROCEDURE Update_Row(X_Rowid VARCHAR2,
94 X_Invoice_Transaction_Id NUMBER,
95 X_Book_Type_Code VARCHAR2,
96 X_Transaction_Type VARCHAR2,
97 X_Date_Effective DATE,
98 X_Calling_Fn VARCHAR2
99 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
100 BEGIN
101 UPDATE fa_invoice_transactions
102 SET
103 invoice_transaction_id = X_Invoice_Transaction_Id,
104 book_type_code = X_Book_Type_Code,
105 transaction_type = X_Transaction_Type,
106 date_effective = X_Date_Effective
107 WHERE rowid = X_Rowid;
108
109 if (SQL%NOTFOUND) then
110 Raise NO_DATA_FOUND;
111 end if;
112 EXCEPTION
113 WHEN Others THEN
114 fa_srvr_msg.add_sql_error
115 (Calling_Fn => 'FA_INVOICE_TRANSACTIONS_PKG.Update_Row', p_log_level_rec => p_log_level_rec);
116 raise;
117 END Update_Row;
118
119 PROCEDURE Delete_Row(X_Rowid VARCHAR2,
120 X_Calling_Fn VARCHAR2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
121 BEGIN
122 DELETE FROM fa_invoice_transactions
123 WHERE rowid = X_Rowid;
124
125 if (SQL%NOTFOUND) then
126 Raise NO_DATA_FOUND;
127 end if;
128 EXCEPTION
129 WHEN Others THEN
130 fa_srvr_msg.add_sql_error
131 (Calling_Fn => 'FA_INVOICE_TRANSACTIONS_PKG.Delete_Row', p_log_level_rec => p_log_level_rec);
132 raise;
133 END Delete_Row;
134
135
136 END FA_INVOICE_TRANSACTIONS_PKG;