Routine: FBXIP33B

FBXIP33B ;WCIOFO/MJE-IMPORT DOL CPT DATA ;9/18/2001

 ;;3.5;FEE BASIS;**33**;JAN 30, 1995

 ; load data into 162.97

MRGDOL ; MERGE HFCA RVU DATA

 N CPT,DOL,FBI,HCDATA,TBLN,X

 D BMES^XPDUTL("--Updating file 162.97")

 F FBI=1:1 S HCDATA=$P($T(DATA1+FBI),";;",2) Q:HCDATA="END"  D

 .S CPT=$P(HCDATA,U)

 .S Y=$O(^FB(162.97,"B",CPT,0))

 .I 'Y D  Q:Y'>0

 ..K DA,DIC

 ..S DIC="^FB(162.97,",DLAYGO=162.97,DIC(0)="L",X=CPT

 ..K DD,DO D FILE^DICN I Y'>0 D BMES^XPDUTL("ERROR ADDING NEW CPT "_CPT)

 ..K DIC,DLAYGO

.;

 .K DA,DIC

 .S DA(1)=+Y

 .S Y=$O(^FB(162.97,DA(1),"CY","B",2001,0))

 .I 'Y D  Q:Y'>0

 ..S DIC="^FB(162.97,"_DA(1)_",""CY"",",DIC(0)="L",DIC("P")="162.971A"

 ..S X=2001

 ..K DD,DO D FILE^DICN I Y'>0 D BMES^XPDUTL("ERROR ADDING 2001 RVU'S for "_CPT)

 ..K DIC,DLAYGO

 .S DA=+Y

 .S DIE="^FB(162.97,"_DA(1)_",""CY"","

 .S DR=""

 .S:$P(HCDATA,U,2)'="" DR=DR_".03///"_$P(HCDATA,U,2)

 .S:$P(HCDATA,U,3)'="" DR=DR_";"_".04///"_$P(HCDATA,U,3)

 .S:$P(HCDATA,U,4)'="" DR=DR_";"_".05///"_$P(HCDATA,U,4)

 .S:$P(HCDATA,U,5)'="" DR=DR_";"_".06///"_$P(HCDATA,U,5)

 .I $E(DR)=";" S DR=$E(DR,2,999)

 .D ^DIE K DIE,DA,DR

 ;MERGE DOL DATA INTO FILED HFCA DATA

 F FBI=1:1 S DOL=$P($T(DATA+FBI),";;",2) Q:DOL="END"  D

 .S TBLN="2001"_"-"_$P(DOL,U,2)

 .Q:$P(DOL,U,2)='""&('$D(^FB(162.98,"B",TBLN)))

 .S CPT=$P(DOL,U,3)

 .I '$O(^FB(162.97,"B",CPT,0)) D BMES^XPDUTL("CPT NOT IN FILE SKIPPING CPT "_CPT) Q

 .S DA(1)=+($O(^FB(162.97,"B",CPT,0)))

 .I '$O(^FB(162.97,DA(1),"CY","B",2001,0)) D BMES^XPDUTL("CY NOT IN FILE SKIPPING CPT "_CPT) Q

 .S DA=+($O(^FB(162.97,DA(1),"CY","B",2001,0)))

 .S DIE="^FB(162.97,"_DA(1)_",""CY"","

 .S:$P(DOL,U,2)'="" DR=".02///"_$P(DOL,U,2)

 .S:$P(DOL,U,2)="" DR=".02///@"

 .D ^DIE K DIE,DA,DR

 D BMES^XPDUTL("---Update of file 162.97 complete")

