[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
11800: l_ctr := l_ctr + 1;
11801: l_inst_tbl(l_ctr) := instance_id_mig(i);
11802: l_srl_tbl(l_ctr) := serial_number_mig(i);
11803: --
11804: select CSI_ITEM_INSTANCES_H_S.nextval
11805: into l_inst_hist_tbl(l_ctr) from dual;
11806: END IF;
11807: --
11808: END LOOP;
11884: l_ctr := l_ctr + 1;
11885: l_inst_tbl(l_ctr) := instance_id_mig(i);
11886: l_lot_tbl(l_ctr) := lot_number_mig(i);
11887: --
11888: select CSI_ITEM_INSTANCES_H_S.nextval
11889: into l_inst_hist_tbl(l_ctr) from dual;
11890: END IF;
11891: END LOOP;
11892: --
11965: IF nvl(v_srl_ctl,1) = 1 THEN
11966: l_ctr := l_ctr + 1;
11967: l_inst_tbl(l_ctr) := instance_id_mig(i);
11968: --
11969: select CSI_ITEM_INSTANCES_H_S.nextval
11970: into l_inst_hist_tbl(l_ctr) from dual;
11971: END IF;
11972: END LOOP;
11973: IF l_inst_tbl.count > 0 THEN
12043: IF nvl(v_lot_ctl,1) = 1 THEN
12044: l_ctr := l_ctr + 1;
12045: l_inst_tbl(l_ctr) := instance_id_mig(i);
12046: --
12047: select CSI_ITEM_INSTANCES_H_S.nextval
12048: into l_inst_hist_tbl(l_ctr) from dual;
12049: END IF;
12050: END LOOP;
12051: --
12438: ,OBJECT_VERSION_NUMBER
12439: )
12440: VALUES
12441: (
12442: CSI_ITEM_INSTANCES_H_S.nextval
12443: ,v_txn_id
12444: ,v_instance_id
12445: ,SYSDATE
12446: ,SYSDATE
12577: Raise;
12578: End;
12579: -- Use the same instance record to create the history
12580: Begin
12581: select CSI_ITEM_INSTANCES_H_S.nextval
12582: into v_ins_history_id
12583: from DUAL;
12584: End;
12585: --
12920: ,OBJECT_VERSION_NUMBER
12921: )
12922: VALUES
12923: (
12924: CSI_ITEM_INSTANCES_H_S.nextval
12925: ,v_txn_id
12926: ,v_instance_id
12927: ,SYSDATE
12928: ,SYSDATE
13063: Raise;
13064: End;
13065: -- Use the same instance record to create the history
13066: Begin
13067: select CSI_ITEM_INSTANCES_H_S.nextval
13068: into v_ins_history_id
13069: from DUAL;
13070: End;
13071: --
13898: ,OBJECT_VERSION_NUMBER
13899: )
13900: VALUES
13901: (
13902: CSI_ITEM_INSTANCES_H_S.nextval
13903: ,v_txn_id
13904: ,v_instance_id
13905: ,v_ins_qty
13906: ,quantity_mig(i)
14088: Raise;
14089: End;
14090: -- Use the same instance record to create the history
14091: Begin
14092: select CSI_ITEM_INSTANCES_H_S.nextval
14093: into v_ins_history_id
14094: from DUAL;
14095: End;
14096: --
14682: ,OBJECT_VERSION_NUMBER
14683: )
14684: VALUES
14685: (
14686: CSI_ITEM_INSTANCES_H_S.nextval
14687: ,l_txn_id
14688: ,instance_id_mig(i)
14689: ,SYSDATE
14690: ,SYSDATE