64: ' WHERE lookup_type = ' || '''' || 'PARTY_TYPE' || '''' ||
65: ' AND lookup_code = :party_type ';
66: END IF;
67:
68: l_CursorID := DBMS_SQL.OPEN_CURSOR;
69: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
70:
71: if l_insmode <> 'EMBEDDED'
72: then
65: ' AND lookup_code = :party_type ';
66: END IF;
67:
68: l_CursorID := DBMS_SQL.OPEN_CURSOR;
69: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
70:
71: if l_insmode <> 'EMBEDDED'
72: then
73: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_type', 'STANDALONE');
69: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
70:
71: if l_insmode <> 'EMBEDDED'
72: then
73: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_type', 'STANDALONE');
74: else
75: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_type', p_party_type);
76: end if;
77:
71: if l_insmode <> 'EMBEDDED'
72: then
73: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_type', 'STANDALONE');
74: else
75: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_type', p_party_type);
76: end if;
77:
78: l_result := DBMS_SQL.EXECUTE(l_CursorID);
79: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
74: else
75: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_type', p_party_type);
76: end if;
77:
78: l_result := DBMS_SQL.EXECUTE(l_CursorID);
79: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
80: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
81: return false;
82: ELSE
75: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_type', p_party_type);
76: end if;
77:
78: l_result := DBMS_SQL.EXECUTE(l_CursorID);
79: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
80: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
81: return false;
82: ELSE
83: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
76: end if;
77:
78: l_result := DBMS_SQL.EXECUTE(l_CursorID);
79: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
80: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
81: return false;
82: ELSE
83: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
84: return true;
79: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
80: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
81: return false;
82: ELSE
83: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
84: return true;
85: END IF;
86:
87: exception
146: ' AND hp.party_id = :party_id';
147: END IF;
148:
149: IF p_party_type <> 'STANDALONE' THEN
150: l_CursorID := DBMS_SQL.OPEN_CURSOR;
151: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
152: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
153: l_result := DBMS_SQL.EXECUTE(l_CursorID);
154: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
147: END IF;
148:
149: IF p_party_type <> 'STANDALONE' THEN
150: l_CursorID := DBMS_SQL.OPEN_CURSOR;
151: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
152: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
153: l_result := DBMS_SQL.EXECUTE(l_CursorID);
154: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
155: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
148:
149: IF p_party_type <> 'STANDALONE' THEN
150: l_CursorID := DBMS_SQL.OPEN_CURSOR;
151: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
152: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
153: l_result := DBMS_SQL.EXECUTE(l_CursorID);
154: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
155: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
156: return false;
149: IF p_party_type <> 'STANDALONE' THEN
150: l_CursorID := DBMS_SQL.OPEN_CURSOR;
151: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
152: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
153: l_result := DBMS_SQL.EXECUTE(l_CursorID);
154: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
155: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
156: return false;
157: ELSE
150: l_CursorID := DBMS_SQL.OPEN_CURSOR;
151: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
152: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
153: l_result := DBMS_SQL.EXECUTE(l_CursorID);
154: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
155: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
156: return false;
157: ELSE
158: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
151: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
152: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
153: l_result := DBMS_SQL.EXECUTE(l_CursorID);
154: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
155: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
156: return false;
157: ELSE
158: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
159: return true;
154: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
155: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
156: return false;
157: ELSE
158: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
159: return true;
160: END IF;
161: ELSE
162: return true;
217: ' AND hzl.location_id = hps.location_id';
218: END IF;
219:
220: IF p_party_type <> 'STANDALONE' THEN
221: l_CursorID := DBMS_SQL.OPEN_CURSOR;
222: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
223: IF (p_party_type <> 'B') THEN
224: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
225: END IF;
218: END IF;
219:
220: IF p_party_type <> 'STANDALONE' THEN
221: l_CursorID := DBMS_SQL.OPEN_CURSOR;
222: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
223: IF (p_party_type <> 'B') THEN
224: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
225: END IF;
226: IF (p_party_type <> 'I') THEN
220: IF p_party_type <> 'STANDALONE' THEN
221: l_CursorID := DBMS_SQL.OPEN_CURSOR;
222: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
223: IF (p_party_type <> 'B') THEN
224: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
225: END IF;
226: IF (p_party_type <> 'I') THEN
227: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_site_id', p_party_site_id);
228: END IF;
223: IF (p_party_type <> 'B') THEN
224: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_id', p_party_id);
225: END IF;
226: IF (p_party_type <> 'I') THEN
227: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_site_id', p_party_site_id);
228: END IF;
229: l_result := DBMS_SQL.EXECUTE(l_CursorID);
230: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
231: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
225: END IF;
226: IF (p_party_type <> 'I') THEN
227: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_site_id', p_party_site_id);
228: END IF;
229: l_result := DBMS_SQL.EXECUTE(l_CursorID);
230: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
231: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
232: return false;
233: ELSE
226: IF (p_party_type <> 'I') THEN
227: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_site_id', p_party_site_id);
228: END IF;
229: l_result := DBMS_SQL.EXECUTE(l_CursorID);
230: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
231: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
232: return false;
233: ELSE
234: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
227: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':party_site_id', p_party_site_id);
228: END IF;
229: l_result := DBMS_SQL.EXECUTE(l_CursorID);
230: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
231: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
232: return false;
233: ELSE
234: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
235: return true;
230: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
231: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
232: return false;
233: ELSE
234: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
235: return true;
236: END IF;
237: ELSE
238: return true;
348: ' WHERE lookup_type = ' || '''' || 'CONFIRMATION_CODE' || '''' ||
349: ' AND lookup_code = :confirmation ';
350: END IF;
351:
352: l_CursorID := DBMS_SQL.OPEN_CURSOR;
353: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
354: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':confirmation', p_confirmation);
355: l_result := DBMS_SQL.EXECUTE(l_CursorID);
356: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
349: ' AND lookup_code = :confirmation ';
350: END IF;
351:
352: l_CursorID := DBMS_SQL.OPEN_CURSOR;
353: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
354: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':confirmation', p_confirmation);
355: l_result := DBMS_SQL.EXECUTE(l_CursorID);
356: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
357: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
350: END IF;
351:
352: l_CursorID := DBMS_SQL.OPEN_CURSOR;
353: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
354: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':confirmation', p_confirmation);
355: l_result := DBMS_SQL.EXECUTE(l_CursorID);
356: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
357: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
358: return false;
351:
352: l_CursorID := DBMS_SQL.OPEN_CURSOR;
353: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
354: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':confirmation', p_confirmation);
355: l_result := DBMS_SQL.EXECUTE(l_CursorID);
356: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
357: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
358: return false;
359: ELSE
352: l_CursorID := DBMS_SQL.OPEN_CURSOR;
353: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
354: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':confirmation', p_confirmation);
355: l_result := DBMS_SQL.EXECUTE(l_CursorID);
356: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
357: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
358: return false;
359: ELSE
360: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
353: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
354: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':confirmation', p_confirmation);
355: l_result := DBMS_SQL.EXECUTE(l_CursorID);
356: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
357: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
358: return false;
359: ELSE
360: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
361: return true;
356: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
357: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
358: return false;
359: ELSE
360: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
361: return true;
362: END IF;
363:
364: exception
398: ' WHERE lookup_type = ' || '''' || 'COMM_METHOD' || '''' ||
399: ' AND lookup_code = :protocol_type ';
400: END IF;
401:
402: l_CursorID := DBMS_SQL.OPEN_CURSOR;
403: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
404: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':protocol_type', p_protocol_type);
405: l_result := DBMS_SQL.EXECUTE(l_CursorID);
406: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
399: ' AND lookup_code = :protocol_type ';
400: END IF;
401:
402: l_CursorID := DBMS_SQL.OPEN_CURSOR;
403: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
404: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':protocol_type', p_protocol_type);
405: l_result := DBMS_SQL.EXECUTE(l_CursorID);
406: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
407: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
400: END IF;
401:
402: l_CursorID := DBMS_SQL.OPEN_CURSOR;
403: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
404: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':protocol_type', p_protocol_type);
405: l_result := DBMS_SQL.EXECUTE(l_CursorID);
406: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
407: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
408: return false;
401:
402: l_CursorID := DBMS_SQL.OPEN_CURSOR;
403: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
404: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':protocol_type', p_protocol_type);
405: l_result := DBMS_SQL.EXECUTE(l_CursorID);
406: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
407: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
408: return false;
409: ELSE
402: l_CursorID := DBMS_SQL.OPEN_CURSOR;
403: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
404: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':protocol_type', p_protocol_type);
405: l_result := DBMS_SQL.EXECUTE(l_CursorID);
406: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
407: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
408: return false;
409: ELSE
410: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
403: DBMS_SQL.PARSE(l_CursorID, l_Select, DBMS_SQL.V7);
404: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':protocol_type', p_protocol_type);
405: l_result := DBMS_SQL.EXECUTE(l_CursorID);
406: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
407: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
408: return false;
409: ELSE
410: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
411: return true;
406: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
407: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
408: return false;
409: ELSE
410: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
411: return true;
412: END IF;
413:
414: exception
528: -- if this function returns 'Y' means valid; otherwise not valid.
529:
530: l_proc_call := 'BEGIN :l_result:= fnd_web_sec.validate_login (p_user=> :p_username,' ||
531: ' p_pwd => :p_password); END; ';
532: l_proc_cursor := dbms_sql.open_cursor;
533:
534: begin
535: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
536: exception
531: ' p_pwd => :p_password); END; ';
532: l_proc_cursor := dbms_sql.open_cursor;
533:
534: begin
535: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
536: exception
537: when others then
538: raise;
539: end;
537: when others then
538: raise;
539: end;
540:
541: dbms_sql.bind_variable(l_proc_cursor, ':l_result', l_result, 32000);
542: dbms_sql.bind_variable(l_proc_cursor, ':p_username', p_username, 32000);
543: dbms_sql.bind_variable(l_proc_cursor, ':p_password', p_password, 32000);
544:
545: begin
538: raise;
539: end;
540:
541: dbms_sql.bind_variable(l_proc_cursor, ':l_result', l_result, 32000);
542: dbms_sql.bind_variable(l_proc_cursor, ':p_username', p_username, 32000);
543: dbms_sql.bind_variable(l_proc_cursor, ':p_password', p_password, 32000);
544:
545: begin
546: l_numrows := dbms_sql.execute(l_proc_cursor);
539: end;
540:
541: dbms_sql.bind_variable(l_proc_cursor, ':l_result', l_result, 32000);
542: dbms_sql.bind_variable(l_proc_cursor, ':p_username', p_username, 32000);
543: dbms_sql.bind_variable(l_proc_cursor, ':p_password', p_password, 32000);
544:
545: begin
546: l_numrows := dbms_sql.execute(l_proc_cursor);
547: exception
542: dbms_sql.bind_variable(l_proc_cursor, ':p_username', p_username, 32000);
543: dbms_sql.bind_variable(l_proc_cursor, ':p_password', p_password, 32000);
544:
545: begin
546: l_numrows := dbms_sql.execute(l_proc_cursor);
547: exception
548: when others then
549: raise;
550: end;
549: raise;
550: end;
551:
552: if (l_numrows > 0) then
553: dbms_sql.variable_value(l_proc_cursor, ':l_result', l_result);
554: else
555: l_result := 'N';
556: end if;
557:
580: x_ret_code := 0;
581: end if;
582: END IF;
583:
584: dbms_sql.close_cursor(l_proc_cursor);
585:
586: EXCEPTION
587: WHEN OTHERS THEN
588: x_ret_code := 1;
585:
586: EXCEPTION
587: WHEN OTHERS THEN
588: x_ret_code := 1;
589: dbms_sql.close_cursor(l_proc_cursor);
590: END validate_user;
591:
592: procedure retrieve_customer_id(
593: p_username IN VARCHAR2,
603: l_select := 'select customer_id' ||
604: ' from fnd_user where user_name = :user_name' ||
605: ' AND description = :description';
606:
607: l_cursor := dbms_sql.open_cursor;
608: begin
609: dbms_sql.parse(l_cursor, l_select, dbms_sql.native);
610: exception
611: when others then
605: ' AND description = :description';
606:
607: l_cursor := dbms_sql.open_cursor;
608: begin
609: dbms_sql.parse(l_cursor, l_select, dbms_sql.native);
610: exception
611: when others then
612: raise;
613: end;
611: when others then
612: raise;
613: end;
614: l_username := upper(p_username);
615: dbms_sql.define_column(l_cursor, 1, x_person_party_id);
616: dbms_sql.bind_variable(l_cursor, ':user_name', l_username);
617: dbms_sql.bind_variable(l_cursor, ':description', p_description);
618: begin
619: l_numrows := dbms_sql.execute(l_cursor);
612: raise;
613: end;
614: l_username := upper(p_username);
615: dbms_sql.define_column(l_cursor, 1, x_person_party_id);
616: dbms_sql.bind_variable(l_cursor, ':user_name', l_username);
617: dbms_sql.bind_variable(l_cursor, ':description', p_description);
618: begin
619: l_numrows := dbms_sql.execute(l_cursor);
620: if dbms_sql.fetch_rows(l_cursor) = 0 then
613: end;
614: l_username := upper(p_username);
615: dbms_sql.define_column(l_cursor, 1, x_person_party_id);
616: dbms_sql.bind_variable(l_cursor, ':user_name', l_username);
617: dbms_sql.bind_variable(l_cursor, ':description', p_description);
618: begin
619: l_numrows := dbms_sql.execute(l_cursor);
620: if dbms_sql.fetch_rows(l_cursor) = 0 then
621: x_person_party_id := -1;
615: dbms_sql.define_column(l_cursor, 1, x_person_party_id);
616: dbms_sql.bind_variable(l_cursor, ':user_name', l_username);
617: dbms_sql.bind_variable(l_cursor, ':description', p_description);
618: begin
619: l_numrows := dbms_sql.execute(l_cursor);
620: if dbms_sql.fetch_rows(l_cursor) = 0 then
621: x_person_party_id := -1;
622: else
623: dbms_sql.column_value(l_cursor, 1, x_person_party_id);
616: dbms_sql.bind_variable(l_cursor, ':user_name', l_username);
617: dbms_sql.bind_variable(l_cursor, ':description', p_description);
618: begin
619: l_numrows := dbms_sql.execute(l_cursor);
620: if dbms_sql.fetch_rows(l_cursor) = 0 then
621: x_person_party_id := -1;
622: else
623: dbms_sql.column_value(l_cursor, 1, x_person_party_id);
624: end if;
619: l_numrows := dbms_sql.execute(l_cursor);
620: if dbms_sql.fetch_rows(l_cursor) = 0 then
621: x_person_party_id := -1;
622: else
623: dbms_sql.column_value(l_cursor, 1, x_person_party_id);
624: end if;
625: exception
626: when others then
627: raise;
626: when others then
627: raise;
628: end;
629:
630: dbms_sql.close_cursor(l_cursor);
631:
632: EXCEPTION
633: when others then
634: x_person_party_id := -1;
631:
632: EXCEPTION
633: when others then
634: x_person_party_id := -1;
635: dbms_sql.close_cursor(l_cursor);
636: END;
637:
638: procedure retrieve_site_party_id(
639: p_person_party_id IN NUMBER,
649: l_proc_call := 'BEGIN pom_user_hz_wrapper_pkg.retrieve_site_party_id(' ||
650: 'p_user_party_id => :p_person_party_id, ' ||
651: 'x_site_party_id => :x_party_id, ' ||
652: 'x_status => :x_status, x_exception_msg => :x_msg); END; ';
653: l_proc_cursor := dbms_sql.open_cursor;
654:
655: begin
656: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
657: exception
652: 'x_status => :x_status, x_exception_msg => :x_msg); END; ';
653: l_proc_cursor := dbms_sql.open_cursor;
654:
655: begin
656: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
657: exception
658: when others then
659: raise;
660: end;
658: when others then
659: raise;
660: end;
661:
662: dbms_sql.bind_variable(l_proc_cursor, ':p_person_party_id', p_person_party_id);
663: dbms_sql.bind_variable(l_proc_cursor, ':x_party_id', x_party_id, 32000);
664: dbms_sql.bind_variable(l_proc_cursor, ':x_status', x_status, 32000);
665: dbms_sql.bind_variable(l_proc_cursor, ':x_msg', x_msg, 32000);
666:
659: raise;
660: end;
661:
662: dbms_sql.bind_variable(l_proc_cursor, ':p_person_party_id', p_person_party_id);
663: dbms_sql.bind_variable(l_proc_cursor, ':x_party_id', x_party_id, 32000);
664: dbms_sql.bind_variable(l_proc_cursor, ':x_status', x_status, 32000);
665: dbms_sql.bind_variable(l_proc_cursor, ':x_msg', x_msg, 32000);
666:
667: begin
660: end;
661:
662: dbms_sql.bind_variable(l_proc_cursor, ':p_person_party_id', p_person_party_id);
663: dbms_sql.bind_variable(l_proc_cursor, ':x_party_id', x_party_id, 32000);
664: dbms_sql.bind_variable(l_proc_cursor, ':x_status', x_status, 32000);
665: dbms_sql.bind_variable(l_proc_cursor, ':x_msg', x_msg, 32000);
666:
667: begin
668: l_numrows := dbms_sql.execute(l_proc_cursor);
661:
662: dbms_sql.bind_variable(l_proc_cursor, ':p_person_party_id', p_person_party_id);
663: dbms_sql.bind_variable(l_proc_cursor, ':x_party_id', x_party_id, 32000);
664: dbms_sql.bind_variable(l_proc_cursor, ':x_status', x_status, 32000);
665: dbms_sql.bind_variable(l_proc_cursor, ':x_msg', x_msg, 32000);
666:
667: begin
668: l_numrows := dbms_sql.execute(l_proc_cursor);
669: dbms_sql.variable_value(l_proc_cursor, ':x_party_id', x_party_id);
664: dbms_sql.bind_variable(l_proc_cursor, ':x_status', x_status, 32000);
665: dbms_sql.bind_variable(l_proc_cursor, ':x_msg', x_msg, 32000);
666:
667: begin
668: l_numrows := dbms_sql.execute(l_proc_cursor);
669: dbms_sql.variable_value(l_proc_cursor, ':x_party_id', x_party_id);
670: dbms_sql.variable_value(l_proc_cursor, ':x_status', x_status);
671: dbms_sql.variable_value(l_proc_cursor, ':x_msg', x_msg);
672: exception
665: dbms_sql.bind_variable(l_proc_cursor, ':x_msg', x_msg, 32000);
666:
667: begin
668: l_numrows := dbms_sql.execute(l_proc_cursor);
669: dbms_sql.variable_value(l_proc_cursor, ':x_party_id', x_party_id);
670: dbms_sql.variable_value(l_proc_cursor, ':x_status', x_status);
671: dbms_sql.variable_value(l_proc_cursor, ':x_msg', x_msg);
672: exception
673: when others then
666:
667: begin
668: l_numrows := dbms_sql.execute(l_proc_cursor);
669: dbms_sql.variable_value(l_proc_cursor, ':x_party_id', x_party_id);
670: dbms_sql.variable_value(l_proc_cursor, ':x_status', x_status);
671: dbms_sql.variable_value(l_proc_cursor, ':x_msg', x_msg);
672: exception
673: when others then
674: raise;
667: begin
668: l_numrows := dbms_sql.execute(l_proc_cursor);
669: dbms_sql.variable_value(l_proc_cursor, ':x_party_id', x_party_id);
670: dbms_sql.variable_value(l_proc_cursor, ':x_status', x_status);
671: dbms_sql.variable_value(l_proc_cursor, ':x_msg', x_msg);
672: exception
673: when others then
674: raise;
675: end;
677: if (x_status is null) then
678: x_status := 'Y';
679: end if;
680:
681: dbms_sql.close_cursor(l_proc_cursor);
682:
683: EXCEPTION
684: WHEN OTHERS THEN
685: x_status := 'N';
682:
683: EXCEPTION
684: WHEN OTHERS THEN
685: x_status := 'N';
686: dbms_sql.close_cursor(l_proc_cursor);
687: END retrieve_site_party_id;
688:
689: Function getIANACharset return varchar2 is
690: l_IANAcharset varchar2(2000);
706: /* Call the utl_gdk mapping api to do the Oracle-IANA conversion */
707:
708: Begin
709: l_proc_call := 'BEGIN :l_IANACharset := utl_gdk.charset_map(:l_DBcharset);End;';
710: l_proc_cursor := dbms_sql.open_cursor;
711: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
712: dbms_sql.bind_variable(l_proc_cursor, ':l_IANACharset',
713: l_IANACharset, 32000);
714: dbms_sql.bind_variable(l_proc_cursor, ':l_DBcharset',
707:
708: Begin
709: l_proc_call := 'BEGIN :l_IANACharset := utl_gdk.charset_map(:l_DBcharset);End;';
710: l_proc_cursor := dbms_sql.open_cursor;
711: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
712: dbms_sql.bind_variable(l_proc_cursor, ':l_IANACharset',
713: l_IANACharset, 32000);
714: dbms_sql.bind_variable(l_proc_cursor, ':l_DBcharset',
715: l_DBcharset, 32000);
708: Begin
709: l_proc_call := 'BEGIN :l_IANACharset := utl_gdk.charset_map(:l_DBcharset);End;';
710: l_proc_cursor := dbms_sql.open_cursor;
711: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
712: dbms_sql.bind_variable(l_proc_cursor, ':l_IANACharset',
713: l_IANACharset, 32000);
714: dbms_sql.bind_variable(l_proc_cursor, ':l_DBcharset',
715: l_DBcharset, 32000);
716: l_numrows := dbms_sql.execute(l_proc_cursor);
710: l_proc_cursor := dbms_sql.open_cursor;
711: dbms_sql.parse(l_proc_cursor, l_proc_call, dbms_sql.native);
712: dbms_sql.bind_variable(l_proc_cursor, ':l_IANACharset',
713: l_IANACharset, 32000);
714: dbms_sql.bind_variable(l_proc_cursor, ':l_DBcharset',
715: l_DBcharset, 32000);
716: l_numrows := dbms_sql.execute(l_proc_cursor);
717:
718: if (l_numrows > 0) then
712: dbms_sql.bind_variable(l_proc_cursor, ':l_IANACharset',
713: l_IANACharset, 32000);
714: dbms_sql.bind_variable(l_proc_cursor, ':l_DBcharset',
715: l_DBcharset, 32000);
716: l_numrows := dbms_sql.execute(l_proc_cursor);
717:
718: if (l_numrows > 0) then
719: dbms_sql.variable_value(l_proc_cursor, ':l_IANACharset',
720: l_IANACharset);
715: l_DBcharset, 32000);
716: l_numrows := dbms_sql.execute(l_proc_cursor);
717:
718: if (l_numrows > 0) then
719: dbms_sql.variable_value(l_proc_cursor, ':l_IANACharset',
720: l_IANACharset);
721: else
722: l_IANACharset := 'UTF-8';
723: end if;
729: Exception
730: When Others then
731: l_IANACharset := 'UTF-8';
732: End;
733: IF (dbms_sql.is_open(l_proc_cursor)) then
734: dbms_sql.close_cursor(l_proc_cursor);
735: END IF;
736: return l_IANACharset;
737: End;
730: When Others then
731: l_IANACharset := 'UTF-8';
732: End;
733: IF (dbms_sql.is_open(l_proc_cursor)) then
734: dbms_sql.close_cursor(l_proc_cursor);
735: END IF;
736: return l_IANACharset;
737: End;
738: