SHARE
TWEET

Untitled

a guest Jun 12th, 2019 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. scrset(
  3.   sCFormPestsBeneficialsYadMordechaiNew:frm(#Pests_and_Beneficials,55|50|50|40|40,
  4.     init:block(
  5.       set($pestCode, .pest, dDone),
  6.       set($taskCode, .task, dDone),
  7.       set($lc,.plot,dDone),
  8.       set($plotCode,.plot,dDone)
  9.       set($crop, .crop, dDone),
  10.       set($growerCode,.gCode,dDone),
  11.       set($growerName,${qps('.def.sRoot/mi[val==growerCode].lbl')}),
  12.       set($userLanguage, ${userLang()}, dTemp)
  13.       log(warn,${'Crop '.crop}),
  14.       log(warn,${'Contains any '.containsAny(crop,'CR15G0')}),
  15.       log(warn,${'Contains any '.containsNone(crop,'CR15G0')}),
  16.     )
  17.  
  18.     refresh:block(),
  19.  
  20.     focus:block(
  21.       set($lblName,${qp('.lblName','dTemp')}),
  22.       if(${notEmpty(lblName)}, block(
  23.         focus(${'.'.lblName}),
  24.         unset(.lblName,dTemp))
  25.      )
  26.     ),
  27.  
  28.     @copyNotes1:block(
  29.       if(${notEmpty(qp('.'.dsetName.':dset.notes','dTemp'))},set(.notes,${qp('.'.dsetName.':dset.notes','dTemp')},dDone)),
  30.       for(photo,${qp('.'.dsetName.':dset.photo_note/dfile.file','dTemp')},
  31.         set(.photo_note\:dlist/dfile[i_photo].file,$photo,dDone)),
  32.       if(${notEmpty(qp('.'.dsetName.':dset.individual_recommendation','dTemp'))},set(.individual_recommendation,${qp('.'.dsetName.':dset.individual_recommendation','dTemp')},dDone)),
  33.       unset(${'.'.dsetName},dTemp,true)
  34.     ),
  35.  
  36.     @cleanNotes1:block(
  37.       unset(.notes,dDone),
  38.       unset(.photo_note,dDone,true),
  39.       unset(.individual_recommendation,dDone)
  40.     ),
  41.     @ldBeneficials:ldata(
  42.       li(Please select beneficial,${res("Please_Select_Beneficial")},ord:1),
  43.       li(PT217G4I0I,${res("Insidious_flower_bug")}),
  44.       li(PT217G3I0I,${res("Aphidius_colemani")}),
  45.       li(PT217DI4I,${res("Antilion")}),
  46.       li(PT217G1I0I0I,${res("Parasitization").'('.res("Tabaco_whitefly").')'}),
  47.       li(PT217G0I0I0I,${res("Parasitization").'('.res("Pseudococcidae").')'}),
  48.       li(PT2171I2I,${res("Ladybug")}),
  49.       li(PT2170I2I2I,${res("Amblyseius_swirskii")}),
  50.       li(PT2170I2I4I,${res("Phytoseiulus_persimilis")})
  51.     ),
  52.     @ldPestSpread:ldata(
  53.       li(Please Select Distribution,${res("Please_Select_Distribution")},ord:1),
  54.       li(1. isolated cases,${res("Isolated_cases")}),
  55.       li(2. a number of areas,${res("A_number_of_areas")}),
  56.       li(3. mainly on the margins,${res("Mainly_on_the_margins")}),
  57.       li(4. in the entire section,${res("In_the_entire_section")})
  58.     ),
  59.     // Headers
  60.     lbl(${res('Plot').':'}, lo(2, m(5, 0, 0, 0), bg:FFc6d2d2)),
  61.     lbl(${qp('.plotName', 'dTemp')}, aln:left, lo(3, m(5, 0, 0, 0), bg:FFc6d2d2)),
  62.     lbl(${res('Grower').':'}, lo(2, style:captionGrey)),
  63.     lbl(${def(growerName,res('n%2Fa'))}, aln:left, lo(3, style:captionGrey)),
  64.     lbl(${res('Crop').':'}, lo(2, bg:FFc6d2d2)),
  65.     lbl(${qp('.cropName', 'dTemp')}, aln:left, lo(3, bg:FFc6d2d2)),
  66.  
  67.     lbl(${res("Report_Contamination_Levels")},lo(5,m(3,0,0,0),style:group),aln:center),
  68.    
  69.     // Carmine spider mite
  70.     lCarmineSpiderMite:lbl(${res("Carmine_spider_mite")},lo(4,m(1,0,0,0),style:caption)),
  71.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  72.       set(.dsetName,${'dsCarmineSpiderMite'},dTemp),
  73.       set(.lblName,${'lCarmineSpiderMite'},dTemp),
  74.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  75.     ci(single,carmineSpiderMite,no,cols:5, lo(1, m(4, 40, 0, 0)),
  76.       dpath(dTemp, .pests\:dlist/dset[0].level),
  77.       opt(1, '1   '),
  78.       opt(2, '2   '),
  79.       opt(3, '3   '),
  80.       opt(4, '4   '),
  81.       opt(5, '5')),
  82.     lbl(#Pest_spread,lo(2)),  
  83.     list(in:carmineSpiderMiteSpread,req:false,data:ldPestSpread,sort:no,
  84.       dpath(dTemp, .pests\:dlist/dset[0].spread),
  85.       lo(3)
  86.     ),
  87.     lbl(#Select_beneficial,lo(2)),  
  88.     list(in:carmineSpiderMiteBeneficial,data:ldBeneficials,req:false,sort:no,
  89.       dpath(dTemp,.pests\:dlist/dset[0].beneficials_name),
  90.       lo(3)
  91.     ),
  92.  
  93.     lbl(#Beneficial_levels,lo(2,visible:${carmineSpiderMiteBeneficial!='Please select beneficial'})),
  94.     ci(single,levelCarmineSpiderMiteBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${carmineSpiderMiteBeneficial!='Please select beneficial'}),
  95.       dpath(dTemp, .pests\:dlist/dset[0].beneficials_level),
  96.       opt(1, '1   '),
  97.       opt(2, '2   '),
  98.       opt(3, '3   '),
  99.       opt(4, '4   '),
  100.       opt(5, '5')),
  101.     lbl(#Select_beneficial,lo(2,visible:${notEmpty(levelCarmineSpiderMiteBeneficial)})),  
  102.     list(in:carmineSpiderMiteBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  103.       dpath(dTemp,.pests\:dlist/dset[0].beneficials_name_two),
  104.       lo(3,visible:${notEmpty(levelCarmineSpiderMiteBeneficial)})
  105.     ),
  106.     lbl(#Beneficial_levels,lo(2,visible:${carmineSpiderMiteBeneficialTwo!='Please select beneficial'})),
  107.     ci(single,levelCarmineSpiderMiteBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${carmineSpiderMiteBeneficialTwo!='Please select beneficial'}),
  108.       dpath(dTemp, .pests\:dlist/dset[0].beneficials_level_two),
  109.       opt(1, '1   '),
  110.       opt(2, '2   '),
  111.       opt(3, '3   '),
  112.       opt(4, '4   '),
  113.       opt(5, '5')),
  114.  
  115.     // Broad mite
  116.     lBroadMite:lbl(${res("Broad_mite")},lo(4,m(1,0,0,0),style:caption)),
  117.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  118.       set(.dsetName,${'dsBroadMite'},dTemp),
  119.       set(.lblName,${'lBroadMite'},dTemp),
  120.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  121.     ci(single,broadMite,no,cols:5, lo(1, m(4, 40, 0, 0)),
  122.       dpath(dTemp, .pests\:dlist/dset[1].level),
  123.       opt(1, '1   '),
  124.       opt(2, '2   '),
  125.       opt(3, '3   '),
  126.       opt(4, '4   '),
  127.       opt(5, '5')),
  128.     lbl(#Pest_spread,lo(2)),  
  129.     list(in:broadMiteSpread,data:ldPestSpread,req:false,sort:no,
  130.       dpath(dTemp,.pests\:dlist/dset[1].spread),
  131.       lo(3)
  132.     ),
  133.     lbl(#Select_Beneficial,lo(2)),  
  134.     list(in:broadMiteBeneficial,data:ldBeneficials,req:false,sort:no,
  135.       dpath(dTemp,.pests\:dlist/dset[1].beneficials_name),
  136.       lo(3)
  137.     ),
  138.     lbl(#Beneficial_levels,lo(2,visible:${broadMiteBeneficial!='Please select beneficial'})),
  139.     ci(single,levelBroadMiteBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${broadMiteBeneficial!='Please select beneficial'}),
  140.       dpath(dTemp, .pests\:dlist/dset[1].beneficials_level),
  141.       opt(1, '1   '),
  142.       opt(2, '2   '),
  143.       opt(3, '3   '),
  144.       opt(4, '4   '),
  145.       opt(5, '5')),
  146.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelBroadMiteBeneficial)})),
  147.     list(in:broadMiteBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  148.       dpath(dTemp,.pests\:dlist/dset[1].beneficials_name_two),
  149.       lo(3,visible:${notEmpty(levelBroadMiteBeneficial)})
  150.     ),
  151.     lbl(#Beneficial_levels,lo(2,visible:${broadMiteBeneficialTwo!='Please select beneficial'})),
  152.     ci(single,levelBroadMiteBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${broadMiteBeneficialTwo!='Please select beneficial'}),
  153.       dpath(dTemp, .pests\:dlist/dset[1].beneficials_level_two),
  154.       opt(1, '1   '),
  155.       opt(2, '2   '),
  156.       opt(3, '3   '),
  157.       opt(4, '4   '),
  158.       opt(5, '5')),
  159.  
  160.     // Gray Mould
  161.     lGrayMould:lbl(${res("Gray_mould")},lo(4,m(1,0,0,0),style:caption)),
  162.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  163.       set(.dsetName,${'dsGrayMould'},dTemp),
  164.       set(.lblName,${'lGrayMould'},dTemp),
  165.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  166.     ci(single,grayMould,no,cols:5, lo(1, m(4, 40, 0, 0)),
  167.       dpath(dTemp, .pests\:dlist/dset[2].level),
  168.       opt(1, '1   '),
  169.       opt(2, '2   '),
  170.       opt(3, '3   '),
  171.       opt(4, '4   '),
  172.       opt(5, '5')),
  173.     lbl(#Pest_spread,lo(2)),  
  174.     list(in:grayMouldSpread,req:false,data:ldPestSpread,sort:no,
  175.       dpath(dTemp,.pests\:dlist/dset[2].spread),
  176.       lo(3)
  177.     ),
  178.     lbl(#Select_Beneficial,lo(2)),  
  179.     list(in:greyMouldBeneficial,data:ldBeneficials,req:false,sort:no,
  180.       dpath(dTemp,.pests\:dlist/dset[2].beneficials_name),
  181.       lo(3)
  182.     ),
  183.     lbl(#Beneficial_levels,lo(2,visible:${greyMouldBeneficial!='Please select beneficial'})),
  184.     ci(single,levelGreyMouldBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greyMouldBeneficial!='Please select beneficial'}),
  185.       dpath(dTemp, .pests\:dlist/dset[2].beneficials_level),
  186.       opt(1, '1   '),
  187.       opt(2, '2   '),
  188.       opt(3, '3   '),
  189.       opt(4, '4   '),
  190.       opt(5, '5')),
  191.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelGreyMouldBeneficial)})),  
  192.     list(in:greyMouldBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  193.       dpath(dTemp,.pests\:dlist/dset[2].beneficials_name_two),
  194.       lo(3,visible:${notEmpty(levelGreyMouldBeneficial)})
  195.     ),
  196.     lbl(#Beneficial_levels,lo(2,visible:${greyMouldBeneficialTwo!='Please select beneficial'})),
  197.     ci(single,levelGreyMouldBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greyMouldBeneficialTwo!='Please select beneficial'}),
  198.       dpath(dTemp, .pests\:dlist/dset[2].beneficials_level_two),
  199.       opt(1, '1   '),
  200.       opt(2, '2   '),
  201.       opt(3, '3   '),
  202.       opt(4, '4   '),
  203.       opt(5, '5')),
  204.  
  205.     // TSWV
  206.     lTSWV:lbl(${res("TSWV")},lo(4,m(1,0,0,0),style:caption)),
  207.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  208.       set(.dsetName,${'dsTSWV'},dTemp),
  209.       set(.lblName,${'lTSWV'},dTemp),
  210.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  211.     ci(single,tSWV,no,cols:5, lo(1, m(4, 40, 0, 0)),
  212.       dpath(dTemp, .pests\:dlist/dset[3].level),
  213.       opt(1, '1   '),
  214.       opt(2, '2   '),
  215.       opt(3, '3   '),
  216.       opt(4, '4   '),
  217.       opt(5, '5')),
  218.     lbl(#Pest_spread,lo(2)),  
  219.     list(in:TSWVSpread,req:false,data:ldPestSpread,sort:no,
  220.       dpath(dTemp,.pests\:dlist/dset[3].spread),
  221.       lo(3)
  222.     ),
  223.     lbl(#Select_Beneficial,lo(2)),  
  224.     list(in:TSWVBeneficial,data:ldBeneficials,req:false,sort:no,
  225.       dpath(dTemp,.pests\:dlist/dset[3].beneficials_name),
  226.       lo(3)
  227.     ),
  228.     lbl(#Beneficial_levels,lo(2,visible:${TSWVBeneficial!='Please select beneficial'})),
  229.     ci(single,levelTSWVBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${TSWVBeneficial!='Please select beneficial'}),
  230.       dpath(dTemp, .pests\:dlist/dset[3].beneficials_level),
  231.       opt(1, '1   '),
  232.       opt(2, '2   '),
  233.       opt(3, '3   '),
  234.       opt(4, '4   '),
  235.       opt(5, '5')),
  236.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTSWVBeneficial)})),  
  237.     list(in:TSWVBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  238.       dpath(dTemp,.pests\:dlist/dset[3].beneficials_name_two),
  239.       lo(3,visible:${notEmpty(levelTSWVBeneficial)})
  240.     ),
  241.     lbl(#Beneficial_levels,lo(2,visible:${TSWVBeneficialTwo!='Please select beneficial'})),
  242.     ci(single,levelTSWVBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${TSWVBeneficialTwo!='Please select beneficial'}),
  243.       dpath(dTemp, .pests\:dlist/dset[3].beneficials_level_two),
  244.       opt(1, '1   '),
  245.       opt(2, '2   '),
  246.       opt(3, '3   '),
  247.       opt(4, '4   '),
  248.       opt(5, '5')),
  249.  
  250.     // PYLCV
  251.     lPYLCV:lbl(${res("PYLCV")},lo(4,m(1,0,0,0),style:caption)),
  252.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  253.       set(.dsetName,${'dsPYLCV'},dTemp),
  254.       set(.lblName,${'lPYLCV'},dTemp),
  255.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  256.     ci(single,pYLCV,no,cols:5, lo(1, m(4, 40, 0, 0)),
  257.       dpath(dTemp, .pests\:dlist/dset[4].level),
  258.       opt(1, '1   '),
  259.       opt(2, '2   '),
  260.       opt(3, '3   '),
  261.       opt(4, '4   '),
  262.       opt(5, '5')),
  263.     lbl(#Pest_spread,lo(2)),  
  264.     list(in:PYLCVSpread,req:false,data:ldPestSpread,sort:no,
  265.       dpath(dTemp,.pests\:dlist/dset[4].spread),
  266.       lo(3)
  267.     ),
  268.     lbl(#Select_Beneficial,lo(2)),  
  269.     list(in:PYLVCBeneficial,req:false,data:ldBeneficials,sort:no,
  270.       dpath(dTemp,.pests\:dlist/dset[4].beneficials_name),
  271.       lo(3)
  272.     ),
  273.     lbl(#Beneficial_levels,lo(2,visible:${PYLVCBeneficial!='Please select beneficial'})),
  274.     ci(single,levelPYLVCBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${PYLVCBeneficial!='Please select beneficial'}),
  275.       dpath(dTemp, .pests\:dlist/dset[4].beneficials_level),
  276.       opt(1, '1   '),
  277.       opt(2, '2   '),
  278.       opt(3, '3   '),
  279.       opt(4, '4   '),
  280.       opt(5, '5')),
  281.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelPYLVCBeneficial)})),  
  282.     list(in:PYLVCBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  283.       dpath(dTemp,.pests\:dlist/dset[4].beneficials_name_two),
  284.       lo(3,visible:${notEmpty(levelPYLVCBeneficial)})
  285.     ),
  286.     lbl(#Beneficial_levels,lo(2,visible:${PYLVCBeneficialTwo!='Please select beneficial'})),
  287.     ci(single,levelPYLVCBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${PYLVCBeneficialTwo!='Please select beneficial'}),
  288.       dpath(dTemp, .pests\:dlist/dset[4].beneficials_level_two),
  289.       opt(1, '1   '),
  290.       opt(2, '2   '),
  291.       opt(3, '3   '),
  292.       opt(4, '4   '),
  293.       opt(5, '5')),
  294.  
  295.     // Fruit Fly
  296.     lFruitFly:lbl(${res("Fruit_fly")},lo(4,m(1,0,0,0),style:caption)),
  297.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  298.       set(.dsetName,${'dsFruitFly'},dTemp),
  299.       set(.lblName,${'lFruitFly'},dTemp),
  300.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  301.     ci(single,fruitFly,no,cols:5, lo(1, m(4, 40, 0, 0)),
  302.       dpath(dTemp, .pests\:dlist/dset[5].level),
  303.       opt(1, '1   '),
  304.       opt(2, '2   '),
  305.       opt(3, '3   '),
  306.       opt(4, '4   '),
  307.       opt(5, '5')),
  308.     lbl(#Pest_spread,lo(2)),  
  309.     list(in:fruitFlySpread,req:false,data:ldPestSpread,sort:no,
  310.       dpath(dTemp,.pests\:dlist/dset[5].spread),
  311.       lo(3)
  312.     ),
  313.     lbl(#Select_Beneficial,lo(2)),  
  314.     list(in:fruitFlyBeneficial,req:false,data:ldBeneficials,sort:no,
  315.       dpath(dTemp,.pests\:dlist/dset[5].beneficials_name),
  316.       lo(3)
  317.     ),
  318.     lbl(#Beneficial_levels,lo(2,visible:${fruitFlyBeneficial!='Please select beneficial'})),
  319.     ci(single,levelFruitFlyBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${fruitFlyBeneficial!='Please select beneficial'}),
  320.       dpath(dTemp, .pests\:dlist/dset[5].beneficials_level),
  321.       opt(1, '1   '),
  322.       opt(2, '2   '),
  323.       opt(3, '3   '),
  324.       opt(4, '4   '),
  325.       opt(5, '5')),
  326.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelFruitFlyBeneficial)})),  
  327.     list(in:fruitFlyBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  328.       dpath(dTemp,.pests\:dlist/dset[5].beneficials_name_two),
  329.       lo(3,visible:${notEmpty(levelFruitFlyBeneficial)})
  330.     ),
  331.     lbl(#Beneficial_levels,lo(2,visible:${fruitFlyBeneficialTwo!='Please select beneficial'})),
  332.     ci(single,levelFruitFlyBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${fruitFlyBeneficialTwo!='Please select beneficial'}),
  333.       dpath(dTemp, .pests\:dlist/dset[5].beneficials_level_two),
  334.       opt(1, '1   '),
  335.       opt(2, '2   '),
  336.       opt(3, '3   '),
  337.       opt(4, '4   '),
  338.       opt(5, '5')),
  339.  
  340.     // Mediterranean fruit fly
  341.     lMediterraneanFruitFly:lbl(${res("Mediterranean_fruit_fly")},lo(4,m(1,0,0,0),style:caption)),
  342.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  343.       set(.dsetName,${'dsMediterraneanFruitFly'},dTemp),
  344.       set(.lblName,${'lMediterraneanFruitFly'},dTemp),
  345.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  346.     ci(single,mediterraneanFruitFly,no,cols:5, lo(1, m(4, 40, 0, 0)),
  347.       dpath(dTemp, .pests\:dlist/dset[6].level),
  348.       opt(1, '1   '),
  349.       opt(2, '2   '),
  350.       opt(3, '3   '),
  351.       opt(4, '4   '),
  352.       opt(5, '5')),
  353.     lbl(#Pest_spread,lo(2)),  
  354.     list(in:mediterraneanFruitFlySpread,req:false,data:ldPestSpread,sort:no,
  355.       dpath(dTemp,.pests\:dlist/dset[6].spread),
  356.       lo(3)
  357.     ),
  358.     lbl(#Select_Beneficial,lo(2)),  
  359.     list(in:mediterraneanFruitFlyBeneficial,req:false,data:ldBeneficials,sort:no,
  360.       dpath(dTemp,.pests\:dlist/dset[6].beneficials_name),
  361.       lo(3)
  362.     ),
  363.     lbl(#Beneficial_levels,lo(2,visible:${mediterraneanFruitFlyBeneficial!='Please select beneficial'})),
  364.     ci(single,levelMediterraneanFruitFlyBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mediterraneanFruitFlyBeneficial!='Please select beneficial'}),
  365.       dpath(dTemp, .pests\:dlist/dset[6].beneficials_level),
  366.       opt(1, '1   '),
  367.       opt(2, '2   '),
  368.       opt(3, '3   '),
  369.       opt(4, '4   '),
  370.       opt(5, '5')),
  371.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelMediterraneanFruitFlyBeneficial)})),  
  372.     list(in:mediterraneanFruitFlyBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  373.       dpath(dTemp,.pests\:dlist/dset[6].beneficials_name_two),
  374.       lo(3,visible:${notEmpty(levelMediterraneanFruitFlyBeneficial)})
  375.     ),
  376.     lbl(#Beneficial_levels,lo(2,visible:${mediterraneanFruitFlyBeneficialTwo!='Please select beneficial'})),
  377.     ci(single,levelMediterraneanFruitFlyBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mediterraneanFruitFlyBeneficialTwo!='Please select beneficial'}),
  378.       dpath(dTemp, .pests\:dlist/dset[6].beneficials_level_two),
  379.       opt(1, '1   '),
  380.       opt(2, '2   '),
  381.       opt(3, '3   '),
  382.       opt(4, '4   '),
  383.       opt(5, '5')),
  384.  
  385.     // Moth caterpillar
  386.     lMothCaterpillar:lbl(${res("Moth_caterpillar")},lo(4,m(1,0,0,0),style:caption)),
  387.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  388.       set(.dsetName,${'dsMothCaterpillar'},dTemp),
  389.       set(.lblName,${'lMothCaterpillar'},dTemp),
  390.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  391.     ci(single,mothCaterpillar,no,cols:5, lo(1, m(4, 40, 0, 0)),
  392.       dpath(dTemp, .pests\:dlist/dset[7].level),
  393.       opt(1, '1   '),
  394.       opt(2, '2   '),
  395.       opt(3, '3   '),
  396.       opt(4, '4   '),
  397.       opt(5, '5')),
  398.     lbl(#Pest_spread,lo(2)),  
  399.     list(in:mothCaterpillarSpread,req:false,data:ldPestSpread,sort:no,
  400.       dpath(dTemp,.pests\:dlist/dset[7].spread),
  401.       lo(3)
  402.     ),
  403.     lbl(#Select_Beneficial,lo(2)),  
  404.     list(in:mothCaterpillarBeneficial,req:false,data:ldBeneficials,sort:no,
  405.       dpath(dTemp,.pests\:dlist/dset[7].beneficials_name),
  406.       lo(3)
  407.     ),
  408.     lbl(#Beneficial_levels,lo(2,visible:${mothCaterpillarBeneficial!='Please select beneficial'})),
  409.     ci(single,levelMothCaterpillarBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mothCaterpillarBeneficial!='Please select beneficial'}),
  410.       dpath(dTemp, .pests\:dlist/dset[7].beneficials_level),
  411.       opt(1, '1   '),
  412.       opt(2, '2   '),
  413.       opt(3, '3   '),
  414.       opt(4, '4   '),
  415.       opt(5, '5')),
  416.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelMothCaterpillarBeneficial)})),  
  417.     list(in:mothCaterpillarBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  418.       dpath(dTemp,.pests\:dlist/dset[7].beneficials_name_two),
  419.       lo(3,visible:${notEmpty(levelMothCaterpillarBeneficial)})
  420.     ),
  421.     lbl(#Beneficial_levels,lo(2,visible:${mothCaterpillarBeneficialTwo!='Please select beneficial'})),
  422.     ci(single,levelMothCaterpillarBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mothCaterpillarBeneficialTwo!='Please select beneficial'}),
  423.       dpath(dTemp, .pests\:dlist/dset[7].beneficials_level_two),
  424.       opt(1, '1   '),
  425.       opt(2, '2   '),
  426.       opt(3, '3   '),
  427.       opt(4, '4   '),
  428.       opt(5, '5')),
  429.  
  430.     // Chilli gall midge
  431.     lChilliGallMidge:lbl(${res("Chilli_gall_midge")},lo(4,m(1,0,0,0),style:caption)),
  432.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  433.       set(.dsetName,${'dsChilliGallMidge'},dTemp),
  434.       set(.lblName,${'lChilliGallMidge'},dTemp),
  435.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  436.     ci(single,chilliGallMidge,no,cols:5, lo(1, m(4, 40, 0, 0)),
  437.       dpath(dTemp, .pests\:dlist/dset[8].level),
  438.       opt(1, '1   '),
  439.       opt(2, '2   '),
  440.       opt(3, '3   '),
  441.       opt(4, '4   '),
  442.       opt(5, '5')),
  443.     lbl(#Pest_spread,lo(2)),  
  444.     list(in:chilliGallMidgeSpread,req:false,data:ldPestSpread,sort:no,
  445.       dpath(dTemp,.pests\:dlist/dset[8].spread),
  446.       lo(3)
  447.     ),
  448.     lbl(#Select_Beneficial,lo(2)),  
  449.     list(in:chilliGallMidgeBeneficial,req:false,data:ldBeneficials,sort:no,
  450.       dpath(dTemp,.pests\:dlist/dset[8].beneficials_name),
  451.       lo(3)
  452.     ),
  453.     lbl(#Beneficial_levels,lo(2,visible:${chilliGallMidgeBeneficial!='Please select beneficial'})),
  454.     ci(single,levelChilliGallMidgeBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliGallMidgeBeneficial!='Please select beneficial'}),
  455.       dpath(dTemp, .pests\:dlist/dset[8].beneficials_level),
  456.       opt(1, '1   '),
  457.       opt(2, '2   '),
  458.       opt(3, '3   '),
  459.       opt(4, '4   '),
  460.       opt(5, '5')),
  461.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelChilliGallMidgeBeneficial)})),  
  462.     list(in:chilliGallMidgeBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  463.       dpath(dTemp,.pests\:dlist/dset[8].beneficials_name_two),
  464.       lo(3,visible:${notEmpty(levelChilliGallMidgeBeneficial)})
  465.     ),
  466.     lbl(#Beneficial_levels,lo(2,visible:${chilliGallMidgeBeneficialTwo!='Please select beneficial'})),
  467.     ci(single,levelChilliGallMidgeBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliGallMidgeBeneficialTwo!='Please select beneficial'}),
  468.       dpath(dTemp, .pests\:dlist/dset[8].beneficials_level_two),
  469.       opt(1, '1   '),
  470.       opt(2, '2   '),
  471.       opt(3, '3   '),
  472.       opt(4, '4   '),
  473.       opt(5, '5')),
  474.  
  475.     // Aphid
  476.     lAphid:lbl(${res("Aphid")},lo(4,m(1,0,0,0),style:caption)),
  477.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  478.       set(.dsetName,${'dsAphid'},dTemp),
  479.       set(.lblName,${'lAphid'},dTemp),
  480.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  481.     ci(single,aphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  482.       dpath(dTemp, .pests\:dlist/dset[9].level),
  483.       opt(1, '1   '),
  484.       opt(2, '2   '),
  485.       opt(3, '3   '),
  486.       opt(4, '4   '),
  487.       opt(5, '5')),
  488.       lbl(#Pest_spread,lo(2)),  
  489.     list(in:aphidSpread,req:false,data:ldPestSpread,sort:no,
  490.       dpath(dTemp,.pests\:dlist/dset[9].spread),
  491.       lo(3)
  492.     ),
  493.     lbl(#Select_Beneficial,lo(2)),  
  494.     list(in:aphidBeneficial,req:false,data:ldBeneficials,sort:no,
  495.       dpath(dTemp,.pests\:dlist/dset[9].beneficials_name),
  496.       lo(3)
  497.     ),
  498.     lbl(#Beneficial_levels,lo(2,visible:${aphidBeneficial!='Please select beneficial'})),
  499.     ci(single,levelAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${aphidBeneficial!='Please select beneficial'}),
  500.       dpath(dTemp, .pests\:dlist/dset[9].beneficials_level),
  501.       opt(1, '1   '),
  502.       opt(2, '2   '),
  503.       opt(3, '3   '),
  504.       opt(4, '4   '),
  505.       opt(5, '5')),
  506.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelAphidBeneficial)})),  
  507.     list(in:aphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  508.       dpath(dTemp,.pests\:dlist/dset[9].beneficials_name_two),
  509.       lo(3,visible:${notEmpty(levelAphidBeneficial)})
  510.     ),
  511.     lbl(#Beneficial_levels,lo(2,visible:${aphidBeneficialTwo!='Please select beneficial'})),
  512.     ci(single,levelAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${aphidBeneficialTwo!='Please select beneficial'}),
  513.       dpath(dTemp, .pests\:dlist/dset[9].beneficials_level_two),
  514.       opt(1, '1   '),
  515.       opt(2, '2   '),
  516.       opt(3, '3   '),
  517.       opt(4, '4   '),
  518.       opt(5, '5')),
  519.  
  520.     // Green peach aphid
  521.     lGreenPeachAphid:lbl(${res("Green_peach_aphid")},lo(4,m(1,0,0,0),style:caption)),
  522.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  523.       set(.dsetName,${'dsGreenPeachAphid'},dTemp),
  524.       set(.lblName,${'lGreenPeachAphid'},dTemp),
  525.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  526.     ci(single,greenPeachAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  527.       dpath(dTemp, .pests\:dlist/dset[10].level),
  528.       opt(1, '1   '),
  529.       opt(2, '2   '),
  530.       opt(3, '3   '),
  531.       opt(4, '4   '),
  532.       opt(5, '5')),
  533.     lbl(#Pest_spread,lo(2)),  
  534.     list(in:greenPeachAphidSpread,req:false,data:ldPestSpread,sort:no,
  535.       dpath(dTemp,.pests\:dlist/dset[10].spread),
  536.       lo(3)
  537.     ),
  538.     lbl(#Select_Beneficial,lo(2)),  
  539.     list(in:greenPeachAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  540.       dpath(dTemp,.pests\:dlist/dset[10].beneficials_name),
  541.       lo(3)
  542.     ),
  543.     lbl(#Beneficial_levels,lo(2,visible:${greenPeachAphidBeneficial!='Please select beneficial'})),
  544.     ci(single,levelGreenPeachAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greenPeachAphidBeneficial!='Please select beneficial'}),
  545.       dpath(dTemp, .pests\:dlist/dset[10].beneficials_level),
  546.       opt(1, '1   '),
  547.       opt(2, '2   '),
  548.       opt(3, '3   '),
  549.       opt(4, '4   '),
  550.       opt(5, '5')),
  551.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelGreenPeachAphidBeneficial)})),  
  552.     list(in:greenPeachAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  553.       dpath(dTemp,.pests\:dlist/dset[10].beneficials_name_two),
  554.       lo(3,visible:${notEmpty(levelGreenPeachAphidBeneficial)})
  555.     ),
  556.     lbl(#Beneficial_levels,lo(2,visible:${greenPeachAphidBeneficialTwo!='Please select beneficial'})),
  557.     ci(single,levelGreenPeachAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greenPeachAphidBeneficialTwo!='Please select beneficial'}),
  558.       dpath(dTemp, .pests\:dlist/dset[10].beneficials_level_two),
  559.       opt(1, '1   '),
  560.       opt(2, '2   '),
  561.       opt(3, '3   '),
  562.       opt(4, '4   '),
  563.       opt(5, '5')),
  564.  
  565.     // Melon and cotton aphid
  566.     lMelonAndCottonAphid:lbl(${res("Melon_and_cotton_aphid")},lo(4,m(1,0,0,0),style:caption)),
  567.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  568.       set(.dsetName,${'dsMelonAndCottonAphid'},dTemp),
  569.       set(.lblName,${'lMelonAndCottonAphid'},dTemp),
  570.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  571.     ci(single,melonAndCottonAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  572.       dpath(dTemp, .pests\:dlist/dset[11].level),
  573.       opt(1, '1   '),
  574.       opt(2, '2   '),
  575.       opt(3, '3   '),
  576.       opt(4, '4   '),
  577.       opt(5, '5')),
  578.     lbl(#Pest_spread,lo(2)),  
  579.     list(in:melonAndCottonAphidSpread,req:false,data:ldPestSpread,sort:no,
  580.       dpath(dTemp,.pests\:dlist/dset[11].spread),
  581.       lo(3)
  582.     ),
  583.     lbl(#Select_Beneficial,lo(2)),  
  584.     list(in:melonAndCottonAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  585.       dpath(dTemp,.pests\:dlist/dset[11].beneficials_name),
  586.       lo(3)
  587.     ),
  588.     lbl(#Beneficial_levels,lo(2,visible:${melonAndCottonAphidBeneficial!='Please select beneficial'})),
  589.     ci(single,levelMelonAndCottonAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${melonAndCottonAphidBeneficial!='Please select beneficial'}),
  590.       dpath(dTemp, .pests\:dlist/dset[11].beneficials_level),
  591.       opt(1, '1   '),
  592.       opt(2, '2   '),
  593.       opt(3, '3   '),
  594.       opt(4, '4   '),
  595.       opt(5, '5')),
  596.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelMelonAndCottonAphidBeneficial)})),  
  597.     list(in:melonAndCottonAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  598.       dpath(dTemp,.pests\:dlist/dset[11].beneficials_name_two),
  599.       lo(3,visible:${notEmpty(levelMelonAndCottonAphidBeneficial)})
  600.     ),
  601.     lbl(#Beneficial_levels,lo(2,visible:${melonAndCottonAphidBeneficialTwo!='Please select beneficial'})),
  602.     ci(single,levelMelonAndCottonAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${melonAndCottonAphidBeneficialTwo!='Please select beneficial'}),
  603.       dpath(dTemp, .pests\:dlist/dset[11].beneficials_level_two),
  604.       opt(1, '1   '),
  605.       opt(2, '2   '),
  606.       opt(3, '3   '),
  607.       opt(4, '4   '),
  608.       opt(5, '5')),
  609.  
  610.     // Black bean aphid
  611.     lBlackBeanAphid:lbl(${res("Black_bean_aphid")},lo(4,m(1,0,0,0),style:caption)),
  612.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  613.       set(.dsetName,${'dsBlackBeanAphid'},dTemp),
  614.       set(.lblName,${'lBlackBeanAphid'},dTemp),
  615.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  616.     ci(single,blackBeanAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  617.       dpath(dTemp, .pests\:dlist/dset[12].level),
  618.       opt(1, '1   '),
  619.       opt(2, '2   '),
  620.       opt(3, '3   '),
  621.       opt(4, '4   '),
  622.       opt(5, '5')),
  623.     lbl(#Pest_spread,lo(2)),  
  624.     list(in:blackBeanAphidSpread,req:false,data:ldPestSpread,sort:no,
  625.       dpath(dTemp,.pests\:dlist/dset[12].spread),
  626.       lo(3)
  627.     ),
  628.     lbl(#Select_Beneficial,lo(2)),  
  629.     list(in:blackBeanAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  630.       dpath(dTemp,.pests\:dlist/dset[12].beneficials_name),
  631.       lo(3)
  632.     ),
  633.     lbl(#Beneficial_levels,lo(2,visible:${blackBeanAphidBeneficial!='Please select beneficial'})),
  634.     ci(single,levelBlackBeanAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${blackBeanAphidBeneficial!='Please select beneficial'}),
  635.       dpath(dTemp, .pests\:dlist/dset[12].beneficials_level),
  636.       opt(1, '1   '),
  637.       opt(2, '2   '),
  638.       opt(3, '3   '),
  639.       opt(4, '4   '),
  640.       opt(5, '5')),
  641.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelBlackBeanAphidBeneficial)})),  
  642.     list(in:blackBeanAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  643.       dpath(dTemp,.pests\:dlist/dset[12].beneficials_name_two),
  644.       lo(3,visible:${notEmpty(levelBlackBeanAphidBeneficial)})
  645.     ),
  646.     lbl(#Beneficial_levels,lo(2,visible:${blackBeanAphidBeneficialTwo!='Please select beneficial'})),
  647.     ci(single,levelBlackBeanAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${blackBeanAphidBeneficialTwo!='Please select beneficial'}),
  648.       dpath(dTemp, .pests\:dlist/dset[12].beneficials_level_two),
  649.       opt(1, '1   '),
  650.       opt(2, '2   '),
  651.       opt(3, '3   '),
  652.       opt(4, '4   '),
  653.       opt(5, '5')),
  654.  
  655.     // Tobacco aphid
  656.     lTobaccoAphid:lbl(${res("Tobacco_aphid")},lo(4,m(1,0,0,0),style:caption)),
  657.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  658.       set(.dsetName,${'dsTobaccoAphid'},dTemp),
  659.       set(.lblName,${'lTobaccoAphid'},dTemp),
  660.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  661.     ci(single,tobaccoAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  662.       dpath(dTemp, .pests\:dlist/dset[13].level),
  663.       opt(1, '1   '),
  664.       opt(2, '2   '),
  665.       opt(3, '3   '),
  666.       opt(4, '4   '),
  667.       opt(5, '5')),
  668.     lbl(#Pest_spread,lo(2)),  
  669.     list(in:tobaccoAphidSpread,req:false,data:ldPestSpread,sort:no,
  670.       dpath(dTemp,.pests\:dlist/dset[13].spread),
  671.       lo(3)
  672.     ),
  673.     lbl(#Select_Beneficial,lo(2)),  
  674.     list(in:tobaccoAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  675.       dpath(dTemp,.pests\:dlist/dset[13].beneficials_name),
  676.       lo(3)
  677.     ),
  678.     lbl(#Beneficial_levels,lo(2,visible:${tobaccoAphidBeneficial!='Please select beneficial'})),
  679.     ci(single,levelTobaccoAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoAphidBeneficial!='Please select beneficial'}),
  680.       dpath(dTemp, .pests\:dlist/dset[13].beneficials_level),
  681.       opt(1, '1   '),
  682.       opt(2, '2   '),
  683.       opt(3, '3   '),
  684.       opt(4, '4   '),
  685.       opt(5, '5')),
  686.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTobaccoAphidBeneficial)})),  
  687.     list(in:tobaccoAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  688.       dpath(dTemp,.pests\:dlist/dset[13].beneficials_name_two),
  689.       lo(3,visible:${notEmpty(levelTobaccoAphidBeneficial)})
  690.     ),
  691.     lbl(#Beneficial_levels,lo(2,visible:${tobaccoAphidBeneficialTwo!='Please select beneficial'})),
  692.     ci(single,levelTobaccoAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoAphidBeneficialTwo!='Please select beneficial'}),
  693.       dpath(dTemp, .pests\:dlist/dset[13].beneficials_level_two),
  694.       opt(1, '1   '),
  695.       opt(2, '2   '),
  696.       opt(3, '3   '),
  697.       opt(4, '4   '),
  698.       opt(5, '5')),
  699.  
  700.     // Tobacco white fly
  701.     lTobaccoWhitefly:lbl(${res("Tobacco_whitefly")},lo(4,m(1,0,0,0),style:caption)),
  702.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  703.       set(.dsetName,${'dsTobaccoWhitefly'},dTemp),
  704.       set(.lblName,${'lTobaccoWhitefly'},dTemp),
  705.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  706.     ci(single,tobaccoWhitefly,no,cols:5, lo(1, m(4, 40, 0, 0)),
  707.       dpath(dTemp, .pests\:dlist/dset[14].level),
  708.       opt(1, '1   '),
  709.       opt(2, '2   '),
  710.       opt(3, '3   '),
  711.       opt(4, '4   '),
  712.       opt(5, '5')),
  713.     lbl(#Pest_spread,lo(2)),  
  714.     list(in:tobaccoWhiteFlySpread,req:false,data:ldPestSpread,sort:no,
  715.       dpath(dTemp,.pests\:dlist/dset[14].spread),
  716.       lo(3)
  717.     ),
  718.     lbl(#Select_Beneficial,lo(2)),  
  719.     list(in:tobaccoWhiteFlyBeneficial,req:false,data:ldBeneficials,sort:no,
  720.       dpath(dTemp,.pests\:dlist/dset[14].beneficials_name),
  721.       lo(3)
  722.     ),
  723.     lbl(#Beneficial_levels,lo(2,visible:${tobaccoWhiteFlyBeneficial!='Please select beneficial'})),
  724.     ci(single,levelTobaccoWhiteFlyBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoWhiteFlyBeneficial!='Please select beneficial'}),
  725.       dpath(dTemp, .pests\:dlist/dset[14].beneficials_level),
  726.       opt(1, '1   '),
  727.       opt(2, '2   '),
  728.       opt(3, '3   '),
  729.       opt(4, '4   '),
  730.       opt(5, '5')),
  731.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTobaccoWhiteFlyBeneficial)})),  
  732.     list(in:tobaccoWhiteFlyBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  733.       dpath(dTemp,.pests\:dlist/dset[14].beneficials_name_two),
  734.       lo(3,visible:${notEmpty(levelTobaccoWhiteFlyBeneficial)})
  735.     ),
  736.     lbl(#Beneficial_levels,lo(2,visible:${tobaccoWhiteFlyBeneficialTwo!='Please select beneficial'})),
  737.     ci(single,levelTobaccoWhiteFlyBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoWhiteFlyBeneficialTwo!='Please select beneficial'}),
  738.       dpath(dTemp, .pests\:dlist/dset[14].beneficials_level_two),
  739.       opt(1, '1   '),
  740.       opt(2, '2   '),
  741.       opt(3, '3   '),
  742.       opt(4, '4   '),
  743.       opt(5, '5')),
  744.  
  745.     // Solanum mealybug
  746.     lSolanumMealybug:lbl(${res("Solanum_mealybug")},lo(4,m(1,0,0,0),style:caption)),
  747.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  748.       set(.dsetName,${'dsSolanumMealybug'},dTemp),
  749.       set(.lblName,${'lSolanumMealybug'},dTemp),
  750.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  751.     ci(single,solanumMealybug,no,cols:5, lo(1, m(4, 40, 0, 0)),
  752.       dpath(dTemp, .pests\:dlist/dset[15].level),
  753.       opt(1, '1   '),
  754.       opt(2, '2   '),
  755.       opt(3, '3   '),
  756.       opt(4, '4   '),
  757.       opt(5, '5')),
  758.     lbl(#Pest_spread,lo(2)),  
  759.     list(in:solanumMealybugSpread,req:false,data:ldPestSpread,sort:no,
  760.       dpath(dTemp,.pests\:dlist/dset[15].spread),
  761.       lo(3)
  762.     ),
  763.     lbl(#Select_Beneficial,lo(2)),  
  764.     list(in:solanumMealybugBeneficial,req:false,data:ldBeneficials,sort:no,
  765.       dpath(dTemp,.pests\:dlist/dset[15].beneficials_name),
  766.       lo(3)
  767.     ),
  768.     lbl(#Beneficial_levels,lo(2,visible:${solanumMealybugBeneficial!='Please select beneficial'})),
  769.     ci(single,levelSolanumMealybugBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${solanumMealybugBeneficial!='Please select beneficial'}),
  770.       dpath(dTemp, .pests\:dlist/dset[15].beneficials_level),
  771.       opt(1, '1   '),
  772.       opt(2, '2   '),
  773.       opt(3, '3   '),
  774.       opt(4, '4   '),
  775.       opt(5, '5')),
  776.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelSolanumMealybugBeneficial)})),  
  777.     list(in:solanumMealybugBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  778.       dpath(dTemp,.pests\:dlist/dset[15].beneficials_name_two),
  779.       lo(3,visible:${notEmpty(levelSolanumMealybugBeneficial)})
  780.     ),
  781.     lbl(#Beneficial_levels,lo(2,visible:${solanumMealybugBeneficialTwo!='Please select beneficial'})),
  782.     ci(single,levelSolanumMealybugBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${solanumMealybugBeneficialTwo!='Please select beneficial'}),
  783.       dpath(dTemp, .pests\:dlist/dset[15].beneficials_level_two),
  784.       opt(1, '1   '),
  785.       opt(2, '2   '),
  786.       opt(3, '3   '),
  787.       opt(4, '4   '),
  788.       opt(5, '5')),
  789.  
  790.     // Cotton mealybug
  791.     lCottonMealybug:lbl(${res("Cotton_mealybug")},lo(4,m(1,0,0,0),style:caption)),
  792.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  793.       set(.dsetName,${'dsCottonMealybug'},dTemp),
  794.       set(.lblName,${'lCottonMealybug'},dTemp),
  795.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  796.     ci(single,cottonMealybug,no,cols:5, lo(1, m(4, 40, 0, 0)),
  797.       dpath(dTemp, .pests\:dlist/dset[16].level),
  798.       opt(1, '1   '),
  799.       opt(2, '2   '),
  800.       opt(3, '3   '),
  801.       opt(4, '4   '),
  802.       opt(5, '5')),
  803.     lbl(#Pest_spread,lo(2)),  
  804.     list(in:cottonMealybugSpread,req:false,data:ldPestSpread,sort:no,
  805.       dpath(dTemp,.pests\:dlist/dset[16].spread),
  806.       lo(3)
  807.     ),
  808.     lbl(#Select_Beneficial,lo(2)),  
  809.     list(in:cottonMealybugBeneficial,req:false,data:ldBeneficials,sort:no,
  810.       dpath(dTemp,.pests\:dlist/dset[16].beneficials_name),
  811.       lo(3)
  812.     ),
  813.     lbl(#Beneficial_levels,lo(2,visible:${cottonMealybugBeneficial!='Please select beneficial'})),
  814.     ci(single,levelCottonMealybugBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonMealybugBeneficial!='Please select beneficial'}),
  815.       dpath(dTemp, .pests\:dlist/dset[16].beneficials_level),
  816.       opt(1, '1   '),
  817.       opt(2, '2   '),
  818.       opt(3, '3   '),
  819.       opt(4, '4   '),
  820.       opt(5, '5')),
  821.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelCottonMealybugBeneficial)})),  
  822.     list(in:cottonMealybugBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  823.       dpath(dTemp,.pests\:dlist/dset[16].beneficials_name_two),
  824.       lo(3,visible:${notEmpty(levelCottonMealybugBeneficial)})
  825.     ),
  826.     lbl(#Beneficial_levels,lo(2,visible:${cottonMealybugBeneficialTwo!='Please select beneficial'})),
  827.     ci(single,levelCottonMealybugBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonMealybugBeneficialTwo!='Please select beneficial'}),
  828.       dpath(dTemp, .pests\:dlist/dset[16].beneficials_level_two),
  829.       opt(1, '1   '),
  830.       opt(2, '2   '),
  831.       opt(3, '3   '),
  832.       opt(4, '4   '),
  833.       opt(5, '5')),
  834.  
  835.     // Cotton root knot nematode
  836.     lCottonRootKnotNematode:lbl(${res("Cotton_root%2Dknot_nematode")},lo(4,m(1,0,0,0),style:caption)),
  837.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  838.       set(.dsetName,${'dsCottonRootKnotNematode'},dTemp),
  839.       set(.lblName,${'lCottonRootKnotNematode'},dTemp),
  840.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  841.     ci(single,cottonRootKnotNematode,no,cols:5, lo(1, m(4, 40, 0, 0)),
  842.       dpath(dTemp, .pests\:dlist/dset[17].level),
  843.       opt(1, '1   '),
  844.       opt(2, '2   '),
  845.       opt(3, '3   '),
  846.       opt(4, '4   '),
  847.       opt(5, '5')),
  848.     lbl(#Pest_spread,lo(2)),  
  849.     list(in:cottonRootKnotNematodeSpread,req:false,data:ldPestSpread,sort:no,
  850.       dpath(dTemp,.pests\:dlist/dset[17].spread),
  851.       lo(3)
  852.     ),
  853.     lbl(#Select_Beneficial,lo(2)),  
  854.     list(in:cottonRootKnotNematodeBeneficial,req:false,data:ldBeneficials,sort:no,
  855.       dpath(dTemp,.pests\:dlist/dset[17].beneficials_name),
  856.       lo(3)
  857.     ),
  858.     lbl(#Beneficial_levels,lo(2,visible:${cottonRootKnotNematodeBeneficial!='Please select beneficial'})),
  859.     ci(single,levelCottonRootKnotNematodeBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonRootKnotNematodeBeneficial!='Please select beneficial'}),
  860.       dpath(dTemp, .pests\:dlist/dset[17].beneficials_level),
  861.       opt(1, '1   '),
  862.       opt(2, '2   '),
  863.       opt(3, '3   '),
  864.       opt(4, '4   '),
  865.       opt(5, '5')),
  866.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelCottonRootKnotNematodeBeneficial)})),  
  867.     list(in:cottonRootKnotNematodeBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  868.       dpath(dTemp,.pests\:dlist/dset[17].beneficials_name_two),
  869.       lo(3,visible:${notEmpty(levelCottonRootKnotNematodeBeneficial)})
  870.     ),
  871.     lbl(#Beneficial_levels,lo(2,visible:${cottonRootKnotNematodeBeneficialTwo!='Please select beneficial'})),
  872.     ci(single,levelCottonRootKnotNematodeBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonRootKnotNematodeBeneficialTwo!='Please select beneficial'}),
  873.       dpath(dTemp, .pests\:dlist/dset[17].beneficials_level_two),
  874.       opt(1, '1   '),
  875.       opt(2, '2   '),
  876.       opt(3, '3   '),
  877.       opt(4, '4   '),
  878.       opt(5, '5')),
  879.  
  880.     // Ants
  881.     lAnts:lbl(${res("Ants")},lo(4,m(1,0,0,0),style:caption)),
  882.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  883.       set(.dsetName,${'dsAnts'},dTemp),
  884.       set(.lblName,${'lAnts'},dTemp),
  885.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  886.     ci(single,ants,no,cols:5, lo(1, m(4, 40, 0, 0)),
  887.       dpath(dTemp, .pests\:dlist/dset[18].level),
  888.       opt(1, '1   '),
  889.       opt(2, '2   '),
  890.       opt(3, '3   '),
  891.       opt(4, '4   '),
  892.       opt(5, '5')),
  893.     lbl(#Pest_spread,lo(2)),  
  894.     list(in:antsSpread,req:false,data:ldPestSpread,sort:no,
  895.       dpath(dTemp,.pests\:dlist/dset[18].spread),
  896.       lo(3)
  897.     ),
  898.     lbl(#Select_Beneficial,lo(2)),  
  899.     list(in:antsBeneficial,req:false,data:ldBeneficials,sort:no,
  900.       dpath(dTemp,.pests\:dlist/dset[18].beneficials_name),
  901.       lo(3)
  902.     ),
  903.     lbl(#Beneficial_levels,lo(2,visible:${antsBeneficial!='Please select beneficial'})),
  904.     ci(single,levelAntsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${antsBeneficial!='Please select beneficial'}),
  905.       dpath(dTemp, .pests\:dlist/dset[18].beneficials_level),
  906.       opt(1, '1   '),
  907.       opt(2, '2   '),
  908.       opt(3, '3   '),
  909.       opt(4, '4   '),
  910.       opt(5, '5')),
  911.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelAntsBeneficial)})),  
  912.     list(in:antsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  913.       dpath(dTemp,.pests\:dlist/dset[18].beneficials_name_two),
  914.       lo(3,visible:${notEmpty(levelAntsBeneficial)})
  915.     ),
  916.     lbl(#Beneficial_levels,lo(2,visible:${antsBeneficialTwo!='Please select beneficial'})),
  917.     ci(single,levelAntsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${antsBeneficialTwo!='Please select beneficial'}),
  918.       dpath(dTemp, .pests\:dlist/dset[18].beneficials_level_two),
  919.       opt(1, '1   '),
  920.       opt(2, '2   '),
  921.       opt(3, '3   '),
  922.       opt(4, '4   '),
  923.       opt(5, '5')),
  924.  
  925.     // Herbarium
  926.     lHerbarium:lbl(${res("Herbarium")},lo(4,m(1,0,0,0),style:caption)),
  927.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  928.       set(.dsetName,${'dsHerbarium'},dTemp),
  929.       set(.lblName,${'lHerbarium'},dTemp),
  930.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  931.     ci(single,herbarium,no,cols:5, lo(1, m(4, 40, 0, 0)),
  932.       dpath(dTemp, .pests\:dlist/dset[19].level),
  933.       opt(1, '1   '),
  934.       opt(2, '2   '),
  935.       opt(3, '3   '),
  936.       opt(4, '4   '),
  937.       opt(5, '5')),
  938.     lbl(#Pest_spread,lo(2)),  
  939.     list(in:herbariumSpread,req:false,data:ldPestSpread,sort:no,
  940.       dpath(dTemp,.pests\:dlist/dset[19].spread),
  941.       lo(3)
  942.     ),
  943.     lbl(#Select_Beneficial,lo(2)),  
  944.     list(in:herbariumBeneficial,req:false,data:ldBeneficials,sort:no,
  945.       dpath(dTemp,.pests\:dlist/dset[19].beneficials_name),
  946.       lo(3)
  947.     ),
  948.     lbl(#Beneficial_levels,lo(2,visible:${herbariumBeneficial!='Please select beneficial'})),
  949.     ci(single,levelHerbariumBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${herbariumBeneficial!='Please select beneficial'}),
  950.       dpath(dTemp, .pests\:dlist/dset[19].beneficials_level),
  951.       opt(1, '1   '),
  952.       opt(2, '2   '),
  953.       opt(3, '3   '),
  954.       opt(4, '4   '),
  955.       opt(5, '5')),
  956.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelHerbariumBeneficial)})),  
  957.     list(in:herbariumBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  958.       dpath(dTemp,.pests\:dlist/dset[19].beneficials_name_two),
  959.       lo(3,visible:${notEmpty(levelHerbariumBeneficial)})
  960.     ),
  961.     lbl(#Beneficial_levels,lo(2,visible:${herbariumBeneficialTwo!='Please select beneficial'})),
  962.     ci(single,levelHerbariumBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${herbariumBeneficialTwo!='Please select beneficial'}),
  963.       dpath(dTemp, .pests\:dlist/dset[19].beneficials_level_two),
  964.       opt(1, '1   '),
  965.       opt(2, '2   '),
  966.       opt(3, '3   '),
  967.       opt(4, '4   '),
  968.       opt(5, '5')),
  969.  
  970.     // False Codling Moth
  971.     lFalseCodlingMoth:lbl(${res("False_codling_moth")},lo(4,m(1,0,0,0),style:caption)),
  972.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  973.       set(.dsetName,${'dsFalseCodlingMoth'},dTemp),
  974.       set(.lblName,${'lFalseCodlingMoth'},dTemp),
  975.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  976.     ci(single,falseCodlingMoth,no,cols:5, lo(1, m(4, 40, 0, 0)),
  977.       dpath(dTemp, .pests\:dlist/dset[20].level),
  978.       opt(1, '1   '),
  979.       opt(2, '2   '),
  980.       opt(3, '3   '),
  981.       opt(4, '4   '),
  982.       opt(5, '5')),
  983.     lbl(#Pest_spread,lo(2)),  
  984.     list(in:falseCodlingMothSpread,req:false,data:ldPestSpread,sort:no,
  985.       dpath(dTemp,.pests\:dlist/dset[20].spread),
  986.       lo(3)
  987.     ),
  988.     lbl(#Select_Beneficial,lo(2)),  
  989.     list(in:falseCpdlingMothBeneficial,req:false,data:ldBeneficials,sort:no,
  990.       dpath(dTemp,.pests\:dlist/dset[20].beneficials_name),
  991.       lo(3)
  992.     ),
  993.     lbl(#Beneficial_levels,lo(2,visible:${falseCpdlingMothBeneficial!='Please select beneficial'})),
  994.     ci(single,levelFalseCpdlingMothBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${falseCpdlingMothBeneficial!='Please select beneficial'}),
  995.       dpath(dTemp, .pests\:dlist/dset[20].beneficials_level),
  996.       opt(1, '1   '),
  997.       opt(2, '2   '),
  998.       opt(3, '3   '),
  999.       opt(4, '4   '),
  1000.       opt(5, '5')),
  1001.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelFalseCpdlingMothBeneficial)})),  
  1002.     list(in:falseCpdlingMothBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1003.       dpath(dTemp,.pests\:dlist/dset[20].beneficials_name_two),
  1004.       lo(3,visible:${notEmpty(levelFalseCpdlingMothBeneficial)})
  1005.     ),
  1006.     lbl(#Beneficial_levels,lo(2,visible:${falseCpdlingMothBeneficialTwo!='Please select beneficial'})),
  1007.     ci(single,levelFalseCpdlingMothBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${falseCpdlingMothBeneficialTwo!='Please select beneficial'}),
  1008.       dpath(dTemp, .pests\:dlist/dset[20].beneficials_level_two),
  1009.       opt(1, '1   '),
  1010.       opt(2, '2   '),
  1011.       opt(3, '3   '),
  1012.       opt(4, '4   '),
  1013.       opt(5, '5')),
  1014.  
  1015.     // Pythium
  1016.     lPythium:lbl(${res("Pythium")},lo(4,m(1,0,0,0),style:caption)),
  1017.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1018.       set(.dsetName,${'dsPythium'},dTemp),
  1019.       set(.lblName,${'lPythium'},dTemp),
  1020.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1021.     ci(single,pythium,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1022.       dpath(dTemp, .pests\:dlist/dset[21].level),
  1023.       opt(1, '1   '),
  1024.       opt(2, '2   '),
  1025.       opt(3, '3   '),
  1026.       opt(4, '4   '),
  1027.       opt(5, '5')),lbl(#Pest_spread,lo(2)),  
  1028.     list(in:pythiumSpread,req:false,data:ldPestSpread,sort:no,
  1029.       dpath(dTemp,.pests\:dlist/dset[21].spread),
  1030.       lo(3)
  1031.     ),
  1032.     lbl(#Select_Beneficial,lo(2)),  
  1033.     list(in:pythiumBeneficial,req:false,data:ldBeneficials,sort:no,
  1034.       dpath(dTemp,.pests\:dlist/dset[21].beneficials_name),
  1035.       lo(3)
  1036.     ),
  1037.     lbl(#Beneficial_levels,lo(2,visible:${pythiumBeneficial!='Please select beneficial'})),
  1038.     ci(single,levelPythiumBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${pythiumBeneficial!='Please select beneficial'}),
  1039.       dpath(dTemp, .pests\:dlist/dset[21].beneficials_level),
  1040.       opt(1, '1   '),
  1041.       opt(2, '2   '),
  1042.       opt(3, '3   '),
  1043.       opt(4, '4   '),
  1044.       opt(5, '5')),
  1045.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelPythiumBeneficial)})),  
  1046.     list(in:pythiumBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1047.       dpath(dTemp,.pests\:dlist/dset[21].beneficials_name_two),
  1048.       lo(3,visible:${notEmpty(levelPythiumBeneficial)})
  1049.     ),
  1050.     lbl(#Beneficial_levels,lo(2,visible:${pythiumBeneficialTwo!='Please select beneficial'})),
  1051.     ci(single,levelPythiumBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${pythiumBeneficialTwo!='Please select beneficial'}),
  1052.       dpath(dTemp, .pests\:dlist/dset[21].beneficials_level_two),
  1053.       opt(1, '1   '),
  1054.       opt(2, '2   '),
  1055.       opt(3, '3   '),
  1056.       opt(4, '4   '),
  1057.       opt(5, '5')),
  1058.  
  1059.     // Ovulariopsis
  1060.     lOvulariopsis:lbl(${res("Ovulariopsis")},lo(4,m(1,0,0,0),style:caption)),
  1061.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1062.       set(.dsetName,${'dsOvulariopsis'},dTemp),
  1063.       set(.lblName,${'lOvulariopsis'},dTemp),
  1064.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1065.     ci(single,ovulariopsis,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1066.       dpath(dTemp, .pests\:dlist/dset[22].level),
  1067.       opt(1, '1   '),
  1068.       opt(2, '2   '),
  1069.       opt(3, '3   '),
  1070.       opt(4, '4   '),
  1071.       opt(5, '5')),
  1072.     lbl(#Pest_spread,lo(2)),  
  1073.     list(in:ovulariopsisSpread,req:false,data:ldPestSpread,sort:no,
  1074.       dpath(dTemp,.pests\:dlist/dset[22].spread),
  1075.       lo(3)
  1076.     ),
  1077.     lbl(#Select_Beneficial,lo(2)),  
  1078.     list(in:ovulariopsisBeneficial,req:false,data:ldBeneficials,sort:no,
  1079.       dpath(dTemp,.pests\:dlist/dset[22].beneficials_name),
  1080.       lo(3)
  1081.     ),
  1082.     lbl(#Beneficial_levels,lo(2,visible:${ovulariopsisBeneficial!='Please select beneficial'})),
  1083.     ci(single,levelOvulariopsisBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${ovulariopsisBeneficial!='Please select beneficial'}),
  1084.       dpath(dTemp, .pests\:dlist/dset[22].beneficials_level),
  1085.       opt(1, '1   '),
  1086.       opt(2, '2   '),
  1087.       opt(3, '3   '),
  1088.       opt(4, '4   '),
  1089.       opt(5, '5')),
  1090.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelOvulariopsisBeneficial)})),  
  1091.     list(in:ovulariopsisBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1092.       dpath(dTemp,.pests\:dlist/dset[22].beneficials_name_two),
  1093.       lo(3,visible:${notEmpty(levelOvulariopsisBeneficial)})
  1094.     ),
  1095.     lbl(#Beneficial_levels,lo(2,visible:${ovulariopsisBeneficialTwo!='Please select beneficial'})),
  1096.     ci(single,levelOvulariopsisBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${ovulariopsisBeneficialTwo!='Please select beneficial'}),
  1097.       dpath(dTemp, .pests\:dlist/dset[22].beneficials_level_two),
  1098.       opt(1, '1   '),
  1099.       opt(2, '2   '),
  1100.       opt(3, '3   '),
  1101.       opt(4, '4   '),
  1102.       opt(5, '5')),
  1103.  
  1104.     // Cottony rot
  1105.     lCottonyRot:lbl(${res("Cottony_rot")},lo(4,m(1,0,0,0),style:caption)),
  1106.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1107.       set(.dsetName,${'dsCottonyRot'},dTemp),
  1108.       set(.lblName,${'lCottonyRot'},dTemp),
  1109.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1110.     ci(single,cottonyRot,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1111.       dpath(dTemp, .pests\:dlist/dset[23].level),
  1112.       opt(1, '1   '),
  1113.       opt(2, '2   '),
  1114.       opt(3, '3   '),
  1115.       opt(4, '4   '),
  1116.       opt(5, '5')),
  1117.     lbl(#Pest_spread,lo(2)),  
  1118.     list(in:cottonyRotSpread,req:false,data:ldPestSpread,sort:no,
  1119.       dpath(dTemp,.pests\:dlist/dset[23].spread),
  1120.       lo(3)
  1121.     ),
  1122.     lbl(#Select_Beneficial,lo(2)),  
  1123.     list(in:cottonyRotBeneficial,req:false,data:ldBeneficials,sort:no,
  1124.       dpath(dTemp,.pests\:dlist/dset[23].beneficials_name),
  1125.       lo(3)
  1126.     ),
  1127.     lbl(#Beneficial_levels,lo(2,visible:${cottonyRotBeneficial!='Please select beneficial'})),
  1128.     ci(single,levelCottonyRotBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonyRotBeneficial!='Please select beneficial'}),
  1129.       dpath(dTemp, .pests\:dlist/dset[23].beneficials_level),
  1130.       opt(1, '1   '),
  1131.       opt(2, '2   '),
  1132.       opt(3, '3   '),
  1133.       opt(4, '4   '),
  1134.       opt(5, '5')),
  1135.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelCottonyRotBeneficial)})),  
  1136.     list(in:cottonyRotBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1137.       dpath(dTemp,.pests\:dlist/dset[23].beneficials_name_two),
  1138.       lo(3,visible:${notEmpty(levelCottonyRotBeneficial)})
  1139.     ),
  1140.     lbl(#Beneficial_levels,lo(2,visible:${cottonyRotBeneficialTwo!='Please select beneficial'})),
  1141.     ci(single,levelCottonyRotBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonyRotBeneficialTwo!='Please select beneficial'}),
  1142.       dpath(dTemp, .pests\:dlist/dset[23].beneficials_level_two),
  1143.       opt(1, '1   '),
  1144.       opt(2, '2   '),
  1145.       opt(3, '3   '),
  1146.       opt(4, '4   '),
  1147.       opt(5, '5')),
  1148.  
  1149.     // Tobacco thrips
  1150.     lTobaccoThrips:lbl(${res("Tobacco_thrips")},lo(4,m(1,0,0,0),style:caption)),
  1151.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1152.       set(.dsetName,${'dsTobaccoThrips'},dTemp),
  1153.       set(.lblName,${'lTobaccoThrips'},dTemp),
  1154.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1155.     ci(single,tobaccoThrips,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1156.       dpath(dTemp, .pests\:dlist/dset[24].level),
  1157.       opt(1, '1   '),
  1158.       opt(2, '2   '),
  1159.       opt(3, '3   '),
  1160.       opt(4, '4   '),
  1161.       opt(5, '5')),
  1162.     lbl(#Pest_spread,lo(2)),  
  1163.     list(in:tobaccoThripsSpread,req:false,data:ldPestSpread,sort:no,
  1164.       dpath(dTemp,.pests\:dlist/dset[24].spread),
  1165.       lo(3)
  1166.     ),
  1167.     lbl(#Select_Beneficial,lo(2)),  
  1168.     list(in:tobaccoThripsBeneficial,req:false,data:ldBeneficials,sort:no,
  1169.       dpath(dTemp,.pests\:dlist/dset[24].beneficials_name),
  1170.       lo(3)
  1171.     ),
  1172.     lbl(#Beneficial_levels,lo(2,visible:${tobaccoThripsBeneficial!='Please select beneficial'})),
  1173.     ci(single,levelTobaccoThripsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoThripsBeneficial!='Please select beneficial'}),
  1174.       dpath(dTemp, .pests\:dlist/dset[24].beneficials_level),
  1175.       opt(1, '1   '),
  1176.       opt(2, '2   '),
  1177.       opt(3, '3   '),
  1178.       opt(4, '4   '),
  1179.       opt(5, '5')),
  1180.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTobaccoThripsBeneficial)})),  
  1181.     list(in:tobaccoThripsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1182.       dpath(dTemp,.pests\:dlist/dset[24].beneficials_name_two),
  1183.       lo(3,visible:${notEmpty(levelTobaccoThripsBeneficial)})
  1184.     ),
  1185.     lbl(#Beneficial_levels,lo(2,visible:${tobaccoThripsBeneficialTwo!='Please select beneficial'})),
  1186.     ci(single,levelTobaccoThripsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoThripsBeneficialTwo!='Please select beneficial'}),
  1187.       dpath(dTemp, .pests\:dlist/dset[24].beneficials_level_two),
  1188.       opt(1, '1   '),
  1189.       opt(2, '2   '),
  1190.       opt(3, '3   '),
  1191.       opt(4, '4   '),
  1192.       opt(5, '5')),
  1193.  
  1194.     // Western flower thrips
  1195.     lWesternFlowerThrips:lbl(${res("Western_flower_thrips")},lo(4,m(1,0,0,0),style:caption)),
  1196.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1197.       set(.dsetName,${'dsWesternFlowerThrips'},dTemp),
  1198.       set(.lblName,${'lWesternFlowerThrips'},dTemp),
  1199.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1200.     ci(single,westernFlowerThrips,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1201.       dpath(dTemp, .pests\:dlist/dset[25].level),
  1202.       opt(1, '1   '),
  1203.       opt(2, '2   '),
  1204.       opt(3, '3   '),
  1205.       opt(4, '4   '),
  1206.       opt(5, '5')),
  1207.     lbl(#Pest_spread,lo(2)),  
  1208.     list(in:westernFlowerThripsSpread,req:false,data:ldPestSpread,sort:no,
  1209.       dpath(dTemp,.pests\:dlist/dset[25].spread),
  1210.       lo(3)
  1211.     ),
  1212.     lbl(#Select_Beneficial,lo(2)),  
  1213.     list(in:westernFlowerThripsBeneficial,req:false,data:ldBeneficials,sort:no,
  1214.       dpath(dTemp,.pests\:dlist/dset[25].beneficials_name),
  1215.       lo(3)
  1216.     ),
  1217.     lbl(#Beneficial_levels,lo(2,visible:${westernFlowerThripsBeneficial!='Please select beneficial'})),
  1218.     ci(single,levelWesternFlowerThripsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${westernFlowerThripsBeneficial!='Please select beneficial'}),
  1219.       dpath(dTemp, .pests\:dlist/dset[25].beneficials_level),
  1220.       opt(1, '1   '),
  1221.       opt(2, '2   '),
  1222.       opt(3, '3   '),
  1223.       opt(4, '4   '),
  1224.       opt(5, '5')),
  1225.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelWesternFlowerThripsBeneficial)})),  
  1226.     list(in:westernFlowerThripsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1227.       dpath(dTemp,.pests\:dlist/dset[25].beneficials_name_two),
  1228.       lo(3,visible:${notEmpty(levelWesternFlowerThripsBeneficial)})
  1229.     ),
  1230.     lbl(#Beneficial_levels,lo(2,visible:${westernFlowerThripsBeneficialTwo!='Please select beneficial'})),
  1231.     ci(single,levelWesternFlowerThripsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${westernFlowerThripsBeneficialTwo!='Please select beneficial'}),
  1232.       dpath(dTemp, .pests\:dlist/dset[25].beneficials_level_two),
  1233.       opt(1, '1   '),
  1234.       opt(2, '2   '),
  1235.       opt(3, '3   '),
  1236.       opt(4, '4   '),
  1237.       opt(5, '5')),
  1238.  
  1239.     // Chilli thrips
  1240.     lChilliThrips:lbl(${res("Chilli_thrips")},lo(4,m(1,0,0,0),style:caption)),
  1241.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1242.       set(.dsetName,${'dsChilliThrips'},dTemp),
  1243.       set(.lblName,${'lChilliThrips'},dTemp),
  1244.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1245.     ci(single,chilliThrips,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1246.       dpath(dTemp, .pests\:dlist/dset[26].level),
  1247.       opt(1, '1   '),
  1248.       opt(2, '2   '),
  1249.       opt(3, '3   '),
  1250.       opt(4, '4   '),
  1251.       opt(5, '5')),
  1252.     lbl(#Pest_spread,lo(2)),  
  1253.     list(in:chilliThripsSpread,req:false,data:ldPestSpread,sort:no,
  1254.       dpath(dTemp,.pests\:dlist/dset[26].spread),
  1255.       lo(3)
  1256.     ),
  1257.     lbl(#Select_Beneficial,lo(2)),  
  1258.     list(in:chilliThripsBeneficial,req:false,data:ldBeneficials,sort:no,
  1259.       dpath(dTemp,.pests\:dlist/dset[26].beneficials_name),
  1260.       lo(3)
  1261.     ),
  1262.     lbl(#Beneficial_levels,lo(2,visible:${chilliThripsBeneficial!='Please select beneficial'})),
  1263.     ci(single,levelChilliThripsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliThripsBeneficial!='Please select beneficial'}),
  1264.       dpath(dTemp, .pests\:dlist/dset[26].beneficials_level),
  1265.       opt(1, '1   '),
  1266.       opt(2, '2   '),
  1267.       opt(3, '3   '),
  1268.       opt(4, '4   '),
  1269.       opt(5, '5')),
  1270.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelChilliThripsBeneficial)})),  
  1271.     list(in:chilliThripsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1272.       dpath(dTemp,.pests\:dlist/dset[26].beneficials_name_two),
  1273.       lo(3,visible:${notEmpty(levelChilliThripsBeneficial)})
  1274.     ),
  1275.     lbl(#Beneficial_levels,lo(2,visible:${chilliThripsBeneficialTwo!='Please select beneficial'})),
  1276.     ci(single,levelChilliThripsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliThripsBeneficialTwo!='Please select beneficial'}),
  1277.       dpath(dTemp, .pests\:dlist/dset[26].beneficials_level_two),
  1278.       opt(1, '1   '),
  1279.       opt(2, '2   '),
  1280.       opt(3, '3   '),
  1281.       opt(4, '4   '),
  1282.       opt(5, '5')),
  1283.  
  1284.     // No pests
  1285.     lNoPests:lbl(${res("No_pests")},lo(4,m(1,0,0,0),style:caption)),
  1286.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1287.       set(.dsetName,${'dsNoPests'},dTemp),
  1288.       set(.lblName,${'lNoPests'},dTemp),
  1289.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1290.     ci(single,noPests,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1291.       dpath(dTemp, .pests\:dlist/dset[27].level),
  1292.       opt(1, '1   '),
  1293.       opt(2, '2   '),
  1294.       opt(3, '3   '),
  1295.       opt(4, '4   '),
  1296.       opt(5, '5')),
  1297.     lbl(#Pest_spread,lo(2)),  
  1298.     list(in:noPestsSpread,req:false,data:ldPestSpread,sort:no,
  1299.       dpath(dTemp,.pests\:dlist/dset[27].spread),
  1300.       lo(3)
  1301.     ),
  1302.     lbl(#Select_Beneficial,lo(2)),  
  1303.     list(in:noPestsBeneficial,req:false,data:ldBeneficials,sort:no,
  1304.       dpath(dTemp,.pests\:dlist/dset[27].beneficials_name),
  1305.       lo(3)
  1306.     ),
  1307.     lbl(#Beneficial_levels,lo(2,visible:${noPestsBeneficial!='Please select beneficial'})),
  1308.     ci(single,levelNoPestsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${noPestsBeneficial!='Please select beneficial'}),
  1309.       dpath(dTemp, .pests\:dlist/dset[27].beneficials_level),
  1310.       opt(1, '1   '),
  1311.       opt(2, '2   '),
  1312.       opt(3, '3   '),
  1313.       opt(4, '4   '),
  1314.       opt(5, '5')),
  1315.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelNoPestsBeneficial)})),  
  1316.     list(in:noPestsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1317.       dpath(dTemp,.pests\:dlist/dset[27].beneficials_name_two),
  1318.       lo(3,visible:${notEmpty(levelNoPestsBeneficial)})
  1319.     ),
  1320.     lbl(#Beneficial_levels,lo(2,visible:${noPestsBeneficialTwo!='Please select beneficial'})),
  1321.     ci(single,levelNoPestsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${noPestsBeneficialTwo!='Please select beneficial'}),
  1322.       dpath(dTemp, .pests\:dlist/dset[27].beneficials_level_two),
  1323.       opt(1, '1   '),
  1324.       opt(2, '2   '),
  1325.       opt(3, '3   '),
  1326.       opt(4, '4   '),
  1327.       opt(5, '5')),
  1328.  
  1329.     // Other
  1330.     lOther:lbl(${res("Other")},lo(4,m(1,0,0,0),style:caption)),
  1331.     btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1332.       set(.dsetName,${'dsOther'},dTemp),
  1333.       set(.lblName,${'lOther'},dTemp),
  1334.       goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1335.     ci(single,other,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1336.       dpath(dTemp, .pests\:dlist/dset[28].level),
  1337.       opt(1, '1   '),
  1338.       opt(2, '2   '),
  1339.       opt(3, '3   '),
  1340.       opt(4, '4   '),
  1341.       opt(5, '5')),
  1342.     lbl(#Pest_spread,lo(2)),  
  1343.     list(in:otherSpread,req:false,data:ldPestSpread,sort:no,
  1344.       dpath(dTemp,.pests\:dlist/dset[28].spread),
  1345.       lo(3)
  1346.     ),
  1347.     lbl(#Select_Beneficial,lo(2)),  
  1348.     list(in:otherBeneficial,req:false,data:ldBeneficials,sort:no,
  1349.       dpath(dTemp,.pests\:dlist/dset[28].beneficials_name),
  1350.       lo(3)
  1351.     ),
  1352.     lbl(#Beneficial_levels,lo(2,visible:${otherBeneficial!='Please select beneficial'})),
  1353.     ci(single,levelOtherBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${otherBeneficial!='Please select beneficial'}),
  1354.       dpath(dTemp, .pests\:dlist/dset[28].beneficials_level),
  1355.       opt(1, '1   '),
  1356.       opt(2, '2   '),
  1357.       opt(3, '3   '),
  1358.       opt(4, '4   '),
  1359.       opt(5, '5')),
  1360.     lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelOtherBeneficial)})),  
  1361.     list(in:otherBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1362.       dpath(dTemp,.pests\:dlist/dset[28].beneficials_name_two),
  1363.       lo(3,visible:${notEmpty(levelOtherBeneficial)})
  1364.     ),
  1365.     lbl(#Beneficial_levels,lo(2,visible:${otherBeneficialTwo!='Please select beneficial'})),
  1366.     ci(single,levelOtherBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${otherBeneficialTwo!='Please select beneficial'}),
  1367.       dpath(dTemp, .pests\:dlist/dset[28].beneficials_level_two),
  1368.       opt(1, '1   '),
  1369.       opt(2, '2   '),
  1370.       opt(3, '3   '),
  1371.       opt(4, '4   '),
  1372.       opt(5, '5')),
  1373.  
  1374.     btn(#Review_report_before_sending,aln:center,pim:yes,lo(5,m(15,20,8,20)),call(na,block(
  1375.       if(${qpc('.pests/dset.level','dTemp')<=0&&qpc('.beneficials/dset.level','dTemp')<=0},block(
  1376.         alert(warn, #Please_report_at_least_one_pest_or_beneficial),
  1377.         end()
  1378.       )),
  1379.     //.Setting.Pests.Names.English
  1380.     if(${userLanguage=="en"}, block(
  1381.       set(.pests\:dlist/dset[0].name, ${"Carmine spider mite"}, dTemp),
  1382.       set(.pests\:dlist/dset[1].name, ${"Broad mite"}, dTemp),
  1383.       set(.pests\:dlist/dset[2].name, ${"Gray mould"}, dTemp),
  1384.       set(.pests\:dlist/dset[3].name, ${"TSWV"}, dTemp),
  1385.       set(.pests\:dlist/dset[4].name, ${"PYLCV"}, dTemp),
  1386.       set(.pests\:dlist/dset[5].name, ${"Fruit fly"}, dTemp),
  1387.       set(.pests\:dlist/dset[6].name, ${"Mediterranean fruit fly"}, dTemp),
  1388.       set(.pests\:dlist/dset[7].name, ${"Moth caterpillar"}, dTemp),
  1389.       set(.pests\:dlist/dset[8].name, ${"Chilli gall midge"}, dTemp),
  1390.       set(.pests\:dlist/dset[9].name, ${"Aphid"}, dTemp),
  1391.       set(.pests\:dlist/dset[10].name, ${"Green peach aphid"}, dTemp),
  1392.       set(.pests\:dlist/dset[11].name, ${"Melon and cotton aphid"}, dTemp),
  1393.       set(.pests\:dlist/dset[12].name, ${"Black bean aphid"}, dTemp),
  1394.       set(.pests\:dlist/dset[13].name, ${"Tobacco aphid"}, dTemp),
  1395.       set(.pests\:dlist/dset[14].name, ${"Tobacco whitefly"}, dTemp),
  1396.       set(.pests\:dlist/dset[15].name, ${"Solanum mealybug"}, dTemp),
  1397.       set(.pests\:dlist/dset[16].name, ${"Cotton mealybug"}, dTemp),
  1398.       set(.pests\:dlist/dset[17].name, ${"Cotton root-knot nematode"}, dTemp),
  1399.       set(.pests\:dlist/dset[18].name, ${"Ants"}, dTemp),
  1400.       set(.pests\:dlist/dset[19].name, ${"Herbarium"}, dTemp),
  1401.       set(.pests\:dlist/dset[20].name, ${"False codling moth"}, dTemp),
  1402.       set(.pests\:dlist/dset[21].name, ${"Pythium"}, dTemp),
  1403.       set(.pests\:dlist/dset[22].name, ${"Ovulariopsis"}, dTemp),
  1404.       set(.pests\:dlist/dset[23].name, ${"Cottony rot"}, dTemp),
  1405.       set(.pests\:dlist/dset[24].name, ${"Tobacco thrips"}, dTemp),
  1406.       set(.pests\:dlist/dset[25].name, ${"Western flower thrips"}, dTemp),
  1407.       set(.pests\:dlist/dset[26].name, ${"Chilli thrips"}, dTemp),
  1408.       set(.pests\:dlist/dset[27].name, ${"No pests"}, dTemp),
  1409.       set(.pests\:dlist/dset[28].name, ${"Other"}, dTemp)
  1410.       ),
  1411.       //.Setting.Pests.Names.Hebrew
  1412.       else:block(
  1413.       set(.pests\:dlist/dset[0].name, ${"אקרית אדומה"}, dTemp),
  1414.       set(.pests\:dlist/dset[1].name, ${"אקרית עיוותים"}, dTemp),
  1415.       set(.pests\:dlist/dset[2].name, ${"בוטריטיס"}, dTemp),
  1416.       set(.pests\:dlist/dset[3].name, ${"וירוס TSWV"}, dTemp),
  1417.       set(.pests\:dlist/dset[4].name, ${"וירוס PYLCV"}, dTemp),
  1418.       set(.pests\:dlist/dset[5].name, ${"זבובי פירות"}, dTemp),
  1419.       set(.pests\:dlist/dset[6].name, ${"זבוב פירות ים תיכוני"}, dTemp),
  1420.       set(.pests\:dlist/dset[7].name, ${"זחלי עשים"}, dTemp),
  1421.       set(.pests\:dlist/dset[8].name, ${"יתוץ החרוב"}, dTemp),
  1422.       set(.pests\:dlist/dset[9].name, ${"כנימות עלה"}, dTemp),
  1423.       set(.pests\:dlist/dset[10].name, ${"כנימת עלה אפרסק"}, dTemp),
  1424.       set(.pests\:dlist/dset[11].name, ${"כנימת עלה דלועים"}, dTemp),
  1425.       set(.pests\:dlist/dset[12].name, ${"כנימות עלה הפול"}, dTemp),
  1426.       set(.pests\:dlist/dset[13].name, ${"כנימות עלה ניקוטיאנה"}, dTemp),
  1427.       set(.pests\:dlist/dset[14].name, ${"כנימת עש הטבק"}, dTemp),
  1428.       set(.pests\:dlist/dset[15].name, ${"כנימה קמחית הסולנית"}, dTemp),
  1429.       set(.pests\:dlist/dset[16].name, ${"כנימה קמחית מנוקדת"}, dTemp),
  1430.       set(.pests\:dlist/dset[17].name, ${"נמטודות"}, dTemp),
  1431.       set(.pests\:dlist/dset[18].name, ${"נמלים"}, dTemp),
  1432.       set(.pests\:dlist/dset[19].name, ${"עשבייה"}, dTemp),
  1433.       set(.pests\:dlist/dset[20].name, ${"עש התפוח המדומה"}, dTemp),
  1434.       set(.pests\:dlist/dset[21].name, ${"פתיום (מקמקת)"}, dTemp),
  1435.       set(.pests\:dlist/dset[22].name, ${"קמחונית"}, dTemp),
  1436.       set(.pests\:dlist/dset[23].name, ${"קשיוניה גדולה"}, dTemp),
  1437.       set(.pests\:dlist/dset[24].name, ${"תריפס הטבק"}, dTemp),
  1438.       set(.pests\:dlist/dset[25].name, ${"תריפס קליפורני"}, dTemp),
  1439.       set(.pests\:dlist/dset[26].name, ${"תריפס קיקיון"}, dTemp),
  1440.       set(.pests\:dlist/dset[27].name, ${"לא נמצאו מזיקים"}, dTemp),
  1441.       set(.pests\:dlist/dset[28].name, ${"אחר"}, dTemp)
  1442.      )),
  1443.  
  1444.  
  1445.       goto(scr,.def.sReviewReportBeforeSendingYadMordecaiNew)
  1446.     ))),
  1447.  
  1448.     btn(#Back,lo(5,m(2,20,1,20)), pim:yes, call(#Back,cancel())),
  1449.  
  1450.     back:call(#Back,
  1451.       cancel()
  1452.     )
  1453.   ),
  1454.   sCFormCustomNotesAndPhotosScreenPestBeneficialsNew:frm(#Aditional_info,55|40|40|60|40,
  1455.    init:block(
  1456.     set($dsetName,.dsetName,dTemp)
  1457.  
  1458.    ),
  1459.  
  1460.    lbl("",lo(5)),
  1461.    lbl("",lo(5)),
  1462.    btn(#Text_notes,lo(5,m(5,30,5,30)),aln:center,call(na,
  1463.     goto(scr,.def.sCFormNotesCustomNew,mode:dialog))
  1464.    ),
  1465.    btn(#Recommendations,lo(5,m(5,30,5,30)),aln:center,call(na,
  1466.     goto(scr,.def.sCFormRecommendationsYadMordechaiPestBeneficialsNew)
  1467.    )),
  1468.    btn(#Capture_photo,lo(5,m(5,30,5,30)),aln:center,call(na,
  1469.     rvr:no,sys(cmd:photo,rid:dTemp,path:${dsetName.':dset.photo_note'},max:100))
  1470.    ),
  1471.    btn(#Add_photo,lo(5,m(5,30,5,30)),aln:center,call(na,
  1472.     rvr:no,sys(cmd:gallery,rid:dTemp,path:${dsetName.':dset.photo_note'},max:100))
  1473.    ),
  1474.    btn(#Save,lo(5,m(5,20,5,20)),pim:yes,aln:center,call(na,block(
  1475.  
  1476.     back()
  1477.    ))),
  1478.    back:call(#Back,
  1479.       cancel()
  1480.    )
  1481.   ),
  1482. sCFormRecommendationsYadMordechaiPestBeneficialsNew:frm(#Recommendations,58|58|58|58,
  1483.    init:block(
  1484.     set($dsetName,.dsetName,dTemp),
  1485.     set($crop, .crop,dDone)
  1486.  
  1487.    ),
  1488.     lbl(" ",lo(4)),
  1489.     // List of Recommendations for all crops
  1490.     list(in:recommendationsYad,req:yes,
  1491.       dpath(dTemp, .individual_recommendation),
  1492.       lo(4,visible:${containsNone(crop,'CR15G0')}),
  1493.       producer(listOptions,prm(prop:recommendation_pepper_rest))
  1494.     ),
  1495.     ti(otherRecommendationsYad, lo(4,visible:${recommendationsYad=='0.0'}), req:false, dpath(dTemp, .other_recommendation)),
  1496.    
  1497.     // List of Recommendations for Strawberies
  1498.     list(in:recommendationsYadStrawberries,req:yes,
  1499.       dpath(dTemp, .individual_recommendation_strawberries),
  1500.       lo(4,visible:${containsAny(crop,'CR15G0')}),
  1501.       producer(listOptions,prm(prop:recommendation_strawberries))
  1502.     ),
  1503.     ti(otherRecommendationsYadStrawberries, lo(4,visible:${recommendationsYadStrawberries=='0.0'}), req:false, dpath(dTemp, .other_recommendation_strawberries)),
  1504.     lbl(" ",lo(4)),
  1505.  
  1506.     btn(#Cancel,lo(2),call(na,block(
  1507.       cancel()
  1508.     ))),
  1509.     btn(#OK,lo(2),call(na,block(
  1510.       if(${containsNone(crop,'CR15G0')},
  1511.         set(${'.'.dsetName.':dset.individual_recommendation'},${if(recommendationsYad=='0.0',otherRecommendationsYad,lbl_recommendationsYad)},dTemp), //then
  1512.         set(${'.'.dsetName.':dset.individual_recommendation'},${if(recommendationsYadStrawberries=='0.0',otherRecommendationsYadStrawberries,lbl_recommendationsYadStrawberries)},dTemp) //else
  1513.       ),
  1514.       unset(.individual_recommendation, dTemp),
  1515.       unset(.other_recommendation, dTemp),
  1516.       unset(.other_recommendation_strawberries, dTemp),
  1517.       back()
  1518.     ))),
  1519.     back:call(#Back,
  1520.         cancel()
  1521.     )
  1522.   ),
  1523. sCFormNotesCustomNew:frm(#Notes,58|58|58|58,
  1524.    init:block(
  1525.     set($dsetName,.dsetName,dTemp),
  1526.     set($crop, .crop,dDone)
  1527.    ),
  1528.     lbl(" ",lo(4)),
  1529.     // List of notes for all Cropps
  1530.     list(in:notesYad,req:yes,sort:no,
  1531.       dpath(dTemp, .list_notes),
  1532.       lo(4,visible:${containsNone(crop,'CR15G0')}),
  1533.       producer(listOptions,prm(prop:notes_pepper_rest))
  1534.     ),
  1535.     ti(otherNotesYad, lo(4,visible:${notesYad=='1.0'&&containsNone(crop,'CR15G0')}), req:false, dpath(dTemp, .custom_notes)),
  1536.  
  1537.     // List of notes for Strawberries
  1538.     list(in:notesYadStrawberries,req:yes,sort:no,
  1539.       dpath(dTemp, .list_notes_strawberries),
  1540.       lo(4,visible:${containsAny(crop,'CR15G0')}),
  1541.       producer(listOptions,prm(prop:notes_strawberries))
  1542.     ),
  1543.     ti(otherNotesYadStrawberries, lo(4,visible:${notesYadStrawberries=='1.0'&&containsAny(crop,'CR15G0')}), req:false, dpath(dTemp, .custom_notes_strawberries)),
  1544.  
  1545.  
  1546.     lbl(" ",lo(4)),
  1547.  
  1548.     btn(#Cancel,lo(2),call(na,block(
  1549.       cancel()
  1550.     ))),
  1551.     btn(#OK,lo(2),call(na,block(
  1552.       if(${containsNone(crop,'CR15G0')},
  1553.         set(${'.'.dsetName.':dset.notes'},${if(notesYad=='1.0',otherNotesYad,lbl_notesYad)},dTemp), //Then
  1554.         set(${'.'.dsetName.':dset.notes'},${if(notesYadStrawberries=='1.0',otherNotesYadStrawberries,lbl_notesYadStrawberries)},dTemp) //Else
  1555.       ),
  1556.       unset(.list_notes, dTemp),
  1557.       unset(.list_notes_strawberries, dTemp),
  1558.       unset(.custom_notes, dTemp),
  1559.       unset(.custom_notes_strawberries, dTemp),
  1560.       back()
  1561.     ))),
  1562.     back:call(#Back,
  1563.         cancel()
  1564.     )
  1565.   ),
  1566.   sReviewReportBeforeSendingYadMordecaiNew:frm(#Review_report, 58|58|58|58,
  1567.     init:block(
  1568.       set($pestCode, .pest, dDone),
  1569.       set($taskCode, .task, dDone),
  1570.       set($lc,.plot,dDone),
  1571.       set($plotCode,.plot,dDone)
  1572.       set($crop, .crop, dDone),
  1573.       set($growerCode,.gCode,dDone),
  1574.       set($growerName,${qps('.def.sRoot/mi[val==growerCode].lbl')})
  1575.  
  1576.  
  1577.       ),
  1578.     refresh:block(),
  1579.  
  1580.     captionBlank:style(
  1581.       style(spec:light,bg:FFfafafa),
  1582.       style(spec:dark,bg:FF000000)
  1583.     ),
  1584.  
  1585.     @ldPestSpread:ldata(
  1586.       li(Please Select Distribution,${res("Please_Select_Distribution")},ord:1),
  1587.       li(1. isolated cases,${res("Isolated_cases")}),
  1588.       li(2. a number of areas,${res("A_number_of_areas")}),
  1589.       li(3. mainly on the margins,${res("Mainly_on_the_margins")}),
  1590.       li(4. in the entire section,${res("In_the_entire_section")})
  1591.     ),
  1592.  
  1593.     // Headers
  1594.     lbl(${res('Plot').':'}, lo(2, m(5, 0, 0, 0), bg:FFc6d2d2)),
  1595.     lbl(${qp('.plotName', 'dTemp')}, aln:left, lo(2, m(5, 0, 0, 0), bg:FFc6d2d2)),
  1596.     lbl(${res('Grower').':'}, lo(2, style:captionGrey)),
  1597.     lbl(${def(growerName,res('n%2Fa'))}, aln:left, lo(2, style:captionGrey)),
  1598.     lbl(${res('Crop').':'}, lo(2, bg:FFc6d2d2)),
  1599.     lbl(${qp('.cropName', 'dTemp')}, aln:left, lo(2, bg:FFc6d2d2)),
  1600.    
  1601.     lbl(${res("Summary")}, aln:center, lo(4,m(1,0,0,0), style:group)),
  1602.     lbl(${res("Contamination_levels")}, aln:center, lo(4, style:caption)),
  1603.  
  1604.     prp(ivar:pest, lo(4), dpath(dTemp, .pests\:dlist/dset[pest]),
  1605.       cont:pnl(cols:120|35|35|45,
  1606.         lbl(${res('Pest_and_beneficial').'('.res('name_and_level').')'},lo(4,m(5,0,5,0),style:caption,visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))})),
  1607.         lbl(${def(qp('.pests\:dlist/dset[pest].name','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))})),
  1608.         lbl(${def(qp('.pests\:dlist/dset[pest].level','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))})),
  1609.         lbl(#Pest_spread%3A,lo(2,style:captionBlank,m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))&&qp('.pests\:dlist/dset[pest].spread','dTemp')!='Please Select Distribution'})),
  1610.        // lbl(${def(qp('.pests\:dlist/dset[pest].spread','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))&&qp('.pests\:dlist/dset[pest].spread','dTemp')!='Please Select Distribution'})),
  1611.         list(in:spreadList,req:yes,data:ldPestSpread,
  1612.           dpath(dTemp, .pests\:dlist/dset[pest].spread),
  1613.           lo(2, style:captionBlank, enabled:${false},visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))&&qp('.pests\:dlist/dset[pest].spread','dTemp')!='Please Select Distribution'})
  1614.         ),
  1615.         list(in:beneficialOneName,req:yes,data:ldBeneficials,
  1616.           dpath(dTemp, .pests\:dlist/dset[pest].beneficials_name),
  1617.           lo(2, style:captionBlank, enabled:${false},visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level','dTemp'))})
  1618.         ),
  1619.         lbl(${def(qp('.pests\:dlist/dset[pest].beneficials_level','dTemp'), "n/a")}, lo(2, style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level','dTemp'))})),
  1620.         list(in:beneficialTwoName,req:yes,data:ldBeneficials,
  1621.           dpath(dTemp, .pests\:dlist/dset[pest].beneficials_name_two),
  1622.           lo(2, style:captionBlank, enabled:${false},visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level_two','dTemp'))})
  1623.         ),
  1624.         lbl(${def(qp('.pests\:dlist/dset[pest].beneficials_level_two','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level_two','dTemp'))}))
  1625.      
  1626.       )
  1627.     ),
  1628.     lbl(${res("Reported_pests_and_beneficials").":"}, aln:center, lo(2,m(10,0,0,0), style:captionGrey)),
  1629.     lbl(${qpc('.pests\:dlist/dset.level','dTemp')." / (29)"}, aln:center, lo(2,m(10,0,0,0), style:captionGrey)),
  1630.  
  1631.     lbl(${""},lo(4)),
  1632.  
  1633.     auxinfo:producer(prm(tags:yes,photos:yes,notes:yes,dset:dsInspectionNotes)),
  1634.  
  1635.     btn(#Save,lo(4,m(5,20,5,20)),pim:yes,aln:center,call(na,block(
  1636.  
  1637.     //Carmine Spider Mite
  1638.     if(${notEmpty(qp('.pests\:dlist/dset[0].level','dTemp'))}, block(
  1639.         if(${notEmpty(qp('.pests\:dlist/dset[0].beneficials_level','dTemp'))}, block(
  1640.           set($beneficialLevelCarmineSpriderMite, ${qp('.pests\:dlist/dset[0].beneficials_level','dTemp')},dTemp),
  1641.           set($beneficialPestCode, ${qp('.pests\:dlist/dset[0].beneficials_name','dTemp')},dTemp),
  1642.           set(.task,${"TS100H3D"},dDone),
  1643.           set(.pest,${beneficialPestCode},dDone),
  1644.           set(.levels5,$beneficialLevelCarmineSpriderMite,dDone),
  1645.           set(.data,$beneficialLevelCarmineSpriderMite,dDone),
  1646.           store(dDone,no),
  1647.         )),
  1648.         if(${notEmpty(qp('.pests\:dlist/dset[0].beneficials_level_two','dTemp'))}, block(
  1649.           set($beneficialLevelTwoCarmineSpiderMite, ${qp('.pests\:dlist/dset[0].beneficials_level_two','dTemp')},dTemp),
  1650.           set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[0].beneficials_name_two','dTemp')},dTemp),
  1651.           set(.task,${"TS100H3D"},dDone),
  1652.           set(.pest,${beneficialPestCodeTwo},dDone),
  1653.           set(.levels5,$beneficialLevelTwoCarmineSpiderMite,dDone),
  1654.           set(.data,$beneficialLevelTwoCarmineSpiderMite,dDone),
  1655.           store(dDone,no),
  1656.         )),
  1657.         set($carmineSpiderMite, ${qp('.pests\:dlist/dset[0].level','dTemp')}, dTemp),
  1658.         set(.task,${"TS100H3C"},dDone),
  1659.         set(.pest,${"PT204GSI0I"},dDone),
  1660.         if(${notEmpty(beneficialLevelCarmineSpriderMite)}, block(
  1661.           set(.beneficial_one, ${beneficialPestCode},dDone),
  1662.           set(.beneficial_one_level, ${beneficialLevelCarmineSpriderMite},dDone),                
  1663.         )),
  1664.         if(${notEmpty(beneficialLevelTwoCarmineSpiderMite)}, block(
  1665.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1666.           set(.beneficial_two_level, ${beneficialLevelTwoCarmineSpiderMite},dDone)
  1667.         )),
  1668.         if(${notEmpty(qps(".dsCarmineSpiderMite:dset.individual_recommendation",'dTemp'))},
  1669.           set(.individual_recommendation,${qps(".dsCarmineSpiderMite:dset.individual_recommendation",'dTemp')},dDone)
  1670.         ),
  1671.         if(${qp('.pests\:dlist/dset[0].spread','dTemp')!='Please select beneficial'}, block(
  1672.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[0].spread','dTemp')},dDone),  
  1673.         )),
  1674.         set(.items,${carmineSpiderMite},dDone),
  1675.         set(.levels5,${carmineSpiderMite},dDone),
  1676.         set(.data,$carmineSpiderMite,dDone),
  1677.         set($dsetName,${"dsCarmineSpiderMite"}),
  1678.  
  1679.         proc(copyNotes1),
  1680.         store(dDone,no),
  1681.         proc(cleanNotes1)
  1682.     )),
  1683.  
  1684.     //Broad mite
  1685.     if(${notEmpty(qp('.pests\:dlist/dset[1].level','dTemp'))}, block(
  1686.         if(${notEmpty(qp('.pests\:dlist/dset[1].beneficials_level','dTemp'))}, block(
  1687.           set($beneficialLevelBroadMite, ${qp('.pests\:dlist/dset[1].beneficials_level','dTemp')},dTemp),
  1688.           set($beneficialPestCode, ${qp('.pests\:dlist/dset[1].beneficials_name','dTemp')},dTemp),
  1689.           set(.task,${"TS100H3D"},dDone),
  1690.           set(.pest,${beneficialPestCode},dDone),
  1691.           set(.levels5,$beneficialLevelBroadMite,dDone),
  1692.           set(.data,$beneficialLevelBroadMite,dDone),
  1693.           store(dDone,no),
  1694.         )),
  1695.         if(${notEmpty(qp('.pests\:dlist/dset[1].beneficials_level_two','dTemp'))}, block(
  1696.           set($beneficialLevelTwoBroadMite, ${qp('.pests\:dlist/dset[1].beneficials_level_two','dTemp')},dTemp),
  1697.           set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[1].beneficials_name_two','dTemp')},dTemp),
  1698.           set(.task,${"TS100H3D"},dDone),
  1699.           set(.pest,${beneficialPestCodeTwo},dDone),
  1700.           set(.levels5,$beneficialLevelTwoBroadMite,dDone),
  1701.           set(.data,$beneficialLevelTwoBroadMite,dDone),
  1702.           store(dDone,no),
  1703.         )),
  1704.         set($broadMite, ${qp('.pests\:dlist/dset[1].level','dTemp')}, dTemp),
  1705.         set(.task,${"TS100H3C"},dDone),
  1706.         set(.pest,${"PT2047I1I"},dDone),
  1707.         if(${notEmpty(beneficialLevelBroadMite)}, block(
  1708.           set(.beneficial_one, ${beneficialPestCode},dDone),
  1709.           set(.beneficial_one_level, ${beneficialLevelBroadMite},dDone),    
  1710.         )),
  1711.         if(${notEmpty(beneficialLevelTwoBroadMite)}, block(
  1712.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1713.           set(.beneficial_two_level, ${beneficialLevelTwoBroadMite},dDone),      
  1714.         )),
  1715.         if(${qp('.pests\:dlist/dset[1].spread','dTemp')!='Please select beneficial'}, block(
  1716.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[1].spread','dTemp')},dDone),  
  1717.         )),
  1718.         set(.items,${broadMite},dDone),
  1719.         set(.levels5,${broadMite},dDone),
  1720.         set(.data,$broadMite,dDone),
  1721.         set($dsetName,${"dsBroadMite"}),
  1722.         if(${notEmpty(qps(".dsBroadMite:dset.individual_recommendation",'dTemp'))}, block(
  1723.           set(.individual_recommendation,${qps(".dsBroadMite:dset.individual_recommendation",'dTemp')},dDone)
  1724.         )),
  1725.         proc(copyNotes1),
  1726.         store(dDone,no),
  1727.         proc(cleanNotes1)
  1728.     )),
  1729.  
  1730.     //Gray mould
  1731.     if(${notEmpty(qp('.pests\:dlist/dset[2].level','dTemp'))}, block(
  1732.         if(${notEmpty(qp('.pests\:dlist/dset[2].beneficials_level','dTemp'))}, block(
  1733.           set($beneficialLevelGrayMould, ${qp('.pests\:dlist/dset[2].beneficials_level','dTemp')},dTemp),
  1734.           set($beneficialPestCode, ${qp('.pests\:dlist/dset[2].beneficials_name','dTemp')},dTemp),
  1735.           set(.task,${"TS100H3D"},dDone),
  1736.           set(.pest,${beneficialPestCode},dDone),
  1737.           set(.levels5,$beneficialLevelGrayMould,dDone),
  1738.           set(.data,$beneficialLevelGrayMould,dDone),
  1739.           store(dDone,no),
  1740.         )),
  1741.         if(${notEmpty(qp('.pests\:dlist/dset[2].beneficials_level_two','dTemp'))}, block(
  1742.           set($beneficialLevelTwoGrayMould, ${qp('.pests\:dlist/dset[2].beneficials_level_two','dTemp')},dTemp),
  1743.           set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[2].beneficials_name_two','dTemp')},dTemp),
  1744.           set(.task,${"TS100H3D"},dDone),
  1745.           set(.pest,${beneficialPestCodeTwo},dDone),
  1746.           set(.levels5,$beneficialLevelTwoGrayMould,dDone),
  1747.           set(.data,$beneficialLevelTwoGrayMould,dDone),
  1748.           store(dDone,no),
  1749.         )),
  1750.         set($grayMould, ${qp('.pests\:dlist/dset[2].level','dTemp')}, dTemp),
  1751.         set(.task,${"TS100H3C"},dDone),
  1752.         set(.pest,${"PT15G2I3I"},dDone),
  1753.         if(${notEmpty(beneficialLevelGrayMould)}, block(
  1754.           set(.beneficial_one, ${beneficialPestCode},dDone),
  1755.           set(.beneficial_one_level, ${beneficialLevelGrayMould},dDone),      
  1756.         )),
  1757.         if(${notEmpty(beneficialLevelTwoGrayMould)}, block(
  1758.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1759.           set(.beneficial_two_level, ${beneficialLevelTwoGrayMould},dDone),      
  1760.         )),
  1761.         if(${qp('.pests\:dlist/dset[2].spread','dTemp')!='Please select beneficial'}, block(
  1762.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[2].spread','dTemp')},dDone),  
  1763.         )),
  1764.         set(.items,${grayMould},dDone),
  1765.         set(.levels5,${grayMould},dDone),
  1766.         set(.data,$grayMould,dDone),
  1767.         set($dsetName,${"dsGrayMould"}),
  1768.         if(${notEmpty(qps(".dsGrayMould:dset.individual_recommendation",'dTemp'))}, block(
  1769.           set(.individual_recommendation,${qps(".dsGrayMould:dset.individual_recommendation",'dTemp')},dDone)
  1770.         )),
  1771.         proc(copyNotes1),
  1772.         store(dDone,no),
  1773.         proc(cleanNotes1)
  1774.     )),
  1775.  
  1776.     //TSWV
  1777.     if(${notEmpty(qp('.pests\:dlist/dset[3].level','dTemp'))}, block(
  1778.         if(${notEmpty(qp('.pests\:dlist/dset[3].beneficials_level','dTemp'))}, block(
  1779.             set($beneficialLevelTSWV, ${qp('.pests\:dlist/dset[3].beneficials_level','dTemp')},dTemp),
  1780.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[3].beneficials_name','dTemp')},dTemp),
  1781.             set(.task,${"TS100H3D"},dDone),
  1782.             set(.pest,${beneficialPestCode},dDone),
  1783.             set(.levels5,$beneficialLevelTSWV,dDone),
  1784.             set(.data,$beneficialLevelTSWV,dDone),
  1785.             store(dDone,no),
  1786.           )),
  1787.         if(${notEmpty(qp('.pests\:dlist/dset[3].beneficials_level_two','dTemp'))}, block(
  1788.             set($beneficialLevelTwoTSWV, ${qp('.pests\:dlist/dset[3].beneficials_level_two','dTemp')},dTemp),
  1789.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[3].beneficials_name_two','dTemp')},dTemp),
  1790.             set(.task,${"TS100H3D"},dDone),
  1791.             set(.pest,${beneficialPestCodeTwo},dDone),
  1792.             set(.levels5,$beneficialLevelTwoTSWV,dDone),
  1793.             set(.data,$beneficialLevelTwoTSWV,dDone),
  1794.             store(dDone,no),
  1795.         )),
  1796.         set($tSWV, ${qp('.pests\:dlist/dset[3].level','dTemp')}, dTemp),
  1797.         set(.task,${"TS100H3C"},dDone),
  1798.         set(.pest,${"PT15GAI0I"},dDone),
  1799.         if(${notEmpty(beneficialLevelTSWV)}, block(
  1800.           set(.beneficial_one, ${beneficialPestCode},dDone),
  1801.           set(.beneficial_one_level, ${beneficialLevelTSWV},dDone),      
  1802.         )),
  1803.         if(${notEmpty(beneficialLevelTwoTSWV)}, block(
  1804.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1805.           set(.beneficial_two_level, ${beneficialLevelTwoTSWV},dDone),      
  1806.         )),
  1807.         if(${qp('.pests\:dlist/dset[3].spread','dTemp')!='Please select beneficial'}, block(
  1808.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[3].spread','dTemp')},dDone),  
  1809.         )),
  1810.         set(.items,${tSWV},dDone),
  1811.         set(.levels5,${tSWV},dDone),
  1812.         set(.data,$tSWV,dDone),
  1813.         set($dsetName,${"dsTSWV"}),
  1814.         if(${notEmpty(qps(".dsTSWV:dset.individual_recommendation",'dTemp'))}, block(
  1815.           set(.individual_recommendation,${qps(".dsTSWV:dset.individual_recommendation",'dTemp')},dDone)
  1816.         )),
  1817.         proc(copyNotes1),
  1818.         store(dDone,no),
  1819.         proc(cleanNotes1)
  1820.     )),
  1821.  
  1822.       //PYLCV
  1823.     if(${notEmpty(qp('.pests\:dlist/dset[4].level','dTemp'))}, block(
  1824.       if(${notEmpty(qp('.pests\:dlist/dset[4].beneficials_level','dTemp'))}, block(
  1825.             set($beneficialLevelPYLCV, ${qp('.pests\:dlist/dset[4].beneficials_level','dTemp')},dTemp),
  1826.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[4].beneficials_name','dTemp')},dTemp),
  1827.             set(.task,${"TS100H3D"},dDone),
  1828.             set(.pest,${beneficialPestCode},dDone),
  1829.             set(.levels5,$beneficialLevelPYLCV,dDone),
  1830.             set(.data,$beneficialLevelPYLCV,dDone),
  1831.             store(dDone,no),
  1832.           )),
  1833.         if(${notEmpty(qp('.pests\:dlist/dset[4].beneficials_level_two','dTemp'))}, block(
  1834.             set($beneficialLevelTwoPYLCV, ${qp('.pests\:dlist/dset[4].beneficials_level_two','dTemp')},dTemp),
  1835.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[4].beneficials_name_two','dTemp')},dTemp),
  1836.             set(.task,${"TS100H3D"},dDone),
  1837.             set(.pest,${beneficialPestCodeTwo},dDone),
  1838.             set(.levels5,$beneficialLevelTwoPYLCV,dDone),
  1839.             set(.data,$beneficialLevelTwoPYLCV,dDone),
  1840.             store(dDone,no),
  1841.         )),
  1842.         set($pYLCV, ${qp('.pests\:dlist/dset[4].level','dTemp')}, dTemp),
  1843.         set(.task,${"TS100H3C"},dDone),
  1844.         set(.pest,${"PT15H6BI0I"},dDone),
  1845.         if(${notEmpty(beneficialLevelPYLCV)}, block(
  1846.           set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone),
  1847.           set(.beneficial_one_level, ${beneficialLevelPYLCV},dDone,dDone,dDone),      
  1848.         )),
  1849.         if(${notEmpty(beneficialLevelTwoPYLCV)}, block(
  1850.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone),
  1851.           set(.beneficial_two_level, ${beneficialLevelTwoPYLCV},dDone,dDone,dDone),      
  1852.         )),
  1853.         if(${notEmpty(qps(".dsPYLCV:dset.individual_recommendation",'dTemp'))}, block(
  1854.           set(.individual_recommendation,${qps(".dsPYLCV:dset.individual_recommendation",'dTemp')},dDone)
  1855.         )),
  1856.         if(${qp('.pests\:dlist/dset[4].spread','dTemp')!='Please select beneficial'}, block(
  1857.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[4].spread','dTemp')},dDone),  
  1858.         )),
  1859.         set(.items,${pYLCV},dDone),
  1860.         set(.levels5,${pYLCV},dDone),
  1861.         set(.data,$pYLCV,dDone),
  1862.         set($dsetName,${"dsPYLCV"}),
  1863.         proc(copyNotes),
  1864.         store(dDone,no),
  1865.         proc(cleanNotes)
  1866.     )),
  1867.  
  1868.     //Fruit fly
  1869.     if(${notEmpty(qp('.pests\:dlist/dset[5].level','dTemp'))}, block(
  1870.         if(${notEmpty(qp('.pests\:dlist/dset[5].beneficials_level','dTemp'))}, block(
  1871.             set($beneficialLevelFruitFly, ${qp('.pests\:dlist/dset[5].beneficials_level','dTemp')},dTemp),
  1872.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[5].beneficials_name','dTemp')},dTemp),
  1873.             set(.task,${"TS100H3D"},dDone),
  1874.             set(.pest,${beneficialPestCode},dDone),
  1875.             set(.levels5,$beneficialLevelFruitFly,dDone),
  1876.             set(.data,$beneficialLevelFruitFly,dDone),
  1877.             store(dDone,no),
  1878.           )),
  1879.         if(${notEmpty(qp('.pests\:dlist/dset[5].beneficials_level_two','dTemp'))}, block(
  1880.             set($beneficialLevelTwoFruitFly, ${qp('.pests\:dlist/dset[5].beneficials_level_two','dTemp')},dTemp),
  1881.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[5].beneficials_name_two','dTemp')},dTemp),
  1882.             set(.task,${"TS100H3D"},dDone),
  1883.             set(.pest,${beneficialPestCodeTwo},dDone),
  1884.             set(.levels5,$beneficialLevelTwoFruitFly,dDone),
  1885.             set(.data,$beneficialLevelTwoFruitFly,dDone),
  1886.             store(dDone,no),
  1887.         )),
  1888.         set($fruitFly, ${qp('.pests\:dlist/dset[5].level','dTemp')}, dTemp),
  1889.         set(.task,${"TS100H3C"},dDone),
  1890.         set(.pest,${"PT2008I1I"},dDone),
  1891.         if(${notEmpty(beneficialLevelFruitFly)}, block(
  1892.           set(.beneficial_one, ${beneficialPestCode},dDone,dDone),
  1893.           set(.beneficial_one_level, ${beneficialLevelFruitFly},dDone,dDone),      
  1894.         )),
  1895.         if(${notEmpty(beneficialLevelTwoFruitFly)}, block(
  1896.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone),
  1897.           set(.beneficial_two_level, ${beneficialLevelTwoFruitFly},dDone,dDone),      
  1898.         )),
  1899.         if(${notEmpty(qps(".dsFruitFly:dset.individual_recommendation",'dTemp'))}, block(
  1900.           set(.individual_recommendation,${qps(".dsFruitFly:dset.individual_recommendation",'dTemp')},dDone)
  1901.         )),
  1902.         if(${qp('.pests\:dlist/dset[5].spread','dTemp')!='Please select beneficial'}, block(
  1903.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[5].spread','dTemp')},dDone),  
  1904.         )),
  1905.         set(.items,${fruitFly},dDone),
  1906.         set(.levels5,${fruitFly},dDone),
  1907.         set(.data,$fruitFly,dDone),
  1908.         set($dsetName,${"dsFruitFly"}),
  1909.         proc(copyNotes),
  1910.         store(dDone,no),
  1911.         proc(cleanNotes)
  1912.     )),
  1913.  
  1914.     //Mediterranean fruit fly
  1915.     if(${notEmpty(qp('.pests\:dlist/dset[6].level','dTemp'))}, block(
  1916.         if(${notEmpty(qp('.pests\:dlist/dset[6].beneficials_level','dTemp'))}, block(
  1917.             set($beneficialLevelMediterraneanFruitFly, ${qp('.pests\:dlist/dset[6].beneficials_level','dTemp')},dTemp),
  1918.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[6].beneficials_name','dTemp')},dTemp),
  1919.             set(.task,${"TS100H3D"},dDone),
  1920.             set(.pest,${beneficialPestCode},dDone),
  1921.             set(.levels5,$beneficialLevelMediterraneanFruitFly,dDone),
  1922.             set(.data,$beneficialLevelMediterraneanFruitFly,dDone),
  1923.             store(dDone,no),
  1924.           )),
  1925.         if(${notEmpty(qp('.pests\:dlist/dset[6].beneficials_level_two','dTemp'))}, block(
  1926.             set($beneficialLevelTwoMediterraneanFruitFly, ${qp('.pests\:dlist/dset[6].beneficials_level_two','dTemp')},dTemp),
  1927.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[6].beneficials_name_two','dTemp')},dTemp),
  1928.             set(.task,${"TS100H3D"},dDone),
  1929.             set(.pest,${beneficialPestCodeTwo},dDone),
  1930.             set(.levels5,$beneficialLevelTwoMediterraneanFruitFly,dDone),
  1931.             set(.data,$beneficialLevelTwoMediterraneanFruitFly,dDone),
  1932.             store(dDone,no),
  1933.         )),
  1934.         set($mediterraneanFruitFly, ${qp('.pests\:dlist/dset[6].level','dTemp')}, dTemp),
  1935.         set(.task,${"TS100H3C"},dDone),
  1936.         set(.pest,${"PT2001I5I0I"},dDone),
  1937.         if(${notEmpty(beneficialLevelMediterraneanFruitFly)}, block(
  1938.           set(.beneficial_one, ${beneficialPestCode},dDone),
  1939.           set(.beneficial_one_level, ${beneficialLevelMediterraneanFruitFly},dDone),      
  1940.         )),
  1941.         if(${notEmpty(beneficialLevelTwoMediterraneanFruitFly)}, block(
  1942.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1943.           set(.beneficial_two_level, ${beneficialLevelTwoMediterraneanFruitFly},dDone),      
  1944.         )),
  1945.         if(${notEmpty(qps(".dsMediterraneanFruitFly:dset.individual_recommendation",'dTemp'))}, block(
  1946.           set(.individual_recommendation,${qps(".dsMediterraneanFruitFly:dset.individual_recommendation",'dTemp')},dDone)
  1947.         )),
  1948.         if(${qp('.pests\:dlist/dset[6].spread','dTemp')!='Please select beneficial'}, block(
  1949.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[6].spread','dTemp')},dDone),  
  1950.         )),
  1951.         set(.items,${mediterraneanFruitFly},dDone),
  1952.         set(.levels5,${mediterraneanFruitFly},dDone),
  1953.         set(.data,$mediterraneanFruitFly,dDone),
  1954.         set($dsetName,${"dsMediterraneanFruitFly"}),
  1955.         proc(copyNotes),
  1956.         store(dDone,no),
  1957.         proc(cleanNotes)
  1958.     )),
  1959.  
  1960.     //Moth caterpillar
  1961.     if(${notEmpty(qp('.pests\:dlist/dset[7].level','dTemp'))}, block(
  1962.         if(${notEmpty(qp('.pests\:dlist/dset[7].beneficials_level','dTemp'))}, block(
  1963.             set($beneficialLevelMothCaterpillar, ${qp('.pests\:dlist/dset[7].beneficials_level','dTemp')},dTemp),
  1964.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[7].beneficials_name','dTemp')},dTemp),
  1965.             set(.task,${"TS100H3D"},dDone),
  1966.             set(.pest,${beneficialPestCode},dDone),
  1967.             set(.levels5,$beneficialLevelMothCaterpillar,dDone),
  1968.             set(.data,$beneficialLevelMothCaterpillar,dDone),
  1969.             store(dDone,no),
  1970.           )),
  1971.         if(${notEmpty(qp('.pests\:dlist/dset[7].beneficials_level_two','dTemp'))}, block(
  1972.             set($beneficialLevelTwoMothCaterpillar, ${qp('.pests\:dlist/dset[7].beneficials_level_two','dTemp')},dTemp),
  1973.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[7].beneficials_name_two','dTemp')},dTemp),
  1974.             set(.task,${"TS100H3D"},dDone),
  1975.             set(.pest,${beneficialPestCodeTwo},dDone),
  1976.             set(.levels5,$beneficialLevelTwoMothCaterpillar,dDone),
  1977.             set(.data,$beneficialLevelTwoMothCaterpillar,dDone),
  1978.             store(dDone,no),
  1979.         )),
  1980.         set($mothCaterpillar, ${qp('.pests\:dlist/dset[7].level','dTemp')}, dTemp),
  1981.         set(.task,${"TS100H3C"},dDone),
  1982.         set(.pest,${"PT205I2I0I"},dDone),
  1983.         if(${notEmpty(beneficialLevelMothCaterpillar)}, block(
  1984.           set(.beneficial_one, ${beneficialPestCode},dDone),
  1985.           set(.beneficial_one_level, ${beneficialLevelMothCaterpillar},dDone),      
  1986.         )),
  1987.         if(${notEmpty(beneficialLevelTwoMothCaterpillar)}, block(
  1988.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1989.           set(.beneficial_two_level, ${beneficialLevelTwoMothCaterpillar},dDone),      
  1990.         )),
  1991.         if(${notEmpty(qps(".dsMothCaterpillar:dset.individual_recommendation",'dTemp'))}, block(
  1992.           set(.individual_recommendation,${qps(".dsMothCaterpillar:dset.individual_recommendation",'dTemp')},dDone)
  1993.         )),
  1994.         if(${qp('.pests\:dlist/dset[7].spread','dTemp')!='Please select beneficial'}, block(
  1995.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[7].spread','dTemp')},dDone),  
  1996.         )),
  1997.         set(.items,${mothCaterpillar},dDone),
  1998.         set(.levels5,${mothCaterpillar},dDone),
  1999.         set(.data,$mothCaterpillar,dDone),
  2000.         set($dsetName,${"dsMothCaterpillar"}),
  2001.         proc(copyNotes),
  2002.         store(dDone,no),
  2003.         proc(cleanNotes)
  2004.     )),
  2005.  
  2006.     //Chilli gall midge
  2007.     if(${notEmpty(qp('.pests\:dlist/dset[8].level','dTemp'))}, block(
  2008.         if(${notEmpty(qp('.pests\:dlist/dset[8].beneficials_level','dTemp'))}, block(
  2009.             set($beneficialLevelChilliGallMidge, ${qp('.pests\:dlist/dset[8].beneficials_level','dTemp')},dTemp),
  2010.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[8].beneficials_name','dTemp')},dTemp),
  2011.             set(.task,${"TS100H3D"},dDone),
  2012.             set(.pest,${beneficialPestCode},dDone),
  2013.             set(.levels5,$beneficialLevelChilliGallMidge,dDone),
  2014.             set(.data,$beneficialLevelChilliGallMidge,dDone),
  2015.             store(dDone,no),
  2016.           )),
  2017.         if(${notEmpty(qp('.pests\:dlist/dset[8].beneficials_level_two','dTemp'))}, block(
  2018.             set($beneficialLevelTwoChilliGallMidge, ${qp('.pests\:dlist/dset[8].beneficials_level_two','dTemp')},dTemp),
  2019.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[8].beneficials_name_two','dTemp')},dTemp),
  2020.             set(.task,${"TS100H3D"},dDone),
  2021.             set(.pest,${beneficialPestCodeTwo},dDone),
  2022.             set(.levels5,$beneficialLevelTwoChilliGallMidge,dDone),
  2023.             set(.data,$beneficialLevelTwoChilliGallMidge,dDone),
  2024.             store(dDone,no),
  2025.         )),
  2026.         set($chilliGallMidge, ${qp('.pests\:dlist/dset[8].level','dTemp')}, dTemp),
  2027.         set(.task,${"TS100H3C"},dDone),
  2028.         set(.pest,${"PT201GTI0I"},dDone),
  2029.         if(${notEmpty(beneficialLevelChilliGallMidge)}, block(
  2030.           set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone,dDone,dDone),
  2031.           set(.beneficial_one_level, ${beneficialLevelChilliGallMidge},dDone,dDone,dDone,dDone,dDone),      
  2032.         )),
  2033.         if(${notEmpty(beneficialLevelTwoChilliGallMidge)}, block(
  2034.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone,dDone,dDone),
  2035.           set(.beneficial_two_level, ${beneficialLevelTwoChilliGallMidge},dDone,dDone,dDone,dDone,dDone),      
  2036.         )),
  2037.         if(${notEmpty(qps(".dsChilliGallMidge:dset.individual_recommendation",'dTemp'))}, block(
  2038.           set(.individual_recommendation,${qps(".dsChilliGallMidge:dset.individual_recommendation",'dTemp')},dDone)
  2039.         )),
  2040.         if(${qp('.pests\:dlist/dset[8].spread','dTemp')!='Please select beneficial'}, block(
  2041.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[8].spread','dTemp')},dDone),  
  2042.         )),
  2043.         set(.items,${chilliGallMidge},dDone),
  2044.         set(.levels5,${chilliGallMidge},dDone),
  2045.         set(.data,$chilliGallMidge,dDone),
  2046.         set($dsetName,${"dsChilliGallMidge"}),
  2047.         proc(copyNotes),
  2048.         store(dDone,no),
  2049.         proc(cleanNotes)
  2050.     )),
  2051.  
  2052.     //Aphid
  2053.     if(${notEmpty(qp('.pests\:dlist/dset[9].level','dTemp'))}, block(
  2054.         if(${notEmpty(qp('.pests\:dlist/dset[9].beneficials_level','dTemp'))}, block(
  2055.             set($beneficialLevelAphid, ${qp('.pests\:dlist/dset[9].beneficials_level','dTemp')},dTemp),
  2056.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[9].beneficials_name','dTemp')},dTemp),
  2057.             set(.task,${"TS100H3D"},dDone),
  2058.             set(.pest,${beneficialPestCode},dDone),
  2059.             set(.levels5,$beneficialLevelAphid,dDone),
  2060.             set(.data,$beneficialLevelAphid,dDone),
  2061.             store(dDone,no),
  2062.           )),
  2063.         if(${notEmpty(qp('.pests\:dlist/dset[9].beneficials_level_two','dTemp'))}, block(
  2064.             set($beneficialLevelTwoAphid, ${qp('.pests\:dlist/dset[9].beneficials_level_two','dTemp')},dTemp),
  2065.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[9].beneficials_name_two','dTemp')},dTemp),
  2066.             set(.task,${"TS100H3D"},dDone),
  2067.             set(.pest,${beneficialPestCodeTwo},dDone),
  2068.             set(.levels5,$beneficialLevelTwoAphid,dDone),
  2069.             set(.data,$beneficialLevelTwoAphid,dDone),
  2070.             store(dDone,no),
  2071.         )),
  2072.         set($aphid, ${qp('.pests\:dlist/dset[9].level','dTemp')}, dTemp),
  2073.         set(.task,${"TS100H3C"},dDone),
  2074.         set(.pest,${"PT135IBI"},dDone),
  2075.         if(${notEmpty(beneficialLevelAphid)}, block(
  2076.           set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone,dDone),
  2077.           set(.beneficial_one_level, ${beneficialLevelAphid},dDone,dDone,dDone,dDone),      
  2078.         )),
  2079.         if(${notEmpty(beneficialLevelTwoAphid)}, block(
  2080.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone,dDone),
  2081.           set(.beneficial_two_level, ${beneficialLevelTwoAphid},dDone,dDone,dDone,dDone),      
  2082.         )),
  2083.         if(${notEmpty(qps(".dsAphid:dset.individual_recommendation",'dTemp'))}, block(
  2084.           set(.individual_recommendation,${qps(".dsAphid:dset.individual_recommendation",'dTemp')},dDone)
  2085.         )),
  2086.         if(${qp('.pests\:dlist/dset[9].spread','dTemp')!='Please select beneficial'}, block(
  2087.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[9].spread','dTemp')},dDone),  
  2088.         )),
  2089.         set(.items,${aphid},dDone),
  2090.         set(.levels5,${aphid},dDone),
  2091.         set(.data,$aphid,dDone),
  2092.         set($dsetName,${"dsAphid"}),
  2093.         proc(copyNotes),
  2094.         store(dDone,no),
  2095.         proc(cleanNotes)
  2096.     )),
  2097.  
  2098.     //Green peach aphid
  2099.     if(${notEmpty(qp('.pests\:dlist/dset[10].level','dTemp'))}, block(
  2100.         if(${notEmpty(qp('.pests\:dlist/dset[10].beneficials_level','dTemp'))}, block(
  2101.             set($beneficialLevelGreenPeachAphid, ${qp('.pests\:dlist/dset[10].beneficials_level','dTemp')},dTemp),
  2102.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[10].beneficials_name','dTemp')},dTemp),
  2103.             set(.task,${"TS100H3D"},dDone),
  2104.             set(.pest,${beneficialPestCode},dDone),
  2105.             set(.levels5,$beneficialLevelGreenPeachAphid,dDone),
  2106.             set(.data,$beneficialLevelGreenPeachAphid,dDone),
  2107.             store(dDone,no),
  2108.           )),
  2109.         if(${notEmpty(qp('.pests\:dlist/dset[10].beneficials_level_two','dTemp'))}, block(
  2110.             set($beneficialLevelTwoGreenPeachAphid, ${qp('.pests\:dlist/dset[10].beneficials_level_two','dTemp')},dTemp),
  2111.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[10].beneficials_name_two','dTemp')},dTemp),
  2112.             set(.task,${"TS100H3D"},dDone),
  2113.             set(.pest,${beneficialPestCodeTwo},dDone),
  2114.             set(.levels5,$beneficialLevelTwoGreenPeachAphid,dDone),
  2115.             set(.data,$beneficialLevelTwoGreenPeachAphid,dDone),
  2116.             store(dDone,no),
  2117.         )),
  2118.         set($greenPeachAphid, ${qp('.pests\:dlist/dset[10].level','dTemp')}, dTemp),
  2119.         set(.task,${"TS100H3C"},dDone),
  2120.         set(.pest,${"PT13G7I2I"},dDone),
  2121.         if(${notEmpty(beneficialLevelGreenPeachAphid)}, block(
  2122.           set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone),
  2123.           set(.beneficial_one_level, ${beneficialLevelGreenPeachAphid},dDone,dDone,dDone),      
  2124.         )),
  2125.         if(${notEmpty(beneficialLevelTwoGreenPeachAphid)}, block(
  2126.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone),
  2127.           set(.beneficial_two_level, ${beneficialLevelTwoGreenPeachAphid},dDone,dDone,dDone),      
  2128.         )),
  2129.         if(${notEmpty(qps(".dsGreenPeachAphid:dset.individual_recommendation",'dTemp'))}, block(
  2130.           set(.individual_recommendation,${qps(".dsGreenPeachAphid:dset.individual_recommendation",'dTemp')},dDone)
  2131.         )),
  2132.         if(${qp('.pests\:dlist/dset[10].spread','dTemp')!='Please select beneficial'}, block(
  2133.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[10].spread','dTemp')},dDone),  
  2134.         )),
  2135.         set(.items,${greenPeachAphid},dDone),
  2136.         set(.levels5,${greenPeachAphid},dDone),
  2137.         set(.data,$greenPeachAphid,dDone),
  2138.         set($dsetName,${"dsGreenPeachAphid"}),
  2139.         proc(copyNotes),
  2140.         store(dDone,no),
  2141.         proc(cleanNotes)
  2142.     )),
  2143.  
  2144.     //Melon and cotton aphid
  2145.     if(${notEmpty(qp('.pests\:dlist/dset[11].level','dTemp'))}, block(
  2146.         if(${notEmpty(qp('.pests\:dlist/dset[11].beneficials_level','dTemp'))}, block(
  2147.             set($beneficialLevelMelonAndCottonAphid, ${qp('.pests\:dlist/dset[11].beneficials_level','dTemp')},dTemp),
  2148.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[11].beneficials_name','dTemp')},dTemp),
  2149.             set(.task,${"TS100H3D"},dDone),
  2150.             set(.pest,${beneficialPestCode},dDone),
  2151.             set(.levels5,$beneficialLevelMelonAndCottonAphid,dDone),
  2152.             set(.data,$beneficialLevelMelonAndCottonAphid,dDone),
  2153.             store(dDone,no),
  2154.           )),
  2155.         if(${notEmpty(qp('.pests\:dlist/dset[11].beneficials_level_two','dTemp'))}, block(
  2156.             set($beneficialLevelTwoMelonAndCottonAphid, ${qp('.pests\:dlist/dset[11].beneficials_level_two','dTemp')},dTemp),
  2157.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[11].beneficials_name_two','dTemp')},dTemp),
  2158.             set(.task,${"TS100H3D"},dDone),
  2159.             set(.pest,${beneficialPestCodeTwo},dDone),
  2160.             set(.levels5,$beneficialLevelTwoMelonAndCottonAphid,dDone),
  2161.             set(.data,$beneficialLevelTwoMelonAndCottonAphid,dDone),
  2162.             store(dDone,no),
  2163.         )),
  2164.         set($melonAndCottonAphid, ${qp('.pests\:dlist/dset[11].level','dTemp')}, dTemp),
  2165.         set(.task,${"TS100H3C"},dDone),
  2166.         set(.pest,${"PT13HHI0I"},dDone),
  2167.         if(${notEmpty(beneficialLevelMelonAndCottonAphid)}, block(
  2168.           set(.beneficial_one, ${beneficialPestCode},dDone,dDone),
  2169.           set(.beneficial_one_level, ${beneficialLevelMelonAndCottonAphid},dDone,dDone),      
  2170.         )),
  2171.         if(${notEmpty(beneficialLevelTwoMelonAndCottonAphid)}, block(
  2172.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone),
  2173.           set(.beneficial_two_level, ${beneficialLevelTwoMelonAndCottonAphid},dDone,dDone),      
  2174.         )),
  2175.         if(${notEmpty(qps(".dsMelonAndCottonAphid:dset.individual_recommendation",'dTemp'))}, block(
  2176.           set(.individual_recommendation,${qps(".dsMelonAndCottonAphid:dset.individual_recommendation",'dTemp')},dDone)
  2177.         )),
  2178.         if(${qp('.pests\:dlist/dset[11].spread','dTemp')!='Please select beneficial'}, block(
  2179.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[11].spread','dTemp')},dDone),  
  2180.         )),
  2181.         set(.items,${melonAndCottonAphid},dDone),
  2182.         set(.levels5,${melonAndCottonAphid},dDone),
  2183.         set(.data,$melonAndCottonAphid,dDone),
  2184.         set($dsetName,${"dsMelonAndCottonAphid"}),
  2185.         proc(copyNotes),
  2186.         store(dDone,no),
  2187.         proc(cleanNotes)
  2188.     )),
  2189.  
  2190.     //Black bean aphid
  2191.     if(${notEmpty(qp('.pests\:dlist/dset[12].level','dTemp'))}, block(
  2192.         if(${notEmpty(qp('.pests\:dlist/dset[12].beneficials_level','dTemp'))}, block(
  2193.             set($beneficialLevelBlackBeanAphid, ${qp('.pests\:dlist/dset[12].beneficials_level','dTemp')},dTemp),
  2194.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[12].beneficials_name','dTemp')},dTemp),
  2195.             set(.task,${"TS100H3D"},dDone),
  2196.             set(.pest,${beneficialPestCode},dDone),
  2197.             set(.levels5,$beneficialLevelBlackBeanAphid,dDone),
  2198.             set(.data,$beneficialLevelBlackBeanAphid,dDone),
  2199.             store(dDone,no),
  2200.           )),
  2201.         if(${notEmpty(qp('.pests\:dlist/dset[12].beneficials_level_two','dTemp'))}, block(
  2202.             set($beneficialLevelTwoBlackBeanAphid, ${qp('.pests\:dlist/dset[12].beneficials_level_two','dTemp')},dTemp),
  2203.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[12].beneficials_name_two','dTemp')},dTemp),
  2204.             set(.task,${"TS100H3D"},dDone),
  2205.             set(.pest,${beneficialPestCodeTwo},dDone),
  2206.             set(.levels5,$beneficialLevelTwoBlackBeanAphid,dDone),
  2207.             set(.data,$beneficialLevelTwoBlackBeanAphid,dDone),
  2208.             store(dDone,no),
  2209.         )),
  2210.         set($blackBeanAphid, ${qp('.pests\:dlist/dset[12].level','dTemp')}, dTemp),
  2211.         set(.task,${"TS100H3C"},dDone),
  2212.         set(.pest,${"PT135AI0I"},dDone),
  2213.         if(${notEmpty(beneficialLevelBlackBeanAphid)}, block(
  2214.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2215.           set(.beneficial_one_level, ${beneficialLevelBlackBeanAphid},dDone),      
  2216.         )),
  2217.         if(${notEmpty(beneficialLevelTwoBlackBeanAphid)}, block(
  2218.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2219.           set(.beneficial_two_level, ${beneficialLevelTwoBlackBeanAphid},dDone),      
  2220.         )),
  2221.         if(${notEmpty(qps(".dsBlackBeanAphid:dset.individual_recommendation",'dTemp'))}, block(
  2222.           set(.individual_recommendation,${qps(".dsBlackBeanAphid:dset.individual_recommendation",'dTemp')},dDone)
  2223.         )),
  2224.         if(${qp('.pests\:dlist/dset[12].spread','dTemp')!='Please select beneficial'}, block(
  2225.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[12].spread','dTemp')},dDone),  
  2226.         )),
  2227.         set(.items,${blackBeanAphid},dDone),
  2228.         set(.levels5,${blackBeanAphid},dDone),
  2229.         set(.data,$blackBeanAphid,dDone),
  2230.         set($dsetName,${"dsBlackBeanAphid"}),
  2231.         proc(copyNotes),
  2232.         store(dDone,no),
  2233.         proc(cleanNotes)
  2234.     )),
  2235.  
  2236.     //Tobacco Aphid
  2237.     if(${notEmpty(qp('.pests\:dlist/dset[13].level','dTemp'))}, block(
  2238.         if(${notEmpty(qp('.pests\:dlist/dset[13].beneficials_level','dTemp'))}, block(
  2239.             set($beneficialLevelTobaccoAphid, ${qp('.pests\:dlist/dset[13].beneficials_level','dTemp')},dTemp),
  2240.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[13].beneficials_name','dTemp')},dTemp),
  2241.             set(.task,${"TS100H3D"},dDone),
  2242.             set(.pest,${beneficialPestCode},dDone),
  2243.             set(.levels5,$beneficialLevelTobaccoAphid,dDone),
  2244.             set(.data,$beneficialLevelTobaccoAphid,dDone),
  2245.             store(dDone,no),
  2246.           )),
  2247.         if(${notEmpty(qp('.pests\:dlist/dset[13].beneficials_level_two','dTemp'))}, block(
  2248.             set($beneficialLevelTwoTobaccoAphid, ${qp('.pests\:dlist/dset[13].beneficials_level_two','dTemp')},dTemp),
  2249.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[13].beneficials_name_two','dTemp')},dTemp),
  2250.             set(.task,${"TS100H3D"},dDone),
  2251.             set(.pest,${beneficialPestCodeTwo},dDone),
  2252.             set(.levels5,$beneficialLevelTwoTobaccoAphid,dDone),
  2253.             set(.data,$beneficialLevelTwoTobaccoAphid,dDone),
  2254.             store(dDone,no),
  2255.         )),
  2256.         set($tobaccoAphid, ${qp('.pests\:dlist/dset[13].level','dTemp')}, dTemp),
  2257.         set(.task,${"TS100H3C"},dDone),
  2258.         set(.pest,${"PT13J0I0I"},dDone),
  2259.         if(${notEmpty(beneficialLevelTobaccoAphid)}, block(
  2260.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2261.           set(.beneficial_one_level, ${beneficialLevelTobaccoAphid},dDone),      
  2262.         )),
  2263.         if(${notEmpty(beneficialLevelTwoTobaccoAphid)}, block(
  2264.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2265.           set(.beneficial_two_level, ${beneficialLevelTwoTobaccoAphid},dDone),      
  2266.         )),
  2267.         if(${notEmpty(qps(".dsTobaccoAphid:dset.individual_recommendation",'dTemp'))}, block(
  2268.           set(.individual_recommendation,${qps(".dsTobaccoAphid:dset.individual_recommendation",'dTemp')},dDone)
  2269.         )),
  2270.         if(${qp('.pests\:dlist/dset[13].spread','dTemp')!='Please select beneficial'}, block(
  2271.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[13].spread','dTemp')},dDone),  
  2272.         )),
  2273.         set(.items,${tobaccoAphid},dDone),
  2274.         set(.levels5,${tobaccoAphid},dDone),
  2275.         set(.data,$tobaccoAphid,dDone),
  2276.         set($dsetName,${"dsTobaccoAphid"}),
  2277.         proc(copyNotes),
  2278.         store(dDone,no),
  2279.         proc(cleanNotes)
  2280.     )),
  2281.  
  2282.     //Tobacco whitefly
  2283.     if(${notEmpty(qp('.pests\:dlist/dset[14].level','dTemp'))}, block(
  2284.         if(${notEmpty(qp('.pests\:dlist/dset[14].beneficials_level','dTemp'))}, block(
  2285.             set($beneficialLevelTobaccoWhitefly, ${qp('.pests\:dlist/dset[14].beneficials_level','dTemp')},dTemp),
  2286.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[14].beneficials_name','dTemp')},dTemp),
  2287.             set(.task,${"TS100H3D"},dDone),
  2288.             set(.pest,${beneficialPestCode},dDone),
  2289.             set(.levels5,$beneficialLevelTobaccoWhitefly,dDone),
  2290.             set(.data,$beneficialLevelTobaccoWhitefly,dDone),
  2291.             store(dDone,no),
  2292.           )),
  2293.         if(${notEmpty(qp('.pests\:dlist/dset[14].beneficials_level_two','dTemp'))}, block(
  2294.             set($beneficialLevelTwoTobaccoWhitefly, ${qp('.pests\:dlist/dset[14].beneficials_level_two','dTemp')},dTemp),
  2295.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[14].beneficials_name_two','dTemp')},dTemp),
  2296.             set(.task,${"TS100H3D"},dDone),
  2297.             set(.pest,${beneficialPestCodeTwo},dDone),
  2298.             set(.levels5,$beneficialLevelTwoTobaccoWhitefly,dDone),
  2299.             set(.data,$beneficialLevelTwoTobaccoWhitefly,dDone),
  2300.             store(dDone,no),
  2301.         )),
  2302.         set($tobaccoWhitefly, ${qp('.pests\:dlist/dset[14].level','dTemp')}, dTemp),
  2303.         set(.task,${"TS100H3C"},dDone),
  2304.         set(.pest,${"PT217G1I0I1I"},dDone),
  2305.         if(${notEmpty(beneficialLevelTobaccoWhitefly)}, block(
  2306.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2307.           set(.beneficial_one_level, ${beneficialLevelTobaccoWhitefly},dDone),      
  2308.         )),
  2309.         if(${notEmpty(beneficialLevelTwoTobaccoWhitefly)}, block(
  2310.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2311.           set(.beneficial_two_level, ${beneficialLevelTwoTobaccoWhitefly},dDone),      
  2312.         )),
  2313.         if(${notEmpty(qps(".dsTobaccoWhitefly:dset.individual_recommendation",'dTemp'))}, block(
  2314.           set(.individual_recommendation,${qps(".dsTobaccoWhitefly:dset.individual_recommendation",'dTemp')},dDone)
  2315.         )),
  2316.         if(${qp('.pests\:dlist/dset[14].spread','dTemp')!='Please select beneficial'}, block(
  2317.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[14].spread','dTemp')},dDone),  
  2318.         )),
  2319.         set(.items,${tobaccoWhitefly},dDone),
  2320.         set(.levels5,${tobaccoWhitefly},dDone),
  2321.         set(.data,$tobaccoWhitefly,dDone),
  2322.         set($dsetName,${"dsTobaccoWhitefly"}),
  2323.         proc(copyNotes),
  2324.         store(dDone,no),
  2325.         proc(cleanNotes)
  2326.     )),
  2327.  
  2328.     //Solanum mealybug
  2329.     if(${notEmpty(qp('.pests\:dlist/dset[15].level','dTemp'))}, block(
  2330.         if(${notEmpty(qp('.pests\:dlist/dset[15].beneficials_level','dTemp'))}, block(
  2331.             set($beneficialLevelSolanumMealybug, ${qp('.pests\:dlist/dset[15].beneficials_level','dTemp')},dTemp),
  2332.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[15].beneficials_name','dTemp')},dTemp),
  2333.             set(.task,${"TS100H3D"},dDone),
  2334.             set(.pest,${beneficialPestCode},dDone),
  2335.             set(.levels5,$beneficialLevelSolanumMealybug,dDone),
  2336.             set(.data,$beneficialLevelSolanumMealybug,dDone),
  2337.             store(dDone,no),
  2338.           )),
  2339.         if(${notEmpty(qp('.pests\:dlist/dset[15].beneficials_level_two','dTemp'))}, block(
  2340.             set($beneficialLevelTwoSolanumMealybug, ${qp('.pests\:dlist/dset[15].beneficials_level_two','dTemp')},dTemp),
  2341.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[15].beneficials_name_two','dTemp')},dTemp),
  2342.             set(.task,${"TS100H3D"},dDone),
  2343.             set(.pest,${beneficialPestCodeTwo},dDone),
  2344.             set(.levels5,$beneficialLevelTwoSolanumMealybug,dDone),
  2345.             set(.data,$beneficialLevelTwoSolanumMealybug,dDone),
  2346.             store(dDone,no),
  2347.         )),
  2348.         set($solanumMealybug, ${qp('.pests\:dlist/dset[15].level','dTemp')}, dTemp),
  2349.         set(.task,${"TS100H3C"},dDone),
  2350.         set(.pest,${"PT13HXI0I"},dDone),
  2351.         if(${notEmpty(beneficialLevelSolanumMealybug)}, block(
  2352.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2353.           set(.beneficial_one_level, ${beneficialLevelSolanumMealybug},dDone),      
  2354.         )),
  2355.         if(${notEmpty(beneficialLevelTwoSolanumMealybug)}, block(
  2356.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2357.           set(.beneficial_two_level, ${beneficialLevelTwoSolanumMealybug},dDone),      
  2358.         )),
  2359.         if(${notEmpty(qps(".dsSolanumMealybug:dset.individual_recommendation",'dTemp'))}, block(
  2360.           set(.individual_recommendation,${qps(".dsSolanumMealybug:dset.individual_recommendation",'dTemp')},dDone)
  2361.         )),
  2362.         if(${qp('.pests\:dlist/dset[15].spread','dTemp')!='Please select beneficial'}, block(
  2363.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[15].spread','dTemp')},dDone),  
  2364.         )),
  2365.         set(.items,${solanumMealybug},dDone),
  2366.         set(.levels5,${solanumMealybug},dDone),
  2367.         set(.data,$solanumMealybug,dDone),
  2368.         set($dsetName,${"dsSolanumMealybug"}),
  2369.         proc(copyNotes),
  2370.         store(dDone,no),
  2371.         proc(cleanNotes)
  2372.     )),
  2373.  
  2374.     //Cotton mealybug
  2375.     if(${notEmpty(qp('.pests\:dlist/dset[16].level','dTemp'))}, block(
  2376.         if(${notEmpty(qp('.pests\:dlist/dset[16].beneficials_level','dTemp'))}, block(
  2377.             set($beneficialLevelCottonMealybug, ${qp('.pests\:dlist/dset[16].beneficials_level','dTemp')},dTemp),
  2378.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[16].beneficials_name','dTemp')},dTemp),
  2379.             set(.task,${"TS100H3D"},dDone),
  2380.             set(.pest,${beneficialPestCode},dDone),
  2381.             set(.levels5,$beneficialLevelCottonMealybug,dDone),
  2382.             set(.data,$beneficialLevelCottonMealybug,dDone),
  2383.             store(dDone,no),
  2384.           )),
  2385.         if(${notEmpty(qp('.pests\:dlist/dset[16].beneficials_level_two','dTemp'))}, block(
  2386.             set($beneficialLevelTwoCottonMealybug, ${qp('.pests\:dlist/dset[16].beneficials_level_two','dTemp')},dTemp),
  2387.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[16].beneficials_name_two','dTemp')},dTemp),
  2388.             set(.task,${"TS100H3D"},dDone),
  2389.             set(.pest,${beneficialPestCodeTwo},dDone),
  2390.             set(.levels5,$beneficialLevelTwoCottonMealybug,dDone),
  2391.             set(.data,$beneficialLevelTwoCottonMealybug,dDone),
  2392.             store(dDone,no),
  2393.         )),
  2394.         set($cottonMealybug, ${qp('.pests\:dlist/dset[16].level','dTemp')}, dTemp),
  2395.         set(.task,${"TS100H3C"},dDone),
  2396.         set(.pest,${"PT13J1I0I"},dDone),
  2397.         if(${notEmpty(beneficialLevelCottonMealybug)}, block(
  2398.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2399.           set(.beneficial_one_level, ${beneficialLevelCottonMealybug},dDone),      
  2400.         )),
  2401.         if(${notEmpty(beneficialLevelTwoCottonMealybug)}, block(
  2402.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2403.           set(.beneficial_two_level, ${beneficialLevelTwoCottonMealybug},dDone),      
  2404.         )),
  2405.         if(${notEmpty(qps(".dsCottonMealybug:dset.individual_recommendation",'dTemp'))}, block(
  2406.           set(.individual_recommendation,${qps(".dsCottonMealybug:dset.individual_recommendation",'dTemp')},dDone)
  2407.         )),
  2408.         if(${qp('.pests\:dlist/dset[16].spread','dTemp')!='Please select beneficial'}, block(
  2409.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[16].spread','dTemp')},dDone),  
  2410.         )),
  2411.         set(.items,${cottonMealybug},dDone),
  2412.         set(.levels5,${cottonMealybug},dDone),
  2413.         set(.data,$cottonMealybug,dDone),
  2414.         set($dsetName,${"dsCottonMealybug"}),
  2415.         proc(copyNotes),
  2416.         store(dDone,no),
  2417.         proc(cleanNotes)
  2418.     )),
  2419.  
  2420.     //Cotton root-knot nematode
  2421.     if(${notEmpty(qp('.pests\:dlist/dset[17].level','dTemp'))}, block(
  2422.         if(${notEmpty(qp('.pests\:dlist/dset[17].beneficials_level','dTemp'))}, block(
  2423.             set($beneficialLevelCottonRootKnotNematode, ${qp('.pests\:dlist/dset[17].beneficials_level','dTemp')},dTemp),
  2424.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[17].beneficials_name','dTemp')},dTemp),
  2425.             set(.task,${"TS100H3D"},dDone),
  2426.             set(.pest,${beneficialPestCode},dDone),
  2427.             set(.levels5,$beneficialLevelCottonRootKnotNematode,dDone),
  2428.             set(.data,$beneficialLevelCottonRootKnotNematode,dDone),
  2429.             store(dDone,no),
  2430.           )),
  2431.         if(${notEmpty(qp('.pests\:dlist/dset[17].beneficials_level_two','dTemp'))}, block(
  2432.             set($beneficialLevelTwoCottonRootKnotNematode, ${qp('.pests\:dlist/dset[17].beneficials_level_two','dTemp')},dTemp),
  2433.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[17].beneficials_name_two','dTemp')},dTemp),
  2434.             set(.task,${"TS100H3D"},dDone),
  2435.             set(.pest,${beneficialPestCodeTwo},dDone),
  2436.             set(.levels5,$beneficialLevelTwoCottonRootKnotNematode,dDone),
  2437.             set(.data,$beneficialLevelTwoCottonRootKnotNematode,dDone),
  2438.             store(dDone,no),
  2439.         )),
  2440.         set($cottonRootKnotNematode, ${qp('.pests\:dlist/dset[17].level','dTemp')}, dTemp),
  2441.         set(.task,${"TS100H3C"},dDone),
  2442.         set(.pest,${"PT20162I1I"},dDone),
  2443.         if(${notEmpty(beneficialLevelCottonRootKnotNematode)}, block(
  2444.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2445.           set(.beneficial_one_level, ${beneficialLevelCottonRootKnotNematode},dDone),      
  2446.         )),
  2447.         if(${notEmpty(beneficialLevelTwoCottonRootKnotNematode)}, block(
  2448.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2449.           set(.beneficial_two_level, ${beneficialLevelTwoCottonRootKnotNematode},dDone),      
  2450.         )),
  2451.         if(${notEmpty(qps(".dsCottonRootKnotNematode:dset.individual_recommendation",'dTemp'))}, block(
  2452.           set(.individual_recommendation,${qps(".dsCottonRootKnotNematode:dset.individual_recommendation",'dTemp')},dDone)
  2453.         )),
  2454.         if(${qp('.pests\:dlist/dset[17].spread','dTemp')!='Please select beneficial'}, block(
  2455.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[17].spread','dTemp')},dDone),  
  2456.         )),
  2457.         set(.items,${cottonRootKnotNematode},dDone),
  2458.         set(.levels5,${cottonRootKnotNematode},dDone),
  2459.         set(.data,$cottonRootKnotNematode,dDone),
  2460.         set($dsetName,${"dsCottonRootKnotNematode"}),
  2461.         proc(copyNotes),
  2462.         store(dDone,no),
  2463.         proc(cleanNotes)
  2464.     )),
  2465.  
  2466.     //Ants
  2467.     if(${notEmpty(qp('.pests\:dlist/dset[18].level','dTemp'))}, block(
  2468.         if(${notEmpty(qp('.pests\:dlist/dset[18].beneficials_level','dTemp'))}, block(
  2469.             set($beneficialLevelAnts, ${qp('.pests\:dlist/dset[18].beneficials_level','dTemp')},dTemp),
  2470.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[18].beneficials_name','dTemp')},dTemp),
  2471.             set(.task,${"TS100H3D"},dDone),
  2472.             set(.pest,${beneficialPestCode},dDone),
  2473.             set(.levels5,$beneficialLevelAnts,dDone),
  2474.             set(.data,$beneficialLevelAnts,dDone),
  2475.             store(dDone,no),
  2476.           )),
  2477.         if(${notEmpty(qp('.pests\:dlist/dset[18].beneficials_level_two','dTemp'))}, block(
  2478.             set($beneficialLevelTwoAnts, ${qp('.pests\:dlist/dset[18].beneficials_level_two','dTemp')},dTemp),
  2479.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[18].beneficials_name_two','dTemp')},dTemp),
  2480.             set(.task,${"TS100H3D"},dDone),
  2481.             set(.pest,${beneficialPestCodeTwo},dDone),
  2482.             set(.levels5,$beneficialLevelTwoAnts,dDone),
  2483.             set(.data,$beneficialLevelTwoAnts,dDone),
  2484.             store(dDone,no),
  2485.         )),
  2486.         set($ants, ${qp('.pests\:dlist/dset[18].level','dTemp')}, dTemp),
  2487.         set(.task,${"TS100H3C"},dDone),
  2488.         set(.pest,${"PT2017I7I"},dDone),
  2489.         if(${notEmpty(beneficialLevelAnts)}, block(
  2490.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2491.           set(.beneficial_one_level, ${beneficialLevelAnts},dDone),      
  2492.         )),
  2493.         if(${notEmpty(beneficialLevelTwoAnts)}, block(
  2494.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2495.           set(.beneficial_two_level, ${beneficialLevelTwoAnts},dDone),      
  2496.         )),
  2497.         if(${notEmpty(qps(".dsAnts:dset.individual_recommendation",'dTemp'))}, block(
  2498.           set(.individual_recommendation,${qps(".dsAnts:dset.individual_recommendation",'dTemp')},dDone)
  2499.         )),
  2500.         if(${qp('.pests\:dlist/dset[18].spread','dTemp')!='Please select beneficial'}, block(
  2501.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[18].spread','dTemp')},dDone),  
  2502.         )),
  2503.         set(.items,${ants},dDone),
  2504.         set(.levels5,${ants},dDone),
  2505.         set(.data,$ants,dDone),
  2506.         set($dsetName,${"dsAnts"}),
  2507.         proc(copyNotes),
  2508.         store(dDone,no),
  2509.         proc(cleanNotes)
  2510.     )),
  2511.  
  2512.     //Herbarium
  2513.     if(${notEmpty(qp('.pests\:dlist/dset[19].level','dTemp'))}, block(
  2514.         if(${notEmpty(qp('.pests\:dlist/dset[19].beneficials_level','dTemp'))}, block(
  2515.             set($beneficialLevelHerbarium, ${qp('.pests\:dlist/dset[19].beneficials_level','dTemp')},dTemp),
  2516.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[19].beneficials_name','dTemp')},dTemp),
  2517.             set(.task,${"TS100H3D"},dDone),
  2518.             set(.pest,${beneficialPestCode},dDone),
  2519.             set(.levels5,$beneficialLevelHerbarium,dDone),
  2520.             set(.data,$beneficialLevelHerbarium,dDone),
  2521.             store(dDone,no),
  2522.           )),
  2523.         if(${notEmpty(qp('.pests\:dlist/dset[19].beneficials_level_two','dTemp'))}, block(
  2524.             set($beneficialLevelTwoHerbarium, ${qp('.pests\:dlist/dset[19].beneficials_level_two','dTemp')},dTemp),
  2525.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[19].beneficials_name_two','dTemp')},dTemp),
  2526.             set(.task,${"TS100H3D"},dDone),
  2527.             set(.pest,${beneficialPestCodeTwo},dDone),
  2528.             set(.levels5,$beneficialLevelTwoHerbarium,dDone),
  2529.             set(.data,$beneficialLevelTwoHerbarium,dDone),
  2530.             store(dDone,no),
  2531.         )),
  2532.         set($herbarium, ${qp('.pests\:dlist/dset[19].level','dTemp')}, dTemp),
  2533.         set(.task,${"TS100H3C"},dDone),
  2534.         set(.pest,${"ML207I7I0I"},dDone),
  2535.         if(${notEmpty(beneficialLevelHerbarium)}, block(
  2536.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2537.           set(.beneficial_one_level, ${beneficialLevelHerbarium},dDone),      
  2538.         )),
  2539.         if(${notEmpty(beneficialLevelTwoHerbarium)}, block(
  2540.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2541.           set(.beneficial_two_level, ${beneficialLevelTwoHerbarium},dDone),      
  2542.         )),
  2543.         if(${notEmpty(qps(".dsHerbarium:dset.individual_recommendation",'dTemp'))}, block(
  2544.           set(.individual_recommendation,${qps(".dsHerbarium:dset.individual_recommendation",'dTemp')},dDone)
  2545.         )),
  2546.         if(${qp('.pests\:dlist/dset[19].spread','dTemp')!='Please select beneficial'}, block(
  2547.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[19].spread','dTemp')},dDone),  
  2548.         )),
  2549.         set(.items,${herbarium},dDone),
  2550.         set(.levels5,${herbarium},dDone),
  2551.         set(.data,$herbarium,dDone),
  2552.         set($dsetName,${"dsHerbarium"}),
  2553.         proc(copyNotes),
  2554.         store(dDone,no),
  2555.         proc(cleanNotes)
  2556.     )),
  2557.  
  2558.     //False codling moth
  2559.     if(${notEmpty(qp('.pests\:dlist/dset[20].level','dTemp'))}, block(
  2560.         if(${notEmpty(qp('.pests\:dlist/dset[20].beneficials_level','dTemp'))}, block(
  2561.             set($beneficialLevelFalseCodlingMoth, ${qp('.pests\:dlist/dset[20].beneficials_level','dTemp')},dTemp),
  2562.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[20].beneficials_name','dTemp')},dTemp),
  2563.             set(.task,${"TS100H3D"},dDone),
  2564.             set(.pest,${beneficialPestCode},dDone),
  2565.             set(.levels5,$beneficialLevelFalseCodlingMoth,dDone),
  2566.             set(.data,$beneficialLevelFalseCodlingMoth,dDone),
  2567.             store(dDone,no),
  2568.           )),
  2569.         if(${notEmpty(qp('.pests\:dlist/dset[20].beneficials_level_two','dTemp'))}, block(
  2570.             set($beneficialLevelTwoFalseCodlingMoth, ${qp('.pests\:dlist/dset[20].beneficials_level_two','dTemp')},dTemp),
  2571.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[20].beneficials_name_two','dTemp')},dTemp),
  2572.             set(.task,${"TS100H3D"},dDone),
  2573.             set(.pest,${beneficialPestCodeTwo},dDone),
  2574.             set(.levels5,$beneficialLevelTwoFalseCodlingMoth,dDone),
  2575.             set(.data,$beneficialLevelTwoFalseCodlingMoth,dDone),
  2576.             store(dDone,no),
  2577.         )),
  2578.         set($falseCodlingMoth, ${qp('.pests\:dlist/dset[20].level','dTemp')}, dTemp),
  2579.         set(.task,${"TS100H3C"},dDone),
  2580.         set(.pest,${"PT205G6I6I0I"},dDone),
  2581.         if(${notEmpty(beneficialLevelFalseCodlingMoth)}, block(
  2582.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2583.           set(.beneficial_one_level, ${beneficialLevelFalseCodlingMoth},dDone),      
  2584.         )),
  2585.         if(${notEmpty(beneficialLevelTwoFalseCodlingMoth)}, block(
  2586.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2587.           set(.beneficial_two_level, ${beneficialLevelTwoFalseCodlingMoth},dDone),      
  2588.         )),
  2589.         if(${notEmpty(qps(".dsFalseCodlingMoth:dset.individual_recommendation",'dTemp'))}, block(
  2590.           set(.individual_recommendation,${qps(".dsFalseCodlingMoth:dset.individual_recommendation",'dTemp')},dDone)
  2591.         )),
  2592.         if(${qp('.pests\:dlist/dset[20].spread','dTemp')!='Please select beneficial'}, block(
  2593.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[20].spread','dTemp')},dDone),  
  2594.         )),
  2595.         set(.items,${falseCodlingMoth},dDone),
  2596.         set(.levels5,${falseCodlingMoth},dDone),
  2597.         set(.data,$falseCodlingMoth,dDone),
  2598.         set($dsetName,${"dsFalseCodlingMoth"}),
  2599.         proc(copyNotes),
  2600.         store(dDone,no),
  2601.         proc(cleanNotes)
  2602.     )),
  2603.  
  2604.     //Pythium
  2605.     if(${notEmpty(qp('.pests\:dlist/dset[21].level','dTemp'))}, block(
  2606.         if(${notEmpty(qp('.pests\:dlist/dset[21].beneficials_level','dTemp'))}, block(
  2607.             set($beneficialLevelPythium, ${qp('.pests\:dlist/dset[21].beneficials_level','dTemp')},dTemp),
  2608.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[21].beneficials_name','dTemp')},dTemp),
  2609.             set(.task,${"TS100H3D"},dDone),
  2610.             set(.pest,${beneficialPestCode},dDone),
  2611.             set(.levels5,$beneficialLevelPythium,dDone),
  2612.             set(.data,$beneficialLevelPythium,dDone),
  2613.             store(dDone,no),
  2614.           )),
  2615.         if(${notEmpty(qp('.pests\:dlist/dset[21].beneficials_level_two','dTemp'))}, block(
  2616.             set($beneficialLevelTwoPythium, ${qp('.pests\:dlist/dset[21].beneficials_level_two','dTemp')},dTemp),
  2617.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[21].beneficials_name_two','dTemp')},dTemp),
  2618.             set(.task,${"TS100H3D"},dDone),
  2619.             set(.pest,${beneficialPestCodeTwo},dDone),
  2620.             set(.levels5,$beneficialLevelTwoPythium,dDone),
  2621.             set(.data,$beneficialLevelTwoPythium,dDone),
  2622.             store(dDone,no),
  2623.         )),
  2624.         set($pythium, ${qp('.pests\:dlist/dset[21].level','dTemp')}, dTemp),
  2625.         set(.task,${"TS100H3C"},dDone),
  2626.         set(.pest,${"PT1570I0I"},dDone),
  2627.         if(${notEmpty(beneficialLevelPythium)}, block(
  2628.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2629.           set(.beneficial_one_level, ${beneficialLevelPythium},dDone),      
  2630.         )),
  2631.         if(${notEmpty(beneficialLevelTwoPythium)}, block(
  2632.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2633.           set(.beneficial_two_level, ${beneficialLevelTwoPythium},dDone),      
  2634.         )),
  2635.         if(${notEmpty(qps(".dsPythium:dset.individual_recommendation",'dTemp'))}, block(
  2636.           set(.individual_recommendation,${qps(".dsPythium:dset.individual_recommendation",'dTemp')},dDone)
  2637.         )),
  2638.         if(${qp('.pests\:dlist/dset[21].spread','dTemp')!='Please select beneficial'}, block(
  2639.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[21].spread','dTemp')},dDone),  
  2640.         )),
  2641.         set(.items,${pythium},dDone),
  2642.         set(.levels5,${pythium},dDone),
  2643.         set(.data,$pythium,dDone),
  2644.         set($dsetName,${"dsPythium"}),
  2645.         proc(copyNotes),
  2646.         store(dDone,no),
  2647.         proc(cleanNotes)
  2648.     )),
  2649.  
  2650.     //Ovulariopsis
  2651.     if(${notEmpty(qp('.pests\:dlist/dset[22].level','dTemp'))}, block(
  2652.         if(${notEmpty(qp('.pests\:dlist/dset[22].beneficials_level','dTemp'))}, block(
  2653.             set($beneficialLevelOvulariopsis, ${qp('.pests\:dlist/dset[22].beneficials_level','dTemp')},dTemp),
  2654.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[22].beneficials_name','dTemp')},dTemp),
  2655.             set(.task,${"TS100H3D"},dDone),
  2656.             set(.pest,${beneficialPestCode},dDone),
  2657.             set(.levels5,$beneficialLevelOvulariopsis,dDone),
  2658.             set(.data,$beneficialLevelOvulariopsis,dDone),
  2659.             store(dDone,no),
  2660.           )),
  2661.         if(${notEmpty(qp('.pests\:dlist/dset[22].beneficials_level_two','dTemp'))}, block(
  2662.             set($beneficialLevelTwoOvulariopsis, ${qp('.pests\:dlist/dset[22].beneficials_level_two','dTemp')},dTemp),
  2663.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[22].beneficials_name_two','dTemp')},dTemp),
  2664.             set(.task,${"TS100H3D"},dDone),
  2665.             set(.pest,${beneficialPestCodeTwo},dDone),
  2666.             set(.levels5,$beneficialLevelTwoOvulariopsis,dDone),
  2667.             set(.data,$beneficialLevelTwoOvulariopsis,dDone),
  2668.             store(dDone,no),
  2669.         )),
  2670.         set($ovulariopsis, ${qp('.pests\:dlist/dset[22].level','dTemp')}, dTemp),
  2671.         set(.task,${"TS100H3C"},dDone),
  2672.         set(.pest,${"PT15L7I0I"},dDone),
  2673.         if(${notEmpty(beneficialLevelOvulariopsis)}, block(
  2674.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2675.           set(.beneficial_one_level, ${beneficialLevelOvulariopsis},dDone),      
  2676.         )),
  2677.         if(${notEmpty(beneficialLevelTwoOvulariopsis)}, block(
  2678.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2679.           set(.beneficial_two_level, ${beneficialLevelTwoOvulariopsis},dDone),      
  2680.         )),
  2681.         if(${notEmpty(qps(".dsOvulariopsis:dset.individual_recommendation",'dTemp'))}, block(
  2682.           set(.individual_recommendation,${qps(".dsOvulariopsis:dset.individual_recommendation",'dTemp')},dDone)
  2683.         )),
  2684.         if(${qp('.pests\:dlist/dset[22].spread','dTemp')!='Please select beneficial'}, block(
  2685.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[22].spread','dTemp')},dDone),  
  2686.         )),
  2687.         set(.items,${ovulariopsis},dDone),
  2688.         set(.levels5,${ovulariopsis},dDone),
  2689.         set(.data,$ovulariopsis,dDone),
  2690.         set($dsetName,${"dsOvulariopsis"}),
  2691.         proc(copyNotes),
  2692.         store(dDone,no),
  2693.         proc(cleanNotes)
  2694.     )),
  2695.  
  2696.     //Cottony rot
  2697.     if(${notEmpty(qp('.pests\:dlist/dset[23].level','dTemp'))}, block(
  2698.         if(${notEmpty(qp('.pests\:dlist/dset[23].beneficials_level','dTemp'))}, block(
  2699.             set($beneficialLevelCottonyRot, ${qp('.pests\:dlist/dset[23].beneficials_level','dTemp')},dTemp),
  2700.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[23].beneficials_name','dTemp')},dTemp),
  2701.             set(.task,${"TS100H3D"},dDone),
  2702.             set(.pest,${beneficialPestCode},dDone),
  2703.             set(.levels5,$beneficialLevelCottonyRot,dDone),
  2704.             set(.data,$beneficialLevelCottonyRot,dDone),
  2705.             store(dDone,no),
  2706.           )),
  2707.         if(${notEmpty(qp('.pests\:dlist/dset[23].beneficials_level_two','dTemp'))}, block(
  2708.             set($beneficialLevelTwoCottonyRot, ${qp('.pests\:dlist/dset[23].beneficials_level_two','dTemp')},dTemp),
  2709.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[23].beneficials_name_two','dTemp')},dTemp),
  2710.             set(.task,${"TS100H3D"},dDone),
  2711.             set(.pest,${beneficialPestCodeTwo},dDone),
  2712.             set(.levels5,$beneficialLevelTwoCottonyRot,dDone),
  2713.             set(.data,$beneficialLevelTwoCottonyRot,dDone),
  2714.             store(dDone,no),
  2715.         )),
  2716.         set($cottonyRot, ${qp('.pests\:dlist/dset[23].level','dTemp')}, dTemp),
  2717.         set(.task,${"TS100H3C"},dDone),
  2718.         set(.pest,${"PT15L8I0I"},dDone),
  2719.         if(${notEmpty(beneficialLevelCottonyRot)}, block(
  2720.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2721.           set(.beneficial_one_level, ${beneficialLevelCottonyRot},dDone),      
  2722.         )),
  2723.         if(${notEmpty(beneficialLevelTwoCottonyRot)}, block(
  2724.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2725.           set(.beneficial_two_level, ${beneficialLevelTwoCottonyRot},dDone),      
  2726.         )),
  2727.         if(${notEmpty(qps(".dsCottonyRot:dset.individual_recommendation",'dTemp'))}, block(
  2728.           set(.individual_recommendation,${qps(".dsCottonyRot:dset.individual_recommendation",'dTemp')},dDone)
  2729.         )),
  2730.         if(${qp('.pests\:dlist/dset[23].spread','dTemp')!='Please select beneficial'}, block(
  2731.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[23].spread','dTemp')},dDone),  
  2732.         )),
  2733.         set(.items,${cottonyRot},dDone),
  2734.         set(.levels5,${cottonyRot},dDone),
  2735.         set(.data,$cottonyRot,dDone),
  2736.         set($dsetName,${"dsCottonyRot"}),
  2737.         proc(copyNotes),
  2738.         store(dDone,no),
  2739.         proc(cleanNotes)
  2740.     )),
  2741.  
  2742.     //Tobacco thrips
  2743.     if(${notEmpty(qp('.pests\:dlist/dset[24].level','dTemp'))}, block(
  2744.         if(${notEmpty(qp('.pests\:dlist/dset[24].beneficials_level','dTemp'))}, block(
  2745.             set($beneficialLevelTobaccoThrips, ${qp('.pests\:dlist/dset[24].beneficials_level','dTemp')},dTemp),
  2746.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[24].beneficials_name','dTemp')},dTemp),
  2747.             set(.task,${"TS100H3D"},dDone),
  2748.             set(.pest,${beneficialPestCode},dDone),
  2749.             set(.levels5,$beneficialLevelTobaccoThrips,dDone),
  2750.             set(.data,$beneficialLevelTobaccoThrips,dDone),
  2751.             store(dDone,no),
  2752.           )),
  2753.         if(${notEmpty(qp('.pests\:dlist/dset[24].beneficials_level_two','dTemp'))}, block(
  2754.             set($beneficialLevelTwoTobaccoThrips, ${qp('.pests\:dlist/dset[24].beneficials_level_two','dTemp')},dTemp),
  2755.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[24].beneficials_name_two','dTemp')},dTemp),
  2756.             set(.task,${"TS100H3D"},dDone),
  2757.             set(.pest,${beneficialPestCodeTwo},dDone),
  2758.             set(.levels5,$beneficialLevelTwoTobaccoThrips,dDone),
  2759.             set(.data,$beneficialLevelTwoTobaccoThrips,dDone),
  2760.             store(dDone,no),
  2761.         )),
  2762.         set($tobaccoThrips, ${qp('.pests\:dlist/dset[24].level','dTemp')}, dTemp),
  2763.         set(.task,${"TS100H3C"},dDone),
  2764.         set(.pest,${"PT2102I1I"},dDone),
  2765.         if(${notEmpty(beneficialLevelTobaccoThrips)}, block(
  2766.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2767.           set(.beneficial_one_level, ${beneficialLevelTobaccoThrips},dDone),      
  2768.         )),
  2769.         if(${notEmpty(beneficialLevelTwoTobaccoThrips)}, block(
  2770.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2771.           set(.beneficial_two_level, ${beneficialLevelTwoTobaccoThrips},dDone),      
  2772.         )),
  2773.         if(${notEmpty(qps(".dsTobaccoThrips:dset.individual_recommendation",'dTemp'))}, block(
  2774.           set(.individual_recommendation,${qps(".dsTobaccoThrips:dset.individual_recommendation",'dTemp')},dDone)
  2775.         )),
  2776.         if(${qp('.pests\:dlist/dset[24].spread','dTemp')!='Please select beneficial'}, block(
  2777.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[24].spread','dTemp')},dDone),  
  2778.         )),
  2779.         set(.items,${tobaccoThrips},dDone),
  2780.         set(.levels5,${tobaccoThrips},dDone),
  2781.         set(.data,$tobaccoThrips,dDone),
  2782.         set($dsetName,${"dsTobaccoThrips"}),
  2783.         proc(copyNotes),
  2784.         store(dDone,no),
  2785.         proc(cleanNotes)
  2786.     )),
  2787.  
  2788.     //Western flower thrips
  2789.     if(${notEmpty(qp('.pests\:dlist/dset[25].level','dTemp'))}, block(
  2790.         if(${notEmpty(qp('.pests\:dlist/dset[25].beneficials_level','dTemp'))}, block(
  2791.             set($beneficialLevelWesternFlowerThrips, ${qp('.pests\:dlist/dset[25].beneficials_level','dTemp')},dTemp),
  2792.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[25].beneficials_name','dTemp')},dTemp),
  2793.             set(.task,${"TS100H3D"},dDone),
  2794.             set(.pest,${beneficialPestCode},dDone),
  2795.             set(.levels5,$beneficialLevelWesternFlowerThrips,dDone),
  2796.             set(.data,$beneficialLevelWesternFlowerThrips,dDone),
  2797.             store(dDone,no),
  2798.           )),
  2799.         if(${notEmpty(qp('.pests\:dlist/dset[25].beneficials_level_two','dTemp'))}, block(
  2800.             set($beneficialLevelTwoWesternFlowerThrips, ${qp('.pests\:dlist/dset[25].beneficials_level_two','dTemp')},dTemp),
  2801.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[25].beneficials_name_two','dTemp')},dTemp),
  2802.             set(.task,${"TS100H3D"},dDone),
  2803.             set(.pest,${beneficialPestCodeTwo},dDone),
  2804.             set(.levels5,$beneficialLevelTwoWesternFlowerThrips,dDone),
  2805.             set(.data,$beneficialLevelTwoWesternFlowerThrips,dDone),
  2806.             store(dDone,no),
  2807.         )),
  2808.         set($westernFlowerThrips, ${qp('.pests\:dlist/dset[25].level','dTemp')}, dTemp),
  2809.         set(.task,${"TS100H3F"},dDone),
  2810.         set(.pest,${"PT2106I2I0I"},dDone),
  2811.         if(${notEmpty(beneficialLevelWesternFlowerThrips)}, block(
  2812.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2813.           set(.beneficial_one_level, ${beneficialLevelWesternFlowerThrips},dDone),      
  2814.         )),
  2815.         if(${notEmpty(beneficialLevelTwoWesternFlowerThrips)}, block(
  2816.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2817.           set(.beneficial_two_level, ${beneficialLevelTwoWesternFlowerThrips},dDone),      
  2818.         )),
  2819.         if(${notEmpty(qps(".dsWesternFlowerThrips:dset.individual_recommendation",'dTemp'))}, block(
  2820.           set(.individual_recommendation,${qps(".dsWesternFlowerThrips:dset.individual_recommendation",'dTemp')},dDone)
  2821.         )),
  2822.         if(${qp('.pests\:dlist/dset[25].spread','dTemp')!='Please select beneficial'}, block(
  2823.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[25].spread','dTemp')},dDone),  
  2824.         )),
  2825.         set(.items,${westernFlowerThrips},dDone),
  2826.         set(.levels5,${westernFlowerThrips},dDone),
  2827.         set(.data,$westernFlowerThrips,dDone),
  2828.         set($dsetName,${"dsWesternFlowerThrips"}),
  2829.         proc(copyNotes),
  2830.         store(dDone,no),
  2831.         proc(cleanNotes)
  2832.     )),
  2833.  
  2834.     //Chilli thrips
  2835.     if(${notEmpty(qp('.pests\:dlist/dset[26].level','dTemp'))}, block(
  2836.         if(${notEmpty(qp('.pests\:dlist/dset[26].beneficials_level','dTemp'))}, block(
  2837.             set($beneficialLevelChilliThrips, ${qp('.pests\:dlist/dset[26].beneficials_level','dTemp')},dTemp),
  2838.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[26].beneficials_name','dTemp')},dTemp),
  2839.             set(.task,${"TS100H3D"},dDone),
  2840.             set(.pest,${beneficialPestCode},dDone),
  2841.             set(.levels5,$beneficialLevelChilliThrips,dDone),
  2842.             set(.data,$beneficialLevelChilliThrips,dDone),
  2843.             store(dDone,no),
  2844.           )),
  2845.         if(${notEmpty(qp('.pests\:dlist/dset[26].beneficials_level_two','dTemp'))}, block(
  2846.             set($beneficialLevelTwoChilliThrips, ${qp('.pests\:dlist/dset[26].beneficials_level_two','dTemp')},dTemp),
  2847.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[26].beneficials_name_two','dTemp')},dTemp),
  2848.             set(.task,${"TS100H3D"},dDone),
  2849.             set(.pest,${beneficialPestCodeTwo},dDone),
  2850.             set(.levels5,$beneficialLevelTwoChilliThrips,dDone),
  2851.             set(.data,$beneficialLevelTwoChilliThrips,dDone),
  2852.             store(dDone,no),
  2853.         )),
  2854.         set($chilliThrips, ${qp('.pests\:dlist/dset[26].level','dTemp')}, dTemp),
  2855.         set(.task,${"TS100H3C"},dDone),
  2856.         set(.pest,${"PT2105I0I"},dDone),
  2857.         if(${notEmpty(beneficialLevelChilliThrips)}, block(
  2858.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2859.           set(.beneficial_one_level, ${beneficialLevelChilliThrips},dDone),      
  2860.         )),
  2861.         if(${notEmpty(beneficialLevelTwoChilliThrips)}, block(
  2862.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2863.           set(.beneficial_two_level, ${beneficialLevelTwoChilliThrips},dDone),      
  2864.         )),
  2865.         if(${notEmpty(qps(".dsChilliThrips:dset.individual_recommendation",'dTemp'))}, block(
  2866.           set(.individual_recommendation,${qps(".dsChilliThrips:dset.individual_recommendation",'dTemp')},dDone)
  2867.         )),
  2868.         if(${qp('.pests\:dlist/dset[26].spread','dTemp')!='Please select beneficial'}, block(
  2869.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[26].spread','dTemp')},dDone),  
  2870.         )),
  2871.         set(.items,${chilliThrips},dDone),
  2872.         set(.levels5,${chilliThrips},dDone),
  2873.         set(.data,$chilliThrips,dDone),
  2874.         set($dsetName,${"dsChilliThrips"}),
  2875.         proc(copyNotes),
  2876.         store(dDone,no),
  2877.         proc(cleanNotes)
  2878.     )),
  2879.  
  2880.     //No pests
  2881.     if(${notEmpty(qp('.pests\:dlist/dset[27].level','dTemp'))}, block(
  2882.         if(${notEmpty(qp('.pests\:dlist/dset[27].beneficials_level','dTemp'))}, block(
  2883.             set($beneficialLevelNoPests, ${qp('.pests\:dlist/dset[27].beneficials_level','dTemp')},dTemp),
  2884.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[27].beneficials_name','dTemp')},dTemp),
  2885.             set(.task,${"TS100H3D"},dDone),
  2886.             set(.pest,${beneficialPestCode},dDone),
  2887.             set(.levels5,$beneficialLevelNoPests,dDone),
  2888.             set(.data,$beneficialLevelNoPests,dDone),
  2889.             store(dDone,no),
  2890.           )),
  2891.         if(${notEmpty(qp('.pests\:dlist/dset[27].beneficials_level_two','dTemp'))}, block(
  2892.             set($beneficialLevelTwoNoPests, ${qp('.pests\:dlist/dset[27].beneficials_level_two','dTemp')},dTemp),
  2893.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[27].beneficials_name_two','dTemp')},dTemp),
  2894.             set(.task,${"TS100H3D"},dDone),
  2895.             set(.pest,${beneficialPestCodeTwo},dDone),
  2896.             set(.levels5,$beneficialLevelTwoNoPests,dDone),
  2897.             set(.data,$beneficialLevelTwoNoPests,dDone),
  2898.             store(dDone,no),
  2899.         )),
  2900.         set($noPests, ${qp('.pests\:dlist/dset[27].level','dTemp')}, dTemp),
  2901.         set(.task,${"TS100H3C"},dDone),
  2902.         set(.pest,${"PT225I1I"},dDone),
  2903.         if(${notEmpty(beneficialLevelNoPests)}, block(
  2904.           set(.beneficial_one, ${beneficialPestCode},dDone),
  2905.           set(.beneficial_one_level, ${beneficialLevelNoPests},dDone),      
  2906.         )),
  2907.         if(${notEmpty(beneficialLevelTwoNoPests)}, block(
  2908.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2909.           set(.beneficial_two_level, ${beneficialLevelTwoNoPests},dDone),      
  2910.         )),
  2911.         if(${notEmpty(qps(".dsNoPests:dset.individual_recommendation",'dTemp'))}, block(
  2912.           set(.individual_recommendation,${qps(".dsNoPests:dset.individual_recommendation",'dTemp')},dDone)
  2913.         )),
  2914.         if(${qp('.pests\:dlist/dset[27].spread','dTemp')!='Please select beneficial'}, block(
  2915.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[27].spread','dTemp')},dDone),  
  2916.         )),
  2917.         set(.items,${noPests},dDone),
  2918.         set(.levels5,${noPests},dDone),
  2919.         set(.data,$noPests,dDone),
  2920.         set($dsetName,${"dsNoPests"}),
  2921.         proc(copyNotes),
  2922.         store(dDone,no),
  2923.         proc(cleanNotes)
  2924.     )),
  2925.  
  2926.     //Other
  2927.     if(${notEmpty(qp('.pests\:dlist/dset[28].level','dTemp'))}, block(
  2928.         if(${notEmpty(qp('.pests\:dlist/dset[28].beneficials_level','dTemp'))}, block(
  2929.             set($beneficialLevelOther, ${qp('.pests\:dlist/dset[28].beneficials_level','dTemp')},dTemp),
  2930.             set($beneficialPestCode, ${qp('.pests\:dlist/dset[28].beneficials_name','dTemp')},dTemp),
  2931.             set(.task,${"TS100H3D"},dDone),
  2932.             set(.pest,${beneficialPestCode},dDone),
  2933.             set(.levels5,$beneficialLevelOther,dDone),
  2934.             set(.data,$beneficialLevelOther,dDone),
  2935.             store(dDone,no),
  2936.           )),
  2937.         if(${notEmpty(qp('.pests\:dlist/dset[28].beneficials_level_two','dTemp'))}, block(
  2938.             set($beneficialLevelTwoOther, ${qp('.pests\:dlist/dset[28].beneficials_level_two','dTemp')},dTemp),
  2939.             set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[28].beneficials_name_two','dTemp')},dTemp),
  2940.             set(.task,${"TS100H3D"},dDone),
  2941.             set(.pest,${beneficialPestCodeTwo},dDone),
  2942.             set(.levels5,$beneficialLevelTwoOther,dDone),
  2943.             set(.data,$beneficialLevelTwoOther,dDone),
  2944.             store(dDone,no),
  2945.         )),
  2946.         set($other, ${qp('.pests\:dlist/dset[28].level','dTemp')}, dTemp),
  2947.         set(.task,${"TS100H3C"},dDone),
  2948.         set(.pest,${"PTI13I"},dDone),
  2949.         if(${notEmpty(beneficialLevelOther)}, block(
  2950.           set(.beneficial_one, ${beneficialPestCode},dDone,dDone),
  2951.           set(.beneficial_one_level, ${beneficialLevelOther},dDone,dDone),      
  2952.         )),
  2953.         if(${notEmpty(beneficialLevelTwoOther)}, block(
  2954.           set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone),
  2955.           set(.beneficial_two_level, ${beneficialLevelTwoOther},dDone,dDone),      
  2956.         )),
  2957.         if(${notEmpty(qps(".dsOther:dset.individual_recommendation",'dTemp'))}, block(
  2958.           set(.individual_recommendation,${qps(".dsOther:dset.individual_recommendation",'dTemp')},dDone)
  2959.         )),
  2960.         if(${qp('.pests\:dlist/dset[28].spread','dTemp')!='Please select beneficial'}, block(
  2961.           set(.pest_spread_yad, ${qp('.pests\:dlist/dset[28].spread','dTemp')},dDone),  
  2962.         )),
  2963.         set(.items,${other},dDone),
  2964.         set(.levels5,${other},dDone),
  2965.         set(.data,$other,dDone),
  2966.         set($dsetName,${"dsOther"}),
  2967.         proc(copyNotes),
  2968.         store(dDone,no),
  2969.         proc(cleanNotes)
  2970.     )),
  2971.  
  2972.    
  2973.  
  2974.     // Inspection Notes
  2975.     set($dsetName,${"dsInspectionNotes"}),
  2976.     if(${notEmpty(qp('.'.dsetName.':dset.notes', 'dTemp'))},block(
  2977.       set(.task,${"TS100J2"},dDone),// Input Method "Text"
  2978.       set(.pest,${"PT213IEI"},dDone),//Inspection Notes
  2979.       set(.data,${qp('.'.dsetName.':dset.notes','dTemp')},dDone),
  2980.       proc(copyNotes),
  2981.       store(dDone,no),
  2982.       proc(cleanNotes)
  2983.     )),
  2984.    
  2985.       set(.task,${taskCode},dDone),
  2986.       set(.pest,${pestCode},dDone),
  2987.       set(.data,${"yes"},dDone),
  2988.       store(dDone,yes),
  2989.  
  2990.       cancel(${qp('.pestPath','dTemp')})
  2991.  
  2992.     ))),
  2993.  
  2994.     btn(#Back,lo(4,m(2,20,1,20)), pim:yes, call(#Back,cancel())),
  2995.  
  2996.     back:call(#Back,
  2997.       cancel()
  2998.    )
  2999.  )
  3000. )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top