DBA Data[Home] [Help]

PACKAGE BODY: APPS.CS_TP_LOOKUPS_PKG

Source


1 package body CS_TP_LOOKUPS_PKG as
2 /* $Header: cstplokb.pls 115.4 2002/12/04 03:15:59 wzli noship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out NOCOPY VARCHAR2,
5   X_LOOKUP_ID in NUMBER,
6   X_LOOKUP_TYPE in VARCHAR2,
7   X_DEFAULT_VALUE in VARCHAR2,
8   X_CREATION_DATE in DATE,
9   X_CREATED_BY in NUMBER,
10   X_LAST_UPDATE_DATE in DATE,
11   X_LAST_UPDATED_BY in NUMBER,
12   X_LAST_UPDATE_LOGIN in NUMBER,
13   X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
14   X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
15   X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
16   X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
17   X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
18   X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
19   X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
20   X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
21   X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
22   X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
23   X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
24   X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
25   X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
26   X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
27   X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
28   X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
29   X_START_DATE_ACTIVE in DATE,
30   X_END_DATE_ACTIVE in DATE
31 )
32   is
33     cursor c is SELECT ROWID from CS_TP_LOOKUPS
34      where LOOKUP_ID = X_LOOKUP_ID;
35 
36 begin
37    insert into CS_TP_LOOKUPS (
38   LOOKUP_ID  ,
39   LOOKUP_TYPE  ,
40   DEFAULT_VALUE  ,
41   CREATION_DATE ,
42   CREATED_BY  ,
43   LAST_UPDATE_DATE ,
44   LAST_UPDATED_BY  ,
45   LAST_UPDATE_LOGIN  ,
46   ATTRIBUTE_CATEGORY  ,
47   ATTRIBUTE1  ,
48   ATTRIBUTE2  ,
49   ATTRIBUTE3  ,
50   ATTRIBUTE4  ,
51   ATTRIBUTE5  ,
52   ATTRIBUTE6  ,
53   ATTRIBUTE7  ,
54   ATTRIBUTE8  ,
55   ATTRIBUTE9  ,
56   ATTRIBUTE10  ,
57   ATTRIBUTE11  ,
58   ATTRIBUTE12  ,
59   ATTRIBUTE13  ,
60   ATTRIBUTE14  ,
61   ATTRIBUTE15  ,
62   START_DATE_ACTIVE  ,
63   END_DATE_ACTIVE )
64   values (
65   X_LOOKUP_ID  ,
66   X_LOOKUP_TYPE  ,
67   X_DEFAULT_VALUE  ,
68   X_CREATION_DATE ,
69   X_CREATED_BY  ,
70   X_LAST_UPDATE_DATE ,
71   X_LAST_UPDATED_BY  ,
72   X_LAST_UPDATE_LOGIN  ,
73   X_ATTRIBUTE_CATEGORY  ,
74   X_ATTRIBUTE1  ,
75   X_ATTRIBUTE2  ,
76   X_ATTRIBUTE3  ,
77   X_ATTRIBUTE4  ,
78   X_ATTRIBUTE5  ,
79   X_ATTRIBUTE6  ,
80   X_ATTRIBUTE7  ,
81   X_ATTRIBUTE8  ,
82   X_ATTRIBUTE9  ,
83   X_ATTRIBUTE10  ,
84   X_ATTRIBUTE11  ,
85   X_ATTRIBUTE12  ,
86   X_ATTRIBUTE13  ,
87   X_ATTRIBUTE14  ,
88   X_ATTRIBUTE15  ,
89   X_START_DATE_ACTIVE  ,
90   X_END_DATE_ACTIVE );
91 
92   open c;
93   fetch c into X_ROWID;
94   if (c%notfound) then
95      close c;
96      raise no_data_found;
97   end if;
98   close c;
99 
100 end  INSERT_ROW;
101 
102 
103 
104 procedure UPDATE_ROW (
105   X_ROWID in out NOCOPY VARCHAR2,
106   X_LOOKUP_ID in NUMBER,
107   X_LOOKUP_TYPE in VARCHAR2,
108   X_DEFAULT_VALUE in VARCHAR2,
109   X_CREATION_DATE in DATE,
110   X_CREATED_BY in NUMBER,
111   X_LAST_UPDATE_DATE in DATE,
112   X_LAST_UPDATED_BY in NUMBER,
113   X_LAST_UPDATE_LOGIN in NUMBER,
114   X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
115   X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
116   X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
117   X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
118   X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
119   X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
120   X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
121   X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
122   X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
123   X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
124   X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
125   X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
126   X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
127   X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
128   X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
129   X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
130   X_START_DATE_ACTIVE in DATE,
131   X_END_DATE_ACTIVE in DATE
132 ) is
133 begin
134   update CS_TP_LOOKUPS set
135 
136   LOOKUP_TYPE  = X_LOOKUP_TYPE,
137   DEFAULT_VALUE  = X_DEFAULT_VALUE,
138   CREATION_DATE = X_CREATION_DATE,
139   CREATED_BY  = X_CREATED_BY,
140   LAST_UPDATE_DATE  = X_LAST_UPDATE_DATE,
141   LAST_UPDATED_BY  = X_LAST_UPDATED_BY,
142   LAST_UPDATE_LOGIN  = X_LAST_UPDATE_LOGIN,
143   ATTRIBUTE_CATEGORY  = X_ATTRIBUTE_CATEGORY,
144   ATTRIBUTE1  = X_ATTRIBUTE1,
145   ATTRIBUTE2  = X_ATTRIBUTE2,
146   ATTRIBUTE3  = X_ATTRIBUTE3,
147   ATTRIBUTE4  = X_ATTRIBUTE4,
148   ATTRIBUTE5  = X_ATTRIBUTE5,
149   ATTRIBUTE6   =X_ATTRIBUTE6,
150   ATTRIBUTE7  = X_ATTRIBUTE7,
151   ATTRIBUTE8  = X_ATTRIBUTE8,
152   ATTRIBUTE9  = X_ATTRIBUTE9,
153   ATTRIBUTE10  = X_ATTRIBUTE10,
154   ATTRIBUTE11  = X_ATTRIBUTE11,
155   ATTRIBUTE12  = X_ATTRIBUTE12,
156   ATTRIBUTE13  = X_ATTRIBUTE13,
157   ATTRIBUTE14  = X_ATTRIBUTE14,
158   ATTRIBUTE15  = X_ATTRIBUTE15,
159   START_DATE_ACTIVE  = X_START_DATE_ACTIVE,
160   END_DATE_ACTIVE = X_END_DATE_ACTIVE
161    where  LOOKUP_ID  = X_LOOKUP_ID;
162   if (sql%notfound) then
163      raise no_data_found;
164   end if;
165 end UPDATE_ROW;
166 
167 procedure DELETE_ROW (
168   X_LOOKUP_ID in NUMBER
169 )  is
170 begin
171   delete from CS_TP_LOOKUPS where
172     LOOKUP_ID = X_LOOKUP_ID;
173 
174     if (sql%notfound) then
175      raise no_data_found;
176   end if;
177 end DELETE_ROW;
178 
179 end CS_TP_LOOKUPS_PKG;