89: INTO l_retrieval_process_id;
90:
91: IF csr_retrieval_process_id%NOTFOUND
92: THEN
93: fnd_message.set_name ('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
94: fnd_message.set_token ('PROCEDURE', l_proc);
95: fnd_message.set_token ('STEP', '1');
96: fnd_msg_pub.ADD;
97: END IF;
90:
91: IF csr_retrieval_process_id%NOTFOUND
92: THEN
93: fnd_message.set_name ('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
94: fnd_message.set_token ('PROCEDURE', l_proc);
95: fnd_message.set_token ('STEP', '1');
96: fnd_msg_pub.ADD;
97: END IF;
98:
91: IF csr_retrieval_process_id%NOTFOUND
92: THEN
93: fnd_message.set_name ('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
94: fnd_message.set_token ('PROCEDURE', l_proc);
95: fnd_message.set_token ('STEP', '1');
96: fnd_msg_pub.ADD;
97: END IF;
98:
99: CLOSE csr_retrieval_process_id;
2094: IF csr_deposit_process_id%NOTFOUND
2095: THEN
2096: CLOSE csr_deposit_process_id;
2097:
2098: fnd_message.set_name ('HXC', 'HXC_NO_RETRIEVAL_PROCESS');
2099: fnd_message.set_token ('PROCESS_NAME', p_deposit_process_name);
2100: fnd_message.raise_error;
2101: END IF;
2102:
2095: THEN
2096: CLOSE csr_deposit_process_id;
2097:
2098: fnd_message.set_name ('HXC', 'HXC_NO_RETRIEVAL_PROCESS');
2099: fnd_message.set_token ('PROCESS_NAME', p_deposit_process_name);
2100: fnd_message.raise_error;
2101: END IF;
2102:
2103: CLOSE csr_deposit_process_id;
2096: CLOSE csr_deposit_process_id;
2097:
2098: fnd_message.set_name ('HXC', 'HXC_NO_RETRIEVAL_PROCESS');
2099: fnd_message.set_token ('PROCESS_NAME', p_deposit_process_name);
2100: fnd_message.raise_error;
2101: END IF;
2102:
2103: CLOSE csr_deposit_process_id;
2104:
2964: EXIT WHEN (NOT p_messages.EXISTS (i));
2965: -- First translate the message as the messagetable returned does not give the actual
2966: -- message, only the message_name which doesn't mean anything to the user.
2967: l_message :=
2968: fnd_message.get_string
2969: (appin => p_messages (i).application_short_name,
2970: namein => p_messages (i).message_name
2971: );
2972:
3105: <
3106: LOOP
3107: EXIT process_all_messages WHEN NOT p_messages.EXISTS (l_message_idx);
3108: -- set message on stack so we can work with it
3109: fnd_message.set_name
3110: (p_messages (l_message_idx).application_short_name,
3111: p_messages (l_message_idx).message_name
3112: );
3113:
3122:
3123: FOR l_token IN 0 .. (l_token_table.COUNT / 2) - 1
3124: LOOP
3125: -- replace all tokens in the message on the stack
3126: fnd_message.set_token (token => l_token_table (2 * l_token),
3127: VALUE => l_token_table ( 2
3128: * l_token
3129: + 1
3130: )
3135: -- get the message back from the stack and put in the message table...
3136: l_messages (l_message_idx).message_name :=
3137: p_messages (l_message_idx).message_name;
3138: -- ... and just copy the other fields for convinience.
3139: l_messages (l_message_idx).MESSAGE_TEXT := fnd_message.get;
3140: l_messages (l_message_idx).time_building_block_id :=
3141: p_messages (l_message_idx).time_building_block_id;
3142: l_messages (l_message_idx).time_building_block_ovn :=
3143: p_messages (l_message_idx).time_building_block_ovn;