1: package body BIS_TERRITORY_HIERARCHIES_PKG AS
2: /* $Header: BISTERHB.pls 115.1 99/07/17 16:10:54 porting shi $ */
3: /*=======================================================================+
4: | Copyright (c) 1997 Oracle Corporation Redwood Shores, California, USA|
5: | All rights reserved. |
5: | All rights reserved. |
6: +=======================================================================+
7: | FILENAME
8: | DESCRIPTION
9: | PL/SQL body for package: BIS_TERRITORY_HIERARCHIES_PKG
10: *=======================================================================*/
11: procedure INSERT_ROW (
12: X_ROWID in out VARCHAR2,
13: X_PARENT_TERRITORY_CODE in VARCHAR2,
21: X_LAST_UPDATE_DATE in DATE,
22: X_LAST_UPDATED_BY in NUMBER,
23: X_LAST_UPDATE_LOGIN in NUMBER
24: ) is
25: cursor C is select ROWID from BIS_TERRITORY_HIERARCHIES
26: where PARENT_TERRITORY_CODE = X_PARENT_TERRITORY_CODE
27: and PARENT_TERRITORY_TYPE = X_PARENT_TERRITORY_TYPE
28: and CHILD_TERRITORY_CODE = X_CHILD_TERRITORY_CODE
29: and CHILD_TERRITORY_TYPE = X_CHILD_TERRITORY_TYPE;
27: and PARENT_TERRITORY_TYPE = X_PARENT_TERRITORY_TYPE
28: and CHILD_TERRITORY_CODE = X_CHILD_TERRITORY_CODE
29: and CHILD_TERRITORY_TYPE = X_CHILD_TERRITORY_TYPE;
30: begin
31: insert into BIS_TERRITORY_HIERARCHIES (
32: PARENT_TERRITORY_CODE,
33: PARENT_TERRITORY_TYPE,
34: CHILD_TERRITORY_CODE,
35: CHILD_TERRITORY_TYPE,
75: cursor c1 is select
76: START_DATE_ACTIVE,
77: END_DATE_ACTIVE,
78: CHILD_TERRITORY_TYPE
79: from BIS_TERRITORY_HIERARCHIES
80: where PARENT_TERRITORY_CODE = X_PARENT_TERRITORY_CODE
81: and PARENT_TERRITORY_TYPE = X_PARENT_TERRITORY_TYPE
82: and CHILD_TERRITORY_CODE = X_CHILD_TERRITORY_CODE
83: and CHILD_TERRITORY_TYPE = X_CHILD_TERRITORY_TYPE
110: X_LAST_UPDATED_BY in NUMBER,
111: X_LAST_UPDATE_LOGIN in NUMBER
112: ) is
113: begin
114: update BIS_TERRITORY_HIERARCHIES set
115: START_DATE_ACTIVE = X_START_DATE_ACTIVE,
116: END_DATE_ACTIVE = X_END_DATE_ACTIVE,
117: CHILD_TERRITORY_TYPE = X_CHILD_TERRITORY_TYPE,
118: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
134: X_CHILD_TERRITORY_CODE in VARCHAR2,
135: X_CHILD_TERRITORY_TYPE in VARCHAR2
136: ) is
137: begin
138: delete from BIS_TERRITORY_HIERARCHIES
139: where PARENT_TERRITORY_CODE = X_PARENT_TERRITORY_CODE
140: and PARENT_TERRITORY_TYPE = X_PARENT_TERRITORY_TYPE
141: and CHILD_TERRITORY_CODE = X_CHILD_TERRITORY_CODE
142: and CHILD_TERRITORY_TYPE = X_CHILD_TERRITORY_TYPE;
146: end if;
147:
148: end DELETE_ROW;
149:
150: end BIS_TERRITORY_HIERARCHIES_PKG;