IBINI0EA ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
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,"PKG",200,4,"B",358.4,55)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",358.5,56)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",358.6,57)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",358.7,58)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",358.8,59)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",358.91,60)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",362.1,85)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",362.3,90)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",362.4,91)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",362.5,92)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",399,15)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",399.1,16)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",399.2,17)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",399.3,18)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",399.4,19)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",399.5,20)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",409.95,61)
;;=
;;^UTILITY(U,$J,"PKG",200,4,"B",409.96,62)
;;=
;;^UTILITY(U,$J,"PKG",200,5)
;;=ALBANY
;;^UTILITY(U,$J,"PKG",200,7)
;;=ALBANY^^I
;;^UTILITY(U,$J,"PKG",200,8,0)
;;=^9.404ID
;;^UTILITY(U,$J,"PKG",200,11)
;;=350^399.9
;;^UTILITY(U,$J,"PKG",200,22,0)
;;=^9.49I^10^27
;;^UTILITY(U,$J,"PKG",200,22,.01,0)
;;=0.01^2910214
;;^UTILITY(U,$J,"PKG",200,22,.1,0)
;;=0.1^2910305
;;^UTILITY(U,$J,"PKG",200,22,.11,0)
;;=0.11^2910313
;;^UTILITY(U,$J,"PKG",200,22,.2,0)
;;=0.2^2910315
;;^UTILITY(U,$J,"PKG",200,22,.21,0)
;;=0.21^2910319
;;^UTILITY(U,$J,"PKG",200,22,.22,0)
;;=0.22^2910321
;;^UTILITY(U,$J,"PKG",200,22,.3,0)
;;=0.3^2910404
;;^UTILITY(U,$J,"PKG",200,22,.31,0)
;;=0.31^2910417
;;^UTILITY(U,$J,"PKG",200,22,.4,0)
;;=0.40^2910424
;;^UTILITY(U,$J,"PKG",200,22,.41,0)
;;=0.41^2910429
;;^UTILITY(U,$J,"PKG",200,22,.5,0)
;;=0.50^2910502
;;^UTILITY(U,$J,"PKG",200,22,.51,0)
;;=0.51^2910521
;;^UTILITY(U,$J,"PKG",200,22,1,0)
;;=1^2910523
;;^UTILITY(U,$J,"PKG",200,22,1.01,0)
;;=1.01^2920407^2920406
;;^UTILITY(U,$J,"PKG",200,22,1.41,0)
;;=1.41^2920424
;;^UTILITY(U,$J,"PKG",200,22,1.42,0)
;;=1.42^2920506
;;^UTILITY(U,$J,"PKG",200,22,1.43,0)
;;=1.43^2920611
;;^UTILITY(U,$J,"PKG",200,22,1.5,0)
;;=1.5^2920728
;;^UTILITY(U,$J,"PKG",200,22,2,0)
;;=2.0a1^2930903
;;^UTILITY(U,$J,"PKG",200,22,3,0)
;;=2.0p1^2930906
;;^UTILITY(U,$J,"PKG",200,22,4,0)
;;=2.0T1^2930909
;;^UTILITY(U,$J,"PKG",200,22,5,0)
;;=2.0T2^2931115
;;^UTILITY(U,$J,"PKG",200,22,6,0)
;;=2.0V1^2931202
;;^UTILITY(U,$J,"PKG",200,22,7,0)
;;=2.0V2^2931230
;;^UTILITY(U,$J,"PKG",200,22,8,0)
;;=2.0V3^2940215
;;^UTILITY(U,$J,"PKG",200,22,9,0)
;;=2.0V4^2940311
;;^UTILITY(U,$J,"PKG",200,22,10,0)
;;=2.0^2940321
;;^UTILITY(U,$J,"PKG",200,22,"B",1,1)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B",1.01,1.01)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B",1.41,1.41)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B",1.42,1.42)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B",1.43,1.43)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B",1.5,1.5)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.01",.01)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.1",.1)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.11",.11)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.2",.2)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.21",.21)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.22",.22)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.3",.3)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.31",.31)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.40",.4)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.41",.41)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.50",.5)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","0.51",.51)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","2.0",10)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","2.0T1",4)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","2.0T2",5)
;;=
;;^UTILITY(U,$J,"PKG",200,22,"B","2.0V1",6)
;;=
IBINI0EA ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 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,"PKG",200,4,"B",358.4,55)
+2 ;;=
+3 ;;^UTILITY(U,$J,"PKG",200,4,"B",358.5,56)
+4 ;;=
+5 ;;^UTILITY(U,$J,"PKG",200,4,"B",358.6,57)
+6 ;;=
+7 ;;^UTILITY(U,$J,"PKG",200,4,"B",358.7,58)
+8 ;;=
+9 ;;^UTILITY(U,$J,"PKG",200,4,"B",358.8,59)
+10 ;;=
+11 ;;^UTILITY(U,$J,"PKG",200,4,"B",358.91,60)
+12 ;;=
+13 ;;^UTILITY(U,$J,"PKG",200,4,"B",362.1,85)
+14 ;;=
+15 ;;^UTILITY(U,$J,"PKG",200,4,"B",362.3,90)
+16 ;;=
+17 ;;^UTILITY(U,$J,"PKG",200,4,"B",362.4,91)
+18 ;;=
+19 ;;^UTILITY(U,$J,"PKG",200,4,"B",362.5,92)
+20 ;;=
+21 ;;^UTILITY(U,$J,"PKG",200,4,"B",399,15)
+22 ;;=
+23 ;;^UTILITY(U,$J,"PKG",200,4,"B",399.1,16)
+24 ;;=
+25 ;;^UTILITY(U,$J,"PKG",200,4,"B",399.2,17)
+26 ;;=
+27 ;;^UTILITY(U,$J,"PKG",200,4,"B",399.3,18)
+28 ;;=
+29 ;;^UTILITY(U,$J,"PKG",200,4,"B",399.4,19)
+30 ;;=
+31 ;;^UTILITY(U,$J,"PKG",200,4,"B",399.5,20)
+32 ;;=
+33 ;;^UTILITY(U,$J,"PKG",200,4,"B",409.95,61)
+34 ;;=
+35 ;;^UTILITY(U,$J,"PKG",200,4,"B",409.96,62)
+36 ;;=
+37 ;;^UTILITY(U,$J,"PKG",200,5)
+38 ;;=ALBANY
+39 ;;^UTILITY(U,$J,"PKG",200,7)
+40 ;;=ALBANY^^I
+41 ;;^UTILITY(U,$J,"PKG",200,8,0)
+42 ;;=^9.404ID
+43 ;;^UTILITY(U,$J,"PKG",200,11)
+44 ;;=350^399.9
+45 ;;^UTILITY(U,$J,"PKG",200,22,0)
+46 ;;=^9.49I^10^27
+47 ;;^UTILITY(U,$J,"PKG",200,22,.01,0)
+48 ;;=0.01^2910214
+49 ;;^UTILITY(U,$J,"PKG",200,22,.1,0)
+50 ;;=0.1^2910305
+51 ;;^UTILITY(U,$J,"PKG",200,22,.11,0)
+52 ;;=0.11^2910313
+53 ;;^UTILITY(U,$J,"PKG",200,22,.2,0)
+54 ;;=0.2^2910315
+55 ;;^UTILITY(U,$J,"PKG",200,22,.21,0)
+56 ;;=0.21^2910319
+57 ;;^UTILITY(U,$J,"PKG",200,22,.22,0)
+58 ;;=0.22^2910321
+59 ;;^UTILITY(U,$J,"PKG",200,22,.3,0)
+60 ;;=0.3^2910404
+61 ;;^UTILITY(U,$J,"PKG",200,22,.31,0)
+62 ;;=0.31^2910417
+63 ;;^UTILITY(U,$J,"PKG",200,22,.4,0)
+64 ;;=0.40^2910424
+65 ;;^UTILITY(U,$J,"PKG",200,22,.41,0)
+66 ;;=0.41^2910429
+67 ;;^UTILITY(U,$J,"PKG",200,22,.5,0)
+68 ;;=0.50^2910502
+69 ;;^UTILITY(U,$J,"PKG",200,22,.51,0)
+70 ;;=0.51^2910521
+71 ;;^UTILITY(U,$J,"PKG",200,22,1,0)
+72 ;;=1^2910523
+73 ;;^UTILITY(U,$J,"PKG",200,22,1.01,0)
+74 ;;=1.01^2920407^2920406
+75 ;;^UTILITY(U,$J,"PKG",200,22,1.41,0)
+76 ;;=1.41^2920424
+77 ;;^UTILITY(U,$J,"PKG",200,22,1.42,0)
+78 ;;=1.42^2920506
+79 ;;^UTILITY(U,$J,"PKG",200,22,1.43,0)
+80 ;;=1.43^2920611
+81 ;;^UTILITY(U,$J,"PKG",200,22,1.5,0)
+82 ;;=1.5^2920728
+83 ;;^UTILITY(U,$J,"PKG",200,22,2,0)
+84 ;;=2.0a1^2930903
+85 ;;^UTILITY(U,$J,"PKG",200,22,3,0)
+86 ;;=2.0p1^2930906
+87 ;;^UTILITY(U,$J,"PKG",200,22,4,0)
+88 ;;=2.0T1^2930909
+89 ;;^UTILITY(U,$J,"PKG",200,22,5,0)
+90 ;;=2.0T2^2931115
+91 ;;^UTILITY(U,$J,"PKG",200,22,6,0)
+92 ;;=2.0V1^2931202
+93 ;;^UTILITY(U,$J,"PKG",200,22,7,0)
+94 ;;=2.0V2^2931230
+95 ;;^UTILITY(U,$J,"PKG",200,22,8,0)
+96 ;;=2.0V3^2940215
+97 ;;^UTILITY(U,$J,"PKG",200,22,9,0)
+98 ;;=2.0V4^2940311
+99 ;;^UTILITY(U,$J,"PKG",200,22,10,0)
+100 ;;=2.0^2940321
+101 ;;^UTILITY(U,$J,"PKG",200,22,"B",1,1)
+102 ;;=
+103 ;;^UTILITY(U,$J,"PKG",200,22,"B",1.01,1.01)
+104 ;;=
+105 ;;^UTILITY(U,$J,"PKG",200,22,"B",1.41,1.41)
+106 ;;=
+107 ;;^UTILITY(U,$J,"PKG",200,22,"B",1.42,1.42)
+108 ;;=
+109 ;;^UTILITY(U,$J,"PKG",200,22,"B",1.43,1.43)
+110 ;;=
+111 ;;^UTILITY(U,$J,"PKG",200,22,"B",1.5,1.5)
+112 ;;=
+113 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.01",.01)
+114 ;;=
+115 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.1",.1)
+116 ;;=
+117 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.11",.11)
+118 ;;=
+119 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.2",.2)
+120 ;;=
+121 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.21",.21)
+122 ;;=
+123 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.22",.22)
+124 ;;=
+125 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.3",.3)
+126 ;;=
+127 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.31",.31)
+128 ;;=
+129 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.40",.4)
+130 ;;=
+131 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.41",.41)
+132 ;;=
+133 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.50",.5)
+134 ;;=
+135 ;;^UTILITY(U,$J,"PKG",200,22,"B","0.51",.51)
+136 ;;=
+137 ;;^UTILITY(U,$J,"PKG",200,22,"B","2.0",10)
+138 ;;=
+139 ;;^UTILITY(U,$J,"PKG",200,22,"B","2.0T1",4)
+140 ;;=
+141 ;;^UTILITY(U,$J,"PKG",200,22,"B","2.0T2",5)
+142 ;;=
+143 ;;^UTILITY(U,$J,"PKG",200,22,"B","2.0V1",6)
+144 ;;=
