[Home] [Help]
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 ;