[Home] [Help]
PACKAGE BODY: APPS.FA_TRX_REFERENCES_PKG
Source
1 PACKAGE BODY FA_TRX_REFERENCES_PKG as
2 /* $Header: faxitrb.pls 120.5 2009/03/27 08:59:02 bridgway ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Trx_Reference_Id IN OUT NOCOPY NUMBER,
6 X_Book_Type_Code VARCHAR2,
7 X_Src_Asset_Id NUMBER,
8 X_Src_Transaction_Header_Id NUMBER,
9 X_Dest_Asset_Id NUMBER,
10 X_Dest_Transaction_Header_Id NUMBER,
11 X_Member_Asset_Id NUMBER DEFAULT NULL,
12 X_Member_Transaction_Header_Id NUMBER DEFAULT NULL,
13 X_Transaction_Type VARCHAR2 DEFAULT NULL,
14 X_Src_Transaction_Subtype VARCHAR2 DEFAULT NULL,
15 X_Dest_Transaction_Subtype VARCHAR2 DEFAULT NULL,
16 X_Src_Amortization_Start_Date DATE DEFAULT NULL,
17 X_Dest_Amortization_Start_Date DATE DEFAULT NULL,
18 X_Reserve_Transfer_Amount NUMBER DEFAULT NULL,
19 X_Src_Expense_Amount NUMBER DEFAULT NULL,
20 X_Dest_Expense_Amount NUMBER DEFAULT NULL,
21 X_Src_Eofy_Reserve NUMBER DEFAULT NULL,
22 X_Dest_Eofy_Reserve NUMBER DEFAULT NULL,
23 X_Creation_Date DATE,
24 X_Created_By NUMBER,
25 X_Last_Update_Date DATE,
26 X_Last_Updated_By NUMBER,
27 X_Last_Update_Login NUMBER DEFAULT NULL,
28 X_Invoice_Transaction_Id NUMBER DEFAULT NULL,
29 X_Event_Id NUMBER DEFAULT NULL,
30 X_Return_Status OUT NOCOPY BOOLEAN,
31 X_Calling_Fn VARCHAR2
32 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
33
34 CURSOR C IS SELECT rowid FROM fa_trx_references
35 WHERE trx_reference_id = X_Trx_Reference_Id;
36
37 CURSOR C2 IS SELECT fa_trx_references_s.nextval FROM dual;
38
39 BEGIN
40 if (X_Trx_Reference_Id is NULL) then
41 OPEN C2;
42 FETCH C2 INTO X_Trx_Reference_Id;
43 CLOSE C2;
44 end if;
45
46 INSERT INTO fa_trx_references(
47 trx_reference_id,
48 book_type_code,
49 src_asset_id,
50 src_transaction_header_id,
51 dest_asset_id,
52 dest_transaction_header_id,
53 member_asset_id,
54 member_transaction_header_id,
55 transaction_type,
56 src_transaction_subtype,
57 dest_transaction_subtype,
58 src_amortization_start_date,
59 dest_amortization_start_date,
60 reserve_transfer_amount,
61 src_expense_amount,
62 dest_expense_amount,
63 src_eofy_reserve,
64 dest_eofy_reserve,
65 creation_date,
66 created_by,
67 last_update_date,
68 last_updated_by,
69 last_update_login,
70 event_id,
71 invoice_transaction_id
72 ) VALUES (
73 X_Trx_Reference_Id,
74 X_Book_Type_Code,
75 X_Src_Asset_Id,
76 X_Src_Transaction_Header_Id,
77 X_Dest_Asset_Id,
78 X_Dest_Transaction_Header_Id,
79 X_Member_Asset_Id,
80 X_Member_Transaction_Header_Id,
81 X_Transaction_Type,
82 X_Src_Transaction_Subtype,
83 X_Dest_Transaction_Subtype,
84 X_Src_Amortization_Start_Date,
85 X_Dest_Amortization_Start_Date,
86 X_Reserve_Transfer_Amount,
87 X_Src_Expense_Amount,
88 X_Dest_Expense_Amount,
89 X_Src_Eofy_Reserve,
90 X_Dest_Eofy_Reserve,
91 X_Creation_Date,
92 X_Created_By,
93 X_Last_Update_Date,
94 X_Last_Updated_By,
95 X_Last_Update_Login,
96 X_Event_Id,
97 X_Invoice_Transaction_Id
98 );
99
100 OPEN C;
101 FETCH C INTO X_Rowid;
102 if (C%NOTFOUND) then
103 CLOSE C;
104 Raise NO_DATA_FOUND;
105 end if;
106 CLOSE C;
107
108 X_Return_Status := TRUE;
109
110 exception
111 when others then
112 FA_SRVR_MSG.Add_SQL_Error(
113 CALLING_FN => 'FA_TRX_REFERENCES_PKG.Insert_Row', p_log_level_rec => p_log_level_rec);
114 X_Return_Status := FALSE;
115 raise;
116
117 END Insert_Row;
118
119
120 /*
121
122 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
123
124 PROCEDURE Update_Row(
125
126 PROCEDURE Delete_Row(X_Rowid VARCHAR2 DEFAULT NULL,
127
128 */
129
130
131 END FA_TRX_REFERENCES_PKG;