BLANKET RELEASE가 INPROCESS 상태에서 더 이상 진행되지 않을 경우 해결 방법

Question

제품: MFG_PO
작성날짜 : 2006-05-11
BLANKET RELEASE가 INPROCESS 상태에서 더 이상 진행되지 않을 경우 해결법
======================================================================
PURPOSE
승인을 위해 Blanket Release가 submit 되었으나,어떤 이유로 인해
'INPROCESS' 상태로 되는 경우가 있다.
'INPROCESS' 상태가 된 그 원인 진단을 위란 workflow가 없는경우(workflow
purge process에 의해 purge 되는 경우 등...) 아래의 방법으로 해결한다.
Explanation
Original workflow activities가 더 이상 존재하지 않아서,
workflow activity를 종결하거나 document 진행을 시도하면 workflow는 fail
되며 document는 'INPROCESS' 상태로 fail 된다.
이를 해결하기 위한 solution을 아래의 steps에 따라 작업한다.
1.아래 sql을 실행하여 Requires Reapproval로 release를 update 한다.
Update가 성공적으로 끝나면 commit을 한다.
Script 실행시 Org_id가 prompt 되므로 document가 존재하는 org id를 입력
한다.
-- START OF RESET SCRIPT
set serveroutput on size 100000
DECLARE
CURSOR reltoreset is
SELECT por.wf_item_type, por.wf_item_key, por.po_release_id, por.release_num,
por.release_type, por.revision_num, poh.segment1
FROM po_headers_all poh, po_releases_all por
WHERE poh.segment1 = ' &PO_NUMBER
and por.release_num = to_number('&REL_NUM')
and por.org_id = to_number('&org_id')
and por.org_id = poh.org_id
and por.po_header_id = poh.po_header_id
and por.authorization_status IN ('IN PROCESS', 'PRE-APPROVED')
and NVL(por.cancel_flag, 'N') = 'N'
and NVL(por.closed_code, 'OPEN') != 'FINALLY_CLOSED';
CURSOR errwf(pitem varchar2, pkey varchar2) is
SELECT ITEM_TYPE, ITEM_KEY
FROM wf_items
WHERE PARENT_ITEM_TYPE = pitem
AND PARENT_ITEM_KEY = pkey
AND END_DATE is NOT NULL;
CURSOR maxseq(id number, subtype po_action_history.object_sub_type_code%type) is
SELECT nvl(max(sequence_num), 0)
FROM po_action_history
WHERE object_type_code = 'RELEASE'
AND object_sub_type_code = subtype
AND object_id = id
AND action_code is NULL;
CURSOR poaction(id number, subtype po_action_history.object_sub_type_code%type) is
SELECT nvl(max(sequence_num), 0)
FROM po_action_history
WHERE object_type_code = 'RELEASE'
AND object_sub_type_code = subtype
AND object_id = id
AND action_code = 'SUBMIT';
submitseq po_action_history.sequence_num%type;
nullseq po_action_history.sequence_num%type;
BEGIN
dbms_output.put_line('------------------------------------');
dbms_output.put_line('Data Manipulation Scripts Disclaimer');
dbms_output.put_line('------------------------------------');
dbms_output.put_line('As always please ask customer to run the scripts on their test instance
first ');
dbms_output.put_line('before applying it on production. Make sure the data is validated for ');
dbms_output.put_line('correctness and related functionality is verified after the script has been
dbms_output.put_line('run on a test instance. Customer is responsible to authenticate and verify ');
dbms_output.put_line('correctness of data manipulation scripts.');
FOR pos in reltoreset LOOP
dbms_output.put_line('Processing '||pos.release_type
||' Release Number: '
||pos.segment1||'-'||to_char(pos.release_num));
dbms_output.put_line('......................................');
dbms_output.put_line('Closing Notifications...');
BEGIN
UPDATE wf_notifications set status = 'CANCELED'
WHERE notification_id in (
select ias.notification_id
from wf_item_activity_statuses ias,
wf_notifications ntf
where ias.item_type = pos.wf_item_type
and ias.item_key = pos.wf_item_key
and ntf.notification_id = ias.notification_id)
AND NVL(status, 'OPEN') = 'OPEN';
EXCEPTION
WHEN OTHERS THEN
null;
END;
dbms_output.put_line('Aborting Workflow...');
BEGIN
WF_Engine.AbortProcess(pos.wf_item_type, pos.wf_item_key);
EXCEPTION
WHEN OTHERS THEN
null;
END;
FOR wf in errwf(pos.wf_item_type, pos.wf_item_key) LOOP
BEGIN
dbms_output.put_line('Closing Error Notifications ...');
UPDATE wf_notifications set status = 'CANCELED'
WHERE notification_id in (
select ias.notification_id
from wf_item_activity_statuses ias,
wf_notifications ntf
where ias.item_type = wf.ITEM_TYPE
and ias.item_key = wf.ITEM_KEY
and ntf.notification_id = ias.notification_id)
AND NVL(status, 'OPEN') = 'OPEN';
dbms_output.put_line('Aborting Error Workflow...');
UPDATE WF_ITEMS SET
END_DATE = sysdate
WHERE ITEM_TYPE = wf.item_type
AND ITEM_KEY = wf.item_key;
EXCEPTION
WHEN OTHERS THEN
null;
END;
END LOOP;
dbms_output.put_line('Updating Release Status...');
UPDATE po_releases_all
set authorization_status = decode(pos.revision_num, 0, 'INCOMPLETE',
'REQUIRES REAPPROVAL'),
approved_flag = decode(pos.revision_num, 0, 'N', 'R'),
wf_item_type = NULL,
wf_item_key = NULL
where po_release_id = pos.po_release_id;
OPEN maxseq(pos.po_release_id, pos.release_type);
FETCH maxseq into nullseq;
CLOSE maxseq;
OPEN poaction(pos.po_release_id, pos.release_type);
FETCH poaction into submitseq;
CLOSE poaction;
IF nullseq > submitseq THEN
dbms_output.put_line('Deleting PO Action History...');
DELETE FROM po_action_history
WHERE object_id = pos.po_release_id
AND object_type_code = 'RELEASE'
AND object_sub_type_code = pos.release_type
AND sequence_num >= submitseq;
END IF;
dbms_output.put_line('Done Processing.');
dbms_output.put_line('................');
dbms_output.put_line('Please issue commit, if no errors found.');
END LOOP;
END;
-- END OF RESET SCRIPT
2.Script가 error 없이 끝나면 'Commit;'을 실행한다.
3.Enter Release form에서 문제의 document를 조회하고, 승인을 위해 submit
한다.
Reference Documents
Note 296458.1

Answer 1