Routine: SDRPA12

SDRPA12 ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:25am

 ;;5.3;Scheduling;**376,1015**;Aug 13, 1993;Build 21

EN(ST) ;

 N SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ

 F II=1:1 S STR=$P($T(@ST+II),";;",2) Q:+STR'=ST  D

 .S SA=$P(STR,";",2) Q:SA'="B"

 .S SB=$P(STR,";",3),SM=$P(STR,";",4) D

 ..F GG=1:1 S STE=$P($T(@ST+II+GG),";;",2) Q:+STE'=ST!($P(STE,";",2)="B")  D

 ...S ER=$P(STE,";",3) S SQS=$P(STE,";",4) F SS=1:1 S SQ=$P(SQS,",",SS) Q:SQ=""  D PR^SD376P(SB,SM,ER,SQ)

 ..;update batch acknowledgement

 ..S ER="" S SQ=$O(^SDWL(409.6,"AMSG",SM,"")) Q:SQ=""  D PR^SD376P(SB,SM,ER,SQ)

548 ;;

 ;;548;B;54818160756;54828864362

 ;;548;ER;200;1850,3653,3903,

 ;;548;B;54818166052;54828871385

 ;;548;ER;200;5,118,180,190,210,262,544,603,618,711,715,821,908,917,952,1090,1116,1158,1169,1286,1424,1471,1634,1711,1760,1862,1881,2143,2193,2231,2274

 ;;548;ER;200;2500,2532,2584,2701,2787,2872,3046,3299,3320,3438,3547,4012,4021,4066,4089,4314,4397,4454,4679,4832,

 ;;548;B;54818194910;54828910086

 ;;548;ER;200;328,861,957,987,1102,1143,1220,1262,1283,1334,1359,1677,2148,2305,2350,2474,2723,2911,3169,3243,3840,3980,4610,4723,4725,4794,4931,

 ;;548;B;54818200225;54828918603

 ;;548;ER;200;1541,3040,4932,

 ;;548;ER;350;3781,

 ;;548;B;54818288056;54829043683

 ;;548;ER;200;1841,3655,3910,

 ;;548;B;54818288920;54829045138

 ;;548;ER;200;5,117,177,187,206,257,546,603,618,710,714,821,908,917,958,1095,1120,1173,1290,1431,1478,1648,1724,1773,1875,1894,2157,2210,2251,2292,2504

 ;;548;ER;200;2534,2585,2713,2800,2879,3051,3303,3323,3431,3532,4002,4011,4056,4079,4292,4379,4437,4630,4666,4753,4754,4817,4862,

 ;;548;B;54818289488;54829046109

 ;;548;ER;200;425,1146,1238,1265,1377,1417,1488,1526,1547,1598,1621,1909,2347,2492,2537,2650,2872,3039,3284,3352,3915,4043,4931,

 ;;548;B;54818290189;54829047084

 ;;548;ER;200;1626,2796,4774,

 ;;548;ER;350;3537,

 ;;548;B;54818290375;54829047315

 ;;548;ER;200;1631,

 ;;548;B;54818290631;54829047661

 ;;548;ER;200;480,2374,4381,

 ;;548;B;54818290766;54829047830

 ;;548;ER;200;541,571,1564,4235,

 ;;548;B;54818291018;54829048182

 ;;548;ER;200;760,

 ;;548;B;54818291121;54829048372

 ;;548;ER;200;1446,

 ;;548;B;54818291215;54829048589

 ;;548;ER;200;217,319,771,773,3126,3768,3890,4216,

 ;;548;B;54818291319;54829048754

 ;;548;ER;200;1548,1905,2156,

 ;;548;B;54818291468;54829049069

 ;;548;ER;200;94,95,1322,1323,2952,2953,

 ;;548;B;54818291672;54829049292

 ;;548;ER;200;320,490,685,941,977,1491,1493,

 ;;548;B;54818291774;54829049539

 ;;548;ER;200;881,2689,

 ;;548;B;54818291903;54829049888

 ;;548;ER;200;534,1258,1886,2685,3446,

 ;;548;B;54818292004;54829050054

 ;;548;ER;200;4793,

 ;;548;B;54818292138;54829050419

 ;;548;ER;200;751,

 ;;548;B;54818292219;54829050855

 ;;548;ER;200;2161,

 ;;548;B;54818292276;54829051049

 ;;548;ER;200;294,2069,

 ;;548;B;54818292313;54829051221

 ;;548;ER;200;197,2155,3529,

 ;;548;B;54818292383;54829051384

 ;;548;ER;200;1582,4153,

 ;;548;B;54818292438;54829051580

 ;;548;ER;200;1121,

 ;;548;B;54818292490;54829051742

 ;;548;ER;200;749,2400,2725,

 ;;548;B;54818292500;54829051848

 ;;548;ER;200;147,967,4129,4242,

 ;;548;B;54818292529;54829051957

 ;;548;ER;200;156,1427,1969,2331,2333,2370,2939,2991,2992,3101,3122,3172,3751,3791,3879,4658,4681,

 ;;548;B;54818292536;54829052025

 ;;548;ER;200;425,738,1330,1484,3175,4740,4952,

 ;;548;B;54818292567;54829052109

 ;;548;ER;200;276,353,439,508,549,850,884,1014,1140,1148,1375,1563,1761,1943,2010,2181,2401,2509,2563,2565,2964,3125,3204,3549,3899,4099,4177,4208,4367,4659,

 ;;548;B;54818292969;54829052821

 ;;548;ER;200;204,2675,2984,3666,4809,

 ;;548;B;54818293396;54829053399

 ;;548;ER;200;303,1761,4697,4905,

 ;;548;B;54818293629;54829053787

 ;;548;ER;200;1014,2834,2835,

 ;;548;B;54818294033;54829054304

 ;;548;ER;200;74,236,848,902,1704,2369,

 ;;548;B;54818295165;54829055642

 ;;548;ER;200;477,1866,2076,2211,3685,3979,

 ;;548;B;54818297170;54829057907

 ;;548;ER;200;3516,4632,4648,4979,

 ;;548;B;54818298074;54829059351

 ;;548;ER;200;467,540,645,1347,4077,

 ;;548;B;54818298951;54829060561

 ;;548;ER;200;1814,2173,

 ;;548;B;54818299748;54829061733

 ;;548;ER;200;104,1135,2822,2823,3423,4709,

 ;;548;ER;350;3065,

 ;;548;B;54818300552;54829062945

 ;;548;ER;200;23,848,1237,1797,1811,2894,

 ;;548;B;54818302529;54829065875

 ;;548;ER;200;221,1198,1604,4814,

 ;;548;B;54818303659;54829067540

 ;;548;ER;200;1731,2098,4773,4774,

 ;;548;B;54818304348;54829068917

 ;;548;ER;200;3485,

 ;;548;B;54818306098;54829071392

 ;;548;ER;200;273,279,1284,1549,3130,4944,

 ;;548;B;54818306823;54829072511

 ;;548;ER;200;842,2682,2916,4654,

 ;;548;B;54818307611;54829073657

 ;;548;ER;200;376,415,2578,2865,3016,

 ;;548;B;54818308786;54829074974

 ;;548;ER;200;364,669,2051,3400,3801,4221,4365,

 ;;548;B;54818309466;54829076246

 ;;548;ER;200;4814,

 ;;548;B;54818309937;54829076990

 ;;548;ER;200;386,438,731,1922,

 ;;548;B;54818310455;54829077796

 ;;548;ER;200;917,1536,4141,

 ;;548;B;54818311033;54829078850

 ;;548;ER;200;2791,3743,4287,

 ;;548;B;54818313864;54829083315

 ;;548;ER;200;1214,4982,

 ;;548;ER;700;4836,

 ;;548;B;54818314573;54829084335

 ;;548;ER;200;1202,2680,3276,

 ;;548;B;54818315538;54829085625

 ;;548;ER;200;4089,4725,4814,4816,4850,

 ;;548;B;54818317094;54829087723

 ;;548;ER;200;236,517,605,1345,4228,

 ;;548;B;54818318068;54829089189

 ;;548;ER;200;1069,1213,2393,2427,2451,2554,2574,2908,3712,3898,4485,4581,

 ;;548;B;54818319216;54829090966

 ;;548;ER;200;285,287,1064,1065,1522,

 ;;548;B;54818319710;54829091574

 ;;548;ER;200;708,4014,4371,

 ;;548;B;54818320244;54829092353

 ;;548;ER;200;1909,2615,2937,4152,4960,

 ;;548;B;54818320807;54829093035

 ;;548;ER;200;925,

 ;;548;B;54818321240;54829093681

 ;;548;ER;200;501,1868,2274,4170,

 ;;548;B;54818321527;54829094021

 ;;548;ER;200;1100,1469,

 ;;548;B;54818321822;54829094496

 ;;548;ER;200;2288,2790,

 ;;548;B;54818322241;54829095183

 ;;548;ER;200;687,1990,2496,2960,3002,

 ;;548;B;54818322575;54829095767

 ;;548;ER;200;1253,

 ;;548;B;54818322800;54829096012

 ;;548;ER;200;3204,3266,3463,4080,

 ;;548;B;54818323154;54829096628

 ;;548;ER;200;1896,2012,3488,

 ;;548;B;54818323271;54829096846

 ;;548;ER;200;98,389,502,1157,2135,

 ;;548;B;54818323420;54829097129

 ;;548;ER;200;1215,1296,1721,3474,3566,4891,

 ;;548;B;54818323541;54829097327

 ;;548;ER;200;89,2619,3937,

 ;;548;B;54818323694;54829097662

 ;;548;ER;200;597,

 ;;548;B;54818323792;54829097809

 ;;548;ER;200;244,1490,2740,3795,4099,4154,4348,4893,

 ;;548;B;54818323865;54829097952

 ;;548;ER;200;165,343,628,1016,1541,

 ;;548;B;54818324004;54829098174

 ;;548;ER;200;533,807,1514,1892,2560,2872,3210,

 ;;548;B;54818324140;54829098538

 ;;548;ER;200;26,414,2947,2986,2999,3955,4291,4357,4509,

 ;;548;B;54818324290;54829099214

 ;;548;ER;200;957,1337,1842,4187,

 ;;548;B;54818324605;54829099651

 ;;548;ER;200;170,196,290,421,523,646,659,668,685,967,1207,1209,1480,1531,2033,2109,2207,2289,2312,2523,2673,2695,2872,2988,3245,3284,3410,3460,3501,

 ;;548;ER;200;3556,3629,3646,3727,3898,3977,4161,4166,4225,4377,4382,4438,4481,4619,4647,4741,

 ;;548;B;54818324954;54829100043

 ;;548;ER;200;440,680,2346,3585,3587,

 ;;548;B;54818325147;54829100396

 ;;548;ER;200;307,1536,4468,

 ;;548;B;54818325308;54829100621

 ;;548;ER;200;215,4823,

 ;;548;B;54818325494;54829100918

 ;;548;ER;200;89,1130,1498,2744,2904,3308,4589,

 ;;548;B;54818325579;54829101045

 ;;548;ER;200;289,779,2072,2271,3606,4434,4593,

 ;;548;B;54818325680;54829101185

 ;;548;ER;200;1113,1991,

 ;;548;B;54818325802;54829101343

 ;;548;ER;200;1449,

 ;;548;B;54818325877;54829101459

 ;;548;ER;200;71,508,2166,3596,

 ;;548;B;54818325949;54829101550

 ;;548;ER;200;583,1193,1294,1316,1937,2075,2256,3016,4969,

 ;;548;B;54818326079;54829101744

 ;;548;ER;200;535,1410,3134,

 ;;548;B;54818326119;54829101822

 ;;548;ER;200;1286,1351,4164,4249,4346,4626,4970,

 ;;548;B;54818326215;54829102014

 ;;548;ER;200;704,900,902,1190,1203,1480,3986,

 ;;548;B;54818326296;54829102172

 ;;548;ER;200;800,801,1042,1959,2639,2640,4294,4543,4831,4924,4985,

 ;;548;B;54818326349;54829102269

 ;;548;ER;200;1572,

 ;;548;B;54818326505;54829102518

 ;;548;ER;200;1100,4482,4488,

 ;;548;B;54818326660;54829102937

 ;;548;ER;200;90,797,1062,1729,1963,

 ;;548;B;54818326758;54829103194

 ;;548;ER;200;1194,1644,1884,4727,

 ;;548;B;54818326836;54829103398

 ;;548;ER;200;269,4005,4007,

 ;;548;B;54818327030;54829103767

 ;;548;ER;200;790,954,1063,1271,4459,

 ;;548;B;54818327155;54829103994

 ;;548;ER;200;23,2734,3329,3896,3898,4739,

