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,
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;
27: FROM sys.dual;
28:
29: end if;
30:
31: insert into PA_LOCATIONS (
32: LOCATION_ID,
33: CITY,
34: REGION,
35: COUNTRY_CODE,
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;
69: RAISE ;
70:
71: end INSERT_ROW;
72:
73: end PA_LOCATIONS_PKG ;