62: if l_amend_new_round_err = l_loop_error then
63: p_is_unexp_error := 'Y';
64: return l_amend_new_round_err;
65: end if;
66: l_err_msg := l_err_msg || fnd_global.local_chr(10) || FND_MSG_PUB.Get(p_msg_index => i,p_encoded => 'F');
67: END LOOP;
68: END IF;
69: return l_err_msg;
70: END GET_COPY_ERR_MSGS;
134:
135: FUNCTION Isclminstalled RETURN BOOLEAN
136: IS
137: BEGIN
138: if getCLMStatus (fnd_global.user_id, fnd_global.resp_id,fnd_global.resp_appl_id) ='Y' THEN
139: RETURN TRUE;
140: ELSE
141: RETURN FALSE;
142: END IF;
147:
148: FUNCTION ISCLMRESP RETURN VARCHAR2
149: IS
150: BEGIN
151: if getCLMStatus (fnd_global.user_id, fnd_global.resp_id,fnd_global.resp_appl_id) ='Y' THEN
152: RETURN 'Y';
153: ELSE
154: RETURN 'N';
155: END IF;
164: p_appl_id NUMBER;
165: p_emp_id NUMBER;
166: p_proc_name VARCHAR2(100) := 'PON.PLSQL.CLM_PON_AUC_HDR_VPD_FUN';
167: BEGIN
168: p_user_id := fnd_global.user_id;
169: p_resp_id := fnd_global.resp_id;
170: p_appl_id := fnd_global.resp_appl_id;
171: SELECT Nvl(employee_id,-999) INTO p_emp_id FROM fnd_user WHERE user_id = p_user_id;
172:
165: p_emp_id NUMBER;
166: p_proc_name VARCHAR2(100) := 'PON.PLSQL.CLM_PON_AUC_HDR_VPD_FUN';
167: BEGIN
168: p_user_id := fnd_global.user_id;
169: p_resp_id := fnd_global.resp_id;
170: p_appl_id := fnd_global.resp_appl_id;
171: SELECT Nvl(employee_id,-999) INTO p_emp_id FROM fnd_user WHERE user_id = p_user_id;
172:
173: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
166: p_proc_name VARCHAR2(100) := 'PON.PLSQL.CLM_PON_AUC_HDR_VPD_FUN';
167: BEGIN
168: p_user_id := fnd_global.user_id;
169: p_resp_id := fnd_global.resp_id;
170: p_appl_id := fnd_global.resp_appl_id;
171: SELECT Nvl(employee_id,-999) INTO p_emp_id FROM fnd_user WHERE user_id = p_user_id;
172:
173: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: fnd_log.string(FND_LOG.LEVEL_PROCEDURE, p_proc_name || '.invoked', 'Enter clm_pon_auc_hdr_vpd_fun Procedure');