ADEADRVU ; IHS/SET/HMW - Populate the ADA Code file with RVU's ;
;;6.0;ADE;**15**;JAN 01, 2004
;
; This routine is part of the post init for V6.0 Patch 15. It's
; called from ADE60P15. It populates RVU's in the ADA Code file
; for the first time.
;
; ********************************************************************
; Lookup data below ($T of linetag 1)...
N ADED,ADECNT
S ADED=";;"
S ADECNT=0
F D FINDATA Q:ADEVALUE="END"
Q
; ********************************************************************
;
FINDATA ;
S ADECNT=ADECNT+1
S ADEVALUE=$P($T(@1+ADECNT),ADED,2,4)
Q:ADEVALUE="END"
K DIC,DA,X,Y,DR
S DIC="^AUTTADA("
S DIC(0)="Z"
S X=$P(ADEVALUE,ADED)
I $E(X)="D" S X=$E(X,2,($L(X)))
K DD,DO
D ^DIC
Q:'+Y
S DA=+Y
S DIE=DIC
S DR="501///^S X=$P(ADEVALUE,ADED,2)"
I $P(ADEVALUE,ADED,3)]"" S DR=DR_";.05///^S X=$P(ADEVALUE,ADED,3)"
D ^DIE
Q
; ********************************************************************
; ADA CODE ;; RVU ;; LEVEL OF CARE
; ********************************************************************
1 ;
;;0000;;0
;;0002;;0
;;0003;;0
;;0004;;0
;;0005;;0
;;0006;;0
;;0007;;0
;;0008;;0
;;0009;;0
;;0112;;0
;;0114;;0
;;0190;;0
;;9130;;0
;;9140;;0
;;9170;;0
;;9990;;0
;;IH00;;0
;;IH01;;0
;;IH02;;0
;;IH03;;0
;;IH04;;0
;;IH05;;0
;;IH06;;0
;;IH07;;0
;;IH08;;0
;;IH09;;0
;;IH10;;0
;;IH11;;0
;;IH12;;0
;;IH13;;0
;;IH14;;0
;;IH15;;0
;;IH16;;0
;;IH17;;0
;;IH18;;0
;;IH19;;0
;;IH20;;0
;;IH21;;0
;;IH22;;0
;;IH23;;0
;;IH24;;0
;;IH25;;0
;;IH26;;0
;;IH27;;0
;;IH28;;0
;;IH29;;0
;;IH30;;0
;;IH31;;0
;;IH32;;0
;;IH33;;0
;;IH34;;0
;;IH35;;0
;;IH36;;0
;;IH37;;0
;;IH38;;0
;;IH39;;0
;;IH40;;0
;;IH41;;0
;;IH42;;0
;;IH43;;0
;;IH44;;0
;;IH45;;0
;;IH46;;0
;;IH47;;0
;;IH48;;0
;;IH49;;0
;;IH50;;0
;;IH51;;0
;;IH52;;0
;;IH53;;0
;;IH54;;0
;;IH70;;0
;;IH71;;0
;;IH72;;0
;;IH73;;0
;;IH74;;0
;;IH75;;0
;;IH76;;0
;;IH77;;0
;;D0120;;.70
;;D0140;;.92
;;D0150;;1
;;D0160;;2.27
;;D0170;;1
;;D0180;;1.12;;4
;;D0210;;1.95
;;D0220;;.45
;;D0230;;.23;;1
;;D0240;;.54
;;D0250;;1.12
;;D0260;;.78
;;D0270;;.46
;;D0272;;.67
;;D0274;;.91
;;D0277;;1.34
;;D0290;;2.01
;;D0310;;4.69
;;D0320;;11.17
;;D0321;;3.46
;;D0322;;6.25
;;D0330;;1.44
;;D0340;;1.39
;;D0350;;1.12
;;D0415;;1.55
;;D0425;;1.45
;;D0460;;.76
;;D0470;;1.25
;;D0502;;3.01
;;D0999;;.3;;9
;;D1110;;1.99
;;D1120;;1.02
;;D1201;;1.58
;;D1203;;.56
;;D1204;;.56
;;D1205;;2.23
;;D1310;;1.43
;;D1320;;.69
;;D1330;;1.03
;;D1351;;1.5
;;D1510;;4.47
;;D1515;;6.7
;;D1520;;5.58
;;D1525;;7.82
;;D1550;;1.34
;;D2140;;2
;;D2150;;2.2
;;D2160;;2.7
;;D2161;;3.3;;3
;;D2330;;2
;;D2331;;3
;;D2332;;3.5
;;D2335;;4;;3
;;D2390;;3.13;;4
;;D2391;;2.34;;3
;;D2392;;3.01;;9
;;D2393;;3.46;;9
;;D2394;;3.8;;9
;;D2410;;8.93
;;D2420;;10.61
;;D2430;;13.18
;;D2510;;12.73
;;D2520;;14.4
;;D2530;;13.4
;;D2542;;16.53
;;D2543;;17.31
;;D2544;;18.98
;;D2610;;13.96
;;D2620;;14.52
;;D2630;;18.98
;;D2642;;15.63
;;D2643;;17.87
;;D2644;;20.66
;;D2650;;12.84;;9
;;D2651;;14.52;;9
;;D2652;;18.98;;9
;;D2662;;14.52
;;D2663;;17.87
;;D2664;;18.98
;;D2710;;11.17
;;D2720;;22.33
;;D2721;;16.75
;;D2722;;18.98
;;D2740;;22.33
;;D2750;;14.96
;;D2751;;17.87
;;D2752;;20.10
;;D2780;;20.10
;;D2781;;14.52
;;D2782;;16.75
;;D2783;;21.22
;;D2790;;13.36
;;D2791;;15.63
;;D2792;;17.87
;;D2799;;11.17
;;D2910;;1.67
;;D2920;;1.43
;;D2930;;4
;;D2931;;2.26
;;D2932;;5.36;;3
;;D2933;;5.02
;;D2940;;1.43
;;D2950;;3.54
;;D2951;;1.12
;;D2952;;8.93
;;D2953;;7.26
;;D2954;;4.05
;;D2955;;4.47
;;D2957;;3.91
;;D2960;;6.7
;;D2961;;11.17;;5
;;D2962;;16.08;;5
;;D2970;;3.85
;;D2980;;4.58
;;D2999;;.53;;9
;;D3110;;.74
;;D3120;;1.12
;;D3220;;3.
;;D3221;;3.64
;;D3230;;3.68
;;D3240;;3.7
;;D3310;;10.20;;4
;;D3320;;10
;;D3330;;11.24
;;D3331;;11.28
;;D3332;;6.03
;;D3333;;2.9
;;D3346;;12.28;;4
;;D3347;;14.96;;5
;;D3348;;18.42
;;D3351;;12.73;;4
;;D3352;;15.41;;4
;;D3353;;8.93;;4
;;D3410;;10.16
;;D3421;;11.72
;;D3425;;13.06
;;D3426;;10.83
;;D3430;;3.35
;;D3450;;5.58
;;D3460;;17.31
;;D3470;;11.17;;9
;;D3910;;2.9
;;D3920;;7.03
;;D3950;;3.35
;;D3999;;1.37
;;D4210;;10.61
;;D4211;;9.16
;;D4240;;7.54
;;D4241;;3.46;;4
;;D4245;;14.4
;;D4249;;11.39
;;D4260;;10.63
;;D4261;;8.93;;5
;;D4263;;10.61
;;D4264;;8.71
;;D4265;;5.25;;5
;;D4266;;15.52
;;D4267;;17.87
;;D4268;;14.85
;;D4270;;13.62
;;D4271;;14.07
;;D4273;;18.42
;;D4274;;11.39
;;D4275;;9.71;;5
;;D4276;;10.61;;5
;;D4320;;7.59
;;D4321;;6.70
;;D4341;;4.55
;;D4342;;3.01;;3
;;D4355;;2.71
;;D4381;;2.38;;4
;;D4910;;3.29
;;D4920;;1.45
;;D4999;;1;;9
;;D5110;;17.96;;4
;;D5120;;18.06;;4
;;D5130;;30.71;;4
;;D5140;;30.71;;4
;;D5211;;13.4
;;D5212;;19.76
;;D5213;;20.28;;4
;;D5214;;20.18;;4
;;D5281;;14.96
;;D5410;;1.21
;;D5411;;1.21
;;D5421;;1.20
;;D5422;;1.34
;;D5510;;3.35
;;D5520;;1.92
;;D5610;;3.35
;;D5620;;4.58
;;D5630;;4.13
;;D5640;;3.35
;;D5650;;3.35
;;D5660;;5.58
;;D5670;;16.64;;5
;;D5671;;16.64;;5
;;D5710;;11.17;;4
;;D5711;;11.17;;4
;;D5720;;8.93;;4
;;D5721;;8.93;;4
;;D5730;;6.7
;;D5731;;6.7
;;D5740;;5.58
;;D5741;;5.58
;;D5750;;8.93
;;D5751;;8.93
;;D5760;;8.93
;;D5761;;8.93
;;D5810;;13.4
;;D5811;;13.4
;;D5820;;11.17
;;D5821;;11.17
;;D5850;;2.52
;;D5851;;2.9
;;D5860;;29.59
;;D5861;;30.15
;;D5862;;9.94
;;D5867;;4.24
;;D5875;;5.47
;;D5899;;1
;;D5911;;4.47
;;D5912;;6.7
;;D5913;;111.66
;;D5914;;111.66
;;D5915;;150.74
;;D5916;;156.32
;;D5919;;156.32
;;D5922;;72.58
;;D5923;;89.33
;;D5924;;156.32
;;D5925;;156.32
;;D5926;;55.83
;;D5927;;55.83
;;D5928;;75.37
;;D5929;;75.37
;;D5931;;35.73
;;D5932;;83.75
;;D5933;;16.75
;;D5934;;83.75
;;D5935;;83.75
;;D5936;;30.71
;;D5937;;55.83
;;D5951;;33.5
;;D5952;;33.5
;;D5953;;33.5
;;D5954;;75.37
;;D5955;;72.58
;;D5958;;42.43
;;D5959;;13.4
;;D5960;;8.93
;;D5982;;6.03
;;D5983;;55.83
;;D5984;;55.83
;;D5985;;31.26
;;D5986;;3.35
;;D5987;;55.83
;;D5988;;11.95
;;D5999;;55.83;;9
;;D6010;;36.85
;;D6020;;17.31
;;D6040;;164.14
;;D6050;;106.08
;;D6053;;4.47;;5
;;D6054;;3.35;;5
;;D6055;;41.87
;;D6056;;14.40
;;D6057;;16.53
;;D6058;;21.33
;;D6059;;22.78
;;D6060;;15.74
;;D6061;;20.66
;;D6062;;19.88
;;D6063;;19.54
;;D6064;;20.55
;;D6065;;27.92
;;D6066;;27.92
;;D6067;;27.92
;;D6068;;19.88
;;D6069;;19.54
;;D6070;;17.53
;;D6071;;17.75
;;D6072;;19.88
;;D6073;;18.87
;;D6074;;19.09
;;D6075;;22.56
;;D6076;;21.89
;;D6077;;24.34
;;D6078;;55.83
;;D6079;;48.13
;;D6080;;3.91
;;D6090;;12.51
;;D6095;;13.51
;;D6100;;14.40
;;D6199;;21.89
;;D6210;;22.33
;;D6211;;15.63
;;D6212;;17.87
;;D6240;;24.57
;;D6241;;20.10
;;D6242;;22.33
;;D6245;;16.86
;;D6250;;22.33
;;D6251;;15.63
;;D6252;;20.10
;;D6253;;2.79;;5
;;D6545;;10.61
;;D6548;;15.30
;;D6600;;8.49;;9
;;D6601;;9.04;;9
;;D6602;;9.38;;9
;;D6603;;11.05;;9
;;D6604;;6.03;;9
;;D6605;;7.7;;9
;;D6606;;7.59;;9
;;D6607;;8.26;;9
;;D6608;;9.27;;9
;;D6609;;9.71;;9
;;D6610;;11.05;;9
;;D6611;;11.84;;9
;;D6612;;7.7;;9
;;D6613;;8.49;;9
;;D6614;;8.26;;9
;;D6615;;8.82;;9
;;D6720;;22.33
;;D6721;;16.75
;;D6722;;18.98
;;D6740;;17.87
;;D6750;;26.80
;;D6751;;17.87
;;D6752;;22.33
;;D6780;;21.22
;;D6781;;17.42
;;D6782;;17.53
;;D6783;;17.64
;;D6790;;21.22
;;D6791;;15.63
;;D6792;;18.98
;;D6793;;1.67;;5
;;D6920;;14.96
;;D6930;;1.92
;;D6940;;5.58
;;D6950;;8.93
;;D6970;;8.93
;;D6971;;6.25
;;D6972;;6.70
;;D6973;;4.58
;;D6975;;11.72
;;D6976;;4.8
;;D6977;;2.57
;;D6980;;5.81
;;D6985;;1.5;;5
;;D6999;;3.83
;;D7111;;2.23;;1
;;D7140;;2.46;;1
;;D7210;;3.72
;;D7220;;4.6;;3
;;D7230;;6;;3
;;D7240;;7.2
;;D7241;;11.17
;;D7250;;4.47
;;D7260;;13.4
;;D7261;;13.4;;5
;;D7270;;8.04
;;D7272;;11.17
;;D7280;;6.7
;;D7281;;4.47
;;D7282;;2.23;;5
;;D7285;;5.81
;;D7286;;4
;;D7287;;.17;;1
;;D7290;;7.26
;;D7291;;4.24
;;D7310;;4.2
;;D7320;;5.3
;;D7340;;13.4
;;D7350;;31.26
;;D7410;;5.58
;;D7411;;5.47;;3
;;D7412;;7.59;;3
;;D7413;;11.17;;3
;;D7414;;9.83;;3
;;D7415;;15.86;;3
;;D7440;;8.82
;;D7441;;17.87
;;D7450;;7.59
;;D7451;;9.83
;;D7460;;7.48
;;D7461;;10.61
;;D7465;;5.86
;;D7471;;9.49
;;D7472;;7.82;;4
;;D7473;;8.04;;4
;;D7485;;8.82;;4
;;D7490;;138.46
;;D7510;;2.48
;;D7520;;6.7
;;D7530;;4.69
;;D7540;;9.49
;;D7550;;7.82
;;D7560;;14.52
;;D7610;;64.76
;;D7620;;53.60
;;D7630;;73.7
;;D7640;;44.66
;;D7650;;70.35
;;D7660;;42.43
;;D7670;;22.33
;;D7671;;42.43;;1
;;D7680;;106.08
;;D7710;;77.05
;;D7720;;49.13
;;D7730;;85.98
;;D7740;;50.25
;;D7750;;72.58
;;D7760;;67
;;D7770;;42.43
;;D7771;;4.02;;1
;;D7780;;136.23
;;D7810;;70.35
;;D7820;;21.77
;;D7830;;10.16
;;D7840;;96.03
;;D7850;;91.56
;;D7852;;109.43
;;D7854;;111.66
;;D7856;;111.66
;;D7858;;125.06
;;D7860;;33.5
;;D7865;;93.79
;;D7870;;4.47
;;D7871;;43.88
;;D7872;;29.03
;;D7873;;31.82
;;D7874;;40.20
;;D7875;;42.99
;;D7876;;44.66
;;D7877;;41.31
;;D7880;;15.86
;;D7899;;4.47
;;D7910;;15.41
;;D7911;;6.03
;;D7912;;8.93
;;D7920;;36.85
;;D7940;;59.18
;;D7941;;156.32
;;D7943;;158.56
;;D7944;;125.06
;;D7945;;126.18
;;D7946;;139.58
;;D7947;;139.58
;;D7948;;156.32
;;D7949;;227.79
;;D7950;;48.01
;;D7955;;50.25
;;D7960;;6.7
;;D7970;;53.6
;;D7971;;13.51
;;D7972;;6.7;;4
;;D7980;;9.27
;;D7981;;44.66
;;D7982;;27.36
;;D7983;;18.98
;;D7990;;18.54
;;D7991;;69.23
;;D7995;;27.36
;;D7996;;27.36
;;D7997;;1
;;D7999;;1
;;D8010;;24.57
;;D8020;;29.03
;;D8030;;39.08
;;D8040;;37.96
;;D8050;;36.85
;;D8060;;41.31
;;D8070;;101.61
;;D8080;;101.61
;;D8090;;106.08
;;D8210;;13.29
;;D8220;;15.97
;;D8660;;3.23
;;D8670;;1.85
;;D8680;;9.38
;;D8690;;37.07
;;D8691;;3.63
;;D8692;;5.69
;;D8999;;2.5;;9
;;D9110;;1.87
;;D9210;;1
;;D9211;;.91
;;D9212;;2.24
;;D9215;;.52
;;D9220;;3.82
;;D9221;;2.23
;;D9230;;1.94
;;D9241;;4.05
;;D9242;;1.7
;;D9248;;4.97
;;D9310;;1.77
;;D9410;;3.35
;;D9420;;3.35
;;D9430;;1.19
;;D9440;;2.23
;;D9450;;.5;;3
;;D9610;;.96
;;D9630;;.52
;;D9910;;1.5
;;D9911;;1.23
;;D9920;;1.51
;;D9930;;1.72
;;D9940;;8.87
;;D9941;;3.24
;;D9950;;5.02
;;D9951;;1.91
;;D9952;;8.93
;;D9970;;3.01
;;D9971;;3.01
;;D9972;;6.25
;;D9973;;4.02
;;D9974;;4.58
;;D9999;;.33;;9
;;END
ADEADRVU ; IHS/SET/HMW - Populate the ADA Code file with RVU's ;
+1 ;;6.0;ADE;**15**;JAN 01, 2004
+2 ;
+3 ; This routine is part of the post init for V6.0 Patch 15. It's
+4 ; called from ADE60P15. It populates RVU's in the ADA Code file
+5 ; for the first time.
+6 ;
+7 ; ********************************************************************
+8 ; Lookup data below ($T of linetag 1)...
+9 NEW ADED,ADECNT
+10 SET ADED=";;"
+11 SET ADECNT=0
+12 FOR
DO FINDATA
IF ADEVALUE="END"
QUIT
+13 QUIT
+14 ; ********************************************************************
+15 ;
FINDATA ;
+1 SET ADECNT=ADECNT+1
+2 SET ADEVALUE=$PIECE($TEXT(@1+ADECNT),ADED,2,4)
+3 IF ADEVALUE="END"
QUIT
+4 KILL DIC,DA,X,Y,DR
+5 SET DIC="^AUTTADA("
+6 SET DIC(0)="Z"
+7 SET X=$PIECE(ADEVALUE,ADED)
+8 IF $EXTRACT(X)="D"
SET X=$EXTRACT(X,2,($LENGTH(X)))
+9 KILL DD,DO
+10 DO ^DIC
+11 IF '+Y
QUIT
+12 SET DA=+Y
+13 SET DIE=DIC
+14 SET DR="501///^S X=$P(ADEVALUE,ADED,2)"
+15 IF $PIECE(ADEVALUE,ADED,3)]""
SET DR=DR_";.05///^S X=$P(ADEVALUE,ADED,3)"
+16 DO ^DIE
+17 QUIT
+18 ; ********************************************************************
+19 ; ADA CODE ;; RVU ;; LEVEL OF CARE
+20 ; ********************************************************************
1 ;
+1 ;;0000;;0
+2 ;;0002;;0
+3 ;;0003;;0
+4 ;;0004;;0
+5 ;;0005;;0
+6 ;;0006;;0
+7 ;;0007;;0
+8 ;;0008;;0
+9 ;;0009;;0
+10 ;;0112;;0
+11 ;;0114;;0
+12 ;;0190;;0
+13 ;;9130;;0
+14 ;;9140;;0
+15 ;;9170;;0
+16 ;;9990;;0
+17 ;;IH00;;0
+18 ;;IH01;;0
+19 ;;IH02;;0
+20 ;;IH03;;0
+21 ;;IH04;;0
+22 ;;IH05;;0
+23 ;;IH06;;0
+24 ;;IH07;;0
+25 ;;IH08;;0
+26 ;;IH09;;0
+27 ;;IH10;;0
+28 ;;IH11;;0
+29 ;;IH12;;0
+30 ;;IH13;;0
+31 ;;IH14;;0
+32 ;;IH15;;0
+33 ;;IH16;;0
+34 ;;IH17;;0
+35 ;;IH18;;0
+36 ;;IH19;;0
+37 ;;IH20;;0
+38 ;;IH21;;0
+39 ;;IH22;;0
+40 ;;IH23;;0
+41 ;;IH24;;0
+42 ;;IH25;;0
+43 ;;IH26;;0
+44 ;;IH27;;0
+45 ;;IH28;;0
+46 ;;IH29;;0
+47 ;;IH30;;0
+48 ;;IH31;;0
+49 ;;IH32;;0
+50 ;;IH33;;0
+51 ;;IH34;;0
+52 ;;IH35;;0
+53 ;;IH36;;0
+54 ;;IH37;;0
+55 ;;IH38;;0
+56 ;;IH39;;0
+57 ;;IH40;;0
+58 ;;IH41;;0
+59 ;;IH42;;0
+60 ;;IH43;;0
+61 ;;IH44;;0
+62 ;;IH45;;0
+63 ;;IH46;;0
+64 ;;IH47;;0
+65 ;;IH48;;0
+66 ;;IH49;;0
+67 ;;IH50;;0
+68 ;;IH51;;0
+69 ;;IH52;;0
+70 ;;IH53;;0
+71 ;;IH54;;0
+72 ;;IH70;;0
+73 ;;IH71;;0
+74 ;;IH72;;0
+75 ;;IH73;;0
+76 ;;IH74;;0
+77 ;;IH75;;0
+78 ;;IH76;;0
+79 ;;IH77;;0
+80 ;;D0120;;.70
+81 ;;D0140;;.92
+82 ;;D0150;;1
+83 ;;D0160;;2.27
+84 ;;D0170;;1
+85 ;;D0180;;1.12;;4
+86 ;;D0210;;1.95
+87 ;;D0220;;.45
+88 ;;D0230;;.23;;1
+89 ;;D0240;;.54
+90 ;;D0250;;1.12
+91 ;;D0260;;.78
+92 ;;D0270;;.46
+93 ;;D0272;;.67
+94 ;;D0274;;.91
+95 ;;D0277;;1.34
+96 ;;D0290;;2.01
+97 ;;D0310;;4.69
+98 ;;D0320;;11.17
+99 ;;D0321;;3.46
+100 ;;D0322;;6.25
+101 ;;D0330;;1.44
+102 ;;D0340;;1.39
+103 ;;D0350;;1.12
+104 ;;D0415;;1.55
+105 ;;D0425;;1.45
+106 ;;D0460;;.76
+107 ;;D0470;;1.25
+108 ;;D0502;;3.01
+109 ;;D0999;;.3;;9
+110 ;;D1110;;1.99
+111 ;;D1120;;1.02
+112 ;;D1201;;1.58
+113 ;;D1203;;.56
+114 ;;D1204;;.56
+115 ;;D1205;;2.23
+116 ;;D1310;;1.43
+117 ;;D1320;;.69
+118 ;;D1330;;1.03
+119 ;;D1351;;1.5
+120 ;;D1510;;4.47
+121 ;;D1515;;6.7
+122 ;;D1520;;5.58
+123 ;;D1525;;7.82
+124 ;;D1550;;1.34
+125 ;;D2140;;2
+126 ;;D2150;;2.2
+127 ;;D2160;;2.7
+128 ;;D2161;;3.3;;3
+129 ;;D2330;;2
+130 ;;D2331;;3
+131 ;;D2332;;3.5
+132 ;;D2335;;4;;3
+133 ;;D2390;;3.13;;4
+134 ;;D2391;;2.34;;3
+135 ;;D2392;;3.01;;9
+136 ;;D2393;;3.46;;9
+137 ;;D2394;;3.8;;9
+138 ;;D2410;;8.93
+139 ;;D2420;;10.61
+140 ;;D2430;;13.18
+141 ;;D2510;;12.73
+142 ;;D2520;;14.4
+143 ;;D2530;;13.4
+144 ;;D2542;;16.53
+145 ;;D2543;;17.31
+146 ;;D2544;;18.98
+147 ;;D2610;;13.96
+148 ;;D2620;;14.52
+149 ;;D2630;;18.98
+150 ;;D2642;;15.63
+151 ;;D2643;;17.87
+152 ;;D2644;;20.66
+153 ;;D2650;;12.84;;9
+154 ;;D2651;;14.52;;9
+155 ;;D2652;;18.98;;9
+156 ;;D2662;;14.52
+157 ;;D2663;;17.87
+158 ;;D2664;;18.98
+159 ;;D2710;;11.17
+160 ;;D2720;;22.33
+161 ;;D2721;;16.75
+162 ;;D2722;;18.98
+163 ;;D2740;;22.33
+164 ;;D2750;;14.96
+165 ;;D2751;;17.87
+166 ;;D2752;;20.10
+167 ;;D2780;;20.10
+168 ;;D2781;;14.52
+169 ;;D2782;;16.75
+170 ;;D2783;;21.22
+171 ;;D2790;;13.36
+172 ;;D2791;;15.63
+173 ;;D2792;;17.87
+174 ;;D2799;;11.17
+175 ;;D2910;;1.67
+176 ;;D2920;;1.43
+177 ;;D2930;;4
+178 ;;D2931;;2.26
+179 ;;D2932;;5.36;;3
+180 ;;D2933;;5.02
+181 ;;D2940;;1.43
+182 ;;D2950;;3.54
+183 ;;D2951;;1.12
+184 ;;D2952;;8.93
+185 ;;D2953;;7.26
+186 ;;D2954;;4.05
+187 ;;D2955;;4.47
+188 ;;D2957;;3.91
+189 ;;D2960;;6.7
+190 ;;D2961;;11.17;;5
+191 ;;D2962;;16.08;;5
+192 ;;D2970;;3.85
+193 ;;D2980;;4.58
+194 ;;D2999;;.53;;9
+195 ;;D3110;;.74
+196 ;;D3120;;1.12
+197 ;;D3220;;3.
+198 ;;D3221;;3.64
+199 ;;D3230;;3.68
+200 ;;D3240;;3.7
+201 ;;D3310;;10.20;;4
+202 ;;D3320;;10
+203 ;;D3330;;11.24
+204 ;;D3331;;11.28
+205 ;;D3332;;6.03
+206 ;;D3333;;2.9
+207 ;;D3346;;12.28;;4
+208 ;;D3347;;14.96;;5
+209 ;;D3348;;18.42
+210 ;;D3351;;12.73;;4
+211 ;;D3352;;15.41;;4
+212 ;;D3353;;8.93;;4
+213 ;;D3410;;10.16
+214 ;;D3421;;11.72
+215 ;;D3425;;13.06
+216 ;;D3426;;10.83
+217 ;;D3430;;3.35
+218 ;;D3450;;5.58
+219 ;;D3460;;17.31
+220 ;;D3470;;11.17;;9
+221 ;;D3910;;2.9
+222 ;;D3920;;7.03
+223 ;;D3950;;3.35
+224 ;;D3999;;1.37
+225 ;;D4210;;10.61
+226 ;;D4211;;9.16
+227 ;;D4240;;7.54
+228 ;;D4241;;3.46;;4
+229 ;;D4245;;14.4
+230 ;;D4249;;11.39
+231 ;;D4260;;10.63
+232 ;;D4261;;8.93;;5
+233 ;;D4263;;10.61
+234 ;;D4264;;8.71
+235 ;;D4265;;5.25;;5
+236 ;;D4266;;15.52
+237 ;;D4267;;17.87
+238 ;;D4268;;14.85
+239 ;;D4270;;13.62
+240 ;;D4271;;14.07
+241 ;;D4273;;18.42
+242 ;;D4274;;11.39
+243 ;;D4275;;9.71;;5
+244 ;;D4276;;10.61;;5
+245 ;;D4320;;7.59
+246 ;;D4321;;6.70
+247 ;;D4341;;4.55
+248 ;;D4342;;3.01;;3
+249 ;;D4355;;2.71
+250 ;;D4381;;2.38;;4
+251 ;;D4910;;3.29
+252 ;;D4920;;1.45
+253 ;;D4999;;1;;9
+254 ;;D5110;;17.96;;4
+255 ;;D5120;;18.06;;4
+256 ;;D5130;;30.71;;4
+257 ;;D5140;;30.71;;4
+258 ;;D5211;;13.4
+259 ;;D5212;;19.76
+260 ;;D5213;;20.28;;4
+261 ;;D5214;;20.18;;4
+262 ;;D5281;;14.96
+263 ;;D5410;;1.21
+264 ;;D5411;;1.21
+265 ;;D5421;;1.20
+266 ;;D5422;;1.34
+267 ;;D5510;;3.35
+268 ;;D5520;;1.92
+269 ;;D5610;;3.35
+270 ;;D5620;;4.58
+271 ;;D5630;;4.13
+272 ;;D5640;;3.35
+273 ;;D5650;;3.35
+274 ;;D5660;;5.58
+275 ;;D5670;;16.64;;5
+276 ;;D5671;;16.64;;5
+277 ;;D5710;;11.17;;4
+278 ;;D5711;;11.17;;4
+279 ;;D5720;;8.93;;4
+280 ;;D5721;;8.93;;4
+281 ;;D5730;;6.7
+282 ;;D5731;;6.7
+283 ;;D5740;;5.58
+284 ;;D5741;;5.58
+285 ;;D5750;;8.93
+286 ;;D5751;;8.93
+287 ;;D5760;;8.93
+288 ;;D5761;;8.93
+289 ;;D5810;;13.4
+290 ;;D5811;;13.4
+291 ;;D5820;;11.17
+292 ;;D5821;;11.17
+293 ;;D5850;;2.52
+294 ;;D5851;;2.9
+295 ;;D5860;;29.59
+296 ;;D5861;;30.15
+297 ;;D5862;;9.94
+298 ;;D5867;;4.24
+299 ;;D5875;;5.47
+300 ;;D5899;;1
+301 ;;D5911;;4.47
+302 ;;D5912;;6.7
+303 ;;D5913;;111.66
+304 ;;D5914;;111.66
+305 ;;D5915;;150.74
+306 ;;D5916;;156.32
+307 ;;D5919;;156.32
+308 ;;D5922;;72.58
+309 ;;D5923;;89.33
+310 ;;D5924;;156.32
+311 ;;D5925;;156.32
+312 ;;D5926;;55.83
+313 ;;D5927;;55.83
+314 ;;D5928;;75.37
+315 ;;D5929;;75.37
+316 ;;D5931;;35.73
+317 ;;D5932;;83.75
+318 ;;D5933;;16.75
+319 ;;D5934;;83.75
+320 ;;D5935;;83.75
+321 ;;D5936;;30.71
+322 ;;D5937;;55.83
+323 ;;D5951;;33.5
+324 ;;D5952;;33.5
+325 ;;D5953;;33.5
+326 ;;D5954;;75.37
+327 ;;D5955;;72.58
+328 ;;D5958;;42.43
+329 ;;D5959;;13.4
+330 ;;D5960;;8.93
+331 ;;D5982;;6.03
+332 ;;D5983;;55.83
+333 ;;D5984;;55.83
+334 ;;D5985;;31.26
+335 ;;D5986;;3.35
+336 ;;D5987;;55.83
+337 ;;D5988;;11.95
+338 ;;D5999;;55.83;;9
+339 ;;D6010;;36.85
+340 ;;D6020;;17.31
+341 ;;D6040;;164.14
+342 ;;D6050;;106.08
+343 ;;D6053;;4.47;;5
+344 ;;D6054;;3.35;;5
+345 ;;D6055;;41.87
+346 ;;D6056;;14.40
+347 ;;D6057;;16.53
+348 ;;D6058;;21.33
+349 ;;D6059;;22.78
+350 ;;D6060;;15.74
+351 ;;D6061;;20.66
+352 ;;D6062;;19.88
+353 ;;D6063;;19.54
+354 ;;D6064;;20.55
+355 ;;D6065;;27.92
+356 ;;D6066;;27.92
+357 ;;D6067;;27.92
+358 ;;D6068;;19.88
+359 ;;D6069;;19.54
+360 ;;D6070;;17.53
+361 ;;D6071;;17.75
+362 ;;D6072;;19.88
+363 ;;D6073;;18.87
+364 ;;D6074;;19.09
+365 ;;D6075;;22.56
+366 ;;D6076;;21.89
+367 ;;D6077;;24.34
+368 ;;D6078;;55.83
+369 ;;D6079;;48.13
+370 ;;D6080;;3.91
+371 ;;D6090;;12.51
+372 ;;D6095;;13.51
+373 ;;D6100;;14.40
+374 ;;D6199;;21.89
+375 ;;D6210;;22.33
+376 ;;D6211;;15.63
+377 ;;D6212;;17.87
+378 ;;D6240;;24.57
+379 ;;D6241;;20.10
+380 ;;D6242;;22.33
+381 ;;D6245;;16.86
+382 ;;D6250;;22.33
+383 ;;D6251;;15.63
+384 ;;D6252;;20.10
+385 ;;D6253;;2.79;;5
+386 ;;D6545;;10.61
+387 ;;D6548;;15.30
+388 ;;D6600;;8.49;;9
+389 ;;D6601;;9.04;;9
+390 ;;D6602;;9.38;;9
+391 ;;D6603;;11.05;;9
+392 ;;D6604;;6.03;;9
+393 ;;D6605;;7.7;;9
+394 ;;D6606;;7.59;;9
+395 ;;D6607;;8.26;;9
+396 ;;D6608;;9.27;;9
+397 ;;D6609;;9.71;;9
+398 ;;D6610;;11.05;;9
+399 ;;D6611;;11.84;;9
+400 ;;D6612;;7.7;;9
+401 ;;D6613;;8.49;;9
+402 ;;D6614;;8.26;;9
+403 ;;D6615;;8.82;;9
+404 ;;D6720;;22.33
+405 ;;D6721;;16.75
+406 ;;D6722;;18.98
+407 ;;D6740;;17.87
+408 ;;D6750;;26.80
+409 ;;D6751;;17.87
+410 ;;D6752;;22.33
+411 ;;D6780;;21.22
+412 ;;D6781;;17.42
+413 ;;D6782;;17.53
+414 ;;D6783;;17.64
+415 ;;D6790;;21.22
+416 ;;D6791;;15.63
+417 ;;D6792;;18.98
+418 ;;D6793;;1.67;;5
+419 ;;D6920;;14.96
+420 ;;D6930;;1.92
+421 ;;D6940;;5.58
+422 ;;D6950;;8.93
+423 ;;D6970;;8.93
+424 ;;D6971;;6.25
+425 ;;D6972;;6.70
+426 ;;D6973;;4.58
+427 ;;D6975;;11.72
+428 ;;D6976;;4.8
+429 ;;D6977;;2.57
+430 ;;D6980;;5.81
+431 ;;D6985;;1.5;;5
+432 ;;D6999;;3.83
+433 ;;D7111;;2.23;;1
+434 ;;D7140;;2.46;;1
+435 ;;D7210;;3.72
+436 ;;D7220;;4.6;;3
+437 ;;D7230;;6;;3
+438 ;;D7240;;7.2
+439 ;;D7241;;11.17
+440 ;;D7250;;4.47
+441 ;;D7260;;13.4
+442 ;;D7261;;13.4;;5
+443 ;;D7270;;8.04
+444 ;;D7272;;11.17
+445 ;;D7280;;6.7
+446 ;;D7281;;4.47
+447 ;;D7282;;2.23;;5
+448 ;;D7285;;5.81
+449 ;;D7286;;4
+450 ;;D7287;;.17;;1
+451 ;;D7290;;7.26
+452 ;;D7291;;4.24
+453 ;;D7310;;4.2
+454 ;;D7320;;5.3
+455 ;;D7340;;13.4
+456 ;;D7350;;31.26
+457 ;;D7410;;5.58
+458 ;;D7411;;5.47;;3
+459 ;;D7412;;7.59;;3
+460 ;;D7413;;11.17;;3
+461 ;;D7414;;9.83;;3
+462 ;;D7415;;15.86;;3
+463 ;;D7440;;8.82
+464 ;;D7441;;17.87
+465 ;;D7450;;7.59
+466 ;;D7451;;9.83
+467 ;;D7460;;7.48
+468 ;;D7461;;10.61
+469 ;;D7465;;5.86
+470 ;;D7471;;9.49
+471 ;;D7472;;7.82;;4
+472 ;;D7473;;8.04;;4
+473 ;;D7485;;8.82;;4
+474 ;;D7490;;138.46
+475 ;;D7510;;2.48
+476 ;;D7520;;6.7
+477 ;;D7530;;4.69
+478 ;;D7540;;9.49
+479 ;;D7550;;7.82
+480 ;;D7560;;14.52
+481 ;;D7610;;64.76
+482 ;;D7620;;53.60
+483 ;;D7630;;73.7
+484 ;;D7640;;44.66
+485 ;;D7650;;70.35
+486 ;;D7660;;42.43
+487 ;;D7670;;22.33
+488 ;;D7671;;42.43;;1
+489 ;;D7680;;106.08
+490 ;;D7710;;77.05
+491 ;;D7720;;49.13
+492 ;;D7730;;85.98
+493 ;;D7740;;50.25
+494 ;;D7750;;72.58
+495 ;;D7760;;67
+496 ;;D7770;;42.43
+497 ;;D7771;;4.02;;1
+498 ;;D7780;;136.23
+499 ;;D7810;;70.35
+500 ;;D7820;;21.77
+501 ;;D7830;;10.16
+502 ;;D7840;;96.03
+503 ;;D7850;;91.56
+504 ;;D7852;;109.43
+505 ;;D7854;;111.66
+506 ;;D7856;;111.66
+507 ;;D7858;;125.06
+508 ;;D7860;;33.5
+509 ;;D7865;;93.79
+510 ;;D7870;;4.47
+511 ;;D7871;;43.88
+512 ;;D7872;;29.03
+513 ;;D7873;;31.82
+514 ;;D7874;;40.20
+515 ;;D7875;;42.99
+516 ;;D7876;;44.66
+517 ;;D7877;;41.31
+518 ;;D7880;;15.86
+519 ;;D7899;;4.47
+520 ;;D7910;;15.41
+521 ;;D7911;;6.03
+522 ;;D7912;;8.93
+523 ;;D7920;;36.85
+524 ;;D7940;;59.18
+525 ;;D7941;;156.32
+526 ;;D7943;;158.56
+527 ;;D7944;;125.06
+528 ;;D7945;;126.18
+529 ;;D7946;;139.58
+530 ;;D7947;;139.58
+531 ;;D7948;;156.32
+532 ;;D7949;;227.79
+533 ;;D7950;;48.01
+534 ;;D7955;;50.25
+535 ;;D7960;;6.7
+536 ;;D7970;;53.6
+537 ;;D7971;;13.51
+538 ;;D7972;;6.7;;4
+539 ;;D7980;;9.27
+540 ;;D7981;;44.66
+541 ;;D7982;;27.36
+542 ;;D7983;;18.98
+543 ;;D7990;;18.54
+544 ;;D7991;;69.23
+545 ;;D7995;;27.36
+546 ;;D7996;;27.36
+547 ;;D7997;;1
+548 ;;D7999;;1
+549 ;;D8010;;24.57
+550 ;;D8020;;29.03
+551 ;;D8030;;39.08
+552 ;;D8040;;37.96
+553 ;;D8050;;36.85
+554 ;;D8060;;41.31
+555 ;;D8070;;101.61
+556 ;;D8080;;101.61
+557 ;;D8090;;106.08
+558 ;;D8210;;13.29
+559 ;;D8220;;15.97
+560 ;;D8660;;3.23
+561 ;;D8670;;1.85
+562 ;;D8680;;9.38
+563 ;;D8690;;37.07
+564 ;;D8691;;3.63
+565 ;;D8692;;5.69
+566 ;;D8999;;2.5;;9
+567 ;;D9110;;1.87
+568 ;;D9210;;1
+569 ;;D9211;;.91
+570 ;;D9212;;2.24
+571 ;;D9215;;.52
+572 ;;D9220;;3.82
+573 ;;D9221;;2.23
+574 ;;D9230;;1.94
+575 ;;D9241;;4.05
+576 ;;D9242;;1.7
+577 ;;D9248;;4.97
+578 ;;D9310;;1.77
+579 ;;D9410;;3.35
+580 ;;D9420;;3.35
+581 ;;D9430;;1.19
+582 ;;D9440;;2.23
+583 ;;D9450;;.5;;3
+584 ;;D9610;;.96
+585 ;;D9630;;.52
+586 ;;D9910;;1.5
+587 ;;D9911;;1.23
+588 ;;D9920;;1.51
+589 ;;D9930;;1.72
+590 ;;D9940;;8.87
+591 ;;D9941;;3.24
+592 ;;D9950;;5.02
+593 ;;D9951;;1.91
+594 ;;D9952;;8.93
+595 ;;D9970;;3.01
+596 ;;D9971;;3.01
+597 ;;D9972;;6.25
+598 ;;D9973;;4.02
+599 ;;D9974;;4.58
+600 ;;D9999;;.33;;9
+601 ;;END
