phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merged PR 19430: Fix references to old supplement system.

Browse Source
This commit is contained in:
Mitchem Dakota (CSC FI SPS MESLEO External)
2025-06-24 21:20:40 +02:00
parent 1db89a3d3f
commit 52499b7616
5 changed files with 88 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
LSL2/STPROC/REACT_RUN_RDS.txt
View File

@ -102,24 +102,6 @@ READ RunRec FROM RRTable,RDSNo THEN
RDSRec<RDS_OUT_CASS_NO$> = RunRec<REACT_RUN_OUT_CASS_NO$>
RDSRec<RDS_OUT_CASS_SLOT$> = RunRec<REACT_RUN_OUT_SLOT_NO$>
RDSRec<RDS_WAFER_CHAR$> = RunRec<REACT_RUN_WAFER_CHAR$>
IF RunRec<REACT_RUN_SUPP_ENTRY_ID$> NE '' THEN
RDSRec<RDS_SUPPLEMENT$> = 1
RDSRec<RDS_SUPPL_INST$> = RunRec<REACT_RUN_SUPP_INST$>
RDSRec<RDS_SUPPL_ENTRY_ID$> = RunRec<REACT_RUN_SUPP_ENTRY_ID$>
SuppEntryDTM = OCONV(RunRec<REACT_RUN_SUPP_ENTRY_DTM$>,'DT/4^HS')
RDSRec<RDS_SUPPL_ENTRY_DATE$> = ICONV(FIELD(SuppEntryDTM,' ',1),'D')
RDSRec<RDS_SUPPL_ENTRY_TIME$> = ICONV(FIELD(SuppEntryDTM,' ',2),'MTS')
RDSRec<RDS_SUPPL_SIG$> = RunRec<REACT_RUN_SUPP_SIG$>
SuppSigDTM = RunRec<REACT_RUN_SUPP_SIG_DTM$>
RDSRec<RDS_SUPPL_SIG_DATE$> = ICONV(FIELD(SuppSigDTM,' ',1),'D')
RDSRec<RDS_SUPPL_SIG_TIME$> = ICONV(FIELD(SuppSigDTM,' ',2),'MTS')
END
RDSRec<RDS_OP_OUT_EX1$> = RunRec<REACT_RUN_EX_UNLOAD$>