[Home] [Help]
PACKAGE BODY: APPS.FA_TRANSFER_DETAILS_PKG
Source
1 PACKAGE BODY FA_TRANSFER_DETAILS_PKG as
2 /* $Header: faxitdb.pls 120.3 2005/07/25 10:00:44 yyoon 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 default null) 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'
35 ,p_log_level_rec => p_log_level_rec);
36 raise;
37 /* FA_STANDARD_PKG.RAISE_ERROR
38 (Called_Fn => 'FA_TRANSFER_DETAILS_PKG.Insert_Row',
39 Calling_Fn => X_Calling_Fn
40 ,p_log_level_rec => p_log_level_rec); */
41 END Insert_Row;
42
43 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
44 X_Transfer_Header_Id NUMBER,
45 X_Distribution_Id NUMBER,
46 X_Book_Header_Id NUMBER,
47 X_Calling_Fn VARCHAR2,
48 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
49 CURSOR C IS
50 SELECT transfer_header_id,
51 distribution_id,
52 book_header_id
53 FROM fa_transfer_details
54 WHERE rowid = X_Rowid
55 FOR UPDATE of Transfer_Header_Id NOWAIT;
56 Recinfo C%ROWTYPE;
57
58 BEGIN
59 OPEN C;
60 FETCH C INTO Recinfo;
61 if (C%NOTFOUND) then
62 CLOSE C;
63 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
64 APP_EXCEPTION.Raise_Exception;
65 end if;
66 CLOSE C;
67 if ((Recinfo.transfer_header_id = X_Transfer_Header_Id)
68 AND (Recinfo.distribution_id = X_Distribution_Id)
69 AND (Recinfo.book_header_id = X_Book_Header_Id)) then
70 return;
71 else
72 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
73 APP_EXCEPTION.Raise_Exception;
74 end if;
75 END Lock_Row;
76
77 PROCEDURE Update_Row(X_Rowid VARCHAR2,
78 X_Transfer_Header_Id NUMBER,
79 X_Distribution_Id NUMBER,
80 X_Book_Header_Id NUMBER,
81 X_Calling_Fn VARCHAR2,
82 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) 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'
98 ,p_log_level_rec => p_log_level_rec);
99 raise;
100 /* FA_STANDARD_PKG.RAISE_ERROR
101 (Called_Fn => 'FA_TRANSFER_DETAILS_PKG.Update_Row',
102 Calling_Fn => X_Calling_Fn
103 ,p_log_level_rec => p_log_level_rec); */
104 END Update_Row;
105
106 PROCEDURE Delete_Row(X_Rowid VARCHAR2 DEFAULT NULL,
107 X_Transfer_Header_Id NUMBER DEFAULT NULL,
108 X_Calling_Fn VARCHAR2,
109 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
110 BEGIN
111 if X_Rowid is not null then
112 DELETE FROM fa_transfer_details
113 WHERE rowid = X_Rowid;
114 elsif X_Transfer_Header_Id is not null then
115 DELETE FROM fa_transfer_details
116 WHERE transfer_header_id = X_Transfer_Header_Id;
117 else
118 -- print some error message
119 null;
120 end if;
121 if (SQL%NOTFOUND) then
122 Raise NO_DATA_FOUND;
123 end if;
124 EXCEPTION
125 WHEN Others THEN
126 fa_srvr_msg.add_sql_error(
127 calling_fn => 'FA_TRANSFER_DETAILS_PKG.delete_row'
128 ,p_log_level_rec => p_log_level_rec);
129 raise;
130 /* FA_STANDARD_PKG.RAISE_ERROR
131 (Called_Fn => 'FA_TRANSFER_DETAILS_PKG.Delete_Row',
132 Calling_Fn => X_Calling_Fn
133 ,p_log_level_rec => p_log_level_rec); */
134 END Delete_Row;
135
136
137 END FA_TRANSFER_DETAILS_PKG;