1: PACKAGE BODY PO_LINES_SV as
2: /* $Header: POXPOL1B.pls 120.6 2007/12/04 09:23:48 bisdas ship $ */
3:
4: /*============================= PO_LINES_SV ===============================*/
5:
1: PACKAGE BODY PO_LINES_SV as
2: /* $Header: POXPOL1B.pls 120.6 2007/12/04 09:23:48 bisdas ship $ */
3:
4: /*============================= PO_LINES_SV ===============================*/
5:
6:
7: /*===========================================================================
8:
24: x_progress := '010';
25: --
26: -- If the calling source is HTML then we need not do the validations as we
27: -- would have already performed these validations in
28: -- PO_LINES_SV.check_deletion_allowed
29: IF p_skip_validation = 'Y' THEN
30: x_allow_delete := 'Y';
31: ELSE
32: /*
85: END IF;
86: Exception when others THEN
87: l_type_name := X_type_lookup_code;
88: End;
89: po_lines_sv.val_line_delete(X_po_line_id => X_po_line_id,
90: X_allow_delete => X_allow_delete,
91: p_token => 'DOCUMENT_TYPE',
92: p_token_value => l_type_name);
93:
111: /*
112: ** Delete all children of the selected line.
113: */
114:
115: po_lines_sv.delete_children(X_type_lookup_code, X_po_line_id);
116: --dbms_output.put_line('after delete children');
117:
118: /*
119: ** Delete the Line.
262: BEGIN
263:
264: --dbms_output.put_line('Before_call');
265:
266: po_lines_sv.val_line_delete(X_po_line_id, X_allow_delete);
267:
268: --dbms_output.put_line('After call');
269: --dbms_output.put_line('Allow Delete = '||X_allow_delete);
270:
618: BEGIN
619:
620: --dbms_output.put_line('before call');
621:
622: IF po_lines_sv.val_approval_status
623: (X_po_line_id ,
624: X_type_lookup_code ,
625: X_unit_price ,
626: X_line_num ,
1178: po_message_s.sql_error('update_released_quantity', x_progress, sqlcode);
1179: raise;
1180: END update_released_quantity;
1181:
1182: END PO_LINES_SV;