PACKAGE BODY: APPS.EAM_CREATEUPDATE_SAFETY_PVT

Source

1 PACKAGE BODY EAM_CREATEUPDATE_SAFETY_PVT AS
2 /* $Header: EAMVSAWB.pls 120.1 2010/10/11 23:55:26 mashah noship $ */
3 
4 --  Copyright (c) 2010 Oracle Corporation, Redwood Shores, CA, USA
5 --  All rights reserved.
6 --
7 --  FILENAME
8 --
9 --      EAMVSAWB.pls
10 --
11 --  DESCRIPTION
12 --
13 --      Spec of package EAM_CREATEUPDATE_SAFETY_PVT
14 --
15 --  NOTES
16 --
17 --  HISTORY
18 
19 /************************************************************************************************************
20 Wrapper procedure on top of Public Permit API.This is used to create/update permit
21 This in turn will call  PROCESS_WORK_PERMIT in EAM_PROCESS_PERMIT_PUB
22 ***********************************************************************************************************/
23 PROCEDURE  COPY_WORK_PERMIT
24   (
25           p_commit                        IN VARCHAR2
26          , p_org_id         IN NUMBER
27          , px_permit_id                IN  OUT NOCOPY   NUMBER
28          , x_return_status                 OUT NOCOPY  VARCHAR2
29   )
30  IS
31      l_msg_count  NUMBER;
32 
33  BEGIN
34 
35  SAVEPOINT COPY_WORK_PERMIT;
36 
37 			  EAM_PROCESS_PERMIT_PUB.COPY_WORK_PERMIT
38 			  (  p_bo_identifier     =>'EAM'
39 				, p_api_version_number =>1.0
40 				, p_init_msg_list          => FALSE
41 				, p_commit                    => p_commit
42 				, p_org_id              => p_org_id
43         , px_permit_id           => px_permit_id
44         , x_return_status          => x_return_status
45 				, x_msg_count            => l_msg_count
46 				);
47 
48                IF(NVL(x_return_status,'U') <> 'S') THEN
49 		    ROLLBACK TO COPY_WORK_PERMIT;
50 		    RETURN;
51 		 END IF;
52 
53 		IF(x_return_status = 'S' ) THEN
54 --	   		    x_wip_entity_name := l_eam_wo_rec.wip_entity_name;
55 --			    x_wip_entity_id := l_eam_wo_rec.wip_entity_id;
56 			    IF(p_commit = FND_API.G_TRUE) THEN
57                         		    COMMIT;
58 			    END IF;
59         	 END IF;
60 
61   EXCEPTION
62    WHEN OTHERS THEN
63        ROLLBACK TO COPY_WORK_PERMIT;
64        x_return_status := 'U';
65  END COPY_WORK_PERMIT;
66 
67 /************************************************************************************************************
68 Wrapper procedure on top of Public Permit API.This is used to create/update permit
69 This in turn will call  PROCESS_WORK_PERMIT in EAM_PROCESS_PERMIT_PUB
70 ***********************************************************************************************************/
71 
72 PROCEDURE CREATE_UPDATE_PERMIT
73           (    p_commit                          IN           VARCHAR2 := FND_API.G_FALSE
74               , p_work_permit_header_rec         IN           EAM_PROCESS_PERMIT_PUB.eam_wp_header_rec_type
75               , p_permit_wo_association_tbl      IN           EAM_PROCESS_PERMIT_PUB.eam_wp_association_tbl_type
76               , x_permit_id                      OUT NOCOPY   NUMBER
77               , x_return_status                  OUT NOCOPY   VARCHAR2
78               , x_msg_count                      OUT NOCOPY   NUMBER
79           )IS
80  BEGIN
81 
82         EAM_PROCESS_PERMIT_PUB.PROCESS_WORK_PERMIT
83           (
84             p_bo_identifier                => 'EAM'
85             , p_api_version_number         => 1.0
86             , p_init_msg_list              =>  FALSE
87             , p_commit                     => p_commit
88             , p_work_permit_header_rec    => p_work_permit_header_rec
89             , p_permit_wo_association_tbl  => p_permit_wo_association_tbl
90             , x_permit_id                  => x_permit_id
91             , x_return_status              => x_return_status
92             , x_msg_count                  => x_msg_count
93           );
94 
95  EXCEPTION
96    WHEN OTHERS THEN
97         x_return_status := fnd_api.g_ret_sts_error;
98 END CREATE_UPDATE_PERMIT;
99 
100 END EAM_CREATEUPDATE_SAFETY_PVT;