1 PACKAGE BODY HZ_ADAPTER_TERRITORIES_PKG AS
2 /*$Header: ARHADTTB.pls 115.0 2003/08/13 23:49:48 acng noship $ */
3
4 PROCEDURE Insert_Row(
5 x_adapter_id IN NUMBER,
6 x_territory_code IN VARCHAR2,
7 x_enabled_flag IN VARCHAR2,
8 x_default_flag IN VARCHAR2,
9 x_object_version_number IN NUMBER
10 ) IS
11
12 BEGIN
13
14 INSERT INTO HZ_ADAPTER_TERRITORIES(
15 adapter_id,
16 territory_code,
17 enabled_flag,
18 default_flag,
19 created_by,
20 creation_date,
21 last_update_login,
22 last_update_date,
23 last_updated_by,
24 object_version_number
25 ) VALUES (
26 DECODE(x_adapter_id, fnd_api.g_miss_num, NULL, x_adapter_id),
27 DECODE(x_territory_code, fnd_api.g_miss_char, NULL, x_territory_code),
28 DECODE(x_enabled_flag, fnd_api.g_miss_char, NULL, x_enabled_flag),
29 DECODE(x_default_flag, fnd_api.g_miss_char, NULL, x_default_flag),
30 hz_utility_v2pub.created_by,
31 hz_utility_v2pub.creation_date,
32 hz_utility_v2pub.last_update_login,
33 hz_utility_v2pub.last_update_date,
34 hz_utility_v2pub.last_updated_by,
35 DECODE(x_object_version_number, fnd_api.g_miss_num, NULL, x_object_version_number)
36 );
37
38 End Insert_Row;
39
40 PROCEDURE Update_Row(
41 x_rowid IN OUT NOCOPY VARCHAR2,
42 x_adapter_id IN NUMBER,
43 x_territory_code IN VARCHAR2,
44 x_enabled_flag IN VARCHAR2,
45 x_default_flag IN VARCHAR2,
46 x_object_version_number IN NUMBER
47 ) IS
48
49 BEGIN
50 UPDATE HZ_ADAPTER_TERRITORIES
51 SET adapter_id = DECODE(x_adapter_id, NULL, adapter_id,
52 fnd_api.g_miss_num, NULL, x_adapter_id),
53 territory_code = DECODE(x_territory_code, NULL, territory_code,
54 fnd_api.g_miss_char, NULL, x_territory_code),
55 enabled_flag = DECODE(x_enabled_flag, NULL, enabled_flag,
56 fnd_api.g_miss_char, NULL, x_enabled_flag),
57 default_flag = DECODE(x_default_flag, NULL, default_flag,
58 fnd_api.g_miss_char, NULL, x_default_flag),
59 last_update_date = hz_utility_v2pub.last_update_date,
60 last_updated_by = hz_utility_v2pub.last_updated_by,
61 creation_date = creation_date,
62 created_by = created_by,
63 last_update_login = hz_utility_v2pub.last_update_login,
64 object_version_number = DECODE(x_object_version_number,
65 NULL, object_version_number,
66 fnd_api.g_miss_num, NULL,
67 x_object_version_number)
68 WHERE ROWID = x_ROWID;
69
70 If (SQL%NOTFOUND) then
71 RAISE NO_DATA_FOUND;
72 End If;
73 END Update_Row;
74
75 PROCEDURE Lock_Row(
76 x_rowid IN OUT NOCOPY VARCHAR2,
77 x_adapter_id IN NUMBER,
78 x_territory_code IN VARCHAR2,
79 x_enabled_flag IN VARCHAR2,
80 x_default_flag IN VARCHAR2,
81 x_last_update_date IN DATE,
82 x_last_updated_by IN NUMBER,
83 x_creation_date IN DATE,
84 x_created_by IN NUMBER,
85 x_last_update_login IN NUMBER,
86 x_object_version_number IN NUMBER
87 ) IS
88
89 CURSOR c IS
90 SELECT *
91 FROM hz_adapter_territories
92 WHERE ROWID = x_rowid
93 FOR UPDATE NOWAIT;
94
95 recinfo c%ROWTYPE;
96 BEGIN
97 OPEN c;
98 FETCH c INTO recinfo;
99 IF (C%NOTFOUND) THEN
100 CLOSE c;
101 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
102 app_exception.raise_exception;
103 END IF;
104 CLOSE c;
105
106 IF (((recinfo.adapter_id = x_adapter_id)
107 OR ((recinfo.adapter_id IS NULL)
108 AND (x_adapter_id IS NULL)))
109 AND ((recinfo.territory_code = x_territory_code)
110 OR ((recinfo.territory_code IS NULL)
111 AND (x_territory_code IS NULL)))
112 AND ((recinfo.enabled_flag = x_enabled_flag)
113 OR ((recinfo.enabled_flag IS NULL)
114 AND (x_enabled_flag IS NULL)))
115 AND ((recinfo.default_flag = x_default_flag)
116 OR ((recinfo.default_flag IS NULL)
117 AND (x_default_flag IS NULL)))
118 AND ((recinfo.last_update_date = x_last_update_date)
119 OR ((recinfo.last_update_date IS NULL)
120 AND (x_last_update_date IS NULL)))
121 AND ((recinfo.last_updated_by = x_last_updated_by)
122 OR ((recinfo.last_updated_by IS NULL)
123 AND (x_last_updated_by IS NULL)))
124 AND ((recinfo.creation_date = x_creation_date)
125 OR ((recinfo.creation_date IS NULL)
126 AND (x_creation_date IS NULL)))
127 AND ((recinfo.created_by = x_created_by)
128 OR ((recinfo.created_by IS NULL)
129 AND (x_created_by IS NULL)))
130 AND ((recinfo.last_update_login = x_last_update_login)
131 OR ((recinfo.last_update_login IS NULL)
132 AND (x_last_update_login IS NULL)))
133 AND ((recinfo.object_version_number = x_object_version_number)
134 OR ((recinfo.object_version_number IS NULL)
135 AND (x_object_version_number IS NULL)))
136 )
137 THEN
138 RETURN;
139 ELSE
140 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
141 app_exception.raise_exception;
142 END IF;
143
144 END Lock_Row;
145
146 PROCEDURE delete_row (x_adapter_id IN NUMBER, x_territory_code IN VARCHAR2) IS
147 BEGIN
148 DELETE FROM hz_adapter_territories
149 WHERE adapter_id = x_adapter_id
150 AND territory_code = x_territory_code;
151
152 IF (SQL%NOTFOUND) THEN
153 RAISE NO_DATA_FOUND;
154 END IF;
155 END delete_row;
156
157 END HZ_ADAPTER_TERRITORIES_PKG;