DATA ;This is the DOL MOD LVL data tablenumber^mod^%

 ;;60^61^78320

 ;;60^61^78803

 ;;60^61^78320-26

 ;;60^61^78320-TC

 ;;60^61^78803-26

 ;;60^61^78803-TC

 ;;14^^G0002

 ;;13^^G0004

 ;;12^^G0005

 ;;12^^G0006

 ;;10^^G0007

 ;;10^^G0015

 ;;13^^G0016

 ;;71^^G0025

 ;;50^^G0030-26

 ;;50^^G0031-26

 ;;50^^G0032-26

 ;;50^^G0033-26

 ;;50^^G0034-26

 ;;50^^G0035-26

 ;;50^^G0036-26

 ;;50^^G0037-26

 ;;50^^G0038-26

 ;;50^^G0039-26

 ;;50^^G0040-26

 ;;50^^G0041-26

 ;;50^^G0042-26

 ;;50^^G0043-26

 ;;50^^G0044-26

 ;;50^^G0045-26

 ;;50^^G0046-26

 ;;50^^G0047-26

 ;;52^^G0050

 ;;14^^G0101

 ;;31^^G0104

 ;;31^^G0105

 ;;20^^G0106

 ;;30^^G0106-26

 ;;30^^G0106-TC

 ;;14^^G0108

 ;;14^^G0109

 ;;14^^G0110

 ;;14^^G0111

 ;;14^^G0112

 ;;14^^G0113

 ;;14^^G0114

 ;;14^^G0115

 ;;14^^G0116

 ;;20^^G0120

 ;;20^^G0120-26

 ;;20^^G0120-TC

 ;;71^^G0124

 ;;52^^G0125

 ;;52^^G0125-26

 ;;52^^G0125-TC

 ;;52^^G0126

 ;;52^^G0126-26

 ;;52^^G0126-TC

 ;;31^^G0127

 ;;13^^G0128

 ;;52^^G0130

 ;;52^^G0130-26

 ;;52^^G0130-TC

 ;;52^^G0131

 ;;52^^G0131-26

 ;;52^^G0131-TC

 ;;52^^G0132

 ;;52^^G0132-26

 ;;52^^G0132-TC

 ;;71^^G0141

 ;;13^^M0064

 ;;71^^P3001

 ;;15^^Q0035

 ;;15^^Q0035-26

 ;;15^^Q0035-TC

 ;;20^^Q0091

 ;;50^^Q0092

 ;;14^^G0102

 ;;55^^G0163

 ;;55^^G0163-26

 ;;55^^G0163-TC

 ;;55^^G0164

 ;;55^^G0164-26

 ;;55^^G0164-TC

 ;;55^^G0165

 ;;55^^G0165-26

 ;;55^^G0165-TC

 ;;13^^G0166

 ;;31^^G0168

 ;;^12^94760

 ;;^12^94761

 ;;^31^15342

 ;;^21^15343

 ;;^31^16036

 ;;^33^19102

 ;;^33^19103

 ;;^50^19295

 ;;^21^20979

 ;;^38^21199

 ;;^10^22520

 ;;^10^22521

 ;;^10^22522

 ;;^30^30465

 ;;^30^33141

 ;;^30^34800

 ;;^35^34802

 ;;^30^34804

 ;;^35^34808

 ;;^35^34812

 ;;^35^34813

 ;;^35^34820

 ;;^35^34825

 ;;^35^34826

 ;;^35^34830

 ;;^35^34831

 ;;^35^34832

 ;;^30^35600

 ;;^31^36870

 ;;^46^43231

 ;;^46^43232

 ;;^46^43240

 ;;^46^43242

 ;;^46^43256

 ;;^46^44370

 ;;^46^44379

 ;;^46^44383

 ;;^46^44397

 ;;^46^45327

 ;;^46^45341

 ;;^46^45342

 ;;^46^45345

 ;;^46^45387

 ;;^30^50545

 ;;^30^50947

 ;;^30^50948

 ;;^31^52341

 ;;^31^52342

 ;;^31^52343

 ;;^31^52344

 ;;^31^52345

 ;;^31^52346

 ;;^31^52351

 ;;^31^52352

 ;;^31^52353

 ;;^31^52354

 ;;^31^52355

 ;;^31^52400

 ;;^36^54512

 ;;^36^54522

 ;;^38^55873

 ;;^30^57022

 ;;^30^57023

 ;;^38^57287

 ;;^32^58353

 ;;^38^61697

 ;;^38^61698

 ;;^38^62252

 ;;^33^64614

 ;;^34^66982

 ;;^33^67221

 ;;^38^69714

 ;;^38^69715

 ;;^38^69717

 ;;^38^69718

 ;;^50^70496

 ;;^50^70498

 ;;^50^70542

 ;;^50^70543

 ;;^50^70544

 ;;^50^70545

 ;;^50^70546

 ;;^50^70547

 ;;^50^70548

 ;;^50^70549

 ;;^50^71275

 ;;^50^71551

 ;;^50^71552

 ;;^50^72191

 ;;^50^72195

 ;;^50^72197

 ;;^50^73206

 ;;^50^73218

 ;;^50^73219

 ;;^50^73222

 ;;^50^73223

 ;;^50^73706

 ;;^50^73718

 ;;^50^73719

 ;;^50^73722

 ;;^50^73723

 ;;^50^74175

 ;;^50^74182

 ;;^50^74183

 ;;^50^75635

 ;;^50^75952

 ;;^50^75953

 ;;^50^76012

 ;;^50^76013

 ;;^50^76393

 ;;^50^76819

 ;;^15^92586

 ;;^15^93660

 ;;^15^93662

 ;;^05^97532

 ;;^05^97533

 ;;^05^97601

 ;;^38^62252-26

 ;;^38^62252-TC

 ;;^50^70496-26

 ;;^50^70496-TC

 ;;^50^70498-26

 ;;^50^70498-TC

 ;;^50^70542-26

 ;;^50^70542-TC

 ;;^50^70543-26

 ;;^50^70543-TC

 ;;^50^70544-26

 ;;^50^70544-TC

 ;;^50^70545-26

 ;;^50^70545-TC

 ;;^50^70546-26

 ;;^50^70546-TC

 ;;^50^70547-26

 ;;^50^70547-TC

 ;;^50^70548-26

 ;;^50^70548-TC

 ;;^50^70549-26

 ;;^50^70549-TC

 ;;^50^71275-26

 ;;^50^71275-TC

 ;;^50^71551-26

 ;;^50^71551-TC

 ;;^50^71552-26

 ;;^50^71552-TC

 ;;^50^72191-26

 ;;^50^72191-TC

 ;;^50^72195-26

 ;;^50^72195-TC

 ;;^50^72197-26

 ;;^50^72197-TC

 ;;^50^73206-26

 ;;^50^73206-TC

 ;;^50^73218-26

 ;;^50^73218-TC

 ;;^50^73219-26

 ;;^50^73219-TC

 ;;^50^73222-26

 ;;^50^73222-TC

 ;;^50^73223-26

 ;;^50^73223-TC

 ;;^50^73706-26

 ;;^50^73706-TC

 ;;^50^73718-26

 ;;^50^73718-TC

 ;;^50^73719-26

 ;;^50^73719-TC

 ;;^50^73722-26

 ;;^50^73722-TC

 ;;^50^73723-26

 ;;^50^73723-TC

 ;;^50^74175-26

 ;;^50^74175-TC

 ;;^50^74182-26

 ;;^50^74182-TC

 ;;^50^74183-26

 ;;^50^74183-TC

 ;;^50^75635-26

 ;;^50^75635-TC

 ;;^50^76393-26

 ;;^50^76393-TC

 ;;^50^76819-26

 ;;^50^76819-TC

 ;;^15^93660-TC

 ;;^15^93662-26

 ;;^15^93662-TC

 ;;END

