PACKAGE BODY: APPS.PA_PJI_PROJ_EVENTS_LOG_PKG

Source

1 PACKAGE BODY PA_PJI_PROJ_EVENTS_LOG_PKG AS
2 /* $Header: PAPJITHB.pls 120.1 2005/08/19 16:40:56 mwasowic noship $ */
3 
4 PROCEDURE Insert_Row(
5 X_ROW_ID                OUT   NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 X_EVENT_ID       	OUT	NOCOPY NUMBER, --File.Sql.39 bug 4440895
7 X_EVENT_TYPE		IN VARCHAR2,
8 X_EVENT_OBJECT	      	IN    VARCHAR2,
9 X_OPERATION_TYPE	IN    VARCHAR2,
10 X_STATUS        	IN	VARCHAR2,
11 X_ATTRIBUTE_CATEGORY	IN VARCHAR2,
12 X_ATTRIBUTE1	        IN VARCHAR2,
13 X_ATTRIBUTE2	        IN VARCHAR2,
14 X_ATTRIBUTE3	        IN VARCHAR2,
15 X_ATTRIBUTE4	        IN VARCHAR2,
16 X_ATTRIBUTE5	        IN VARCHAR2,
17 X_ATTRIBUTE6	        IN VARCHAR2,
18 X_ATTRIBUTE7	        IN VARCHAR2,
19 X_ATTRIBUTE8	        IN VARCHAR2,
20 X_ATTRIBUTE9	        IN VARCHAR2,
21 X_ATTRIBUTE10	        IN VARCHAR2,
22 X_ATTRIBUTE11	        IN VARCHAR2,
23 X_ATTRIBUTE12	        IN VARCHAR2,
24 X_ATTRIBUTE13	        IN VARCHAR2,
25 X_ATTRIBUTE14	        IN VARCHAR2,
26 X_ATTRIBUTE15	        IN VARCHAR2,
27 X_ATTRIBUTE16	        IN VARCHAR2,
28 X_ATTRIBUTE17	        IN VARCHAR2,
29 X_ATTRIBUTE18	        IN VARCHAR2,
30 X_ATTRIBUTE19	        IN VARCHAR2,
31 X_ATTRIBUTE20	        IN VARCHAR2
32 ) IS
33     CURSOR cur_PJI_PROJ_EVENTS_seq
34         IS
35           SELECT pa_pji_proj_events_log_s.nextval
36             FROM sys.dual;
37 
38 BEGIN
39     -- If product PJI installed, insert
40     IF (PA_INSTALL.is_pji_licensed()='Y') THEN
41 
42 	OPEN cur_PJI_PROJ_EVENTS_seq;
43 	FETCH cur_PJI_PROJ_EVENTS_seq INTO X_EVENT_ID;
44      	CLOSE cur_PJI_PROJ_EVENTS_seq;
45 
46      	INSERT INTO pa_pji_proj_events_log(
47    		  EVENT_TYPE
48   		 ,EVENT_ID
49   		 ,EVENT_OBJECT
50   		 ,OPERATION_TYPE
51 		 ,STATUS
52                  ,CREATION_DATE
53                  ,CREATED_BY
54                  ,LAST_UPDATE_DATE
55                  ,LAST_UPDATED_BY
56                  ,LAST_UPDATE_LOGIN
57                  ,ATTRIBUTE_CATEGORY
58                  ,ATTRIBUTE1
59                  ,ATTRIBUTE2
60                  ,ATTRIBUTE3
61                  ,ATTRIBUTE4
62                  ,ATTRIBUTE5
63                  ,ATTRIBUTE6
64                  ,ATTRIBUTE7
65                  ,ATTRIBUTE8
66                  ,ATTRIBUTE9
67                  ,ATTRIBUTE10
68                  ,ATTRIBUTE11
69                  ,ATTRIBUTE12
70                  ,ATTRIBUTE13
71                  ,ATTRIBUTE14
72                  ,ATTRIBUTE15
73                  ,ATTRIBUTE16
74                  ,ATTRIBUTE17
75                  ,ATTRIBUTE18
76                  ,ATTRIBUTE19
77                  ,ATTRIBUTE20	)
78         VALUES(
79 		  X_EVENT_TYPE
80 		 ,X_EVENT_ID
81 		 ,X_EVENT_OBJECT
82 		 ,X_OPERATION_TYPE
83 		 ,nvl(X_STATUS,'X')
84                  ,SYSDATE                      --X_CREATION_DATE
85                  ,FND_GLOBAL.USER_ID           --CREATED_BY
86                  ,SYSDATE                      --LAST_UPDATE_DATE
87                  ,FND_GLOBAL.USER_ID           --LAST_UPDATED_BY
88                  ,FND_GLOBAL.LOGIN_ID
89                  ,X_ATTRIBUTE_CATEGORY
90                  ,X_ATTRIBUTE1
91                  ,X_ATTRIBUTE2
92                  ,X_ATTRIBUTE3
93                  ,X_ATTRIBUTE4
94                  ,X_ATTRIBUTE5
95                  ,X_ATTRIBUTE6
96                  ,X_ATTRIBUTE7
97                  ,X_ATTRIBUTE8
98                  ,X_ATTRIBUTE9
99                  ,X_ATTRIBUTE10
100                  ,X_ATTRIBUTE11
101                  ,X_ATTRIBUTE12
102                  ,X_ATTRIBUTE13
103                  ,X_ATTRIBUTE14
104                  ,X_ATTRIBUTE15
105                  ,X_ATTRIBUTE16
106                  ,X_ATTRIBUTE17
107                  ,X_ATTRIBUTE18
108                  ,X_ATTRIBUTE19
109                  ,X_ATTRIBUTE20	);
110     END IF;
111 END Insert_Row;
112 
113 
114 END PA_PJI_PROJ_EVENTS_LOG_PKG;