1: PACKAGE BODY WSH_ORG_CARRIER_SITES_PKG as
2: /* $Header: WSHOSTHB.pls 115.1 2002/11/13 20:11:27 nparikh noship $ */
3:
4: --
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_ORG_CARRIER_SITES_PKG';
1: PACKAGE BODY WSH_ORG_CARRIER_SITES_PKG as
2: /* $Header: WSHOSTHB.pls 115.1 2002/11/13 20:11:27 nparikh noship $ */
3:
4: --
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_ORG_CARRIER_SITES_PKG';
6: --
7:
8: PROCEDURE ASSIGN_ORG_CARRIER_SITE(
9: p_Org_Carrier_Site_info IN OCSRecType
19: IS
20:
21: CURSOR C_Next_id
22: IS
23: SELECT wsh_org_Carrier_sites_s.nextval
24: FROM sys.dual;
25:
26:
27: CURSOR C_New_Rowid(p_org_carrier_site_id NUMBER)
26:
27: CURSOR C_New_Rowid(p_org_carrier_site_id NUMBER)
28: IS
29: SELECT rowid
30: FROM WSH_org_Carrier_sites
31: WHERE org_Carrier_site_id = p_org_Carrier_site_id;
32:
33: l_org_carrier_site_id NUMBER;
34: l_rowid rowid;
91: OPEN C_Next_id;
92: FETCH C_Next_id INTO l_Org_Carrier_site_Id;
93: CLOSE C_Next_id;
94: l_position := 10;
95: l_procedure := 'Inserting into Wsh_org_carrier_sites';
96:
97: --
98: -- Debug Statements
99: --
97: --
98: -- Debug Statements
99: --
100: IF l_debug_on THEN
101: WSH_DEBUG_SV.logmsg(l_module_name,'Inserting into WSH_ORG_CARRIER_SITES',WSH_DEBUG_SV.C_PROC_LEVEL);
102: END IF;
103: --
104:
105: INSERT INTO WSH_ORG_CARRIER_SITES
101: WSH_DEBUG_SV.logmsg(l_module_name,'Inserting into WSH_ORG_CARRIER_SITES',WSH_DEBUG_SV.C_PROC_LEVEL);
102: END IF;
103: --
104:
105: INSERT INTO WSH_ORG_CARRIER_SITES
106: ( org_Carrier_site_id,
107: carrier_site_id,
108: organization_id,
109: enabled_flag,
166: x_rowid := l_rowid;
167: ELSE
168:
169: L_POSITION := 20;
170: L_PROCEDURE := 'Updating WSH_ORG_CARRIER_SITES';
171:
172: --
173: -- Debug Statements
174: --
172: --
173: -- Debug Statements
174: --
175: IF l_debug_on THEN
176: WSH_DEBUG_SV.logmsg(l_module_name,'Updating WSH_ORG_CARRIER_SITES',WSH_DEBUG_SV.C_PROC_LEVEL);
177: END IF;
178: --
179:
180: UPDATE WSH_ORG_CARRIER_SITES
176: WSH_DEBUG_SV.logmsg(l_module_name,'Updating WSH_ORG_CARRIER_SITES',WSH_DEBUG_SV.C_PROC_LEVEL);
177: END IF;
178: --
179:
180: UPDATE WSH_ORG_CARRIER_SITES
181: SET
182: enabled_flag = p_org_Carrier_site_Info.Enabled_Flag,
183: attribute_category = p_org_Carrier_site_Info.Attribute_Category,
184: attribute1 = p_org_Carrier_site_Info.Attribute1,
263: IS
264:
265: CURSOR C_lock_row IS
266: SELECT *
267: FROM wsh_Org_Carrier_sites
268: WHERE rowid = p_rowid
269: FOR UPDATE of Org_Carrier_site_id NOWAIT;
270:
271: Recinfo C_lock_row%ROWTYPE;
396:
397: EXCEPTION
398: WHEN others THEN
399: x_Return_Status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
400: WSH_UTIL_CORE.Default_Handler('WSH_ORG_CARRIER_SITES_PKG.Lock_Org_Carrier_Site',l_module_name);
401:
402: --
403: IF l_debug_on THEN
404: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
407: --
408:
409: END Lock_Org_Carrier_Site;
410:
411: END WSH_ORG_CARRIER_SITES_PKG;