1: PACKAGE BODY WSH_DELIVERIES_PKG1 as
2: /* $Header: WSHDELXB.pls 115.3 99/08/11 19:22:58 porting s $ */
3:
4: -- The procedure insert_row can possibly return 2 kinds of exceptions
5: -- 1. WSH_DEL_DUP_NAME : This the for the case that default delivery name
3:
4: -- The procedure insert_row can possibly return 2 kinds of exceptions
5: -- 1. WSH_DEL_DUP_NAME : This the for the case that default delivery name
6: -- generated by wsh_external_custom.delivery_name
7: -- is duplicate in table wsh_deliveries
8: -- 2. WSH_DEL_NULL_NAME : This is for the case that default delivery name
9: -- generated by wsh_external_custom.delivery_name
10: -- is NULL.
11:
81: X_Last_Update_Date DATE,
82: X_Last_Updated_By NUMBER,
83: X_Last_Update_Login NUMBER
84: ) IS
85: CURSOR C IS SELECT rowid FROM wsh_deliveries
86: WHERE delivery_id = X_Delivery_Id;
87: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
88: dname wsh_deliveries.name%TYPE;
89: CURSOR C3 (del_name VARCHAR2) IS
83: X_Last_Update_Login NUMBER
84: ) IS
85: CURSOR C IS SELECT rowid FROM wsh_deliveries
86: WHERE delivery_id = X_Delivery_Id;
87: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
88: dname wsh_deliveries.name%TYPE;
89: CURSOR C3 (del_name VARCHAR2) IS
90: SELECT COUNT(*) FROM wsh_deliveries
91: WHERE name = del_name;
84: ) IS
85: CURSOR C IS SELECT rowid FROM wsh_deliveries
86: WHERE delivery_id = X_Delivery_Id;
87: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
88: dname wsh_deliveries.name%TYPE;
89: CURSOR C3 (del_name VARCHAR2) IS
90: SELECT COUNT(*) FROM wsh_deliveries
91: WHERE name = del_name;
92: temp NUMBER;
86: WHERE delivery_id = X_Delivery_Id;
87: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
88: dname wsh_deliveries.name%TYPE;
89: CURSOR C3 (del_name VARCHAR2) IS
90: SELECT COUNT(*) FROM wsh_deliveries
91: WHERE name = del_name;
92: temp NUMBER;
93: temp_id NUMBER;
94: duplicate_name EXCEPTION;
137: END IF;
138: X_Name := dname;
139: END IF;
140:
141: INSERT INTO wsh_deliveries(
142: organization_id,
143: delivery_id,
144: name,
145: source_code,
374: X_Last_Update_Date DATE,
375: X_Last_Updated_By NUMBER,
376: X_Last_Update_Login NUMBER
377: ) IS
378: CURSOR C IS SELECT rowid FROM wsh_deliveries
379: WHERE delivery_id = X_Delivery_Id;
380: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
381: dname wsh_deliveries.name%TYPE;
382: CURSOR C3 (del_name VARCHAR2) IS
376: X_Last_Update_Login NUMBER
377: ) IS
378: CURSOR C IS SELECT rowid FROM wsh_deliveries
379: WHERE delivery_id = X_Delivery_Id;
380: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
381: dname wsh_deliveries.name%TYPE;
382: CURSOR C3 (del_name VARCHAR2) IS
383: SELECT COUNT(*) FROM wsh_deliveries
384: WHERE name = del_name;
377: ) IS
378: CURSOR C IS SELECT rowid FROM wsh_deliveries
379: WHERE delivery_id = X_Delivery_Id;
380: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
381: dname wsh_deliveries.name%TYPE;
382: CURSOR C3 (del_name VARCHAR2) IS
383: SELECT COUNT(*) FROM wsh_deliveries
384: WHERE name = del_name;
385: temp NUMBER;
379: WHERE delivery_id = X_Delivery_Id;
380: CURSOR C2 IS SELECT wsh_deliveries_s.nextval FROM sys.dual;
381: dname wsh_deliveries.name%TYPE;
382: CURSOR C3 (del_name VARCHAR2) IS
383: SELECT COUNT(*) FROM wsh_deliveries
384: WHERE name = del_name;
385: temp NUMBER;
386: temp_id NUMBER;
387: duplicate_name EXCEPTION;
430: END IF;
431: X_Name := dname;
432: END IF;
433:
434: INSERT INTO wsh_deliveries(
435: organization_id,
436: delivery_id,
437: name,
438: source_code,
598:
599:
600: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
601: BEGIN
602: DELETE FROM wsh_deliveries
603: WHERE rowid = X_Rowid;
604:
605: if (SQL%NOTFOUND) then
606: Raise NO_DATA_FOUND;
607: end if;
608: END Delete_Row;
609:
610:
611: END WSH_DELIVERIES_PKG1;