SR215UT1 ;HPS/JSG - FY24 CPT EXCLUSION UTILITY, CONTINUED; Apr 3, 2024@11:40
;;3.0;Surgery;**206,210,215**;24 Jun 93;Build 7
;
Q
EX ; populate the CPT file EXCLUSIONS file (#137)
F SRJ=1:1 S SRLIST=$P($T(LIST+SRJ)," ;;",2) Q:SRLIST="" F SRI=1:1 S SRX=$P(SRLIST,",",SRI) Q:SRX="" I $D(^ICPT("B",SRX)) D INT
Q
INT S SRY=0,SRY=$O(^ICPT("B",SRX,SRY)) Q:SRY=""
K DA,DIC,DD,DO,DINUM S (DINUM,X)=SRY,DIC="^SRO(137,",DIC(0)="L" D FILE^DICN
Q
LIST ;
;;42440,42450,4245F,4248F,42500,42505,42507,42509,4250F,42510,42550,4255F,4256F
;;42600,4260F,4261F,42650,4265F,42660,42665,4266F,4267F,4268F,42699,4269F,4270F
;;4271F,4274F,4276F,4279F,42800,42804,42806,42808,42809,4280F,42810,42815,42820
;;42821,42825,42826,42830,42831,42835,42836,42860,42870,42900,4290F,4293F,42955
;;42975,4300F,4301F,4305F,4306F,43191,43192,43193,43194,43195,43196,43197,43198
;;43200,43201,43202,43204,43205,43206,4320F,43210,43211,43212,43213,43214,43215
;;43216,43217,43220,43226,43227,43229,4322F,43231,43232,43233,43235,43236,43237
;;43238,43239,43240,43241,43242,43243,43244,43245,43246,43247,43248,43249,4324F
;;43250,43251,43252,43253,43254,43255,43257,43259,4325F,43260,43261,43262,43263
;;43264,43265,43266,4326F,43270,43273,43274,43275,43276,43277,43278,4328F,43290
;;43291,4330F,4340F,43450,43453,43460,4350F,43605,43653,43752,43753,43754,43755
;;43756,43757,43761,43762,43763,43830,43831,43832,43870,43886,43887,43888,4400F
;;44015,44100,44132,44186,44300,44360,44361,44363,44364,44365,44366,44369,44370
;;44372,44373,44376,44377,44378,44379,44380,44381,44382,44384,44385,44386,44388
;;44389,44390,44391,44392,44394,44401,44402,44403,44404,44405,44406,44407,44408
;;44500,4450F,44705,4470F,44715,44720,44721,4480F,4481F,4500F,45100,45108,4510F
;;45150,45171,45172,45190,4525F,4526F,45300,45303,45305,45307,45308,45309,45315
;;45317,45320,45321,45327,45330,45331,45332,45333,45334,45335,45337,45338,45340
;;45341,45342,45346,45347,45349,45350,45378,45379,45380,45381,45382,45384,45385
;;45386,45388,45389,45390,45391,45392,45393,45398,4540F,4541F,45505,4550F,4551F
;;45520,4552F,4553F,4554F,4555F,4556F,4557F,4558F,4559F,4560F,4561F,4562F,4563F
;;45900,45905,45910,45915,45990,46020,46030,46050,46070,46080,46083,46200,46220
;;46221,46230,46250,46255,46257,46258,46260,46261,46262,46270,46275,46280,46285
;;46288,46320,46500,46505,46600,46601,46604,46606,46607,46608,46610,46611,46612
;;46614,46615,46700,46705,46706,46707,46750,46751,46753,46754,46760,46761,46900
;;46910,46916,46917,46922,46924,46930,46940,46942,46945,46946,46947,46948,46999
;;47000,47001,47100,47133,47143,47144,47145,47146,47147,47383,47490,47531,47532
;;47533,47534,47535,47536,47537,47538,47539,47540,47541,47542,47543,47544,47552
;;47553,47554,47555,47556,48100,48102,48400,48550,48551,48552,49082,49083,49084
;;49180,49185,49320,49321,49322,49324,49325,49326,49327,49400,49405,49406,49407
;;49411,49412,49418,49419,49421,49422,49423,49424,49427,49428,49429,49440,49441
;;49442,49446,49450,49451,49452,49460,49465,49491,49492,49495,49496,49500,49501
;;49605,49606,49610,49611,5005F,5010F,5015F,50200,50205,5020F,50300,50323,50325
;;50327,50328,50329,50382,50384,50385,50386,50387,50389,50390,50391,50396,50430
;;50431,50432,50433,50434,50435,50436,50437,5050F,50551,50553,50555,50557,50561
;;50562,50570,50572,50574,50575,50576,50580,50590,50592,50593,50606,5060F,5062F
;;50684,50686,50688,50690,50693,50694,50695,50705,50706,50951,50953,50955,50957
;;50961,50970,50972,50974,50976,50980,5100F,51040,51050,51100,51101,51102,51600
;;51605,51610,51700,51701,51702,51703,51705,51710,51715,51720,51725,51726,51727
;;51728,51729,51736,51741,51784,51785,51792,51797,51798,52000,52001,52005,52007
;;5200F,52010,52204,52214,52224,52250,52260,52265,52270,52275,52276,52277,52281
;;52282,52283,52284,52285,52287,52290,52300,52301,52305,52310,52315,52317,52318
;;52320,52325,52327,52330,52332,52334,52341,52342,52343,52351,52352,52353,52354
;;52355,52356,52441,52442,52450,5250F,53020,53025,53060,53200,53270,53275,53453
;;53454,53600,53601,53620,53621,53660,53661,53850,53852,53854,53855,53860,53899
;;54000,54001,54015,54050,54055,54056,54057,54060,54065,54100,54105,54150,54160
;;54161,54162,54163,54164,54200,54205,54220,54230,54231,54235,54240,54250,54400
;;54401,54405,54406,54408,54410,54415,54416,54435,54437,54438,54450,54500,54505
;;54512,54520,54530,54535,54700,54800,54830,55000,55100,55200,55250,55300,55400
;;55500,55520,55559,55700,55705,55706,55870,55874,55876,55880,55920,56405,56420
;;56440,56441,56501,56515,56605,56606,56700,56820,56821,57020,57022,57023,57061
;;57065,57100,57105,57135,57150,57155,57156,57160,57170,57180,57400,57410,57420
;;57421,57452,57454,57455,57456,57460,57461,57465,57500,57505,57510,57511,57513
;;57522,57558,57700,57800,58100,58110,58120,58300,58301,58321,58322,58323,58340
;;58345,58346,58353,58555,58558,58559,58560,58561,58562,58563,58580,58674,58900
;;58970,58974,58976,59000,59001,59012,59015,59020,59025,59030,59050,59051,59070
;;59072,59074,59076,59100,59160,59200,59300,59320,59325,59400,59409,59410,59412
;;59414,59425,59426,59430,59510,59514,59515,59525,59610,59612,59614,59618,59840
;;59841,59850,59851,59852,59855,59856,59857,59866,59871,59897,59898,59899,6005F
;;60100,6010F,6015F,6020F,60300,6030F,6040F,6045F,6070F,6080F,6090F,61001,6100F
;;6101F,61026,6102F,61050,61055,61070,6110F,61140,6150F,61623,61630,61640,61641
;;61642,61645,61650,61651,61750,61751,61782,61790,61791,61796,61797,61798,61799
;;61800,61889,61891,61892,62140,62141,62142,62143,62146,62252,62263,62264,62267
;;62268,62269,62270,62272,62273,62280,62281,62282,62284,62287,62290,62291,62292
;;62294,62302,62303,62304,62305,62320,62321,62322,62323,62324,62325,62326,62327
;;62328,62329,62350,62355,62360,62361,62362,62365,62367,62368,62369,62370,63600
;;63610,63620,63621,63650,63661,63663,63685,63688,64400,64405,64408,64415,64416
;;64417,64418,64420,64421,64425,64430,64435,64445,64446,64447,64448,64449,64450
;;64451,64454,64455,64461,64462,64463,64479,64480,64483,64484,64486,64487,64488
;;64489,64490,64491,64492,64493,64494,64495,64505,64510,64517,64520,64530,64553
;;64555,64561,64566,64568,64569,64570,64575,64580,64581,64584,64585,64590,64595
;;64596,64597,64598,64600,64605,64610,64611,64612,64615,64616,64617,64620,64624
;;64625,64628,64629,64630,64632,64633,64634,64635,64636,64640,64642,64643,64644
;;64645,64646,64647,64650,64653,64680,64681,64702,64704,64716,64718,64719,64721
;;64732,64734,64736,64738,64740,64742,64744,64774,64776,64778,64782,64783,64784
;;64786,64787,64788,64790,64792,64795,64820,64821,64822,64823,64831,64832,64834
;;64835,64836,65091,65093,65101,65103,65105,65110,65112,65114,65125,65130,65135
;;65140,65150,65155,65175,65205,65210,65220,65222,65235,65260,65265,65270,65272
;;65273,65275,65280,65285,65286,65290,65400,65410,65420,65426,65430,65435,65436
;;65450,65600,65710,65730,65750,65755,65756,65757,65760,65765,65767,65770,65771
;;65772,65775,65778,65779,65780,65781,65782,65785,65800,65810,65815,65820,65850
;;65855,65860,65865,65870,65875,65880,65900,65920,65930,66020,66030,66130,66150
;;66155,66160,66170,66172,66174,66175,66179,66180,66183,66184,66185,66225,66250
;;66500,66505,66600,66605,66625,66630,66635,66680,66682,66700,66710,66711,66720
;;66740,66761,66762,66770,66820,66821,66825,66830,66840,66850,66852,66920,66930
;;66940,66982,66983,66984,66985,66986,66987,66988,66989,66990,66991,66999,67005
;;67010,67015,67025,67027,67028,67030,67031,67036,67039,67040,67041,67042,67043
;;67101,67105,67107,67108,67110,67113,67115,67120,67121,67141,67145,67208,67210
;;67218,67220,67221,67225,67227,67228,67229,67250,67255,67299,67311,67312,67314
;;67316,67318,67320,67331,67332,67334,67335,67340,67343,67345,67346,67399,67400
;;67405,67412,67413,67414,67415,67420,67430,67440,67445,67450,67500,67505,67515
;;67516,67550,67560,67570,67599,67700,67710,67715,67800,67801,67805,67808,67810
;;67820,67825,67830,67835,67840,67850,67875,67880,67882,67900,67901,67902,67903
;;67904,67906,67908,67909,67911,67912,67914,67915,67916,67917,67921,67922,67923
;;67924,67930,67935,67938,67950,67961,67966,67971,67973,67974,67975,67999,68020
;;68040,68100,68110,68115,68130,68135,68200,68320,68325,68326,68328,68330,68335
;;68340,68360,68362,68371,68399,68400,68420,68440,68500,68505,68510,68520,68525
;;68530,68540,68550,68700,68705,68720,68745,68750,68760,68761,68770,68801,68810
;;68811,68815,68816,68840,68841,68850,68899,69000,69005,69020,69090,69100,69105
;;69110,69120,69140,69145,69200,69205,69209,69210,69220,69222,69300,69310,69320
;;69399,69420,69421,69424,69433,69436,69440,69450,69501,69502,69505,69511,69535
;;69540,69550,69552,69554,69601,69602,69603,69604,69610,69620,69631,69632,69633
;;69635,69636,69637,69641,69642,69643,69644,69645,69646,69650,69660,69661,69662
;;69666,69667,69670,69676,69700,69705,69706,69710,69711,69714,69720,69740,69799
;;69801,69805,69806,69949,69950,69955,69960,69970,69979,69990,70010,70015,70030
;;70100,7010F,70110,70120,70130,70134,70140,70150,70160,70170,70190,70200,7020F
;;70210,70220,70240,70250,7025F,70260,70300,70310,70320,70328,70330,70332,70336
;;70350,70355,70360,70370,70371,70380,70390,70450,70460,70470,70480,70481,70482
;;70486,70487,70488,70490,70491,70492,70496,70498,70540,70542,70543,70544,70545
;;70546,70547,70548,70549,70551,70552,70553,70554,70555,70557,70558,70559,71045
;;71046,71047,71048,71100,71101,71110,71111,71120,71130,71250,71260,71270,71271
;;71275,71550,71551,71552,71555,72020,72040,72050,72052,72070,72072,72074,72080
;;72081,72082,72083,72084,72100,72110,72114,72120,72125,72126,72127,72128,72129
;;72130,72131,72132,72133,72141,72142,72146,72147,72148,72149,72156,72157,72158
;;72159,72170,72190,72191,72192,72193,72194,72195,72196,72197,72198,72200,72202
;;72220,72240,72255,72265,72270,72285,72295,73000,73010,73020,73030,73040,73050
;;73060,73070,73080,73085,73090,73092,73100,73110,73115,73120,73130,73140,73200
;;73201,73202,73206,73218,73219,73220,73221,73222,73223,73225,73501,73502,73503
;;73521,73522,73523,73525,73551,73552,73560,73562,73564,73565,73580,73590,73592
;;73600,73610,73615,73620,73630,73650,73660,73700,73701,73702,73706,73718,73719
;;73720,73721,73722,73723,73725,74018,74019,74021,74022,74150,74160,74170,74174
;;74175,74176,74177,74178,74181,74182,74183,74185,74190,74210,74220,74221,74230
;;74235,74240,74246,74248,74250,74251,74261,74262,74263,74270,74280,74283,74290
;;74300,74301,74328,74329,74330,74340,74355,74360,74363,74400,74410,74415,74420
;;74425,74430,74440,74445,74450,74455,74470,74485,74710,74712,74713,74740,74742
;;74775,75557,75559,75561,75563,75565,75571,75572,75573,75574,75580,75600,75605
;;75625,75630,75635,75705,75710,75716,75726,75731,75733,75736,75741,75743,75746
;;75756,75774,75801,75803,75805,75807,75809,75810,75820,75822,75825,75827,75831
;;75833,75840,75842,75860,75870,75872,75880,75885,75887,75889,75891,75893,75894
;;75898,75901,75902,75956,75957,75958,75959,75970,75984,75989,76000,76010,76080
;;76098,76100,76120,76125,76140,76145,76376,76377,76380,76390,76391,76496,76497
;;76498,76499,76506,76510,76511,76512,76513,76514,76516,76519,76529,76536,76604
;;76641,76642,76700,76705,76706,76770,76775,76776,76800,76801,76802,76805,76810
;;76811,76812,76813,76814,76815,76816,76817,76818,76819,76820,76821,76825,76826
;;76827,76828,76830,76831,76856,76857,76870,76872,76873,76881,76882,76883,76885
;;76886,76932,76936,76937,76940,76941,76942,76945,76946,76948,76965,76975,76977
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR215UT1 11613 printed Nov 22, 2024@17:48:34 Page 2
SR215UT1 ;HPS/JSG - FY24 CPT EXCLUSION UTILITY, CONTINUED; Apr 3, 2024@11:40
+1 ;;3.0;Surgery;**206,210,215**;24 Jun 93;Build 7
+2 ;
+3 QUIT
EX ; populate the CPT file EXCLUSIONS file (#137)
+1 FOR SRJ=1:1
SET SRLIST=$PIECE($TEXT(LIST+SRJ)," ;;",2)
if SRLIST=""
QUIT
FOR SRI=1:1
SET SRX=$PIECE(SRLIST,",",SRI)
if SRX=""
QUIT
IF $DATA(^ICPT("B",SRX))
DO INT
+2 QUIT
INT SET SRY=0
SET SRY=$ORDER(^ICPT("B",SRX,SRY))
if SRY=""
QUIT
+1 KILL DA,DIC,DD,DO,DINUM
SET (DINUM,X)=SRY
SET DIC="^SRO(137,"
SET DIC(0)="L"
DO FILE^DICN
+2 QUIT
LIST ;
+1 ;;42440,42450,4245F,4248F,42500,42505,42507,42509,4250F,42510,42550,4255F,4256F
+2 ;;42600,4260F,4261F,42650,4265F,42660,42665,4266F,4267F,4268F,42699,4269F,4270F
+3 ;;4271F,4274F,4276F,4279F,42800,42804,42806,42808,42809,4280F,42810,42815,42820
+4 ;;42821,42825,42826,42830,42831,42835,42836,42860,42870,42900,4290F,4293F,42955
+5 ;;42975,4300F,4301F,4305F,4306F,43191,43192,43193,43194,43195,43196,43197,43198
+6 ;;43200,43201,43202,43204,43205,43206,4320F,43210,43211,43212,43213,43214,43215
+7 ;;43216,43217,43220,43226,43227,43229,4322F,43231,43232,43233,43235,43236,43237
+8 ;;43238,43239,43240,43241,43242,43243,43244,43245,43246,43247,43248,43249,4324F
+9 ;;43250,43251,43252,43253,43254,43255,43257,43259,4325F,43260,43261,43262,43263
+10 ;;43264,43265,43266,4326F,43270,43273,43274,43275,43276,43277,43278,4328F,43290
+11 ;;43291,4330F,4340F,43450,43453,43460,4350F,43605,43653,43752,43753,43754,43755
+12 ;;43756,43757,43761,43762,43763,43830,43831,43832,43870,43886,43887,43888,4400F
+13 ;;44015,44100,44132,44186,44300,44360,44361,44363,44364,44365,44366,44369,44370
+14 ;;44372,44373,44376,44377,44378,44379,44380,44381,44382,44384,44385,44386,44388
+15 ;;44389,44390,44391,44392,44394,44401,44402,44403,44404,44405,44406,44407,44408
+16 ;;44500,4450F,44705,4470F,44715,44720,44721,4480F,4481F,4500F,45100,45108,4510F
+17 ;;45150,45171,45172,45190,4525F,4526F,45300,45303,45305,45307,45308,45309,45315
+18 ;;45317,45320,45321,45327,45330,45331,45332,45333,45334,45335,45337,45338,45340
+19 ;;45341,45342,45346,45347,45349,45350,45378,45379,45380,45381,45382,45384,45385
+20 ;;45386,45388,45389,45390,45391,45392,45393,45398,4540F,4541F,45505,4550F,4551F
+21 ;;45520,4552F,4553F,4554F,4555F,4556F,4557F,4558F,4559F,4560F,4561F,4562F,4563F
+22 ;;45900,45905,45910,45915,45990,46020,46030,46050,46070,46080,46083,46200,46220
+23 ;;46221,46230,46250,46255,46257,46258,46260,46261,46262,46270,46275,46280,46285
+24 ;;46288,46320,46500,46505,46600,46601,46604,46606,46607,46608,46610,46611,46612
+25 ;;46614,46615,46700,46705,46706,46707,46750,46751,46753,46754,46760,46761,46900
+26 ;;46910,46916,46917,46922,46924,46930,46940,46942,46945,46946,46947,46948,46999
+27 ;;47000,47001,47100,47133,47143,47144,47145,47146,47147,47383,47490,47531,47532
+28 ;;47533,47534,47535,47536,47537,47538,47539,47540,47541,47542,47543,47544,47552
+29 ;;47553,47554,47555,47556,48100,48102,48400,48550,48551,48552,49082,49083,49084
+30 ;;49180,49185,49320,49321,49322,49324,49325,49326,49327,49400,49405,49406,49407
+31 ;;49411,49412,49418,49419,49421,49422,49423,49424,49427,49428,49429,49440,49441
+32 ;;49442,49446,49450,49451,49452,49460,49465,49491,49492,49495,49496,49500,49501
+33 ;;49605,49606,49610,49611,5005F,5010F,5015F,50200,50205,5020F,50300,50323,50325
+34 ;;50327,50328,50329,50382,50384,50385,50386,50387,50389,50390,50391,50396,50430
+35 ;;50431,50432,50433,50434,50435,50436,50437,5050F,50551,50553,50555,50557,50561
+36 ;;50562,50570,50572,50574,50575,50576,50580,50590,50592,50593,50606,5060F,5062F
+37 ;;50684,50686,50688,50690,50693,50694,50695,50705,50706,50951,50953,50955,50957
+38 ;;50961,50970,50972,50974,50976,50980,5100F,51040,51050,51100,51101,51102,51600
+39 ;;51605,51610,51700,51701,51702,51703,51705,51710,51715,51720,51725,51726,51727
+40 ;;51728,51729,51736,51741,51784,51785,51792,51797,51798,52000,52001,52005,52007
+41 ;;5200F,52010,52204,52214,52224,52250,52260,52265,52270,52275,52276,52277,52281
+42 ;;52282,52283,52284,52285,52287,52290,52300,52301,52305,52310,52315,52317,52318
+43 ;;52320,52325,52327,52330,52332,52334,52341,52342,52343,52351,52352,52353,52354
+44 ;;52355,52356,52441,52442,52450,5250F,53020,53025,53060,53200,53270,53275,53453
+45 ;;53454,53600,53601,53620,53621,53660,53661,53850,53852,53854,53855,53860,53899
+46 ;;54000,54001,54015,54050,54055,54056,54057,54060,54065,54100,54105,54150,54160
+47 ;;54161,54162,54163,54164,54200,54205,54220,54230,54231,54235,54240,54250,54400
+48 ;;54401,54405,54406,54408,54410,54415,54416,54435,54437,54438,54450,54500,54505
+49 ;;54512,54520,54530,54535,54700,54800,54830,55000,55100,55200,55250,55300,55400
+50 ;;55500,55520,55559,55700,55705,55706,55870,55874,55876,55880,55920,56405,56420
+51 ;;56440,56441,56501,56515,56605,56606,56700,56820,56821,57020,57022,57023,57061
+52 ;;57065,57100,57105,57135,57150,57155,57156,57160,57170,57180,57400,57410,57420
+53 ;;57421,57452,57454,57455,57456,57460,57461,57465,57500,57505,57510,57511,57513
+54 ;;57522,57558,57700,57800,58100,58110,58120,58300,58301,58321,58322,58323,58340
+55 ;;58345,58346,58353,58555,58558,58559,58560,58561,58562,58563,58580,58674,58900
+56 ;;58970,58974,58976,59000,59001,59012,59015,59020,59025,59030,59050,59051,59070
+57 ;;59072,59074,59076,59100,59160,59200,59300,59320,59325,59400,59409,59410,59412
+58 ;;59414,59425,59426,59430,59510,59514,59515,59525,59610,59612,59614,59618,59840
+59 ;;59841,59850,59851,59852,59855,59856,59857,59866,59871,59897,59898,59899,6005F
+60 ;;60100,6010F,6015F,6020F,60300,6030F,6040F,6045F,6070F,6080F,6090F,61001,6100F
+61 ;;6101F,61026,6102F,61050,61055,61070,6110F,61140,6150F,61623,61630,61640,61641
+62 ;;61642,61645,61650,61651,61750,61751,61782,61790,61791,61796,61797,61798,61799
+63 ;;61800,61889,61891,61892,62140,62141,62142,62143,62146,62252,62263,62264,62267
+64 ;;62268,62269,62270,62272,62273,62280,62281,62282,62284,62287,62290,62291,62292
+65 ;;62294,62302,62303,62304,62305,62320,62321,62322,62323,62324,62325,62326,62327
+66 ;;62328,62329,62350,62355,62360,62361,62362,62365,62367,62368,62369,62370,63600
+67 ;;63610,63620,63621,63650,63661,63663,63685,63688,64400,64405,64408,64415,64416
+68 ;;64417,64418,64420,64421,64425,64430,64435,64445,64446,64447,64448,64449,64450
+69 ;;64451,64454,64455,64461,64462,64463,64479,64480,64483,64484,64486,64487,64488
+70 ;;64489,64490,64491,64492,64493,64494,64495,64505,64510,64517,64520,64530,64553
+71 ;;64555,64561,64566,64568,64569,64570,64575,64580,64581,64584,64585,64590,64595
+72 ;;64596,64597,64598,64600,64605,64610,64611,64612,64615,64616,64617,64620,64624
+73 ;;64625,64628,64629,64630,64632,64633,64634,64635,64636,64640,64642,64643,64644
+74 ;;64645,64646,64647,64650,64653,64680,64681,64702,64704,64716,64718,64719,64721
+75 ;;64732,64734,64736,64738,64740,64742,64744,64774,64776,64778,64782,64783,64784
+76 ;;64786,64787,64788,64790,64792,64795,64820,64821,64822,64823,64831,64832,64834
+77 ;;64835,64836,65091,65093,65101,65103,65105,65110,65112,65114,65125,65130,65135
+78 ;;65140,65150,65155,65175,65205,65210,65220,65222,65235,65260,65265,65270,65272
+79 ;;65273,65275,65280,65285,65286,65290,65400,65410,65420,65426,65430,65435,65436
+80 ;;65450,65600,65710,65730,65750,65755,65756,65757,65760,65765,65767,65770,65771
+81 ;;65772,65775,65778,65779,65780,65781,65782,65785,65800,65810,65815,65820,65850
+82 ;;65855,65860,65865,65870,65875,65880,65900,65920,65930,66020,66030,66130,66150
+83 ;;66155,66160,66170,66172,66174,66175,66179,66180,66183,66184,66185,66225,66250
+84 ;;66500,66505,66600,66605,66625,66630,66635,66680,66682,66700,66710,66711,66720
+85 ;;66740,66761,66762,66770,66820,66821,66825,66830,66840,66850,66852,66920,66930
+86 ;;66940,66982,66983,66984,66985,66986,66987,66988,66989,66990,66991,66999,67005
+87 ;;67010,67015,67025,67027,67028,67030,67031,67036,67039,67040,67041,67042,67043
+88 ;;67101,67105,67107,67108,67110,67113,67115,67120,67121,67141,67145,67208,67210
+89 ;;67218,67220,67221,67225,67227,67228,67229,67250,67255,67299,67311,67312,67314
+90 ;;67316,67318,67320,67331,67332,67334,67335,67340,67343,67345,67346,67399,67400
+91 ;;67405,67412,67413,67414,67415,67420,67430,67440,67445,67450,67500,67505,67515
+92 ;;67516,67550,67560,67570,67599,67700,67710,67715,67800,67801,67805,67808,67810
+93 ;;67820,67825,67830,67835,67840,67850,67875,67880,67882,67900,67901,67902,67903
+94 ;;67904,67906,67908,67909,67911,67912,67914,67915,67916,67917,67921,67922,67923
+95 ;;67924,67930,67935,67938,67950,67961,67966,67971,67973,67974,67975,67999,68020
+96 ;;68040,68100,68110,68115,68130,68135,68200,68320,68325,68326,68328,68330,68335
+97 ;;68340,68360,68362,68371,68399,68400,68420,68440,68500,68505,68510,68520,68525
+98 ;;68530,68540,68550,68700,68705,68720,68745,68750,68760,68761,68770,68801,68810
+99 ;;68811,68815,68816,68840,68841,68850,68899,69000,69005,69020,69090,69100,69105
+100 ;;69110,69120,69140,69145,69200,69205,69209,69210,69220,69222,69300,69310,69320
+101 ;;69399,69420,69421,69424,69433,69436,69440,69450,69501,69502,69505,69511,69535
+102 ;;69540,69550,69552,69554,69601,69602,69603,69604,69610,69620,69631,69632,69633
+103 ;;69635,69636,69637,69641,69642,69643,69644,69645,69646,69650,69660,69661,69662
+104 ;;69666,69667,69670,69676,69700,69705,69706,69710,69711,69714,69720,69740,69799
+105 ;;69801,69805,69806,69949,69950,69955,69960,69970,69979,69990,70010,70015,70030
+106 ;;70100,7010F,70110,70120,70130,70134,70140,70150,70160,70170,70190,70200,7020F
+107 ;;70210,70220,70240,70250,7025F,70260,70300,70310,70320,70328,70330,70332,70336
+108 ;;70350,70355,70360,70370,70371,70380,70390,70450,70460,70470,70480,70481,70482
+109 ;;70486,70487,70488,70490,70491,70492,70496,70498,70540,70542,70543,70544,70545
+110 ;;70546,70547,70548,70549,70551,70552,70553,70554,70555,70557,70558,70559,71045
+111 ;;71046,71047,71048,71100,71101,71110,71111,71120,71130,71250,71260,71270,71271
+112 ;;71275,71550,71551,71552,71555,72020,72040,72050,72052,72070,72072,72074,72080
+113 ;;72081,72082,72083,72084,72100,72110,72114,72120,72125,72126,72127,72128,72129
+114 ;;72130,72131,72132,72133,72141,72142,72146,72147,72148,72149,72156,72157,72158
+115 ;;72159,72170,72190,72191,72192,72193,72194,72195,72196,72197,72198,72200,72202
+116 ;;72220,72240,72255,72265,72270,72285,72295,73000,73010,73020,73030,73040,73050
+117 ;;73060,73070,73080,73085,73090,73092,73100,73110,73115,73120,73130,73140,73200
+118 ;;73201,73202,73206,73218,73219,73220,73221,73222,73223,73225,73501,73502,73503
+119 ;;73521,73522,73523,73525,73551,73552,73560,73562,73564,73565,73580,73590,73592
+120 ;;73600,73610,73615,73620,73630,73650,73660,73700,73701,73702,73706,73718,73719
+121 ;;73720,73721,73722,73723,73725,74018,74019,74021,74022,74150,74160,74170,74174
+122 ;;74175,74176,74177,74178,74181,74182,74183,74185,74190,74210,74220,74221,74230
+123 ;;74235,74240,74246,74248,74250,74251,74261,74262,74263,74270,74280,74283,74290
+124 ;;74300,74301,74328,74329,74330,74340,74355,74360,74363,74400,74410,74415,74420
+125 ;;74425,74430,74440,74445,74450,74455,74470,74485,74710,74712,74713,74740,74742
+126 ;;74775,75557,75559,75561,75563,75565,75571,75572,75573,75574,75580,75600,75605
+127 ;;75625,75630,75635,75705,75710,75716,75726,75731,75733,75736,75741,75743,75746
+128 ;;75756,75774,75801,75803,75805,75807,75809,75810,75820,75822,75825,75827,75831
+129 ;;75833,75840,75842,75860,75870,75872,75880,75885,75887,75889,75891,75893,75894
+130 ;;75898,75901,75902,75956,75957,75958,75959,75970,75984,75989,76000,76010,76080
+131 ;;76098,76100,76120,76125,76140,76145,76376,76377,76380,76390,76391,76496,76497
+132 ;;76498,76499,76506,76510,76511,76512,76513,76514,76516,76519,76529,76536,76604
+133 ;;76641,76642,76700,76705,76706,76770,76775,76776,76800,76801,76802,76805,76810
+134 ;;76811,76812,76813,76814,76815,76816,76817,76818,76819,76820,76821,76825,76826
+135 ;;76827,76828,76830,76831,76856,76857,76870,76872,76873,76881,76882,76883,76885
+136 ;;76886,76932,76936,76937,76940,76941,76942,76945,76946,76948,76965,76975,76977