TransBannerEndScript = AOR_POSTT

BEGINSUB AOR_POSTT
*	------------------------------------------------------
*	End Transaction 
*	Insert new table row with metadata for archive 
*	from GVM variables and reference to uniquely named 
*	recipient print stream output. 
*	------------------------------------------------------
    IF #AOR_Debug 
       RPLogMsg(NL() & "  ** AOR_POSTT:" & NL() )
    END
    #AOR_PerBatch = #AOR_PerBatch
    AOR_BatchDir = AOR_BatchDir
    #AOR_Count = #AOR_Count
    #AOR_Debug = GETINIBOOL(,PRINTERID(),"AORDebug")
    AOR_TableName = AOR_TableName
    AOR_BatchID = AOR_BatchID
    AOR_TransID = AOR_TransID
    AOR_JobID   = AOR_JobID
*
*	Change to match variables defined in "rcbdfdfl.dfd"
*	as needed for the implementation*
*	Documaker Connector job processing fields example for UCM
    AORTABLERecord.JOBID    = AOR_JobID
    AORTABLERecord.BATCHID  = AOR_BatchID
    AORTABLERecord.TRANID   = AOR_TransID
    AORTABLERecord.DOCID    = AOR_FName 
*	TITLE required field by UCM 30 characters max, shows up in search results
    AORTABLERecord.TITLE    = AOR_TransID
*	ContentID/Name assigment
    AORTABLERecord.STATUSCD = 0
*	Documaker UCMImporter required field for specifying full name of 
*	file to import
    AORTABLERecord.PFILE    = DEVICENAME()
*	UCM required field has to exist in UCM pick list for types or 
*	will fail to import
    IF HAVEGVM("DOCTYPE")         AORTABLERecord.TYPE      = GVM("DOCTYPE") 
    END
*	UCM required field
    IF HAVEGVM("AUTHOR")
        AORTABLERecord.AUTHOR    = GVM("AUTHOR")
    END
*	UCM required field has to exist in UCM pick list for security groups or will * fail to import
    IF HAVEGVM("SECGROUP")
        AORTABLERecord.SECGROUP  = GVM("SECGROUP")
    END
*	UCM mapped custom meta-data, if doesn't exist as same exact name in UCM custom
*	fields it will not map but will not error. If UCM custom field was set as
*	required and no data is mapped UCM will fail transaction. * Truncates by default to the max
*	length of UCM data type.
    IF HAVEGVM("CABINET")
        AORTABLERecord.CABINET   = GVM("CABINET")
    END
    IF HAVEGVM("KEY1")
        AORTABLERecord.KEY1      = GVM("KEY1")
    END
    IF HAVEGVM("KEY2")
        AORTABLERecord.KEY2      = GVM("KEY2")
    END
    IF HAVEGVM("KEYID")
        AORTABLERecord.KEYID     = GVM("KEYID")
    END
    IF HAVEGVM("TRANCODE")
        AORTABLERecord.TRANCODE  = GVM("TRANCODE")
    END
    IF HAVEGVM("RUNDATE")
        AORTABLERecord.RUNDATE  = GVM("RUNDATE")
    END
    IF HAVEGVM("CURRUSER")
        AORTABLERecord.CURRUSER  = GVM("CURRUSER")
    END
    IF HAVEGVM("AGENCYID")
        AORTABLERecord.AGENCYID  = GVM("AGENCYID")
    END    
    IF HAVEGVM("EFFDATE")
        AORTABLERecord.EFFDATE  = GVM("EFFDATE")
        AORTABLERecord.TITLE    = AOR_TransID & "-" & GVM("EFFDATE")
    END
    IF HAVEGVM("EXPDATE")
        AORTABLERecord.EXPDATE  = GVM("EXPDATE")
    END
    IF HAVEGVM("CUSTID")
        AORTABLERecord.CUSTID  = GVM("CUSTID")
    END
    IF HAVEGVM("POLNUM")
        AORTABLERecord.POLNUM  = GVM("POLNUM")
    END
    IF HAVEGVM("INSFNAME")
        AORTABLERecord.INSFNAME  = GVM("INSFNAME")
    END
    IF HAVEGVM("INSLNAME")
        AORTABLERecord.INSLNAME  = GVM("INSLNAME")
    END
    IF HAVEGVM("INSADD1")
        AORTABLERecord.INSADD1  = GVM("INSADD1")
    END
    IF HAVEGVM("INSADD2")
        AORTABLERecord.INSADD2  = GVM("INSADD2")
    END
    IF HAVEGVM("INSCITY")
        AORTABLERecord.INSCITY  = GVM("INSCITY")
    END
    IF HAVEGVM("INSSTATE")
        AORTABLERecord.INSSTATE  = GVM("INSSTATE")
    END
    IF HAVEGVM("INSZIP")
        AORTABLERecord.INSZIP  = GVM("INSZIP")
    END
    IF HAVEGVM("INSPHONE")
        AORTABLERecord.INSPHONE  = GVM("INSPHONE")
    END
    IF HAVEGVM("INSDOB")
        AORTABLERecord.INSDOB  = GVM("INSDOB")
    END
    IF HAVEGVM("INDEX01")
        AORTABLERecord.INDEX01  = GVM("INDEX01")
    END
    IF HAVEGVM("INDEX02")
        AORTABLERecord.INDEX02  = GVM("INDEX02")
    END
    IF HAVEGVM("INDEX03")
        AORTABLERecord.INDEX03  = GVM("INDEX03")
    END
    IF HAVEGVM("INDEX04")
        AORTABLERecord.INDEX04  = GVM("INDEX04")
    END
    IF HAVEGVM("INDEX05")
        AORTABLERecord.INDEX05  = GVM("INDEX05")
    END
    IF HAVEGVM("INDEX06")
        AORTABLERecord.INDEX06  = GVM("INDEX06")
    END
    IF HAVEGVM("INDEX07")
        AORTABLERecord.INDEX07  = GVM("INDEX07")
    END
    IF HAVEGVM("INDEX08")
        AORTABLERecord.INDEX08  = GVM("INDEX08")
    END
    IF HAVEGVM("INDEX09")
        AORTABLERecord.INDEX09  = GVM("INDEX09")
    END
    IF HAVEGVM("INDEX10")
        AORTABLERecord.INDEX10  = GVM("INDEX10")
    END
    IF HAVEGVM("INDEX11")
        AORTABLERecord.INDEX11  = GVM("INDEX11")
    END
    IF HAVEGVM("INDEX12")
        AORTABLERecord.INDEX12  = GVM("INDEX12")
    END  
    #Rtn = DBADD(AOR_TableName,"AORTABLERecord")
ENDSUB