PACKAGE BODY: APPS.IGW_ORG_MAP_DETAILS_PKG

Source

1 PACKAGE BODY IGW_ORG_MAP_DETAILS_PKG as
2 --$Header: igwstmdb.pls 115.4 2002/11/14 18:48:04 vmedikon ship $
3 
4   procedure insert_row (
5          x_rowid		IN OUT NOCOPY  VARCHAR2
6 	,p_map_id	        NUMBER
7         ,p_stop_id              NUMBER
8         ,p_approver_type        VARCHAR2
9         ,p_user_name            varchar2) is
10 
11     cursor  c is
12     select  rowid
13     from    igw_org_map_details
14     where   map_id = p_map_id and
15             stop_id = p_stop_id and
16             user_name = p_user_name;
17 
18     l_last_updated_by  	NUMBER := FND_GLOBAL.USER_ID;
19     l_last_update_login NUMBER := FND_GLOBAL.LOGIN_ID;
20     l_last_update_date  DATE   := SYSDATE;
21   begin
22 
23     insert into igw_org_map_details(
24 	map_id
25        ,stop_id
26        ,approver_type
27        ,user_name
28 	,last_update_date
29 	,last_updated_by
30 	,creation_date
31 	,created_by
32 	,last_update_login)
33     values(
34 	p_map_id
35 	,p_stop_id
36 	,p_approver_type
37   	,p_user_name
38 	,l_last_update_date
39 	,l_last_updated_by
40 	,l_last_update_date
41 	,l_last_updated_by
42 	,l_last_update_login);
43 
44     open c;
45     fetch c into x_ROWID;
46     if (c%notfound) then
47       close c;
48       raise no_data_found;
49     end if;
50     close c;
51   end insert_row;
52 
53 
54   procedure lock_row (
55          x_rowid		VARCHAR2
56 	,p_map_id	        NUMBER
57         ,p_stop_id              NUMBER
58         ,p_approver_type        VARCHAR2
59         ,p_user_name            VARCHAR2) is
60 
61     cursor c is
62       select  	*
63      from  	igw_org_map_details
64      where 	rowid = x_rowid
65      for update of map_id,stop_id,user_name nowait;
66 
67      tlinfo c%rowtype;
68   begin
69     open c;
70     fetch c into tlinfo;
71     if (c%notfound) then
72       fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
73       app_exception.raise_exception;
74       close c;
75       return;
76     end if;
77     close c;
78 
79     if (    (tlinfo.map_id = p_map_id)
80         AND (tlinfo.stop_id = p_stop_id)
81         AND ((tlinfo.approver_type = p_approver_type)
82           OR (  (tlinfo.approver_type is null)
83             AND (p_approver_type is null)))
84         AND (tlinfo.user_name = p_user_name)) then
85       null;
86     else
87       fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
88       app_exception.raise_exception;
89     end if;
90     return;
91   end lock_row;
92 
93   procedure update_row (
94          x_rowid		VARCHAR2
95 	,p_map_id	        NUMBER
96         ,p_stop_id              NUMBER
97         ,p_approver_type        VARCHAR2
98         ,p_user_name            varchar2) is
99 
100     l_last_updated_by  	NUMBER := FND_GLOBAL.USER_ID;
101     l_last_update_login NUMBER := FND_GLOBAL.LOGIN_ID;
102     l_last_update_date  DATE   := SYSDATE;
103   begin
104 
105     update igw_org_map_details
106     set stop_id = p_stop_id
107        ,approver_type = p_approver_type
108        ,user_name = p_user_name
109        ,last_update_date = l_last_update_date
110        ,last_updated_by = l_last_updated_by
111        ,last_update_login = l_last_update_login
112     where  rowid  = x_rowid;
113 
114     if (sql%notfound) then
115       raise no_data_found;
116     end if;
117   end update_row;
118 
119 
120   procedure delete_row (x_rowid	VARCHAR2) is
121   begin
122 
123     delete from igw_org_map_details
124     where rowid = x_rowid;
125     if (sql%notfound) then
126       raise no_data_found;
127     end if;
128 
129   end delete_row;
130 
131 END IGW_ORG_MAP_DETAILS_PKG;