Routine: IBINI06T

IBINI06T	; ; 21-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	Q:'DIFQR(356.5)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q	Q

	;;^UTILITY(U,$J,356.5,75,0)

	;;=75^2930000^13.8

	;;^UTILITY(U,$J,356.5,76,0)

	;;=76^2930000^14.9

	;;^UTILITY(U,$J,356.5,77,0)

	;;=77^2930000^6.8

	;;^UTILITY(U,$J,356.5,78,0)

	;;=78^2930000^10.1

	;;^UTILITY(U,$J,356.5,79,0)

	;;=79^2930000^11.9

	;;^UTILITY(U,$J,356.5,80,0)

	;;=80^2930000^9

	;;^UTILITY(U,$J,356.5,81,0)

	;;=81^2930000^11.4

	;;^UTILITY(U,$J,356.5,82,0)

	;;=82^2930000^9.7

	;;^UTILITY(U,$J,356.5,83,0)

	;;=83^2930000^8.2

	;;^UTILITY(U,$J,356.5,84,0)

	;;=84^2930000^4.5

	;;^UTILITY(U,$J,356.5,85,0)

	;;=85^2930000^9.1

	;;^UTILITY(U,$J,356.5,86,0)

	;;=86^2930000^5.4

	;;^UTILITY(U,$J,356.5,87,0)

	;;=87^2930000^8.5

	;;^UTILITY(U,$J,356.5,88,0)

	;;=88^2930000^7.6

	;;^UTILITY(U,$J,356.5,89,0)

	;;=89^2930000^8.8

	;;^UTILITY(U,$J,356.5,90,0)

	;;=90^2930000^6.5

	;;^UTILITY(U,$J,356.5,91,0)

	;;=91^2930000^8.4

	;;^UTILITY(U,$J,356.5,92,0)

	;;=92^2930000^8.6

	;;^UTILITY(U,$J,356.5,93,0)

	;;=93^2930000^6.4

	;;^UTILITY(U,$J,356.5,94,0)

	;;=94^2930000^9.5

	;;^UTILITY(U,$J,356.5,95,0)

	;;=95^2930000^6.4

	;;^UTILITY(U,$J,356.5,96,0)

	;;=96^2930000^7.1

	;;^UTILITY(U,$J,356.5,97,0)

	;;=97^2930000^5.2

	;;^UTILITY(U,$J,356.5,98,0)

	;;=98^2930000^7.4

	;;^UTILITY(U,$J,356.5,99,0)

	;;=99^2930000^5.3

	;;^UTILITY(U,$J,356.5,100,0)

	;;=100^2930000^3.7

	;;^UTILITY(U,$J,356.5,101,0)

	;;=101^2930000^7.1

	;;^UTILITY(U,$J,356.5,102,0)

	;;=102^2930000^5.3

	;;^UTILITY(U,$J,356.5,103,0)

	;;=103^2930000^32.8

	;;^UTILITY(U,$J,356.5,104,0)

	;;=104^2930000^20.4

	;;^UTILITY(U,$J,356.5,105,0)

	;;=105^2930000^14.6

	;;^UTILITY(U,$J,356.5,106,0)

	;;=106^2930000^15.3

	;;^UTILITY(U,$J,356.5,107,0)

	;;=107^2930000^11.8

	;;^UTILITY(U,$J,356.5,108,0)

	;;=108^2930000^15.3

	;;^UTILITY(U,$J,356.5,109,0)

	;;=109^2930000^0

	;;^UTILITY(U,$J,356.5,110,0)

	;;=110^2930000^13.5

	;;^UTILITY(U,$J,356.5,111,0)

	;;=111^2930000^8.3

	;;^UTILITY(U,$J,356.5,112,0)

	;;=112^2930000^6.1

	;;^UTILITY(U,$J,356.5,113,0)

	;;=113^2930000^19.2

	;;^UTILITY(U,$J,356.5,114,0)

	;;=114^2930000^12.6

	;;^UTILITY(U,$J,356.5,115,0)

	;;=115^2930000^13.9

	;;^UTILITY(U,$J,356.5,116,0)

	;;=116^2930000^7.3

	;;^UTILITY(U,$J,356.5,117,0)

	;;=117^2930000^5.5

	;;^UTILITY(U,$J,356.5,118,0)

	;;=118^2930000^3.9

	;;^UTILITY(U,$J,356.5,119,0)

	;;=119^2930000^6.3

	;;^UTILITY(U,$J,356.5,120,0)

	;;=120^2930000^12.3

	;;^UTILITY(U,$J,356.5,121,0)

	;;=121^2930000^9.6

	;;^UTILITY(U,$J,356.5,122,0)

	;;=122^2930000^6.9

	;;^UTILITY(U,$J,356.5,123,0)

	;;=123^2930000^5.3

	;;^UTILITY(U,$J,356.5,124,0)

	;;=124^2930000^5.8

	;;^UTILITY(U,$J,356.5,125,0)

	;;=125^2930000^3.1

	;;^UTILITY(U,$J,356.5,126,0)

	;;=126^2930000^20.2

	;;^UTILITY(U,$J,356.5,127,0)

	;;=127^2930000^7.8

	;;^UTILITY(U,$J,356.5,128,0)

	;;=128^2930000^8.4

	;;^UTILITY(U,$J,356.5,129,0)

	;;=129^2930000^4.8

	;;^UTILITY(U,$J,356.5,130,0)

	;;=130^2930000^8.2

	;;^UTILITY(U,$J,356.5,131,0)

	;;=131^2930000^6.3

	;;^UTILITY(U,$J,356.5,132,0)

	;;=132^2930000^6.4

	;;^UTILITY(U,$J,356.5,133,0)

	;;=133^2930000^6

	;;^UTILITY(U,$J,356.5,134,0)

	;;=134^2930000^5.2

	;;^UTILITY(U,$J,356.5,135,0)

	;;=135^2930000^6.8

	;;^UTILITY(U,$J,356.5,136,0)

	;;=136^2930000^4.9

	;;^UTILITY(U,$J,356.5,137,0)

	;;=137^2930000^0

	;;^UTILITY(U,$J,356.5,138,0)

	;;=138^2930000^5.9

	;;^UTILITY(U,$J,356.5,139,0)

	;;=139^2930000^3.7

	;;^UTILITY(U,$J,356.5,140,0)

	;;=140^2930000^4.5

	;;^UTILITY(U,$J,356.5,141,0)

	;;=141^2930000^5.7

	;;^UTILITY(U,$J,356.5,142,0)

	;;=142^2930000^3.9

	;;^UTILITY(U,$J,356.5,143,0)

	;;=143^2930000^3.4

	;;^UTILITY(U,$J,356.5,144,0)

	;;=144^2930000^7.1

	;;^UTILITY(U,$J,356.5,145,0)

	;;=145^2930000^4.4

	;;^UTILITY(U,$J,356.5,146,0)

	;;=146^2930000^13.8

	;;^UTILITY(U,$J,356.5,147,0)

	;;=147^2930000^8.9

