[Home] [Help]
PACKAGE BODY: APPS.FA_INVOICE_TRANSACTIONS_PKG
Source
1 PACKAGE BODY FA_INVOICE_TRANSACTIONS_PKG as
2 /* $Header: faxitsb.pls 120.3 2005/07/25 10:00:28 yyoon 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 default null) 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
49 ,p_log_level_rec => p_log_level_rec); */
50 FA_SRVR_MSG.Add_SQL_Error(
51 Calling_Fn => 'FA_INVOICE_TRANSACTIONS_PKG.Insert_Row'
52 ,p_log_level_rec => p_log_level_rec);
53 raise;
54 END Insert_Row;
55
56
57 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
58 X_Invoice_Transaction_Id NUMBER,
59 X_Book_Type_Code VARCHAR2,
60 X_Transaction_Type VARCHAR2,
61 X_Date_Effective DATE,
62 X_Calling_Fn VARCHAR2,
63 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
64 CURSOR C IS
65 SELECT *
66 FROM fa_invoice_transactions
67 WHERE rowid = X_Rowid
68 FOR UPDATE of Invoice_Transaction_Id NOWAIT;
69 Recinfo C%ROWTYPE;
70
71
72 BEGIN
73 OPEN C;
74 FETCH C INTO Recinfo;
75 if (C%NOTFOUND) then
76 CLOSE C;
77 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
78 APP_EXCEPTION.Raise_Exception;
79 end if;
80 CLOSE C;
81 if (
82
83 (Recinfo.invoice_transaction_id = X_Invoice_Transaction_Id)
84 AND (Recinfo.book_type_code = X_Book_Type_Code)
85 AND (Recinfo.transaction_type = X_Transaction_Type)
86 AND (Recinfo.date_effective = X_Date_Effective)) then
87 return;
88 else
89 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
90 APP_EXCEPTION.Raise_Exception;
91 end if;
92 END Lock_Row;
93
94 PROCEDURE Update_Row(X_Rowid VARCHAR2,
95 X_Invoice_Transaction_Id NUMBER,
96 X_Book_Type_Code VARCHAR2,
97 X_Transaction_Type VARCHAR2,
98 X_Date_Effective DATE,
99 X_Calling_Fn VARCHAR2,
100 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
101 BEGIN
102 UPDATE fa_invoice_transactions
103 SET
104 invoice_transaction_id = X_Invoice_Transaction_Id,
105 book_type_code = X_Book_Type_Code,
106 transaction_type = X_Transaction_Type,
107 date_effective = X_Date_Effective
108 WHERE rowid = X_Rowid;
109
110 if (SQL%NOTFOUND) then
111 Raise NO_DATA_FOUND;
112 end if;
113 EXCEPTION
114 WHEN Others THEN
115 fa_srvr_msg.add_sql_error
116 (Calling_Fn => 'FA_INVOICE_TRANSACTIONS_PKG.Update_Row'
117 ,p_log_level_rec => p_log_level_rec);
118 raise;
119 END Update_Row;
120
121 PROCEDURE Delete_Row(X_Rowid VARCHAR2,
122 X_Calling_Fn VARCHAR2,
123 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
124 BEGIN
125 DELETE FROM fa_invoice_transactions
126 WHERE rowid = X_Rowid;
127
128 if (SQL%NOTFOUND) then
129 Raise NO_DATA_FOUND;
130 end if;
131 EXCEPTION
132 WHEN Others THEN
133 fa_srvr_msg.add_sql_error
134 (Calling_Fn => 'FA_INVOICE_TRANSACTIONS_PKG.Delete_Row'
135 ,p_log_level_rec => p_log_level_rec);
136 raise;
137 END Delete_Row;
138
139
140 END FA_INVOICE_TRANSACTIONS_PKG;