DATA1 ;This is the HCFA data CPT^work rvu^non-fac rvu^fac rvu^mp rvu

 ;;59150^11.2^5.79^5.79^

 ;;59151^11.1^6.53^6.53^

 ;;70540^1.1^11.72^11.72^

 ;;70542^1.33^13.81^13.81^

 ;;70543^1.76^25.34^25.34^

 ;;71550^1.22^11.77^11.77^

 ;;71551^1.44^13.85^13.85^

 ;;71552^1.89^25.38^25.38^

 ;;72195^1.22^11.56^11.56^

 ;;72196^1.44^13.48^13.48^

 ;;72197^1.89^25.38^25.38^

 ;;73218^1.1^11.52^11.52^

 ;;73219^1.33^13.82^13.82^

 ;;73220^1.76^22.08^22.08^

 ;;73221^1.1^11.66^11.66^

 ;;73222^1.33^13.81^13.81^

 ;;73223^1.76^25.34^25.34^

 ;;73718^1.1^11.52^11.52^

 ;;73719^1.33^13.81^13.81^

 ;;73720^1.76^22.08^22.08^

 ;;73721^1.1^11.66^11.66^

 ;;73722^1.33^13.82^13.82^

 ;;73723^1.76^25.34^25.34^

 ;;74181^1.22^11.77^11.77^

 ;;74182^1.44^13.85^13.85^

 ;;74183^1.89^25.38^25.38^

 ;;76012^^^^.23

 ;;99234^2.56^.88^.88^

 ;;99235^3.42^1.19^1.19^

 ;;99236^4.27^1.41^1.41^

 ;;70540-26^1.1^.47^.47^

 ;;70542-26^1.33^.47^.47^

 ;;70543-26^1.76^.63^.63^

 ;;71550-26^1.22^.52^.52^

 ;;71551-26^1.44^.51^.51^

 ;;71552-26^1.89^.67^.67^

 ;;72195-26^1.22^.43^.43^

 ;;72196-26^1.44^.58^.58^

 ;;72197-26^1.89^.67^.67^

 ;;73218-26^1.1^.39^.39^

 ;;73219-26^1.33^.48^.48^

 ;;73220-26^1.76^.65^.65^

 ;;73221-26^1.1^.41^.41^

 ;;73222-26^1.33^.47^.47^

 ;;73223-26^1.76^.63^.63^

 ;;73718-26^1.1^.39^.39^

 ;;73719-26^1.33^.47^.47^

 ;;73720-26^1.76^.65^.65^

 ;;73721-26^1.1^.41^.41^

 ;;73722-26^1.33^.48^.48^

 ;;73723-26^1.76^.63^.63^

 ;;74181-26^1.22^.52^.52^

 ;;74182-26^1.44^.51^.51^

 ;;74183-26^1.89^.67^.67^

 ;;G0195^1.50^1.64^0.86^0.07

 ;;G0196^1.50^1.64^0.86^0.07

 ;;G0206^0.58^1.25^1.25^0.08

 ;;G0206-26^0.58^0.19^0.19^0.03

 ;;G0206-TC^0.00^1.06^1.06^0.05

 ;;G0207^0.58^1.25^1.25^0.08

 ;;G0207-26^0.58^0.19^0.19^0.03

 ;;G0207-TC^0.00^1.06^1.06^0.05

 ;;END

 ;FBXIP33B

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBXIP33B   7904     printed  Mar 13, 2025@21:06:36                                                                                                                                                                                                    Page 2