549 ;;

 ;;549;B;54930411303;54996011224

 ;;549;ER;350;2085,

 ;;549;B;54930422921;54996033827

 ;;549;ER;350;866,

 ;;549;ER;700;16,52,210,1976,3931,3978,

 ;;549;B;54930436137;54996062733

 ;;549;ER;350;3649,

 ;;549;B;54930437952;54996066052

 ;;549;ER;350;2274,

 ;;549;B;54930441184;54996074598

 ;;549;ER;350;2263,

 ;;549;B;54930443465;54996080214

 ;;549;ER;350;3992,

 ;;549;B;54930445405;54996083947

 ;;549;ER;350;877,

 ;;549;B;54930446720;54996085824

 ;;549;ER;700;2313,

 ;;549;B;54930448103;54996089837

 ;;549;ER;350;2075,

 ;;549;B;54930454903;54996103266

 ;;549;ER;350;4752,

550 ;;

 ;;550;B;55014778664;55021524711

 ;;550;ER;350;668,

553 ;;

 ;;553;B;55320661406;5537211698

 ;;553;ER;350;3194,

 ;;553;B;55320662266;5537212619

 ;;553;ER;350;2677,

SDRPA12   ;BP-OIFO/ESW - UTILITY ; 6/9/04 8:25am

 +1       ;;5.3;Scheduling;**376,1015**;Aug 13, 1993;Build 21

