The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT NVL(SUM( ROUND( (NVL( ORDERED_QUANTITY, 0 ) -
NVL( CANCELLED_QUANTITY, 0 )) *
NVL(SELLING_PRICE, 0 ),
P_Order_Currency_Precision))
, 0)
,NVL( SUM( DECODE( SERVICE_PARENT_LINE_ID, P_Lines_LINE_ID,
ROUND( (NVL( ORDERED_QUANTITY, 0 ) -
NVL( CANCELLED_QUANTITY, 0 ) ) *
NVL( SELLING_PRICE, 0 ),
P_Order_Currency_Precision), 0 ) ), 0 )
INTO P_Shp_Total
,P_Shp_Service_Total
FROM SO_LINES
WHERE (ROWID = P_Shp_Row_Id
OR PARENT_LINE_ID = P_Shp_Line_Id
OR SERVICE_PARENT_LINE_ID = P_Shp_Line_Id );
SELECT NVL(SUM( ROUND( (NVL( ORDERED_QUANTITY, 0 ) -
NVL( CANCELLED_QUANTITY, 0 )) *
NVL(SELLING_PRICE, 0 ),
P_Order_Currency_Precision))
, 0)
,NVL( SUM( DECODE( SERVICE_PARENT_LINE_ID, P_Lines_LINE_ID,
ROUND( (NVL( ORDERED_QUANTITY, 0 ) -
NVL( CANCELLED_QUANTITY, 0 ) ) *
NVL( SELLING_PRICE, 0 ),
P_Order_Currency_Precision), 0 ) ), 0 )
INTO P_Shp_Total
,P_Shp_Service_Total
FROM SO_LINES
WHERE (ROWID = P_Shp_Row_Id
OR SERVICE_PARENT_LINE_ID = P_Shp_Line_Id );
SELECT NVL(SUM( (NVL( ORDERED_QUANTITY, 0 ) -
NVL( CANCELLED_QUANTITY, 0 )) *
NVL(SELLING_PRICE, 0 ))
, 0)
INTO P_Line_Total
FROM SO_LINES
WHERE ( SHIPMENT_SCHEDULE_LINE_ID = P_line_Id
OR SERVICE_PARENT_LINE_ID = P_Line_Id );
SELECT NVL( SUM( NVL( ORDERED_QUANTITY, 0 ) -
NVL( CANCELLED_QUANTITY, 0 ) ), 0 ),
COUNT(*)
INTO P_Lines_Shipment_Qty_Total,
P_Lines_Shipment_Lines_Count
FROM SO_LINES
WHERE SHIPMENT_SCHEDULE_LINE_ID = P_Lines_Line_Id
AND PARENT_LINE_ID IS NULL
AND SERVICE_PARENT_LINE_ID IS NULL;
PROCEDURE Update_Line_Type_Code
(
P_Line_Id IN NUMBER,
P_Line_Type_Code IN VARCHAR2,
P_Return_Status OUT VARCHAR2
)
is
begin
if ( P_Line_Type_Code <> 'REGULAR') then
UPDATE SO_LINES
SET LINE_TYPE_CODE = 'REGULAR'
WHERE LINE_ID = P_Line_Id;
UPDATE SO_LINES
SET LINE_TYPE_CODE = 'PARENT'
WHERE LINE_ID = P_Line_Id;
'OE_SHP_PROCESS.Update_Line_Type_Code',
Operation=>'',
Object=>'SHIPMENT',
Message=>' When Others');
end Update_Line_Type_Code;
SELECT SUM(NVL(ORDERED_QUANTITY,0) - NVL(CANCELLED_QUANTITY,0))
INTO P_Total_Shipment_Quantity
FROM SO_LINES
WHERE SHIPMENT_SCHEDULE_LINE_ID = P_Ship_Sched_Line_Id
AND PARENT_LINE_ID IS NULL
AND SERVICE_PARENT_LINE_ID IS NULL;
SELECT SUM(NVL(ORDERED_QUANTITY,0) - NVL(CANCELLED_QUANTITY,0))
INTO P_Open_Line_Quantity
FROM SO_LINES
WHERE LINE_ID = P_Ship_Sched_Line_Id;
PROCEDURE Update_Line_Quantity
(
P_Ship_Sched_Line_Id IN OUT NUMBER,
P_Total_Shipment_Quantity IN OUT NUMBER,
P_Open_Line_Quantity IN OUT NUMBER,
P_Line_Quantity IN OUT NUMBER,
P_Return_Status OUT VARCHAR2
)
is
begin
SELECT SUM(NVL(ORDERED_QUANTITY,0) - NVL(CANCELLED_QUANTITY,0))
INTO P_Open_Line_Quantity
FROM SO_LINES
WHERE LINE_ID = P_Ship_Sched_Line_Id;
UPDATE SO_LINES
SET ORDERED_QUANTITY = NVL(CANCELLED_QUANTITY,0)
+ P_Total_Shipment_Quantity
WHERE LINE_ID = P_Ship_Sched_Line_Id;
'OE_SHP_PROCESS.Update_Line_Quantity',
Operation=>'',
Object=>'SHIPMENT',
Message=>' When Others');
end Update_Line_Quantity;
PROCEDURE Update_Parent_Option_Quantity
(
P_Line_Id IN NUMBER,
P_Total_Shipment_Quantity IN NUMBER,
P_Ordered_Quantity IN NUMBER,
P_Cancelled_Quantity IN NUMBER,
P_Return_Status OUT VARCHAR2
)
is
x boolean;
UPDATE SO_LINES
SET ORDERED_QUANTITY = NVL(CANCELLED_QUANTITY,0) +
(((ORDERED_QUANTITY-NVL(CANCELLED_QUANTITY,0))/
(P_Ordered_Quantity-NVL(P_Cancelled_Quantity, 0)))
* P_Total_Shipment_Quantity)
WHERE PARENT_LINE_ID = P_Line_Id;
'OE_SHP_PROCESS.Update_Parent_Option_Quantity',
Operation=>'',
Object=>'SHIPMENT',
Message=>' When Others');
end Update_Parent_Option_Quantity;