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
