PACKAGE BODY: APPS.DPP_XLA_EVENT_MAP_PKG

Source

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