IBINI06V ; ; 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,220,0)
;;=220^2930000^4.1
;;^UTILITY(U,$J,356.5,221,0)
;;=221^2930000^10.8
;;^UTILITY(U,$J,356.5,222,0)
;;=222^2930000^5.1
;;^UTILITY(U,$J,356.5,223,0)
;;=223^2930000^4.1
;;^UTILITY(U,$J,356.5,224,0)
;;=224^2930000^2.9
;;^UTILITY(U,$J,356.5,225,0)
;;=225^2930000^5.3
;;^UTILITY(U,$J,356.5,226,0)
;;=226^2930000^9
;;^UTILITY(U,$J,356.5,227,0)
;;=227^2930000^3.7
;;^UTILITY(U,$J,356.5,228,0)
;;=228^2930000^3.8
;;^UTILITY(U,$J,356.5,229,0)
;;=229^2930000^2.6
;;^UTILITY(U,$J,356.5,230,0)
;;=230^2930000^6.5
;;^UTILITY(U,$J,356.5,231,0)
;;=231^2930000^6.6
;;^UTILITY(U,$J,356.5,232,0)
;;=232^2930000^6.7
;;^UTILITY(U,$J,356.5,233,0)
;;=233^2930000^11
;;^UTILITY(U,$J,356.5,234,0)
;;=234^2930000^5.6
;;^UTILITY(U,$J,356.5,235,0)
;;=235^2930000^12.3
;;^UTILITY(U,$J,356.5,236,0)
;;=236^2930000^10.2
;;^UTILITY(U,$J,356.5,237,0)
;;=237^2930000^6.1
;;^UTILITY(U,$J,356.5,238,0)
;;=238^2930000^14
;;^UTILITY(U,$J,356.5,239,0)
;;=239^2930000^10.1
;;^UTILITY(U,$J,356.5,240,0)
;;=240^2930000^9.7
;;^UTILITY(U,$J,356.5,241,0)
;;=241^2930000^8.3
;;^UTILITY(U,$J,356.5,242,0)
;;=242^2930000^10.9
;;^UTILITY(U,$J,356.5,243,0)
;;=243^2930000^7.1
;;^UTILITY(U,$J,356.5,244,0)
;;=244^2930000^8.1
;;^UTILITY(U,$J,356.5,245,0)
;;=245^2930000^8.6
;;^UTILITY(U,$J,356.5,246,0)
;;=246^2930000^6.6
;;^UTILITY(U,$J,356.5,247,0)
;;=247^2930000^7.4
;;^UTILITY(U,$J,356.5,248,0)
;;=248^2930000^8
;;^UTILITY(U,$J,356.5,249,0)
;;=249^2930000^7.8
;;^UTILITY(U,$J,356.5,250,0)
;;=250^2930000^7
;;^UTILITY(U,$J,356.5,251,0)
;;=251^2930000^4.5
;;^UTILITY(U,$J,356.5,252,0)
;;=252^2930000^4
;;^UTILITY(U,$J,356.5,253,0)
;;=253^2930000^8.4
;;^UTILITY(U,$J,356.5,254,0)
;;=254^2930000^5.6
;;^UTILITY(U,$J,356.5,255,0)
;;=255^2930000^4.6
;;^UTILITY(U,$J,356.5,256,0)
;;=256^2930000^8.7
;;^UTILITY(U,$J,356.5,257,0)
;;=257^2930000^5.1
;;^UTILITY(U,$J,356.5,258,0)
;;=258^2930000^3.6
;;^UTILITY(U,$J,356.5,259,0)
;;=259^2930000^6
;;^UTILITY(U,$J,356.5,260,0)
;;=260^2930000^2.6
;;^UTILITY(U,$J,356.5,261,0)
;;=261^2930000^2.7
;;^UTILITY(U,$J,356.5,262,0)
;;=262^2930000^3.6
;;^UTILITY(U,$J,356.5,263,0)
;;=263^2930000^20.7
;;^UTILITY(U,$J,356.5,264,0)
;;=264^2930000^11.6
;;^UTILITY(U,$J,356.5,265,0)
;;=265^2930000^9.8
;;^UTILITY(U,$J,356.5,266,0)
;;=266^2930000^4.3
;;^UTILITY(U,$J,356.5,267,0)
;;=267^2930000^4.8
;;^UTILITY(U,$J,356.5,268,0)
;;=268^2930000^5.3
;;^UTILITY(U,$J,356.5,269,0)
;;=269^2930000^12.3
;;^UTILITY(U,$J,356.5,270,0)
;;=270^2930000^4.1
;;^UTILITY(U,$J,356.5,271,0)
;;=271^2930000^12.9
;;^UTILITY(U,$J,356.5,272,0)
;;=272^2930000^9.4
;;^UTILITY(U,$J,356.5,273,0)
;;=273^2930000^7.4
;;^UTILITY(U,$J,356.5,274,0)
;;=274^2930000^11.2
;;^UTILITY(U,$J,356.5,275,0)
;;=275^2930000^11
;;^UTILITY(U,$J,356.5,276,0)
;;=276^2930000^5.7
;;^UTILITY(U,$J,356.5,277,0)
;;=277^2930000^8.5
;;^UTILITY(U,$J,356.5,278,0)
;;=278^2930000^6.4
;;^UTILITY(U,$J,356.5,279,0)
;;=279^2930000^8.4
;;^UTILITY(U,$J,356.5,280,0)
;;=280^2930000^6.9
;;^UTILITY(U,$J,356.5,281,0)
;;=281^2930000^4.4
;;^UTILITY(U,$J,356.5,282,0)
;;=282^2930000^8.6
;;^UTILITY(U,$J,356.5,283,0)
;;=283^2930000^7.2
;;^UTILITY(U,$J,356.5,284,0)
;;=284^2930000^5
;;^UTILITY(U,$J,356.5,285,0)
;;=285^2930000^21.7
;;^UTILITY(U,$J,356.5,286,0)
;;=286^2930000^11.5
;;^UTILITY(U,$J,356.5,287,0)
;;=287^2930000^19.2
;;^UTILITY(U,$J,356.5,288,0)
;;=288^2930000^10.9
;;^UTILITY(U,$J,356.5,289,0)
;;=289^2930000^6.7
;;^UTILITY(U,$J,356.5,290,0)
;;=290^2930000^3.5
;;^UTILITY(U,$J,356.5,291,0)
;;=291^2930000^2.1
IBINI06V ; ; 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,220,0)
+2 ;;=220^2930000^4.1
+3 ;;^UTILITY(U,$J,356.5,221,0)
+4 ;;=221^2930000^10.8
+5 ;;^UTILITY(U,$J,356.5,222,0)
+6 ;;=222^2930000^5.1
+7 ;;^UTILITY(U,$J,356.5,223,0)
+8 ;;=223^2930000^4.1
+9 ;;^UTILITY(U,$J,356.5,224,0)
+10 ;;=224^2930000^2.9
+11 ;;^UTILITY(U,$J,356.5,225,0)
+12 ;;=225^2930000^5.3
+13 ;;^UTILITY(U,$J,356.5,226,0)
+14 ;;=226^2930000^9
+15 ;;^UTILITY(U,$J,356.5,227,0)
+16 ;;=227^2930000^3.7
+17 ;;^UTILITY(U,$J,356.5,228,0)
+18 ;;=228^2930000^3.8
+19 ;;^UTILITY(U,$J,356.5,229,0)
+20 ;;=229^2930000^2.6
+21 ;;^UTILITY(U,$J,356.5,230,0)
+22 ;;=230^2930000^6.5
+23 ;;^UTILITY(U,$J,356.5,231,0)
+24 ;;=231^2930000^6.6
+25 ;;^UTILITY(U,$J,356.5,232,0)
+26 ;;=232^2930000^6.7
+27 ;;^UTILITY(U,$J,356.5,233,0)
+28 ;;=233^2930000^11
+29 ;;^UTILITY(U,$J,356.5,234,0)
+30 ;;=234^2930000^5.6
+31 ;;^UTILITY(U,$J,356.5,235,0)
+32 ;;=235^2930000^12.3
+33 ;;^UTILITY(U,$J,356.5,236,0)
+34 ;;=236^2930000^10.2
+35 ;;^UTILITY(U,$J,356.5,237,0)
+36 ;;=237^2930000^6.1
+37 ;;^UTILITY(U,$J,356.5,238,0)
+38 ;;=238^2930000^14
+39 ;;^UTILITY(U,$J,356.5,239,0)
+40 ;;=239^2930000^10.1
+41 ;;^UTILITY(U,$J,356.5,240,0)
+42 ;;=240^2930000^9.7
+43 ;;^UTILITY(U,$J,356.5,241,0)
+44 ;;=241^2930000^8.3
+45 ;;^UTILITY(U,$J,356.5,242,0)
+46 ;;=242^2930000^10.9
+47 ;;^UTILITY(U,$J,356.5,243,0)
+48 ;;=243^2930000^7.1
+49 ;;^UTILITY(U,$J,356.5,244,0)
+50 ;;=244^2930000^8.1
+51 ;;^UTILITY(U,$J,356.5,245,0)
+52 ;;=245^2930000^8.6
+53 ;;^UTILITY(U,$J,356.5,246,0)
+54 ;;=246^2930000^6.6
+55 ;;^UTILITY(U,$J,356.5,247,0)
+56 ;;=247^2930000^7.4
+57 ;;^UTILITY(U,$J,356.5,248,0)
+58 ;;=248^2930000^8
+59 ;;^UTILITY(U,$J,356.5,249,0)
+60 ;;=249^2930000^7.8
+61 ;;^UTILITY(U,$J,356.5,250,0)
+62 ;;=250^2930000^7
+63 ;;^UTILITY(U,$J,356.5,251,0)
+64 ;;=251^2930000^4.5
+65 ;;^UTILITY(U,$J,356.5,252,0)
+66 ;;=252^2930000^4
+67 ;;^UTILITY(U,$J,356.5,253,0)
+68 ;;=253^2930000^8.4
+69 ;;^UTILITY(U,$J,356.5,254,0)
+70 ;;=254^2930000^5.6
+71 ;;^UTILITY(U,$J,356.5,255,0)
+72 ;;=255^2930000^4.6
+73 ;;^UTILITY(U,$J,356.5,256,0)
+74 ;;=256^2930000^8.7
+75 ;;^UTILITY(U,$J,356.5,257,0)
+76 ;;=257^2930000^5.1
+77 ;;^UTILITY(U,$J,356.5,258,0)
+78 ;;=258^2930000^3.6
+79 ;;^UTILITY(U,$J,356.5,259,0)
+80 ;;=259^2930000^6
+81 ;;^UTILITY(U,$J,356.5,260,0)
+82 ;;=260^2930000^2.6
+83 ;;^UTILITY(U,$J,356.5,261,0)
+84 ;;=261^2930000^2.7
+85 ;;^UTILITY(U,$J,356.5,262,0)
+86 ;;=262^2930000^3.6
+87 ;;^UTILITY(U,$J,356.5,263,0)
+88 ;;=263^2930000^20.7
+89 ;;^UTILITY(U,$J,356.5,264,0)
+90 ;;=264^2930000^11.6
+91 ;;^UTILITY(U,$J,356.5,265,0)
+92 ;;=265^2930000^9.8
+93 ;;^UTILITY(U,$J,356.5,266,0)
+94 ;;=266^2930000^4.3
+95 ;;^UTILITY(U,$J,356.5,267,0)
+96 ;;=267^2930000^4.8
+97 ;;^UTILITY(U,$J,356.5,268,0)
+98 ;;=268^2930000^5.3
+99 ;;^UTILITY(U,$J,356.5,269,0)
+100 ;;=269^2930000^12.3
+101 ;;^UTILITY(U,$J,356.5,270,0)
+102 ;;=270^2930000^4.1
+103 ;;^UTILITY(U,$J,356.5,271,0)
+104 ;;=271^2930000^12.9
+105 ;;^UTILITY(U,$J,356.5,272,0)
+106 ;;=272^2930000^9.4
+107 ;;^UTILITY(U,$J,356.5,273,0)
+108 ;;=273^2930000^7.4
+109 ;;^UTILITY(U,$J,356.5,274,0)
+110 ;;=274^2930000^11.2
+111 ;;^UTILITY(U,$J,356.5,275,0)
+112 ;;=275^2930000^11
+113 ;;^UTILITY(U,$J,356.5,276,0)
+114 ;;=276^2930000^5.7
+115 ;;^UTILITY(U,$J,356.5,277,0)
+116 ;;=277^2930000^8.5
+117 ;;^UTILITY(U,$J,356.5,278,0)
+118 ;;=278^2930000^6.4
+119 ;;^UTILITY(U,$J,356.5,279,0)
+120 ;;=279^2930000^8.4
+121 ;;^UTILITY(U,$J,356.5,280,0)
+122 ;;=280^2930000^6.9
+123 ;;^UTILITY(U,$J,356.5,281,0)
+124 ;;=281^2930000^4.4
+125 ;;^UTILITY(U,$J,356.5,282,0)
+126 ;;=282^2930000^8.6
+127 ;;^UTILITY(U,$J,356.5,283,0)
+128 ;;=283^2930000^7.2
+129 ;;^UTILITY(U,$J,356.5,284,0)
+130 ;;=284^2930000^5
+131 ;;^UTILITY(U,$J,356.5,285,0)
+132 ;;=285^2930000^21.7
+133 ;;^UTILITY(U,$J,356.5,286,0)
+134 ;;=286^2930000^11.5
+135 ;;^UTILITY(U,$J,356.5,287,0)
+136 ;;=287^2930000^19.2
+137 ;;^UTILITY(U,$J,356.5,288,0)
+138 ;;=288^2930000^10.9
+139 ;;^UTILITY(U,$J,356.5,289,0)
+140 ;;=289^2930000^6.7
+141 ;;^UTILITY(U,$J,356.5,290,0)
+142 ;;=290^2930000^3.5
+143 ;;^UTILITY(U,$J,356.5,291,0)
+144 ;;=291^2930000^2.1
