PACKAGE BODY: APPS.IEC_LISTVALID_PVT

Source

1 PACKAGE BODY IEC_LISTVALID_PVT AS
2 /* $Header: IECLSTVB.pls 115.11 2004/01/08 15:31:57 koswartz noship $ */
3 
4 PROCEDURE LAUNCHVALIDATION (listheaderid IN NUMBER)
5 AS
6 BEGIN
7 	NULL;
8 END;
9 
10 PROCEDURE INITRECORD
11 (
12   listheaderid IN NUMBER,
13   userid IN NUMBER
14 
15 )
16 AS
17   status VARCHAR2(20);
18   seq NUMBER;
19 
20 BEGIN
21 select IEC_O_VALIDATION_STATUS_S.nextval INTO seq from dual;
22 status:='NOTVALIDATED';
23 INSERT INTO IEC_O_VALIDATION_STATUS
24 (
25   VALIDATION_STATUS_ID,
26   LIST_HEADER_ID,
27   CREATED_BY,
28   CREATION_DATE,
29   LAST_UPDATED_BY,
30   LAST_UPDATE_DATE,
31   OBJECT_VERSION_NUMBER
32 )
33 VALUES
34 (
35   seq,
36   listheaderid,
37   userid,
38   sysdate,
39   userid,
40   sysdate,
41   0
42 );
43 END;
44 
45 
46 END IEC_LISTVALID_PVT;