1: PACKAGE BODY WSH_DEPARTURES_PKG as
2: /* $Header: WSHDEPHB.pls 115.2 99/07/16 08:18:42 porting ship $ */
3:
4: -- The procedure insert_row can possibly return 2 kinds of exceptions
5: -- 1. WSH_DEP_DUP_NAME : This the for the case that default departure name
3:
4: -- The procedure insert_row can possibly return 2 kinds of exceptions
5: -- 1. WSH_DEP_DUP_NAME : This the for the case that default departure name
6: -- generated by wsh_external_custom.departure_name
7: -- is duplicate in table wsh_departures
8: -- 2. WSH_DEP_NULL_NAME : This is for the case that default departure name
9: -- generated by wsh_external_custom.departure_name
10: -- is NULL.
11: PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
52: X_Last_Update_Date DATE,
53: X_Last_Updated_By NUMBER,
54: X_Last_Update_Login NUMBER
55: ) IS
56: CURSOR C IS SELECT rowid FROM wsh_departures
57: WHERE departure_id = X_Departure_Id;
58: CURSOR C2 IS SELECT wsh_departures_s.nextval FROM sys.dual;
59: dname wsh_departures.name%TYPE;
60: CURSOR C3 (dep_name VARCHAR2) IS
54: X_Last_Update_Login NUMBER
55: ) IS
56: CURSOR C IS SELECT rowid FROM wsh_departures
57: WHERE departure_id = X_Departure_Id;
58: CURSOR C2 IS SELECT wsh_departures_s.nextval FROM sys.dual;
59: dname wsh_departures.name%TYPE;
60: CURSOR C3 (dep_name VARCHAR2) IS
61: SELECT COUNT(*) FROM wsh_departures
62: WHERE name = dep_name;
55: ) IS
56: CURSOR C IS SELECT rowid FROM wsh_departures
57: WHERE departure_id = X_Departure_Id;
58: CURSOR C2 IS SELECT wsh_departures_s.nextval FROM sys.dual;
59: dname wsh_departures.name%TYPE;
60: CURSOR C3 (dep_name VARCHAR2) IS
61: SELECT COUNT(*) FROM wsh_departures
62: WHERE name = dep_name;
63: temp NUMBER;
57: WHERE departure_id = X_Departure_Id;
58: CURSOR C2 IS SELECT wsh_departures_s.nextval FROM sys.dual;
59: dname wsh_departures.name%TYPE;
60: CURSOR C3 (dep_name VARCHAR2) IS
61: SELECT COUNT(*) FROM wsh_departures
62: WHERE name = dep_name;
63: temp NUMBER;
64: temp_id NUMBER;
65: duplicate_name EXCEPTION;
105: END IF;
106: X_Name := dname;
107: END IF;
108:
109: INSERT INTO wsh_departures(
110: organization_id,
111: departure_id,
112: name,
113: source_code,
254: X_Attribute15 VARCHAR2
255: ) IS
256: CURSOR C IS
257: SELECT *
258: FROM wsh_departures
259: WHERE rowid = X_Rowid
260: FOR UPDATE of Departure_Id NOWAIT;
261: Recinfo C%ROWTYPE;
262:
427: X_Last_Update_Date DATE,
428: X_Last_Updated_By NUMBER,
429: X_Last_Update_Login NUMBER
430: ) IS
431: dname wsh_departures.name%TYPE;
432: CURSOR C2 IS SELECT wsh_departures_s.nextval FROM sys.dual;
433: CURSOR C3 (dep_name VARCHAR2) IS
434: SELECT COUNT(*) FROM wsh_departures
435: WHERE name = dep_name;
428: X_Last_Updated_By NUMBER,
429: X_Last_Update_Login NUMBER
430: ) IS
431: dname wsh_departures.name%TYPE;
432: CURSOR C2 IS SELECT wsh_departures_s.nextval FROM sys.dual;
433: CURSOR C3 (dep_name VARCHAR2) IS
434: SELECT COUNT(*) FROM wsh_departures
435: WHERE name = dep_name;
436: temp NUMBER;
430: ) IS
431: dname wsh_departures.name%TYPE;
432: CURSOR C2 IS SELECT wsh_departures_s.nextval FROM sys.dual;
433: CURSOR C3 (dep_name VARCHAR2) IS
434: SELECT COUNT(*) FROM wsh_departures
435: WHERE name = dep_name;
436: temp NUMBER;
437: temp_id NUMBER;
438: duplicate_name EXCEPTION;
473: END IF;
474: X_Name := NULL;
475: END IF;
476:
477: UPDATE wsh_departures
478: SET
479: organization_id = X_Organization_Id,
480: departure_id = X_Departure_Id,
481: name = X_Name,
533: END Update_Row;
534:
535: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
536: BEGIN
537: DELETE FROM wsh_departures
538: WHERE rowid = X_Rowid;
539:
540: if (SQL%NOTFOUND) then
541: Raise NO_DATA_FOUND;
542: end if;
543: END Delete_Row;
544:
545:
546: END WSH_DEPARTURES_PKG;