IBINI06T  ; ; 21-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2        IF 'DIFQR(356.5)

               QUIT

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

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

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,356.5,75,0)

 +2       ;;=75^2930000^13.8

 +3       ;;^UTILITY(U,$J,356.5,76,0)

 +4       ;;=76^2930000^14.9

 +5       ;;^UTILITY(U,$J,356.5,77,0)

 +6       ;;=77^2930000^6.8

 +7       ;;^UTILITY(U,$J,356.5,78,0)

 +8       ;;=78^2930000^10.1

 +9       ;;^UTILITY(U,$J,356.5,79,0)

 +10      ;;=79^2930000^11.9

 +11      ;;^UTILITY(U,$J,356.5,80,0)

 +12      ;;=80^2930000^9

 +13      ;;^UTILITY(U,$J,356.5,81,0)

 +14      ;;=81^2930000^11.4

 +15      ;;^UTILITY(U,$J,356.5,82,0)

 +16      ;;=82^2930000^9.7

 +17      ;;^UTILITY(U,$J,356.5,83,0)

 +18      ;;=83^2930000^8.2

 +19      ;;^UTILITY(U,$J,356.5,84,0)

 +20      ;;=84^2930000^4.5

 +21      ;;^UTILITY(U,$J,356.5,85,0)

 +22      ;;=85^2930000^9.1

 +23      ;;^UTILITY(U,$J,356.5,86,0)

 +24      ;;=86^2930000^5.4

 +25      ;;^UTILITY(U,$J,356.5,87,0)

 +26      ;;=87^2930000^8.5

 +27      ;;^UTILITY(U,$J,356.5,88,0)

 +28      ;;=88^2930000^7.6

 +29      ;;^UTILITY(U,$J,356.5,89,0)

 +30      ;;=89^2930000^8.8

 +31      ;;^UTILITY(U,$J,356.5,90,0)

 +32      ;;=90^2930000^6.5

 +33      ;;^UTILITY(U,$J,356.5,91,0)

 +34      ;;=91^2930000^8.4

 +35      ;;^UTILITY(U,$J,356.5,92,0)

 +36      ;;=92^2930000^8.6

 +37      ;;^UTILITY(U,$J,356.5,93,0)

 +38      ;;=93^2930000^6.4

 +39      ;;^UTILITY(U,$J,356.5,94,0)

 +40      ;;=94^2930000^9.5

 +41      ;;^UTILITY(U,$J,356.5,95,0)

 +42      ;;=95^2930000^6.4

 +43      ;;^UTILITY(U,$J,356.5,96,0)

 +44      ;;=96^2930000^7.1

 +45      ;;^UTILITY(U,$J,356.5,97,0)

 +46      ;;=97^2930000^5.2

 +47      ;;^UTILITY(U,$J,356.5,98,0)

 +48      ;;=98^2930000^7.4

 +49      ;;^UTILITY(U,$J,356.5,99,0)

 +50      ;;=99^2930000^5.3

 +51      ;;^UTILITY(U,$J,356.5,100,0)

 +52      ;;=100^2930000^3.7

 +53      ;;^UTILITY(U,$J,356.5,101,0)

 +54      ;;=101^2930000^7.1

 +55      ;;^UTILITY(U,$J,356.5,102,0)

 +56      ;;=102^2930000^5.3

 +57      ;;^UTILITY(U,$J,356.5,103,0)

 +58      ;;=103^2930000^32.8

 +59      ;;^UTILITY(U,$J,356.5,104,0)

 +60      ;;=104^2930000^20.4

 +61      ;;^UTILITY(U,$J,356.5,105,0)

 +62      ;;=105^2930000^14.6

 +63      ;;^UTILITY(U,$J,356.5,106,0)

 +64      ;;=106^2930000^15.3

 +65      ;;^UTILITY(U,$J,356.5,107,0)

 +66      ;;=107^2930000^11.8

 +67      ;;^UTILITY(U,$J,356.5,108,0)

 +68      ;;=108^2930000^15.3

 +69      ;;^UTILITY(U,$J,356.5,109,0)

 +70      ;;=109^2930000^0

 +71      ;;^UTILITY(U,$J,356.5,110,0)

 +72      ;;=110^2930000^13.5

 +73      ;;^UTILITY(U,$J,356.5,111,0)

 +74      ;;=111^2930000^8.3

 +75      ;;^UTILITY(U,$J,356.5,112,0)

 +76      ;;=112^2930000^6.1

 +77      ;;^UTILITY(U,$J,356.5,113,0)

 +78      ;;=113^2930000^19.2

 +79      ;;^UTILITY(U,$J,356.5,114,0)

 +80      ;;=114^2930000^12.6

 +81      ;;^UTILITY(U,$J,356.5,115,0)

 +82      ;;=115^2930000^13.9

 +83      ;;^UTILITY(U,$J,356.5,116,0)

 +84      ;;=116^2930000^7.3

 +85      ;;^UTILITY(U,$J,356.5,117,0)

 +86      ;;=117^2930000^5.5

 +87      ;;^UTILITY(U,$J,356.5,118,0)

 +88      ;;=118^2930000^3.9

 +89      ;;^UTILITY(U,$J,356.5,119,0)

 +90      ;;=119^2930000^6.3

 +91      ;;^UTILITY(U,$J,356.5,120,0)

 +92      ;;=120^2930000^12.3

 +93      ;;^UTILITY(U,$J,356.5,121,0)

 +94      ;;=121^2930000^9.6

 +95      ;;^UTILITY(U,$J,356.5,122,0)

 +96      ;;=122^2930000^6.9

 +97      ;;^UTILITY(U,$J,356.5,123,0)

 +98      ;;=123^2930000^5.3

 +99      ;;^UTILITY(U,$J,356.5,124,0)

 +100     ;;=124^2930000^5.8

 +101     ;;^UTILITY(U,$J,356.5,125,0)

 +102     ;;=125^2930000^3.1

 +103     ;;^UTILITY(U,$J,356.5,126,0)

 +104     ;;=126^2930000^20.2

 +105     ;;^UTILITY(U,$J,356.5,127,0)

 +106     ;;=127^2930000^7.8

 +107     ;;^UTILITY(U,$J,356.5,128,0)

 +108     ;;=128^2930000^8.4

 +109     ;;^UTILITY(U,$J,356.5,129,0)

 +110     ;;=129^2930000^4.8

 +111     ;;^UTILITY(U,$J,356.5,130,0)

 +112     ;;=130^2930000^8.2

 +113     ;;^UTILITY(U,$J,356.5,131,0)

 +114     ;;=131^2930000^6.3

 +115     ;;^UTILITY(U,$J,356.5,132,0)

 +116     ;;=132^2930000^6.4

 +117     ;;^UTILITY(U,$J,356.5,133,0)

 +118     ;;=133^2930000^6

 +119     ;;^UTILITY(U,$J,356.5,134,0)

 +120     ;;=134^2930000^5.2

 +121     ;;^UTILITY(U,$J,356.5,135,0)

 +122     ;;=135^2930000^6.8

 +123     ;;^UTILITY(U,$J,356.5,136,0)

 +124     ;;=136^2930000^4.9

 +125     ;;^UTILITY(U,$J,356.5,137,0)

 +126     ;;=137^2930000^0

 +127     ;;^UTILITY(U,$J,356.5,138,0)

 +128     ;;=138^2930000^5.9

 +129     ;;^UTILITY(U,$J,356.5,139,0)

 +130     ;;=139^2930000^3.7

 +131     ;;^UTILITY(U,$J,356.5,140,0)

 +132     ;;=140^2930000^4.5

 +133     ;;^UTILITY(U,$J,356.5,141,0)

 +134     ;;=141^2930000^5.7

 +135     ;;^UTILITY(U,$J,356.5,142,0)

 +136     ;;=142^2930000^3.9

 +137     ;;^UTILITY(U,$J,356.5,143,0)

 +138     ;;=143^2930000^3.4

 +139     ;;^UTILITY(U,$J,356.5,144,0)

 +140     ;;=144^2930000^7.1

 +141     ;;^UTILITY(U,$J,356.5,145,0)

 +142     ;;=145^2930000^4.4

 +143     ;;^UTILITY(U,$J,356.5,146,0)

 +144     ;;=146^2930000^13.8

 +145     ;;^UTILITY(U,$J,356.5,147,0)

 +146     ;;=147^2930000^8.9

IBINI06T.m