APPS.AHL_STATUS_ORDER_RULES_PKG dependencies on AHL_STATUS_ORDER_RULES

Line 1: package body AHL_STATUS_ORDER_RULES_PKG as

1: package body AHL_STATUS_ORDER_RULES_PKG as
2: /* $Header: AHLLSTSB.pls 115.1 2002/12/04 01:31:42 ssurapan noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_STATUS_ORDER_RULE_ID in NUMBER,

Line 16: cursor C is select ROWID from AHL_STATUS_ORDER_RULES

12: X_LAST_UPDATE_DATE in DATE,
13: X_LAST_UPDATED_BY in NUMBER,
14: X_LAST_UPDATE_LOGIN in NUMBER
15: ) is
16: cursor C is select ROWID from AHL_STATUS_ORDER_RULES
17: where STATUS_ORDER_RULE_ID = X_STATUS_ORDER_RULE_ID ;
18: begin
19: insert into AHL_STATUS_ORDER_RULES (
20: STATUS_ORDER_RULE_ID,

Line 19: insert into AHL_STATUS_ORDER_RULES (

15: ) is
16: cursor C is select ROWID from AHL_STATUS_ORDER_RULES
17: where STATUS_ORDER_RULE_ID = X_STATUS_ORDER_RULE_ID ;
18: begin
19: insert into AHL_STATUS_ORDER_RULES (
20: STATUS_ORDER_RULE_ID,
21: LAST_UPDATE_DATE,
22: LAST_UPDATED_BY,
23: CREATION_DATE,

Line 64: update AHL_STATUS_ORDER_RULES set

60: X_LAST_UPDATED_BY in NUMBER,
61: X_LAST_UPDATE_LOGIN in NUMBER
62: ) is
63: begin
64: update AHL_STATUS_ORDER_RULES set
65: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
66: SYSTEM_STATUS_TYPE = X_SYSTEM_STATUS_TYPE,
67: CURRENT_STATUS_CODE = X_CURRENT_STATUS_CODE,
68: NEXT_STATUS_CODE = X_NEXT_STATUS_CODE,

Line 84: delete from AHL_STATUS_ORDER_RULES

80: procedure DELETE_ROW (
81: X_STATUS_ORDER_RULE_ID in NUMBER
82: ) is
83: begin
84: delete from AHL_STATUS_ORDER_RULES
85: where STATUS_ORDER_RULE_ID = X_STATUS_ORDER_RULE_ID;
86:
87: if (sql%notfound) then
88: raise no_data_found;

Line 108: from AHL_STATUS_ORDER_RULES

104: l_sts_id number;
105:
106: cursor c_obj_verno is
107: select object_version_number
108: from AHL_STATUS_ORDER_RULES
109: where status_order_rule_id = X_STATUS_ORDER_RULE_ID;
110:
111: cursor c_chk_sts_exists is
112: select 'x'

Line 113: from AHL_STATUS_ORDER_RULES

109: where status_order_rule_id = X_STATUS_ORDER_RULE_ID;
110:
111: cursor c_chk_sts_exists is
112: select 'x'
113: from AHL_STATUS_ORDER_RULES
114: where status_order_rule_id = X_STATUS_ORDER_RULE_ID;
115:
116: cursor c_get_stsid is
117: select ahl_status_order_rules_s.nextval

Line 117: select ahl_status_order_rules_s.nextval

113: from AHL_STATUS_ORDER_RULES
114: where status_order_rule_id = X_STATUS_ORDER_RULE_ID;
115:
116: cursor c_get_stsid is
117: select ahl_status_order_rules_s.nextval
118: from dual;
119:
120: BEGIN
121:

Line 142: AHL_STATUS_ORDER_RULES_PKG.INSERT_ROW (

138: end if ;
139:
140: l_obj_verno := 1;
141:
142: AHL_STATUS_ORDER_RULES_PKG.INSERT_ROW (
143: X_ROWID => l_row_id ,
144: X_STATUS_ORDER_RULE_ID => l_sts_id,
145: X_OBJECT_VERSION_NUMBER => l_obj_verno,
146: X_SYSTEM_STATUS_TYPE => X_SYSTEM_STATUS_TYPE,

Line 162: AHL_STATUS_ORDER_RULES_PKG.UPDATE_ROW(

158: open c_obj_verno;
159: fetch c_obj_verno into l_obj_verno;
160: close c_obj_verno;
161:
162: AHL_STATUS_ORDER_RULES_PKG.UPDATE_ROW(
163: X_STATUS_ORDER_RULE_ID => X_STATUS_ORDER_RULE_ID,
164: X_OBJECT_VERSION_NUMBER => l_obj_verno + 1,
165: X_SYSTEM_STATUS_TYPE => X_SYSTEM_STATUS_TYPE,
166: X_CURRENT_STATUS_CODE => X_CURRENT_STATUS_CODE,

Line 176: end AHL_STATUS_ORDER_RULES_PKG;

172: end if;
173:
174: END LOAD_ROW ;
175:
176: end AHL_STATUS_ORDER_RULES_PKG;