PACKAGE BODY: APPS.CSM_PAGE_PERZ_PKG

Source

1 PACKAGE BODY CSM_PAGE_PERZ_PKG AS
2 /* $Header: csmlppb.pls 120.0 2005/11/29 23:49:42 utekumal noship $ */
3 
4 PROCEDURE INSERT_ROW
5                    (
6                    X_FILE_NAME                VARCHAR2,
7                    X_PAGE_NAME                VARCHAR2,
8                    X_UIX_PAGE_SERVER_VERSION  VARCHAR2,
9                    X_UIX_PAGE_CLIENT_VERSION  VARCHAR2,
10                    X_MESSAGE_NAME             VARCHAR2,
11                    X_OWNER                    VARCHAR2
12                    )
13 IS
14 
15 BEGIN
16         --Insert
17 	INSERT INTO CSM_PAGE_PERZ
18                 (PAGE_PERZ_ID,
19 		 FILE_NAME,
20                  PAGE_NAME,
21                  UIX_PAGE_SERVER_VERSION,
22                  UIX_PAGE_CLIENT_VERSION,
23                  MESSAGE_NAME,
24                  LAST_UPDATED_BY,
25                  CREATION_DATE,
26                  CREATED_BY,
27                  LAST_UPDATE_DATE)
28           VALUES(CSM_PAGE_PERZ_S.NEXTVAL,
29                  X_FILE_NAME,
30                  X_PAGE_NAME,
31                  X_UIX_PAGE_SERVER_VERSION,
32                  X_UIX_PAGE_CLIENT_VERSION,
33                  X_MESSAGE_NAME,
34                  DECODE(X_OWNER,'SEED',1,0),
35                  SYSDATE,
36                  DECODE(X_OWNER,'SEED',1,0),
37                  SYSDATE);
38 
39 END Insert_Row;
40 
41 PROCEDURE UPDATE_ROW(
42                    X_FILE_NAME                VARCHAR2,
43                    X_PAGE_NAME                VARCHAR2,
44                    X_UIX_PAGE_SERVER_VERSION  VARCHAR2,
45                    X_UIX_PAGE_CLIENT_VERSION  VARCHAR2,
46                    X_MESSAGE_NAME             VARCHAR2,
47                    X_OWNER                    VARCHAR2
48                     )
49 
50 IS
51 
52 BEGIN
53         --Update
54 	UPDATE CSM_PAGE_PERZ
55    	SET PAGE_NAME                = X_PAGE_NAME,
56             UIX_PAGE_SERVER_VERSION  = X_UIX_PAGE_SERVER_VERSION,
57             UIX_PAGE_CLIENT_VERSION  = X_UIX_PAGE_CLIENT_VERSION,
58             MESSAGE_NAME             = X_MESSAGE_NAME,
59             LAST_UPDATED_BY          = DECODE(X_OWNER,'SEED',1,0),
60             LAST_UPDATE_DATE         = SYSDATE
61 	WHERE  FILE_NAME = X_FILE_NAME;
62 
63 END Update_Row;
64 
65 PROCEDURE LOAD_ROW(
66                    X_PAGE_PERZ_ID             VARCHAR2,
67                    X_FILE_NAME                VARCHAR2,
68                    X_PAGE_NAME                VARCHAR2,
69                    X_UIX_PAGE_SERVER_VERSION  VARCHAR2,
70                    X_UIX_PAGE_CLIENT_VERSION  VARCHAR2,
71                    X_MESSAGE_NAME             VARCHAR2,
72                    X_OWNER                    VARCHAR2
73                   )
74 IS
75 
76 
77 CURSOR c_page_exists(b_file_name VARCHAR2) IS
78  SELECT 1
79  FROM  CSM_PAGE_PERZ CPP
80  WHERE CPP.FILE_NAME      = b_file_name;
81 
82  l_exists NUMBER;
83 
84 BEGIN
85 
86   OPEN c_page_exists(X_FILE_NAME);
87   FETCH c_page_exists INTO l_exists;
88   CLOSE c_page_exists;
89 
90   IF l_exists IS NULL THEN
91 
92           Insert_Row(
93                    X_FILE_NAME,
94                    X_PAGE_NAME,
95                    X_UIX_PAGE_SERVER_VERSION,
96                    X_UIX_PAGE_CLIENT_VERSION,
97                    X_MESSAGE_NAME,
98                    X_OWNER);
99 
100 
101   ELSE
102           Update_Row(
103                    X_FILE_NAME,
104                    X_PAGE_NAME,
105                    X_UIX_PAGE_SERVER_VERSION,
106                    X_UIX_PAGE_CLIENT_VERSION,
107                    X_MESSAGE_NAME,
108                    X_OWNER);
109 
110 	END IF;
111 
112 
113 END load_row;
114 
115 END ;