1 PACKAGE BODY EDR_FWK_TEST_POST_OP AS
2 /* $Header: EDRFWTSB.pls 120.0.12000000.1 2007/01/18 05:53:13 appldev ship $
3
4 /***********************************************************
5 ** This Procedure is executed as Post Operation API **
6 ***********************************************************/
7 PROCEDURE set_rec_status(P_FWK_TEST_ID NUMBER) IS
8 BEGIN
9 UPDATE EDR_FWK_TEST_B
10 SET STATUS = decode(EDR_STANDARD_PUB.G_SIGNATURE_STATUS,'SUCCESS','COMPLETE',EDR_PSIG_PAGE_FLOW.SIGNATURE_STATUS)
11 WHERE FWK_TEST_ID = P_FWK_TEST_ID;
12 END;
13
14 END EDR_FWK_TEST_POST_OP;