Function Post_Metrology_Manual_Data_Entry_Log(Username, DataType, RDSKeyID)

$insert LOGICAL
Equ Tab$ to \09\

Declare function    Database_Services
Declare subroutine  Database_Services

Date            = Oconv(Date(), 'D4/')
Time            = oconv(Time(), 'MTH')
Month           = Field(Date, '/', 1, 1)
Year            = Field(Date, '/', 3, 1)
UserFullName    = Xlate('LSL_USERS', Username, 'FIRST_LAST', 'X')

LogKeyID    = 'METROLOGY_MANUAL_DATA_ENTRY_' : Year : '_' : Month
Log         = Database_Services('ReadDataRow', 'APP_INFO', LogKeyID)
Log        := Date : Tab$ : Time : Tab$ : UserFullName : Tab$ : DataType : Tab$ : RDSKeyID : @FM
Database_Services('WriteDataRow', 'APP_INFO', LogKeyID, Log, True$)

Return ''
