1: PACKAGE BODY PO_LINES_SV1 AS
2: /* $Header: POXPILSB.pls 120.0.12000000.1 2007/07/27 07:25:38 grohit noship $ */
3:
4: /*================================================================
5:
17: BEGIN
18: x_progress := '010';
19:
20: /* check to see if there are any non_unique line_num exists
21: in po_lines */
22:
23: SELECT count(*)
24: INTO x_temp
25: FROM po_lines
21: in po_lines */
22:
23: SELECT count(*)
24: INTO x_temp
25: FROM po_lines
26: WHERE po_header_id = x_po_header_id
27: AND line_num = x_line_num
28: AND (rowid <> x_rowid OR x_rowid is null);
29:
27: AND line_num = x_line_num
28: AND (rowid <> x_rowid OR x_rowid is null);
29:
30: IF x_temp = 0 THEN
31: /* there are no duplicated line_num exists in po_lines */
32: RETURN TRUE;
33: ELSE
34: RETURN FALSE;
35: END IF;
57: BEGIN
58: x_progress := '010';
59:
60: /* check to see if there are any non_unique line_id exists
61: in po_lines */
62: SELECT COUNT(*)
63: INTO x_temp
64: FROM po_lines
65: WHERE po_header_id = x_po_header_id
60: /* check to see if there are any non_unique line_id exists
61: in po_lines */
62: SELECT COUNT(*)
63: INTO x_temp
64: FROM po_lines
65: WHERE po_header_id = x_po_header_id
66: AND po_line_id = x_po_line_id
67: AND (rowid <> x_rowid OR x_rowid is null);
68:
94: BEGIN
95:
96: X_progress := '010';
97:
98: /* derive the po_line_id from po_lines based on the po_header_id and
99: line_num from the input parameter */
100:
101: SELECT po_line_id
102: INTO X_po_line_id_v
99: line_num from the input parameter */
100:
101: SELECT po_line_id
102: INTO X_po_line_id_v
103: FROM po_lines
104: WHERE po_header_id = X_po_header_id
105: AND line_num = X_line_num;
106:
107: RETURN X_po_line_id_v;
113: po_message_s.sql_error('derive_po_line_id',X_progress, sqlcode);
114: raise;
115: END derive_po_line_id;
116:
117: END PO_LINES_SV1;