PACKAGE BODY: APPS.AME_FIELD_HELP_API

Source

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