[Home] [Help]
285: ,p_inst_hist_tbl IN OUT NOCOPY csi_diagnostics_pkg.T_NUM
286: ) IS
287: BEGIN
288: FOR i in p_inst_tbl.FIRST .. p_inst_tbl.LAST LOOP
289: select CSI_ITEM_INSTANCES_H_S.nextval
290: into p_inst_hist_tbl(i) from dual;
291: --
292: p_inst_rec_tab.INSTANCE_ID(i) := p_inst_tbl(i).INSTANCE_ID;
293: p_inst_rec_tab.INSTANCE_NUMBER(i) := p_inst_tbl(i).INSTANCE_NUMBER;
11400: --
11401: l_ctr := l_ctr + 1;
11402: l_inst_tbl(l_ctr) := instance_id_mig(i);
11403: --
11404: select CSI_ITEM_INSTANCES_H_S.nextval
11405: into l_inst_hist_tbl(l_ctr) from dual;
11406: --
11407: -- For this instance_id get the children
11408: l_child_tbl.DELETE;
11416: FOR rel_count in l_child_tbl.FIRST .. l_child_tbl.LAST LOOP
11417: l_ctr := l_ctr + 1;
11418: l_inst_tbl(l_ctr) := l_child_tbl(rel_count).subject_id;
11419: --
11420: select CSI_ITEM_INSTANCES_H_S.nextval
11421: into l_inst_hist_tbl(l_ctr) from dual;
11422: END LOOP;
11423: END IF;
11424: Exception
11799: l_ctr := l_ctr + 1;
11800: l_inst_tbl(l_ctr) := instance_id_mig(i);
11801: l_srl_tbl(l_ctr) := serial_number_mig(i);
11802: --
11803: select CSI_ITEM_INSTANCES_H_S.nextval
11804: into l_inst_hist_tbl(l_ctr) from dual;
11805: END IF;
11806: --
11807: END LOOP;
11883: l_ctr := l_ctr + 1;
11884: l_inst_tbl(l_ctr) := instance_id_mig(i);
11885: l_lot_tbl(l_ctr) := lot_number_mig(i);
11886: --
11887: select CSI_ITEM_INSTANCES_H_S.nextval
11888: into l_inst_hist_tbl(l_ctr) from dual;
11889: END IF;
11890: END LOOP;
11891: --
11964: IF nvl(v_srl_ctl,1) = 1 THEN
11965: l_ctr := l_ctr + 1;
11966: l_inst_tbl(l_ctr) := instance_id_mig(i);
11967: --
11968: select CSI_ITEM_INSTANCES_H_S.nextval
11969: into l_inst_hist_tbl(l_ctr) from dual;
11970: END IF;
11971: END LOOP;
11972: IF l_inst_tbl.count > 0 THEN
12041: IF nvl(v_lot_ctl,1) = 1 THEN
12042: l_ctr := l_ctr + 1;
12043: l_inst_tbl(l_ctr) := instance_id_mig(i);
12044: --
12045: select CSI_ITEM_INSTANCES_H_S.nextval
12046: into l_inst_hist_tbl(l_ctr) from dual;
12047: END IF;
12048: END LOOP;
12049: --
12433: ,OBJECT_VERSION_NUMBER
12434: )
12435: VALUES
12436: (
12437: CSI_ITEM_INSTANCES_H_S.nextval
12438: ,v_txn_id
12439: ,v_instance_id
12440: ,SYSDATE
12441: ,SYSDATE
12572: Raise;
12573: End;
12574: -- Use the same instance record to create the history
12575: Begin
12576: select CSI_ITEM_INSTANCES_H_S.nextval
12577: into v_ins_history_id
12578: from DUAL;
12579: End;
12580: --
12915: ,OBJECT_VERSION_NUMBER
12916: )
12917: VALUES
12918: (
12919: CSI_ITEM_INSTANCES_H_S.nextval
12920: ,v_txn_id
12921: ,v_instance_id
12922: ,SYSDATE
12923: ,SYSDATE
13058: Raise;
13059: End;
13060: -- Use the same instance record to create the history
13061: Begin
13062: select CSI_ITEM_INSTANCES_H_S.nextval
13063: into v_ins_history_id
13064: from DUAL;
13065: End;
13066: --
13893: ,OBJECT_VERSION_NUMBER
13894: )
13895: VALUES
13896: (
13897: CSI_ITEM_INSTANCES_H_S.nextval
13898: ,v_txn_id
13899: ,v_instance_id
13900: ,v_ins_qty
13901: ,quantity_mig(i)
14083: Raise;
14084: End;
14085: -- Use the same instance record to create the history
14086: Begin
14087: select CSI_ITEM_INSTANCES_H_S.nextval
14088: into v_ins_history_id
14089: from DUAL;
14090: End;
14091: --
14671: ,OBJECT_VERSION_NUMBER
14672: )
14673: VALUES
14674: (
14675: CSI_ITEM_INSTANCES_H_S.nextval
14676: ,l_txn_id
14677: ,instance_id_mig(i)
14678: ,SYSDATE
14679: ,SYSDATE