IBINI06S ; ; 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)
;;=^IBE(356.5,
;;^UTILITY(U,$J,356.5,0)
;;=CLAIMS TRACKING ALOS^356.5P^492^492
;;^UTILITY(U,$J,356.5,1,0)
;;=1^2930000^16
;;^UTILITY(U,$J,356.5,2,0)
;;=2^2930000^15.3
;;^UTILITY(U,$J,356.5,3,0)
;;=3^2930000^20.2
;;^UTILITY(U,$J,356.5,4,0)
;;=4^2930000^13.3
;;^UTILITY(U,$J,356.5,5,0)
;;=5^2930000^6.8
;;^UTILITY(U,$J,356.5,6,0)
;;=6^2930000^3.3
;;^UTILITY(U,$J,356.5,7,0)
;;=7^2930000^22.9
;;^UTILITY(U,$J,356.5,8,0)
;;=8^2930000^4.9
;;^UTILITY(U,$J,356.5,9,0)
;;=9^2930000^16.8
;;^UTILITY(U,$J,356.5,10,0)
;;=10^2930000^11.1
;;^UTILITY(U,$J,356.5,11,0)
;;=11^2930000^8.3
;;^UTILITY(U,$J,356.5,12,0)
;;=12^2930000^13.3
;;^UTILITY(U,$J,356.5,13,0)
;;=13^2930000^11.3
;;^UTILITY(U,$J,356.5,14,0)
;;=14^2930000^10.4
;;^UTILITY(U,$J,356.5,15,0)
;;=15^2930000^5.5
;;^UTILITY(U,$J,356.5,16,0)
;;=16^2930000^9.7
;;^UTILITY(U,$J,356.5,17,0)
;;=17^2930000^8.1
;;^UTILITY(U,$J,356.5,18,0)
;;=18^2930000^8.3
;;^UTILITY(U,$J,356.5,19,0)
;;=19^2930000^6.3
;;^UTILITY(U,$J,356.5,20,0)
;;=20^2930000^13.1
;;^UTILITY(U,$J,356.5,21,0)
;;=21^2930000^9.8
;;^UTILITY(U,$J,356.5,22,0)
;;=22^2930000^5.5
;;^UTILITY(U,$J,356.5,23,0)
;;=23^2930000^7
;;^UTILITY(U,$J,356.5,24,0)
;;=24^2930000^7.5
;;^UTILITY(U,$J,356.5,25,0)
;;=25^2930000^4.7
;;^UTILITY(U,$J,356.5,26,0)
;;=26^2930000^5.9
;;^UTILITY(U,$J,356.5,27,0)
;;=27^2930000^9.7
;;^UTILITY(U,$J,356.5,28,0)
;;=28^2930000^9.8
;;^UTILITY(U,$J,356.5,29,0)
;;=29^2930000^7.5
;;^UTILITY(U,$J,356.5,30,0)
;;=30^2930000^22.2
;;^UTILITY(U,$J,356.5,31,0)
;;=31^2930000^7
;;^UTILITY(U,$J,356.5,32,0)
;;=32^2930000^3.8
;;^UTILITY(U,$J,356.5,33,0)
;;=33^2930000^0
;;^UTILITY(U,$J,356.5,34,0)
;;=34^2930000^10.1
;;^UTILITY(U,$J,356.5,35,0)
;;=35^2930000^9
;;^UTILITY(U,$J,356.5,36,0)
;;=36^2930000^2.3
;;^UTILITY(U,$J,356.5,37,0)
;;=37^2930000^4.6
;;^UTILITY(U,$J,356.5,38,0)
;;=38^2930000^3
;;^UTILITY(U,$J,356.5,39,0)
;;=39^2930000^1.9
;;^UTILITY(U,$J,356.5,40,0)
;;=40^2930000^3.4
;;^UTILITY(U,$J,356.5,41,0)
;;=41^2930000^3
;;^UTILITY(U,$J,356.5,42,0)
;;=42^2930000^2.6
;;^UTILITY(U,$J,356.5,43,0)
;;=43^2930000^5.6
;;^UTILITY(U,$J,356.5,44,0)
;;=44^2930000^6.3
;;^UTILITY(U,$J,356.5,45,0)
;;=45^2930000^4.6
;;^UTILITY(U,$J,356.5,46,0)
;;=46^2930000^6.5
;;^UTILITY(U,$J,356.5,47,0)
;;=47^2930000^5.5
;;^UTILITY(U,$J,356.5,48,0)
;;=48^2930000^15.5
;;^UTILITY(U,$J,356.5,49,0)
;;=49^2930000^7.9
;;^UTILITY(U,$J,356.5,50,0)
;;=50^2930000^2.6
;;^UTILITY(U,$J,356.5,51,0)
;;=51^2930000^2.8
;;^UTILITY(U,$J,356.5,52,0)
;;=52^2930000^3.2
;;^UTILITY(U,$J,356.5,53,0)
;;=53^2930000^3.4
;;^UTILITY(U,$J,356.5,54,0)
;;=54^2930000^0
;;^UTILITY(U,$J,356.5,55,0)
;;=55^2930000^2.7
;;^UTILITY(U,$J,356.5,56,0)
;;=56^2930000^2.8
;;^UTILITY(U,$J,356.5,57,0)
;;=57^2930000^5.4
;;^UTILITY(U,$J,356.5,58,0)
;;=58^2930000^1
;;^UTILITY(U,$J,356.5,59,0)
;;=59^2930000^2.2
;;^UTILITY(U,$J,356.5,60,0)
;;=60^2930000^11
;;^UTILITY(U,$J,356.5,61,0)
;;=61^2930000^5
;;^UTILITY(U,$J,356.5,62,0)
;;=62^2930000^1
;;^UTILITY(U,$J,356.5,63,0)
;;=63^2930000^5.7
;;^UTILITY(U,$J,356.5,64,0)
;;=64^2930000^9.6
;;^UTILITY(U,$J,356.5,65,0)
;;=65^2930000^4.2
;;^UTILITY(U,$J,356.5,66,0)
;;=66^2930000^4.3
;;^UTILITY(U,$J,356.5,67,0)
;;=67^2930000^5.2
;;^UTILITY(U,$J,356.5,68,0)
;;=68^2930000^6.1
;;^UTILITY(U,$J,356.5,69,0)
;;=69^2930000^4.4
;;^UTILITY(U,$J,356.5,70,0)
;;=70^2930000^4
;;^UTILITY(U,$J,356.5,71,0)
;;=71^2930000^5.1
;;^UTILITY(U,$J,356.5,72,0)
;;=72^2930000^5.7
;;^UTILITY(U,$J,356.5,73,0)
;;=73^2930000^6.1
;;^UTILITY(U,$J,356.5,74,0)
;;=74^2930000^7.7
IBINI06S ; ; 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)
+2 ;;=^IBE(356.5,
+3 ;;^UTILITY(U,$J,356.5,0)
+4 ;;=CLAIMS TRACKING ALOS^356.5P^492^492
+5 ;;^UTILITY(U,$J,356.5,1,0)
+6 ;;=1^2930000^16
+7 ;;^UTILITY(U,$J,356.5,2,0)
+8 ;;=2^2930000^15.3
+9 ;;^UTILITY(U,$J,356.5,3,0)
+10 ;;=3^2930000^20.2
+11 ;;^UTILITY(U,$J,356.5,4,0)
+12 ;;=4^2930000^13.3
+13 ;;^UTILITY(U,$J,356.5,5,0)
+14 ;;=5^2930000^6.8
+15 ;;^UTILITY(U,$J,356.5,6,0)
+16 ;;=6^2930000^3.3
+17 ;;^UTILITY(U,$J,356.5,7,0)
+18 ;;=7^2930000^22.9
+19 ;;^UTILITY(U,$J,356.5,8,0)
+20 ;;=8^2930000^4.9
+21 ;;^UTILITY(U,$J,356.5,9,0)
+22 ;;=9^2930000^16.8
+23 ;;^UTILITY(U,$J,356.5,10,0)
+24 ;;=10^2930000^11.1
+25 ;;^UTILITY(U,$J,356.5,11,0)
+26 ;;=11^2930000^8.3
+27 ;;^UTILITY(U,$J,356.5,12,0)
+28 ;;=12^2930000^13.3
+29 ;;^UTILITY(U,$J,356.5,13,0)
+30 ;;=13^2930000^11.3
+31 ;;^UTILITY(U,$J,356.5,14,0)
+32 ;;=14^2930000^10.4
+33 ;;^UTILITY(U,$J,356.5,15,0)
+34 ;;=15^2930000^5.5
+35 ;;^UTILITY(U,$J,356.5,16,0)
+36 ;;=16^2930000^9.7
+37 ;;^UTILITY(U,$J,356.5,17,0)
+38 ;;=17^2930000^8.1
+39 ;;^UTILITY(U,$J,356.5,18,0)
+40 ;;=18^2930000^8.3
+41 ;;^UTILITY(U,$J,356.5,19,0)
+42 ;;=19^2930000^6.3
+43 ;;^UTILITY(U,$J,356.5,20,0)
+44 ;;=20^2930000^13.1
+45 ;;^UTILITY(U,$J,356.5,21,0)
+46 ;;=21^2930000^9.8
+47 ;;^UTILITY(U,$J,356.5,22,0)
+48 ;;=22^2930000^5.5
+49 ;;^UTILITY(U,$J,356.5,23,0)
+50 ;;=23^2930000^7
+51 ;;^UTILITY(U,$J,356.5,24,0)
+52 ;;=24^2930000^7.5
+53 ;;^UTILITY(U,$J,356.5,25,0)
+54 ;;=25^2930000^4.7
+55 ;;^UTILITY(U,$J,356.5,26,0)
+56 ;;=26^2930000^5.9
+57 ;;^UTILITY(U,$J,356.5,27,0)
+58 ;;=27^2930000^9.7
+59 ;;^UTILITY(U,$J,356.5,28,0)
+60 ;;=28^2930000^9.8
+61 ;;^UTILITY(U,$J,356.5,29,0)
+62 ;;=29^2930000^7.5
+63 ;;^UTILITY(U,$J,356.5,30,0)
+64 ;;=30^2930000^22.2
+65 ;;^UTILITY(U,$J,356.5,31,0)
+66 ;;=31^2930000^7
+67 ;;^UTILITY(U,$J,356.5,32,0)
+68 ;;=32^2930000^3.8
+69 ;;^UTILITY(U,$J,356.5,33,0)
+70 ;;=33^2930000^0
+71 ;;^UTILITY(U,$J,356.5,34,0)
+72 ;;=34^2930000^10.1
+73 ;;^UTILITY(U,$J,356.5,35,0)
+74 ;;=35^2930000^9
+75 ;;^UTILITY(U,$J,356.5,36,0)
+76 ;;=36^2930000^2.3
+77 ;;^UTILITY(U,$J,356.5,37,0)
+78 ;;=37^2930000^4.6
+79 ;;^UTILITY(U,$J,356.5,38,0)
+80 ;;=38^2930000^3
+81 ;;^UTILITY(U,$J,356.5,39,0)
+82 ;;=39^2930000^1.9
+83 ;;^UTILITY(U,$J,356.5,40,0)
+84 ;;=40^2930000^3.4
+85 ;;^UTILITY(U,$J,356.5,41,0)
+86 ;;=41^2930000^3
+87 ;;^UTILITY(U,$J,356.5,42,0)
+88 ;;=42^2930000^2.6
+89 ;;^UTILITY(U,$J,356.5,43,0)
+90 ;;=43^2930000^5.6
+91 ;;^UTILITY(U,$J,356.5,44,0)
+92 ;;=44^2930000^6.3
+93 ;;^UTILITY(U,$J,356.5,45,0)
+94 ;;=45^2930000^4.6
+95 ;;^UTILITY(U,$J,356.5,46,0)
+96 ;;=46^2930000^6.5
+97 ;;^UTILITY(U,$J,356.5,47,0)
+98 ;;=47^2930000^5.5
+99 ;;^UTILITY(U,$J,356.5,48,0)
+100 ;;=48^2930000^15.5
+101 ;;^UTILITY(U,$J,356.5,49,0)
+102 ;;=49^2930000^7.9
+103 ;;^UTILITY(U,$J,356.5,50,0)
+104 ;;=50^2930000^2.6
+105 ;;^UTILITY(U,$J,356.5,51,0)
+106 ;;=51^2930000^2.8
+107 ;;^UTILITY(U,$J,356.5,52,0)
+108 ;;=52^2930000^3.2
+109 ;;^UTILITY(U,$J,356.5,53,0)
+110 ;;=53^2930000^3.4
+111 ;;^UTILITY(U,$J,356.5,54,0)
+112 ;;=54^2930000^0
+113 ;;^UTILITY(U,$J,356.5,55,0)
+114 ;;=55^2930000^2.7
+115 ;;^UTILITY(U,$J,356.5,56,0)
+116 ;;=56^2930000^2.8
+117 ;;^UTILITY(U,$J,356.5,57,0)
+118 ;;=57^2930000^5.4
+119 ;;^UTILITY(U,$J,356.5,58,0)
+120 ;;=58^2930000^1
+121 ;;^UTILITY(U,$J,356.5,59,0)
+122 ;;=59^2930000^2.2
+123 ;;^UTILITY(U,$J,356.5,60,0)
+124 ;;=60^2930000^11
+125 ;;^UTILITY(U,$J,356.5,61,0)
+126 ;;=61^2930000^5
+127 ;;^UTILITY(U,$J,356.5,62,0)
+128 ;;=62^2930000^1
+129 ;;^UTILITY(U,$J,356.5,63,0)
+130 ;;=63^2930000^5.7
+131 ;;^UTILITY(U,$J,356.5,64,0)
+132 ;;=64^2930000^9.6
+133 ;;^UTILITY(U,$J,356.5,65,0)
+134 ;;=65^2930000^4.2
+135 ;;^UTILITY(U,$J,356.5,66,0)
+136 ;;=66^2930000^4.3
+137 ;;^UTILITY(U,$J,356.5,67,0)
+138 ;;=67^2930000^5.2
+139 ;;^UTILITY(U,$J,356.5,68,0)
+140 ;;=68^2930000^6.1
+141 ;;^UTILITY(U,$J,356.5,69,0)
+142 ;;=69^2930000^4.4
+143 ;;^UTILITY(U,$J,356.5,70,0)
+144 ;;=70^2930000^4
+145 ;;^UTILITY(U,$J,356.5,71,0)
+146 ;;=71^2930000^5.1
+147 ;;^UTILITY(U,$J,356.5,72,0)
+148 ;;=72^2930000^5.7
+149 ;;^UTILITY(U,$J,356.5,73,0)
+150 ;;=73^2930000^6.1
+151 ;;^UTILITY(U,$J,356.5,74,0)
+152 ;;=74^2930000^7.7
