Routine: IBINI06U

IBINI06U	; ; 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,148,0)

	;;=148^2930000^15.9

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

	;;=149^2930000^9.1

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

	;;=150^2930000^13.9

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

	;;=151^2930000^7.6

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

	;;=152^2930000^10.8

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

	;;=153^2930000^7.1

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

	;;=154^2930000^18

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

	;;=155^2930000^8.6

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

	;;=156^2930000^22.6

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

	;;=157^2930000^6.6

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

	;;=158^2930000^3

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

	;;=159^2930000^6.3

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

	;;=160^2930000^3.3

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

	;;=161^2930000^4.6

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

	;;=162^2930000^2.2

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

	;;=163^2930000^4.6

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

	;;=164^2930000^11.2

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

	;;=165^2930000^7

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

	;;=166^2930000^7.2

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

	;;=167^2930000^4.1

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

	;;=168^2930000^5.8

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

	;;=169^2930000^2.9

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

	;;=170^2930000^16

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

	;;=171^2930000^7.4

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

	;;=172^2930000^10.6

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

	;;=173^2930000^7.4

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

	;;=174^2930000^6.9

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

	;;=175^2930000^4.5

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

	;;=176^2930000^7.7

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

	;;=177^2930000^6.2

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

	;;=178^2930000^4.4

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

	;;=179^2930000^9.8

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

	;;=180^2930000^7.7

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

	;;=181^2930000^4.7

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

	;;=182^2930000^0

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

	;;=183^2930000^4.7

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

	;;=184^2930000^4.9

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

	;;=185^2930000^6.2

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

	;;=186^2930000^2

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

	;;=187^2930000^3.9

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

	;;=188^2930000^7.4

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

	;;=189^2930000^4.1

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

	;;=190^2930000^5.7

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

	;;=191^2930000^20.1

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

	;;=192^2930000^9.7

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

	;;=193^2930000^16.5

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

	;;=194^2930000^9.6

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

	;;=195^2930000^12.4

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

	;;=196^2930000^8

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

	;;=197^2930000^8.5

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

	;;=198^2930000^3

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

	;;=199^2930000^14.2

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

	;;=200^2930000^13.7

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

	;;=201^2930000^14.4

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

	;;=202^2930000^9.8

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

	;;=203^2930000^9.8

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

	;;=204^2930000^8.1

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

	;;=205^2930000^9.1

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

	;;=206^2930000^6.2

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

	;;=207^2930000^7

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

	;;=208^2930000^4

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

	;;=209^2930000^10.5

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

	;;=210^2930000^13.2

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

	;;=211^2930000^9.5

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

	;;=212^2930000^11.6

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

	;;=213^2930000^13.2

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

	;;=214^2930000^10.3

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

	;;=215^2930000^6.1

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

	;;=216^2930000^14.4

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

	;;=217^2930000^21.7

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

	;;=218^2930000^9.1

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

	;;=219^2930000^5.2

IBINI06U  ; ; 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,148,0)

 +2       ;;=148^2930000^15.9

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

 +4       ;;=149^2930000^9.1

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

 +6       ;;=150^2930000^13.9

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

 +8       ;;=151^2930000^7.6

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

 +10      ;;=152^2930000^10.8

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

 +12      ;;=153^2930000^7.1

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

 +14      ;;=154^2930000^18

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

 +16      ;;=155^2930000^8.6

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

 +18      ;;=156^2930000^22.6

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

 +20      ;;=157^2930000^6.6

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

 +22      ;;=158^2930000^3

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

 +24      ;;=159^2930000^6.3

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

 +26      ;;=160^2930000^3.3

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

 +28      ;;=161^2930000^4.6

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

 +30      ;;=162^2930000^2.2

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

 +32      ;;=163^2930000^4.6

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

 +34      ;;=164^2930000^11.2

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

 +36      ;;=165^2930000^7

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

 +38      ;;=166^2930000^7.2

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

 +40      ;;=167^2930000^4.1

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

 +42      ;;=168^2930000^5.8

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

 +44      ;;=169^2930000^2.9

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

 +46      ;;=170^2930000^16

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

 +48      ;;=171^2930000^7.4

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

 +50      ;;=172^2930000^10.6

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

 +52      ;;=173^2930000^7.4

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

 +54      ;;=174^2930000^6.9

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

 +56      ;;=175^2930000^4.5

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

 +58      ;;=176^2930000^7.7

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

 +60      ;;=177^2930000^6.2

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

 +62      ;;=178^2930000^4.4

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

 +64      ;;=179^2930000^9.8

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

 +66      ;;=180^2930000^7.7

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

 +68      ;;=181^2930000^4.7

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

 +70      ;;=182^2930000^0

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

 +72      ;;=183^2930000^4.7

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

 +74      ;;=184^2930000^4.9

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

 +76      ;;=185^2930000^6.2

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

 +78      ;;=186^2930000^2

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

 +80      ;;=187^2930000^3.9

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

 +82      ;;=188^2930000^7.4

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

 +84      ;;=189^2930000^4.1

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

 +86      ;;=190^2930000^5.7

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

 +88      ;;=191^2930000^20.1

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

 +90      ;;=192^2930000^9.7

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

 +92      ;;=193^2930000^16.5

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

 +94      ;;=194^2930000^9.6

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

 +96      ;;=195^2930000^12.4

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

 +98      ;;=196^2930000^8

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

 +100     ;;=197^2930000^8.5

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

 +102     ;;=198^2930000^3

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

 +104     ;;=199^2930000^14.2

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

 +106     ;;=200^2930000^13.7

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

 +108     ;;=201^2930000^14.4

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

 +110     ;;=202^2930000^9.8

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

 +112     ;;=203^2930000^9.8

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

 +114     ;;=204^2930000^8.1

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

 +116     ;;=205^2930000^9.1

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

 +118     ;;=206^2930000^6.2

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

 +120     ;;=207^2930000^7

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

 +122     ;;=208^2930000^4

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

 +124     ;;=209^2930000^10.5

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

 +126     ;;=210^2930000^13.2

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

 +128     ;;=211^2930000^9.5

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

 +130     ;;=212^2930000^11.6

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

 +132     ;;=213^2930000^13.2

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

 +134     ;;=214^2930000^10.3

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

 +136     ;;=215^2930000^6.1

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

 +138     ;;=216^2930000^14.4

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

 +140     ;;=217^2930000^21.7

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

 +142     ;;=218^2930000^9.1

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

 +144     ;;=219^2930000^5.2

IBINI06U.m