EN(ST)    ;

 +1        NEW SR,II,STR,SA,STE,GG,SS,SQS,ER,SB,SM,SQ

 +2        FOR II=1:1

               SET STR=$PIECE($TEXT(@ST+II),";;",2)

               IF +STR'=ST

                   QUIT

               Begin DoDot:1

 +3                SET SA=$PIECE(STR,";",2)

                   IF SA'="B"

                       QUIT

 +4                SET SB=$PIECE(STR,";",3)

                   SET SM=$PIECE(STR,";",4)

                   Begin DoDot:2

 +5                    FOR GG=1:1

                           SET STE=$PIECE($TEXT(@ST+II+GG),";;",2)

                           IF +STE'=ST!($PIECE(STE,";",2)="B")

                               QUIT

                           Begin DoDot:3

 +6                            SET ER=$PIECE(STE,";",3)

                               SET SQS=$PIECE(STE,";",4)

                               FOR SS=1:1

                                   SET SQ=$PIECE(SQS,",",SS)

                                   IF SQ=""

                                       QUIT

                                   DO PR^SD376P(SB,SM,ER,SQ)

                           End DoDot:3

 +7       ;update batch acknowledgement

 +8                    SET ER=""

                       SET SQ=$ORDER(^SDWL(409.6,"AMSG",SM,""))

                       IF SQ=""

                           QUIT

                       DO PR^SD376P(SB,SM,ER,SQ)

                   End DoDot:2

               End DoDot:1

 +9        QUIT

