1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60

For Each LVRefWarnItem In Me.ListViewRefWarn.ListItems 
  For Each LVDiagItem In Me.ListViewDiag.ListItems 
    For Each LVReqdClassItem In Me.ListViewReqdClass.ListItems 
      For Each LVReqdPayItem In Me.ListViewReqdPay.ListItems 
        For Each LVReqdSpecItem In Me.ListViewReqdSpec.ListItems 
          For Each LVReqingSpecItem In Me.ListViewReqingSpec.ListItems 
            For Each LVSvcItem In Me.ListViewSvc.ListItems 
              For Each LVReqdContItem In Me.ListViewReqdCont.ListItems 
                For Each LVReqingContItem In Me.ListViewReqingCont.ListItems 
                  For Each LVReqingClassItem In ListViewReqingClass.ListItems 
                    For Each LVReqingPayItem In ListViewReqingPay.ListItems 
                      For Each LVHPCodesItem In ListViewHPCodes.ListItems 
                        For Each LVHPOptionCodesItem In ListViewHPOptionCodes.ListItems 
                          For Each LVPOSItem In ListViewPOS.ListItems 
                            For Each LVReqdProvIDItem In ListViewReqdProvID.ListItems 
                              For Each LVReqingProvIDItem In ListViewReqingProvID.ListItems 
                                For Each LVAuthTypeItem In ListViewAuthType.ListItems 
                                  For Each LVMembCondItem In ListViewMemberCondition.ListItems 
                                      TempDe1.InsertRule _ 
                                         AdvancedRule, "Advanced", Me.TextGroup, Me.CheckAutoApprove.Value, _ 
                                         CDate(Me.DTPickerFromDt), CDate(Me.DTPickerToDt), ExpDate, _ 
                                         LVSvcItem.Text, LVSvcItem.ListSubItems(1).Text, LVDiagItem.Text, _ 
                                         LVDiagItem.ListSubItems(1).Text, IIf(LVSvcItem.ListSubItems.Count = 1, _ 
                                         "0", LVSvcItem.ListSubItems(LVSvcItem.ListSubItems.Count).Text), _ 
                                         LVReqdSpecItem.Text, LVReqdSpecItem.ListSubItems(1).Text, _ 
                                         LVReqdClassItem.Text, LVReqdClassItem.ListSubItems(1).Text, _ 
                                         LVReqdContItem.Text, LVReqdContItem.ListSubItems(1).Text, _ 
                                         LVReqdPayItem.Text, LVReqdPayItem.ListSubItems(1).Text, _ 
                                         LVReqingSpecItem.Text, LVReqingSpecItem.ListSubItems(1).Text, 
                                         LVReqingClassItem.Text, LVReqingClassItem.ListSubItems(1).Text, _ 
                                         LVReqingContItem.Text, LVReqingContItem.ListSubItems(1).Text, _ 
                                         LVReqingPayItem.Text, LVReqingPayItem.ListSubItems(1).Text, _ 
                                         LVHPCodesItem.Text, LVHPCodesItem.ListSubItems(1).Text, _ 
                                         LVPOSItem.Text, LVPOSItem.ListSubItems(1).Text, _ 
                                         LVReqdProvIDItem.Text, LVReqdProvIDItem.ListSubItems(1).Text, _ 
                                         LVReqingProvIDItem.Text, LVReqingProvIDItem.ListSubItems(1).Text, _ 
                                         TextDesc.Text, TextAgeFrom.Text, TextAgeTo.Text, _ 
                                         LVAuthTypeItem.Text, LVAuthTypeItem.ListSubItems(1).Text, _ 
                                         LVMembCondItem.Text, LVMembCondItem.ListSubItems(1).Text, _ 
                                         Me.cboRuleType.SelectedItem.Key, Me.txtRulePriority.Text, _ 
                                         Int(LVRefWarnItem.Text), Int(LVRefWarnItem.ListSubItems(1).Text), _ 
                                         LVHPOptionCodesItem.Text, LVHPOptionCodesItem.ListSubItems(1).Text 
                                  Next 
                                Next LVAuthTypeItem 
                              Next LVReqingProvIDItem 
                            Next LVReqdProvIDItem 
                          Next LVPOSItem 
                        Next LVHPOptionCodesItem 
                      Next LVHPCodesItem 
                    Next LVReqingPayItem 
                  Next LVReqingClassItem 
                Next LVReqingContItem 
              Next LVReqdContItem 
            Next LVSvcItem 
          Next LVReqingSpecItem 
        Next LVReqdSpecItem 
      Next LVReqdPayItem 
    Next LVReqdClassItem 
  Next LVDiagItem 
Next LVRefWarnItem