PACKAGE BODY: APPS.IGW_PROP_PERSON_BIOSKETCH_TBH

Source

1 package body IGW_PROP_PERSON_BIOSKETCH_TBH as
2  /* $Header: igwtppbb.pls 115.2 2002/03/28 19:15:08 pkm ship    $*/
3 
4 
5 PROCEDURE UPDATE_ROW (
6  X_ROWID 		     in 	VARCHAR2,
7  P_PROPOSAL_ID               in	 	NUMBER,
8  P_PERSON_BIOSKETCH_ID       in		NUMBER,
9  P_SHOW_FLAG 		     in         VARCHAR2,
10  P_LINE_SEQUENCE	     in		NUMBER,
11  P_MODE 		     in 	VARCHAR2 default 'R',
12  P_RECORD_VERSION_NUMBER     in         NUMBER,
13  X_RETURN_STATUS             out  	VARCHAR2) is
14 
15     l_last_update_date 		DATE;
16     l_last_updated_by 		NUMBER;
17     l_last_update_login 	NUMBER;
18 
19 BEGIN
20 x_return_status := fnd_api.g_ret_sts_success;
21 
22 
23      l_last_update_date := SYSDATE;
24      if(p_mode = 'I') then
25           l_last_updated_by := 1;
26           l_last_update_login := 0;
27      elsif (p_mode = 'R') then
28           l_last_updated_by := FND_GLOBAL.USER_ID;
29 
30           if l_last_updated_by is NULL then
31                 l_last_updated_by := -1;
32           end if;
33 
34           l_last_update_login := FND_GLOBAL.LOGIN_ID;
35 
36           if l_last_update_login is NULL then
37                 l_last_update_login := -1;
38           end if;
39       else
40           FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
41           app_exception.raise_exception;
42       end if;
43 
44       update IGW_PROP_PERSON_BIOSKETCH set
45     	     	 PROPOSAL_ID  			=	P_PROPOSAL_ID
46  		,PERSON_BIOSKETCH_ID  		=	P_PERSON_BIOSKETCH_ID
47  		,SHOW_FLAG 			=	P_SHOW_FLAG
48  		,LINE_SEQUENCE			=	P_LINE_SEQUENCE
49  	        ,last_update_date 		= 	l_last_update_date
50  	        ,last_updated_by 		= 	l_last_updated_by
51  	        ,last_update_login 		= 	l_last_update_login
52  	        ,record_version_number 		= 	record_version_number + 1
53       where rowid = x_rowid
54       and record_version_number = p_record_version_number;
55 
56       if (sql%notfound) then
57           fnd_message.set_name('IGW', 'IGW_SS_RECORD_CHANGED');
58           fnd_msg_pub.Add;
59           x_return_status := 'E';
60       end if;
61 
62     EXCEPTION
63       when others then
64          fnd_msg_pub.add_exc_msg(p_pkg_name 		=> 	'IGW_PROP_PERSON_BIOSKETCH_TBH',
65          			 p_procedure_name	=> 	'UPDATE_ROW',
66          			 p_error_text  		=>  	 SUBSTRB(SQLERRM, 1, 240));
67          x_return_status := fnd_api.g_ret_sts_unexp_error;
68          raise;
69 
70 END UPDATE_ROW;
71 
72 
73 END IGW_PROP_PERSON_BIOSKETCH_TBH;