548       ;;

 +1       ;;548;B;54818160756;54828864362

 +2       ;;548;ER;200;1850,3653,3903,

 +3       ;;548;B;54818166052;54828871385

 +4       ;;548;ER;200;5,118,180,190,210,262,544,603,618,711,715,821,908,917,952,1090,1116,1158,1169,1286,1424,1471,1634,1711,1760,1862,1881,2143,2193,2231,2274

 +5       ;;548;ER;200;2500,2532,2584,2701,2787,2872,3046,3299,3320,3438,3547,4012,4021,4066,4089,4314,4397,4454,4679,4832,

 +6       ;;548;B;54818194910;54828910086

 +7       ;;548;ER;200;328,861,957,987,1102,1143,1220,1262,1283,1334,1359,1677,2148,2305,2350,2474,2723,2911,3169,3243,3840,3980,4610,4723,4725,4794,4931,

 +8       ;;548;B;54818200225;54828918603

 +9       ;;548;ER;200;1541,3040,4932,

 +10      ;;548;ER;350;3781,

 +11      ;;548;B;54818288056;54829043683

 +12      ;;548;ER;200;1841,3655,3910,

 +13      ;;548;B;54818288920;54829045138

 +14      ;;548;ER;200;5,117,177,187,206,257,546,603,618,710,714,821,908,917,958,1095,1120,1173,1290,1431,1478,1648,1724,1773,1875,1894,2157,2210,2251,2292,2504

 +15      ;;548;ER;200;2534,2585,2713,2800,2879,3051,3303,3323,3431,3532,4002,4011,4056,4079,4292,4379,4437,4630,4666,4753,4754,4817,4862,

 +16      ;;548;B;54818289488;54829046109

 +17      ;;548;ER;200;425,1146,1238,1265,1377,1417,1488,1526,1547,1598,1621,1909,2347,2492,2537,2650,2872,3039,3284,3352,3915,4043,4931,

 +18      ;;548;B;54818290189;54829047084

 +19      ;;548;ER;200;1626,2796,4774,

 +20      ;;548;ER;350;3537,

 +21      ;;548;B;54818290375;54829047315

 +22      ;;548;ER;200;1631,

 +23      ;;548;B;54818290631;54829047661

 +24      ;;548;ER;200;480,2374,4381,

 +25      ;;548;B;54818290766;54829047830

 +26      ;;548;ER;200;541,571,1564,4235,

 +27      ;;548;B;54818291018;54829048182

 +28      ;;548;ER;200;760,

 +29      ;;548;B;54818291121;54829048372

 +30      ;;548;ER;200;1446,

 +31      ;;548;B;54818291215;54829048589

 +32      ;;548;ER;200;217,319,771,773,3126,3768,3890,4216,

 +33      ;;548;B;54818291319;54829048754

 +34      ;;548;ER;200;1548,1905,2156,

 +35      ;;548;B;54818291468;54829049069

 +36      ;;548;ER;200;94,95,1322,1323,2952,2953,

 +37      ;;548;B;54818291672;54829049292

 +38      ;;548;ER;200;320,490,685,941,977,1491,1493,

 +39      ;;548;B;54818291774;54829049539

 +40      ;;548;ER;200;881,2689,

 +41      ;;548;B;54818291903;54829049888

 +42      ;;548;ER;200;534,1258,1886,2685,3446,

 +43      ;;548;B;54818292004;54829050054

 +44      ;;548;ER;200;4793,

 +45      ;;548;B;54818292138;54829050419

 +46      ;;548;ER;200;751,

 +47      ;;548;B;54818292219;54829050855

 +48      ;;548;ER;200;2161,

 +49      ;;548;B;54818292276;54829051049

 +50      ;;548;ER;200;294,2069,

 +51      ;;548;B;54818292313;54829051221

 +52      ;;548;ER;200;197,2155,3529,

 +53      ;;548;B;54818292383;54829051384

 +54      ;;548;ER;200;1582,4153,

 +55      ;;548;B;54818292438;54829051580

 +56      ;;548;ER;200;1121,

 +57      ;;548;B;54818292490;54829051742

 +58      ;;548;ER;200;749,2400,2725,

 +59      ;;548;B;54818292500;54829051848

 +60      ;;548;ER;200;147,967,4129,4242,

 +61      ;;548;B;54818292529;54829051957

 +62      ;;548;ER;200;156,1427,1969,2331,2333,2370,2939,2991,2992,3101,3122,3172,3751,3791,3879,4658,4681,

 +63      ;;548;B;54818292536;54829052025

 +64      ;;548;ER;200;425,738,1330,1484,3175,4740,4952,

 +65      ;;548;B;54818292567;54829052109

 +66      ;;548;ER;200;276,353,439,508,549,850,884,1014,1140,1148,1375,1563,1761,1943,2010,2181,2401,2509,2563,2565,2964,3125,3204,3549,3899,4099,4177,4208,4367,4659,

 +67      ;;548;B;54818292969;54829052821

 +68      ;;548;ER;200;204,2675,2984,3666,4809,

 +69      ;;548;B;54818293396;54829053399

 +70      ;;548;ER;200;303,1761,4697,4905,

 +71      ;;548;B;54818293629;54829053787

 +72      ;;548;ER;200;1014,2834,2835,

 +73      ;;548;B;54818294033;54829054304

 +74      ;;548;ER;200;74,236,848,902,1704,2369,

 +75      ;;548;B;54818295165;54829055642

 +76      ;;548;ER;200;477,1866,2076,2211,3685,3979,

 +77      ;;548;B;54818297170;54829057907

 +78      ;;548;ER;200;3516,4632,4648,4979,

 +79      ;;548;B;54818298074;54829059351

 +80      ;;548;ER;200;467,540,645,1347,4077,

 +81      ;;548;B;54818298951;54829060561

 +82      ;;548;ER;200;1814,2173,

 +83      ;;548;B;54818299748;54829061733

 +84      ;;548;ER;200;104,1135,2822,2823,3423,4709,

 +85      ;;548;ER;350;3065,

 +86      ;;548;B;54818300552;54829062945

 +87      ;;548;ER;200;23,848,1237,1797,1811,2894,

 +88      ;;548;B;54818302529;54829065875

 +89      ;;548;ER;200;221,1198,1604,4814,

 +90      ;;548;B;54818303659;54829067540

 +91      ;;548;ER;200;1731,2098,4773,4774,

 +92      ;;548;B;54818304348;54829068917

 +93      ;;548;ER;200;3485,

 +94      ;;548;B;54818306098;54829071392

 +95      ;;548;ER;200;273,279,1284,1549,3130,4944,

 +96      ;;548;B;54818306823;54829072511

 +97      ;;548;ER;200;842,2682,2916,4654,

 +98      ;;548;B;54818307611;54829073657

 +99      ;;548;ER;200;376,415,2578,2865,3016,

 +100     ;;548;B;54818308786;54829074974

 +101     ;;548;ER;200;364,669,2051,3400,3801,4221,4365,

 +102     ;;548;B;54818309466;54829076246

 +103     ;;548;ER;200;4814,

 +104     ;;548;B;54818309937;54829076990

 +105     ;;548;ER;200;386,438,731,1922,

 +106     ;;548;B;54818310455;54829077796

 +107     ;;548;ER;200;917,1536,4141,

 +108     ;;548;B;54818311033;54829078850

 +109     ;;548;ER;200;2791,3743,4287,

 +110     ;;548;B;54818313864;54829083315

 +111     ;;548;ER;200;1214,4982,

 +112     ;;548;ER;700;4836,

 +113     ;;548;B;54818314573;54829084335

 +114     ;;548;ER;200;1202,2680,3276,

 +115     ;;548;B;54818315538;54829085625

 +116     ;;548;ER;200;4089,4725,4814,4816,4850,

 +117     ;;548;B;54818317094;54829087723

 +118     ;;548;ER;200;236,517,605,1345,4228,

 +119     ;;548;B;54818318068;54829089189

 +120     ;;548;ER;200;1069,1213,2393,2427,2451,2554,2574,2908,3712,3898,4485,4581,

 +121     ;;548;B;54818319216;54829090966

 +122     ;;548;ER;200;285,287,1064,1065,1522,

 +123     ;;548;B;54818319710;54829091574

 +124     ;;548;ER;200;708,4014,4371,

 +125     ;;548;B;54818320244;54829092353

 +126     ;;548;ER;200;1909,2615,2937,4152,4960,

 +127     ;;548;B;54818320807;54829093035

 +128     ;;548;ER;200;925,

 +129     ;;548;B;54818321240;54829093681

 +130     ;;548;ER;200;501,1868,2274,4170,

 +131     ;;548;B;54818321527;54829094021

 +132     ;;548;ER;200;1100,1469,

 +133     ;;548;B;54818321822;54829094496

 +134     ;;548;ER;200;2288,2790,

 +135     ;;548;B;54818322241;54829095183

 +136     ;;548;ER;200;687,1990,2496,2960,3002,

 +137     ;;548;B;54818322575;54829095767

 +138     ;;548;ER;200;1253,

 +139     ;;548;B;54818322800;54829096012

 +140     ;;548;ER;200;3204,3266,3463,4080,

 +141     ;;548;B;54818323154;54829096628

 +142     ;;548;ER;200;1896,2012,3488,

 +143     ;;548;B;54818323271;54829096846

 +144     ;;548;ER;200;98,389,502,1157,2135,

 +145     ;;548;B;54818323420;54829097129

 +146     ;;548;ER;200;1215,1296,1721,3474,3566,4891,

 +147     ;;548;B;54818323541;54829097327

 +148     ;;548;ER;200;89,2619,3937,

 +149     ;;548;B;54818323694;54829097662

 +150     ;;548;ER;200;597,

 +151     ;;548;B;54818323792;54829097809

 +152     ;;548;ER;200;244,1490,2740,3795,4099,4154,4348,4893,

 +153     ;;548;B;54818323865;54829097952

 +154     ;;548;ER;200;165,343,628,1016,1541,

 +155     ;;548;B;54818324004;54829098174

 +156     ;;548;ER;200;533,807,1514,1892,2560,2872,3210,

 +157     ;;548;B;54818324140;54829098538

 +158     ;;548;ER;200;26,414,2947,2986,2999,3955,4291,4357,4509,

 +159     ;;548;B;54818324290;54829099214

 +160     ;;548;ER;200;957,1337,1842,4187,

 +161     ;;548;B;54818324605;54829099651

 +162     ;;548;ER;200;170,196,290,421,523,646,659,668,685,967,1207,1209,1480,1531,2033,2109,2207,2289,2312,2523,2673,2695,2872,2988,3245,3284,3410,3460,3501,

 +163     ;;548;ER;200;3556,3629,3646,3727,3898,3977,4161,4166,4225,4377,4382,4438,4481,4619,4647,4741,

 +164     ;;548;B;54818324954;54829100043

 +165     ;;548;ER;200;440,680,2346,3585,3587,

 +166     ;;548;B;54818325147;54829100396

 +167     ;;548;ER;200;307,1536,4468,

 +168     ;;548;B;54818325308;54829100621

 +169     ;;548;ER;200;215,4823,

 +170     ;;548;B;54818325494;54829100918

 +171     ;;548;ER;200;89,1130,1498,2744,2904,3308,4589,

 +172     ;;548;B;54818325579;54829101045

 +173     ;;548;ER;200;289,779,2072,2271,3606,4434,4593,

 +174     ;;548;B;54818325680;54829101185

 +175     ;;548;ER;200;1113,1991,

 +176     ;;548;B;54818325802;54829101343

 +177     ;;548;ER;200;1449,

 +178     ;;548;B;54818325877;54829101459

 +179     ;;548;ER;200;71,508,2166,3596,

 +180     ;;548;B;54818325949;54829101550

 +181     ;;548;ER;200;583,1193,1294,1316,1937,2075,2256,3016,4969,

 +182     ;;548;B;54818326079;54829101744

 +183     ;;548;ER;200;535,1410,3134,

 +184     ;;548;B;54818326119;54829101822

 +185     ;;548;ER;200;1286,1351,4164,4249,4346,4626,4970,

 +186     ;;548;B;54818326215;54829102014

 +187     ;;548;ER;200;704,900,902,1190,1203,1480,3986,

 +188     ;;548;B;54818326296;54829102172

 +189     ;;548;ER;200;800,801,1042,1959,2639,2640,4294,4543,4831,4924,4985,

 +190     ;;548;B;54818326349;54829102269

 +191     ;;548;ER;200;1572,

 +192     ;;548;B;54818326505;54829102518

 +193     ;;548;ER;200;1100,4482,4488,

 +194     ;;548;B;54818326660;54829102937

 +195     ;;548;ER;200;90,797,1062,1729,1963,

 +196     ;;548;B;54818326758;54829103194

 +197     ;;548;ER;200;1194,1644,1884,4727,

 +198     ;;548;B;54818326836;54829103398

 +199     ;;548;ER;200;269,4005,4007,

 +200     ;;548;B;54818327030;54829103767

 +201     ;;548;ER;200;790,954,1063,1271,4459,

 +202     ;;548;B;54818327155;54829103994

 +203     ;;548;ER;200;23,2734,3329,3896,3898,4739,

