15: function GET_CURRENT_MODE return varchar2
16: is
17: retu varchar2(100);
18: begin
19: fnd_profile.get(PROFILE_APPS_MAINTENANCE_MODE, retu);
20: return retu;
21: end;
22:
23:
80: retcode out NOCOPY number)
81: is
82: lretu boolean;
83: begin
84: lretu := FND_PROFILE.SAVE(PROFILE_APPS_MAINTENANCE_MODE, pMode, 'SITE');
85: if lretu = TRUE then
86: FND_PROFILE.put(PROFILE_APPS_MAINTENANCE_MODE, pMode);
87:
88: -- For Workflow To Enable: (when leaving maintenance mode)
82: lretu boolean;
83: begin
84: lretu := FND_PROFILE.SAVE(PROFILE_APPS_MAINTENANCE_MODE, pMode, 'SITE');
85: if lretu = TRUE then
86: FND_PROFILE.put(PROFILE_APPS_MAINTENANCE_MODE, pMode);
87:
88: -- For Workflow To Enable: (when leaving maintenance mode)
89: UPDATE wf_resources
90: SET text = pWfCode
93: commit;
94: retcode := 0;
95: else
96: retcode := 1;
97: errbuf := 'FND_PROFILE.SAVE returned false';
98: end if;
99: exception
100: when others then
101: retcode := 1;
163: SET text = pWfCode
164: WHERE type = 'WFTKN'
165: AND name = 'WF_SYSTEM_STATUS';
166:
167: lretu := FND_PROFILE.SAVE(PROFILE_APPS_MAINTENANCE_MODE, pMode, 'SITE');
168: if lretu = TRUE then
169: FND_PROFILE.put(PROFILE_APPS_MAINTENANCE_MODE, pMode);
170: end if;
171:
165: AND name = 'WF_SYSTEM_STATUS';
166:
167: lretu := FND_PROFILE.SAVE(PROFILE_APPS_MAINTENANCE_MODE, pMode, 'SITE');
168: if lretu = TRUE then
169: FND_PROFILE.put(PROFILE_APPS_MAINTENANCE_MODE, pMode);
170: end if;
171:
172: commit;
173: retcode := 0;
277: lString := GET_CURRENT_MODE;
278: fdebug('lString=' || lString || 'retcode=' || to_char(retcode) || ' errbuf=' || errbuf);
279:
280: fdebug('Test Done...Setting Back Profile to ' || lExistingMode);
281: lBolValue := FND_PROFILE.SAVE(PROFILE_APPS_MAINTENANCE_MODE, lExistingMode, 'SITE');
282: lString := GET_CURRENT_MODE;
283: fdebug('lString=' || lString);
284: end;
285: