migrated from OI 9

LSL2/STPROC/WM_OUT_SERVICES.txt

@@ -277,12 +277,23 @@ Service GetWMOData(WorkOrderNo, Columns, ShowGasGauge, WMOOverrideList)
                     @RECORD = Database_Services('ReadDataRow', 'WM_OUT', @ID)
                     If Error_Services('NoError') then
                         For each Column in Columns using @VM setting vPos
-                            Val  = Calculate(Column)
-                            Conv = Xlate('DICT.WM_OUT', Column, DICT_CONV$, 'X')
-                            If Conv NE '' then
-                                Val  = OConv(Val, Conv)
-                            end
-                            WMOList<fPos, vPos> = Val
+                        	Begin Case
+                        		Case Column EQ 'HOLD'
+									HoldStatus          = Calculate(Column)
+									If HoldStatus EQ True$ then
+										HoldStatus = 'On Hold'
+									end else
+										HoldStatus = 'Off Hold'
+									end
+									WMOList<fPos, vPos> = HoldStatus
+                        		Case Otherwise$
+									Val  = Calculate(Column)
+									Conv = Xlate('DICT.WM_OUT', Column, DICT_CONV$, 'X')
+									If Conv NE '' then
+										Val  = OConv(Val, Conv)
+									end
+									WMOList<fPos, vPos> = Val
+                            End Case
                         Next Column
                     end else
                         Error_Services('Add', 'Error reading WM_OUT Record ' : @ID : ' in the ' : Service : ' service.')