1 -- Testing purposes only
2 -- Removes all traces of a purchase order, including the PO, lineitems,
3 -- lineitem_details, bibs, copies, callnumbers, and debits
5 CREATE OR REPLACE FUNCTION acq.purge_po (po_id INT, purge_items BOOLEAN) RETURNS VOID AS $$
9 FOR li IN SELECT * FROM acq.lineitem WHERE purchase_order = po_id LOOP
11 DELETE FROM asset.copy WHERE call_number IN (
12 SELECT id FROM asset.call_number WHERE record = li.eg_bib_id);
13 DELETE FROM asset.call_number WHERE record = li.eg_bib_id;
14 DELETE FROM biblio.record_entry WHERE id = li.eg_bib_id;
16 DELETE FROM acq.fund_debit WHERE id in (
17 SELECT fund_debit FROM acq.lineitem_detail WHERE lineitem = li.id);
19 IF li.picklist IS NOT NULL THEN
21 DELETE FROM acq.lineitem_detail WHERE lineitem = li.id;
23 UPDATE acq.lineitem_detail SET eg_copy_id = NULL, fund_debit = NULL WHERE lineitem = li.id;
25 UPDATE acq.lineitem SET purchase_order = NULL, eg_bib_id = NULL, state = 'new' WHERE id = li.id;
27 DELETE FROM acq.lineitem_detail WHERE lineitem = li.id;
28 DELETE FROM acq.lineitem_attr WHERE lineitem = li.id;
29 DELETE from acq.lineitem_note WHERE lineitem = li.id;
30 DELETE from acq.lineitem WHERE id = li.id;
35 DELETE FROM acq.purchase_order WHERE id = po_id;