[Home] [Help]
189: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
190: p_api_version_number IN NUMBER,
191: p_return_status OUT NOCOPY VARCHAR2,
192: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
193: p_amparamreg_pk_tbl IN AK_AMPARAM_REGISTRY_PUB.AmParamReg_Pk_Tbl_Type :=
194: AK_AMPARAM_REGISTRY_PUB.G_MISS_AMPARAMREG_PK_TBL,
195: p_nls_language IN VARCHAR2
196: ) is
197: cursor l_get_ap_registry_list_csr (appl_id_parm in number) is
190: p_api_version_number IN NUMBER,
191: p_return_status OUT NOCOPY VARCHAR2,
192: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
193: p_amparamreg_pk_tbl IN AK_AMPARAM_REGISTRY_PUB.AmParamReg_Pk_Tbl_Type :=
194: AK_AMPARAM_REGISTRY_PUB.G_MISS_AMPARAMREG_PK_TBL,
195: p_nls_language IN VARCHAR2
196: ) is
197: cursor l_get_ap_registry_list_csr (appl_id_parm in number) is
198: select APPLICATIONMODULE_DEFN_NAME
205: l_index NUMBER;
206: l_last_orig_index NUMBER;
207: l_msg_count NUMBER;
208: l_msg_data VARCHAR2(2000);
209: l_amparamreg_pk_tbl AK_AMPARAM_REGISTRY_PUB.amparamreg_Pk_Tbl_Type;
210: l_return_status varchar2(1);
211: begin
212: IF NOT FND_API.Compatible_API_Call (
213: l_api_version_number, p_api_version_number, l_api_name,
805: l_msg_data VARCHAR2(2000);
806: l_amparam_index NUMBER := 0;
807: l_amparam_rec ak_am_parameter_registry%ROWTYPE;
808: l_empty_amparam_rec ak_am_parameter_registry%ROWTYPE;
809: l_amparam_tbl AK_AMPARAM_REGISTRY_PUB.amparamreg_Tbl_Type;
810: l_return_status varchar2(1);
811: l_saved_token AK_ON_OBJECTS_PUB.Buffer_Type;
812: l_state NUMBER;
813: l_token AK_ON_OBJECTS_PUB.Buffer_Type;
923: end if;
924: elsif (l_state = 1) then
925: if (l_token = 'AMPARAM_REGISTRY') then
926: --== Clear out previous column data ==--
927: l_amparam_rec := AK_AMPARAM_REGISTRY_PUB.G_MISS_AMPARAMREG_REC;
928: l_state := 2;
929: else
930: -- Found the beginning of a non-region object,
931: -- rebuild last line and pass it back to the caller