995: cz_upgrade.v_schema_version := 0;
996: RETURN cz_upgrade.v_schema_version;
997: END get_major_version;
998: ------------------------
999: ---------procedure that logs errors to cz_db_logs.
1000: PROCEDURE report_upgrade_logic_errors(p_from_schema VARCHAR2,
1001: p_to_schema VARCHAR2,
1002: p_lce_header_id NUMBER,
1003: p_err_message VARCHAR2,
1004: p_message_flag VARCHAR2
1005: )
1006: IS
1007: v_message VARCHAR2(4000);
1008: v_run_id cz_db_logs.run_id%TYPE;
1009: v_caller cz_db_logs.caller%TYPE;
1010:
1011: BEGIN
1012: SELECT cz_xfr_run_infos_s.nextval into v_run_id FROM dual;
1005: )
1006: IS
1007: v_message VARCHAR2(4000);
1008: v_run_id cz_db_logs.run_id%TYPE;
1009: v_caller cz_db_logs.caller%TYPE;
1010:
1011: BEGIN
1012: SELECT cz_xfr_run_infos_s.nextval into v_run_id FROM dual;
1013:
1019: ELSIF (p_message_flag = 'VERIFY_LOGIC') THEN
1020: v_caller := 'VERIFY_LOGIC';
1021: END IF;
1022:
1023: INSERT INTO cz_db_logs (LOGTIME,LOGUSER,URGENCY,CALLER,STATUSCODE,MESSAGE,CREATED_BY,CREATION_DATE,SESSION_ID
1024: ,MESSAGE_ID,RUN_ID)
1025: VALUES (sysdate,'upgrade_logic_user',1,v_caller,0,v_message,-1,sysdate,1,1,v_run_id);
1026: COMMIT;
1027: END report_upgrade_logic_errors;
1600: END LOOP;
1601: END IF;
1602:
1603: IF (x_error_status = -1) THEN
1604: x_logic_status := 'Verification logic has errors for some lce headers. Check cz_db_logs using the query select message from cZ_db_logs where caller = VERIFY_LOGIC';
1605: ELSE
1606: x_logic_status := 'Verification logic reported no errors';
1607: END IF;
1608: END verify_logic ;
1694:
1695: PROCEDURE REPORT(inMessage IN VARCHAR2, inUrgency IN PLS_INTEGER) IS
1696: BEGIN
1697:
1698: INSERT INTO cz_db_logs (message, statuscode, caller, urgency, run_id)
1699: VALUES (SUBSTR(inMessage, 1, 2000), nDebug, 'Rules Verification', inUrgency, thisRunId);
1700: COMMIT;
1701:
1702: EXCEPTION
3262: END IF;
3263: EXCEPTION
3264: WHEN OTHERS THEN
3265: l_message := SQLERRM;
3266: insert into cz_db_logs (LOGTIME,message,caller)
3267: values (sysdate,l_message,'PBVISIONMODELS');
3268: commit;
3269: END;
3270: --------------------------------------------------------------------------------------