[Home] [Help]
PACKAGE BODY: APPS.CN_REASON_HISTORY_PKG
Source
1 PACKAGE BODY CN_REASON_HISTORY_PKG AS
2 /* $Header: cnthistb.pls 115.1 2002/04/24 12:04:56 pkm ship $*/
3
4
5 -- * -------------------------------------------------------------------------*
6 -- Procedure Name
7 -- Insert_row
8 -- Purpose
9 -- Main insert procedure
10 -- Note
11 -- 1. Primary key should be populated from sequence before call
12 -- this procedure. No refernece to sequence in this procedure.
13 -- 2. All paramaters are IN parameter.
14 -- * -------------------------------------------------------------------------*
15 PROCEDURE insert_row
16 ( p_reason_history_all_rec IN REASON_HISTORY_ALL_REC_TYPE) IS
17 --
18 l_reason VARCHAR2(8000);
19 --
20 BEGIN
21 l_reason := p_reason_history_all_rec.reason;
22 INSERT into CN_REASON_HISTORY_ALL
23 ( REASON_HISTORY_ID,
24 REASON_ID,
25 UPDATED_TABLE,
26 UPD_TABLE_ID,
27 REASON,
28 REASON_CODE,
29 DML_FLAG,
30 LOOKUP_TYPE,
31 UPDATE_FLAG,
32 ATTRIBUTE_CATEGORY,
33 ATTRIBUTE1,
34 ATTRIBUTE2,
35 ATTRIBUTE3,
36 ATTRIBUTE4,
37 ATTRIBUTE5,
38 ATTRIBUTE6,
39 ATTRIBUTE7,
40 ATTRIBUTE8,
41 ATTRIBUTE9,
42 ATTRIBUTE10,
43 ATTRIBUTE11,
44 ATTRIBUTE12,
45 ATTRIBUTE13,
46 ATTRIBUTE14,
47 ATTRIBUTE15,
48 CREATED_BY,
49 CREATION_DATE,
50 LAST_UPDATE_DATE,
51 LAST_UPDATED_BY,
52 LAST_UPDATE_LOGIN,
53 OBJECT_VERSION_NUMBER)
54 select
55 DECODE(p_reason_history_all_rec.REASON_HISTORY_ID, FND_API.G_MISS_NUM, NULL,
56 p_reason_history_all_rec.REASON_HISTORY_ID),
57 DECODE(p_reason_history_all_rec.REASON_ID, FND_API.G_MISS_NUM, NULL,
58 p_reason_history_all_rec.REASON_ID),
59 DECODE(p_reason_history_all_rec.UPDATED_TABLE, FND_API.G_MISS_CHAR, NULL,
60 p_reason_history_all_rec.UPDATED_TABLE),
61 DECODE(p_reason_history_all_rec.UPD_TABLE_ID, FND_API.G_MISS_NUM, NULL,
62 p_reason_history_all_rec.UPD_TABLE_ID),
63 l_reason,
64 DECODE(p_reason_history_all_rec.REASON_CODE, FND_API.G_MISS_CHAR, NULL,
65 p_reason_history_all_rec.REASON_CODE),
66 DECODE(p_reason_history_all_rec.DML_FLAG, FND_API.G_MISS_CHAR, NULL,
67 p_reason_history_all_rec.DML_FLAG),
68 DECODE(p_reason_history_all_rec.LOOKUP_TYPE, FND_API.G_MISS_CHAR, NULL,
69 p_reason_history_all_rec.LOOKUP_TYPE),
70 DECODE(p_reason_history_all_rec.UPDATE_FLAG, FND_API.G_MISS_CHAR, NULL,
71 p_reason_history_all_rec.UPDATE_FLAG),
72 DECODE(p_reason_history_all_rec.ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL,
73 p_reason_history_all_rec.ATTRIBUTE_CATEGORY),
74 DECODE(p_reason_history_all_rec.ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL,
75 p_reason_history_all_rec.ATTRIBUTE1),
76 DECODE(p_reason_history_all_rec.ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL,
77 p_reason_history_all_rec.ATTRIBUTE2),
78 DECODE(p_reason_history_all_rec.ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL,
79 p_reason_history_all_rec.ATTRIBUTE3),
80 DECODE(p_reason_history_all_rec.ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL,
81 p_reason_history_all_rec.ATTRIBUTE4),
82 DECODE(p_reason_history_all_rec.ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL,
83 p_reason_history_all_rec.ATTRIBUTE5),
84 DECODE(p_reason_history_all_rec.ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL,
85 p_reason_history_all_rec.ATTRIBUTE6),
86 DECODE(p_reason_history_all_rec.ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL,
87 p_reason_history_all_rec.ATTRIBUTE7),
88 DECODE(p_reason_history_all_rec.ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL,
89 p_reason_history_all_rec.ATTRIBUTE8),
90 DECODE(p_reason_history_all_rec.ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL,
91 p_reason_history_all_rec.ATTRIBUTE9),
92 DECODE(p_reason_history_all_rec.ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL,
93 p_reason_history_all_rec.ATTRIBUTE10),
94 DECODE(p_reason_history_all_rec.ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL,
95 p_reason_history_all_rec.ATTRIBUTE11),
96 DECODE(p_reason_history_all_rec.ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL,
97 p_reason_history_all_rec.ATTRIBUTE12),
98 DECODE(p_reason_history_all_rec.ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL,
99 p_reason_history_all_rec.ATTRIBUTE13),
100 DECODE(p_reason_history_all_rec.ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL,
101 p_reason_history_all_rec.ATTRIBUTE14),
102 DECODE(p_reason_history_all_rec.ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL,
103 p_reason_history_all_rec.ATTRIBUTE15),
104 fnd_global.user_id,
105 Sysdate,
106 Sysdate,
107 fnd_global.user_id,
108 fnd_global.login_id,
109 1
110 from dual;
111 END insert_row;
112 -- * -------------------------------------------------------------------------*
113 -- Procedure Name
114 -- delete_row
115 -- Purpose
116 -- Main lcok and update procedure
117 -- Note
118 -- 1. All paramaters are IN parameter.
119 -- 2. Raise NO_DATA_FOUND exception if no reocrd deleted (??)
120 -- * -------------------------------------------------------------------------*
121 PROCEDURE delete_row(
122 p_reason_history_id NUMBER) IS
123
124 BEGIN
125 DELETE FROM CN_REASON_HISTORY_ALL
126 WHERE reason_history_id = p_reason_history_id;
127 IF (SQL%ROWCOUNT=0) THEN
128 RAISE NO_DATA_FOUND;
129 END IF;
130 END Delete_row;
131 --
132 END CN_REASON_HISTORY_PKG;