IBYPSP2 ;ALB/CXW-IB*2.0*427 POST INIT: UPDATE REVENUE CODE CPT LINKS ; 01/12/10
;;2.0;INTEGRATED BILLING;**427**;21-MAR-94;Build 7
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; continue to add Revenue Codes - CPT links
N IBI,IBJ,IBTX,IBLN
F IBI=1:1 S IBTX=$P($T(FRVL2+IBI),";;",2) Q:IBTX="" D
. F IBJ=1:1 S IBLN=$P(IBTX,",",IBJ) Q:IBLN="" D RVLA^IBYPSP1
Q
;
FRVL2 ; revenue code - CPT links
;;301^83570^,301^83582^,301^83586^,301^83593^,301^83605^,
;;301^83615^,301^83625^,301^83630^,301^83632^,301^83655^,
;;301^83670^,301^83690^83701,301^83718^83719,301^83721^,301^83727^,
;;301^83735^,301^83785^,301^83789^,301^83825^,301^83835^83840,
;;301^83857^,301^83866^83874,301^83876^83883,301^83887^83894,301^83896^83905,
;;301^83907^83909,301^83912^83916,301^83918^,301^83921^83937,301^83945^,
;;301^83970^,301^83986^,301^83992^,301^84022^,301^84035^,
;;301^84060^,301^84066^84081,301^84087^,301^84100^84110,301^84119^84120,
;;301^84126^,301^84132^84135,301^84140^,301^84143^84144,301^84146^,
;;301^84150^84166,301^84181^84182,301^84202^,301^84206^84207,301^84210^84220,
;;301^84235^,301^84238^84244,301^84252^84275,301^84295^84307,301^84311^84315,
;;301^84375^,301^84377^84392,301^84402^84403,301^84425^84430,301^84432^,
;;301^84436^,301^84439^84443,301^84445^84446,301^84449^84450,301^84460^,
;;301^84466^,301^84478^84482,301^84484^84485,301^84490^84550,301^84560^,
;;301^84578^84583,301^84585^84588,301^84590^,301^84597^84600,301^84620^84630,
;;301^84681^,301^84702^84704,301^84999^,302^83516^83520,302^86000^86001,
;;302^86003^,302^86005^,302^86021^86023,302^86038^86039,302^86060^86063,
;;302^86140^86148,302^86156^86157,302^86160^86162,302^86171^86200,302^86215^86226,
;;302^86235^,302^86255^86256,302^86277^86280,302^86294^,302^86300^86301,
;;302^86304^,302^86308^86310,302^86316^86318,302^86320^86325,302^86329^86332,
;;302^86334^86337,302^86340^86341,302^86343^86344,302^86353^86357,302^86359^86376,
;;302^86378^,302^86382^86384,302^86403^,302^86406^,302^86430^86431,
;;302^86480^86510,302^86580^,302^86590^86593,302^86602^86628,302^86631^86648,
;;302^86651^86658,302^86663^86677,302^86682^,302^86684^,302^86687^86720,
;;302^86727^,302^86732^86768,302^86774^86778,302^86784^86790,302^86800^86808,
;;302^86812^86822,302^86849^86850,302^86870^86886,302^86891^86905,302^86911^,
;;302^86920^86927,302^86932^86940,302^86945^86971,302^86975^,302^86977^,
;;302^86999^,305^85002^85004,305^85007^85009,305^85013^85018,305^85025^85027,
;;305^85032^85060,305^85097^,305^85130^,305^85210^85240,305^85244^85307,
;;305^85335^,305^85345^85362,305^85366^,305^85370^,305^85378^85390,
;;305^85396^,305^85410^85420,305^85460^,305^85475^85520,305^85536^,
;;305^85540^,305^85547^,305^85549^,305^85576^,305^85597^85613,
;;305^85635^,305^85651^85660,305^85670^,305^85705^,305^85730^85810,
;;305^85999^,305^86077^86078,305^S3630^,306^87003^87046,306^87070^87071,
;;306^87073^87081,306^87084^,306^87086^,306^87088^87116,306^87118^87143,
;;306^87147^87149,306^87158^,306^87164^,306^87168^87169,306^87176^87177,
;;306^87181^87190,306^87205^87207,306^87209^87210,306^87220^87265,306^87269^87300,
;;306^87305^87335,306^87337^87450,306^87470^,306^87476^,306^87480^87481,
;;306^87485^87486,306^87490^87492,306^87495^87497,306^87510^87511,306^87515^87540,
;;306^87551^87552,306^87556^87557,306^87561^,306^87582^87650,306^87653^87808,
;;306^87810^87904,306^87999^,306^P7001^,307^81000^81003,307^81005^81007,
;;307^81015^,307^81025^,307^81050^81099,309^99001^99002,309^G0027^,
;;309^H0003^,309^P9604^,309^P9612^,310^80500^80502,310^88230^88248,
;;310^88261^88262,310^88264^,310^88267^,310^88271^,310^88273^88280,
;;310^88289^88314,310^88318^88349,310^88356^88361,310^88365^88368,310^88381^,
;;310^89049^,311^88005^,311^88020^,311^88027^,311^88040^,
;;311^88104^88125,311^88140^88143,311^88147^88150,311^88152^88153,311^88155^,
;;311^88160^88165,311^88167^,311^88172^88175,311^88182^88199,311^G0124^,
;;311^G0147^,311^P3000^,312^88399^,320^70010^,320^70015^,
;;320^70030^,320^70100^70130,320^70140^70160,320^70190^70220,320^70240^70300,
;;320^70320^70332,320^70350^70371,320^71040^,320^71060^,320^71090^71130,
;;320^72010^72120,320^72170^,320^72190^,320^72200^72240,320^72255^,
;;320^72265^,320^72270^,320^72275^72285,320^72291^,320^72295^,
;;320^73000^73030,320^73050^73080,320^73090^,320^73100^73110,320^73120^73140,
;;320^73500^73520,320^73530^,320^73540^73565,320^73590^,320^73600^73610,
;;320^73620^73660,320^74000^74022,320^74190^74251,320^74270^74280,320^74300^,
;;320^74305^,320^74320^,320^74327^74340,320^74355^,320^74360^,
;;320^74363^74400,320^74410^74425,320^74430^,320^74450^,320^74455^,
;;320^74475^,320^74480^,320^74485^,320^74740^,320^74742^,
;;320^75801^,320^75809^75810,320^75820^,320^75822^,320^75825^,
;;320^75827^,320^75831^,320^75833^,320^75840^,320^75842^,
;;320^75860^,320^75870^,320^75885^,320^75889^,320^75893^75894,
;;320^75896^,320^75898^75900,320^75902^75940,320^75952^75954,320^75956^75962,
;;320^75964^,320^75966^,320^75968^,320^75970^,320^75978^,
;;320^75980^,320^75982^,320^75984^,320^75989^,320^75992^75994,
;;320^76000^76001,320^76080^,320^76098^76100,320^76102^76125,320^76140^,
;;320^76350^,320^76496^,320^76499^,320^77001^77003,320^77031^,
;;320^77053^,320^77071^77075,320^77077^,320^77080^77083,320^Q0092^,
;;321^75756^,321^75774^,323^75600^,323^75605^,323^75625^,
;;323^75630^,323^75650^,323^75658^,323^75660^,323^75662^,
;;323^75665^,323^75671^,323^75676^,323^75680^,323^75685^,
;;323^75705^,323^75710^,323^75716^,323^75722^,323^75724^,
;;323^75726^,323^75731^,323^75736^,323^75741^,323^75743^,
;;323^75746^,324^71010^71035,329^R0070^,331^96401^96406,331^96409^,
;;331^96411^,331^96420^,331^96440^96450,331^96542^,331^96549^,
;;331^Q0083^,333^77280^77336,333^77370^77373,333^77399^,333^77401^77404,
;;333^77406^77409,333^77411^77414,333^77416^77418,333^77421^,333^77427^,
;;333^77431^77435,333^77470^77520,333^77750^77761,333^77763^77778,333^77786^,
;;333^77789^,333^77799^,333^0073T^,333^G0340^,335^95990^95991,
;;335^96413^,335^96415^96417,335^96422^96425,335^96521^96523,335^Q0084^Q0085,
;;340^78999^,341^78000^78015,341^78018^78075,341^78102^78104,341^78120^78122,
;;341^78140^,341^78195^78223,341^78230^78258,341^78262^78268,341^78278^,
;;341^78290^78306,341^78315^78351,341^78414^,341^78428^,341^78445^,
;;341^78456^,341^78458^78459,341^78466^,341^78468^78469,341^78472^78473,
;;341^78481^78483,341^78491^78580,341^78584^78588,341^78593^78607,341^78610^,
;;341^78630^,341^78645^,341^78650^,341^78660^,341^78700^78701,
;;341^78707^78710,341^78725^,341^78730^78740,341^78761^78807,341^A9699^,
;;342^78808^,342^79005^,342^79101^79200,342^79403^,342^79445^,
;;342^79999^,343^A9500^,343^C9246^,350^76376^76380,350^76497^,
;;350^77078^77079,351^70450^70488,351^70496^70498,352^70490^70492,352^71250^71275,
;;352^72125^72133,352^72191^72194,352^72292^,352^73040^,352^73085^,
;;352^73115^,352^73200^73206,352^73525^,352^73580^,352^73615^,
;;352^73700^73706,352^74150^74175,352^75635^,352^77011^77014,360^10021^10081,
;;360^10120^10140,360^10160^11044,360^11055^11057,360^11100^11462,360^11470^,
;;360^11600^11646,360^11719^11730,360^11732^11760,360^11765^12015,360^12020^12046,
;;360^12051^13160,360^14000^14061,360^14350^,360^15002^15341,360^15360^15401,
;;360^15420^15431,360^15570^15576,360^15600^15620,360^15630^15650,360^15731^15740,
;;360^15750^,360^15756^15789,360^15792^15793,360^15819^15830,360^15832^15860,
;;360^15876^15877,360^15879^15953,360^15956^15958,360^15999^16000,360^16020^16036,
;;360^17000^,360^17003^17004,360^17106^17111,360^17250^17286,360^17311^19126,
;;360^19260^19318,360^19325^19357,360^19361^,360^19364^20005,360^20100^20690,
;;360^20692^20802,360^20805^,360^20808^,360^20816^,360^20822^,
;;360^20824^,360^20827^,360^20838^,360^20900^20931,360^20938^20957,
;;360^20962^20970,360^20972^20975,360^20979^20985,360^20999^,360^21015^,
;;360^21025^21040,360^21044^21050,360^21060^,360^21070^,360^21073^21080,
;;360^21082^,360^21085^21143,360^21145^21199,360^21206^,360^21208^21235,
;;360^21240^21249,360^21255^21296,360^21310^21390,360^21400^21454,360^21461^21490,
;;360^21495^21510,360^21550^,360^21555^21557,360^21600^21632,360^21685^21740,
;;360^21742^21930,360^21935^,360^22010^,360^22015^,360^22100^22103,
;;360^22110^,360^22112^,360^22116^,360^22206^22226,360^22305^22328,
;;360^22505^22548,360^22554^,360^22556^22558,360^22585^22600,360^22610^22614,
;;360^22630^22632,360^22800^,360^22802^,360^22804^22819,360^22830^22900,
;;360^22999^23035,360^23040^,360^23044^23066,360^23075^23077,360^23100^23107,
;;360^23120^23170,360^23172^,360^23174^,360^23180^,360^23182^,
;;360^23184^,360^23190^23220,360^23330^23350,360^23395^23505,360^23515^23575,
;;360^23585^23605,360^23615^23655,360^23660^23935,360^24000^,360^24006^24066,
;;360^24075^24077,360^24100^24134,360^24136^,360^24138^,360^24140^,
;;360^24145^,360^24147^,360^24149^24150,360^24152^,360^24155^24346,
;;360^24357^24505,360^24515^24530,360^24535^,360^24538^,360^24545^24566,
;;360^24575^24577,360^24579^,360^24582^,360^24586^24587,360^24600^24605,
;;360^24615^24620,360^24635^24655,360^24665^24675,360^24685^,360^24800^25001,
;;360^25020^25035,360^25040^,360^25065^25066,360^25075^25077,360^25085^25145,
;;360^25150^25151,360^25170^25316,360^25320^,360^25332^25350,360^25360^25365,
;;360^25390^,360^25400^25405,360^25425^,360^25440^,360^25445^25447,
;;360^25515^,360^25525^25526,360^25545^,360^25575^25609,360^25624^,
;;360^25628^,360^25645^,360^25651^25652,360^25670^,360^25676^,
;;360^25685^,360^25800^25810,360^25820^25830,360^26010^26025,360^26034^,
;;360^26040^26055,360^26070^,360^26080^,360^26105^26110,360^26115^26117,
;;360^26121^,360^26123^,360^26125^,360^26130^26160,360^26200^,
;;360^26210^26215,360^26230^,360^26236^,360^26260^,360^26320^,
;;360^26350^26356,360^26370^26372,360^26390^,360^26410^,360^26418^,
;;360^26426^,360^26433^,360^26440^26449,360^26455^,360^26471^,
;;360^26480^26485,360^26492^,360^26496^26498,360^26500^26502,360^26510^26516,
;;360^26520^26525,360^26530^26548,360^26561^,360^26565^,360^26593^,
;;360^26607^26608,360^26615^,360^26665^,360^26735^,360^26746^,
;;360^26756^,360^26765^,360^26775^26776,360^26785^,360^26841^26842,
;;360^26844^26862,360^26910^26952,360^26990^,360^26992^,360^27000^,
;;360^27005^,360^27033^,360^27047^27048,360^27062^,360^27071^,
;;360^27087^,360^27090^27091,360^27122^27125,360^27130^,360^27132^27134,
;;360^27137^27146,360^27170^,360^27185^27187,360^27226^,360^27235^27236,
;;360^27244^27245,360^27248^,360^27252^,360^27257^,360^27266^,
;;360^27269^,360^27286^,360^27295^,360^27301^27303,360^27305^27306,
;;360^27310^,360^27327^27329,360^27331^27332,360^27334^,360^27340^27355,
;;360^27360^,360^27365^,360^27380^27385,360^27400^,360^27405^27407,
;;360^27409^,360^27416^27418,360^27425^27430,360^27437^27440,360^27442^,
;;360^27445^27447,360^27457^,360^27470^27472,360^27486^27488,360^27506^27507,
;;360^27509^,360^27511^,360^27524^,360^27535^27536,360^27540^,
;;360^27570^27590,360^27592^27598,360^27600^27602,360^27606^,360^27610^,
;;360^27612^,360^27615^,360^27618^27625,360^27630^,360^27635^27637,
;;360^27640^,360^27646^,360^27650^27654,360^27658^27664,360^27675^,
;;360^27680^27687,360^27691^27700,360^27703^27709,360^27720^,360^27724^,
;;360^27726^,360^27752^,360^27758^27759,360^27766^,360^27784^,
;;360^27792^,360^27814^,360^27822^27823,360^27827^27829,360^27842^,
;;360^27860^27889,360^27894^28003,360^28005^,360^28008^28024,360^28035^,
;;360^28043^28046,360^28054^28062,360^28072^28080,360^28090^28100,360^28104^28108,
;;360^28110^28120,360^28122^,360^28124^28126,360^28140^28160,360^28173^,
;;360^28192^28200,360^28208^,360^28220^,360^28230^28234,360^28238^28250,
;;360^28261^,360^28270^28293,360^28296^28302,360^28305^28306,360^28308^28315,
;;360^28322^,360^28345^,360^28415^28420,360^28446^,360^28456^,
;;360^28485^,360^28496^,360^28505^,360^28615^,360^28635^,
;;360^28645^,360^28705^28735,360^28740^28755,360^28800^28825,360^28899^,
;;360^29799^,360^29804^29807,360^29819^29828,360^29834^,360^29837^,
;;360^29840^,360^29844^29846,360^29848^,360^29855^,360^29860^,
;;360^29862^29866,360^29870^29871,360^29873^29884,360^29886^29889,360^29891^29892,
;;360^29894^29895,360^29897^29898,360^29999^,360^30115^,360^30117^30124,
;;360^30130^30160,360^30410^30450,360^30462^30465,360^30915^30999,360^31030^,
;;360^31032^,360^31070^,360^31075^,360^31090^,360^31205^31230,
;;360^31293^,360^31300^,360^31360^31368,360^31382^31390,360^31570^31571,
;;360^31588^,360^31599^,360^31610^31611,360^31613^31614,360^31646^,
;;360^31720^,360^31730^,360^31760^31766,360^31820^,360^31830^,
;;360^32095^32124,360^32141^,360^32160^,360^32201^32225,360^32320^32440,
;;360^32480^32484,360^32486^,360^32500^,360^32503^,360^32550^32551,
;;360^32560^,360^32601^32602,360^32604^,360^32606^32652,360^32654^32657,
;;360^32659^,360^32662^32664,360^32820^32851,360^32855^,360^32900^,
;;360^32940^,360^32998^33010,360^33020^33031,360^33050^,360^33120^,
;;360^33140^33141,360^33202^33217,360^33220^33226,360^33233^33235,360^33240^33241,
;;360^33243^33244,360^33249^,360^33251^,360^33256^33259,360^33265^,
;;360^33282^33284,360^33305^,360^33320^,360^33400^,360^33405^33406,
;;360^33410^,360^33416^33417,360^33425^33430,360^33464^33465,360^33501^,
;;360^33508^33512,360^33514^,360^33517^33519,360^33521^33522,360^33530^33536,
;;360^33572^,360^33615^,360^33641^,360^33720^,360^33724^,
;;360^33860^33864,360^33870^,360^33877^33884,360^33910^,360^33960^,
;;360^33967^33971,360^33976^,360^33979^,360^33999^,360^34101^34203,
;;360^34502^,360^34800^34826,360^34831^,360^34833^,360^34900^35001,
;;360^35013^,360^35081^35091,360^35102^35111,360^35121^35131,360^35141^35151,
;;360^35188^,360^35190^35226,360^35246^,360^35261^,360^35276^,
;;360^35286^35306,360^35321^35351,360^35361^,360^35371^35372,360^35390^35400,
;;360^35452^35476,360^35482^35483,360^35490^35500,360^35506^,360^35522^,
;;360^35533^,360^35540^,360^35556^35558,360^35565^35566,360^35571^35572,
;;360^35583^35585,360^35600^35606,360^35621^,360^35638^,360^35646^35647,
;;360^35654^35661,360^35665^35682,360^35685^35686,360^35694^,360^35700^,
;;360^35721^35860,360^35875^35879,360^35881^35883,360^35903^,360^35907^,
;;360^36000^,360^36002^36100,360^36120^36140,360^36200^,360^36215^36218,
;;360^36245^36248,360^36400^,360^36406^36410,360^36420^,360^36468^36478,
;;360^36481^,360^36500^,360^36511^36514,360^36522^,360^36555^36558,
;;360^36561^36660,360^36800^36821,360^36823^36833,360^36838^,360^36860^36870,
;;360^37182^37188,360^37195^37251,360^37565^37600,360^37607^37609,360^37617^37650,
;;360^37700^,360^37718^,360^37722^,360^37760^,360^37765^37780,
;;360^37785^,360^37799^,360^38100^,360^38102^38120,360^38220^38221,
;;
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBYPSP2 14967 printed Apr 09, 2024@21:10:42 Page 2
IBYPSP2 ;ALB/CXW-IB*2.0*427 POST INIT: UPDATE REVENUE CODE CPT LINKS ; 01/12/10
+1 ;;2.0;INTEGRATED BILLING;**427**;21-MAR-94;Build 7
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; continue to add Revenue Codes - CPT links
+5 NEW IBI,IBJ,IBTX,IBLN
+6 FOR IBI=1:1
SET IBTX=$PIECE($TEXT(FRVL2+IBI),";;",2)
if IBTX=""
QUIT
Begin DoDot:1
+7 FOR IBJ=1:1
SET IBLN=$PIECE(IBTX,",",IBJ)
if IBLN=""
QUIT
DO RVLA^IBYPSP1
End DoDot:1
+8 QUIT
+9 ;
FRVL2 ; revenue code - CPT links
+1 ;;301^83570^,301^83582^,301^83586^,301^83593^,301^83605^,
+2 ;;301^83615^,301^83625^,301^83630^,301^83632^,301^83655^,
+3 ;;301^83670^,301^83690^83701,301^83718^83719,301^83721^,301^83727^,
+4 ;;301^83735^,301^83785^,301^83789^,301^83825^,301^83835^83840,
+5 ;;301^83857^,301^83866^83874,301^83876^83883,301^83887^83894,301^83896^83905,
+6 ;;301^83907^83909,301^83912^83916,301^83918^,301^83921^83937,301^83945^,
+7 ;;301^83970^,301^83986^,301^83992^,301^84022^,301^84035^,
+8 ;;301^84060^,301^84066^84081,301^84087^,301^84100^84110,301^84119^84120,
+9 ;;301^84126^,301^84132^84135,301^84140^,301^84143^84144,301^84146^,
+10 ;;301^84150^84166,301^84181^84182,301^84202^,301^84206^84207,301^84210^84220,
+11 ;;301^84235^,301^84238^84244,301^84252^84275,301^84295^84307,301^84311^84315,
+12 ;;301^84375^,301^84377^84392,301^84402^84403,301^84425^84430,301^84432^,
+13 ;;301^84436^,301^84439^84443,301^84445^84446,301^84449^84450,301^84460^,
+14 ;;301^84466^,301^84478^84482,301^84484^84485,301^84490^84550,301^84560^,
+15 ;;301^84578^84583,301^84585^84588,301^84590^,301^84597^84600,301^84620^84630,
+16 ;;301^84681^,301^84702^84704,301^84999^,302^83516^83520,302^86000^86001,
+17 ;;302^86003^,302^86005^,302^86021^86023,302^86038^86039,302^86060^86063,
+18 ;;302^86140^86148,302^86156^86157,302^86160^86162,302^86171^86200,302^86215^86226,
+19 ;;302^86235^,302^86255^86256,302^86277^86280,302^86294^,302^86300^86301,
+20 ;;302^86304^,302^86308^86310,302^86316^86318,302^86320^86325,302^86329^86332,
+21 ;;302^86334^86337,302^86340^86341,302^86343^86344,302^86353^86357,302^86359^86376,
+22 ;;302^86378^,302^86382^86384,302^86403^,302^86406^,302^86430^86431,
+23 ;;302^86480^86510,302^86580^,302^86590^86593,302^86602^86628,302^86631^86648,
+24 ;;302^86651^86658,302^86663^86677,302^86682^,302^86684^,302^86687^86720,
+25 ;;302^86727^,302^86732^86768,302^86774^86778,302^86784^86790,302^86800^86808,
+26 ;;302^86812^86822,302^86849^86850,302^86870^86886,302^86891^86905,302^86911^,
+27 ;;302^86920^86927,302^86932^86940,302^86945^86971,302^86975^,302^86977^,
+28 ;;302^86999^,305^85002^85004,305^85007^85009,305^85013^85018,305^85025^85027,
+29 ;;305^85032^85060,305^85097^,305^85130^,305^85210^85240,305^85244^85307,
+30 ;;305^85335^,305^85345^85362,305^85366^,305^85370^,305^85378^85390,
+31 ;;305^85396^,305^85410^85420,305^85460^,305^85475^85520,305^85536^,
+32 ;;305^85540^,305^85547^,305^85549^,305^85576^,305^85597^85613,
+33 ;;305^85635^,305^85651^85660,305^85670^,305^85705^,305^85730^85810,
+34 ;;305^85999^,305^86077^86078,305^S3630^,306^87003^87046,306^87070^87071,
+35 ;;306^87073^87081,306^87084^,306^87086^,306^87088^87116,306^87118^87143,
+36 ;;306^87147^87149,306^87158^,306^87164^,306^87168^87169,306^87176^87177,
+37 ;;306^87181^87190,306^87205^87207,306^87209^87210,306^87220^87265,306^87269^87300,
+38 ;;306^87305^87335,306^87337^87450,306^87470^,306^87476^,306^87480^87481,
+39 ;;306^87485^87486,306^87490^87492,306^87495^87497,306^87510^87511,306^87515^87540,
+40 ;;306^87551^87552,306^87556^87557,306^87561^,306^87582^87650,306^87653^87808,
+41 ;;306^87810^87904,306^87999^,306^P7001^,307^81000^81003,307^81005^81007,
+42 ;;307^81015^,307^81025^,307^81050^81099,309^99001^99002,309^G0027^,
+43 ;;309^H0003^,309^P9604^,309^P9612^,310^80500^80502,310^88230^88248,
+44 ;;310^88261^88262,310^88264^,310^88267^,310^88271^,310^88273^88280,
+45 ;;310^88289^88314,310^88318^88349,310^88356^88361,310^88365^88368,310^88381^,
+46 ;;310^89049^,311^88005^,311^88020^,311^88027^,311^88040^,
+47 ;;311^88104^88125,311^88140^88143,311^88147^88150,311^88152^88153,311^88155^,
+48 ;;311^88160^88165,311^88167^,311^88172^88175,311^88182^88199,311^G0124^,
+49 ;;311^G0147^,311^P3000^,312^88399^,320^70010^,320^70015^,
+50 ;;320^70030^,320^70100^70130,320^70140^70160,320^70190^70220,320^70240^70300,
+51 ;;320^70320^70332,320^70350^70371,320^71040^,320^71060^,320^71090^71130,
+52 ;;320^72010^72120,320^72170^,320^72190^,320^72200^72240,320^72255^,
+53 ;;320^72265^,320^72270^,320^72275^72285,320^72291^,320^72295^,
+54 ;;320^73000^73030,320^73050^73080,320^73090^,320^73100^73110,320^73120^73140,
+55 ;;320^73500^73520,320^73530^,320^73540^73565,320^73590^,320^73600^73610,
+56 ;;320^73620^73660,320^74000^74022,320^74190^74251,320^74270^74280,320^74300^,
+57 ;;320^74305^,320^74320^,320^74327^74340,320^74355^,320^74360^,
+58 ;;320^74363^74400,320^74410^74425,320^74430^,320^74450^,320^74455^,
+59 ;;320^74475^,320^74480^,320^74485^,320^74740^,320^74742^,
+60 ;;320^75801^,320^75809^75810,320^75820^,320^75822^,320^75825^,
+61 ;;320^75827^,320^75831^,320^75833^,320^75840^,320^75842^,
+62 ;;320^75860^,320^75870^,320^75885^,320^75889^,320^75893^75894,
+63 ;;320^75896^,320^75898^75900,320^75902^75940,320^75952^75954,320^75956^75962,
+64 ;;320^75964^,320^75966^,320^75968^,320^75970^,320^75978^,
+65 ;;320^75980^,320^75982^,320^75984^,320^75989^,320^75992^75994,
+66 ;;320^76000^76001,320^76080^,320^76098^76100,320^76102^76125,320^76140^,
+67 ;;320^76350^,320^76496^,320^76499^,320^77001^77003,320^77031^,
+68 ;;320^77053^,320^77071^77075,320^77077^,320^77080^77083,320^Q0092^,
+69 ;;321^75756^,321^75774^,323^75600^,323^75605^,323^75625^,
+70 ;;323^75630^,323^75650^,323^75658^,323^75660^,323^75662^,
+71 ;;323^75665^,323^75671^,323^75676^,323^75680^,323^75685^,
+72 ;;323^75705^,323^75710^,323^75716^,323^75722^,323^75724^,
+73 ;;323^75726^,323^75731^,323^75736^,323^75741^,323^75743^,
+74 ;;323^75746^,324^71010^71035,329^R0070^,331^96401^96406,331^96409^,
+75 ;;331^96411^,331^96420^,331^96440^96450,331^96542^,331^96549^,
+76 ;;331^Q0083^,333^77280^77336,333^77370^77373,333^77399^,333^77401^77404,
+77 ;;333^77406^77409,333^77411^77414,333^77416^77418,333^77421^,333^77427^,
+78 ;;333^77431^77435,333^77470^77520,333^77750^77761,333^77763^77778,333^77786^,
+79 ;;333^77789^,333^77799^,333^0073T^,333^G0340^,335^95990^95991,
+80 ;;335^96413^,335^96415^96417,335^96422^96425,335^96521^96523,335^Q0084^Q0085,
+81 ;;340^78999^,341^78000^78015,341^78018^78075,341^78102^78104,341^78120^78122,
+82 ;;341^78140^,341^78195^78223,341^78230^78258,341^78262^78268,341^78278^,
+83 ;;341^78290^78306,341^78315^78351,341^78414^,341^78428^,341^78445^,
+84 ;;341^78456^,341^78458^78459,341^78466^,341^78468^78469,341^78472^78473,
+85 ;;341^78481^78483,341^78491^78580,341^78584^78588,341^78593^78607,341^78610^,
+86 ;;341^78630^,341^78645^,341^78650^,341^78660^,341^78700^78701,
+87 ;;341^78707^78710,341^78725^,341^78730^78740,341^78761^78807,341^A9699^,
+88 ;;342^78808^,342^79005^,342^79101^79200,342^79403^,342^79445^,
+89 ;;342^79999^,343^A9500^,343^C9246^,350^76376^76380,350^76497^,
+90 ;;350^77078^77079,351^70450^70488,351^70496^70498,352^70490^70492,352^71250^71275,
+91 ;;352^72125^72133,352^72191^72194,352^72292^,352^73040^,352^73085^,
+92 ;;352^73115^,352^73200^73206,352^73525^,352^73580^,352^73615^,
+93 ;;352^73700^73706,352^74150^74175,352^75635^,352^77011^77014,360^10021^10081,
+94 ;;360^10120^10140,360^10160^11044,360^11055^11057,360^11100^11462,360^11470^,
+95 ;;360^11600^11646,360^11719^11730,360^11732^11760,360^11765^12015,360^12020^12046,
+96 ;;360^12051^13160,360^14000^14061,360^14350^,360^15002^15341,360^15360^15401,
+97 ;;360^15420^15431,360^15570^15576,360^15600^15620,360^15630^15650,360^15731^15740,
+98 ;;360^15750^,360^15756^15789,360^15792^15793,360^15819^15830,360^15832^15860,
+99 ;;360^15876^15877,360^15879^15953,360^15956^15958,360^15999^16000,360^16020^16036,
+100 ;;360^17000^,360^17003^17004,360^17106^17111,360^17250^17286,360^17311^19126,
+101 ;;360^19260^19318,360^19325^19357,360^19361^,360^19364^20005,360^20100^20690,
+102 ;;360^20692^20802,360^20805^,360^20808^,360^20816^,360^20822^,
+103 ;;360^20824^,360^20827^,360^20838^,360^20900^20931,360^20938^20957,
+104 ;;360^20962^20970,360^20972^20975,360^20979^20985,360^20999^,360^21015^,
+105 ;;360^21025^21040,360^21044^21050,360^21060^,360^21070^,360^21073^21080,
+106 ;;360^21082^,360^21085^21143,360^21145^21199,360^21206^,360^21208^21235,
+107 ;;360^21240^21249,360^21255^21296,360^21310^21390,360^21400^21454,360^21461^21490,
+108 ;;360^21495^21510,360^21550^,360^21555^21557,360^21600^21632,360^21685^21740,
+109 ;;360^21742^21930,360^21935^,360^22010^,360^22015^,360^22100^22103,
+110 ;;360^22110^,360^22112^,360^22116^,360^22206^22226,360^22305^22328,
+111 ;;360^22505^22548,360^22554^,360^22556^22558,360^22585^22600,360^22610^22614,
+112 ;;360^22630^22632,360^22800^,360^22802^,360^22804^22819,360^22830^22900,
+113 ;;360^22999^23035,360^23040^,360^23044^23066,360^23075^23077,360^23100^23107,
+114 ;;360^23120^23170,360^23172^,360^23174^,360^23180^,360^23182^,
+115 ;;360^23184^,360^23190^23220,360^23330^23350,360^23395^23505,360^23515^23575,
+116 ;;360^23585^23605,360^23615^23655,360^23660^23935,360^24000^,360^24006^24066,
+117 ;;360^24075^24077,360^24100^24134,360^24136^,360^24138^,360^24140^,
+118 ;;360^24145^,360^24147^,360^24149^24150,360^24152^,360^24155^24346,
+119 ;;360^24357^24505,360^24515^24530,360^24535^,360^24538^,360^24545^24566,
+120 ;;360^24575^24577,360^24579^,360^24582^,360^24586^24587,360^24600^24605,
+121 ;;360^24615^24620,360^24635^24655,360^24665^24675,360^24685^,360^24800^25001,
+122 ;;360^25020^25035,360^25040^,360^25065^25066,360^25075^25077,360^25085^25145,
+123 ;;360^25150^25151,360^25170^25316,360^25320^,360^25332^25350,360^25360^25365,
+124 ;;360^25390^,360^25400^25405,360^25425^,360^25440^,360^25445^25447,
+125 ;;360^25515^,360^25525^25526,360^25545^,360^25575^25609,360^25624^,
+126 ;;360^25628^,360^25645^,360^25651^25652,360^25670^,360^25676^,
+127 ;;360^25685^,360^25800^25810,360^25820^25830,360^26010^26025,360^26034^,
+128 ;;360^26040^26055,360^26070^,360^26080^,360^26105^26110,360^26115^26117,
+129 ;;360^26121^,360^26123^,360^26125^,360^26130^26160,360^26200^,
+130 ;;360^26210^26215,360^26230^,360^26236^,360^26260^,360^26320^,
+131 ;;360^26350^26356,360^26370^26372,360^26390^,360^26410^,360^26418^,
+132 ;;360^26426^,360^26433^,360^26440^26449,360^26455^,360^26471^,
+133 ;;360^26480^26485,360^26492^,360^26496^26498,360^26500^26502,360^26510^26516,
+134 ;;360^26520^26525,360^26530^26548,360^26561^,360^26565^,360^26593^,
+135 ;;360^26607^26608,360^26615^,360^26665^,360^26735^,360^26746^,
+136 ;;360^26756^,360^26765^,360^26775^26776,360^26785^,360^26841^26842,
+137 ;;360^26844^26862,360^26910^26952,360^26990^,360^26992^,360^27000^,
+138 ;;360^27005^,360^27033^,360^27047^27048,360^27062^,360^27071^,
+139 ;;360^27087^,360^27090^27091,360^27122^27125,360^27130^,360^27132^27134,
+140 ;;360^27137^27146,360^27170^,360^27185^27187,360^27226^,360^27235^27236,
+141 ;;360^27244^27245,360^27248^,360^27252^,360^27257^,360^27266^,
+142 ;;360^27269^,360^27286^,360^27295^,360^27301^27303,360^27305^27306,
+143 ;;360^27310^,360^27327^27329,360^27331^27332,360^27334^,360^27340^27355,
+144 ;;360^27360^,360^27365^,360^27380^27385,360^27400^,360^27405^27407,
+145 ;;360^27409^,360^27416^27418,360^27425^27430,360^27437^27440,360^27442^,
+146 ;;360^27445^27447,360^27457^,360^27470^27472,360^27486^27488,360^27506^27507,
+147 ;;360^27509^,360^27511^,360^27524^,360^27535^27536,360^27540^,
+148 ;;360^27570^27590,360^27592^27598,360^27600^27602,360^27606^,360^27610^,
+149 ;;360^27612^,360^27615^,360^27618^27625,360^27630^,360^27635^27637,
+150 ;;360^27640^,360^27646^,360^27650^27654,360^27658^27664,360^27675^,
+151 ;;360^27680^27687,360^27691^27700,360^27703^27709,360^27720^,360^27724^,
+152 ;;360^27726^,360^27752^,360^27758^27759,360^27766^,360^27784^,
+153 ;;360^27792^,360^27814^,360^27822^27823,360^27827^27829,360^27842^,
+154 ;;360^27860^27889,360^27894^28003,360^28005^,360^28008^28024,360^28035^,
+155 ;;360^28043^28046,360^28054^28062,360^28072^28080,360^28090^28100,360^28104^28108,
+156 ;;360^28110^28120,360^28122^,360^28124^28126,360^28140^28160,360^28173^,
+157 ;;360^28192^28200,360^28208^,360^28220^,360^28230^28234,360^28238^28250,
+158 ;;360^28261^,360^28270^28293,360^28296^28302,360^28305^28306,360^28308^28315,
+159 ;;360^28322^,360^28345^,360^28415^28420,360^28446^,360^28456^,
+160 ;;360^28485^,360^28496^,360^28505^,360^28615^,360^28635^,
+161 ;;360^28645^,360^28705^28735,360^28740^28755,360^28800^28825,360^28899^,
+162 ;;360^29799^,360^29804^29807,360^29819^29828,360^29834^,360^29837^,
+163 ;;360^29840^,360^29844^29846,360^29848^,360^29855^,360^29860^,
+164 ;;360^29862^29866,360^29870^29871,360^29873^29884,360^29886^29889,360^29891^29892,
+165 ;;360^29894^29895,360^29897^29898,360^29999^,360^30115^,360^30117^30124,
+166 ;;360^30130^30160,360^30410^30450,360^30462^30465,360^30915^30999,360^31030^,
+167 ;;360^31032^,360^31070^,360^31075^,360^31090^,360^31205^31230,
+168 ;;360^31293^,360^31300^,360^31360^31368,360^31382^31390,360^31570^31571,
+169 ;;360^31588^,360^31599^,360^31610^31611,360^31613^31614,360^31646^,
+170 ;;360^31720^,360^31730^,360^31760^31766,360^31820^,360^31830^,
+171 ;;360^32095^32124,360^32141^,360^32160^,360^32201^32225,360^32320^32440,
+172 ;;360^32480^32484,360^32486^,360^32500^,360^32503^,360^32550^32551,
+173 ;;360^32560^,360^32601^32602,360^32604^,360^32606^32652,360^32654^32657,
+174 ;;360^32659^,360^32662^32664,360^32820^32851,360^32855^,360^32900^,
+175 ;;360^32940^,360^32998^33010,360^33020^33031,360^33050^,360^33120^,
+176 ;;360^33140^33141,360^33202^33217,360^33220^33226,360^33233^33235,360^33240^33241,
+177 ;;360^33243^33244,360^33249^,360^33251^,360^33256^33259,360^33265^,
+178 ;;360^33282^33284,360^33305^,360^33320^,360^33400^,360^33405^33406,
+179 ;;360^33410^,360^33416^33417,360^33425^33430,360^33464^33465,360^33501^,
+180 ;;360^33508^33512,360^33514^,360^33517^33519,360^33521^33522,360^33530^33536,
+181 ;;360^33572^,360^33615^,360^33641^,360^33720^,360^33724^,
+182 ;;360^33860^33864,360^33870^,360^33877^33884,360^33910^,360^33960^,
+183 ;;360^33967^33971,360^33976^,360^33979^,360^33999^,360^34101^34203,
+184 ;;360^34502^,360^34800^34826,360^34831^,360^34833^,360^34900^35001,
+185 ;;360^35013^,360^35081^35091,360^35102^35111,360^35121^35131,360^35141^35151,
+186 ;;360^35188^,360^35190^35226,360^35246^,360^35261^,360^35276^,
+187 ;;360^35286^35306,360^35321^35351,360^35361^,360^35371^35372,360^35390^35400,
+188 ;;360^35452^35476,360^35482^35483,360^35490^35500,360^35506^,360^35522^,
+189 ;;360^35533^,360^35540^,360^35556^35558,360^35565^35566,360^35571^35572,
+190 ;;360^35583^35585,360^35600^35606,360^35621^,360^35638^,360^35646^35647,
+191 ;;360^35654^35661,360^35665^35682,360^35685^35686,360^35694^,360^35700^,
+192 ;;360^35721^35860,360^35875^35879,360^35881^35883,360^35903^,360^35907^,
+193 ;;360^36000^,360^36002^36100,360^36120^36140,360^36200^,360^36215^36218,
+194 ;;360^36245^36248,360^36400^,360^36406^36410,360^36420^,360^36468^36478,
+195 ;;360^36481^,360^36500^,360^36511^36514,360^36522^,360^36555^36558,
+196 ;;360^36561^36660,360^36800^36821,360^36823^36833,360^36838^,360^36860^36870,
+197 ;;360^37182^37188,360^37195^37251,360^37565^37600,360^37607^37609,360^37617^37650,
+198 ;;360^37700^,360^37718^,360^37722^,360^37760^,360^37765^37780,
+199 ;;360^37785^,360^37799^,360^38100^,360^38102^38120,360^38220^38221,
+200 ;;
+201 ;
+202 QUIT
