APPS.RCV_SHIPMENT_HEADERS_PKG dependencies on RCV_SHIPMENT_HEADERS

Line 1: PACKAGE BODY RCV_SHIPMENT_HEADERS_PKG as

1: PACKAGE BODY RCV_SHIPMENT_HEADERS_PKG as
2: /* $Header: RCVTISHB.pls 120.2 2006/03/15 03:46:29 atiwari noship $ */
3:
4:
5: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,

Line 55: CURSOR C IS SELECT rowid FROM RCV_SHIPMENT_HEADERS

51: X_customer_id NUMBER,
52: X_customer_site_id NUMBER
53:
54: ) IS
55: CURSOR C IS SELECT rowid FROM RCV_SHIPMENT_HEADERS
56: WHERE shipment_header_id = X_Shipment_Header_Id;
57:
58: CURSOR C2 IS SELECT rcv_shipment_headers_s.nextval FROM sys.dual;
59:

Line 58: CURSOR C2 IS SELECT rcv_shipment_headers_s.nextval FROM sys.dual;

54: ) IS
55: CURSOR C IS SELECT rowid FROM RCV_SHIPMENT_HEADERS
56: WHERE shipment_header_id = X_Shipment_Header_Id;
57:
58: CURSOR C2 IS SELECT rcv_shipment_headers_s.nextval FROM sys.dual;
59:
60: X_RECEIPT_CODE VARCHAR2(25);
61: X_TEMP_RECEIPT_NUM VARCHAR(30);
62: X_RECEIPT_EXISTS NUMBER := 0;

Line 101: FROM rcv_shipment_headers rsh

97:
98: LOOP
99: SELECT COUNT(*)
100: INTO X_receipt_exists
101: FROM rcv_shipment_headers rsh
102: WHERE receipt_num = X_temp_receipt_num
103: AND ship_to_org_id = x_ship_to_org_id;
104:
105: IF X_receipt_exists = 0 THEN

Line 126: INSERT INTO RCV_SHIPMENT_HEADERS(

122: X_temp_receipt_num := X_receipt_num;
123:
124: END IF;
125:
126: INSERT INTO RCV_SHIPMENT_HEADERS(
127: shipment_header_id,
128: last_update_date,
129: last_updated_by,
130: creation_date,

Line 286: FROM RCV_SHIPMENT_HEADERS

282:
283: ) IS
284: CURSOR C IS
285: SELECT *
286: FROM RCV_SHIPMENT_HEADERS
287: WHERE rowid = X_Rowid
288: FOR UPDATE of Shipment_Header_Id NOWAIT;
289: Recinfo C%ROWTYPE;
290: BEGIN

Line 485: UPDATE RCV_SHIPMENT_HEADERS

481:
482: ) IS
483:
484: BEGIN
485: UPDATE RCV_SHIPMENT_HEADERS
486: SET
487: shipment_header_id = X_Shipment_Header_Id,
488: last_update_date = X_Last_Update_Date,
489: last_updated_by = X_Last_Updated_By,

Line 548: DELETE FROM RCV_SHIPMENT_HEADERS

544: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
545:
546: BEGIN
547:
548: DELETE FROM RCV_SHIPMENT_HEADERS
549: WHERE rowid = X_Rowid;
550:
551: if (SQL%NOTFOUND) then
552: Raise NO_DATA_FOUND;

Line 561: END RCV_SHIPMENT_HEADERS_PKG;

557: RAISE;
558:
559: END Delete_Row;
560:
561: END RCV_SHIPMENT_HEADERS_PKG;