FBXIP33B  ;WCIOFO/MJE-IMPORT DOL CPT DATA ;9/18/2001

 +1       ;;3.5;FEE BASIS;**33**;JAN 30, 1995

 +2        QUIT

 +3       ;

 +4       ; load data into 162.97

MRGDOL    ; MERGE HFCA RVU DATA

 +1        NEW CPT,DOL,FBI,HCDATA,TBLN,X

 +2        DO BMES^XPDUTL("--Updating file 162.97")

 +3        FOR FBI=1:1

               SET HCDATA=$PIECE($TEXT(DATA1+FBI),";;",2)

               if HCDATA="END"

                   QUIT

               Begin DoDot:1

 +4                SET CPT=$PIECE(HCDATA,U)

 +5                SET Y=$ORDER(^FB(162.97,"B",CPT,0))

 +6                IF 'Y

                       Begin DoDot:2

 +7                        KILL DA,DIC

 +8                        SET DIC="^FB(162.97,"

                           SET DLAYGO=162.97

                           SET DIC(0)="L"

                           SET X=CPT

 +9                        KILL DD,DO

                           DO FILE^DICN

                           IF Y'>0

                               DO BMES^XPDUTL("ERROR ADDING NEW CPT "_CPT)

 +10                       KILL DIC,DLAYGO

                       End DoDot:2

                       if Y'>0

                           QUIT

 +11      ;

 +12               KILL DA,DIC

 +13               SET DA(1)=+Y

 +14               SET Y=$ORDER(^FB(162.97,DA(1),"CY","B",2001,0))

 +15               IF 'Y

                       Begin DoDot:2

 +16                       SET DIC="^FB(162.97,"_DA(1)_",""CY"","

                           SET DIC(0)="L"

                           SET DIC("P")="162.971A"

 +17                       SET X=2001

 +18                       KILL DD,DO

                           DO FILE^DICN

                           IF Y'>0

                               DO BMES^XPDUTL("ERROR ADDING 2001 RVU'S for "_CPT)

 +19                       KILL DIC,DLAYGO

                       End DoDot:2

                       if Y'>0

                           QUIT

 +20               SET DA=+Y

 +21               SET DIE="^FB(162.97,"_DA(1)_",""CY"","

 +22               SET DR=""

 +23               if $PIECE(HCDATA,U,2)'=""

                       SET DR=DR_".03///"_$PIECE(HCDATA,U,2)

 +24               if $PIECE(HCDATA,U,3)'=""

                       SET DR=DR_";"_".04///"_$PIECE(HCDATA,U,3)

 +25               if $PIECE(HCDATA,U,4)'=""

                       SET DR=DR_";"_".05///"_$PIECE(HCDATA,U,4)

 +26               if $PIECE(HCDATA,U,5)'=""

                       SET DR=DR_";"_".06///"_$PIECE(HCDATA,U,5)

 +27               IF $EXTRACT(DR)=";"

                       SET DR=$EXTRACT(DR,2,999)

 +28               DO ^DIE

                   KILL DIE,DA,DR

               End DoDot:1

 +29      ;

 +30      ;MERGE DOL DATA INTO FILED HFCA DATA

 +31      ;

 +32       FOR FBI=1:1

               SET DOL=$PIECE($TEXT(DATA+FBI),";;",2)

               if DOL="END"

                   QUIT

               Begin DoDot:1

 +33               SET TBLN="2001"_"-"_$PIECE(DOL,U,2)

 +34               if $PIECE(DOL,U,2)='""&('$DATA(^FB(162.98,"B",TBLN)))

                       QUIT

 +35               SET CPT=$PIECE(DOL,U,3)

 +36               IF '$ORDER(^FB(162.97,"B",CPT,0))

                       DO BMES^XPDUTL("CPT NOT IN FILE SKIPPING CPT "_CPT)

                       QUIT

 +37               SET DA(1)=+($ORDER(^FB(162.97,"B",CPT,0)))

 +38               IF '$ORDER(^FB(162.97,DA(1),"CY","B",2001,0))

                       DO BMES^XPDUTL("CY NOT IN FILE SKIPPING CPT "_CPT)

                       QUIT

 +39               SET DA=+($ORDER(^FB(162.97,DA(1),"CY","B",2001,0)))

 +40               SET DIE="^FB(162.97,"_DA(1)_",""CY"","

 +41               if $PIECE(DOL,U,2)'=""

                       SET DR=".02///"_$PIECE(DOL,U,2)

 +42               if $PIECE(DOL,U,2)=""

                       SET DR=".02///@"

 +43               DO ^DIE

                   KILL DIE,DA,DR

               End DoDot:1

 +44      ;

 +45      ;

 +46      ;

 +47       DO BMES^XPDUTL("---Update of file 162.97 complete")

 +48       QUIT

 +49      ;

