PACKAGE BODY: APPS.CSI_FA_HEADERS_PKG

Source

1 package body CSI_FA_HEADERS_PKG as
2 /* $Header: csitfahb.pls 120.0 2005/06/17 15:06:00 brmanesh noship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out nocopy VARCHAR2,
5   X_INTERFACE_HEADER_ID in NUMBER,
6   X_FA_ASSET_ID in NUMBER,
7   X_FEEDER_SYSTEM_NAME in VARCHAR2,
8   X_STATUS_CODE in VARCHAR2,
9   X_FA_BOOK_TYPE_CODE in VARCHAR2,
10   X_CREATION_DATE in DATE,
11   X_CREATED_BY in NUMBER,
12   X_LAST_UPDATE_DATE in DATE,
13   X_LAST_UPDATED_BY in NUMBER,
14   X_LAST_UPDATE_LOGIN in NUMBER
15 ) is
16 begin
17   insert into CSI_FA_HEADERS (
18     INTERFACE_HEADER_ID,
19     FA_ASSET_ID,
20     FA_BOOK_TYPE_CODE,
21     FEEDER_SYSTEM_NAME,
22     STATUS_CODE,
23     LAST_UPDATE_DATE,
24     LAST_UPDATED_BY,
25     CREATION_DATE,
26     CREATED_BY,
27     LAST_UPDATE_LOGIN
28   ) select
29     X_INTERFACE_HEADER_ID,
30     X_FA_ASSET_ID,
31     X_FA_BOOK_TYPE_CODE,
32     X_FEEDER_SYSTEM_NAME,
33     X_STATUS_CODE,
34     X_LAST_UPDATE_DATE,
35     X_LAST_UPDATED_BY,
36     X_CREATION_DATE,
37     X_CREATED_BY,
38     X_LAST_UPDATE_LOGIN
39   from SYS.dual;
40 
41 end INSERT_ROW;
42 
43 procedure LOCK_ROW (
44   X_INTERFACE_HEADER_ID in NUMBER,
45   X_FA_ASSET_ID in NUMBER,
46   X_FEEDER_SYSTEM_NAME in VARCHAR2,
47   X_STATUS_CODE in VARCHAR2,
48   X_FA_BOOK_TYPE_CODE in VARCHAR2
49 ) is
50   cursor c1 is select
51       FA_ASSET_ID,
52       FEEDER_SYSTEM_NAME,
53       STATUS_CODE,
54       FA_BOOK_TYPE_CODE
55     from CSI_FA_HEADERS
56     where INTERFACE_HEADER_ID = X_INTERFACE_HEADER_ID
57     for update of INTERFACE_HEADER_ID nowait;
58 begin
59   for tlinfo in c1 loop
60     if (    (tlinfo.FA_BOOK_TYPE_CODE = X_FA_BOOK_TYPE_CODE)
61         AND (tlinfo.FA_ASSET_ID = X_FA_ASSET_ID)
62         AND (tlinfo.FEEDER_SYSTEM_NAME = X_FEEDER_SYSTEM_NAME)
63         AND ((tlinfo.STATUS_CODE = X_STATUS_CODE)
64              OR ((tlinfo.STATUS_CODE is null) AND (X_STATUS_CODE is null)))
65     ) then
66       null;
67     else
68       fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
69       app_exception.raise_exception;
70     end if;
71   end loop;
72   return;
73 end LOCK_ROW;
74 
75 procedure UPDATE_ROW (
76   X_INTERFACE_HEADER_ID in NUMBER,
77   X_FA_ASSET_ID in NUMBER,
78   X_FEEDER_SYSTEM_NAME in VARCHAR2,
79   X_STATUS_CODE in VARCHAR2,
80   X_FA_BOOK_TYPE_CODE in VARCHAR2,
81   X_LAST_UPDATE_DATE in DATE,
82   X_LAST_UPDATED_BY in NUMBER,
83   X_LAST_UPDATE_LOGIN in NUMBER
84 ) is
85 begin
86   update CSI_FA_HEADERS set
87     FA_ASSET_ID = X_FA_ASSET_ID,
88     FEEDER_SYSTEM_NAME = X_FEEDER_SYSTEM_NAME,
89     STATUS_CODE = X_STATUS_CODE,
90     FA_BOOK_TYPE_CODE = X_FA_BOOK_TYPE_CODE,
91     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
92     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
93     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
94   where INTERFACE_HEADER_ID = X_INTERFACE_HEADER_ID;
95 
96   if (sql%notfound) then
97     raise no_data_found;
98   end if;
99 
100 end UPDATE_ROW;
101 
102 procedure DELETE_ROW (
103   X_INTERFACE_HEADER_ID in NUMBER
104 ) is
105 begin
106   delete from CSI_FA_HEADERS
107   where INTERFACE_HEADER_ID = X_INTERFACE_HEADER_ID;
108 
109   if (sql%notfound) then
110     raise no_data_found;
111   end if;
112 
113 end DELETE_ROW;
114 
115 end CSI_FA_HEADERS_PKG;