[Home] [Help]
686:
687: /* If location id is not null then get the address from hr_locations */
688:
689: Begin
690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retreiving data from HR_LOCATIONS');
692: END IF;
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'location Id:'|| p_location_id);
687: /* If location id is not null then get the address from hr_locations */
688:
689: Begin
690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retreiving data from HR_LOCATIONS');
692: END IF;
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'location Id:'|| p_location_id);
695: END IF;
689: Begin
690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retreiving data from HR_LOCATIONS');
692: END IF;
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'location Id:'|| p_location_id);
695: END IF;
696: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
697: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Style code:'|| l_style_code);
690: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
691: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retreiving data from HR_LOCATIONS');
692: END IF;
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'location Id:'|| p_location_id);
695: END IF;
696: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
697: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Style code:'|| l_style_code);
698: END IF;
692: END IF;
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'location Id:'|| p_location_id);
695: END IF;
696: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
697: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Style code:'|| l_style_code);
698: END IF;
699:
700: /*Bug 5084855 Adding the NVL to get the Country value for Generic Address Style */
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
694: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'location Id:'|| p_location_id);
695: END IF;
696: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
697: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Style code:'|| l_style_code);
698: END IF;
699:
700: /*Bug 5084855 Adding the NVL to get the Country value for Generic Address Style */
701: Select HLC.ADDRESS_LINE_1,
828: fnd_dflex.get_flexfield('PER', 'Address Location', flexfield, flexinfo);
829: lcontext.flexfield := flexfield;
830: lcontext.context_code := l_style_code;
831: fnd_dflex.get_segments(lcontext, segments);
832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
833: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retrieved Values from descriptive flex');
834: END IF;
835: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Number of values retrieved:'||segments.nsegments);
829: lcontext.flexfield := flexfield;
830: lcontext.context_code := l_style_code;
831: fnd_dflex.get_segments(lcontext, segments);
832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
833: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retrieved Values from descriptive flex');
834: END IF;
835: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Number of values retrieved:'||segments.nsegments);
837: END IF;
831: fnd_dflex.get_segments(lcontext, segments);
832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
833: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retrieved Values from descriptive flex');
834: END IF;
835: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Number of values retrieved:'||segments.nsegments);
837: END IF;
838:
839: FOR i IN 1 .. segments.nsegments LOOP
832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
833: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Retrieved Values from descriptive flex');
834: END IF;
835: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Number of values retrieved:'||segments.nsegments);
837: END IF;
838:
839: FOR i IN 1 .. segments.nsegments LOOP
840:
861: END LOOP;
862:
863: -- Query to retrieve the address values from HR_LOCATIONS.
864: l_addr_select_qry := 'select '|| l_addr_col_names || ' from hr_locations where location_id = :1 ' ;
865: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
866: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'select query:'||l_addr_select_qry);
867: END IF;
868:
869: END IF;
862:
863: -- Query to retrieve the address values from HR_LOCATIONS.
864: l_addr_select_qry := 'select '|| l_addr_col_names || ' from hr_locations where location_id = :1 ' ;
865: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
866: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'select query:'||l_addr_select_qry);
867: END IF;
868:
869: END IF;
870:
922: g_addr_prompt_query(l_addr_prompt_query_count).addr_label_20:= l_addr_prompts_array(20);
923: -- End bug#3622675
924: g_addr_prompt_query(l_addr_prompt_query_count).query := l_addr_select_qry;
925: END IF;
926: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
927: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Before executing the HR_LOCATIONS query');
928: END IF;
929:
930: execute immediate l_addr_select_qry INTO g_address_details(l_table_count).addr_data_1, g_address_details(l_table_count).addr_data_2, g_address_details(l_table_count).addr_data_3,
923: -- End bug#3622675
924: g_addr_prompt_query(l_addr_prompt_query_count).query := l_addr_select_qry;
925: END IF;
926: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
927: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Before executing the HR_LOCATIONS query');
928: END IF;
929:
930: execute immediate l_addr_select_qry INTO g_address_details(l_table_count).addr_data_1, g_address_details(l_table_count).addr_data_2, g_address_details(l_table_count).addr_data_3,
931: g_address_details(l_table_count).addr_data_4, g_address_details(l_table_count).addr_data_5, g_address_details(l_table_count).addr_data_6,
933: g_address_details(l_table_count).addr_data_10, g_address_details(l_table_count).addr_data_11, g_address_details(l_table_count).addr_data_12,
934: g_address_details(l_table_count).addr_data_13, g_address_details(l_table_count).addr_data_14, g_address_details(l_table_count).addr_data_15,
935: g_address_details(l_table_count).addr_data_16, g_address_details(l_table_count).addr_data_17, g_address_details(l_table_count).addr_data_18,
936: g_address_details(l_table_count).addr_data_19, g_address_details(l_table_count).addr_data_20 USING p_location_id ;
937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
938: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'After executing the HR_LOCATIONS query');
939: END IF;
940:
941:
934: g_address_details(l_table_count).addr_data_13, g_address_details(l_table_count).addr_data_14, g_address_details(l_table_count).addr_data_15,
935: g_address_details(l_table_count).addr_data_16, g_address_details(l_table_count).addr_data_17, g_address_details(l_table_count).addr_data_18,
936: g_address_details(l_table_count).addr_data_19, g_address_details(l_table_count).addr_data_20 USING p_location_id ;
937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
938: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'After executing the HR_LOCATIONS query');
939: END IF;
940:
941:
942:
944:
945:
946: Exception
947: WHEN OTHERS then
948: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
949: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Exception while retrieving data from HR_LOCATIONS');
950: END IF;
951: x_address_line_1 := '';
952: x_address_line_2 := '';
945:
946: Exception
947: WHEN OTHERS then
948: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
949: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Exception while retrieving data from HR_LOCATIONS');
950: END IF;
951: x_address_line_1 := '';
952: x_address_line_2 := '';
953: x_address_line_3 := '';
963:
964: else
965:
966: /* If location id is null then select the address from hz_locations */
967: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
968: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Before executing the HZ_LOCATIONS query');
969: END IF;
970: Begin
971: /*Bug 5084855 Adding the NVL to get the Country value for Generic Address Style */
964: else
965:
966: /* If location id is null then select the address from hz_locations */
967: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
968: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Before executing the HZ_LOCATIONS query');
969: END IF;
970: Begin
971: /*Bug 5084855 Adding the NVL to get the Country value for Generic Address Style */
972: SELECT
1029: DECODE(FCL3.LOOKUP_CODE, NULL, '1', FCL3.VIEW_APPLICATION_ID) =
1030: DECODE(FCL3.LOOKUP_CODE, NULL, '1', 3) AND
1031: DECODE(FCL3.LOOKUP_CODE, NULL, '1', FCL3.LANGUAGE) =
1032: DECODE(FCL3.LOOKUP_CODE, NULL, '1', USERENV('LANG')) ;
1033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'After executing the HZ_LOCATIONS query');
1035: END IF;
1036:
1037: /* hz_locations table doesn't have columns for location code, phone and fax. */
1030: DECODE(FCL3.LOOKUP_CODE, NULL, '1', 3) AND
1031: DECODE(FCL3.LOOKUP_CODE, NULL, '1', FCL3.LANGUAGE) =
1032: DECODE(FCL3.LOOKUP_CODE, NULL, '1', USERENV('LANG')) ;
1033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'After executing the HZ_LOCATIONS query');
1035: END IF;
1036:
1037: /* hz_locations table doesn't have columns for location code, phone and fax. */
1038:
1040: x_contact_phone :=null;
1041: x_contact_fax :=null;
1042:
1043: l_table_count := g_address_details.count; -- Number of rows in the PL/SQl table
1044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'l_table_count:'||l_table_count);
1046: END IF;
1047:
1048: /* Check whether the location id exists in g_address_details PL/SQL table.*/
1041: x_contact_fax :=null;
1042:
1043: l_table_count := g_address_details.count; -- Number of rows in the PL/SQl table
1044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'l_table_count:'||l_table_count);
1046: END IF;
1047:
1048: /* Check whether the location id exists in g_address_details PL/SQL table.*/
1049: FOR i IN 1 .. l_table_count LOOP
1052: l_location_id_exists := 'Y';
1053: EXIT ;
1054: END IF;
1055: END LOOP;
1056: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1057: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'l_location_id_exists:'||l_location_id_exists);
1058: END IF;
1059:
1060: IF l_location_id_exists <> 'Y' THEN
1053: EXIT ;
1054: END IF;
1055: END LOOP;
1056: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1057: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'l_location_id_exists:'||l_location_id_exists);
1058: END IF;
1059:
1060: IF l_location_id_exists <> 'Y' THEN
1061:
1061:
1062: l_table_count := l_table_count + 1;
1063: g_address_details(l_table_count).location_id := p_location_id;
1064: g_address_details(l_table_count).address_style := l_style_code;
1065: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1066: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'p_location_id:'|| p_location_id);
1067: END IF;
1068:
1069:
1062: l_table_count := l_table_count + 1;
1063: g_address_details(l_table_count).location_id := p_location_id;
1064: g_address_details(l_table_count).address_style := l_style_code;
1065: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1066: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'p_location_id:'|| p_location_id);
1067: END IF;
1068:
1069:
1070: HZ_FORMAT_PUB.FORMAT_ADDRESS(p_location_id => p_location_id,
1072: x_return_status => x_return_status, x_msg_count => x_msg_count,
1073: x_msg_data => x_msg_data, x_formatted_address => x_formatted_address,
1074: x_formatted_lines_cnt => x_formatted_lines_cnt,
1075: x_formatted_address_tbl => x_formatted_address_tbl) ;
1076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1077: /* assign address values to l_addr_values_array list */
1078:
1079: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'x_formatted_lines_cnt:'|| x_formatted_lines_cnt);
1080: END IF;
1075: x_formatted_address_tbl => x_formatted_address_tbl) ;
1076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1077: /* assign address values to l_addr_values_array list */
1078:
1079: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'x_formatted_lines_cnt:'|| x_formatted_lines_cnt);
1080: END IF;
1081:
1082:
1083: IF x_formatted_lines_cnt > 0 THEN
1088: EXIT;
1089: END IF;
1090: END LOOP;
1091: END IF;
1092: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1093: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Before adding HZ_LOCATIONS to PL/SQL tables');
1094: END IF;
1095: /* Assigning the values to global PL/SQL table */
1096: g_address_details(l_table_count).addr_data_1 := l_addr_values_array(1);
1089: END IF;
1090: END LOOP;
1091: END IF;
1092: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1093: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Before adding HZ_LOCATIONS to PL/SQL tables');
1094: END IF;
1095: /* Assigning the values to global PL/SQL table */
1096: g_address_details(l_table_count).addr_data_1 := l_addr_values_array(1);
1097: g_address_details(l_table_count).addr_data_2 := l_addr_values_array(2);
1112: g_address_details(l_table_count).addr_data_17 := l_addr_values_array(17);
1113: g_address_details(l_table_count).addr_data_18 := l_addr_values_array(18);
1114: g_address_details(l_table_count).addr_data_19 := l_addr_values_array(19);
1115: g_address_details(l_table_count).addr_data_20 := l_addr_values_array(20);
1116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'After adding HZ_LOCATIONS to PL/SQL tables');
1118: END IF;
1119:
1120: END IF;
1113: g_address_details(l_table_count).addr_data_18 := l_addr_values_array(18);
1114: g_address_details(l_table_count).addr_data_19 := l_addr_values_array(19);
1115: g_address_details(l_table_count).addr_data_20 := l_addr_values_array(20);
1116: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1117: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'After adding HZ_LOCATIONS to PL/SQL tables');
1118: END IF;
1119:
1120: END IF;
1121:
1120: END IF;
1121:
1122: Exception
1123: WHEN OTHERS then
1124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1125: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Exception in retrieving data from HZ_LOCATIONS');
1126: END IF;
1127: x_address_line_1 := '';
1128: x_address_line_2 := '';
1121:
1122: Exception
1123: WHEN OTHERS then
1124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1125: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,c_log_head, l_api_name ||'Exception in retrieving data from HZ_LOCATIONS');
1126: END IF;
1127: x_address_line_1 := '';
1128: x_address_line_2 := '';
1129: x_address_line_3 := '';
1179: l_count number := 0;
1180: begin
1181:
1182: l_count := g_address_details.count ;
1183: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1184: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'populate_gt Before inserting values in global temp table');
1185: END IF;
1186: FOR i IN 1..l_count LOOP
1187: INSERT INTO po_address_details_gt
1180: begin
1181:
1182: l_count := g_address_details.count ;
1183: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1184: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'populate_gt Before inserting values in global temp table');
1185: END IF;
1186: FOR i IN 1..l_count LOOP
1187: INSERT INTO po_address_details_gt
1188: (location_id,
1270: g_address_details(i).addr_data_18,
1271: g_address_details(i).addr_data_19,
1272: g_address_details(i).addr_data_20);
1273: end loop;
1274: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1275: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'populate_gt: After inserting values in global temp table');
1276: END IF;
1277:
1278: g_address_details.delete;
1271: g_address_details(i).addr_data_19,
1272: g_address_details(i).addr_data_20);
1273: end loop;
1274: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1275: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'populate_gt: After inserting values in global temp table');
1276: END IF;
1277:
1278: g_address_details.delete;
1279:
1278: g_address_details.delete;
1279:
1280: EXCEPTION
1281: WHEN OTHERS THEN
1282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'populate_gt: Error while inserting values in global temp table');
1284: END IF;
1285: end;
1286:
1279:
1280: EXCEPTION
1281: WHEN OTHERS THEN
1282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1283: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'populate_gt: Error while inserting values in global temp table');
1284: END IF;
1285: end;
1286:
1287: -----------------------------------------------------------
1314: l_postal_code Varchar2(240) := '';
1315: l_state_or_province Varchar2(240) := '';
1316:
1317: BEGIN
1318: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1319: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Call the get_address procedure');
1320: END IF;
1321: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1322: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Location Id: '|| p_location_id);
1315: l_state_or_province Varchar2(240) := '';
1316:
1317: BEGIN
1318: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1319: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Call the get_address procedure');
1320: END IF;
1321: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1322: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Location Id: '|| p_location_id);
1323: END IF;
1317: BEGIN
1318: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1319: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Call the get_address procedure');
1320: END IF;
1321: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1322: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Location Id: '|| p_location_id);
1323: END IF;
1324:
1325: get_address
1318: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1319: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Call the get_address procedure');
1320: END IF;
1321: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1322: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION', 'Location Id: '|| p_location_id);
1323: END IF;
1324:
1325: get_address
1326: (p_location_id => p_location_id,
1351:
1352: l_address_lines := l_address_line_1 || ', ' || l_address_line_2 ||
1353: l_address_line_3 || l_address_line_4;
1354: l_formatted_address := substrb(l_address_lines || l_address_info || ', '|| l_territory, 1,2000);
1355: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1356: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION',
1357: 'Complete address: '|| l_formatted_address);
1358: END IF;
1359:
1352: l_address_lines := l_address_line_1 || ', ' || l_address_line_2 ||
1353: l_address_line_3 || l_address_line_4;
1354: l_formatted_address := substrb(l_address_lines || l_address_info || ', '|| l_territory, 1,2000);
1355: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1356: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PO_HR_LOCATION',
1357: 'Complete address: '|| l_formatted_address);
1358: END IF;
1359:
1360: Return l_formatted_address;
1360: Return l_formatted_address;
1361:
1362: Exception
1363: When Others then
1364: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1365: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,'PO_HR_LOCATION','Error in Retrieving address');
1366: END IF;
1367: l_formatted_address := null;
1368: END;
1361:
1362: Exception
1363: When Others then
1364: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1365: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,'PO_HR_LOCATION','Error in Retrieving address');
1366: END IF;
1367: l_formatted_address := null;
1368: END;
1369: