99: --Open and loop the Cursor to add the data to XML file
100: FOR v_row IN supplier_cur
101: LOOP
102: ln_row_count := ln_row_count + 1;
103: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
104: Ja_Cn_Utility.GV_TAG_TYPE_START);
105: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
106: v_row.supplier_number);
107: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
100: FOR v_row IN supplier_cur
101: LOOP
102: ln_row_count := ln_row_count + 1;
103: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
104: Ja_Cn_Utility.GV_TAG_TYPE_START);
105: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
106: v_row.supplier_number);
107: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
108: v_row.supplier_name);
101: LOOP
102: ln_row_count := ln_row_count + 1;
103: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
104: Ja_Cn_Utility.GV_TAG_TYPE_START);
105: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
106: v_row.supplier_number);
107: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
108: v_row.supplier_name);
109: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
103: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
104: Ja_Cn_Utility.GV_TAG_TYPE_START);
105: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
106: v_row.supplier_number);
107: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
108: v_row.supplier_name);
109: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
110: v_row.supplier_short_name);
111: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
105: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
106: v_row.supplier_number);
107: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
108: v_row.supplier_name);
109: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
110: v_row.supplier_short_name);
111: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
112: Ja_Cn_Utility.GV_TAG_TYPE_END);
113: END LOOP;
107: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
108: v_row.supplier_name);
109: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
110: v_row.supplier_short_name);
111: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
112: Ja_Cn_Utility.GV_TAG_TYPE_END);
113: END LOOP;
114:
115: -- To judge if the Cursor fetchs data. If the row count is 0 and the
108: v_row.supplier_name);
109: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
110: v_row.supplier_short_name);
111: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
112: Ja_Cn_Utility.GV_TAG_TYPE_END);
113: END LOOP;
114:
115: -- To judge if the Cursor fetchs data. If the row count is 0 and the
116: -- minOccurs=0 specified in xml schema, then need to handle it and raise exception
115: -- To judge if the Cursor fetchs data. If the row count is 0 and the
116: -- minOccurs=0 specified in xml schema, then need to handle it and raise exception
117: IF (ln_row_count = 0)
118: THEN
119: Ja_Cn_Utility.Print_No_Data_Found_For_Log('SUPPLIER_RECORD');
120:
121: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
122: Ja_Cn_Utility.GV_TAG_TYPE_START);
123: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
117: IF (ln_row_count = 0)
118: THEN
119: Ja_Cn_Utility.Print_No_Data_Found_For_Log('SUPPLIER_RECORD');
120:
121: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
122: Ja_Cn_Utility.GV_TAG_TYPE_START);
123: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
124: NULL);
125: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
118: THEN
119: Ja_Cn_Utility.Print_No_Data_Found_For_Log('SUPPLIER_RECORD');
120:
121: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
122: Ja_Cn_Utility.GV_TAG_TYPE_START);
123: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
124: NULL);
125: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
126: NULL);
119: Ja_Cn_Utility.Print_No_Data_Found_For_Log('SUPPLIER_RECORD');
120:
121: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
122: Ja_Cn_Utility.GV_TAG_TYPE_START);
123: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
124: NULL);
125: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
126: NULL);
127: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
121: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
122: Ja_Cn_Utility.GV_TAG_TYPE_START);
123: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
124: NULL);
125: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
126: NULL);
127: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
128: NULL);
129: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
123: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NUMBER',
124: NULL);
125: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
126: NULL);
127: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
128: NULL);
129: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
130: Ja_Cn_Utility.GV_TAG_TYPE_END);
131: END IF;
125: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_NAME',
126: NULL);
127: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
128: NULL);
129: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
130: Ja_Cn_Utility.GV_TAG_TYPE_END);
131: END IF;
132:
133: --logging for debug
126: NULL);
127: Ja_Cn_Utility.Add_Child_Node('SUPPLIER_SHORT_NAME',
128: NULL);
129: Ja_Cn_Utility.Add_Sub_Root_Node('SUPPLIER_RECORD',
130: Ja_Cn_Utility.GV_TAG_TYPE_END);
131: END IF;
132:
133: --logging for debug
134: IF (ln_proc_level >= ln_dbg_level)