220:
221: PROCEDURE PUT(NAME IN VARCHAR2
222: ,VAL IN VARCHAR2) IS
223: BEGIN
224: --STPROC.INIT('begin FND_PROFILE.PUT(:NAME, :VAL); end;');
225: begin
226: FND_PROFILE.PUT(NAME, VAL);
227: end;
228:
222: ,VAL IN VARCHAR2) IS
223: BEGIN
224: --STPROC.INIT('begin FND_PROFILE.PUT(:NAME, :VAL); end;');
225: begin
226: FND_PROFILE.PUT(NAME, VAL);
227: end;
228:
229: --STPROC.BIND_I(NAME);
230: --STPROC.BIND_I(VAL);
233:
234: FUNCTION DEFINED(NAME IN VARCHAR2) RETURN BOOLEAN IS
235: X0 BOOLEAN;
236: BEGIN
237: --STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.DEFINED(:NAME); :X0 := sys.diutil.bool_to_int(X0rv); end;');
238: declare
239: X0rv BOOLEAN;
240: begin
241: X0 := FND_PROFILE.DEFINED(NAME);
237: --STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.DEFINED(:NAME); :X0 := sys.diutil.bool_to_int(X0rv); end;');
238: declare
239: X0rv BOOLEAN;
240: begin
241: X0 := FND_PROFILE.DEFINED(NAME);
242: --X0 := sys.diutil.bool_to_int(X0rv);
243: end;
244: --STPROC.BIND_I(NAME);
245: --STPROC.BIND_O(X0);
250:
251: PROCEDURE GET(NAME IN VARCHAR2
252: ,VAL OUT NOCOPY VARCHAR2) IS
253: BEGIN
254: --STPROC.INIT('begin FND_PROFILE.GET(:NAME, :VAL); end;');
255: begin
256: FND_PROFILE.GET(NAME, VAL);
257: end;
258: --STPROC.BIND_I(NAME);
252: ,VAL OUT NOCOPY VARCHAR2) IS
253: BEGIN
254: --STPROC.INIT('begin FND_PROFILE.GET(:NAME, :VAL); end;');
255: begin
256: FND_PROFILE.GET(NAME, VAL);
257: end;
258: --STPROC.BIND_I(NAME);
259: --STPROC.BIND_O(VAL);
260: --STPROC.EXECUTE;
263:
264: FUNCTION VALUE(NAME IN VARCHAR2) RETURN VARCHAR2 IS
265: X0 VARCHAR2(2000);
266: BEGIN
267: --STPROC.INIT('begin :X0 := FND_PROFILE.VALUE(:NAME); end;');
268: begin
269: X0 := FND_PROFILE.VALUE(NAME);
270: end;
271: /* STPROC.BIND_O(X0);
265: X0 VARCHAR2(2000);
266: BEGIN
267: --STPROC.INIT('begin :X0 := FND_PROFILE.VALUE(:NAME); end;');
268: begin
269: X0 := FND_PROFILE.VALUE(NAME);
270: end;
271: /* STPROC.BIND_O(X0);
272: STPROC.BIND_I(NAME);
273: STPROC.EXECUTE;
279: FUNCTION SAVE_USER(X_NAME IN VARCHAR2
280: ,X_VALUE IN VARCHAR2) RETURN BOOLEAN IS
281: X0 BOOLEAN;
282: BEGIN
283: --STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE_USER(:X_NAME, :X_VALUE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
284: declare
285: X0rv BOOLEAN;
286: begin
287: X0 := FND_PROFILE.SAVE_USER(X_NAME, X_VALUE);
283: --STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE_USER(:X_NAME, :X_VALUE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
284: declare
285: X0rv BOOLEAN;
286: begin
287: X0 := FND_PROFILE.SAVE_USER(X_NAME, X_VALUE);
288: --X0 := sys.diutil.bool_to_int(X0rv);
289: end;
290: /*STPROC.BIND_I(X_NAME);
291: STPROC.BIND_I(X_VALUE);
302: ,X_LEVEL_VALUE IN VARCHAR2
303: ,X_LEVEL_VALUE_APP_ID IN VARCHAR2) RETURN BOOLEAN IS
304: X0 BOOLEAN;
305: BEGIN
306: --STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE(:X_NAME, :X_VALUE, :X_LEVEL_NAME, :X_LEVEL_VALUE, :X_LEVEL_VALUE_APP_ID); :X0 := sys.diutil.bool_to_int(X0rv); end;');
307: declare
308: X0rv BOOLEAN;
309: begin
310: X0 := FND_PROFILE.SAVE(X_NAME, X_VALUE, X_LEVEL_NAME, X_LEVEL_VALUE, X_LEVEL_VALUE_APP_ID);
306: --STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_PROFILE.SAVE(:X_NAME, :X_VALUE, :X_LEVEL_NAME, :X_LEVEL_VALUE, :X_LEVEL_VALUE_APP_ID); :X0 := sys.diutil.bool_to_int(X0rv); end;');
307: declare
308: X0rv BOOLEAN;
309: begin
310: X0 := FND_PROFILE.SAVE(X_NAME, X_VALUE, X_LEVEL_NAME, X_LEVEL_VALUE, X_LEVEL_VALUE_APP_ID);
311: --X0 := sys.diutil.bool_to_int(X0rv);
312: end;
313: /*STPROC.BIND_I(X_NAME);
314: STPROC.BIND_I(X_VALUE);
328: ,APPLICATION_ID_Z IN NUMBER
329: ,VAL_Z OUT NOCOPY VARCHAR2
330: ,DEFINED_Z OUT NOCOPY BOOLEAN) IS
331: BEGIN
332: /*STPROC.INIT('declare DEFINED_Z BOOLEAN; begin DEFINED_Z := sys.diutil.int_to_bool(:DEFINED_Z); FND_PROFILE.GET_SPECIFIC
333: (:NAME_Z, :USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :VAL_Z, DEFINED_Z); :DEFINED_Z := sys.diutil.bool_to_int(DEFINED_Z); end;');*/
334: /* declare
335: DEFINED_Z BOOLEAN;
336: begin
334: /* declare
335: DEFINED_Z BOOLEAN;
336: begin
337: DEFINED_Z := sys.diutil.int_to_bool(DEFINED_Z);
338: FND_PROFILE.GET_SPECIFIC(NAME_Z, USER_ID_Z, RESPONSIBILITY_ID_Z, APPLICATION_ID_Z, VAL_Z, DEFINED_Z);
339: DEFINED_Z := sys.diutil.bool_to_int(DEFINED_Z);
340: end;*/
341: /*STPROC.BIND_O(DEFINED_Z);
342: STPROC.BIND_I(NAME_Z);
357: ,RESPONSIBILITY_ID IN NUMBER
358: ,APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
359: X0 VARCHAR2(2000);
360: BEGIN
361: --STPROC.INIT('begin :X0 := FND_PROFILE.VALUE_SPECIFIC(:NAME, :USER_ID, :RESPONSIBILITY_ID, :APPLICATION_ID); end;');
362: begin
363: X0 := FND_PROFILE.VALUE_SPECIFIC(NAME, USER_ID, RESPONSIBILITY_ID, APPLICATION_ID);
364: end;
365: /*STPROC.BIND_O(X0);
359: X0 VARCHAR2(2000);
360: BEGIN
361: --STPROC.INIT('begin :X0 := FND_PROFILE.VALUE_SPECIFIC(:NAME, :USER_ID, :RESPONSIBILITY_ID, :APPLICATION_ID); end;');
362: begin
363: X0 := FND_PROFILE.VALUE_SPECIFIC(NAME, USER_ID, RESPONSIBILITY_ID, APPLICATION_ID);
364: end;
365: /*STPROC.BIND_O(X0);
366: STPROC.BIND_I(NAME);
367: STPROC.BIND_I(USER_ID);
377: ,RESPONSIBILITY_ID_Z IN NUMBER
378: ,APPLICATION_ID_Z IN NUMBER
379: ,SITE_ID_Z IN NUMBER) IS
380: BEGIN
381: --STPROC.INIT('begin FND_PROFILE.INITIALIZE(:USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :SITE_ID_Z); end;');
382: begin
383: FND_PROFILE.INITIALIZE(USER_ID_Z, RESPONSIBILITY_ID_Z, APPLICATION_ID_Z, SITE_ID_Z);
384: end;
385: /*STPROC.BIND_I(USER_ID_Z);
379: ,SITE_ID_Z IN NUMBER) IS
380: BEGIN
381: --STPROC.INIT('begin FND_PROFILE.INITIALIZE(:USER_ID_Z, :RESPONSIBILITY_ID_Z, :APPLICATION_ID_Z, :SITE_ID_Z); end;');
382: begin
383: FND_PROFILE.INITIALIZE(USER_ID_Z, RESPONSIBILITY_ID_Z, APPLICATION_ID_Z, SITE_ID_Z);
384: end;
385: /*STPROC.BIND_I(USER_ID_Z);
386: STPROC.BIND_I(RESPONSIBILITY_ID_Z);
387: STPROC.BIND_I(APPLICATION_ID_Z);
392: PROCEDURE PUTMULTIPLE(NAMES IN VARCHAR2
393: ,VALS IN VARCHAR2
394: ,NUM IN NUMBER) IS
395: BEGIN
396: --STPROC.INIT('begin FND_PROFILE.PUTMULTIPLE(:NAMES, :VALS, :NUM); end;');
397: begin
398: FND_PROFILE.PUTMULTIPLE(NAMES, VALS, NUM);
399: end;
400: /*STPROC.BIND_I(NAMES);
394: ,NUM IN NUMBER) IS
395: BEGIN
396: --STPROC.INIT('begin FND_PROFILE.PUTMULTIPLE(:NAMES, :VALS, :NUM); end;');
397: begin
398: FND_PROFILE.PUTMULTIPLE(NAMES, VALS, NUM);
399: end;
400: /*STPROC.BIND_I(NAMES);
401: STPROC.BIND_I(VALS);
402: STPROC.BIND_I(NUM);