789: -- MODIFICATION HISTORY
790: -- Person Date Comments
791: -- --------- -------- ------------------------------------------
792: -- MSONTER 27/08/98 Initial creation of function
793: FUNCTION repp_get_curr_cal( p_s_cal_cat IN IGS_CA_TYPE.s_cal_cat%TYPE,
794: p_cal OUT NOCOPY VARCHAR2)
795: RETURN BOOLEAN
796: AS
797: --
795: RETURN BOOLEAN
796: AS
797: --
798: -- Local Cursors
799: CURSOR c_cal(cp_s_cal_cat IN IGS_CA_TYPE.s_cal_cat%TYPE)
800: IS
801: SELECT RPAD(RPAD(NVL(ci.alternate_code, ci.cal_type), 10) || ' ' ||
802: IGS_GE_DATE.igschar(ci.start_dt) || ' - ' ||
803: IGS_GE_DATE.igschar(ci.end_dt) || ' ' || ct.abbreviation, 100) ||
802: IGS_GE_DATE.igschar(ci.start_dt) || ' - ' ||
803: IGS_GE_DATE.igschar(ci.end_dt) || ' ' || ct.abbreviation, 100) ||
804: RPAD(ci.cal_type, 10) ||
805: TO_CHAR(ci.sequence_number, '999990') cal_desc
806: FROM IGS_CA_TYPE ct,
807: IGS_CA_INST ci,
808: IGS_CA_STAT cs
809: WHERE ct.s_cal_cat = cp_s_cal_cat AND
810: ci.cal_type = ct.cal_type AND
840: P_cal := v_cal;
841: RETURN TRUE;
842: END; --repp_get_curr_cal
843: -- Module: repp_get_nomin_cal
844: -- Purpose: return of nominated calendar for given IGS_CA_TYPE/sequence_number
845: --
846: -- MODIFICATION HISTORY
847: -- Person Date Comments
848: -- --------- -------- ------------------------------------------
846: -- MODIFICATION HISTORY
847: -- Person Date Comments
848: -- --------- -------- ------------------------------------------
849: -- MSONTER 27/08/98 Initial creation of function
850: FUNCTION repp_get_nomin_cal( p_cal_type IN IGS_CA_TYPE.cal_type%TYPE,
851: p_seq_num IN IGS_CA_INST_ALL.sequence_number%TYPE,
852: p_cal OUT NOCOPY VARCHAR2)
853: RETURN BOOLEAN
854: AS
853: RETURN BOOLEAN
854: AS
855: --
856: -- Local Cursors
857: CURSOR c_cal(cp_cal_type IN IGS_CA_TYPE.cal_type%TYPE,
858: cp_seq_num IN IGS_CA_INST.sequence_number%TYPE)
859: IS
860: SELECT RPAD(RPAD(NVL(ci.alternate_code, ci.cal_type), 10) || ' ' ||
861: IGS_GE_DATE.igschar(ci.start_dt) || ' - ' ||
861: IGS_GE_DATE.igschar(ci.start_dt) || ' - ' ||
862: IGS_GE_DATE.igschar(ci.end_dt) || ' ' || ct.abbreviation, 100) ||
863: RPAD(ci.cal_type, 10) ||
864: TO_CHAR(ci.sequence_number, '999990') cal_desc
865: FROM IGS_CA_TYPE ct,
866: IGS_CA_INST ci
867: WHERE ct.cal_type = cp_cal_type AND
868: ci.cal_type = ct.cal_type AND
869: ci.sequence_number = cp_seq_num;
883: p_cal := v_cal;
884: RETURN TRUE;
885: END; --repp_get_nomin_cal
886: -- Module: repp_get_cal_str
887: -- Purpose: return of nominated calendar for given IGS_CA_TYPE/sequence_number
888: -- used in select statements
889: -- MODIFICATION HISTORY
890: -- Person Date Comments
891: -- --------- -------- ------------------------------------------
889: -- MODIFICATION HISTORY
890: -- Person Date Comments
891: -- --------- -------- ------------------------------------------
892: -- MSONTER 27/08/98 Initial creation of function
893: FUNCTION repp_get_cal_str( p_cal_type IN IGS_CA_TYPE.cal_type%TYPE,
894: p_seq_num IN IGS_CA_INST_ALL.sequence_number%TYPE)
895: RETURN VARCHAR2
896: AS
897: --
895: RETURN VARCHAR2
896: AS
897: --
898: -- Local Cursors
899: CURSOR c_cal(cp_cal_type IN IGS_CA_TYPE.cal_type%TYPE,
900: cp_seq_num IN IGS_CA_INST.sequence_number%TYPE)
901: IS
902: SELECT RPAD(RPAD(NVL(ci.alternate_code, ci.cal_type), 10) || ' ' ||
903: IGS_GE_DATE.igschar(ci.start_dt) || ' - ' ||
903: IGS_GE_DATE.igschar(ci.start_dt) || ' - ' ||
904: IGS_GE_DATE.igschar(ci.end_dt) || ' ' || ct.abbreviation, 100) ||
905: RPAD(ci.cal_type, 10) ||
906: TO_CHAR(ci.sequence_number, '999990') cal_desc
907: FROM IGS_CA_TYPE ct,
908: IGS_CA_INST ci
909: WHERE ct.cal_type = cp_cal_type AND
910: ci.cal_type = ct.cal_type AND
911: ci.sequence_number = cp_seq_num;