IBYPSP3 ;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(FRVL3+IBI),";;",2) Q:IBTX="" D
. F IBJ=1:1 S IBLN=$P(IBTX,",",IBJ) Q:IBLN="" D RVLA^IBYPSP1
Q
;
FRVL3 ; revenue code - CPT links
;;360^38300^38308,360^38381^,360^38500^38525,360^38542^38550,360^38562^38571,
;;360^38589^38700,360^38720^,360^38724^38760,360^38765^,360^38770^,
;;360^38780^38790,360^38792^,360^38999^39010,360^39200^39400,360^39501^39502,
;;360^39520^,360^39540^,360^40490^40510,360^40525^,360^40530^40654,
;;360^40799^40800,360^40805^40831,360^41008^41010,360^41016^,360^41100^41135,
;;360^41153^41252,360^41512^,360^41530^41800,360^41820^,360^41822^41827,
;;360^41830^,360^41870^41899,360^42100^42106,360^42120^42145,360^42160^,
;;360^42281^42299,360^42330^42408,360^42410^42500,360^42550^,360^42650^42660,
;;360^42699^42700,360^42800^42808,360^42810^42831,360^42845^42870,360^42894^42900,
;;360^42960^,360^42970^,360^42999^,360^43030^,360^43100^,
;;360^43107^,360^43112^,360^43117^,360^43130^,360^43320^,
;;360^43324^43331,360^43400^,360^43460^,360^43500^43501,360^43605^43622,
;;360^43632^43633,360^43635^,360^43640^,360^43644^43645,360^43770^,
;;360^43800^,360^43820^43825,360^43832^,360^43840^,360^43843^,
;;360^43845^,360^43850^43860,360^43887^,360^43999^,360^44005^,
;;360^44015^44025,360^44050^44055,360^44110^,360^44120^44125,360^44130^,
;;360^44139^44151,360^44155^,360^44160^44180,360^44187^44188,360^44202^,
;;360^44204^44205,360^44210^44227,360^44300^,360^44310^,360^44314^44322,
;;360^44345^44346,360^44602^44604,360^44615^44661,360^44800^44899,360^44950^44960,
;;360^45000^45100,360^45110^45113,360^45119^,360^45123^,360^45130^45136,
;;360^45160^,360^45190^,360^45395^45397,360^45550^,360^45562^,
;;360^46060^,360^46080^46200,360^46220^46280,360^46288^46505,360^46706^,
;;360^46917^,360^46922^46930,360^46940^,360^46945^46999,360^47001^47011,
;;360^47100^47120,360^47125^,360^47135^,360^47143^,360^47361^,
;;360^47370^,360^47379^47399,360^47425^,360^47460^47560,360^47562^47564,
;;360^47579^47612,360^47630^,360^47701^,360^47741^,360^47780^47801,
;;360^47900^48000,360^48100^48105,360^48140^,360^48150^,360^48152^48153,
;;360^48155^,360^48510^48520,360^49000^49062,360^49203^49205,360^49255^,
;;360^49320^49322,360^49324^49329,360^49402^,360^49419^49424,360^49427^,
;;360^49429^,360^49436^49441,360^49446^49465,360^49505^49507,360^49520^49525,
;;360^49550^,360^49553^49555,360^49560^49572,360^49580^,360^49582^49590,
;;360^49650^49654,360^49656^,360^49659^49900,360^49905^,360^49999^50040,
;;360^50060^,360^50080^50081,360^50130^,360^50200^50240,360^50280^,
;;360^50323^50325,360^50360^,360^50382^50385,360^50387^50390,360^50392^50400,
;;360^50520^,360^50541^50543,360^50545^50546,360^50548^,360^50553^50555,
;;360^50561^,360^50570^,360^50580^50593,360^50605^,360^50650^50684,
;;360^50688^50715,360^50727^,360^50740^,360^50780^,360^50815^,
;;360^50820^,360^50825^,360^50840^,360^50900^,360^50940^,
;;360^50947^,360^50955^50957,360^50972^50974,360^50980^,360^51040^51050,
;;360^51065^,360^51101^51530,360^51550^,360^51575^,360^51590^51726,
;;360^51736^,360^51741^,360^51784^51792,360^51797^51800,360^51840^,
;;360^51860^51865,360^51990^51992,360^52000^52265,360^52275^52334,360^52341^52342,
;;360^52344^52345,360^52351^52355,360^52450^52500,360^52601^,360^52630^52649,
;;360^52700^53020,360^53040^53060,360^53200^,360^53215^,360^53260^53265,
;;360^53405^53410,360^53431^53440,360^53444^53450,360^53515^,360^53600^53621,
;;360^53660^53661,360^53850^53852,360^53899^,360^54001^54111,360^54120^,
;;360^54150^,360^54160^54200,360^54220^,360^54235^54240,360^54328^,
;;360^54360^,360^54400^54401,360^54405^54406,360^54408^,360^54410^54417,
;;360^54440^54505,360^54512^54520,360^54530^54535,360^54640^,360^54650^54660,
;;360^54680^,360^54700^,360^54830^54861,360^55000^55175,360^55200^55400,
;;360^55450^55530,360^55540^55559,360^55680^55706,360^55801^55810,360^55815^55845,
;;360^55866^,360^55873^55899,360^56405^56440,360^56442^,360^56501^,
;;360^56515^,360^56605^56620,360^56810^56821,360^57061^,360^57065^57106,
;;360^57120^57150,360^57160^57170,360^57200^,360^57220^,360^57240^57268,
;;360^57282^57283,360^57285^,360^57288^,360^57410^57425,360^57452^57522,
;;360^57545^,360^57558^,360^57720^57800,360^58100^,360^58110^58145,
;;360^58150^58152,360^58260^58263,360^58270^,360^58290^58291,360^58293^,
;;360^58300^58301,360^58322^58345,360^58350^,360^58400^,360^58541^58542,
;;360^58545^,360^58550^,360^58552^58553,360^58555^58561,360^58563^58570,
;;360^58572^,360^58578^,360^58600^58672,360^58700^58720,360^58750^,
;;360^58823^,360^58925^58940,360^58953^,360^59812^59820,360^60200^60240,
;;360^60252^60260,360^60270^60280,360^60500^60502,360^60512^60521,360^60540^60545,
;;360^60600^,360^60650^,360^60699^,360^61020^,360^61055^61105,
;;360^61107^61108,360^61140^61150,360^61154^,360^61210^61215,360^61304^61305,
;;360^61312^61314,360^61316^,360^61322^,360^61333^,360^61343^,
;;360^61450^,360^61460^,360^61500^61519,360^61537^61538,360^61546^61548,
;;360^61556^,360^61591^,360^61595^,360^61597^,360^61616^61618,
;;360^61623^61624,360^61630^61635,360^61698^61700,360^61705^,360^61750^61751,
;;360^61790^,360^61863^,360^61885^62000,360^62140^62143,360^62146^,
;;360^62160^,360^62164^62165,360^62220^62230,360^62256^62258,360^62269^62273,
;;360^62280^62284,360^62287^,360^62290^,360^62292^,360^62310^62319,
;;360^62367^63005,360^63011^63020,360^63030^,360^63035^63040,360^63042^,
;;360^63044^63056,360^63075^63090,360^63170^63172,360^63266^63267,360^63270^,
;;360^63272^,360^63275^63277,360^63283^,360^63286^63287,360^63295^,
;;360^63610^63615,360^63655^,360^63685^63688,360^63707^,360^63709^63741,
;;360^64555^,360^64561^,360^64573^,360^64590^,360^64600^64605,
;;360^64680^,360^64702^64708,360^64719^,360^64722^,360^64727^,
;;360^64744^,360^64774^64782,360^64784^,360^64787^64790,360^64795^,
;;360^64831^64836,360^64856^,360^64864^,360^64885^,360^64892^,
;;360^64910^65093,360^65103^65105,360^65114^,360^65205^65222,360^65235^,
;;360^65265^65270,360^65275^,360^65285^65286,360^65400^65436,360^65450^,
;;360^65600^65710,360^65730^,360^65750^65756,360^65760^,360^65772^,
;;360^65780^,360^65782^65820,360^65850^65875,360^65920^66030,360^66160^,
;;360^66170^66185,360^66225^66250,360^66600^,360^66625^,360^66680^66700,
;;360^66710^66720,360^66761^66762,360^66820^66852,360^66930^66940,360^66982^67028,
;;360^67031^67036,360^67039^67101,360^67105^,360^67107^67108,360^67110^67141,
;;360^67229^,360^67255^67312,360^67314^67316,360^67320^67335,360^67345^,
;;360^67400^,360^67412^,360^67445^,360^67500^,360^67515^,
;;360^67599^,360^67710^,360^67808^,360^67830^,360^67882^67900,
;;360^67903^67906,360^67909^67911,360^67923^67935,360^67971^67999,360^68100^,
;;360^68115^68135,360^68360^,360^68420^,360^68500^,360^68540^,
;;360^68700^68720,360^68750^,360^68899^,360^69105^,360^69120^,
;;360^69205^,360^69300^,360^69310^,360^69399^69405,360^69421^,
;;360^69436^,360^69440^,360^69501^69511,360^69540^,360^69604^,
;;360^69610^,360^69620^,360^69632^69646,360^69660^69662,360^69670^,
;;360^69710^,360^69714^,360^69799^,360^69806^,360^69905^,
;;360^69930^,360^69990^,360^0171T^0172T,360^0184T^,360^0192T^,
;;360^0198T^,360^3280F^,360^4047F^4048F,360^4051F^,360^4054F^,
;;360^G0120^,360^G0290^,360^G0293^,360^G0364^,360^S2150^,
;;360^S2900^,361^20936^,362^20937^,369^31299^,369^31899^,
;;374^97810^97814,381^P9021^P9022,381^P9038^P9040,381^P9057^P9058,382^P9010^,
;;382^P9051^,382^P9054^,383^P9017^,383^P9059^P9060,384^P9019^P9020,
;;384^P9031^P9037,384^P9052^P9053,389^P9016^,401^77032^77051,401^77055^77056,
;;401^G0204^,402^75945^75946,402^76506^76514,402^76516^,402^76519^76529,
;;402^76536^,402^76604^,402^76645^76776,402^76800^76801,402^76805^76827,
;;402^76830^76831,402^76856^76880,402^76930^,402^76932^,402^76936^76937,
;;402^76940^76942,402^76945^76946,402^76948^,402^76950^,402^76965^76977,
;;402^76998^76999,402^95992^,403^77052^,403^77057^,404^78608^78609,
;;404^78811^78816,404^A9552^,404^A9555^,404^S8085^,410^94002^94003,
;;410^94640^94645,410^94660^94664,410^94667^94668,413^99183^,413^C1300^,
;;419^99503^99504,419^G0237^,419^G0239^,420^64550^,420^90901^,
;;420^90911^,420^95831^,420^95833^95834,420^95851^,420^97001^97002,
;;420^97010^97018,420^97022^97113,420^97116^,420^97124^,420^97139^97140,
;;420^97150^,420^97542^97546,420^97750^,420^97755^97762,420^97799^,
;;420^0183T^,420^S9090^,420^S9131^,421^G0151^,424^97005^97006,
;;430^95832^,430^95852^,430^97003^97004,430^97530^,430^97532^97537,
;;430^S9129^,431^G0152^,440^92502^,440^92506^92508,440^92526^,
;;440^92597^,440^92606^92612,440^92614^,440^92616^,440^96105^,
;;440^S9128^,441^92504^,441^92520^,444^92700^,444^V5362^V5364,
;;450^25500^,450^25530^,450^25560^,450^25630^,450^25690^,
;;450^31500^,450^31600^31605,450^99281^99285,460^94010^,460^94014^94150,
;;460^94200^94450,460^94620^94621,460^94680^94690,460^94720^94770,460^94799^,
;;470^92551^,470^92559^92560,470^92590^92595,470^V5275^,470^V5299^,
;;471^92511^92512,471^92546^92547,471^92552^92557,471^92561^92565,471^92567^92568,
;;471^92571^,471^92575^92577,471^92579^,471^92582^,471^92584^92588,
;;471^92596^,471^92620^,471^S0618^,471^V5008^V5010,471^V5020^,
;;472^V5011^,472^V5014^,480^92950^92973,480^92978^92986,480^92995^92996,
;;480^93600^93603,480^93609^93613,480^93615^,480^93618^93624,480^93631^93662,
;;480^93701^,480^93724^,480^99190^,481^93501^93514,481^93524^93527,
;;481^93529^93530,481^93539^93545,481^93555^93562,481^93571^93580,482^93015^93018,
;;483^93303^93304,483^93306^93308,483^93312^93352,483^C8923^C8924,483^C8928^C8929,
;;490^S0800^,512^D0120^,512^D0140^,512^D0150^D0274,512^D0277^D0290,
;;512^D0322^D0350,512^D0363^,512^D0416^,512^D0431^,512^D0460^D0470,
;;512^D0480^,512^D0482^,512^D0999^D1120,512^D1203^D1204,512^D1206^,
;;512^D1310^D1330,512^D1351^,512^D2140^D2161,512^D2330^D2332,512^D2335^,
;;512^D2390^D2394,512^D2543^D2544,512^D2662^,512^D2740^D2752,512^D2781^,
;;512^D2783^D2792,512^D2799^,512^D2910^D2920,512^D2932^D2933,512^D2940^D2960,
;;512^D2962^D3221,512^D3240^D3310,512^D3320^,512^D3330^,512^D3332^D3333,
;;512^D3346^D3348,512^D3351^D3352,512^D3410^,512^D3425^,512^D3430^,
;;512^D3460^D3910,512^D3999^,512^D4210^D4211,512^D4240^D4249,512^D4260^D4261,
;;512^D4263^D4266,512^D4268^,512^D4271^,512^D4273^,512^D4320^D4321,
;;512^D4341^D4342,512^D4355^,512^D4381^,512^D4910^D5214,512^D5225^D5226,
;;512^D5281^,512^D5410^D5660,512^D5710^D5711,512^D5730^D5810,512^D5820^D5821,
;;512^D5850^D5867,512^D5899^,512^D5924^,512^D5931^D5933,512^D5937^,
;;512^D5953^,512^D5982^,512^D5986^,512^D5988^,512^D5999^D6012,
;;512^D6053^,512^D6056^D6059,512^D6062^,512^D6065^D6067,512^D6072^,
;;512^D6080^,512^D6091^D6092,512^D6100^D6190,512^D6199^D6210,512^D6212^,
;;512^D6240^D6242,512^D6253^,512^D6545^,512^D6602^,512^D6720^,
;;512^D6740^D6752,512^D6780^,512^D6782^,512^D6790^,512^D6792^D6793,
;;512^D6930^D6950,512^D6972^D6975,512^D6980^,512^D6999^,512^D7111^,
;;512^D7140^D7210,512^D7220^,512^D7230^,512^D7240^D7241,512^D7250^D7261,
;;512^D7285^D7287,512^D7310^D7321,512^D7410^,512^D7450^D7460,512^D7465^,
;;512^D7471^D7473,512^D7485^,512^D7510^D7530,512^D7550^,512^D7640^,
;;512^D7880^,512^D7910^,512^D7912^,512^D7950^,512^D7953^D7955,
;;512^D7970^,512^D7999^,512^D8680^,512^D8692^,512^D9110^D9211,
;;512^D9215^D9221,512^D9241^D9242,512^D9310^D9430,512^D9450^D9610,512^D9630^D9941,
;;512^D9950^D9952,512^D9970^D9972,512^D9974^,512^D9999^,513^H0032^,
;;513^H0037^,513^H0046^,513^S9484^S9485,516^S9088^,519^2000F^,
;;530^98929^,531^98925^98928,540^A0380^,540^A0390^,540^A0420^,
;;540^A0426^A0430,540^A0433^A0434,540^A0998^A0999,541^A0382^A0384,541^A0392^A0394,
;;541^A0398^,542^A0080^,542^A0110^,542^A0130^,544^A0422^,
;;545^A0431^,545^A0435^A0436,549^A0424^A0425,551^G0154^,552^S9123^S9124,
;;560^S9127^,561^G0128^,570^S9122^,571^G0156^,580^S5180^S5181,
;;580^S9061^,580^S9097^,581^99505^99507,581^99509^99511,581^99600^99602,
;;581^S9125^S9126,589^S5130^S5131,589^S5136^,601^K0738^,610^70336^,
;;610^70540^,610^70542^70549,610^70554^,610^71550^71555,610^72195^72198,
;;610^73218^73225,610^73718^73725,610^74181^74185,610^76390^,610^76498^,
;;610^77021^77022,610^77058^77059,610^77084^,610^C8900^C8902,610^C8908^C8909,
;;610^C8911^C8914,611^70551^70553,611^70557^70559,612^72141^72142,612^72146^72159,
;;614^75557^,614^75559^,614^75561^,614^75563^,614^S8037^,
;;618^C8918^,618^C8920^,634^Q4081^,636^90371^90375,636^90396^,
;;636^90476^90477,636^90585^90586,636^90632^,636^90634^90636,636^90645^90649,
;;636^90656^90658,636^90660^,636^90669^,636^90675^90676,636^90691^,
;;636^90693^,636^90698^,636^90700^90705,636^90707^90708,636^90713^90723,
;;636^90732^90736,636^90740^,636^90744^,636^90746^90747,636^90749^,
;;636^92975^92977,636^0042T^,636^A4301^,636^A4641^A4642,636^A6010^A6011,
;;636^A6199^,636^A6250^,636^A6260^A6262,636^A9502^A9510,636^A9512^,
;;636^A9516^A9517,636^A9521^,636^A9524^,636^A9526^A9531,636^A9536^A9541,
;;636^A9544^A9548,636^A9551^,636^A9553^A9554,636^A9556^A9563,636^A9567^A9579,
;;636^A9600^,636^A9698^,636^A9700^,636^C9121^,636^C9245^,
;;636^C9399^,636^G0102^,636^G0339^,636^J0130^J0132,636^J0135^,
;;636^J0150^,636^J0152^,636^J0180^,636^J0210^,636^J0256^,
;;636^J0289^,636^J0475^J0480,636^J0583^,636^J0587^,636^J0630^,
;;636^J0637^,636^J0641^,636^J0735^J0740,636^J0795^J0800,636^J0850^,
;;636^J0878^,636^J0881^J0886,636^J0894^,636^J1190^,636^J1205^,
;;636^J1212^,636^J1260^,636^J1300^,636^J1327^,636^J1410^,
;;636^J1430^,636^J1438^J1441,636^J1453^J1455,636^J1459^J1460,636^J1490^,
;;636^J1550^J1562,636^J1566^,636^J1568^J1569,636^J1571^J1573,636^J1595^,
;;636^J1610^J1620,636^J1626^,636^J1640^,636^J1652^,636^J1670^,
;;636^J1740^,636^J1743^J1750,636^J1756^,636^J1830^J1835,636^J1930^,
;;636^J1945^J1953,636^J2020^,636^J2248^,636^J2278^,636^J2315^,
;;636^J2323^,636^J2353^,636^J2357^,636^J2405^,636^J2430^,
;;636^J2460^J2469,636^J2503^J2505,636^J2515^,636^J2545^,636^J2770^J2778,
;;636^J2783^J2792,636^J2794^,636^J2805^,636^J2820^,636^J2920^J2930,
;;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBYPSP3 14438 printed Oct 16, 2024@18:37:27 Page 2
IBYPSP3 ;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(FRVL3+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 ;
FRVL3 ; revenue code - CPT links
+1 ;;360^38300^38308,360^38381^,360^38500^38525,360^38542^38550,360^38562^38571,
+2 ;;360^38589^38700,360^38720^,360^38724^38760,360^38765^,360^38770^,
+3 ;;360^38780^38790,360^38792^,360^38999^39010,360^39200^39400,360^39501^39502,
+4 ;;360^39520^,360^39540^,360^40490^40510,360^40525^,360^40530^40654,
+5 ;;360^40799^40800,360^40805^40831,360^41008^41010,360^41016^,360^41100^41135,
+6 ;;360^41153^41252,360^41512^,360^41530^41800,360^41820^,360^41822^41827,
+7 ;;360^41830^,360^41870^41899,360^42100^42106,360^42120^42145,360^42160^,
+8 ;;360^42281^42299,360^42330^42408,360^42410^42500,360^42550^,360^42650^42660,
+9 ;;360^42699^42700,360^42800^42808,360^42810^42831,360^42845^42870,360^42894^42900,
+10 ;;360^42960^,360^42970^,360^42999^,360^43030^,360^43100^,
+11 ;;360^43107^,360^43112^,360^43117^,360^43130^,360^43320^,
+12 ;;360^43324^43331,360^43400^,360^43460^,360^43500^43501,360^43605^43622,
+13 ;;360^43632^43633,360^43635^,360^43640^,360^43644^43645,360^43770^,
+14 ;;360^43800^,360^43820^43825,360^43832^,360^43840^,360^43843^,
+15 ;;360^43845^,360^43850^43860,360^43887^,360^43999^,360^44005^,
+16 ;;360^44015^44025,360^44050^44055,360^44110^,360^44120^44125,360^44130^,
+17 ;;360^44139^44151,360^44155^,360^44160^44180,360^44187^44188,360^44202^,
+18 ;;360^44204^44205,360^44210^44227,360^44300^,360^44310^,360^44314^44322,
+19 ;;360^44345^44346,360^44602^44604,360^44615^44661,360^44800^44899,360^44950^44960,
+20 ;;360^45000^45100,360^45110^45113,360^45119^,360^45123^,360^45130^45136,
+21 ;;360^45160^,360^45190^,360^45395^45397,360^45550^,360^45562^,
+22 ;;360^46060^,360^46080^46200,360^46220^46280,360^46288^46505,360^46706^,
+23 ;;360^46917^,360^46922^46930,360^46940^,360^46945^46999,360^47001^47011,
+24 ;;360^47100^47120,360^47125^,360^47135^,360^47143^,360^47361^,
+25 ;;360^47370^,360^47379^47399,360^47425^,360^47460^47560,360^47562^47564,
+26 ;;360^47579^47612,360^47630^,360^47701^,360^47741^,360^47780^47801,
+27 ;;360^47900^48000,360^48100^48105,360^48140^,360^48150^,360^48152^48153,
+28 ;;360^48155^,360^48510^48520,360^49000^49062,360^49203^49205,360^49255^,
+29 ;;360^49320^49322,360^49324^49329,360^49402^,360^49419^49424,360^49427^,
+30 ;;360^49429^,360^49436^49441,360^49446^49465,360^49505^49507,360^49520^49525,
+31 ;;360^49550^,360^49553^49555,360^49560^49572,360^49580^,360^49582^49590,
+32 ;;360^49650^49654,360^49656^,360^49659^49900,360^49905^,360^49999^50040,
+33 ;;360^50060^,360^50080^50081,360^50130^,360^50200^50240,360^50280^,
+34 ;;360^50323^50325,360^50360^,360^50382^50385,360^50387^50390,360^50392^50400,
+35 ;;360^50520^,360^50541^50543,360^50545^50546,360^50548^,360^50553^50555,
+36 ;;360^50561^,360^50570^,360^50580^50593,360^50605^,360^50650^50684,
+37 ;;360^50688^50715,360^50727^,360^50740^,360^50780^,360^50815^,
+38 ;;360^50820^,360^50825^,360^50840^,360^50900^,360^50940^,
+39 ;;360^50947^,360^50955^50957,360^50972^50974,360^50980^,360^51040^51050,
+40 ;;360^51065^,360^51101^51530,360^51550^,360^51575^,360^51590^51726,
+41 ;;360^51736^,360^51741^,360^51784^51792,360^51797^51800,360^51840^,
+42 ;;360^51860^51865,360^51990^51992,360^52000^52265,360^52275^52334,360^52341^52342,
+43 ;;360^52344^52345,360^52351^52355,360^52450^52500,360^52601^,360^52630^52649,
+44 ;;360^52700^53020,360^53040^53060,360^53200^,360^53215^,360^53260^53265,
+45 ;;360^53405^53410,360^53431^53440,360^53444^53450,360^53515^,360^53600^53621,
+46 ;;360^53660^53661,360^53850^53852,360^53899^,360^54001^54111,360^54120^,
+47 ;;360^54150^,360^54160^54200,360^54220^,360^54235^54240,360^54328^,
+48 ;;360^54360^,360^54400^54401,360^54405^54406,360^54408^,360^54410^54417,
+49 ;;360^54440^54505,360^54512^54520,360^54530^54535,360^54640^,360^54650^54660,
+50 ;;360^54680^,360^54700^,360^54830^54861,360^55000^55175,360^55200^55400,
+51 ;;360^55450^55530,360^55540^55559,360^55680^55706,360^55801^55810,360^55815^55845,
+52 ;;360^55866^,360^55873^55899,360^56405^56440,360^56442^,360^56501^,
+53 ;;360^56515^,360^56605^56620,360^56810^56821,360^57061^,360^57065^57106,
+54 ;;360^57120^57150,360^57160^57170,360^57200^,360^57220^,360^57240^57268,
+55 ;;360^57282^57283,360^57285^,360^57288^,360^57410^57425,360^57452^57522,
+56 ;;360^57545^,360^57558^,360^57720^57800,360^58100^,360^58110^58145,
+57 ;;360^58150^58152,360^58260^58263,360^58270^,360^58290^58291,360^58293^,
+58 ;;360^58300^58301,360^58322^58345,360^58350^,360^58400^,360^58541^58542,
+59 ;;360^58545^,360^58550^,360^58552^58553,360^58555^58561,360^58563^58570,
+60 ;;360^58572^,360^58578^,360^58600^58672,360^58700^58720,360^58750^,
+61 ;;360^58823^,360^58925^58940,360^58953^,360^59812^59820,360^60200^60240,
+62 ;;360^60252^60260,360^60270^60280,360^60500^60502,360^60512^60521,360^60540^60545,
+63 ;;360^60600^,360^60650^,360^60699^,360^61020^,360^61055^61105,
+64 ;;360^61107^61108,360^61140^61150,360^61154^,360^61210^61215,360^61304^61305,
+65 ;;360^61312^61314,360^61316^,360^61322^,360^61333^,360^61343^,
+66 ;;360^61450^,360^61460^,360^61500^61519,360^61537^61538,360^61546^61548,
+67 ;;360^61556^,360^61591^,360^61595^,360^61597^,360^61616^61618,
+68 ;;360^61623^61624,360^61630^61635,360^61698^61700,360^61705^,360^61750^61751,
+69 ;;360^61790^,360^61863^,360^61885^62000,360^62140^62143,360^62146^,
+70 ;;360^62160^,360^62164^62165,360^62220^62230,360^62256^62258,360^62269^62273,
+71 ;;360^62280^62284,360^62287^,360^62290^,360^62292^,360^62310^62319,
+72 ;;360^62367^63005,360^63011^63020,360^63030^,360^63035^63040,360^63042^,
+73 ;;360^63044^63056,360^63075^63090,360^63170^63172,360^63266^63267,360^63270^,
+74 ;;360^63272^,360^63275^63277,360^63283^,360^63286^63287,360^63295^,
+75 ;;360^63610^63615,360^63655^,360^63685^63688,360^63707^,360^63709^63741,
+76 ;;360^64555^,360^64561^,360^64573^,360^64590^,360^64600^64605,
+77 ;;360^64680^,360^64702^64708,360^64719^,360^64722^,360^64727^,
+78 ;;360^64744^,360^64774^64782,360^64784^,360^64787^64790,360^64795^,
+79 ;;360^64831^64836,360^64856^,360^64864^,360^64885^,360^64892^,
+80 ;;360^64910^65093,360^65103^65105,360^65114^,360^65205^65222,360^65235^,
+81 ;;360^65265^65270,360^65275^,360^65285^65286,360^65400^65436,360^65450^,
+82 ;;360^65600^65710,360^65730^,360^65750^65756,360^65760^,360^65772^,
+83 ;;360^65780^,360^65782^65820,360^65850^65875,360^65920^66030,360^66160^,
+84 ;;360^66170^66185,360^66225^66250,360^66600^,360^66625^,360^66680^66700,
+85 ;;360^66710^66720,360^66761^66762,360^66820^66852,360^66930^66940,360^66982^67028,
+86 ;;360^67031^67036,360^67039^67101,360^67105^,360^67107^67108,360^67110^67141,
+87 ;;360^67229^,360^67255^67312,360^67314^67316,360^67320^67335,360^67345^,
+88 ;;360^67400^,360^67412^,360^67445^,360^67500^,360^67515^,
+89 ;;360^67599^,360^67710^,360^67808^,360^67830^,360^67882^67900,
+90 ;;360^67903^67906,360^67909^67911,360^67923^67935,360^67971^67999,360^68100^,
+91 ;;360^68115^68135,360^68360^,360^68420^,360^68500^,360^68540^,
+92 ;;360^68700^68720,360^68750^,360^68899^,360^69105^,360^69120^,
+93 ;;360^69205^,360^69300^,360^69310^,360^69399^69405,360^69421^,
+94 ;;360^69436^,360^69440^,360^69501^69511,360^69540^,360^69604^,
+95 ;;360^69610^,360^69620^,360^69632^69646,360^69660^69662,360^69670^,
+96 ;;360^69710^,360^69714^,360^69799^,360^69806^,360^69905^,
+97 ;;360^69930^,360^69990^,360^0171T^0172T,360^0184T^,360^0192T^,
+98 ;;360^0198T^,360^3280F^,360^4047F^4048F,360^4051F^,360^4054F^,
+99 ;;360^G0120^,360^G0290^,360^G0293^,360^G0364^,360^S2150^,
+100 ;;360^S2900^,361^20936^,362^20937^,369^31299^,369^31899^,
+101 ;;374^97810^97814,381^P9021^P9022,381^P9038^P9040,381^P9057^P9058,382^P9010^,
+102 ;;382^P9051^,382^P9054^,383^P9017^,383^P9059^P9060,384^P9019^P9020,
+103 ;;384^P9031^P9037,384^P9052^P9053,389^P9016^,401^77032^77051,401^77055^77056,
+104 ;;401^G0204^,402^75945^75946,402^76506^76514,402^76516^,402^76519^76529,
+105 ;;402^76536^,402^76604^,402^76645^76776,402^76800^76801,402^76805^76827,
+106 ;;402^76830^76831,402^76856^76880,402^76930^,402^76932^,402^76936^76937,
+107 ;;402^76940^76942,402^76945^76946,402^76948^,402^76950^,402^76965^76977,
+108 ;;402^76998^76999,402^95992^,403^77052^,403^77057^,404^78608^78609,
+109 ;;404^78811^78816,404^A9552^,404^A9555^,404^S8085^,410^94002^94003,
+110 ;;410^94640^94645,410^94660^94664,410^94667^94668,413^99183^,413^C1300^,
+111 ;;419^99503^99504,419^G0237^,419^G0239^,420^64550^,420^90901^,
+112 ;;420^90911^,420^95831^,420^95833^95834,420^95851^,420^97001^97002,
+113 ;;420^97010^97018,420^97022^97113,420^97116^,420^97124^,420^97139^97140,
+114 ;;420^97150^,420^97542^97546,420^97750^,420^97755^97762,420^97799^,
+115 ;;420^0183T^,420^S9090^,420^S9131^,421^G0151^,424^97005^97006,
+116 ;;430^95832^,430^95852^,430^97003^97004,430^97530^,430^97532^97537,
+117 ;;430^S9129^,431^G0152^,440^92502^,440^92506^92508,440^92526^,
+118 ;;440^92597^,440^92606^92612,440^92614^,440^92616^,440^96105^,
+119 ;;440^S9128^,441^92504^,441^92520^,444^92700^,444^V5362^V5364,
+120 ;;450^25500^,450^25530^,450^25560^,450^25630^,450^25690^,
+121 ;;450^31500^,450^31600^31605,450^99281^99285,460^94010^,460^94014^94150,
+122 ;;460^94200^94450,460^94620^94621,460^94680^94690,460^94720^94770,460^94799^,
+123 ;;470^92551^,470^92559^92560,470^92590^92595,470^V5275^,470^V5299^,
+124 ;;471^92511^92512,471^92546^92547,471^92552^92557,471^92561^92565,471^92567^92568,
+125 ;;471^92571^,471^92575^92577,471^92579^,471^92582^,471^92584^92588,
+126 ;;471^92596^,471^92620^,471^S0618^,471^V5008^V5010,471^V5020^,
+127 ;;472^V5011^,472^V5014^,480^92950^92973,480^92978^92986,480^92995^92996,
+128 ;;480^93600^93603,480^93609^93613,480^93615^,480^93618^93624,480^93631^93662,
+129 ;;480^93701^,480^93724^,480^99190^,481^93501^93514,481^93524^93527,
+130 ;;481^93529^93530,481^93539^93545,481^93555^93562,481^93571^93580,482^93015^93018,
+131 ;;483^93303^93304,483^93306^93308,483^93312^93352,483^C8923^C8924,483^C8928^C8929,
+132 ;;490^S0800^,512^D0120^,512^D0140^,512^D0150^D0274,512^D0277^D0290,
+133 ;;512^D0322^D0350,512^D0363^,512^D0416^,512^D0431^,512^D0460^D0470,
+134 ;;512^D0480^,512^D0482^,512^D0999^D1120,512^D1203^D1204,512^D1206^,
+135 ;;512^D1310^D1330,512^D1351^,512^D2140^D2161,512^D2330^D2332,512^D2335^,
+136 ;;512^D2390^D2394,512^D2543^D2544,512^D2662^,512^D2740^D2752,512^D2781^,
+137 ;;512^D2783^D2792,512^D2799^,512^D2910^D2920,512^D2932^D2933,512^D2940^D2960,
+138 ;;512^D2962^D3221,512^D3240^D3310,512^D3320^,512^D3330^,512^D3332^D3333,
+139 ;;512^D3346^D3348,512^D3351^D3352,512^D3410^,512^D3425^,512^D3430^,
+140 ;;512^D3460^D3910,512^D3999^,512^D4210^D4211,512^D4240^D4249,512^D4260^D4261,
+141 ;;512^D4263^D4266,512^D4268^,512^D4271^,512^D4273^,512^D4320^D4321,
+142 ;;512^D4341^D4342,512^D4355^,512^D4381^,512^D4910^D5214,512^D5225^D5226,
+143 ;;512^D5281^,512^D5410^D5660,512^D5710^D5711,512^D5730^D5810,512^D5820^D5821,
+144 ;;512^D5850^D5867,512^D5899^,512^D5924^,512^D5931^D5933,512^D5937^,
+145 ;;512^D5953^,512^D5982^,512^D5986^,512^D5988^,512^D5999^D6012,
+146 ;;512^D6053^,512^D6056^D6059,512^D6062^,512^D6065^D6067,512^D6072^,
+147 ;;512^D6080^,512^D6091^D6092,512^D6100^D6190,512^D6199^D6210,512^D6212^,
+148 ;;512^D6240^D6242,512^D6253^,512^D6545^,512^D6602^,512^D6720^,
+149 ;;512^D6740^D6752,512^D6780^,512^D6782^,512^D6790^,512^D6792^D6793,
+150 ;;512^D6930^D6950,512^D6972^D6975,512^D6980^,512^D6999^,512^D7111^,
+151 ;;512^D7140^D7210,512^D7220^,512^D7230^,512^D7240^D7241,512^D7250^D7261,
+152 ;;512^D7285^D7287,512^D7310^D7321,512^D7410^,512^D7450^D7460,512^D7465^,
+153 ;;512^D7471^D7473,512^D7485^,512^D7510^D7530,512^D7550^,512^D7640^,
+154 ;;512^D7880^,512^D7910^,512^D7912^,512^D7950^,512^D7953^D7955,
+155 ;;512^D7970^,512^D7999^,512^D8680^,512^D8692^,512^D9110^D9211,
+156 ;;512^D9215^D9221,512^D9241^D9242,512^D9310^D9430,512^D9450^D9610,512^D9630^D9941,
+157 ;;512^D9950^D9952,512^D9970^D9972,512^D9974^,512^D9999^,513^H0032^,
+158 ;;513^H0037^,513^H0046^,513^S9484^S9485,516^S9088^,519^2000F^,
+159 ;;530^98929^,531^98925^98928,540^A0380^,540^A0390^,540^A0420^,
+160 ;;540^A0426^A0430,540^A0433^A0434,540^A0998^A0999,541^A0382^A0384,541^A0392^A0394,
+161 ;;541^A0398^,542^A0080^,542^A0110^,542^A0130^,544^A0422^,
+162 ;;545^A0431^,545^A0435^A0436,549^A0424^A0425,551^G0154^,552^S9123^S9124,
+163 ;;560^S9127^,561^G0128^,570^S9122^,571^G0156^,580^S5180^S5181,
+164 ;;580^S9061^,580^S9097^,581^99505^99507,581^99509^99511,581^99600^99602,
+165 ;;581^S9125^S9126,589^S5130^S5131,589^S5136^,601^K0738^,610^70336^,
+166 ;;610^70540^,610^70542^70549,610^70554^,610^71550^71555,610^72195^72198,
+167 ;;610^73218^73225,610^73718^73725,610^74181^74185,610^76390^,610^76498^,
+168 ;;610^77021^77022,610^77058^77059,610^77084^,610^C8900^C8902,610^C8908^C8909,
+169 ;;610^C8911^C8914,611^70551^70553,611^70557^70559,612^72141^72142,612^72146^72159,
+170 ;;614^75557^,614^75559^,614^75561^,614^75563^,614^S8037^,
+171 ;;618^C8918^,618^C8920^,634^Q4081^,636^90371^90375,636^90396^,
+172 ;;636^90476^90477,636^90585^90586,636^90632^,636^90634^90636,636^90645^90649,
+173 ;;636^90656^90658,636^90660^,636^90669^,636^90675^90676,636^90691^,
+174 ;;636^90693^,636^90698^,636^90700^90705,636^90707^90708,636^90713^90723,
+175 ;;636^90732^90736,636^90740^,636^90744^,636^90746^90747,636^90749^,
+176 ;;636^92975^92977,636^0042T^,636^A4301^,636^A4641^A4642,636^A6010^A6011,
+177 ;;636^A6199^,636^A6250^,636^A6260^A6262,636^A9502^A9510,636^A9512^,
+178 ;;636^A9516^A9517,636^A9521^,636^A9524^,636^A9526^A9531,636^A9536^A9541,
+179 ;;636^A9544^A9548,636^A9551^,636^A9553^A9554,636^A9556^A9563,636^A9567^A9579,
+180 ;;636^A9600^,636^A9698^,636^A9700^,636^C9121^,636^C9245^,
+181 ;;636^C9399^,636^G0102^,636^G0339^,636^J0130^J0132,636^J0135^,
+182 ;;636^J0150^,636^J0152^,636^J0180^,636^J0210^,636^J0256^,
+183 ;;636^J0289^,636^J0475^J0480,636^J0583^,636^J0587^,636^J0630^,
+184 ;;636^J0637^,636^J0641^,636^J0735^J0740,636^J0795^J0800,636^J0850^,
+185 ;;636^J0878^,636^J0881^J0886,636^J0894^,636^J1190^,636^J1205^,
+186 ;;636^J1212^,636^J1260^,636^J1300^,636^J1327^,636^J1410^,
+187 ;;636^J1430^,636^J1438^J1441,636^J1453^J1455,636^J1459^J1460,636^J1490^,
+188 ;;636^J1550^J1562,636^J1566^,636^J1568^J1569,636^J1571^J1573,636^J1595^,
+189 ;;636^J1610^J1620,636^J1626^,636^J1640^,636^J1652^,636^J1670^,
+190 ;;636^J1740^,636^J1743^J1750,636^J1756^,636^J1830^J1835,636^J1930^,
+191 ;;636^J1945^J1953,636^J2020^,636^J2248^,636^J2278^,636^J2315^,
+192 ;;636^J2323^,636^J2353^,636^J2357^,636^J2405^,636^J2430^,
+193 ;;636^J2460^J2469,636^J2503^J2505,636^J2515^,636^J2545^,636^J2770^J2778,
+194 ;;636^J2783^J2792,636^J2794^,636^J2805^,636^J2820^,636^J2920^J2930,
+195 ;;
+196 QUIT
