added call to clean array to prevent null values from truncating the list

LSL2/STPROC/WORK_ORDER_SERVICES.txt

@@ -938,29 +938,13 @@ Service PrintLabels(WONo)
                 Msg(@WINDOW,MsgUp)
                 
             end ELSE
-                RDSNos = XLATE('WO_STEP',WOSteps<1,1>,WO_STEP_RDS_KEY$,'X')
-            end
-            
-            If MemberOf(@USER4,'OI_ADMIN') then
-                WOMatKeys = XLATE('WO_LOG',WONo,WO_LOG_WO_MAT_KEY$,'X')
-                CONVERT @VM TO @FM IN WOMatKeys
-                AllRDSNos = XLATE('WO_MAT',WOMatKeys,WO_MAT_RDS_NO$,'X')
-                
-                RDSNos = ''
-                
-                LOOP
-                    CassRDSNos = AllRDSNos[1,@FM]
-                    AllRDSNos[1,COL2()] = ''
-                UNTIL CassRdsNos = ''
-                    RDSNos := CassRdsNos<1,WOStep>:@VM
-                REPEAT
-                
-                RDSNos[-1,1] = ''
-                
+                WOMatKeys = Xlate('WO_LOG', WONo, WO_LOG_WO_MAT_KEY$, 'X')
+                RDSNos    = Xlate('WO_MAT', WOMatKeys, WO_MAT_RDS_NO$, 'X')
             end
             
             If INDEX(RDSNos,@VM,1) then
                 TypeOver              = ''
+                RDSNos                = SRP_Array('Clean', RDSNos, 'TrimAndMakeUnique', @VM)
                 TypeOver<PDISPLAY$>   = RDSNos
                 TypeOver<PFIELD$>     = 2
                 TypeOver<PTYPE$>      = 'K'
@@ -976,9 +960,7 @@ Service PrintLabels(WONo)
                 ErrMsg('No RDS Numbers Selected or Work Order Not Yet Released to Production.')
             end ELSE
                 CONVERT @VM TO @FM IN RDSKeys
-                
                 Print_Cass_Labels(RDSKeys,MultiStepFlag)				;* Updated labels with Akrion Bar Codes
-                
             end
         end
     end