PACKAGE BODY: APPS.IGW_PROP_CHECKLIST_TBH

Source

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