PACKAGE BODY: APPS.AME_HELP_API

Source

1 PACKAGE BODY AME_HELP_API AS
2 /* $Header: ameheapi.pkb 120.0 2005/07/26 06:00:24 mbocutt noship $ */
3 
4 
5 procedure GET_CURRENT_HELP_ROW (
6   X_CONTEXT                         in VARCHAR2,
7   X_HELP_ROWID                      out nocopy VARCHAR2
8 )
9 is
10    cursor CSR_GET_CURRENT_HELP
11     (
12      X_CONTEXT                     in VARCHAR2
13     ) is
14      select ROWID
15      from AME_HELP
16      where context = X_CONTEXT;
17 begin
18 
19   open CSR_GET_CURRENT_HELP (
20     X_CONTEXT
21   );
22   fetch CSR_GET_CURRENT_HELP into X_HELP_ROWID;
23     if (CSR_GET_CURRENT_HELP%notfound) then
24       X_HELP_ROWID := null;
25     end if;
26   close CSR_GET_CURRENT_HELP;
27 end GET_CURRENT_HELP_ROW;
28 
29 procedure INSERT_ROW (
30  X_CONTEXT                         in VARCHAR2,
31  X_FILE_NAME                       in VARCHAR2)
32  is
33 
34 begin
35   insert into AME_HELP
36   (
37    CONTEXT,
38    FILE_NAME
39   ) values (
40    X_CONTEXT,
41    X_FILE_NAME
42   );
43 
44 end INSERT_ROW;
45 
46 procedure UPDATE_ROW (
47    X_HELP_ROWID                       in VARCHAR2,
48    X_FILE_NAME                        in VARCHAR2)
49  is
50 begin
51   update AME_HELP set
52     FILE_NAME  = X_FILE_NAME
53    where ROWID = X_HELP_ROWID;
54 
55 end UPDATE_ROW;
56 
57 procedure DELETE_ROW (
58   X_CONTEXT   in VARCHAR2,
59   X_FILE_NAME in VARCHAR2
60 ) is
61 begin
62   delete from AME_HELP
63   where CONTEXT   = X_CONTEXT
64     and FILE_NAME = X_FILE_NAME;
65 
66   if (sql%notfound) then
67     raise no_data_found;
68   end if;
69 
70 end DELETE_ROW;
71 
72 procedure LOAD_ROW (
73           X_CONTEXT   in VARCHAR2,
74           X_FILE_NAME in VARCHAR2)
75 is
76   X_HELP_ROWID ROWID;
77   X_CREATION_DATE DATE;
78   X_CREATED_BY NUMBER;
79   X_LAST_UPDATE_DATE DATE;
80   X_LAST_UPDATED_BY NUMBER;
81   X_LAST_UPDATE_LOGIN NUMBER;
82 begin
83    begin
84     GET_CURRENT_HELP_ROW (
85       X_CONTEXT,
86       X_HELP_ROWID
87       );
88     if X_HELP_ROWID is null then
89       INSERT_ROW (
90        X_CONTEXT,
91        X_FILE_NAME);
92     else
93        UPDATE_ROW (
94        X_HELP_ROWID,
95        X_FILE_NAME
96        );
97     end if;
98   end;
99 exception
100     when others then
101     ame_util.runtimeException('ame_help_api',
102                          'load_row',
103                          sqlcode,
104                          sqlerrm);
105         raise;
106 end LOAD_ROW;
107 
108 END AME_HELP_API;