4: -----------------------------------------------------------------------------
5: -- Change History
6: -- Who When What
7: --sbaliga 8-Apr-02 Modified package to reflect datamodel changes in
8: -- IGS_HE_ST_PROG_ALL and IGS_HE_POOUS_ALL tables
9: -- as part of #2278825.
10: -- rshergil 03-Jan-02 Created Package to rollover Program
11: -- Version information relating to
12: -- 1.UK Statistics - Program details
10: -- rshergil 03-Jan-02 Created Package to rollover Program
11: -- Version information relating to
12: -- 1.UK Statistics - Program details
13: -- 2.Program Offering Option Unit Set HESA Details
14: -- smaddali 20-Aug-03 Modified procedure for hefd208 bug#2717751 to add funding_source column to igs_he_poous_all tbh call
15: -- ayedubat 28-Aug-03 Created a new procedure, create_prg_cc_rec to copy the Hesa
16: -- Statistic Cost Center Details for HE207 Enhancement bug, 2717753
17: -- jbaber 25-Jan-05 Modified for HE355 - Org Unit Cost Center Link
18: -- jbaber 24-Nov-05 Included exclude_flag column for HE305
47: gv_hsp_new_rec gc_hsp_new_rec%ROWTYPE;
48:
49: CURSOR gc_hpus_old_rec IS
50: SELECT *
51: FROM igs_he_poous_all
52: WHERE course_cd = p_old_course_cd
53: AND crv_version_number = p_old_version_number;
54: gv_hpus_old_rec gc_hpus_old_rec%ROWTYPE;
55:
52: WHERE course_cd = p_old_course_cd
53: AND crv_version_number = p_old_version_number;
54: gv_hpus_old_rec gc_hpus_old_rec%ROWTYPE;
55:
56: CURSOR gc_hpus_new_rec (p_cal_type igs_he_poous.cal_type%TYPE,
57: p_location_cd igs_he_poous.location_cd%TYPE,
58: p_attendance_mode igs_he_poous.attendance_mode%TYPE,
59: p_attendance_type igs_he_poous.attendance_type%TYPE,
60: p_unit_set_cd igs_he_poous.unit_set_cd%TYPE,
53: AND crv_version_number = p_old_version_number;
54: gv_hpus_old_rec gc_hpus_old_rec%ROWTYPE;
55:
56: CURSOR gc_hpus_new_rec (p_cal_type igs_he_poous.cal_type%TYPE,
57: p_location_cd igs_he_poous.location_cd%TYPE,
58: p_attendance_mode igs_he_poous.attendance_mode%TYPE,
59: p_attendance_type igs_he_poous.attendance_type%TYPE,
60: p_unit_set_cd igs_he_poous.unit_set_cd%TYPE,
61: p_us_version_number igs_he_poous.us_version_number%TYPE)
54: gv_hpus_old_rec gc_hpus_old_rec%ROWTYPE;
55:
56: CURSOR gc_hpus_new_rec (p_cal_type igs_he_poous.cal_type%TYPE,
57: p_location_cd igs_he_poous.location_cd%TYPE,
58: p_attendance_mode igs_he_poous.attendance_mode%TYPE,
59: p_attendance_type igs_he_poous.attendance_type%TYPE,
60: p_unit_set_cd igs_he_poous.unit_set_cd%TYPE,
61: p_us_version_number igs_he_poous.us_version_number%TYPE)
62: IS
55:
56: CURSOR gc_hpus_new_rec (p_cal_type igs_he_poous.cal_type%TYPE,
57: p_location_cd igs_he_poous.location_cd%TYPE,
58: p_attendance_mode igs_he_poous.attendance_mode%TYPE,
59: p_attendance_type igs_he_poous.attendance_type%TYPE,
60: p_unit_set_cd igs_he_poous.unit_set_cd%TYPE,
61: p_us_version_number igs_he_poous.us_version_number%TYPE)
62: IS
63: SELECT hesa_poous_id
56: CURSOR gc_hpus_new_rec (p_cal_type igs_he_poous.cal_type%TYPE,
57: p_location_cd igs_he_poous.location_cd%TYPE,
58: p_attendance_mode igs_he_poous.attendance_mode%TYPE,
59: p_attendance_type igs_he_poous.attendance_type%TYPE,
60: p_unit_set_cd igs_he_poous.unit_set_cd%TYPE,
61: p_us_version_number igs_he_poous.us_version_number%TYPE)
62: IS
63: SELECT hesa_poous_id
64: FROM igs_he_poous_all
57: p_location_cd igs_he_poous.location_cd%TYPE,
58: p_attendance_mode igs_he_poous.attendance_mode%TYPE,
59: p_attendance_type igs_he_poous.attendance_type%TYPE,
60: p_unit_set_cd igs_he_poous.unit_set_cd%TYPE,
61: p_us_version_number igs_he_poous.us_version_number%TYPE)
62: IS
63: SELECT hesa_poous_id
64: FROM igs_he_poous_all
65: WHERE course_cd = p_new_course_cd
60: p_unit_set_cd igs_he_poous.unit_set_cd%TYPE,
61: p_us_version_number igs_he_poous.us_version_number%TYPE)
62: IS
63: SELECT hesa_poous_id
64: FROM igs_he_poous_all
65: WHERE course_cd = p_new_course_cd
66: AND crv_version_number = p_new_version_number
67: AND cal_type = p_cal_type
68: AND location_cd = p_location_cd
73: gv_hpus_new_rec gc_hpus_new_rec%ROWTYPE;
74:
75: CURSOR gc_hpo_old_rec
76: IS SELECT *
77: FROM igs_he_poous_ou_all
78: WHERE course_cd = p_old_course_cd
79: AND crv_version_number = p_old_version_number ;
80: gv_hpo_old_rec gc_hpo_old_rec%ROWTYPE;
81:
78: WHERE course_cd = p_old_course_cd
79: AND crv_version_number = p_old_version_number ;
80: gv_hpo_old_rec gc_hpo_old_rec%ROWTYPE;
81:
82: CURSOR gc_hpo_new_rec (p_cal_type igs_he_poous_ou.cal_type%TYPE,
83: p_location_cd igs_he_poous_ou.location_cd%TYPE,
84: p_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
85: p_attendance_type igs_he_poous_ou.attendance_type%TYPE,
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
79: AND crv_version_number = p_old_version_number ;
80: gv_hpo_old_rec gc_hpo_old_rec%ROWTYPE;
81:
82: CURSOR gc_hpo_new_rec (p_cal_type igs_he_poous_ou.cal_type%TYPE,
83: p_location_cd igs_he_poous_ou.location_cd%TYPE,
84: p_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
85: p_attendance_type igs_he_poous_ou.attendance_type%TYPE,
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
87: p_us_version_number igs_he_poous_ou.us_version_number%TYPE,
80: gv_hpo_old_rec gc_hpo_old_rec%ROWTYPE;
81:
82: CURSOR gc_hpo_new_rec (p_cal_type igs_he_poous_ou.cal_type%TYPE,
83: p_location_cd igs_he_poous_ou.location_cd%TYPE,
84: p_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
85: p_attendance_type igs_he_poous_ou.attendance_type%TYPE,
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
87: p_us_version_number igs_he_poous_ou.us_version_number%TYPE,
88: p_organization_unit igs_he_poous_ou.organization_unit%TYPE)
81:
82: CURSOR gc_hpo_new_rec (p_cal_type igs_he_poous_ou.cal_type%TYPE,
83: p_location_cd igs_he_poous_ou.location_cd%TYPE,
84: p_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
85: p_attendance_type igs_he_poous_ou.attendance_type%TYPE,
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
87: p_us_version_number igs_he_poous_ou.us_version_number%TYPE,
88: p_organization_unit igs_he_poous_ou.organization_unit%TYPE)
89: IS SELECT hesa_poous_ou_id
82: CURSOR gc_hpo_new_rec (p_cal_type igs_he_poous_ou.cal_type%TYPE,
83: p_location_cd igs_he_poous_ou.location_cd%TYPE,
84: p_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
85: p_attendance_type igs_he_poous_ou.attendance_type%TYPE,
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
87: p_us_version_number igs_he_poous_ou.us_version_number%TYPE,
88: p_organization_unit igs_he_poous_ou.organization_unit%TYPE)
89: IS SELECT hesa_poous_ou_id
90: FROM igs_he_poous_ou_all
83: p_location_cd igs_he_poous_ou.location_cd%TYPE,
84: p_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
85: p_attendance_type igs_he_poous_ou.attendance_type%TYPE,
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
87: p_us_version_number igs_he_poous_ou.us_version_number%TYPE,
88: p_organization_unit igs_he_poous_ou.organization_unit%TYPE)
89: IS SELECT hesa_poous_ou_id
90: FROM igs_he_poous_ou_all
91: WHERE course_cd = p_new_course_cd
84: p_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
85: p_attendance_type igs_he_poous_ou.attendance_type%TYPE,
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
87: p_us_version_number igs_he_poous_ou.us_version_number%TYPE,
88: p_organization_unit igs_he_poous_ou.organization_unit%TYPE)
89: IS SELECT hesa_poous_ou_id
90: FROM igs_he_poous_ou_all
91: WHERE course_cd = p_new_course_cd
92: AND crv_version_number = p_new_version_number
86: p_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
87: p_us_version_number igs_he_poous_ou.us_version_number%TYPE,
88: p_organization_unit igs_he_poous_ou.organization_unit%TYPE)
89: IS SELECT hesa_poous_ou_id
90: FROM igs_he_poous_ou_all
91: WHERE course_cd = p_new_course_cd
92: AND crv_version_number = p_new_version_number
93: AND cal_type = p_cal_type
94: AND location_cd = p_location_cd
259:
260: END create_prg_cc_rec;
261:
262:
263: --Procedure inserts into IGS_HE_POOUS_ALL table
264:
265: PROCEDURE cr_he_poo_us_rec (p_new_course_cd igs_he_poous.course_cd%TYPE,
266: p_new_version_number igs_he_poous.crv_version_number%TYPE) IS
267:
261:
262:
263: --Procedure inserts into IGS_HE_POOUS_ALL table
264:
265: PROCEDURE cr_he_poo_us_rec (p_new_course_cd igs_he_poous.course_cd%TYPE,
266: p_new_version_number igs_he_poous.crv_version_number%TYPE) IS
267:
268: BEGIN
269:
262:
263: --Procedure inserts into IGS_HE_POOUS_ALL table
264:
265: PROCEDURE cr_he_poo_us_rec (p_new_course_cd igs_he_poous.course_cd%TYPE,
266: p_new_version_number igs_he_poous.crv_version_number%TYPE) IS
267:
268: BEGIN
269:
270: DECLARE
267:
268: BEGIN
269:
270: DECLARE
271: v_poous_seq_num IGS_HE_POOUS.hesa_poous_id%TYPE;
272:
273: CURSOR c_poous_seq_num IS
274: SELECT igs_he_poous_all_s.NEXTVAL
275: FROM dual;
270: DECLARE
271: v_poous_seq_num IGS_HE_POOUS.hesa_poous_id%TYPE;
272:
273: CURSOR c_poous_seq_num IS
274: SELECT igs_he_poous_all_s.NEXTVAL
275: FROM dual;
276:
277: l_org_id NUMBER(15);
278: x_rowid VARCHAR2(250);
285:
286: x_rowid := NULL;
287: l_org_id := igs_ge_gen_003.get_org_id;
288:
289: igs_he_poous_all_pkg.insert_row(
290: X_ROWID => x_rowid,
291: X_ORG_ID => l_org_id,
292: X_HESA_POOUS_ID => v_poous_seq_num,
293: X_COURSE_CD => p_new_course_cd,
368: poo.organization_unit,
369: pcc.cost_centre,
370: pcc.subject,
371: pcc.proportion
372: FROM IGS_HE_POOUS_OU_CC pcc,
373: IGS_HE_POOUS_OU_ALL poo
374: WHERE
375: pcc.hesa_poous_ou_id = poo.hesa_poous_ou_id
376: AND poo.course_cd = p_old_course_cd
369: pcc.cost_centre,
370: pcc.subject,
371: pcc.proportion
372: FROM IGS_HE_POOUS_OU_CC pcc,
373: IGS_HE_POOUS_OU_ALL poo
374: WHERE
375: pcc.hesa_poous_ou_id = poo.hesa_poous_ou_id
376: AND poo.course_cd = p_old_course_cd
377: AND poo.crv_version_number = p_old_version_number;
376: AND poo.course_cd = p_old_course_cd
377: AND poo.crv_version_number = p_old_version_number;
378:
379:
380: CURSOR get_new_poous_ou_id (cp_cal_type igs_he_poous_ou.cal_type%TYPE,
381: cp_location_cd igs_he_poous_ou.location_cd%TYPE,
382: cp_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
383: cp_attendance_type igs_he_poous_ou.attendance_type%TYPE,
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
377: AND poo.crv_version_number = p_old_version_number;
378:
379:
380: CURSOR get_new_poous_ou_id (cp_cal_type igs_he_poous_ou.cal_type%TYPE,
381: cp_location_cd igs_he_poous_ou.location_cd%TYPE,
382: cp_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
383: cp_attendance_type igs_he_poous_ou.attendance_type%TYPE,
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
385: cp_us_version_number igs_he_poous_ou.us_version_number%TYPE,
378:
379:
380: CURSOR get_new_poous_ou_id (cp_cal_type igs_he_poous_ou.cal_type%TYPE,
381: cp_location_cd igs_he_poous_ou.location_cd%TYPE,
382: cp_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
383: cp_attendance_type igs_he_poous_ou.attendance_type%TYPE,
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
385: cp_us_version_number igs_he_poous_ou.us_version_number%TYPE,
386: cp_organization_unit igs_he_poous_ou.organization_unit%TYPE) IS
379:
380: CURSOR get_new_poous_ou_id (cp_cal_type igs_he_poous_ou.cal_type%TYPE,
381: cp_location_cd igs_he_poous_ou.location_cd%TYPE,
382: cp_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
383: cp_attendance_type igs_he_poous_ou.attendance_type%TYPE,
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
385: cp_us_version_number igs_he_poous_ou.us_version_number%TYPE,
386: cp_organization_unit igs_he_poous_ou.organization_unit%TYPE) IS
387: SELECT hesa_poous_ou_id
380: CURSOR get_new_poous_ou_id (cp_cal_type igs_he_poous_ou.cal_type%TYPE,
381: cp_location_cd igs_he_poous_ou.location_cd%TYPE,
382: cp_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
383: cp_attendance_type igs_he_poous_ou.attendance_type%TYPE,
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
385: cp_us_version_number igs_he_poous_ou.us_version_number%TYPE,
386: cp_organization_unit igs_he_poous_ou.organization_unit%TYPE) IS
387: SELECT hesa_poous_ou_id
388: FROM IGS_HE_POOUS_OU_ALL
381: cp_location_cd igs_he_poous_ou.location_cd%TYPE,
382: cp_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
383: cp_attendance_type igs_he_poous_ou.attendance_type%TYPE,
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
385: cp_us_version_number igs_he_poous_ou.us_version_number%TYPE,
386: cp_organization_unit igs_he_poous_ou.organization_unit%TYPE) IS
387: SELECT hesa_poous_ou_id
388: FROM IGS_HE_POOUS_OU_ALL
389: WHERE
382: cp_attendance_mode igs_he_poous_ou.attendance_mode%TYPE,
383: cp_attendance_type igs_he_poous_ou.attendance_type%TYPE,
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
385: cp_us_version_number igs_he_poous_ou.us_version_number%TYPE,
386: cp_organization_unit igs_he_poous_ou.organization_unit%TYPE) IS
387: SELECT hesa_poous_ou_id
388: FROM IGS_HE_POOUS_OU_ALL
389: WHERE
390: course_cd = p_new_course_cd
384: cp_unit_set_cd igs_he_poous_ou.unit_set_cd%TYPE,
385: cp_us_version_number igs_he_poous_ou.us_version_number%TYPE,
386: cp_organization_unit igs_he_poous_ou.organization_unit%TYPE) IS
387: SELECT hesa_poous_ou_id
388: FROM IGS_HE_POOUS_OU_ALL
389: WHERE
390: course_cd = p_new_course_cd
391: AND crv_version_number = p_new_version_number
392: AND cal_type = cp_cal_type
398: AND organization_unit = cp_organization_unit;
399:
400:
401:
402: CURSOR get_new_poous_cc_dtls_cur (cp_poous_ou_id igs_he_poous_ou_cc.hesa_poous_ou_id%TYPE,
403: cp_cost_centre igs_he_poous_ou_cc.cost_centre%TYPE,
404: cp_subject igs_he_poous_ou_cc.subject%TYPE) IS
405: SELECT 'X'
406: FROM IGS_HE_POOUS_OU_CC
399:
400:
401:
402: CURSOR get_new_poous_cc_dtls_cur (cp_poous_ou_id igs_he_poous_ou_cc.hesa_poous_ou_id%TYPE,
403: cp_cost_centre igs_he_poous_ou_cc.cost_centre%TYPE,
404: cp_subject igs_he_poous_ou_cc.subject%TYPE) IS
405: SELECT 'X'
406: FROM IGS_HE_POOUS_OU_CC
407: WHERE
400:
401:
402: CURSOR get_new_poous_cc_dtls_cur (cp_poous_ou_id igs_he_poous_ou_cc.hesa_poous_ou_id%TYPE,
403: cp_cost_centre igs_he_poous_ou_cc.cost_centre%TYPE,
404: cp_subject igs_he_poous_ou_cc.subject%TYPE) IS
405: SELECT 'X'
406: FROM IGS_HE_POOUS_OU_CC
407: WHERE
408: hesa_poous_ou_id = cp_poous_ou_id
402: CURSOR get_new_poous_cc_dtls_cur (cp_poous_ou_id igs_he_poous_ou_cc.hesa_poous_ou_id%TYPE,
403: cp_cost_centre igs_he_poous_ou_cc.cost_centre%TYPE,
404: cp_subject igs_he_poous_ou_cc.subject%TYPE) IS
405: SELECT 'X'
406: FROM IGS_HE_POOUS_OU_CC
407: WHERE
408: hesa_poous_ou_id = cp_poous_ou_id
409: AND cost_centre = cp_cost_centre
410: AND subject = cp_subject;
409: AND cost_centre = cp_cost_centre
410: AND subject = cp_subject;
411:
412: l_new_poous_cc_dtls_rec get_new_poous_cc_dtls_cur%ROWTYPE;
413: l_new_poous_ou_id igs_he_poous_ou_all.hesa_poous_ou_id%TYPE;
414:
415: x_rowid VARCHAR2(250);
416: x_hesa_poous_cc_id igs_he_poous_ou_cc.hesa_poous_cc_id%TYPE;
417:
412: l_new_poous_cc_dtls_rec get_new_poous_cc_dtls_cur%ROWTYPE;
413: l_new_poous_ou_id igs_he_poous_ou_all.hesa_poous_ou_id%TYPE;
414:
415: x_rowid VARCHAR2(250);
416: x_hesa_poous_cc_id igs_he_poous_ou_cc.hesa_poous_cc_id%TYPE;
417:
418: BEGIN
419:
420: FOR l_old_poous_cc_dtls_rec IN get_old_poous_cc_dtls_cur
437:
438: x_rowid := NULL;
439: x_hesa_poous_cc_id := NULL;
440:
441: igs_he_poous_ou_cc_pkg.insert_row(
442: X_ROWID => x_rowid,
443: X_HESA_POOUS_CC_ID => x_hesa_poous_cc_id,
444: X_HESA_POOUS_OU_ID => l_new_poous_ou_id,
445: X_COST_CENTRE => l_old_poous_cc_dtls_rec.cost_centre,
467:
468: END create_poous_cc_rec;
469:
470:
471: --Procedure inserts into IGS_HE_POOUS_OU_ALL table
472:
473: PROCEDURE cr_he_poo_ou_rec (p_new_course_cd igs_he_poous_ou.course_cd%TYPE,
474: p_new_version_number igs_he_poous_ou.crv_version_number%TYPE) IS
475:
469:
470:
471: --Procedure inserts into IGS_HE_POOUS_OU_ALL table
472:
473: PROCEDURE cr_he_poo_ou_rec (p_new_course_cd igs_he_poous_ou.course_cd%TYPE,
474: p_new_version_number igs_he_poous_ou.crv_version_number%TYPE) IS
475:
476: BEGIN
477:
470:
471: --Procedure inserts into IGS_HE_POOUS_OU_ALL table
472:
473: PROCEDURE cr_he_poo_ou_rec (p_new_course_cd igs_he_poous_ou.course_cd%TYPE,
474: p_new_version_number igs_he_poous_ou.crv_version_number%TYPE) IS
475:
476: BEGIN
477:
478: DECLARE
476: BEGIN
477:
478: DECLARE
479:
480: v_pooou_seq_num igs_he_poous_ou.hesa_poous_ou_id%TYPE;
481:
482:
483: CURSOR c_pooou_seq_num IS
484: SELECT igs_he_poous_ou_all_s.NEXTVAL
480: v_pooou_seq_num igs_he_poous_ou.hesa_poous_ou_id%TYPE;
481:
482:
483: CURSOR c_pooou_seq_num IS
484: SELECT igs_he_poous_ou_all_s.NEXTVAL
485: FROM dual;
486:
487: l_org_id NUMBER;
488: x_rowid VARCHAR2(250);
496: l_org_id := igs_ge_gen_003.get_org_id;
497: x_rowid := NULL;
498:
499:
500: igs_he_poous_ou_all_pkg.insert_row(
501: X_ROWID => x_rowid,
502: X_HESA_POOUS_OU_ID => v_pooou_seq_num,
503: X_ORG_ID => l_org_id,
504: X_COURSE_CD => p_new_course_cd,
565: -- defined at Program Version Level
566: create_prg_cc_rec(p_old_course_cd, p_old_version_number, p_new_course_cd, p_new_version_number );
567:
568:
569: -- If IGS_HE_POOUS record does not already exist for new course code and version then call
570: -- the procedure to insert IGS_HE_POOUS records
571: OPEN gc_hpus_old_rec;
572: LOOP
573: FETCH gc_hpus_old_rec INTO gv_hpus_old_rec;
566: create_prg_cc_rec(p_old_course_cd, p_old_version_number, p_new_course_cd, p_new_version_number );
567:
568:
569: -- If IGS_HE_POOUS record does not already exist for new course code and version then call
570: -- the procedure to insert IGS_HE_POOUS records
571: OPEN gc_hpus_old_rec;
572: LOOP
573: FETCH gc_hpus_old_rec INTO gv_hpus_old_rec;
574: EXIT WHEN gc_hpus_old_rec%NOTFOUND;
587: END LOOP;
588: CLOSE gc_hpus_old_rec;
589:
590:
591: -- if IGS_HE_POOUS_OU record does not exist for new course code and version then call the procedure to insert IGS_HE_POOUS_OU records
592:
593: OPEN gc_hpo_old_rec;
594: LOOP
595: FETCH gc_hpo_old_rec INTO gv_hpo_old_rec;