/*****************************************************************************
**
** 				Sample code to manipulate approval queues
**
** This may be useful for your programs and utilities operating on the queues
** and can be compiled into a library with the appropriate parameter and 
** function or parameter housekeeping added. 
**
****************************************************************************
**
**  ---------------  Not for production as delivered! ---------------------
**
****************************************************************************
**
****************************************************************************
**  Audit Trail
**  Edited and formatted 8-Sep-06 by Jim Beyer
**  Added header, updated formatting, verified field names against tables 
**  and reformatted to finance reference package standard.
****************************************************************************
**
**    © 2002, 2006 Sungard Higher Education All Rights Resereved
**    Not for Web publication
**
***************************************************************************/

Declare
Doc_Code  varchar2(20) := '&Document_Code';

Begin

Insert Into fobappd 
(FOBAPPD_SEQ_CODE, 
FOBAPPD_DOC_NUM, 
FOBAPPD_SEQ_NUM, 
FOBAPPD_BANK_NUM, 
FOBAPPD_ACTIVITY_DATE)
(Select FOBUAPP_SEQ_NUM,
      FOBUAPP_DOC_CODE,
      FOBUAPP_CHG_SEQ_NUM,
      NULL,
      SYSDATE
 From fobuapp
 Where FOBUAPP_DOC_CODE = Doc_Code);

Insert Into fobapph 
(FOBAPPH_SEQ_NUM, 
FOBAPPH_DOC_CODE, 
FOBAPPH_CHG_SEQ_NUM, 
FOBAPPH_USER_ID, 
FOBAPPH_ACTIVITY_DATE, 
FOBAPPH_QUEUE_ID, 
FOBAPPH_QUEUE_LEVEL, 
FOBAPPH_SUBMISSION_NUMBER)
(Select FOBUAPP_SEQ_NUM,
      FOBUAPP_DOC_CODE,
      FOBUAPP_CHG_SEQ_NUM,
      USER,
      SYSDATE,
      'MISC',
      '1',
      NULL
 From fobuapp
 Where FOBUAPP_DOC_CODE = Doc_Code);

Delete 
From fobuapp 
Where FOBUAPP_DOC_CODE = Doc_Code;

Delete 
From fobainp 
Where FOBAINP_DOC_NUM = Doc_Code;

End;
/