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