549       ;;

 +1       ;;549;B;54930411303;54996011224

 +2       ;;549;ER;350;2085,

 +3       ;;549;B;54930422921;54996033827

 +4       ;;549;ER;350;866,

 +5       ;;549;ER;700;16,52,210,1976,3931,3978,

 +6       ;;549;B;54930436137;54996062733

 +7       ;;549;ER;350;3649,

 +8       ;;549;B;54930437952;54996066052

 +9       ;;549;ER;350;2274,

 +10      ;;549;B;54930441184;54996074598

 +11      ;;549;ER;350;2263,

 +12      ;;549;B;54930443465;54996080214

 +13      ;;549;ER;350;3992,

 +14      ;;549;B;54930445405;54996083947

 +15      ;;549;ER;350;877,

 +16      ;;549;B;54930446720;54996085824

 +17      ;;549;ER;700;2313,

 +18      ;;549;B;54930448103;54996089837

 +19      ;;549;ER;350;2075,

 +20      ;;549;B;54930454903;54996103266

 +21      ;;549;ER;350;4752,

550       ;;

 +1       ;;550;B;55014778664;55021524711

 +2       ;;550;ER;350;668,

553       ;;

 +1       ;;553;B;55320661406;5537211698

 +2       ;;553;ER;350;3194,

 +3       ;;553;B;55320662266;5537212619

 +4       ;;553;ER;350;2677,

SDRPA12.m