21:
22: G_Chg_Reason varchar2(80);
23:
24: function get_lookup_value
25: (p_lookup_type pa_lookups.lookup_type%TYPE,
26: p_lookup_code pa_lookups.lookup_code%TYPE) return VARCHAR2
27: is
28: l_return_value VARCHAR2(80);
29: begin
22: G_Chg_Reason varchar2(80);
23:
24: function get_lookup_value
25: (p_lookup_type pa_lookups.lookup_type%TYPE,
26: p_lookup_code pa_lookups.lookup_code%TYPE) return VARCHAR2
27: is
28: l_return_value VARCHAR2(80);
29: begin
30: select meaning
28: l_return_value VARCHAR2(80);
29: begin
30: select meaning
31: into l_return_value
32: from pa_lookups
33: where lookup_type = p_lookup_type and
34: lookup_code = p_lookup_code;
35: return l_return_value;
36: exception
6245: SELECT 'Y'
6246: INTO l_exists
6247: FROM dual
6248: WHERE EXISTS (SELECT 'X'
6249: FROM pa_lookups
6250: WHERE lookup_type='PA_FP_RATE_DATE_TYPE'
6251: AND ((p_project_cost_rate_date_typ IS NULL
6252: OR p_project_cost_rate_date_typ=lookup_code) OR
6253:
6255: ,p_projfunc_currency_code))
6256: AND rownum=1)
6257:
6258: AND EXISTS (SELECT 'X'
6259: FROM pa_lookups
6260: WHERE lookup_type='PA_FP_RATE_DATE_TYPE'
6261: AND ((p_projfunc_cost_rate_date_typ IS NULL
6262: OR p_projfunc_cost_rate_date_typ=lookup_code) OR
6263:
6264: p_projfunc_currency_code = p_txn_currency_code )
6265: AND rownum=1)
6266:
6267: AND EXISTS (SELECT 'X'
6268: FROM pa_lookups
6269: WHERE lookup_type='PA_FP_RATE_DATE_TYPE'
6270: AND ((p_project_rev_rate_date_typ IS NULL
6271: OR p_project_rev_rate_date_typ=lookup_code) OR
6272:
6274: ,p_projfunc_currency_code))
6275: AND rownum=1)
6276:
6277: AND EXISTS (SELECT 'X'
6278: FROM pa_lookups
6279: WHERE lookup_type='PA_FP_RATE_DATE_TYPE'
6280: AND ((p_projfunc_rev_rate_date_typ IS NULL
6281: OR p_projfunc_rev_rate_date_typ=lookup_code) OR
6282:
7549: ==================================================================*/
7550:
7551: PROCEDURE GET_LOOKUP_CODE
7552: (
7553: p_lookup_type IN pa_lookups.lookup_type%TYPE
7554: ,p_lookup_meaning IN pa_lookups.meaning%TYPE
7555: ,x_lookup_code OUT NOCOPY pa_lookups.lookup_code%TYPE --File.Sql.39 bug 4440895
7556: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7557: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
7550:
7551: PROCEDURE GET_LOOKUP_CODE
7552: (
7553: p_lookup_type IN pa_lookups.lookup_type%TYPE
7554: ,p_lookup_meaning IN pa_lookups.meaning%TYPE
7555: ,x_lookup_code OUT NOCOPY pa_lookups.lookup_code%TYPE --File.Sql.39 bug 4440895
7556: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7557: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
7558: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7551: PROCEDURE GET_LOOKUP_CODE
7552: (
7553: p_lookup_type IN pa_lookups.lookup_type%TYPE
7554: ,p_lookup_meaning IN pa_lookups.meaning%TYPE
7555: ,x_lookup_code OUT NOCOPY pa_lookups.lookup_code%TYPE --File.Sql.39 bug 4440895
7556: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7557: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
7558: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
7559: )
7566: l_debug_mode VARCHAR2(1);
7567:
7568: cursor lookups_cur is
7569: select lookup_code
7570: from pa_lookups
7571: where lookup_type = p_lookup_type
7572: and meaning = p_lookup_meaning;
7573:
7574: BEGIN
13604: If p_time_phased_code <> 'N' Then
13605: If G_Chg_Reason is null Then
13606: select meaning
13607: into G_Chg_Reason
13608: from pa_lookups
13609: where lookup_type = 'BUDGET CHANGE REASON'
13610: and lookup_code = 'MULTIPLE';
13611: End if;
13612: return G_Chg_Reason;
13620:
13621: IF l_chg_rsn_code is not null Then
13622: select meaning
13623: into l_chg_rsn
13624: from pa_lookups
13625: where lookup_type = 'BUDGET CHANGE REASON'
13626: and lookup_code = l_chg_rsn_code;
13627: End If;
13628: