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