IBINI06X ; ; 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,364,0)
;;=364^2930000^4.3
;;^UTILITY(U,$J,356.5,365,0)
;;=365^2930000^10.9
;;^UTILITY(U,$J,356.5,366,0)
;;=366^2930000^10.3
;;^UTILITY(U,$J,356.5,367,0)
;;=367^2930000^6.5
;;^UTILITY(U,$J,356.5,368,0)
;;=368^2930000^7.6
;;^UTILITY(U,$J,356.5,369,0)
;;=369^2930000^4.8
;;^UTILITY(U,$J,356.5,370,0)
;;=370^2930000^6.6
;;^UTILITY(U,$J,356.5,371,0)
;;=371^2930000^4.4
;;^UTILITY(U,$J,356.5,372,0)
;;=372^2930000^3.7
;;^UTILITY(U,$J,356.5,373,0)
;;=373^2930000^2.5
;;^UTILITY(U,$J,356.5,374,0)
;;=374^2930000^3.5
;;^UTILITY(U,$J,356.5,375,0)
;;=375^2930000^13.1
;;^UTILITY(U,$J,356.5,376,0)
;;=376^2930000^3.4
;;^UTILITY(U,$J,356.5,377,0)
;;=377^2930000^5.1
;;^UTILITY(U,$J,356.5,378,0)
;;=378^2930000^3.6
;;^UTILITY(U,$J,356.5,379,0)
;;=379^2930000^3
;;^UTILITY(U,$J,356.5,380,0)
;;=380^2930000^2.8
;;^UTILITY(U,$J,356.5,381,0)
;;=381^2930000^2.5
;;^UTILITY(U,$J,356.5,382,0)
;;=382^2930000^1.5
;;^UTILITY(U,$J,356.5,383,0)
;;=383^2930000^5.1
;;^UTILITY(U,$J,356.5,384,0)
;;=384^2930000^2.6
;;^UTILITY(U,$J,356.5,385,0)
;;=385^2930000^2.7
;;^UTILITY(U,$J,356.5,386,0)
;;=386^2930000^149
;;^UTILITY(U,$J,356.5,387,0)
;;=387^2930000^5.5
;;^UTILITY(U,$J,356.5,388,0)
;;=388^2930000^0
;;^UTILITY(U,$J,356.5,389,0)
;;=389^2930000^9.5
;;^UTILITY(U,$J,356.5,390,0)
;;=390^2930000^16.1
;;^UTILITY(U,$J,356.5,391,0)
;;=391^2930000^0
;;^UTILITY(U,$J,356.5,392,0)
;;=392^2930000^14.1
;;^UTILITY(U,$J,356.5,393,0)
;;=393^2930000^0
;;^UTILITY(U,$J,356.5,394,0)
;;=394^2930000^10.5
;;^UTILITY(U,$J,356.5,395,0)
;;=395^2930000^6.5
;;^UTILITY(U,$J,356.5,396,0)
;;=396^2930000^4
;;^UTILITY(U,$J,356.5,397,0)
;;=397^2930000^7.5
;;^UTILITY(U,$J,356.5,398,0)
;;=398^2930000^8.4
;;^UTILITY(U,$J,356.5,399,0)
;;=399^2930000^5.4
;;^UTILITY(U,$J,356.5,400,0)
;;=400^2930000^13.4
;;^UTILITY(U,$J,356.5,401,0)
;;=401^2930000^16.1
;;^UTILITY(U,$J,356.5,402,0)
;;=402^2930000^5.3
;;^UTILITY(U,$J,356.5,403,0)
;;=403^2930000^12.1
;;^UTILITY(U,$J,356.5,404,0)
;;=404^2930000^6.3
;;^UTILITY(U,$J,356.5,405,0)
;;=405^2930000^2.9
;;^UTILITY(U,$J,356.5,406,0)
;;=406^2930000^15.3
;;^UTILITY(U,$J,356.5,407,0)
;;=407^2930000^6.6
;;^UTILITY(U,$J,356.5,408,0)
;;=408^2930000^8.6
;;^UTILITY(U,$J,356.5,409,0)
;;=409^2930000^9.1
;;^UTILITY(U,$J,356.5,410,0)
;;=410^2930000^3.7
;;^UTILITY(U,$J,356.5,411,0)
;;=411^2930000^3.8
;;^UTILITY(U,$J,356.5,412,0)
;;=412^2930000^2.9
;;^UTILITY(U,$J,356.5,413,0)
;;=413^2930000^10.8
;;^UTILITY(U,$J,356.5,414,0)
;;=414^2930000^6.8
;;^UTILITY(U,$J,356.5,415,0)
;;=415^2930000^20.7
;;^UTILITY(U,$J,356.5,416,0)
;;=416^2930000^10.5
;;^UTILITY(U,$J,356.5,417,0)
;;=417^2930000^9
;;^UTILITY(U,$J,356.5,418,0)
;;=418^2930000^8.4
;;^UTILITY(U,$J,356.5,419,0)
;;=419^2930000^7.5
;;^UTILITY(U,$J,356.5,420,0)
;;=420^2930000^6
;;^UTILITY(U,$J,356.5,421,0)
;;=421^2930000^5.6
;;^UTILITY(U,$J,356.5,422,0)
;;=422^2930000^5.3
;;^UTILITY(U,$J,356.5,423,0)
;;=423^2930000^11.9
;;^UTILITY(U,$J,356.5,424,0)
;;=424^2930000^24.8
;;^UTILITY(U,$J,356.5,425,0)
;;=425^2930000^8.7
;;^UTILITY(U,$J,356.5,426,0)
;;=426^2930000^11.7
;;^UTILITY(U,$J,356.5,427,0)
;;=427^2930000^12
;;^UTILITY(U,$J,356.5,428,0)
;;=428^2930000^16.6
;;^UTILITY(U,$J,356.5,429,0)
;;=429^2930000^20.4
;;^UTILITY(U,$J,356.5,430,0)
;;=430^2930000^19.3
;;^UTILITY(U,$J,356.5,431,0)
;;=431^2930000^17.4
;;^UTILITY(U,$J,356.5,432,0)
;;=432^2930000^15.8
;;^UTILITY(U,$J,356.5,433,0)
;;=433^2930000^4.8
;;^UTILITY(U,$J,356.5,434,0)
;;=434^2930000^8.6
;;^UTILITY(U,$J,356.5,435,0)
;;=435^2930000^11.6
IBINI06X ; ; 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,364,0)
+2 ;;=364^2930000^4.3
+3 ;;^UTILITY(U,$J,356.5,365,0)
+4 ;;=365^2930000^10.9
+5 ;;^UTILITY(U,$J,356.5,366,0)
+6 ;;=366^2930000^10.3
+7 ;;^UTILITY(U,$J,356.5,367,0)
+8 ;;=367^2930000^6.5
+9 ;;^UTILITY(U,$J,356.5,368,0)
+10 ;;=368^2930000^7.6
+11 ;;^UTILITY(U,$J,356.5,369,0)
+12 ;;=369^2930000^4.8
+13 ;;^UTILITY(U,$J,356.5,370,0)
+14 ;;=370^2930000^6.6
+15 ;;^UTILITY(U,$J,356.5,371,0)
+16 ;;=371^2930000^4.4
+17 ;;^UTILITY(U,$J,356.5,372,0)
+18 ;;=372^2930000^3.7
+19 ;;^UTILITY(U,$J,356.5,373,0)
+20 ;;=373^2930000^2.5
+21 ;;^UTILITY(U,$J,356.5,374,0)
+22 ;;=374^2930000^3.5
+23 ;;^UTILITY(U,$J,356.5,375,0)
+24 ;;=375^2930000^13.1
+25 ;;^UTILITY(U,$J,356.5,376,0)
+26 ;;=376^2930000^3.4
+27 ;;^UTILITY(U,$J,356.5,377,0)
+28 ;;=377^2930000^5.1
+29 ;;^UTILITY(U,$J,356.5,378,0)
+30 ;;=378^2930000^3.6
+31 ;;^UTILITY(U,$J,356.5,379,0)
+32 ;;=379^2930000^3
+33 ;;^UTILITY(U,$J,356.5,380,0)
+34 ;;=380^2930000^2.8
+35 ;;^UTILITY(U,$J,356.5,381,0)
+36 ;;=381^2930000^2.5
+37 ;;^UTILITY(U,$J,356.5,382,0)
+38 ;;=382^2930000^1.5
+39 ;;^UTILITY(U,$J,356.5,383,0)
+40 ;;=383^2930000^5.1
+41 ;;^UTILITY(U,$J,356.5,384,0)
+42 ;;=384^2930000^2.6
+43 ;;^UTILITY(U,$J,356.5,385,0)
+44 ;;=385^2930000^2.7
+45 ;;^UTILITY(U,$J,356.5,386,0)
+46 ;;=386^2930000^149
+47 ;;^UTILITY(U,$J,356.5,387,0)
+48 ;;=387^2930000^5.5
+49 ;;^UTILITY(U,$J,356.5,388,0)
+50 ;;=388^2930000^0
+51 ;;^UTILITY(U,$J,356.5,389,0)
+52 ;;=389^2930000^9.5
+53 ;;^UTILITY(U,$J,356.5,390,0)
+54 ;;=390^2930000^16.1
+55 ;;^UTILITY(U,$J,356.5,391,0)
+56 ;;=391^2930000^0
+57 ;;^UTILITY(U,$J,356.5,392,0)
+58 ;;=392^2930000^14.1
+59 ;;^UTILITY(U,$J,356.5,393,0)
+60 ;;=393^2930000^0
+61 ;;^UTILITY(U,$J,356.5,394,0)
+62 ;;=394^2930000^10.5
+63 ;;^UTILITY(U,$J,356.5,395,0)
+64 ;;=395^2930000^6.5
+65 ;;^UTILITY(U,$J,356.5,396,0)
+66 ;;=396^2930000^4
+67 ;;^UTILITY(U,$J,356.5,397,0)
+68 ;;=397^2930000^7.5
+69 ;;^UTILITY(U,$J,356.5,398,0)
+70 ;;=398^2930000^8.4
+71 ;;^UTILITY(U,$J,356.5,399,0)
+72 ;;=399^2930000^5.4
+73 ;;^UTILITY(U,$J,356.5,400,0)
+74 ;;=400^2930000^13.4
+75 ;;^UTILITY(U,$J,356.5,401,0)
+76 ;;=401^2930000^16.1
+77 ;;^UTILITY(U,$J,356.5,402,0)
+78 ;;=402^2930000^5.3
+79 ;;^UTILITY(U,$J,356.5,403,0)
+80 ;;=403^2930000^12.1
+81 ;;^UTILITY(U,$J,356.5,404,0)
+82 ;;=404^2930000^6.3
+83 ;;^UTILITY(U,$J,356.5,405,0)
+84 ;;=405^2930000^2.9
+85 ;;^UTILITY(U,$J,356.5,406,0)
+86 ;;=406^2930000^15.3
+87 ;;^UTILITY(U,$J,356.5,407,0)
+88 ;;=407^2930000^6.6
+89 ;;^UTILITY(U,$J,356.5,408,0)
+90 ;;=408^2930000^8.6
+91 ;;^UTILITY(U,$J,356.5,409,0)
+92 ;;=409^2930000^9.1
+93 ;;^UTILITY(U,$J,356.5,410,0)
+94 ;;=410^2930000^3.7
+95 ;;^UTILITY(U,$J,356.5,411,0)
+96 ;;=411^2930000^3.8
+97 ;;^UTILITY(U,$J,356.5,412,0)
+98 ;;=412^2930000^2.9
+99 ;;^UTILITY(U,$J,356.5,413,0)
+100 ;;=413^2930000^10.8
+101 ;;^UTILITY(U,$J,356.5,414,0)
+102 ;;=414^2930000^6.8
+103 ;;^UTILITY(U,$J,356.5,415,0)
+104 ;;=415^2930000^20.7
+105 ;;^UTILITY(U,$J,356.5,416,0)
+106 ;;=416^2930000^10.5
+107 ;;^UTILITY(U,$J,356.5,417,0)
+108 ;;=417^2930000^9
+109 ;;^UTILITY(U,$J,356.5,418,0)
+110 ;;=418^2930000^8.4
+111 ;;^UTILITY(U,$J,356.5,419,0)
+112 ;;=419^2930000^7.5
+113 ;;^UTILITY(U,$J,356.5,420,0)
+114 ;;=420^2930000^6
+115 ;;^UTILITY(U,$J,356.5,421,0)
+116 ;;=421^2930000^5.6
+117 ;;^UTILITY(U,$J,356.5,422,0)
+118 ;;=422^2930000^5.3
+119 ;;^UTILITY(U,$J,356.5,423,0)
+120 ;;=423^2930000^11.9
+121 ;;^UTILITY(U,$J,356.5,424,0)
+122 ;;=424^2930000^24.8
+123 ;;^UTILITY(U,$J,356.5,425,0)
+124 ;;=425^2930000^8.7
+125 ;;^UTILITY(U,$J,356.5,426,0)
+126 ;;=426^2930000^11.7
+127 ;;^UTILITY(U,$J,356.5,427,0)
+128 ;;=427^2930000^12
+129 ;;^UTILITY(U,$J,356.5,428,0)
+130 ;;=428^2930000^16.6
+131 ;;^UTILITY(U,$J,356.5,429,0)
+132 ;;=429^2930000^20.4
+133 ;;^UTILITY(U,$J,356.5,430,0)
+134 ;;=430^2930000^19.3
+135 ;;^UTILITY(U,$J,356.5,431,0)
+136 ;;=431^2930000^17.4
+137 ;;^UTILITY(U,$J,356.5,432,0)
+138 ;;=432^2930000^15.8
+139 ;;^UTILITY(U,$J,356.5,433,0)
+140 ;;=433^2930000^4.8
+141 ;;^UTILITY(U,$J,356.5,434,0)
+142 ;;=434^2930000^8.6
+143 ;;^UTILITY(U,$J,356.5,435,0)
+144 ;;=435^2930000^11.6
