PACKAGE BODY: APPS.CN_PROCESS_AUDITS_PKG

Source

1 PACKAGE BODY CN_PROCESS_AUDITS_PKG AS
2 -- $Header: cnrepab.pls 120.0 2005/10/10 07:17:33 apink noship $
3 
4 
5   --
6   -- Public Procedures
7   --
8 
9   --
10   -- Procedure Name
11   --   insert_row
12   -- History
13   --   1/11/94           Devesh Khatu		Created
14   --
15   PROCEDURE insert_row (
16 	X_rowid		IN OUT	NOCOPY ROWID,
17 	X_process_audit_id	IN OUT NOCOPY	cn_process_audits.process_audit_id%TYPE,
18 	X_parent_process_audit_id	cn_process_audits.parent_process_audit_id%TYPE,
19 	X_process_type		cn_process_audits.process_type%TYPE,
20 	X_description		cn_process_audits.description%TYPE,
21 	X_statement_text	cn_process_audits.statement_text%TYPE,
22 	X_execution_code	cn_process_audits.execution_code%TYPE,
23 	X_error_message		cn_process_audits.error_message%TYPE,
24 	X_module_id		cn_process_audits.module_id%TYPE,
25 	X_object_id		cn_process_audits.object_id%TYPE,
26 	X_timestamp_start	cn_process_audits.timestamp_start%TYPE,
27 	X_timestamp_end		cn_process_audits.timestamp_end%TYPE,
28     x_org_id cn_process_audits.org_id%TYPE) IS
29 
30   BEGIN
31 
32     IF (X_process_audit_id IS NULL) THEN
33       SELECT cn_process_audits_s.NEXTVAL
34         INTO X_process_audit_id
35         FROM dual;
36     END IF;
37 
38     INSERT INTO cn_process_audits (
39 	process_audit_id,
40 	parent_process_audit_id,
41 	process_type,
42 	description,
43 	statement_text,
44 	execution_code,
45 	error_message,
46 	module_id,
47 	object_id,
48 	timestamp_start,
49 	timestamp_end,
50     org_id)
51       VALUES (
52 	X_process_audit_id,
53 	X_parent_process_audit_id,
54 	X_process_type,
55 	X_description,
56 	X_statement_text,
57 	X_execution_code,
58 	X_error_message,
59 	X_module_id,
60 	X_object_id,
61 	X_timestamp_start,
62 	X_timestamp_end,
63     x_org_id);
64 
65     SELECT ROWID
66       INTO X_rowid
67       FROM cn_process_audits
68      WHERE process_audit_id = X_process_audit_id;
69 
70     IF (SQL%NOTFOUND) THEN
71       RAISE NO_DATA_FOUND;
72     END IF;
73 
74   END insert_row;
75 
76 
77   --
78   -- Procedure Name
79   --   select_row
80   -- History
81   --   1/11/94           Devesh Khatu		Created
82   --
83   PROCEDURE select_row (
84 	recinfo IN OUT NOCOPY cn_process_audits%ROWTYPE) IS
85   BEGIN
86     -- select row based on process_id (primary key)
87     IF (recinfo.process_audit_id IS NOT NULL) THEN
88 
89       SELECT * INTO recinfo
90         FROM cn_process_audits cpa
91        WHERE cpa.process_audit_id = recinfo.process_audit_id;
92 
93     END IF;
94   END select_row;
95 
96 
97 
98   --
99   -- Procedure Name
100   --   update_row
101   -- History
102   --   1/11/94           Devesh Khatu		Created
103   --
104   PROCEDURE update_row (
105 	X_process_audit_id		cn_process_audits.process_audit_id%TYPE,
106 	X_module_id		cn_process_audits.module_id%TYPE,
107 	X_timestamp_end		cn_process_audits.timestamp_end%TYPE,
108 	X_execution_code	cn_process_audits.execution_code%TYPE,
109 	X_error_message		cn_process_audits.error_message%TYPE) IS
110 
111   BEGIN
112 
113     UPDATE cn_process_audits
114        SET module_id	    = X_module_id,
115            timestamp_end    = X_timestamp_end,
116 	   execution_code   = X_execution_code,
117            error_message    = X_error_message
118      WHERE process_audit_id = X_process_audit_id;
119 
120     IF (SQL%NOTFOUND) then
121       RAISE NO_DATA_FOUND;
122     END IF;
123 
124   END update_row;
125 
126 
127 END cn_process_audits_pkg;