*-- Procedure QCONEREC
*	Checks one database form at a time
*	Aliases of databases used
*		CHECKER
*			Contains the qc routines baseed on the corrosponding clicom 
*			element number
*		LISTR
*			List of the record elements that will be QCed, viking name
*			clicom name, clicom element no
*		FRECORDS
*			flag storage for the data records
*
*	Arrays Used
*		LaData
*			Data records of the current form are stored here
*	
*SETUP
PUBLIC ARRAY laPreRec[1,1]
PRIVATE temp1, temp2
PRIVATE lcCurField, lcFormNo, lcWhat, lcWhatF, lnFRecNoA
lcFormNo = FORMTYPE()
SELECT RECORDS
INDEX ON VRECPOS + SHIPCC TAG QCOR ADDITIVE
SET ORDER TO TAG QCOR OF gcDrvLoc + gcAQCVIK + "RR" + lcFormNo + ".CDX"
SCATTER TO laPreRec BLANK
SELECT FRECORDS
INDEX ON VRECPOS + SHIPCC TAG QCOFR ADDITIVE
SET ORDER TO TAG QCOFR OF gcDrvLoc + gcAQCVIK + "FR" + lcFormNo + ".CDX"
COUNT FOR SHIPCC = gcShipId to lnFRecNoA
SELECT RECORDS
IF EMPTY(RELATION(1))
SET RELATION TO records.vrecpos + records.shipcc INTO FRECORDS ADDITIVE
ENDIF
SELECT RECORDS
GO TOP
SELECT CHECKER
GO TOP
SELECT LISTR
GO TOP
SCAN && Start of loop FOR DBA LISTR
=Therm("The form is being QCed")
SCATTER MEMVAR
	* Start of loop for DBA CHECKER
	SELECT CHECKER
	SCAN FOR LISTR.ELENO = CHECKER.ELEM1
	SCATTER MEMVAR
		SELECT RECORDS
		SCAN FOR RECORDS.SHIPCC = gcShipId
		SCATTER MEMVAR
DO QCORCODE		
		SELECT RECORDS
*		SCATTER TO laPreRec
		ENDSCAN
	SELECT CHECKER	
	ENDSCAN
	* Start of loop for DBA CHECKER


SELECT LISTR
ENDSCAN &&End of loop FOR DBA LISTR
SELECT FRECORDS
COPY TO ARRAY LaDataF FOR shipcc = gcShipId
RETURN