eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AHL_PROG_TYPE_SUBTYPES_PKG

Source


1 package body AHL_PROG_TYPE_SUBTYPES_PKG as
2 /* $Header: AHLLFPTB.pls 120.1 2008/03/14 11:56:20 pdoki ship $ */
3 procedure INSERT_ROW (
4   X_PROG_TYPE_SUBTYPE_ID in NUMBER,
5   X_OBJECT_VERSION_NUMBER in NUMBER,
6   X_PROGRAM_TYPE_CODE in VARCHAR2,
7   X_PROGRAM_SUBTYPE_CODE in VARCHAR2,
8   X_ATTRIBUTE_CATEGORY in VARCHAR2,
9   X_ATTRIBUTE1 in VARCHAR2,
10   X_ATTRIBUTE2 in VARCHAR2,
11   X_ATTRIBUTE3 in VARCHAR2,
12   X_ATTRIBUTE4 in VARCHAR2,
13   X_ATTRIBUTE5 in VARCHAR2,
14   X_ATTRIBUTE6 in VARCHAR2,
15   X_ATTRIBUTE7 in VARCHAR2,
16   X_ATTRIBUTE8 in VARCHAR2,
17   X_ATTRIBUTE9 in VARCHAR2,
18   X_ATTRIBUTE10 in VARCHAR2,
19   X_ATTRIBUTE11 in VARCHAR2,
20   X_ATTRIBUTE12 in VARCHAR2,
21   X_ATTRIBUTE13 in VARCHAR2,
22   X_ATTRIBUTE14 in VARCHAR2,
23   X_ATTRIBUTE15 in VARCHAR2,
24   X_CREATION_DATE in DATE,
25   X_CREATED_BY in NUMBER,
26   X_LAST_UPDATE_DATE in DATE,
27   X_LAST_UPDATED_BY in NUMBER,
28   X_LAST_UPDATE_LOGIN in NUMBER
29 ) is
30 begin
31   insert into AHL_PROG_TYPE_SUBTYPES (
32     PROG_TYPE_SUBTYPE_ID,
33     OBJECT_VERSION_NUMBER,
34     LAST_UPDATE_DATE,
35     LAST_UPDATED_BY,
36     CREATION_DATE,
37     CREATED_BY,
38     LAST_UPDATE_LOGIN,
39     PROGRAM_TYPE_CODE,
40     PROGRAM_SUBTYPE_CODE,
41     ATTRIBUTE_CATEGORY,
42     ATTRIBUTE1,
43     ATTRIBUTE2,
44     ATTRIBUTE3,
45     ATTRIBUTE4,
46     ATTRIBUTE5,
47     ATTRIBUTE6,
48     ATTRIBUTE7,
49     ATTRIBUTE8,
50     ATTRIBUTE9,
51     ATTRIBUTE10,
52     ATTRIBUTE11,
53     ATTRIBUTE12,
54     ATTRIBUTE13,
55     ATTRIBUTE14,
56     ATTRIBUTE15
57   )
58   values(
59     X_PROG_TYPE_SUBTYPE_ID,
60     X_OBJECT_VERSION_NUMBER,
61     X_LAST_UPDATE_DATE,
62     X_LAST_UPDATED_BY,
63     X_CREATION_DATE,
64     X_CREATED_BY,
65     X_LAST_UPDATE_LOGIN,
66     X_PROGRAM_TYPE_CODE,
67     X_PROGRAM_SUBTYPE_CODE,
68     X_ATTRIBUTE_CATEGORY,
69     X_ATTRIBUTE1,
70     X_ATTRIBUTE2,
71     X_ATTRIBUTE3,
72     X_ATTRIBUTE4,
73     X_ATTRIBUTE5,
74     X_ATTRIBUTE6,
75     X_ATTRIBUTE7,
76     X_ATTRIBUTE8,
77     X_ATTRIBUTE9,
78     X_ATTRIBUTE10,
79     X_ATTRIBUTE11,
80     X_ATTRIBUTE12,
81     X_ATTRIBUTE13,
82     X_ATTRIBUTE14,
83     X_ATTRIBUTE15);
84 
85 --pdoki added for bug 6892047
86 EXCEPTION
87    WHEN OTHERS THEN
88       IF ( SQLCODE = -1 ) THEN
89         FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SUBTYPE_DUP');
90         FND_MESSAGE.SET_TOKEN('RECORD',X_PROGRAM_SUBTYPE_CODE, false);
91         FND_MSG_PUB.ADD;
92       END IF;
93 
94 end INSERT_ROW;
95 
96 procedure UPDATE_ROW (
97   X_PROG_TYPE_SUBTYPE_ID in NUMBER,
98   X_OBJECT_VERSION_NUMBER in NUMBER,
99   X_PROGRAM_TYPE_CODE in VARCHAR2,
100   X_PROGRAM_SUBTYPE_CODE in VARCHAR2,
101   X_ATTRIBUTE_CATEGORY in VARCHAR2,
102   X_ATTRIBUTE1 in VARCHAR2,
103   X_ATTRIBUTE2 in VARCHAR2,
104   X_ATTRIBUTE3 in VARCHAR2,
105   X_ATTRIBUTE4 in VARCHAR2,
106   X_ATTRIBUTE5 in VARCHAR2,
107   X_ATTRIBUTE6 in VARCHAR2,
108   X_ATTRIBUTE7 in VARCHAR2,
109   X_ATTRIBUTE8 in VARCHAR2,
110   X_ATTRIBUTE9 in VARCHAR2,
111   X_ATTRIBUTE10 in VARCHAR2,
112   X_ATTRIBUTE11 in VARCHAR2,
113   X_ATTRIBUTE12 in VARCHAR2,
114   X_ATTRIBUTE13 in VARCHAR2,
115   X_ATTRIBUTE14 in VARCHAR2,
116   X_ATTRIBUTE15 in VARCHAR2,
117   X_LAST_UPDATE_DATE in DATE,
118   X_LAST_UPDATED_BY in NUMBER,
119   X_LAST_UPDATE_LOGIN in NUMBER
120 ) is
121 begin
122   update AHL_PROG_TYPE_SUBTYPES set
123     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1,
124     PROGRAM_TYPE_CODE = X_PROGRAM_TYPE_CODE,
125     PROGRAM_SUBTYPE_CODE = X_PROGRAM_SUBTYPE_CODE,
126     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
127     ATTRIBUTE1 = X_ATTRIBUTE1,
128     ATTRIBUTE2 = X_ATTRIBUTE2,
129     ATTRIBUTE3 = X_ATTRIBUTE3,
130     ATTRIBUTE4 = X_ATTRIBUTE4,
131     ATTRIBUTE5 = X_ATTRIBUTE5,
132     ATTRIBUTE6 = X_ATTRIBUTE6,
133     ATTRIBUTE7 = X_ATTRIBUTE7,
134     ATTRIBUTE8 = X_ATTRIBUTE8,
135     ATTRIBUTE9 = X_ATTRIBUTE9,
136     ATTRIBUTE10 = X_ATTRIBUTE10,
137     ATTRIBUTE11 = X_ATTRIBUTE11,
138     ATTRIBUTE12 = X_ATTRIBUTE12,
139     ATTRIBUTE13 = X_ATTRIBUTE13,
140     ATTRIBUTE14 = X_ATTRIBUTE14,
141     ATTRIBUTE15 = X_ATTRIBUTE15,
142     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
143     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
144     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
145     where PROG_TYPE_SUBTYPE_ID = X_PROG_TYPE_SUBTYPE_ID
146     and   OBJECT_VERSION_NUMBER=X_OBJECT_VERSION_NUMBER;
147   if sql%rowcount=0 then
148            FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
149            FND_MSG_PUB.ADD;
150   end if;
151 
152 --pdoki added for bug 6892047
153 EXCEPTION
154    WHEN OTHERS THEN
155       IF ( SQLCODE = -1 ) THEN
156         FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SUBTYPE_DUP');
157         FND_MESSAGE.SET_TOKEN('RECORD',X_PROGRAM_SUBTYPE_CODE, false);
158         FND_MSG_PUB.ADD;
159       END IF;
160 
161 end UPDATE_ROW;
162 
163 procedure DELETE_ROW (
164   X_PROG_TYPE_SUBTYPE_ID in NUMBER
165 ) is
166 begin
167   delete from AHL_PROG_TYPE_SUBTYPES
168   where PROG_TYPE_SUBTYPE_ID = X_PROG_TYPE_SUBTYPE_ID;
169 end DELETE_ROW;
170 end AHL_PROG_TYPE_SUBTYPES_PKG;