FB35185P ;MNT/BJR - Update 2021 RVUs ; Sep 15, 2021@09:54
;;3.5;FEE BASIS;**185**;JAN 30, 1995;Build 2
;Per VA Directive 6402, this routine should not be modified.
Q
;
EN ; Begin Post-Install
D UPDATE ;Update RVUs
Q
UPDATE ; Update 2021 RVUs with correct values
D BMES^XPDUTL(" Updating RVUs for 2021 fee schedule.")
N FBRVU,FBIEN,FBCNT,FBCYIEN,FBWORK,FBNON,FBFAC,FBMAL,DA,DR,DIE
F FBCNT=1:1 S FBRVU=$P($T(RVUS+FBCNT),";;",2) Q:FBRVU="QUIT" D
.S FBIEN=$O(^FB(162.97,"B",$P(FBRVU,U),0)) Q:'FBIEN
.S FBCYIEN=";" F S FBCYIEN=$O(^FB(162.97,FBIEN,"CY",FBCYIEN),-1) I $P(^FB(162.97,FBIEN,"CY",FBCYIEN,0),U)=2021 D Q
..S DA=FBCYIEN,DA(1)=FBIEN,FBWORK=$P(FBRVU,U,2),FBNON=$P(FBRVU,U,3),FBFAC=$P(FBRVU,U,4),FBMAL=$P(FBRVU,U,5)
..S DIE="^FB(162.97,"_DA(1)_",""CY"","
..S DR=".03///^S X=FBWORK;.04///^S X=FBNON;.05///^S X=FBFAC;.06///^S X=FBMAL"
..D ^DIE
Q
RVUS ;List or RVUs to update
;;G0141^0.26^0.36^0.36^0.01
;;G0166^0^3.35^3.35^0.04
;;G0278^0.25^0.09^0.09^0.05
;;G0279^0.6^0.95^0.95^0.04
;;G0288^0^0.93^0.93^0.1
;;G0289^1.48^0.75^0.75^0.28
;;G0238^0^0.28^0.28^0.01
;;G0239^0^0.34^0.34^0.01
;;A4363^0^0^0^0
;;A4364^0^0^0^0
;;A4556^0^0^0^0
;;A4557^0^0^0^0
;;A4670^0^0^0^0
;;A4680^0^0^0^0
;;A4690^0^0^0^0
;;A4730^0^0^0^0
;;A4760^0^0^0^0
;;A5081^0^0^0^0
;;A6025^0^0^0^0
;;D3310^0^0^0^0
;;D3320^0^0^0^0
;;D3330^0^0^0^0
;;G0143^0^0^0^0
;;G0144^0^0^0^0
;;G0145^0^0^0^0
;;G0147^0^0^0^0
;;G0148^0^0^0^0
;;J0585^0^0^0^0
;;J1095^0^0^0^0
;;J1562^0^0^0^0
;;J2350^0^0^0^0
;;J2792^0^0^0^0
;;J2860^0^0^0^0
;;J3365^0^0^0^0
;;J7320^0^0^0^0
;;J7513^0^0^0^0
;;J9020^0^0^0^0
;;P9019^0^0^0^0
;;Q0144^0^0^0^0
;;D0170^0^0^0^0
;;D0472^0^0^0^0
;;D0473^0^0^0^0
;;J3245^0^0^0^0
;;J8520^0^0^0^0
;;J8521^0^0^0^0
;;P9023^0^0^0^0
;;S0012^0^0^0^0
;;S0014^0^0^0^0
;;S0017^0^0^0^0
;;S0020^0^0^0^0
;;S0021^0^0^0^0
;;S0023^0^0^0^0
;;S0028^0^0^0^0
;;S0030^0^0^0^0
;;S0032^0^0^0^0
;;S0034^0^0^0^0
;;S0039^0^0^0^0
;;S0040^0^0^0^0
;;S0073^0^0^0^0
;;S0074^0^0^0^0
;;S0077^0^0^0^0
;;S0078^0^0^0^0
;;S0080^0^0^0^0
;;S0081^0^0^0^0
;;S0090^0^0^0^0
;;S2300^0^0^0^0
;;S2350^0^0^0^0
;;S2351^0^0^0^0
;;S3650^0^0^0^0
;;S3652^0^0^0^0
;;S8950^0^0^0^0
;;S9124^0^0^0^0
;;S9125^0^0^0^0
;;S9126^0^0^0^0
;;S9127^0^0^0^0
;;S9128^0^0^0^0
;;S9129^0^0^0^0
;;S9140^0^0^0^0
;;S9141^0^0^0^0
;;S9455^0^0^0^0
;;S9460^0^0^0^0
;;S9465^0^0^0^0
;;S9470^0^0^0^0
;;A4561^0^0^0^0
;;A4562^0^0^0^0
;;A7020^0^0^0^0
;;A9508^0^0^0^0
;;G0175^0^0^0^0
;;G0186^0^0^0^0
;;G9001^0^0^0^0
;;G9002^0^0^0^0
;;G9003^0^0^0^0
;;G9004^0^0^0^0
;;G9005^0^0^0^0
;;G9006^0^0^0^0
;;G9007^0^0^0^0
;;G9008^0^0^0^0
;;J7520^0^0^0^0
;;P9032^0^0^0^0
;;P9034^0^0^0^0
;;P9041^0^0^0^0
;;P9043^0^0^0^0
;;Q2017^0^0^0^0
;;S0156^0^0^0^0
;;S0157^0^0^0^0
;;S0221^0^0^0^0
;;S5000^0^0^0^0
;;S5001^0^0^0^0
;;A4736^0^0^0^0
;;A4929^0^0^0^0
;;G9009^0^0^0^0
;;G9010^0^0^0^0
;;G9011^0^0^0^0
;;J0587^0^0^0^0
;;J1270^0^0^0^0
;;J7316^0^0^0^0
;;P9045^0^0^0^0
;;P9046^0^0^0^0
;;P9047^0^0^0^0
;;P9048^0^0^0^0
;;P9050^0^0^0^0
;;Q4049^0^0^0^0
;;S0182^0^0^0^0
;;T1014^0^0^0^0
;;V5241^0^0^0^0
;;V5242^0^0^0^0
;;V5243^0^0^0^0
;;V5244^0^0^0^0
;;V5245^0^0^0^0
;;V5246^0^0^0^0
;;V5247^0^0^0^0
;;V5248^0^0^0^0
;;V5249^0^0^0^0
;;V5250^0^0^0^0
;;V5251^0^0^0^0
;;V5252^0^0^0^0
;;V5253^0^0^0^0
;;V5254^0^0^0^0
;;V5255^0^0^0^0
;;V5256^0^0^0^0
;;V5257^0^0^0^0
;;V5258^0^0^0^0
;;V5259^0^0^0^0
;;V5260^0^0^0^0
;;V5261^0^0^0^0
;;V5262^0^0^0^0
;;V5263^0^0^0^0
;;V5265^0^0^0^0
;;V5269^0^0^0^0
;;V5270^0^0^0^0
;;V5271^0^0^0^0
;;A4930^0^0^0^0
;;A6512^0^0^0^0
;;A7039^0^0^0^0
;;A9517^0^0^0^0
;;A9524^0^0^0^0
;;G0293^0^0^0^0
;;G0294^0^0^0^0
;;H0043^0^0^0^0
;;H0044^0^0^0^0
;;H0046^0^0^0^0
;;T1025^0^0^0^0
;;T1026^0^0^0^0
;;A4216^0^0^0^0
;;A4217^0^0^0^0
;;A4672^0^0^0^0
;;A4674^0^0^0^0
;;A4728^0^0^0^0
;;A6407^0^0^0^0
;;A7046^0^0^0^0
;;A9280^0^0^0^0
;;A9528^0^0^0^0
;;A9529^0^0^0^0
;;A9530^0^0^0^0
;;A9532^0^0^0^0
;;A9999^0^0^0^0
;;G0339^0^0^0^0
;;H2011^0^0^0^0
;;H2012^0^0^0^0
;;H2013^0^0^0^0
;;H2014^0^0^0^0
;;H2015^0^0^0^0
;;H2016^0^0^0^0
;;H2017^0^0^0^0
;;H2018^0^0^0^0
;;H2019^0^0^0^0
;;H2020^0^0^0^0
;;H2021^0^0^0^0
;;H2022^0^0^0^0
;;H2023^0^0^0^0
;;H2024^0^0^0^0
;;H2025^0^0^0^0
;;H2026^0^0^0^0
;;H2027^0^0^0^0
;;H2028^0^0^0^0
;;H2029^0^0^0^0
;;H2030^0^0^0^0
;;H2031^0^0^0^0
;;H2032^0^0^0^0
;;H2034^0^0^0^0
;;H2035^0^0^0^0
;;H2036^0^0^0^0
;;H2037^0^0^0^0
;;J2280^0^0^0^0
;;J2353^0^0^0^0
;;J2354^0^0^0^0
;;J2505^0^0^0^0
;;J3465^0^0^0^0
;;J9178^0^0^0^0
;;J9395^0^0^0^0
;;P9051^0^0^0^0
;;P9052^0^0^0^0
;;P9053^0^0^0^0
;;P9054^0^0^0^0
;;P9055^0^0^0^0
;;P9056^0^0^0^0
;;P9057^0^0^0^0
;;P9058^0^0^0^0
;;P9059^0^0^0^0
;;S0104^0^0^0^0
;;S0136^0^0^0^0
;;S0137^0^0^0^0
;;S0138^0^0^0^0
;;S0139^0^0^0^0
;;S0140^0^0^0^0
;;T2012^0^0^0^0
;;T2014^0^0^0^0
;;T2022^0^0^0^0
;;T2025^0^0^0^0
;;T2028^0^0^0^0
;;T2029^0^0^0^0
;;T2032^0^0^0^0
;;T2033^0^0^0^0
;;T2046^0^0^0^0
;;T2048^0^0^0^0
;;T5999^0^0^0^0
;;V2121^0^0^0^0
;;V2221^0^0^0^0
;;V2321^0^0^0^0
;;V2745^0^0^0^0
;;V2762^0^0^0^0
;;V2782^0^0^0^0
;;V2783^0^0^0^0
;;A9180^0^0^0^0
;;J2794^0^0^0^0
;;J7674^0^0^0^0
;;J9041^0^0^0^0
;;Q9951^0^0^0^0
;;Q9953^0^0^0^0
;;Q9954^0^0^0^0
;;Q9955^0^0^0^0
;;Q9956^0^0^0^0
;;Q9957^0^0^0^0
;;Q9958^0^0^0^0
;;Q9959^0^0^0^0
;;Q9960^0^0^0^0
;;Q9961^0^0^0^0
;;Q9962^0^0^0^0
;;Q9963^0^0^0^0
;;Q9964^0^0^0^0
;;T2049^0^0^0^0
;;J1640^0^0^0^0
;;J3355^0^0^0^0
;;Q0480^0^0^0^0
;;Q0481^0^0^0^0
;;Q0482^0^0^0^0
;;Q0483^0^0^0^0
;;Q0485^0^0^0^0
;;Q0487^0^0^0^0
;;Q0488^0^0^0^0
;;Q0489^0^0^0^0
;;Q0490^0^0^0^0
;;Q0492^0^0^0^0
;;Q0493^0^0^0^0
;;Q0494^0^0^0^0
;;Q0495^0^0^0^0
;;Q0496^0^0^0^0
;;Q0497^0^0^0^0
;;Q0498^0^0^0^0
;;Q0500^0^0^0^0
;;Q0501^0^0^0^0
;;Q0502^0^0^0^0
;;Q0504^0^0^0^0
;;S2117^0^0^0^0
;;A5120^0^0^0^0
;;A9542^0^0^0^0
;;A9543^0^0^0^0
;;A9554^0^0^0^0
;;J0365^0^0^0^0
;;J0881^0^0^0^0
;;J0882^0^0^0^0
;;J0885^0^0^0^0
;;J1451^0^0^0^0
;;J1566^0^0^0^0
;;J2504^0^0^0^0
;;J3471^0^0^0^0
;;J3472^0^0^0^0
;;J8515^0^0^0^0
;;Q0511^0^0^0^0
;;G9071^0^0^0^0
;;G9073^0^0^0^0
;;G9084^0^0^0^0
;;G9085^0^0^0^0
;;G9092^0^0^0^0
;;G9093^0^0^0^0
;;S0190^0^0^0^0
;;S0191^0^0^0^0
;;A4600^0^0^0^0
;;A8004^0^0^0^0
;;D0145^0^0^0^0
;;J2315^0^0^0^0
;;J7187^0^0^0^0
;;J7311^0^0^0^0
;;J7345^0^0^0^0
;;Q4081^0^0^0^0
;;Q5005^0^0^0^0
;;Q5009^0^0^0^0
;;A6413^0^0^0^0
;;A9276^0^0^0^0
;;A9277^0^0^0^0
;;A9278^0^0^0^0
;;A9579^0^0^0^0
;;G8432^0^0^0^0
;;J1573^0^0^0^0
;;Q9965^0^0^0^0
;;Q9966^0^0^0^0
;;Q9967^0^0^0^0
;;S9152^0^0^0^0
;;T1503^0^0^0^0
;;G0416^3.6^6.46^6.46^0.09
;;G0416-TC^0^4.99^4.99^0.04
;;G0416-26^3.6^1.47^1.47^0.05
;;G8510^0^0^0^0
;;G8511^0^0^0^0
;;J7606^0^0^0^0
;;J9033^0^0^0^0
;;Q4100^0^0^0^0
;;A4456^0^0^0^0
;;J0598^0^0^0^0
;;J0834^0^0^0^0
;;Q0138^0^0^0^0
;;Q0139^0^0^0^0
;;S0280^0^0^0^0
;;S0281^0^0^0^0
;;D1352^0^0^0^0
;;D7295^0^0^0^0
;;G0162^0^0^0^0
;;G0438^2.6^2.1^2.1^0.15
;;G0439^1.92^1.78^1.78^0.13
;;J0597^0^0^0^0
;;J0775^0^0^0^0
;;J1599^0^0^0^0
;;J3357^0^0^0^0
;;J7309^0^0^0^0
;;J7686^0^0^0^0
;;Q0478^0^0^0^0
;;Q0479^0^0^0^0
;;Q2035^0^0^0^0
;;Q2036^0^0^0^0
;;Q2037^0^0^0^0
;;Q2038^0^0^0^0
;;Q2039^0^0^0^0
;;T1505^0^0^0^0
;;A9272^0^0^0^0
;;G8721^0^0^0^0
;;G8722^0^0^0^0
;;G8724^0^0^0^0
;;G8808^0^0^0^0
;;G8883^0^0^0^0
;;G8885^0^0^0^0
;;Q4122^0^0^0^0
;;G8924^0^0^0^0
;;G8950^0^0^0^0
;;G8952^0^0^0^0
;;Q4132^0^0^0^0
;;V5281^0^0^0^0
;;V5283^0^0^0^0
;;V5287^0^0^0^0
;;G0151^0^0^0^0
;;G0152^0^0^0^0
;;G0153^0^0^0^0
;;G0155^0^0^0^0
;;G0156^0^0^0^0
;;G9227^0^0^0^0
;;J1556^0^0^0^0
;;J3060^0^0^0^0
;;J7301^0^0^0^0
;;J9047^0^0^0^0
;;J9262^0^0^0^0
;;J9306^0^0^0^0
;;J9354^0^0^0^0
;;J9371^0^0^0^0
;;J9400^0^0^0^0
;;Q2028^0^0^0^0
;;Q2052^0^0^0^0
;;Q4138^0^0^0^0
;;Q4139^0^0^0^0
;;Q4141^0^0^0^0
;;Q4143^0^0^0^0
;;Q4145^0^0^0^0
;;Q4146^0^0^0^0
;;Q4149^0^0^0^0
;;Q4153^0^0^0^0
;;Q4158^0^0^0^0
;;Q5101^0^0^0^0
;;J7297^0^0^0^0
;;J7298^0^0^0^0
;;J7313^0^0^0^0
;;J8655^0^0^0^0
;;Q4162^0^0^0^0
;;Q4163^0^0^0^0
;;80161^0^0^0^0
;;81546^0^0^0^0
;;A4459^0^0^0^0
;;A4553^0^0^0^0
;;A9286^0^0^0^0
;;A9597^0^0^0^0
;;A9598^0^0^0^0
;;D1516^0^0^0^0
;;D1517^0^0^0^0
;;D1526^0^0^0^0
;;D1527^0^0^0^0
;;D1575^0^0^0^0
;;D5282^0^0^0^0
;;D5283^0^0^0^0
;;D5995^0^0^0^0
;;D5996^0^0^0^0
;;D6081^0^0^0^0
;;D7296^0^0^0^0
;;D7297^0^0^0^0
;;D9222^0^0^0^0
;;D9239^0^0^0^0
;;D9944^0^0^0^0
;;D9945^0^0^0^0
;;D9946^0^0^0^0
;;D9991^0^0^0^0
;;D9992^0^0^0^0
;;D9993^0^0^0^0
;;D9994^0^0^0^0
;;G0277^0^4.75^4.75^0.02
;;G0279-TC^0^0.73^0.73^0
;;G0279-26^0.6^0.22^0.22^0.04
;;G0467^0^0^0^0
;;G0468^0^0^0^0
;;G0469^0^0^0^0
;;G0470^0^0^0^0
;;G0490^0^0^0^0
;;G0513^1.17^0.62^0.51^0.09
;;G0514^1.17^0.62^0.5^0.09
;;G0516^1.82^4.33^0.81^0.23
;;G2022^0^0^0^0
;;G2083^0.7^25.54^0.17^0.05
;;G2087^6.89^2.93^0.9^0.25
;;G2088^0.82^1.05^0.11^0.04
;;G2113^0^0^0^0
;;G2250^0.18^0.16^0.08^0.01
;;G2251^0.25^0.15^0.11^0.02
;;G2252^0.5^0.23^0.19^0.04
;;G9394^0^0^0^0
;;G9455^0^0^0^0
;;G9515^0^0^0^0
;;G9582^0^0^0^0
;;G9746^0^0^0^0
;;G9753^0^0^0^0
;;G9771^0^0^0^0
;;G9783^0^0^0^0
;;G9789^0^0^0^0
;;G9832^0^0^0^0
;;G9918^0^0^0^0
;;J0121^0^0^0^0
;;J0122^0^0^0^0
;;J0179^0^0^0^0
;;J0185^0^0^0^0
;;J0202^0^0^0^0
;;J0222^0^0^0^0
;;J0291^0^0^0^0
;;J0517^0^0^0^0
;;J0565^0^0^0^0
;;J0567^0^0^0^0
;;J0584^0^0^0^0
;;J0591^0^0^0^0
;;J0593^0^0^0^0
;;J0596^0^0^0^0
;;J0599^0^0^0^0
;;J0604^0^0^0^0
;;J0606^0^0^0^0
;;J0642^0^0^0^0
;;J0693^0^0^0^0
;;J0875^0^0^0^0
;;J1301^0^0^0^0
;;J1303^0^0^0^0
;;J1322^0^0^0^0
;;J1428^0^0^0^0
;;J1454^0^0^0^0
;;J1555^0^0^0^0
;;J1558^0^0^0^0
;;J1627^0^0^0^0
;;J1628^0^0^0^0
;;J1632^0^0^0^0
;;J1726^0^0^0^0
;;J1746^0^0^0^0
;;J1823^0^0^0^0
;;J1833^0^0^0^0
;;J1943^0^0^0^0
;;J2182^0^0^0^0
;;J2186^0^0^0^0
;;J2326^0^0^0^0
;;J2407^0^0^0^0
;;J2502^0^0^0^0
;;J2547^0^0^0^0
;;J2704^0^0^0^0
;;J2786^0^0^0^0
;;J2797^0^0^0^0
;;J2798^0^0^0^0
;;J3031^0^0^0^0
;;J3316^0^0^0^0
;;J3358^0^0^0^0
;;J3380^0^0^0^0
;;J3397^0^0^0^0
;;J7169^0^0^0^0
;;J7170^0^0^0^0
;;J7175^0^0^0^0
;;J7177^0^0^0^0
;;J7210^0^0^0^0
;;J7211^0^0^0^0
;;J7296^0^0^0^0
;;J7314^0^0^0^0
;;J7318^0^0^0^0
;;J7329^0^0^0^0
;;J7331^0^0^0^0
;;J7332^0^0^0^0
;;J7352^0^0^0^0
;;J7999^0^0^0^0
;;J8670^0^0^0^0
;;J9022^0^0^0^0
;;J9023^0^0^0^0
;;J9032^0^0^0^0
;;J9034^0^0^0^0
;;J9039^0^0^0^0
;;J9044^0^0^0^0
;;J9057^0^0^0^0
;;J9119^0^0^0^0
;;J9144^0^0^0^0
;;J9145^0^0^0^0
;;J9153^0^0^0^0
;;J9173^0^0^0^0
;;J9176^0^0^0^0
;;J9198^0^0^0^0
;;J9204^0^0^0^0
;;J9210^0^0^0^0
;;J9223^0^0^0^0
;;J9246^0^0^0^0
;;J9285^0^0^0^0
;;J9295^0^0^0^0
;;J9299^0^0^0^0
;;J9304^0^0^0^0
;;J9308^0^0^0^0
;;J9309^0^0^0^0
;;J9311^0^0^0^0
;;J9312^0^0^0^0
;;J9313^0^0^0^0
;;J9316^0^0^0^0
;;J9356^0^0^0^0
;;M1006^0^0^0^0
;;M1057^0^0^0^0
;;M1145^0^0^0^0
;;Q4151^0^0^0^0
;;Q4164^0^0^0^0
;;Q4165^0^0^0^0
;;Q4166^0^0^0^0
;;Q4167^0^0^0^0
;;Q4168^0^0^0^0
;;Q4169^0^0^0^0
;;Q4170^0^0^0^0
;;Q4171^0^0^0^0
;;Q4176^0^0^0^0
;;Q4177^0^0^0^0
;;Q4178^0^0^0^0
;;Q4179^0^0^0^0
;;Q4180^0^0^0^0
;;Q4181^0^0^0^0
;;Q4182^0^0^0^0
;;Q4183^0^0^0^0
;;Q4189^0^0^0^0
;;Q4192^0^0^0^0
;;Q4202^0^0^0^0
;;Q4203^0^0^0^0
;;Q4212^0^0^0^0
;;Q4213^0^0^0^0
;;Q4215^0^0^0^0
;;Q4220^0^0^0^0
;;Q4222^0^0^0^0
;;Q4228^0^0^0^0
;;Q4231^0^0^0^0
;;Q4232^0^0^0^0
;;Q4234^0^0^0^0
;;Q4237^0^0^0^0
;;Q4238^0^0^0^0
;;Q4241^0^0^0^0
;;Q4242^0^0^0^0
;;Q4244^0^0^0^0
;;Q4245^0^0^0^0
;;Q4246^0^0^0^0
;;Q4247^0^0^0^0
;;Q4249^0^0^0^0
;;Q4255^0^0^0^0
;;Q5103^0^0^0^0
;;Q5104^0^0^0^0
;;Q5108^0^0^0^0
;;Q5109^0^0^0^0
;;Q5111^0^0^0^0
;;Q5116^0^0^0^0
;;Q5117^0^0^0^0
;;Q5118^0^0^0^0
;;Q5119^0^0^0^0
;;Q5121^0^0^0^0
;;Q5122^0^0^0^0
;;S0013^0^0^0^0
;;S5175^0^0^0^0
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFB35185P 12343 printed Sep 23, 2025@19:30:52 Page 2
FB35185P ;MNT/BJR - Update 2021 RVUs ; Sep 15, 2021@09:54
+1 ;;3.5;FEE BASIS;**185**;JAN 30, 1995;Build 2
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
EN ; Begin Post-Install
+1 ;Update RVUs
DO UPDATE
+2 QUIT
UPDATE ; Update 2021 RVUs with correct values
+1 DO BMES^XPDUTL(" Updating RVUs for 2021 fee schedule.")
+2 NEW FBRVU,FBIEN,FBCNT,FBCYIEN,FBWORK,FBNON,FBFAC,FBMAL,DA,DR,DIE
+3 FOR FBCNT=1:1
SET FBRVU=$PIECE($TEXT(RVUS+FBCNT),";;",2)
if FBRVU="QUIT"
QUIT
Begin DoDot:1
+4 SET FBIEN=$ORDER(^FB(162.97,"B",$PIECE(FBRVU,U),0))
if 'FBIEN
QUIT
+5 SET FBCYIEN=";"
FOR
SET FBCYIEN=$ORDER(^FB(162.97,FBIEN,"CY",FBCYIEN),-1)
IF $PIECE(^FB(162.97,FBIEN,"CY",FBCYIEN,0),U)=2021
Begin DoDot:2
+6 SET DA=FBCYIEN
SET DA(1)=FBIEN
SET FBWORK=$PIECE(FBRVU,U,2)
SET FBNON=$PIECE(FBRVU,U,3)
SET FBFAC=$PIECE(FBRVU,U,4)
SET FBMAL=$PIECE(FBRVU,U,5)
+7 SET DIE="^FB(162.97,"_DA(1)_",""CY"","
+8 SET DR=".03///^S X=FBWORK;.04///^S X=FBNON;.05///^S X=FBFAC;.06///^S X=FBMAL"
+9 DO ^DIE
End DoDot:2
QUIT
End DoDot:1
+10 QUIT
RVUS ;List or RVUs to update
+1 ;;G0141^0.26^0.36^0.36^0.01
+2 ;;G0166^0^3.35^3.35^0.04
+3 ;;G0278^0.25^0.09^0.09^0.05
+4 ;;G0279^0.6^0.95^0.95^0.04
+5 ;;G0288^0^0.93^0.93^0.1
+6 ;;G0289^1.48^0.75^0.75^0.28
+7 ;;G0238^0^0.28^0.28^0.01
+8 ;;G0239^0^0.34^0.34^0.01
+9 ;;A4363^0^0^0^0
+10 ;;A4364^0^0^0^0
+11 ;;A4556^0^0^0^0
+12 ;;A4557^0^0^0^0
+13 ;;A4670^0^0^0^0
+14 ;;A4680^0^0^0^0
+15 ;;A4690^0^0^0^0
+16 ;;A4730^0^0^0^0
+17 ;;A4760^0^0^0^0
+18 ;;A5081^0^0^0^0
+19 ;;A6025^0^0^0^0
+20 ;;D3310^0^0^0^0
+21 ;;D3320^0^0^0^0
+22 ;;D3330^0^0^0^0
+23 ;;G0143^0^0^0^0
+24 ;;G0144^0^0^0^0
+25 ;;G0145^0^0^0^0
+26 ;;G0147^0^0^0^0
+27 ;;G0148^0^0^0^0
+28 ;;J0585^0^0^0^0
+29 ;;J1095^0^0^0^0
+30 ;;J1562^0^0^0^0
+31 ;;J2350^0^0^0^0
+32 ;;J2792^0^0^0^0
+33 ;;J2860^0^0^0^0
+34 ;;J3365^0^0^0^0
+35 ;;J7320^0^0^0^0
+36 ;;J7513^0^0^0^0
+37 ;;J9020^0^0^0^0
+38 ;;P9019^0^0^0^0
+39 ;;Q0144^0^0^0^0
+40 ;;D0170^0^0^0^0
+41 ;;D0472^0^0^0^0
+42 ;;D0473^0^0^0^0
+43 ;;J3245^0^0^0^0
+44 ;;J8520^0^0^0^0
+45 ;;J8521^0^0^0^0
+46 ;;P9023^0^0^0^0
+47 ;;S0012^0^0^0^0
+48 ;;S0014^0^0^0^0
+49 ;;S0017^0^0^0^0
+50 ;;S0020^0^0^0^0
+51 ;;S0021^0^0^0^0
+52 ;;S0023^0^0^0^0
+53 ;;S0028^0^0^0^0
+54 ;;S0030^0^0^0^0
+55 ;;S0032^0^0^0^0
+56 ;;S0034^0^0^0^0
+57 ;;S0039^0^0^0^0
+58 ;;S0040^0^0^0^0
+59 ;;S0073^0^0^0^0
+60 ;;S0074^0^0^0^0
+61 ;;S0077^0^0^0^0
+62 ;;S0078^0^0^0^0
+63 ;;S0080^0^0^0^0
+64 ;;S0081^0^0^0^0
+65 ;;S0090^0^0^0^0
+66 ;;S2300^0^0^0^0
+67 ;;S2350^0^0^0^0
+68 ;;S2351^0^0^0^0
+69 ;;S3650^0^0^0^0
+70 ;;S3652^0^0^0^0
+71 ;;S8950^0^0^0^0
+72 ;;S9124^0^0^0^0
+73 ;;S9125^0^0^0^0
+74 ;;S9126^0^0^0^0
+75 ;;S9127^0^0^0^0
+76 ;;S9128^0^0^0^0
+77 ;;S9129^0^0^0^0
+78 ;;S9140^0^0^0^0
+79 ;;S9141^0^0^0^0
+80 ;;S9455^0^0^0^0
+81 ;;S9460^0^0^0^0
+82 ;;S9465^0^0^0^0
+83 ;;S9470^0^0^0^0
+84 ;;A4561^0^0^0^0
+85 ;;A4562^0^0^0^0
+86 ;;A7020^0^0^0^0
+87 ;;A9508^0^0^0^0
+88 ;;G0175^0^0^0^0
+89 ;;G0186^0^0^0^0
+90 ;;G9001^0^0^0^0
+91 ;;G9002^0^0^0^0
+92 ;;G9003^0^0^0^0
+93 ;;G9004^0^0^0^0
+94 ;;G9005^0^0^0^0
+95 ;;G9006^0^0^0^0
+96 ;;G9007^0^0^0^0
+97 ;;G9008^0^0^0^0
+98 ;;J7520^0^0^0^0
+99 ;;P9032^0^0^0^0
+100 ;;P9034^0^0^0^0
+101 ;;P9041^0^0^0^0
+102 ;;P9043^0^0^0^0
+103 ;;Q2017^0^0^0^0
+104 ;;S0156^0^0^0^0
+105 ;;S0157^0^0^0^0
+106 ;;S0221^0^0^0^0
+107 ;;S5000^0^0^0^0
+108 ;;S5001^0^0^0^0
+109 ;;A4736^0^0^0^0
+110 ;;A4929^0^0^0^0
+111 ;;G9009^0^0^0^0
+112 ;;G9010^0^0^0^0
+113 ;;G9011^0^0^0^0
+114 ;;J0587^0^0^0^0
+115 ;;J1270^0^0^0^0
+116 ;;J7316^0^0^0^0
+117 ;;P9045^0^0^0^0
+118 ;;P9046^0^0^0^0
+119 ;;P9047^0^0^0^0
+120 ;;P9048^0^0^0^0
+121 ;;P9050^0^0^0^0
+122 ;;Q4049^0^0^0^0
+123 ;;S0182^0^0^0^0
+124 ;;T1014^0^0^0^0
+125 ;;V5241^0^0^0^0
+126 ;;V5242^0^0^0^0
+127 ;;V5243^0^0^0^0
+128 ;;V5244^0^0^0^0
+129 ;;V5245^0^0^0^0
+130 ;;V5246^0^0^0^0
+131 ;;V5247^0^0^0^0
+132 ;;V5248^0^0^0^0
+133 ;;V5249^0^0^0^0
+134 ;;V5250^0^0^0^0
+135 ;;V5251^0^0^0^0
+136 ;;V5252^0^0^0^0
+137 ;;V5253^0^0^0^0
+138 ;;V5254^0^0^0^0
+139 ;;V5255^0^0^0^0
+140 ;;V5256^0^0^0^0
+141 ;;V5257^0^0^0^0
+142 ;;V5258^0^0^0^0
+143 ;;V5259^0^0^0^0
+144 ;;V5260^0^0^0^0
+145 ;;V5261^0^0^0^0
+146 ;;V5262^0^0^0^0
+147 ;;V5263^0^0^0^0
+148 ;;V5265^0^0^0^0
+149 ;;V5269^0^0^0^0
+150 ;;V5270^0^0^0^0
+151 ;;V5271^0^0^0^0
+152 ;;A4930^0^0^0^0
+153 ;;A6512^0^0^0^0
+154 ;;A7039^0^0^0^0
+155 ;;A9517^0^0^0^0
+156 ;;A9524^0^0^0^0
+157 ;;G0293^0^0^0^0
+158 ;;G0294^0^0^0^0
+159 ;;H0043^0^0^0^0
+160 ;;H0044^0^0^0^0
+161 ;;H0046^0^0^0^0
+162 ;;T1025^0^0^0^0
+163 ;;T1026^0^0^0^0
+164 ;;A4216^0^0^0^0
+165 ;;A4217^0^0^0^0
+166 ;;A4672^0^0^0^0
+167 ;;A4674^0^0^0^0
+168 ;;A4728^0^0^0^0
+169 ;;A6407^0^0^0^0
+170 ;;A7046^0^0^0^0
+171 ;;A9280^0^0^0^0
+172 ;;A9528^0^0^0^0
+173 ;;A9529^0^0^0^0
+174 ;;A9530^0^0^0^0
+175 ;;A9532^0^0^0^0
+176 ;;A9999^0^0^0^0
+177 ;;G0339^0^0^0^0
+178 ;;H2011^0^0^0^0
+179 ;;H2012^0^0^0^0
+180 ;;H2013^0^0^0^0
+181 ;;H2014^0^0^0^0
+182 ;;H2015^0^0^0^0
+183 ;;H2016^0^0^0^0
+184 ;;H2017^0^0^0^0
+185 ;;H2018^0^0^0^0
+186 ;;H2019^0^0^0^0
+187 ;;H2020^0^0^0^0
+188 ;;H2021^0^0^0^0
+189 ;;H2022^0^0^0^0
+190 ;;H2023^0^0^0^0
+191 ;;H2024^0^0^0^0
+192 ;;H2025^0^0^0^0
+193 ;;H2026^0^0^0^0
+194 ;;H2027^0^0^0^0
+195 ;;H2028^0^0^0^0
+196 ;;H2029^0^0^0^0
+197 ;;H2030^0^0^0^0
+198 ;;H2031^0^0^0^0
+199 ;;H2032^0^0^0^0
+200 ;;H2034^0^0^0^0
+201 ;;H2035^0^0^0^0
+202 ;;H2036^0^0^0^0
+203 ;;H2037^0^0^0^0
+204 ;;J2280^0^0^0^0
+205 ;;J2353^0^0^0^0
+206 ;;J2354^0^0^0^0
+207 ;;J2505^0^0^0^0
+208 ;;J3465^0^0^0^0
+209 ;;J9178^0^0^0^0
+210 ;;J9395^0^0^0^0
+211 ;;P9051^0^0^0^0
+212 ;;P9052^0^0^0^0
+213 ;;P9053^0^0^0^0
+214 ;;P9054^0^0^0^0
+215 ;;P9055^0^0^0^0
+216 ;;P9056^0^0^0^0
+217 ;;P9057^0^0^0^0
+218 ;;P9058^0^0^0^0
+219 ;;P9059^0^0^0^0
+220 ;;S0104^0^0^0^0
+221 ;;S0136^0^0^0^0
+222 ;;S0137^0^0^0^0
+223 ;;S0138^0^0^0^0
+224 ;;S0139^0^0^0^0
+225 ;;S0140^0^0^0^0
+226 ;;T2012^0^0^0^0
+227 ;;T2014^0^0^0^0
+228 ;;T2022^0^0^0^0
+229 ;;T2025^0^0^0^0
+230 ;;T2028^0^0^0^0
+231 ;;T2029^0^0^0^0
+232 ;;T2032^0^0^0^0
+233 ;;T2033^0^0^0^0
+234 ;;T2046^0^0^0^0
+235 ;;T2048^0^0^0^0
+236 ;;T5999^0^0^0^0
+237 ;;V2121^0^0^0^0
+238 ;;V2221^0^0^0^0
+239 ;;V2321^0^0^0^0
+240 ;;V2745^0^0^0^0
+241 ;;V2762^0^0^0^0
+242 ;;V2782^0^0^0^0
+243 ;;V2783^0^0^0^0
+244 ;;A9180^0^0^0^0
+245 ;;J2794^0^0^0^0
+246 ;;J7674^0^0^0^0
+247 ;;J9041^0^0^0^0
+248 ;;Q9951^0^0^0^0
+249 ;;Q9953^0^0^0^0
+250 ;;Q9954^0^0^0^0
+251 ;;Q9955^0^0^0^0
+252 ;;Q9956^0^0^0^0
+253 ;;Q9957^0^0^0^0
+254 ;;Q9958^0^0^0^0
+255 ;;Q9959^0^0^0^0
+256 ;;Q9960^0^0^0^0
+257 ;;Q9961^0^0^0^0
+258 ;;Q9962^0^0^0^0
+259 ;;Q9963^0^0^0^0
+260 ;;Q9964^0^0^0^0
+261 ;;T2049^0^0^0^0
+262 ;;J1640^0^0^0^0
+263 ;;J3355^0^0^0^0
+264 ;;Q0480^0^0^0^0
+265 ;;Q0481^0^0^0^0
+266 ;;Q0482^0^0^0^0
+267 ;;Q0483^0^0^0^0
+268 ;;Q0485^0^0^0^0
+269 ;;Q0487^0^0^0^0
+270 ;;Q0488^0^0^0^0
+271 ;;Q0489^0^0^0^0
+272 ;;Q0490^0^0^0^0
+273 ;;Q0492^0^0^0^0
+274 ;;Q0493^0^0^0^0
+275 ;;Q0494^0^0^0^0
+276 ;;Q0495^0^0^0^0
+277 ;;Q0496^0^0^0^0
+278 ;;Q0497^0^0^0^0
+279 ;;Q0498^0^0^0^0
+280 ;;Q0500^0^0^0^0
+281 ;;Q0501^0^0^0^0
+282 ;;Q0502^0^0^0^0
+283 ;;Q0504^0^0^0^0
+284 ;;S2117^0^0^0^0
+285 ;;A5120^0^0^0^0
+286 ;;A9542^0^0^0^0
+287 ;;A9543^0^0^0^0
+288 ;;A9554^0^0^0^0
+289 ;;J0365^0^0^0^0
+290 ;;J0881^0^0^0^0
+291 ;;J0882^0^0^0^0
+292 ;;J0885^0^0^0^0
+293 ;;J1451^0^0^0^0
+294 ;;J1566^0^0^0^0
+295 ;;J2504^0^0^0^0
+296 ;;J3471^0^0^0^0
+297 ;;J3472^0^0^0^0
+298 ;;J8515^0^0^0^0
+299 ;;Q0511^0^0^0^0
+300 ;;G9071^0^0^0^0
+301 ;;G9073^0^0^0^0
+302 ;;G9084^0^0^0^0
+303 ;;G9085^0^0^0^0
+304 ;;G9092^0^0^0^0
+305 ;;G9093^0^0^0^0
+306 ;;S0190^0^0^0^0
+307 ;;S0191^0^0^0^0
+308 ;;A4600^0^0^0^0
+309 ;;A8004^0^0^0^0
+310 ;;D0145^0^0^0^0
+311 ;;J2315^0^0^0^0
+312 ;;J7187^0^0^0^0
+313 ;;J7311^0^0^0^0
+314 ;;J7345^0^0^0^0
+315 ;;Q4081^0^0^0^0
+316 ;;Q5005^0^0^0^0
+317 ;;Q5009^0^0^0^0
+318 ;;A6413^0^0^0^0
+319 ;;A9276^0^0^0^0
+320 ;;A9277^0^0^0^0
+321 ;;A9278^0^0^0^0
+322 ;;A9579^0^0^0^0
+323 ;;G8432^0^0^0^0
+324 ;;J1573^0^0^0^0
+325 ;;Q9965^0^0^0^0
+326 ;;Q9966^0^0^0^0
+327 ;;Q9967^0^0^0^0
+328 ;;S9152^0^0^0^0
+329 ;;T1503^0^0^0^0
+330 ;;G0416^3.6^6.46^6.46^0.09
+331 ;;G0416-TC^0^4.99^4.99^0.04
+332 ;;G0416-26^3.6^1.47^1.47^0.05
+333 ;;G8510^0^0^0^0
+334 ;;G8511^0^0^0^0
+335 ;;J7606^0^0^0^0
+336 ;;J9033^0^0^0^0
+337 ;;Q4100^0^0^0^0
+338 ;;A4456^0^0^0^0
+339 ;;J0598^0^0^0^0
+340 ;;J0834^0^0^0^0
+341 ;;Q0138^0^0^0^0
+342 ;;Q0139^0^0^0^0
+343 ;;S0280^0^0^0^0
+344 ;;S0281^0^0^0^0
+345 ;;D1352^0^0^0^0
+346 ;;D7295^0^0^0^0
+347 ;;G0162^0^0^0^0
+348 ;;G0438^2.6^2.1^2.1^0.15
+349 ;;G0439^1.92^1.78^1.78^0.13
+350 ;;J0597^0^0^0^0
+351 ;;J0775^0^0^0^0
+352 ;;J1599^0^0^0^0
+353 ;;J3357^0^0^0^0
+354 ;;J7309^0^0^0^0
+355 ;;J7686^0^0^0^0
+356 ;;Q0478^0^0^0^0
+357 ;;Q0479^0^0^0^0
+358 ;;Q2035^0^0^0^0
+359 ;;Q2036^0^0^0^0
+360 ;;Q2037^0^0^0^0
+361 ;;Q2038^0^0^0^0
+362 ;;Q2039^0^0^0^0
+363 ;;T1505^0^0^0^0
+364 ;;A9272^0^0^0^0
+365 ;;G8721^0^0^0^0
+366 ;;G8722^0^0^0^0
+367 ;;G8724^0^0^0^0
+368 ;;G8808^0^0^0^0
+369 ;;G8883^0^0^0^0
+370 ;;G8885^0^0^0^0
+371 ;;Q4122^0^0^0^0
+372 ;;G8924^0^0^0^0
+373 ;;G8950^0^0^0^0
+374 ;;G8952^0^0^0^0
+375 ;;Q4132^0^0^0^0
+376 ;;V5281^0^0^0^0
+377 ;;V5283^0^0^0^0
+378 ;;V5287^0^0^0^0
+379 ;;G0151^0^0^0^0
+380 ;;G0152^0^0^0^0
+381 ;;G0153^0^0^0^0
+382 ;;G0155^0^0^0^0
+383 ;;G0156^0^0^0^0
+384 ;;G9227^0^0^0^0
+385 ;;J1556^0^0^0^0
+386 ;;J3060^0^0^0^0
+387 ;;J7301^0^0^0^0
+388 ;;J9047^0^0^0^0
+389 ;;J9262^0^0^0^0
+390 ;;J9306^0^0^0^0
+391 ;;J9354^0^0^0^0
+392 ;;J9371^0^0^0^0
+393 ;;J9400^0^0^0^0
+394 ;;Q2028^0^0^0^0
+395 ;;Q2052^0^0^0^0
+396 ;;Q4138^0^0^0^0
+397 ;;Q4139^0^0^0^0
+398 ;;Q4141^0^0^0^0
+399 ;;Q4143^0^0^0^0
+400 ;;Q4145^0^0^0^0
+401 ;;Q4146^0^0^0^0
+402 ;;Q4149^0^0^0^0
+403 ;;Q4153^0^0^0^0
+404 ;;Q4158^0^0^0^0
+405 ;;Q5101^0^0^0^0
+406 ;;J7297^0^0^0^0
+407 ;;J7298^0^0^0^0
+408 ;;J7313^0^0^0^0
+409 ;;J8655^0^0^0^0
+410 ;;Q4162^0^0^0^0
+411 ;;Q4163^0^0^0^0
+412 ;;80161^0^0^0^0
+413 ;;81546^0^0^0^0
+414 ;;A4459^0^0^0^0
+415 ;;A4553^0^0^0^0
+416 ;;A9286^0^0^0^0
+417 ;;A9597^0^0^0^0
+418 ;;A9598^0^0^0^0
+419 ;;D1516^0^0^0^0
+420 ;;D1517^0^0^0^0
+421 ;;D1526^0^0^0^0
+422 ;;D1527^0^0^0^0
+423 ;;D1575^0^0^0^0
+424 ;;D5282^0^0^0^0
+425 ;;D5283^0^0^0^0
+426 ;;D5995^0^0^0^0
+427 ;;D5996^0^0^0^0
+428 ;;D6081^0^0^0^0
+429 ;;D7296^0^0^0^0
+430 ;;D7297^0^0^0^0
+431 ;;D9222^0^0^0^0
+432 ;;D9239^0^0^0^0
+433 ;;D9944^0^0^0^0
+434 ;;D9945^0^0^0^0
+435 ;;D9946^0^0^0^0
+436 ;;D9991^0^0^0^0
+437 ;;D9992^0^0^0^0
+438 ;;D9993^0^0^0^0
+439 ;;D9994^0^0^0^0
+440 ;;G0277^0^4.75^4.75^0.02
+441 ;;G0279-TC^0^0.73^0.73^0
+442 ;;G0279-26^0.6^0.22^0.22^0.04
+443 ;;G0467^0^0^0^0
+444 ;;G0468^0^0^0^0
+445 ;;G0469^0^0^0^0
+446 ;;G0470^0^0^0^0
+447 ;;G0490^0^0^0^0
+448 ;;G0513^1.17^0.62^0.51^0.09
+449 ;;G0514^1.17^0.62^0.5^0.09
+450 ;;G0516^1.82^4.33^0.81^0.23
+451 ;;G2022^0^0^0^0
+452 ;;G2083^0.7^25.54^0.17^0.05
+453 ;;G2087^6.89^2.93^0.9^0.25
+454 ;;G2088^0.82^1.05^0.11^0.04
+455 ;;G2113^0^0^0^0
+456 ;;G2250^0.18^0.16^0.08^0.01
+457 ;;G2251^0.25^0.15^0.11^0.02
+458 ;;G2252^0.5^0.23^0.19^0.04
+459 ;;G9394^0^0^0^0
+460 ;;G9455^0^0^0^0
+461 ;;G9515^0^0^0^0
+462 ;;G9582^0^0^0^0
+463 ;;G9746^0^0^0^0
+464 ;;G9753^0^0^0^0
+465 ;;G9771^0^0^0^0
+466 ;;G9783^0^0^0^0
+467 ;;G9789^0^0^0^0
+468 ;;G9832^0^0^0^0
+469 ;;G9918^0^0^0^0
+470 ;;J0121^0^0^0^0
+471 ;;J0122^0^0^0^0
+472 ;;J0179^0^0^0^0
+473 ;;J0185^0^0^0^0
+474 ;;J0202^0^0^0^0
+475 ;;J0222^0^0^0^0
+476 ;;J0291^0^0^0^0
+477 ;;J0517^0^0^0^0
+478 ;;J0565^0^0^0^0
+479 ;;J0567^0^0^0^0
+480 ;;J0584^0^0^0^0
+481 ;;J0591^0^0^0^0
+482 ;;J0593^0^0^0^0
+483 ;;J0596^0^0^0^0
+484 ;;J0599^0^0^0^0
+485 ;;J0604^0^0^0^0
+486 ;;J0606^0^0^0^0
+487 ;;J0642^0^0^0^0
+488 ;;J0693^0^0^0^0
+489 ;;J0875^0^0^0^0
+490 ;;J1301^0^0^0^0
+491 ;;J1303^0^0^0^0
+492 ;;J1322^0^0^0^0
+493 ;;J1428^0^0^0^0
+494 ;;J1454^0^0^0^0
+495 ;;J1555^0^0^0^0
+496 ;;J1558^0^0^0^0
+497 ;;J1627^0^0^0^0
+498 ;;J1628^0^0^0^0
+499 ;;J1632^0^0^0^0
+500 ;;J1726^0^0^0^0
+501 ;;J1746^0^0^0^0
+502 ;;J1823^0^0^0^0
+503 ;;J1833^0^0^0^0
+504 ;;J1943^0^0^0^0
+505 ;;J2182^0^0^0^0
+506 ;;J2186^0^0^0^0
+507 ;;J2326^0^0^0^0
+508 ;;J2407^0^0^0^0
+509 ;;J2502^0^0^0^0
+510 ;;J2547^0^0^0^0
+511 ;;J2704^0^0^0^0
+512 ;;J2786^0^0^0^0
+513 ;;J2797^0^0^0^0
+514 ;;J2798^0^0^0^0
+515 ;;J3031^0^0^0^0
+516 ;;J3316^0^0^0^0
+517 ;;J3358^0^0^0^0
+518 ;;J3380^0^0^0^0
+519 ;;J3397^0^0^0^0
+520 ;;J7169^0^0^0^0
+521 ;;J7170^0^0^0^0
+522 ;;J7175^0^0^0^0
+523 ;;J7177^0^0^0^0
+524 ;;J7210^0^0^0^0
+525 ;;J7211^0^0^0^0
+526 ;;J7296^0^0^0^0
+527 ;;J7314^0^0^0^0
+528 ;;J7318^0^0^0^0
+529 ;;J7329^0^0^0^0
+530 ;;J7331^0^0^0^0
+531 ;;J7332^0^0^0^0
+532 ;;J7352^0^0^0^0
+533 ;;J7999^0^0^0^0
+534 ;;J8670^0^0^0^0
+535 ;;J9022^0^0^0^0
+536 ;;J9023^0^0^0^0
+537 ;;J9032^0^0^0^0
+538 ;;J9034^0^0^0^0
+539 ;;J9039^0^0^0^0
+540 ;;J9044^0^0^0^0
+541 ;;J9057^0^0^0^0
+542 ;;J9119^0^0^0^0
+543 ;;J9144^0^0^0^0
+544 ;;J9145^0^0^0^0
+545 ;;J9153^0^0^0^0
+546 ;;J9173^0^0^0^0
+547 ;;J9176^0^0^0^0
+548 ;;J9198^0^0^0^0
+549 ;;J9204^0^0^0^0
+550 ;;J9210^0^0^0^0
+551 ;;J9223^0^0^0^0
+552 ;;J9246^0^0^0^0
+553 ;;J9285^0^0^0^0
+554 ;;J9295^0^0^0^0
+555 ;;J9299^0^0^0^0
+556 ;;J9304^0^0^0^0
+557 ;;J9308^0^0^0^0
+558 ;;J9309^0^0^0^0
+559 ;;J9311^0^0^0^0
+560 ;;J9312^0^0^0^0
+561 ;;J9313^0^0^0^0
+562 ;;J9316^0^0^0^0
+563 ;;J9356^0^0^0^0
+564 ;;M1006^0^0^0^0
+565 ;;M1057^0^0^0^0
+566 ;;M1145^0^0^0^0
+567 ;;Q4151^0^0^0^0
+568 ;;Q4164^0^0^0^0
+569 ;;Q4165^0^0^0^0
+570 ;;Q4166^0^0^0^0
+571 ;;Q4167^0^0^0^0
+572 ;;Q4168^0^0^0^0
+573 ;;Q4169^0^0^0^0
+574 ;;Q4170^0^0^0^0
+575 ;;Q4171^0^0^0^0
+576 ;;Q4176^0^0^0^0
+577 ;;Q4177^0^0^0^0
+578 ;;Q4178^0^0^0^0
+579 ;;Q4179^0^0^0^0
+580 ;;Q4180^0^0^0^0
+581 ;;Q4181^0^0^0^0
+582 ;;Q4182^0^0^0^0
+583 ;;Q4183^0^0^0^0
+584 ;;Q4189^0^0^0^0
+585 ;;Q4192^0^0^0^0
+586 ;;Q4202^0^0^0^0
+587 ;;Q4203^0^0^0^0
+588 ;;Q4212^0^0^0^0
+589 ;;Q4213^0^0^0^0
+590 ;;Q4215^0^0^0^0
+591 ;;Q4220^0^0^0^0
+592 ;;Q4222^0^0^0^0
+593 ;;Q4228^0^0^0^0
+594 ;;Q4231^0^0^0^0
+595 ;;Q4232^0^0^0^0
+596 ;;Q4234^0^0^0^0
+597 ;;Q4237^0^0^0^0
+598 ;;Q4238^0^0^0^0
+599 ;;Q4241^0^0^0^0
+600 ;;Q4242^0^0^0^0
+601 ;;Q4244^0^0^0^0
+602 ;;Q4245^0^0^0^0
+603 ;;Q4246^0^0^0^0
+604 ;;Q4247^0^0^0^0
+605 ;;Q4249^0^0^0^0
+606 ;;Q4255^0^0^0^0
+607 ;;Q5103^0^0^0^0
+608 ;;Q5104^0^0^0^0
+609 ;;Q5108^0^0^0^0
+610 ;;Q5109^0^0^0^0
+611 ;;Q5111^0^0^0^0
+612 ;;Q5116^0^0^0^0
+613 ;;Q5117^0^0^0^0
+614 ;;Q5118^0^0^0^0
+615 ;;Q5119^0^0^0^0
+616 ;;Q5121^0^0^0^0
+617 ;;Q5122^0^0^0^0
+618 ;;S0013^0^0^0^0
+619 ;;S5175^0^0^0^0
+620 ;;QUIT
