38: ELSE
39: x_lock_flag := 'T';
40: IF p_budget_forecast_flag = 'B' THEN
41: IF p_plan_type_code = 'COST_ONLY' THEN
42: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_BDGT_LOCK');
43: ELSIF p_plan_type_code = 'REVENUE_ONLY'THEN
44: Fnd_Message.SET_NAME('PJI', 'PJI_REP_REV_BDGT_LOCK');
45: ELSE
46: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_BDGT_LOCK');
40: IF p_budget_forecast_flag = 'B' THEN
41: IF p_plan_type_code = 'COST_ONLY' THEN
42: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_BDGT_LOCK');
43: ELSIF p_plan_type_code = 'REVENUE_ONLY'THEN
44: Fnd_Message.SET_NAME('PJI', 'PJI_REP_REV_BDGT_LOCK');
45: ELSE
46: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_BDGT_LOCK');
47: END IF;
48: ELSE
42: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_BDGT_LOCK');
43: ELSIF p_plan_type_code = 'REVENUE_ONLY'THEN
44: Fnd_Message.SET_NAME('PJI', 'PJI_REP_REV_BDGT_LOCK');
45: ELSE
46: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_BDGT_LOCK');
47: END IF;
48: ELSE
49: IF p_plan_type_code = 'COST_ONLY' THEN
50: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_FCST_LOCK');
46: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_BDGT_LOCK');
47: END IF;
48: ELSE
49: IF p_plan_type_code = 'COST_ONLY' THEN
50: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_FCST_LOCK');
51: ELSIF p_plan_type_code = 'REVENUE_ONLY'THEN
52: Fnd_Message.SET_NAME('PJI', 'PJI_REP_REV_FCST_LOCK');
53: ELSE
54: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_FCST_LOCK');
48: ELSE
49: IF p_plan_type_code = 'COST_ONLY' THEN
50: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_FCST_LOCK');
51: ELSIF p_plan_type_code = 'REVENUE_ONLY'THEN
52: Fnd_Message.SET_NAME('PJI', 'PJI_REP_REV_FCST_LOCK');
53: ELSE
54: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_FCST_LOCK');
55: END IF;
56: END IF;
50: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_FCST_LOCK');
51: ELSIF p_plan_type_code = 'REVENUE_ONLY'THEN
52: Fnd_Message.SET_NAME('PJI', 'PJI_REP_REV_FCST_LOCK');
53: ELSE
54: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_FCST_LOCK');
55: END IF;
56: END IF;
57: Fnd_Message.SET_TOKEN('USER_NAME',Pa_Fin_Plan_Utils.get_person_name(l_locked_by_person_id));
58: x_lock_msg := Fnd_Message.GET;
53: ELSE
54: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_FCST_LOCK');
55: END IF;
56: END IF;
57: Fnd_Message.SET_TOKEN('USER_NAME',Pa_Fin_Plan_Utils.get_person_name(l_locked_by_person_id));
58: x_lock_msg := Fnd_Message.GET;
59: END IF;
60:
61: EXCEPTION
54: Fnd_Message.SET_NAME('PJI', 'PJI_REP_COST_REV_FCST_LOCK');
55: END IF;
56: END IF;
57: Fnd_Message.SET_TOKEN('USER_NAME',Pa_Fin_Plan_Utils.get_person_name(l_locked_by_person_id));
58: x_lock_msg := Fnd_Message.GET;
59: END IF;
60:
61: EXCEPTION
62: WHEN OTHERS THEN
112:
113: IF (p_curr_type = '8') THEN
114:
115: l_curr_code := l_prj_curr;
116: l_curr_type_msg := Fnd_Message.get_string('PJI', 'PJI_REP_PROJECT_CURR');
117:
118: ELSIF (p_curr_type = '4') THEN
119:
120: l_curr_code := l_pfc_curr;
117:
118: ELSIF (p_curr_type = '4') THEN
119:
120: l_curr_code := l_pfc_curr;
121: l_curr_type_msg := Fnd_Message.get_string('PJI', 'PJI_REP_PFC_CURR');
122:
123: ELSE
124:
125: l_curr_code := l_prj_curr;
122:
123: ELSE
124:
125: l_curr_code := l_prj_curr;
126: l_curr_type_msg := Fnd_Message.get_string('PJI', 'PJI_REP_PROJECT_CURR');
127:
128:
129: END IF;
130:
130:
131:
132: IF (p_version_type = 'COST') THEN
133:
134: l_version_type_msg := Fnd_Message.get_string('PJI', 'PJI_REP_DISPLAY_COST_VERSION');
135:
136: ELSIF (p_version_type = 'REVENUE') THEN
137:
138: l_version_type_msg := Fnd_Message.get_string('PJI', 'PJI_REP_DISPLAY_REV_VERSION');
134: l_version_type_msg := Fnd_Message.get_string('PJI', 'PJI_REP_DISPLAY_COST_VERSION');
135:
136: ELSIF (p_version_type = 'REVENUE') THEN
137:
138: l_version_type_msg := Fnd_Message.get_string('PJI', 'PJI_REP_DISPLAY_REV_VERSION');
139:
140: ELSE
141:
142: l_version_type_msg := NULL;
143:
144: END IF;
145:
146:
147: Fnd_Message.set_name('PJI','PJI_REP_VP_CURR_TIP');
148:
149: Fnd_Message.set_token('CURRTYPE', l_curr_type_msg);
150: Fnd_Message.set_token('CURRCODE',l_curr_code);
151: Fnd_Message.set_token('VERSIONTYPE',l_version_type_msg);
145:
146:
147: Fnd_Message.set_name('PJI','PJI_REP_VP_CURR_TIP');
148:
149: Fnd_Message.set_token('CURRTYPE', l_curr_type_msg);
150: Fnd_Message.set_token('CURRCODE',l_curr_code);
151: Fnd_Message.set_token('VERSIONTYPE',l_version_type_msg);
152:
153: x_tip_msg := Fnd_Message.get;
146:
147: Fnd_Message.set_name('PJI','PJI_REP_VP_CURR_TIP');
148:
149: Fnd_Message.set_token('CURRTYPE', l_curr_type_msg);
150: Fnd_Message.set_token('CURRCODE',l_curr_code);
151: Fnd_Message.set_token('VERSIONTYPE',l_version_type_msg);
152:
153: x_tip_msg := Fnd_Message.get;
154:
147: Fnd_Message.set_name('PJI','PJI_REP_VP_CURR_TIP');
148:
149: Fnd_Message.set_token('CURRTYPE', l_curr_type_msg);
150: Fnd_Message.set_token('CURRCODE',l_curr_code);
151: Fnd_Message.set_token('VERSIONTYPE',l_version_type_msg);
152:
153: x_tip_msg := Fnd_Message.get;
154:
155: EXCEPTION
149: Fnd_Message.set_token('CURRTYPE', l_curr_type_msg);
150: Fnd_Message.set_token('CURRCODE',l_curr_code);
151: Fnd_Message.set_token('VERSIONTYPE',l_version_type_msg);
152:
153: x_tip_msg := Fnd_Message.get;
154:
155: EXCEPTION
156: WHEN NO_DATA_FOUND THEN
157: x_msg_count := x_msg_count + 1;