The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE NAME: Update_Card_Status
DESCRIPTION:
CHANGE HISTORY: WLAU 8/28/1997 Created
===========================================================================*/
PROCEDURE Update_Card_Status (p_card_status IN VARCHAR2,
p_document_type IN VARCHAR2,
p_document_id IN NUMBER,
p_kanban_return_status OUT VARCHAR2) IS
-- Define cursor for getting release Kanban Card ID
CURSOR Kanban_rel_dist IS
SELECT PO_DISTRIBUTION_ID, KANBAN_CARD_ID
FROM PO_DISTRIBUTIONS
WHERE PO_RELEASE_ID = p_document_id
AND KANBAN_CARD_ID is not NULL;
SELECT PO_DISTRIBUTION_ID, KANBAN_CARD_ID
FROM PO_DISTRIBUTIONS
WHERE PO_HEADER_ID = p_document_id
AND KANBAN_CARD_ID is not NULL;
SELECT prl.REQUISITION_LINE_ID, prl.KANBAN_CARD_ID
FROM PO_REQUISITION_HEADERS prh,
PO_REQUISITION_LINES prl
WHERE prh.REQUISITION_HEADER_ID = p_document_id
AND prh.REQUISITION_HEADER_ID = prl.REQUISITION_HEADER_ID
AND prh.TYPE_LOOKUP_CODE = 'INTERNAL'
AND prl.KANBAN_CARD_ID is not NULL;
dbms_output.put_line ('Update_Card_Status');
INV_Kanban_PVT.Update_Card_Supply_Status
(p_kanban_return_status,
l_kanban_card_id,
INV_Kanban_PVT.G_Supply_Status_InProcess,
INV_Kanban_PVT.G_doc_type_PO,
p_document_id,
l_distribution_id);
INV_Kanban_PVT.Update_Card_Supply_Status
(p_kanban_return_status,
l_kanban_card_id,
INV_Kanban_PVT.G_Supply_Status_InProcess,
INV_Kanban_PVT.G_doc_type_release,
p_document_id,
l_distribution_id);
INV_Kanban_PVT.Update_Card_Supply_Status
(p_kanban_return_status,
l_kanban_card_id,
INV_Kanban_PVT.G_Supply_Status_InProcess,
INV_Kanban_PVT.G_doc_type_Internal_Req,
p_document_id,
l_req_line_id);
dbms_output.put_line ('End Update_Card_Status');
END Update_Card_Status;
PROCEDURE NAME: Update_Card_Status_Full
DESCRIPTION:
CHANGE HISTORY: WLAU 8/28/1997 Created
===========================================================================*/
PROCEDURE Update_Card_Status_Full (p_kanban_card_ID IN NUMBER,
p_kanban_return_status OUT VARCHAR2) IS
l_progress VARCHAR2(80) := NULL;
dbms_output.put_line ('Start Update_Card_Status_Full ');
INV_KANBAN_PVT.UPDATE_CARD_SUPPLY_STATUS
(p_kanban_return_status,
p_kanban_card_ID,
INV_KANBAN_PVT.G_SUPPLY_STATUS_FULL);
dbms_output.put_line ('End Update_Card_Status_Full ');
END Update_Card_Status_Full;