DATA      ;This is the DOL MOD LVL data tablenumber^mod^%

 +1       ;;60^61^78320

 +2       ;;60^61^78803

 +3       ;;60^61^78320-26

 +4       ;;60^61^78320-TC

 +5       ;;60^61^78803-26

 +6       ;;60^61^78803-TC

 +7       ;;14^^G0002

 +8       ;;13^^G0004

 +9       ;;12^^G0005

 +10      ;;12^^G0006

 +11      ;;10^^G0007

 +12      ;;10^^G0015

 +13      ;;13^^G0016

 +14      ;;71^^G0025

 +15      ;;50^^G0030-26

 +16      ;;50^^G0031-26

 +17      ;;50^^G0032-26

 +18      ;;50^^G0033-26

 +19      ;;50^^G0034-26

 +20      ;;50^^G0035-26

 +21      ;;50^^G0036-26

 +22      ;;50^^G0037-26

 +23      ;;50^^G0038-26

 +24      ;;50^^G0039-26

 +25      ;;50^^G0040-26

 +26      ;;50^^G0041-26

 +27      ;;50^^G0042-26

 +28      ;;50^^G0043-26

 +29      ;;50^^G0044-26

 +30      ;;50^^G0045-26

 +31      ;;50^^G0046-26

 +32      ;;50^^G0047-26

 +33      ;;52^^G0050

 +34      ;;14^^G0101

 +35      ;;31^^G0104

 +36      ;;31^^G0105

 +37      ;;20^^G0106

 +38      ;;30^^G0106-26

 +39      ;;30^^G0106-TC

 +40      ;;14^^G0108

 +41      ;;14^^G0109

 +42      ;;14^^G0110

 +43      ;;14^^G0111

 +44      ;;14^^G0112

 +45      ;;14^^G0113

 +46      ;;14^^G0114

 +47      ;;14^^G0115

 +48      ;;14^^G0116

 +49      ;;20^^G0120

 +50      ;;20^^G0120-26

 +51      ;;20^^G0120-TC

 +52      ;;71^^G0124

 +53      ;;52^^G0125

 +54      ;;52^^G0125-26

 +55      ;;52^^G0125-TC

 +56      ;;52^^G0126

 +57      ;;52^^G0126-26

 +58      ;;52^^G0126-TC

 +59      ;;31^^G0127

 +60      ;;13^^G0128

 +61      ;;52^^G0130

 +62      ;;52^^G0130-26

 +63      ;;52^^G0130-TC

 +64      ;;52^^G0131

 +65      ;;52^^G0131-26

 +66      ;;52^^G0131-TC

 +67      ;;52^^G0132

 +68      ;;52^^G0132-26

 +69      ;;52^^G0132-TC

 +70      ;;71^^G0141

 +71      ;;13^^M0064

 +72      ;;71^^P3001

 +73      ;;15^^Q0035

 +74      ;;15^^Q0035-26

 +75      ;;15^^Q0035-TC

 +76      ;;20^^Q0091

 +77      ;;50^^Q0092

 +78      ;;14^^G0102

 +79      ;;55^^G0163

 +80      ;;55^^G0163-26

 +81      ;;55^^G0163-TC

 +82      ;;55^^G0164

 +83      ;;55^^G0164-26

 +84      ;;55^^G0164-TC

 +85      ;;55^^G0165

 +86      ;;55^^G0165-26

 +87      ;;55^^G0165-TC

 +88      ;;13^^G0166

 +89      ;;31^^G0168

 +90      ;;^12^94760

 +91      ;;^12^94761

 +92      ;;^31^15342

 +93      ;;^21^15343

 +94      ;;^31^16036

 +95      ;;^33^19102

 +96      ;;^33^19103

 +97      ;;^50^19295

 +98      ;;^21^20979

 +99      ;;^38^21199

 +100     ;;^10^22520

 +101     ;;^10^22521

 +102     ;;^10^22522

 +103     ;;^30^30465

 +104     ;;^30^33141

 +105     ;;^30^34800

 +106     ;;^35^34802

 +107     ;;^30^34804

 +108     ;;^35^34808

 +109     ;;^35^34812

 +110     ;;^35^34813

 +111     ;;^35^34820

 +112     ;;^35^34825

 +113     ;;^35^34826

 +114     ;;^35^34830

 +115     ;;^35^34831

 +116     ;;^35^34832

 +117     ;;^30^35600

 +118     ;;^31^36870

 +119     ;;^46^43231

 +120     ;;^46^43232

 +121     ;;^46^43240

 +122     ;;^46^43242

 +123     ;;^46^43256

 +124     ;;^46^44370

 +125     ;;^46^44379

 +126     ;;^46^44383

 +127     ;;^46^44397

 +128     ;;^46^45327

 +129     ;;^46^45341

 +130     ;;^46^45342

 +131     ;;^46^45345

 +132     ;;^46^45387

 +133     ;;^30^50545

 +134     ;;^30^50947

 +135     ;;^30^50948

 +136     ;;^31^52341

 +137     ;;^31^52342

 +138     ;;^31^52343

 +139     ;;^31^52344

 +140     ;;^31^52345

 +141     ;;^31^52346

 +142     ;;^31^52351

 +143     ;;^31^52352

 +144     ;;^31^52353

 +145     ;;^31^52354

 +146     ;;^31^52355

 +147     ;;^31^52400

 +148     ;;^36^54512

 +149     ;;^36^54522

 +150     ;;^38^55873

 +151     ;;^30^57022

 +152     ;;^30^57023

 +153     ;;^38^57287

 +154     ;;^32^58353

 +155     ;;^38^61697

 +156     ;;^38^61698

 +157     ;;^38^62252

 +158     ;;^33^64614

 +159     ;;^34^66982

 +160     ;;^33^67221

 +161     ;;^38^69714

 +162     ;;^38^69715

 +163     ;;^38^69717

 +164     ;;^38^69718

 +165     ;;^50^70496

 +166     ;;^50^70498

 +167     ;;^50^70542

 +168     ;;^50^70543

 +169     ;;^50^70544

 +170     ;;^50^70545

 +171     ;;^50^70546

 +172     ;;^50^70547

 +173     ;;^50^70548

 +174     ;;^50^70549

 +175     ;;^50^71275

 +176     ;;^50^71551

 +177     ;;^50^71552

 +178     ;;^50^72191

 +179     ;;^50^72195

 +180     ;;^50^72197

 +181     ;;^50^73206

 +182     ;;^50^73218

 +183     ;;^50^73219

 +184     ;;^50^73222

 +185     ;;^50^73223

 +186     ;;^50^73706

 +187     ;;^50^73718

 +188     ;;^50^73719

 +189     ;;^50^73722

 +190     ;;^50^73723

 +191     ;;^50^74175

 +192     ;;^50^74182

 +193     ;;^50^74183

 +194     ;;^50^75635

 +195     ;;^50^75952

 +196     ;;^50^75953

 +197     ;;^50^76012

 +198     ;;^50^76013

 +199     ;;^50^76393

 +200     ;;^50^76819

 +201     ;;^15^92586

 +202     ;;^15^93660

 +203     ;;^15^93662

 +204     ;;^05^97532

 +205     ;;^05^97533

 +206     ;;^05^97601

 +207     ;;^38^62252-26

 +208     ;;^38^62252-TC

 +209     ;;^50^70496-26

 +210     ;;^50^70496-TC

 +211     ;;^50^70498-26

 +212     ;;^50^70498-TC

 +213     ;;^50^70542-26

 +214     ;;^50^70542-TC

 +215     ;;^50^70543-26

 +216     ;;^50^70543-TC

 +217     ;;^50^70544-26

 +218     ;;^50^70544-TC

 +219     ;;^50^70545-26

 +220     ;;^50^70545-TC

 +221     ;;^50^70546-26

 +222     ;;^50^70546-TC

 +223     ;;^50^70547-26

 +224     ;;^50^70547-TC

 +225     ;;^50^70548-26

 +226     ;;^50^70548-TC

 +227     ;;^50^70549-26

 +228     ;;^50^70549-TC

 +229     ;;^50^71275-26

 +230     ;;^50^71275-TC

 +231     ;;^50^71551-26

 +232     ;;^50^71551-TC

 +233     ;;^50^71552-26

 +234     ;;^50^71552-TC

 +235     ;;^50^72191-26

 +236     ;;^50^72191-TC

 +237     ;;^50^72195-26

 +238     ;;^50^72195-TC

 +239     ;;^50^72197-26

 +240     ;;^50^72197-TC

 +241     ;;^50^73206-26

 +242     ;;^50^73206-TC

 +243     ;;^50^73218-26

 +244     ;;^50^73218-TC

 +245     ;;^50^73219-26

 +246     ;;^50^73219-TC

 +247     ;;^50^73222-26

 +248     ;;^50^73222-TC

 +249     ;;^50^73223-26

 +250     ;;^50^73223-TC

 +251     ;;^50^73706-26

 +252     ;;^50^73706-TC

 +253     ;;^50^73718-26

 +254     ;;^50^73718-TC

 +255     ;;^50^73719-26

 +256     ;;^50^73719-TC

 +257     ;;^50^73722-26

 +258     ;;^50^73722-TC

 +259     ;;^50^73723-26

 +260     ;;^50^73723-TC

 +261     ;;^50^74175-26

 +262     ;;^50^74175-TC

 +263     ;;^50^74182-26

 +264     ;;^50^74182-TC

 +265     ;;^50^74183-26

 +266     ;;^50^74183-TC

 +267     ;;^50^75635-26

 +268     ;;^50^75635-TC

 +269     ;;^50^76393-26

 +270     ;;^50^76393-TC

 +271     ;;^50^76819-26

 +272     ;;^50^76819-TC

 +273     ;;^15^93660-TC

 +274     ;;^15^93662-26

 +275     ;;^15^93662-TC

 +276     ;;END

 +277     ;

