1: PACKAGE BODY PO_LINES_PKG_SCU as
2: /* $Header: POXPIL5B.pls 115.6 2002/11/26 23:36:59 sbull ship $ */
3:
4: procedure check_unique(X_rowid VARCHAR2,
5: X_line_num NUMBER,
14: SELECT 1
15: INTO dummy
16: FROM DUAL
17: WHERE not exists (SELECT 'this line num exists already'
18: FROM po_lines
19: WHERE po_header_id = X_po_header_id
20: AND line_num = X_line_num
21: AND (rowid <> X_rowid OR X_rowid is null));
22: exception
65: end select_ship_total;
66:
67:
68:
69: END PO_LINES_PKG_SCU;