1 PACKAGE msc_ask_oracle AS
2 /*$Header: MSCASKOS.pls 120.2 2005/07/06 13:21:56 pabram noship $ */
3
4 PROCEDURE register_question(
5 errbuf OUT NoCopy VARCHAR2,
6 retcode OUT NoCopy VARCHAR2,
7 x_mode IN NUMBER,
8 x_question_code IN VARCHAR2,
9 x_question_type IN VARCHAR2 DEFAULT NULL,
10 x_lang_code IN VARCHAR2 DEFAULT NULL,
11 x_question IN VARCHAR2 DEFAULT NULL,
12 x_package_name IN VARCHAR2 DEFAULT NULL,
13 x_copy_question IN VARCHAR2 DEFAULT NULL);
14
15 FUNCTION ask(
16 x_question_id IN NUMBER,
17 x_question_type IN VARCHAR2,
18 x_question IN VARCHAR2,
19 x_plan_id IN NUMBER,
20 x_key1 IN NUMBER DEFAULT NULL,
21 x_key2 IN NUMBER DEFAULT NULL,
22 x_key3 IN NUMBER DEFAULT NULL,
23 x_key4 IN NUMBER DEFAULT NULL,
24 x_answer_id OUT NoCopy NUMBER,
25 x_err_msg OUT NoCopy VARCHAR2,
26 x_msg_count OUT NoCopy NUMBER)
27 RETURN BOOLEAN;
28
29 PROCEDURE get_question(
30 x_question_id OUT NoCopy NUMBER,
31 x_question_type OUT NoCopy VARCHAR2,
32 x_question_code OUT NoCopy NUMBER);
33
34 PROCEDURE get_key(
35 x_question_type OUT NoCopy VARCHAR2,
36 x_plan_id OUT NoCopy NUMBER,
37 x_key1 OUT NoCopy NUMBER,
38 x_key2 OUT NoCopy NUMBER);
39
40 PROCEDURE get_answer_id(
41 answer_id OUT NoCopy NUMBER);
42
43 PROCEDURE insert_answer(
44 a_id IN NUMBER,
45 q_id IN NUMBER,
46 seq IN NUMBER,
47 ans IN VARCHAR2);
48
49 PROCEDURE late_prj(
50 x_answer_id IN OUT NoCopy NUMBER,
51 x_err_msg IN OUT NoCopy VARCHAR2,
52 x_msg_count IN OUT NoCopy NUMBER);
53
54 PROCEDURE late_supply(
55 x_answer_id IN OUT NoCopy NUMBER,
56 x_err_msg IN OUT NoCopy VARCHAR2,
57 x_msg_count IN OUT NoCopy NUMBER);
58
59 PROCEDURE late_demand(
60 x_answer_id IN OUT NoCopy NUMBER,
61 x_err_msg IN OUT NoCopy VARCHAR2,
62 x_msg_count IN OUT NoCopy NUMBER);
63
64 v_question_id NUMBER := NULL;
65 v_question_code VARCHAR2(25) := NULL;
66 v_question VARCHAR2(240) := NULL;
67 v_question_type VARCHAR2(10) := NULL;
68 v_plan_id NUMBER := NULL;
69 v_key1 NUMBER := NULL;
70 v_key2 NUMBER := NULL;
71 v_seq_num NUMBER := 0;
72
73 END msc_ask_oracle;