IBINI0E7 ; ; 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,15,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,16,0)
;;=399.1
;;^UTILITY(U,$J,"PKG",200,4,16,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,17,0)
;;=399.2
;;^UTILITY(U,$J,"PKG",200,4,17,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,18,0)
;;=399.3
;;^UTILITY(U,$J,"PKG",200,4,18,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,19,0)
;;=399.4
;;^UTILITY(U,$J,"PKG",200,4,19,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,20,0)
;;=399.5
;;^UTILITY(U,$J,"PKG",200,4,20,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,22,0)
;;=350.6
;;^UTILITY(U,$J,"PKG",200,4,22,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,23,0)
;;=353
;;^UTILITY(U,$J,"PKG",200,4,23,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,24,0)
;;=353.1
;;^UTILITY(U,$J,"PKG",200,4,24,222)
;;=y^y^^n^^^y^o^y
;;^UTILITY(U,$J,"PKG",200,4,25,0)
;;=353.2
;;^UTILITY(U,$J,"PKG",200,4,25,222)
;;=y^y^^n^^^y^o^y
;;^UTILITY(U,$J,"PKG",200,4,26,0)
;;=352.2
;;^UTILITY(U,$J,"PKG",200,4,26,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,27,0)
;;=352.3
;;^UTILITY(U,$J,"PKG",200,4,27,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,28,0)
;;=352.4
;;^UTILITY(U,$J,"PKG",200,4,28,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,29,0)
;;=351.2
;;^UTILITY(U,$J,"PKG",200,4,29,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,32,0)
;;=354
;;^UTILITY(U,$J,"PKG",200,4,32,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,33,0)
;;=354.1
;;^UTILITY(U,$J,"PKG",200,4,33,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,34,0)
;;=354.2
;;^UTILITY(U,$J,"PKG",200,4,34,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,35,0)
;;=354.3
;;^UTILITY(U,$J,"PKG",200,4,35,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,36,0)
;;=354.4
;;^UTILITY(U,$J,"PKG",200,4,36,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,37,0)
;;=354.5
;;^UTILITY(U,$J,"PKG",200,4,37,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,38,0)
;;=354.6
;;^UTILITY(U,$J,"PKG",200,4,38,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,39,0)
;;=357
;;^UTILITY(U,$J,"PKG",200,4,39,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,40,0)
;;=357.1
;;^UTILITY(U,$J,"PKG",200,4,40,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,41,0)
;;=357.2
;;^UTILITY(U,$J,"PKG",200,4,41,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,42,0)
;;=357.3
;;^UTILITY(U,$J,"PKG",200,4,42,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,43,0)
;;=357.4
;;^UTILITY(U,$J,"PKG",200,4,43,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,44,0)
;;=357.5
;;^UTILITY(U,$J,"PKG",200,4,44,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,45,0)
;;=357.6
;;^UTILITY(U,$J,"PKG",200,4,45,222)
;;=y^y^^n^^^y^o^y
;;^UTILITY(U,$J,"PKG",200,4,46,0)
;;=357.7
;;^UTILITY(U,$J,"PKG",200,4,46,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,47,0)
;;=357.8
;;^UTILITY(U,$J,"PKG",200,4,47,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,48,0)
;;=356
;;^UTILITY(U,$J,"PKG",200,4,48,222)
;;=y^y^^n^^^n^
;;^UTILITY(U,$J,"PKG",200,4,49,0)
;;=357.91
;;^UTILITY(U,$J,"PKG",200,4,49,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,50,0)
;;=357.92
;;^UTILITY(U,$J,"PKG",200,4,50,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",200,4,51,0)
;;=358
;;^UTILITY(U,$J,"PKG",200,4,51,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",200,4,52,0)
;;=358.1
;;^UTILITY(U,$J,"PKG",200,4,52,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",200,4,53,0)
;;=358.2
;;^UTILITY(U,$J,"PKG",200,4,53,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",200,4,54,0)
;;=358.3
;;^UTILITY(U,$J,"PKG",200,4,54,222)
;;=y^y^^n^^^n
IBINI0E7 ; ; 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,15,222)
+2 ;;=y^y^^n^^^n^^
+3 ;;^UTILITY(U,$J,"PKG",200,4,16,0)
+4 ;;=399.1
+5 ;;^UTILITY(U,$J,"PKG",200,4,16,222)
+6 ;;=y^y^^n^^^y^m^y
+7 ;;^UTILITY(U,$J,"PKG",200,4,17,0)
+8 ;;=399.2
+9 ;;^UTILITY(U,$J,"PKG",200,4,17,222)
+10 ;;=y^y^^n^^^y^m^y
+11 ;;^UTILITY(U,$J,"PKG",200,4,18,0)
+12 ;;=399.3
+13 ;;^UTILITY(U,$J,"PKG",200,4,18,222)
+14 ;;=y^y^^n^^^y^m^y
+15 ;;^UTILITY(U,$J,"PKG",200,4,19,0)
+16 ;;=399.4
+17 ;;^UTILITY(U,$J,"PKG",200,4,19,222)
+18 ;;=y^y^^n^^^y^m^y
+19 ;;^UTILITY(U,$J,"PKG",200,4,20,0)
+20 ;;=399.5
+21 ;;^UTILITY(U,$J,"PKG",200,4,20,222)
+22 ;;=y^y^^n^^^y^m^y
+23 ;;^UTILITY(U,$J,"PKG",200,4,22,0)
+24 ;;=350.6
+25 ;;^UTILITY(U,$J,"PKG",200,4,22,222)
+26 ;;=y^y^^n^^^n^^
+27 ;;^UTILITY(U,$J,"PKG",200,4,23,0)
+28 ;;=353
+29 ;;^UTILITY(U,$J,"PKG",200,4,23,222)
+30 ;;=y^y^^n^^^y^m^y
+31 ;;^UTILITY(U,$J,"PKG",200,4,24,0)
+32 ;;=353.1
+33 ;;^UTILITY(U,$J,"PKG",200,4,24,222)
+34 ;;=y^y^^n^^^y^o^y
+35 ;;^UTILITY(U,$J,"PKG",200,4,25,0)
+36 ;;=353.2
+37 ;;^UTILITY(U,$J,"PKG",200,4,25,222)
+38 ;;=y^y^^n^^^y^o^y
+39 ;;^UTILITY(U,$J,"PKG",200,4,26,0)
+40 ;;=352.2
+41 ;;^UTILITY(U,$J,"PKG",200,4,26,222)
+42 ;;=y^y^^n^^^n^^
+43 ;;^UTILITY(U,$J,"PKG",200,4,27,0)
+44 ;;=352.3
+45 ;;^UTILITY(U,$J,"PKG",200,4,27,222)
+46 ;;=y^y^^n^^^n^^
+47 ;;^UTILITY(U,$J,"PKG",200,4,28,0)
+48 ;;=352.4
+49 ;;^UTILITY(U,$J,"PKG",200,4,28,222)
+50 ;;=y^y^^n^^^n^^
+51 ;;^UTILITY(U,$J,"PKG",200,4,29,0)
+52 ;;=351.2
+53 ;;^UTILITY(U,$J,"PKG",200,4,29,222)
+54 ;;=y^y^^n^^^n^^
+55 ;;^UTILITY(U,$J,"PKG",200,4,32,0)
+56 ;;=354
+57 ;;^UTILITY(U,$J,"PKG",200,4,32,222)
+58 ;;=y^y^^n^^^n^^
+59 ;;^UTILITY(U,$J,"PKG",200,4,33,0)
+60 ;;=354.1
+61 ;;^UTILITY(U,$J,"PKG",200,4,33,222)
+62 ;;=y^y^^n^^^n^^
+63 ;;^UTILITY(U,$J,"PKG",200,4,34,0)
+64 ;;=354.2
+65 ;;^UTILITY(U,$J,"PKG",200,4,34,222)
+66 ;;=y^y^^n^^^y^m^y
+67 ;;^UTILITY(U,$J,"PKG",200,4,35,0)
+68 ;;=354.3
+69 ;;^UTILITY(U,$J,"PKG",200,4,35,222)
+70 ;;=y^y^^n^^^y^m^y
+71 ;;^UTILITY(U,$J,"PKG",200,4,36,0)
+72 ;;=354.4
+73 ;;^UTILITY(U,$J,"PKG",200,4,36,222)
+74 ;;=y^y^^n^^^n^^
+75 ;;^UTILITY(U,$J,"PKG",200,4,37,0)
+76 ;;=354.5
+77 ;;^UTILITY(U,$J,"PKG",200,4,37,222)
+78 ;;=y^y^^n^^^y^m^y
+79 ;;^UTILITY(U,$J,"PKG",200,4,38,0)
+80 ;;=354.6
+81 ;;^UTILITY(U,$J,"PKG",200,4,38,222)
+82 ;;=y^y^^n^^^y^m^y
+83 ;;^UTILITY(U,$J,"PKG",200,4,39,0)
+84 ;;=357
+85 ;;^UTILITY(U,$J,"PKG",200,4,39,222)
+86 ;;=y^y^^n^^^n^^
+87 ;;^UTILITY(U,$J,"PKG",200,4,40,0)
+88 ;;=357.1
+89 ;;^UTILITY(U,$J,"PKG",200,4,40,222)
+90 ;;=y^y^^n^^^n^^
+91 ;;^UTILITY(U,$J,"PKG",200,4,41,0)
+92 ;;=357.2
+93 ;;^UTILITY(U,$J,"PKG",200,4,41,222)
+94 ;;=y^y^^n^^^n^^
+95 ;;^UTILITY(U,$J,"PKG",200,4,42,0)
+96 ;;=357.3
+97 ;;^UTILITY(U,$J,"PKG",200,4,42,222)
+98 ;;=y^y^^n^^^n^^
+99 ;;^UTILITY(U,$J,"PKG",200,4,43,0)
+100 ;;=357.4
+101 ;;^UTILITY(U,$J,"PKG",200,4,43,222)
+102 ;;=y^y^^n^^^n^^
+103 ;;^UTILITY(U,$J,"PKG",200,4,44,0)
+104 ;;=357.5
+105 ;;^UTILITY(U,$J,"PKG",200,4,44,222)
+106 ;;=y^y^^n^^^n^^
+107 ;;^UTILITY(U,$J,"PKG",200,4,45,0)
+108 ;;=357.6
+109 ;;^UTILITY(U,$J,"PKG",200,4,45,222)
+110 ;;=y^y^^n^^^y^o^y
+111 ;;^UTILITY(U,$J,"PKG",200,4,46,0)
+112 ;;=357.7
+113 ;;^UTILITY(U,$J,"PKG",200,4,46,222)
+114 ;;=y^y^^n^^^n^^
+115 ;;^UTILITY(U,$J,"PKG",200,4,47,0)
+116 ;;=357.8
+117 ;;^UTILITY(U,$J,"PKG",200,4,47,222)
+118 ;;=y^y^^n^^^n^^
+119 ;;^UTILITY(U,$J,"PKG",200,4,48,0)
+120 ;;=356
+121 ;;^UTILITY(U,$J,"PKG",200,4,48,222)
+122 ;;=y^y^^n^^^n^
+123 ;;^UTILITY(U,$J,"PKG",200,4,49,0)
+124 ;;=357.91
+125 ;;^UTILITY(U,$J,"PKG",200,4,49,222)
+126 ;;=y^y^^n^^^y^m^y
+127 ;;^UTILITY(U,$J,"PKG",200,4,50,0)
+128 ;;=357.92
+129 ;;^UTILITY(U,$J,"PKG",200,4,50,222)
+130 ;;=y^y^^n^^^y^m^y
+131 ;;^UTILITY(U,$J,"PKG",200,4,51,0)
+132 ;;=358
+133 ;;^UTILITY(U,$J,"PKG",200,4,51,222)
+134 ;;=y^y^^n^^^n^^
+135 ;;^UTILITY(U,$J,"PKG",200,4,52,0)
+136 ;;=358.1
+137 ;;^UTILITY(U,$J,"PKG",200,4,52,222)
+138 ;;=y^y^^n^^^n
+139 ;;^UTILITY(U,$J,"PKG",200,4,53,0)
+140 ;;=358.2
+141 ;;^UTILITY(U,$J,"PKG",200,4,53,222)
+142 ;;=y^y^^n^^^n
+143 ;;^UTILITY(U,$J,"PKG",200,4,54,0)
+144 ;;=358.3
+145 ;;^UTILITY(U,$J,"PKG",200,4,54,222)
+146 ;;=y^y^^n^^^n
