[Home] [Help]
1: PACKAGE BODY WMS_SELECTION_CRITERIA_TXN_PKG AS
2: /* $Header: WMSSCTXB.pls 120.1 2005/05/27 01:43:41 appldev $ */
3: --
4: PROCEDURE INSERT_ROW (
5: X_STG_ASSIGNMENT_ID IN NUMBER
46: ) IS
47: x_seq NUMBER;
48:
49:
50: cursor c is select stg_assignment_id from wms_selection_criteria_txn
51: where sequence_number = x_sequence_number
52: and rule_type_code = x_rule_type_code
53: and return_type_code = x_return_type_code
54: and return_type_id = x_return_type_id;
55:
56:
57: begin
58:
59: insert into wms_selection_criteria_txn (
60: stg_assignment_id
61: ,sequence_number
62: ,rule_type_code
63: ,return_type_code
151: --- Bug 4038209
152: x_seq := 0;
153: SELECT COUNT( WSCT.sequence_number )
154: INTO x_seq
155: FROM wms_selection_criteria_txn WSCT
156: WHERE WSCT.from_organization_id = x_from_organization_id
157: AND WSCT.sequence_number = x_Sequence_number
158: AND WSCT.rule_type_code = x_rule_type_code ;
159:
240: ,transaction_type_id
241: ,uom_code
242: ,uom_class
243: ,location_id
244: from wms_selection_criteria_txn
245: where stg_assignment_id = x_stg_assignment_id
246: for update of stg_assignment_id NOWAIT;
247:
248: recinfo c%rowtype;
408: ) is
409:
410: begin
411: -- if (stg_assignment_id is not null) then
412: update wms_selection_criteria_txn set
413: sequence_number = x_sequence_number
414: ,rule_type_code = x_rule_type_code
415: ,return_type_code = x_return_type_code
416: ,return_type_id = x_return_type_id
459: X_STG_ASSIGNMENT_ID IN NUMBER
460: )is
461: begin
462:
463: delete wms_selection_criteria_txn
464: where stg_assignment_id = x_stg_assignment_id;
465:
466:
467: /*if (sql%notfound) then
469: end if; */
470: end delete_row;
471:
472:
473: END WMS_SELECTION_CRITERIA_TXN_PKG;