ADEADRVU.m

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