SR195UT1 ;BIR/SJA - FY19 CPT EXCLUSION UTILITY, CONTINUED ;May 21, 2019@08:55:11
;;3.0;Surgery;**195**;24 Jun 93;Build 8
;
Q
EX ; populate the CPT file EXCLUSIONS file (#137)
F SRJ=0: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 ;;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,66220,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,66990,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,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
;;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,69710,69711,69714
;;69715,69717,69718,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,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
;;72275,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
;;74230,74235,74240,74241,74245,74246,74247,74249,74250,74251,74260,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,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,76001,76010,76080,76098,76100,76101,76102,76120,76125,76140,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,76885,76886,76930,76932,76936,76937,76940,76941,76942,76945,76946,76948,76965,76970
;;76975,76977,76978,76979,76981,76982,76983,76998,76999,77001,77002,77003,77011,77012,77013,77014,77021
;;77022,77046,77047,77048,77049,77053,77054,77058,77059,77061,77062,77063,77065,77066,77067,77071,77072
;;77073,77074,77075,77076,77077,77078,77080,77081,77084,77085,77086,77261,77262,77263,77280,77285,77290
;;77293,77295,77299,77300,77301,77306,77307,77316,77317,77318,77321,77331,77332,77333,77334,77336,77338
;;77370,77371,77372,77373,77385,77386,77387,77399,77401,77402,77407,77412,77417,77423,77424,77425,77427
;;77431,77432,77435,77469,77470,77499,77520,77522,77523,77525,77600,77605,77610,77615,77620,77750,77761
;;77762,77763,77767,77768,77770,77771,77772,77778,77789,77790,77799,78012,78013,78014,78015,78016,78018
;;78020,78070,78071,78072,78075,78099,78102,78103,78104,78110,78111,78120,78121,78122,78130,78135,78140
;;78185,78191,78195,78199,78201,78202,78205,78206,78215,78216,78226,78227,78230,78231,78232,78258,78261
;;78262,78264,78265,78266,78267,78268,78270,78271,78272,78278,78282,78290,78291,78299,78300,78305,78306
;;78315,78320,78350,78351,78399,78414,78428,78445,78451,78452,78453,78454,78456,78457,78458,78459,78466
;;78468,78469,78472,78473,78481,78483,78491,78492,78494,78496,78499,78579,78580,78582,78597,78598,78599
;;78600,78601,78605,78606,78607,78608,78609,78610,78630,78635,78645,78647,78650,78660,78699,78700,78701
;;78707,78708,78709,78710,78725,78730,78740,78761,78799,78800,78801,78802,78803,78804,78805,78806,78807
;;78808,78811,78812,78813,78814,78815,78816,78999,79005,79101,79200,79300,79403,79440,79445,79999,80047
;;80048,80050,80051,80053,80055,80061,80069,80074,80076,80081,80150,80155,80156,80157,80158,80159,80162
;;80163,80164,80165,80168,80169,80170,80171,80173,80175,80176,80177,80178,80180,80183,80184,80185,80186
;;80188,80190,80192,80194,80195,80197,80198,80199,80200,80201,80202,80203,80299,80305,80306,80307,80320
;;80321,80322,80323,80324,80325,80326,80327,80328,80329,80330,80331,80332,80333,80334,80335,80336,80337
;;80338,80339,80340,80341,80342,80343,80344,80345,80346,80347,80348,80349,80350,80351,80352,80353,80354
;;80355,80356,80357,80358,80359,80360,80361,80362,80363,80364,80365,80366,80367,80368,80369,80370,80371
;;80372,80373,80374,80375,80376,80377,80400,80402,80406,80408,80410,80412,80414,80415,80416,80417,80418
;;80420,80422,80424,80426,80428,80430,80432,80434,80435,80436,80438,80439,80500,80502,81000,81001,81002
;;81003,81005,81007,81015,81020,81025,81050,81099,81105,81106,81107,81108,81109,81110,81111,81112,81120
;;81121,81161,81162,81163,81164,81165,81166,81167,81170,81171,81172,81173,81174,81175,81176,81177,81178
;;81179,81180,81181,81182,81183,81184,81185,81186,81187,81188,81189,81190,81200,81201,81202,81203,81204
;;81205,81206,81207,81208,81209,81210,81211,81212,81213,81214,81215,81216,81217,81218,81219,81220,81221
;;81222,81223,81224,81225,81226,81227,81228,81229,81230,81231,81232,81233,81234,81235,81236,81237,81238
;;81239,81240,81241,81242,81243,81244,81245,81246,81247,81248,81249,81250,81251,81252,81253,81254,81255
;;81256,81257,81258,81259,81260,81261,81262,81263,81264,81265,81266,81267,81268,81269,81270,81271,81272
;;81273,81274,81275,81276,81283,81284,81285,81286,81287,81288,81289,81290,81291,81292,81293,81294,81295
;;81296,81297,81298,81299,81300,81301,81302,81303,81304,81305,81306,81310,81311,81312,81313,81314,81315
;;81316,81317,81318,81319,81320,81321,81322,81323,81324,81325,81326,81327,81328,81329,81330,81331,81332
;;81333,81334,81335,81336,81337,81340,81341,81342,81343,81344,81345,81346,81350,81355,81361,81362,81363
;;81364,81370,81371,81372,81373,81374,81375,81376,81377,81378,81379,81380,81381,81382,81383,81400,81401
;;81402,81403,81404,81405,81406,81407,81408,81410,81411,81412,81413,81414,81415,81416,81417,81420,81422
;;81425,81426,81427,81430,81431,81432,81433,81434,81435,81436,81437,81438,81439,81440,81442,81443,81445
;;81448,81450,81455,81460,81465,81470,81471,81479,81490,81493,81500,81503,81504,81506,81507,81508,81509
;;81510,81511,81512,81518,81519,81520,81521,81525,81528,81535,81536,81538,81539,81540,81541,81545,81551
;;81595,81596,81599,82009,82010,82013,82016,82017,82024,82030,82040,82042,82043,82044,82045,82075,82085
;;82088,82103,82104,82105,82106,82107,82108,82120,82127,82128,82131,82135,82136,82139,82140,82143,82150
;;82154,82157,82160,82163,82164,82172,82175,82180,82190,82232,82239,82240,82247,82248,82252,82261,82270
;;82271,82272,82274,82286,82300,82306,82308,82310,82330,82331,82340,82355,82360,82365,82370,82373,82374
;;82375,82376,82378,82379,82380,82382,82383,82384,82387,82390,82397,82415,82435,82436,82438,82441,82465
;;82480,82482,82485,82495,82507,82523,82525,82528,82530,82533,82540,82542,82550,82552,82553,82554,82565
;;82570,82575,82585,82595,82600,82607,82608,82610,82615,82626,82627,82633,82634,82638,82642,82652,82656
;;82657,82658,82664,82668,82670,82671,82672,82677,82679,82693,82696,82705,82710,82715,82725,82726,82728
;;82731,82735,82746,82747,82757,82759,82760,82775,82776,82777,82784,82785,82787,82800,82803,82805,82810
;;82820,82930,82938,82941,82943,82945,82946,82947,82948,82950,82951,82952,82955,82960,82962,82963,82965
;;82977,82978,82979,82985,83001,83002,83003,83006,83009,83010,83012,83013,83014,83015,83018,83020,83021
;;83026,83030,83033,83036,83037,83045,83050,83051,83060,83065,83068,83069,83070,83080,83088,83090,83150
;;83491,83497,83498,83500,83505,83516,83518,83519,83520,83525,83527,83528,83540,83550,83570,83582,83586
;;83593,83605,83615,83625,83630,83631,83632,83633,83655,83661,83662,83663,83664,83670,83690,83695,83698
;;83700,83701,83704,83718,83719,83721,83722,83727,83735,83775,83785,83789,83825,83835,83857,83861,83864
;;83872,83873,83874,83876,83880,83883,83885,83915,83916,83918,83919,83921,83930,83935,83937,83945,83950
;;83951,83970,83986,83987,83992,83993,84030,84035,84060,84066,84075,84078,84080,84081,84085,84087,84100
;;84105,84106,84110,84112,84119,84120,84126,84132,84133,84134,84135,84138,84140,84143,84144,84145,84146
;;84150,84152,84153,84154,84155,84156,84157,84160,84163,84165,84166,84181,84182,84202,84203,84206,84207
;;84210,84220,84228,84233,84234,84235,84238,84244,84252,84255,84260,84270,84275,84285,84295,84300,84302
;;84305,84307,84311,84315,84375,84376,84377,84378,84379,84392,84402,84403,84410,84425,84430,84431,84432
;;84436,84437,84439,84442,84443,84445,84446,84449,84450,84460,84466,84478,84479,84480,84481,84482,84484
;;84485,84488,84490,84510,84512,84520,84525,84540,84545,84550,84560,84577,84578,84580,84583,84585,84586
;;84588,84590,84591,84597,84600,84620,84630,84681,84702,84703,84704,84830,84999,85002,85004,85007,85008
;;85009,85013,85014,85018,85025,85027,85032,85041,85044,85045,85046,85048,85049,85055,85060,85097,85130
;;85170,85175,85210,85220,85230,85240,85244,85245,85246,85247,85250,85260,85270,85280,85290,85291,85292
;;85293,85300,85301,85302,85303,85305,85306,85307,85335,85337,85345,85347,85348,85360,85362,85366,85370
;;85378,85379,85380,85384,85385,85390,85396,85397,85400,85410,85415,85420,85421,85441,85445,85460,85461
;;85475,85520,85525,85530,85536,85540,85547,85549,85555,85557,85576,85597,85598,85610,85611,85612,85613
;;85635,85651,85652,85660,85670,85675,85705,85730,85732,85810,85999,86000,86001,86003,86005,86008,86021
;;86022,86023,86038,86039,86060,86063,86077,86078,86079,86140,86141,86146,86147,86148,86152,86153,86155
;;86156,86157,86160,86161,86162,86171,86200,86215,86225,86226,86235,86255,86256,86277,86280,86294,86300
;;86301,86304,86305,86308,86309,86310,86316,86317,86318,86320,86325,86327,86329,86331,86332,86334,86335
;;86336,86337,86340,86341,86343,86344,86352,86353,86355,86356,86357,86359,86360,86361,86367,86376,86382
;;86384,86386,86403,86406,86430,86431,86480,86481,86485,86486,86490,86510,86580,86590,86592,86593,86602
;;86603,86606,86609,86611,86612,86615,86617,86618,86619,86622,86625,86628,86631,86632,86635,86638,86641
;;86644,86645,86648,86651,86652,86653,86654,86658,86663,86664,86665,86666,86668,86671,86674,86677,86682
;;86684,86687,86688,86689,86692,86694,86695,86696,86698,86701,86702,86703,86704,86705,86706,86707,86708
;;86709,86710,86711,86713,86717,86720,86723,86727,86732,86735,86738,86741,86744,86747,86750,86753,86756
;;86757,86759,86762,86765,86768,86771,86774,86777,86778,86780,86784,86787,86788,86789,86790,86793,86794
;;86800,86803,86804,86805,86806,86807,86808,86812,86813,86816,86817,86821,86825,86826,86828,86829,86830
;;86831,86832,86833,86834,86835,86849,86850,86860,86870,86880,86885,86886,86890,86891,86900,86901,86902
;;86904,86905,86906,86910,86911,86920,86921,86922,86923,86927,86930,86931,86932,86940,86941,86945,86950
;;86960,86965,86970,86971,86972,86975,86976,86977,86978,86985,86999,87003,87015,87040,87045,87046,87070
;;87071,87073,87075,87076,87077,87081,87084,87086,87088,87101,87102,87103,87106,87107,87109,87110,87116
;;87118,87140,87143,87147,87149,87150,87152,87153,87158,87164,87166,87168,87169,87172,87176,87177,87181
;;87184,87185,87186,87187,87188,87190,87197,87205,87206,87207,87209,87210,87220,87230,87250,87252,87253
;;87254,87255,87260,87265,87267,87269,87270,87271,87272,87273,87274,87275,87276,87278,87279,87280,87281
;;87283,87285,87290,87299,87300,87301,87305,87320,87324,87327,87328,87329,87332,87335,87336,87337,87338
;;87339,87340,87341,87350,87380,87385,87389,87390,87391,87400,87420,87425,87427,87430,87449,87450,87451
;;87471,87472,87475,87476,87480,87481,87482,87483,87485,87486,87487,87490,87491,87492,87493,87495,87496
;;87497,87498,87500,87501,87502,87503,87505,87506,87507,87510,87511,87512,87516,87517,87520,87521,87522
;;87525,87526,87527,87528,87529,87530,87531,87532,87533,87534,87535,87536,87537,87538,87539,87540,87541
;;87542,87550,87551,87552,87555,87556,87557,87560,87561,87562,87580,87581,87582,87590,87591,87592,87623
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR195UT1 15099 printed Dec 13, 2024@02:38:17 Page 2
SR195UT1 ;BIR/SJA - FY19 CPT EXCLUSION UTILITY, CONTINUED ;May 21, 2019@08:55:11
+1 ;;3.0;Surgery;**195**;24 Jun 93;Build 8
+2 ;
+3 QUIT
EX ; populate the CPT file EXCLUSIONS file (#137)
+1 FOR SRJ=0: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 ;;65130,65135,65140,65150,65155,65175,65205,65210,65220,65222,65235,65260,65265,65270,65272,65273,65275
+1 ;;65280,65285,65286,65290,65400,65410,65420,65426,65430,65435,65436,65450,65600,65710,65730,65750,65755,65756
+2 ;;65757,65760,65765,65767,65770,65771,65772,65775,65778,65779,65780,65781,65782,65785,65800,65810,65815,65820
+3 ;;65850,65855,65860,65865,65870,65875,65880,65900,65920,65930,66020,66030,66130,66150,66155,66160,66170,66172
+4 ;;66174,66175,66179,66180,66183,66184,66185,66220,66225,66250,66500,66505,66600,66605,66625,66630,66635
+5 ;;66680,66682,66700,66710,66711,66720,66740,66761,66762,66770,66820,66821,66825,66830,66840,66850,66852
+6 ;;66920,66930,66940,66982,66983,66984,66985,66986,66990,66999,67005,67010,67015,67025,67027,67028,67030
+7 ;;67031,67036,67039,67040,67041,67042,67043,67101,67105,67107,67108,67110,67113,67115,67120,67121,67141
+8 ;;67145,67208,67210,67218,67220,67221,67225,67227,67228,67229,67250,67255,67299,67311,67312,67314,67316
+9 ;;67318,67320,67331,67332,67334,67335,67340,67343,67345,67346,67399,67400,67405,67412,67413,67414,67415
+10 ;;67420,67430,67440,67445,67450,67500,67505,67515,67550,67560,67570,67599,67700,67710,67715,67800,67801
+11 ;;67805,67808,67810,67820,67825,67830,67835,67840,67850,67875,67880,67882,67900,67901,67902,67903,67904
+12 ;;67906,67908,67909,67911,67912,67914,67915,67916,67917,67921,67922,67923,67924,67930,67935,67938,67950
+13 ;;67961,67966,67971,67973,67974,67975,67999,68020,68040,68100,68110,68115,68130,68135,68200,68320,68325
+14 ;;68326,68328,68330,68335,68340,68360,68362,68371,68399,68400,68420,68440,68500,68505,68510,68520,68525
+15 ;;68530,68540,68550,68700,68705,68720,68745,68750,68760,68761,68770,68801,68810,68811,68815,68816,68840
+16 ;;68850,68899,69000,69005,69020,69090,69100,69105,69110,69120,69140,69145,69200,69205,69209,69210,69220
+17 ;;69222,69300,69310,69320,69399,69420,69421,69424,69433,69436,69440,69450,69501,69502,69505,69511,69535
+18 ;;69540,69550,69552,69554,69601,69602,69603,69604,69610,69620,69631,69632,69633,69635,69636,69637,69641
+19 ;;69642,69643,69644,69645,69646,69650,69660,69661,69662,69666,69667,69670,69676,69700,69710,69711,69714
+20 ;;69715,69717,69718,69720,69740,69799,69801,69805,69806,69949,69950,69955,69960,69970,69979,69990,70010
+21 ;;70015,70030,70100,7010F,70110,70120,70130,70134,70140,70150,70160,70170,70190,70200,7020F,70210,70220
+22 ;;70240,70250,7025F,70260,70300,70310,70320,70328,70330,70332,70336,70350,70355,70360,70370,70371,70380
+23 ;;70390,70450,70460,70470,70480,70481,70482,70486,70487,70488,70490,70491,70492,70496,70498,70540,70542
+24 ;;70543,70544,70545,70546,70547,70548,70549,70551,70552,70553,70554,70555,70557,70558,70559,71045,71046
+25 ;;71047,71048,71100,71101,71110,71111,71120,71130,71250,71260,71270,71275,71550,71551,71552,71555,72020
+26 ;;72040,72050,72052,72070,72072,72074,72080,72081,72082,72083,72084,72100,72110,72114,72120,72125,72126
+27 ;;72127,72128,72129,72130,72131,72132,72133,72141,72142,72146,72147,72148,72149,72156,72157,72158,72159
+28 ;;72170,72190,72191,72192,72193,72194,72195,72196,72197,72198,72200,72202,72220,72240,72255,72265,72270
+29 ;;72275,72285,72295,73000,73010,73020,73030,73040,73050,73060,73070,73080,73085,73090,73092,73100,73110
+30 ;;73115,73120,73130,73140,73200,73201,73202,73206,73218,73219,73220,73221,73222,73223,73225,73501,73502
+31 ;;73503,73521,73522,73523,73525,73551,73552,73560,73562,73564,73565,73580,73590,73592,73600,73610,73615
+32 ;;73620,73630,73650,73660,73700,73701,73702,73706,73718,73719,73720,73721,73722,73723,73725,74018,74019
+33 ;;74021,74022,74150,74160,74170,74174,74175,74176,74177,74178,74181,74182,74183,74185,74190,74210,74220
+34 ;;74230,74235,74240,74241,74245,74246,74247,74249,74250,74251,74260,74261,74262,74263,74270,74280,74283
+35 ;;74290,74300,74301,74328,74329,74330,74340,74355,74360,74363,74400,74410,74415,74420,74425,74430,74440
+36 ;;74445,74450,74455,74470,74485,74710,74712,74713,74740,74742,74775,75557,75559,75561,75563,75565,75571
+37 ;;75572,75573,75574,75600,75605,75625,75630,75635,75705,75710,75716,75726,75731,75733,75736,75741,75743
+38 ;;75746,75756,75774,75801,75803,75805,75807,75809,75810,75820,75822,75825,75827,75831,75833,75840,75842
+39 ;;75860,75870,75872,75880,75885,75887,75889,75891,75893,75894,75898,75901,75902,75956,75957,75958,75959
+40 ;;75970,75984,75989,76000,76001,76010,76080,76098,76100,76101,76102,76120,76125,76140,76376,76377,76380
+41 ;;76390,76391,76496,76497,76498,76499,76506,76510,76511,76512,76513,76514,76516,76519,76529,76536,76604
+42 ;;76641,76642,76700,76705,76706,76770,76775,76776,76800,76801,76802,76805,76810,76811,76812,76813,76814
+43 ;;76815,76816,76817,76818,76819,76820,76821,76825,76826,76827,76828,76830,76831,76856,76857,76870,76872
+44 ;;76873,76881,76882,76885,76886,76930,76932,76936,76937,76940,76941,76942,76945,76946,76948,76965,76970
+45 ;;76975,76977,76978,76979,76981,76982,76983,76998,76999,77001,77002,77003,77011,77012,77013,77014,77021
+46 ;;77022,77046,77047,77048,77049,77053,77054,77058,77059,77061,77062,77063,77065,77066,77067,77071,77072
+47 ;;77073,77074,77075,77076,77077,77078,77080,77081,77084,77085,77086,77261,77262,77263,77280,77285,77290
+48 ;;77293,77295,77299,77300,77301,77306,77307,77316,77317,77318,77321,77331,77332,77333,77334,77336,77338
+49 ;;77370,77371,77372,77373,77385,77386,77387,77399,77401,77402,77407,77412,77417,77423,77424,77425,77427
+50 ;;77431,77432,77435,77469,77470,77499,77520,77522,77523,77525,77600,77605,77610,77615,77620,77750,77761
+51 ;;77762,77763,77767,77768,77770,77771,77772,77778,77789,77790,77799,78012,78013,78014,78015,78016,78018
+52 ;;78020,78070,78071,78072,78075,78099,78102,78103,78104,78110,78111,78120,78121,78122,78130,78135,78140
+53 ;;78185,78191,78195,78199,78201,78202,78205,78206,78215,78216,78226,78227,78230,78231,78232,78258,78261
+54 ;;78262,78264,78265,78266,78267,78268,78270,78271,78272,78278,78282,78290,78291,78299,78300,78305,78306
+55 ;;78315,78320,78350,78351,78399,78414,78428,78445,78451,78452,78453,78454,78456,78457,78458,78459,78466
+56 ;;78468,78469,78472,78473,78481,78483,78491,78492,78494,78496,78499,78579,78580,78582,78597,78598,78599
+57 ;;78600,78601,78605,78606,78607,78608,78609,78610,78630,78635,78645,78647,78650,78660,78699,78700,78701
+58 ;;78707,78708,78709,78710,78725,78730,78740,78761,78799,78800,78801,78802,78803,78804,78805,78806,78807
+59 ;;78808,78811,78812,78813,78814,78815,78816,78999,79005,79101,79200,79300,79403,79440,79445,79999,80047
+60 ;;80048,80050,80051,80053,80055,80061,80069,80074,80076,80081,80150,80155,80156,80157,80158,80159,80162
+61 ;;80163,80164,80165,80168,80169,80170,80171,80173,80175,80176,80177,80178,80180,80183,80184,80185,80186
+62 ;;80188,80190,80192,80194,80195,80197,80198,80199,80200,80201,80202,80203,80299,80305,80306,80307,80320
+63 ;;80321,80322,80323,80324,80325,80326,80327,80328,80329,80330,80331,80332,80333,80334,80335,80336,80337
+64 ;;80338,80339,80340,80341,80342,80343,80344,80345,80346,80347,80348,80349,80350,80351,80352,80353,80354
+65 ;;80355,80356,80357,80358,80359,80360,80361,80362,80363,80364,80365,80366,80367,80368,80369,80370,80371
+66 ;;80372,80373,80374,80375,80376,80377,80400,80402,80406,80408,80410,80412,80414,80415,80416,80417,80418
+67 ;;80420,80422,80424,80426,80428,80430,80432,80434,80435,80436,80438,80439,80500,80502,81000,81001,81002
+68 ;;81003,81005,81007,81015,81020,81025,81050,81099,81105,81106,81107,81108,81109,81110,81111,81112,81120
+69 ;;81121,81161,81162,81163,81164,81165,81166,81167,81170,81171,81172,81173,81174,81175,81176,81177,81178
+70 ;;81179,81180,81181,81182,81183,81184,81185,81186,81187,81188,81189,81190,81200,81201,81202,81203,81204
+71 ;;81205,81206,81207,81208,81209,81210,81211,81212,81213,81214,81215,81216,81217,81218,81219,81220,81221
+72 ;;81222,81223,81224,81225,81226,81227,81228,81229,81230,81231,81232,81233,81234,81235,81236,81237,81238
+73 ;;81239,81240,81241,81242,81243,81244,81245,81246,81247,81248,81249,81250,81251,81252,81253,81254,81255
+74 ;;81256,81257,81258,81259,81260,81261,81262,81263,81264,81265,81266,81267,81268,81269,81270,81271,81272
+75 ;;81273,81274,81275,81276,81283,81284,81285,81286,81287,81288,81289,81290,81291,81292,81293,81294,81295
+76 ;;81296,81297,81298,81299,81300,81301,81302,81303,81304,81305,81306,81310,81311,81312,81313,81314,81315
+77 ;;81316,81317,81318,81319,81320,81321,81322,81323,81324,81325,81326,81327,81328,81329,81330,81331,81332
+78 ;;81333,81334,81335,81336,81337,81340,81341,81342,81343,81344,81345,81346,81350,81355,81361,81362,81363
+79 ;;81364,81370,81371,81372,81373,81374,81375,81376,81377,81378,81379,81380,81381,81382,81383,81400,81401
+80 ;;81402,81403,81404,81405,81406,81407,81408,81410,81411,81412,81413,81414,81415,81416,81417,81420,81422
+81 ;;81425,81426,81427,81430,81431,81432,81433,81434,81435,81436,81437,81438,81439,81440,81442,81443,81445
+82 ;;81448,81450,81455,81460,81465,81470,81471,81479,81490,81493,81500,81503,81504,81506,81507,81508,81509
+83 ;;81510,81511,81512,81518,81519,81520,81521,81525,81528,81535,81536,81538,81539,81540,81541,81545,81551
+84 ;;81595,81596,81599,82009,82010,82013,82016,82017,82024,82030,82040,82042,82043,82044,82045,82075,82085
+85 ;;82088,82103,82104,82105,82106,82107,82108,82120,82127,82128,82131,82135,82136,82139,82140,82143,82150
+86 ;;82154,82157,82160,82163,82164,82172,82175,82180,82190,82232,82239,82240,82247,82248,82252,82261,82270
+87 ;;82271,82272,82274,82286,82300,82306,82308,82310,82330,82331,82340,82355,82360,82365,82370,82373,82374
+88 ;;82375,82376,82378,82379,82380,82382,82383,82384,82387,82390,82397,82415,82435,82436,82438,82441,82465
+89 ;;82480,82482,82485,82495,82507,82523,82525,82528,82530,82533,82540,82542,82550,82552,82553,82554,82565
+90 ;;82570,82575,82585,82595,82600,82607,82608,82610,82615,82626,82627,82633,82634,82638,82642,82652,82656
+91 ;;82657,82658,82664,82668,82670,82671,82672,82677,82679,82693,82696,82705,82710,82715,82725,82726,82728
+92 ;;82731,82735,82746,82747,82757,82759,82760,82775,82776,82777,82784,82785,82787,82800,82803,82805,82810
+93 ;;82820,82930,82938,82941,82943,82945,82946,82947,82948,82950,82951,82952,82955,82960,82962,82963,82965
+94 ;;82977,82978,82979,82985,83001,83002,83003,83006,83009,83010,83012,83013,83014,83015,83018,83020,83021
+95 ;;83026,83030,83033,83036,83037,83045,83050,83051,83060,83065,83068,83069,83070,83080,83088,83090,83150
+96 ;;83491,83497,83498,83500,83505,83516,83518,83519,83520,83525,83527,83528,83540,83550,83570,83582,83586
+97 ;;83593,83605,83615,83625,83630,83631,83632,83633,83655,83661,83662,83663,83664,83670,83690,83695,83698
+98 ;;83700,83701,83704,83718,83719,83721,83722,83727,83735,83775,83785,83789,83825,83835,83857,83861,83864
+99 ;;83872,83873,83874,83876,83880,83883,83885,83915,83916,83918,83919,83921,83930,83935,83937,83945,83950
+100 ;;83951,83970,83986,83987,83992,83993,84030,84035,84060,84066,84075,84078,84080,84081,84085,84087,84100
+101 ;;84105,84106,84110,84112,84119,84120,84126,84132,84133,84134,84135,84138,84140,84143,84144,84145,84146
+102 ;;84150,84152,84153,84154,84155,84156,84157,84160,84163,84165,84166,84181,84182,84202,84203,84206,84207
+103 ;;84210,84220,84228,84233,84234,84235,84238,84244,84252,84255,84260,84270,84275,84285,84295,84300,84302
+104 ;;84305,84307,84311,84315,84375,84376,84377,84378,84379,84392,84402,84403,84410,84425,84430,84431,84432
+105 ;;84436,84437,84439,84442,84443,84445,84446,84449,84450,84460,84466,84478,84479,84480,84481,84482,84484
+106 ;;84485,84488,84490,84510,84512,84520,84525,84540,84545,84550,84560,84577,84578,84580,84583,84585,84586
+107 ;;84588,84590,84591,84597,84600,84620,84630,84681,84702,84703,84704,84830,84999,85002,85004,85007,85008
+108 ;;85009,85013,85014,85018,85025,85027,85032,85041,85044,85045,85046,85048,85049,85055,85060,85097,85130
+109 ;;85170,85175,85210,85220,85230,85240,85244,85245,85246,85247,85250,85260,85270,85280,85290,85291,85292
+110 ;;85293,85300,85301,85302,85303,85305,85306,85307,85335,85337,85345,85347,85348,85360,85362,85366,85370
+111 ;;85378,85379,85380,85384,85385,85390,85396,85397,85400,85410,85415,85420,85421,85441,85445,85460,85461
+112 ;;85475,85520,85525,85530,85536,85540,85547,85549,85555,85557,85576,85597,85598,85610,85611,85612,85613
+113 ;;85635,85651,85652,85660,85670,85675,85705,85730,85732,85810,85999,86000,86001,86003,86005,86008,86021
+114 ;;86022,86023,86038,86039,86060,86063,86077,86078,86079,86140,86141,86146,86147,86148,86152,86153,86155
+115 ;;86156,86157,86160,86161,86162,86171,86200,86215,86225,86226,86235,86255,86256,86277,86280,86294,86300
+116 ;;86301,86304,86305,86308,86309,86310,86316,86317,86318,86320,86325,86327,86329,86331,86332,86334,86335
+117 ;;86336,86337,86340,86341,86343,86344,86352,86353,86355,86356,86357,86359,86360,86361,86367,86376,86382
+118 ;;86384,86386,86403,86406,86430,86431,86480,86481,86485,86486,86490,86510,86580,86590,86592,86593,86602
+119 ;;86603,86606,86609,86611,86612,86615,86617,86618,86619,86622,86625,86628,86631,86632,86635,86638,86641
+120 ;;86644,86645,86648,86651,86652,86653,86654,86658,86663,86664,86665,86666,86668,86671,86674,86677,86682
+121 ;;86684,86687,86688,86689,86692,86694,86695,86696,86698,86701,86702,86703,86704,86705,86706,86707,86708
+122 ;;86709,86710,86711,86713,86717,86720,86723,86727,86732,86735,86738,86741,86744,86747,86750,86753,86756
+123 ;;86757,86759,86762,86765,86768,86771,86774,86777,86778,86780,86784,86787,86788,86789,86790,86793,86794
+124 ;;86800,86803,86804,86805,86806,86807,86808,86812,86813,86816,86817,86821,86825,86826,86828,86829,86830
+125 ;;86831,86832,86833,86834,86835,86849,86850,86860,86870,86880,86885,86886,86890,86891,86900,86901,86902
+126 ;;86904,86905,86906,86910,86911,86920,86921,86922,86923,86927,86930,86931,86932,86940,86941,86945,86950
+127 ;;86960,86965,86970,86971,86972,86975,86976,86977,86978,86985,86999,87003,87015,87040,87045,87046,87070
+128 ;;87071,87073,87075,87076,87077,87081,87084,87086,87088,87101,87102,87103,87106,87107,87109,87110,87116
+129 ;;87118,87140,87143,87147,87149,87150,87152,87153,87158,87164,87166,87168,87169,87172,87176,87177,87181
+130 ;;87184,87185,87186,87187,87188,87190,87197,87205,87206,87207,87209,87210,87220,87230,87250,87252,87253
+131 ;;87254,87255,87260,87265,87267,87269,87270,87271,87272,87273,87274,87275,87276,87278,87279,87280,87281
+132 ;;87283,87285,87290,87299,87300,87301,87305,87320,87324,87327,87328,87329,87332,87335,87336,87337,87338
+133 ;;87339,87340,87341,87350,87380,87385,87389,87390,87391,87400,87420,87425,87427,87430,87449,87450,87451
+134 ;;87471,87472,87475,87476,87480,87481,87482,87483,87485,87486,87487,87490,87491,87492,87493,87495,87496
+135 ;;87497,87498,87500,87501,87502,87503,87505,87506,87507,87510,87511,87512,87516,87517,87520,87521,87522
+136 ;;87525,87526,87527,87528,87529,87530,87531,87532,87533,87534,87535,87536,87537,87538,87539,87540,87541
+137 ;;87542,87550,87551,87552,87555,87556,87557,87560,87561,87562,87580,87581,87582,87590,87591,87592,87623