1 package body PA_LOCATIONS_PKG as
2 -- $Header: PALOCTLB.pls 120.1 2005/08/19 16:35:40 mwasowic noship $
3 procedure INSERT_ROW (
4 p_CITY in VARCHAR2,
5 p_REGION in VARCHAR2,
6 p_COUNTRY_CODE in VARCHAR2,
7 p_CREATION_DATE in DATE,
8 p_CREATED_BY in NUMBER,
9 p_LAST_UPDATE_DATE in DATE,
10 p_LAST_UPDATED_BY in NUMBER,
11 p_LAST_UPDATE_LOGIN in NUMBER,
12 X_ROWID OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
13 X_LOCATION_ID OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
14 ) is
15
16 cursor C is select ROWID from PA_LOCATIONS
17 where LOCATION_ID = X_LOCATION_ID ;
18 begin
19
20 /* Bug 4092701 - Commented the prm_licensed check */
21 /* IF PA_INSTALL.IS_PRM_LICENSED = 'Y' THEN */
22
23 if (x_location_id is null ) THEN
24
25 SELECT pa_locations_s.nextval
26 INTO x_location_id
27 FROM sys.dual;
28
29 end if;
30
31 insert into PA_LOCATIONS (
32 LOCATION_ID,
33 CITY,
34 REGION,
35 COUNTRY_CODE,
36 CREATION_DATE,
37 CREATED_BY,
38 LAST_UPDATE_DATE,
39 LAST_UPDATED_BY,
40 LAST_UPDATE_LOGIN
41 ) select
42 x_LOCATION_ID,
43 p_CITY,
44 p_REGION,
45 p_COUNTRY_CODE,
46 p_CREATION_DATE,
47 p_CREATED_BY,
48 p_LAST_UPDATE_DATE,
49 p_LAST_UPDATED_BY,
50 p_LAST_UPDATE_LOGIN
51 from sys.dual
52 where not exists
53 (select NULL
54 from PA_LOCATIONS L
55 where L.LOCATION_ID = X_LOCATION_ID );
56
57 open c;
58 fetch c into X_ROWID;
59 if (c%notfound) then
60 close c;
61 raise no_data_found;
62 end if;
63 close c;
64
65 /* END IF; */
66
67 exception
68 when others then
69 RAISE ;
70
71 end INSERT_ROW;
72
73 end PA_LOCATIONS_PKG ;