DATA1     ;This is the HCFA data CPT^work rvu^non-fac rvu^fac rvu^mp rvu

 +1       ;;59150^11.2^5.79^5.79^

 +2       ;;59151^11.1^6.53^6.53^

 +3       ;;70540^1.1^11.72^11.72^

 +4       ;;70542^1.33^13.81^13.81^

 +5       ;;70543^1.76^25.34^25.34^

 +6       ;;71550^1.22^11.77^11.77^

 +7       ;;71551^1.44^13.85^13.85^

 +8       ;;71552^1.89^25.38^25.38^

 +9       ;;72195^1.22^11.56^11.56^

 +10      ;;72196^1.44^13.48^13.48^

 +11      ;;72197^1.89^25.38^25.38^

 +12      ;;73218^1.1^11.52^11.52^

 +13      ;;73219^1.33^13.82^13.82^

 +14      ;;73220^1.76^22.08^22.08^

 +15      ;;73221^1.1^11.66^11.66^

 +16      ;;73222^1.33^13.81^13.81^

 +17      ;;73223^1.76^25.34^25.34^

 +18      ;;73718^1.1^11.52^11.52^

 +19      ;;73719^1.33^13.81^13.81^

 +20      ;;73720^1.76^22.08^22.08^

 +21      ;;73721^1.1^11.66^11.66^

 +22      ;;73722^1.33^13.82^13.82^

 +23      ;;73723^1.76^25.34^25.34^

 +24      ;;74181^1.22^11.77^11.77^

 +25      ;;74182^1.44^13.85^13.85^

 +26      ;;74183^1.89^25.38^25.38^

 +27      ;;76012^^^^.23

 +28      ;;99234^2.56^.88^.88^

 +29      ;;99235^3.42^1.19^1.19^

 +30      ;;99236^4.27^1.41^1.41^

 +31      ;;70540-26^1.1^.47^.47^

 +32      ;;70542-26^1.33^.47^.47^

 +33      ;;70543-26^1.76^.63^.63^

 +34      ;;71550-26^1.22^.52^.52^

 +35      ;;71551-26^1.44^.51^.51^

 +36      ;;71552-26^1.89^.67^.67^

 +37      ;;72195-26^1.22^.43^.43^

 +38      ;;72196-26^1.44^.58^.58^

 +39      ;;72197-26^1.89^.67^.67^

 +40      ;;73218-26^1.1^.39^.39^

 +41      ;;73219-26^1.33^.48^.48^

 +42      ;;73220-26^1.76^.65^.65^

 +43      ;;73221-26^1.1^.41^.41^

 +44      ;;73222-26^1.33^.47^.47^

 +45      ;;73223-26^1.76^.63^.63^

 +46      ;;73718-26^1.1^.39^.39^

 +47      ;;73719-26^1.33^.47^.47^

 +48      ;;73720-26^1.76^.65^.65^

 +49      ;;73721-26^1.1^.41^.41^

 +50      ;;73722-26^1.33^.48^.48^

 +51      ;;73723-26^1.76^.63^.63^

 +52      ;;74181-26^1.22^.52^.52^

 +53      ;;74182-26^1.44^.51^.51^

 +54      ;;74183-26^1.89^.67^.67^

 +55      ;;G0195^1.50^1.64^0.86^0.07

 +56      ;;G0196^1.50^1.64^0.86^0.07

 +57      ;;G0206^0.58^1.25^1.25^0.08

 +58      ;;G0206-26^0.58^0.19^0.19^0.03

 +59      ;;G0206-TC^0.00^1.06^1.06^0.05

 +60      ;;G0207^0.58^1.25^1.25^0.08

 +61      ;;G0207-26^0.58^0.19^0.19^0.03

 +62      ;;G0207-TC^0.00^1.06^1.06^0.05

 +63      ;;END

 +64      ;

 +65      ;FBXIP33B

FBXIP33B.m