PACKAGE BODY: APPS.DPP_TRANSACTION_STATUS_MAP_PKG

Source

1 package body DPP_TRANSACTION_STATUS_MAP_PKG as
2 /* $Header: dppttsmb.pls 120.0.12010000.1 2008/10/30 09:27:34 anbbalas noship $ */
3 
4 procedure LOAD_ROW (
5   p_owner    		IN VARCHAR2,
6   P_FROM_STATUS		IN VARCHAR2,
7   P_TO_STATUS   	IN VARCHAR2,
8   P_ENABLED_FLAG	IN VARCHAR2
9   )
10  is
11     l_user_id                        NUMBER := 0;
12     l_login_id                       NUMBER := 0;
13     l_rowid                          VARCHAR2(256);
14 
15     CURSOR c(C_FROM_STATUS VARCHAR2,C_TO_STATUS VARCHAR2 ) IS
16     SELECT rowid FROM DPP_TRANSACTION_STATUS_MAP
17     WHERE FROM_STATUS = C_FROM_STATUS
18     AND TO_STATUS = C_TO_STATUS;
19 
20   begin
21 
22     l_user_id := fnd_load_util.owner_id(p_owner);
23 
24    update DPP_TRANSACTION_STATUS_MAP
25    set ENABLED_FLAG = P_ENABLED_FLAG,
26        LAST_UPDATE_DATE = SYSDATE,
27        LAST_UPDATED_BY = l_user_id,
28        LAST_UPDATE_LOGIN = l_login_id
29     where from_status = P_FROM_STATUS
30     and to_status= P_TO_STATUS;
31 
32      IF SQL%NOTFOUND then
33 
34     	Insert into DPP_TRANSACTION_STATUS_MAP
35     		(FROM_STATUS,
36     		TO_STATUS,
37     		ENABLED_FLAG,
38     		CREATION_DATE,
39     		CREATED_BY,
40     		LAST_UPDATE_DATE,
41     		LAST_UPDATED_BY,
42     		LAST_UPDATE_LOGIN)
43     	VALUES (P_FROM_STATUS,
44     		P_TO_STATUS,
45     		P_ENABLED_FLAG,
46     		SYSDATE,
47     		l_user_id,
48     		SYSDATE,
49     		l_user_id,
50     		l_login_id);
51 
52       OPEN c(P_FROM_STATUS,P_TO_STATUS);
53          FETCH c INTO l_rowid;
54          IF (c%NOTFOUND) THEN
55            CLOSE c;
56            RAISE NO_DATA_FOUND;
57          END IF;
58          CLOSE c;
59 
60     END IF;
61 
62 end LOAD_ROW;
63 
64 end DPP_TRANSACTION_STATUS_MAP_PKG;