Internal Routine: AOR_NEWFILE

BEGINSUB AOR_NEWFILE
*	------------------------------------------------------*   Create a new output file name. *   Called by Pre-Transaction DAL script.
*	------------------------------------------------------
    IF #AOR_Debug 
       RPLogMsg(NL() & "  ** AOR_NEWFILE:" & NL() ) 
    END
    AOR_Ext = GETINISTRING(,PRINTERID(), "AORExt", ".pdf")
    AOR_BatchDir = AOR_BatchDir
    CALL("AOR_NEWPATH")
    AOR_Drive = FILEDRIVE( AOR_BatchDir )
    AOR_Path = FILEPATH( AOR_BatchDir )
    AOR_Last = FILENAME( AOR_BatchDir )
    AOR_FName = UNIQUESTRING()
    AOR_NewFName=FULLFILENAME( AOR_Drive,AOR_Path & 
AOR_Last,AOR_FName,AOR_Ext)
    RETURN( AOR_NewFName )
ENDSUB