FHINI0O9 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
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",22,4,10,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,10,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,11,0)
;;=119.6
;;^UTILITY(U,$J,"PKG",22,4,11,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,11,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,12,0)
;;=118.2
;;^UTILITY(U,$J,"PKG",22,4,12,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,12,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,13,0)
;;=113
;;^UTILITY(U,$J,"PKG",22,4,13,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,13,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,13,222.9)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,14,0)
;;=113.1
;;^UTILITY(U,$J,"PKG",22,4,14,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,14,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,14,222.9)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,15,0)
;;=113.2
;;^UTILITY(U,$J,"PKG",22,4,15,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,15,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,15,222.9)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,16,0)
;;=114
;;^UTILITY(U,$J,"PKG",22,4,16,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,16,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,16,222.9)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,17,0)
;;=116
;;^UTILITY(U,$J,"PKG",22,4,17,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,17,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,18,0)
;;=116.1
;;^UTILITY(U,$J,"PKG",22,4,18,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,18,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,20,0)
;;=119.4
;;^UTILITY(U,$J,"PKG",22,4,20,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,20,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,21,0)
;;=116.2
;;^UTILITY(U,$J,"PKG",22,4,21,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,21,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,23,0)
;;=116.3
;;^UTILITY(U,$J,"PKG",22,4,23,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,23,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,24,0)
;;=117
;;^UTILITY(U,$J,"PKG",22,4,24,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,26,0)
;;=114.1
;;^UTILITY(U,$J,"PKG",22,4,26,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,26,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,27,0)
;;=118.3
;;^UTILITY(U,$J,"PKG",22,4,27,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,28,0)
;;=114.3
;;^UTILITY(U,$J,"PKG",22,4,28,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,28,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,29,0)
;;=114.4
;;^UTILITY(U,$J,"PKG",22,4,29,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,29,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,30,0)
;;=114.2
;;^UTILITY(U,$J,"PKG",22,4,30,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,30,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,31,0)
;;=115.2
;;^UTILITY(U,$J,"PKG",22,4,31,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,31,222.7)
;;=N
;;^UTILITY(U,$J,"PKG",22,4,32,0)
;;=115.3
;;^UTILITY(U,$J,"PKG",22,4,32,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,33,0)
;;=115.4
;;^UTILITY(U,$J,"PKG",22,4,33,222)
;;=y^y^^n^^^y^o^n
;;^UTILITY(U,$J,"PKG",22,4,33,222.7)
;;=Y
;;^UTILITY(U,$J,"PKG",22,4,34,0)
;;=115.5
;;^UTILITY(U,$J,"PKG",22,4,34,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,35,0)
;;=115.6
;;^UTILITY(U,$J,"PKG",22,4,35,222)
;;=y^y^^n^^^y^m^y
;;^UTILITY(U,$J,"PKG",22,4,35,222.7)
;;=Y
;;^UTILITY(U,$J,"PKG",22,4,35,222.9)
;;=Y
;;^UTILITY(U,$J,"PKG",22,4,36,0)
;;=115.7
;;^UTILITY(U,$J,"PKG",22,4,36,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,37,0)
;;=117.1
;;^UTILITY(U,$J,"PKG",22,4,37,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,38,0)
;;=119.71
;;^UTILITY(U,$J,"PKG",22,4,38,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",22,4,39,0)
;;=119.72
;;^UTILITY(U,$J,"PKG",22,4,39,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",22,4,40,0)
;;=119.73
;;^UTILITY(U,$J,"PKG",22,4,40,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",22,4,41,0)
;;=119.74
;;^UTILITY(U,$J,"PKG",22,4,41,222)
;;=y^y^^n^^^n^^
;;^UTILITY(U,$J,"PKG",22,4,42,0)
;;=117.2
;;^UTILITY(U,$J,"PKG",22,4,42,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,43,0)
;;=117.3
;;^UTILITY(U,$J,"PKG",22,4,43,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,44,0)
;;=117.4
;;^UTILITY(U,$J,"PKG",22,4,44,222)
;;=y^y^^n^^^y^o^n
;;^UTILITY(U,$J,"PKG",22,4,45,0)
;;=119.8
;;^UTILITY(U,$J,"PKG",22,4,45,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,46,0)
;;=119
;;^UTILITY(U,$J,"PKG",22,4,46,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,47,0)
;;=111.1
;;^UTILITY(U,$J,"PKG",22,4,47,222)
;;=y^y^^n^^^n
;;^UTILITY(U,$J,"PKG",22,4,"B",111,1)
;;=
;;^UTILITY(U,$J,"PKG",22,4,"B",111.1,47)
;;=
;;^UTILITY(U,$J,"PKG",22,4,"B",112,2)
;;=
;;^UTILITY(U,$J,"PKG",22,4,"B",112.2,3)
;;=
;;^UTILITY(U,$J,"PKG",22,4,"B",112.6,4)
;;=
;;^UTILITY(U,$J,"PKG",22,4,"B",113,13)
;;=
FHINI0O9 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+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",22,4,10,222)
+2 ;;=y^y^^n^^^y^m^y
+3 ;;^UTILITY(U,$J,"PKG",22,4,10,222.7)
+4 ;;=N
+5 ;;^UTILITY(U,$J,"PKG",22,4,11,0)
+6 ;;=119.6
+7 ;;^UTILITY(U,$J,"PKG",22,4,11,222)
+8 ;;=y^y^^n^^^n
+9 ;;^UTILITY(U,$J,"PKG",22,4,11,222.7)
+10 ;;=N
+11 ;;^UTILITY(U,$J,"PKG",22,4,12,0)
+12 ;;=118.2
+13 ;;^UTILITY(U,$J,"PKG",22,4,12,222)
+14 ;;=y^y^^n^^^y^m^y
+15 ;;^UTILITY(U,$J,"PKG",22,4,12,222.7)
+16 ;;=N
+17 ;;^UTILITY(U,$J,"PKG",22,4,13,0)
+18 ;;=113
+19 ;;^UTILITY(U,$J,"PKG",22,4,13,222)
+20 ;;=y^y^^n^^^y^m^y
+21 ;;^UTILITY(U,$J,"PKG",22,4,13,222.7)
+22 ;;=N
+23 ;;^UTILITY(U,$J,"PKG",22,4,13,222.9)
+24 ;;=N
+25 ;;^UTILITY(U,$J,"PKG",22,4,14,0)
+26 ;;=113.1
+27 ;;^UTILITY(U,$J,"PKG",22,4,14,222)
+28 ;;=y^y^^n^^^n
+29 ;;^UTILITY(U,$J,"PKG",22,4,14,222.7)
+30 ;;=N
+31 ;;^UTILITY(U,$J,"PKG",22,4,14,222.9)
+32 ;;=N
+33 ;;^UTILITY(U,$J,"PKG",22,4,15,0)
+34 ;;=113.2
+35 ;;^UTILITY(U,$J,"PKG",22,4,15,222)
+36 ;;=y^y^^n^^^y^m^y
+37 ;;^UTILITY(U,$J,"PKG",22,4,15,222.7)
+38 ;;=N
+39 ;;^UTILITY(U,$J,"PKG",22,4,15,222.9)
+40 ;;=N
+41 ;;^UTILITY(U,$J,"PKG",22,4,16,0)
+42 ;;=114
+43 ;;^UTILITY(U,$J,"PKG",22,4,16,222)
+44 ;;=y^y^^n^^^y^m^y
+45 ;;^UTILITY(U,$J,"PKG",22,4,16,222.7)
+46 ;;=N
+47 ;;^UTILITY(U,$J,"PKG",22,4,16,222.9)
+48 ;;=N
+49 ;;^UTILITY(U,$J,"PKG",22,4,17,0)
+50 ;;=116
+51 ;;^UTILITY(U,$J,"PKG",22,4,17,222)
+52 ;;=y^y^^n^^^n
+53 ;;^UTILITY(U,$J,"PKG",22,4,17,222.7)
+54 ;;=N
+55 ;;^UTILITY(U,$J,"PKG",22,4,18,0)
+56 ;;=116.1
+57 ;;^UTILITY(U,$J,"PKG",22,4,18,222)
+58 ;;=y^y^^n^^^n
+59 ;;^UTILITY(U,$J,"PKG",22,4,18,222.7)
+60 ;;=N
+61 ;;^UTILITY(U,$J,"PKG",22,4,20,0)
+62 ;;=119.4
+63 ;;^UTILITY(U,$J,"PKG",22,4,20,222)
+64 ;;=y^y^^n^^^y^m^y
+65 ;;^UTILITY(U,$J,"PKG",22,4,20,222.7)
+66 ;;=N
+67 ;;^UTILITY(U,$J,"PKG",22,4,21,0)
+68 ;;=116.2
+69 ;;^UTILITY(U,$J,"PKG",22,4,21,222)
+70 ;;=y^y^^n^^^y^m^y
+71 ;;^UTILITY(U,$J,"PKG",22,4,21,222.7)
+72 ;;=N
+73 ;;^UTILITY(U,$J,"PKG",22,4,23,0)
+74 ;;=116.3
+75 ;;^UTILITY(U,$J,"PKG",22,4,23,222)
+76 ;;=y^y^^n^^^n
+77 ;;^UTILITY(U,$J,"PKG",22,4,23,222.7)
+78 ;;=N
+79 ;;^UTILITY(U,$J,"PKG",22,4,24,0)
+80 ;;=117
+81 ;;^UTILITY(U,$J,"PKG",22,4,24,222)
+82 ;;=y^y^^n^^^n
+83 ;;^UTILITY(U,$J,"PKG",22,4,26,0)
+84 ;;=114.1
+85 ;;^UTILITY(U,$J,"PKG",22,4,26,222)
+86 ;;=y^y^^n^^^y^m^y
+87 ;;^UTILITY(U,$J,"PKG",22,4,26,222.7)
+88 ;;=N
+89 ;;^UTILITY(U,$J,"PKG",22,4,27,0)
+90 ;;=118.3
+91 ;;^UTILITY(U,$J,"PKG",22,4,27,222)
+92 ;;=y^y^^n^^^n
+93 ;;^UTILITY(U,$J,"PKG",22,4,28,0)
+94 ;;=114.3
+95 ;;^UTILITY(U,$J,"PKG",22,4,28,222)
+96 ;;=y^y^^n^^^y^m^y
+97 ;;^UTILITY(U,$J,"PKG",22,4,28,222.7)
+98 ;;=N
+99 ;;^UTILITY(U,$J,"PKG",22,4,29,0)
+100 ;;=114.4
+101 ;;^UTILITY(U,$J,"PKG",22,4,29,222)
+102 ;;=y^y^^n^^^y^m^y
+103 ;;^UTILITY(U,$J,"PKG",22,4,29,222.7)
+104 ;;=N
+105 ;;^UTILITY(U,$J,"PKG",22,4,30,0)
+106 ;;=114.2
+107 ;;^UTILITY(U,$J,"PKG",22,4,30,222)
+108 ;;=y^y^^n^^^y^m^y
+109 ;;^UTILITY(U,$J,"PKG",22,4,30,222.7)
+110 ;;=N
+111 ;;^UTILITY(U,$J,"PKG",22,4,31,0)
+112 ;;=115.2
+113 ;;^UTILITY(U,$J,"PKG",22,4,31,222)
+114 ;;=y^y^^n^^^n
+115 ;;^UTILITY(U,$J,"PKG",22,4,31,222.7)
+116 ;;=N
+117 ;;^UTILITY(U,$J,"PKG",22,4,32,0)
+118 ;;=115.3
+119 ;;^UTILITY(U,$J,"PKG",22,4,32,222)
+120 ;;=y^y^^n^^^n
+121 ;;^UTILITY(U,$J,"PKG",22,4,33,0)
+122 ;;=115.4
+123 ;;^UTILITY(U,$J,"PKG",22,4,33,222)
+124 ;;=y^y^^n^^^y^o^n
+125 ;;^UTILITY(U,$J,"PKG",22,4,33,222.7)
+126 ;;=Y
+127 ;;^UTILITY(U,$J,"PKG",22,4,34,0)
+128 ;;=115.5
+129 ;;^UTILITY(U,$J,"PKG",22,4,34,222)
+130 ;;=y^y^^n^^^n
+131 ;;^UTILITY(U,$J,"PKG",22,4,35,0)
+132 ;;=115.6
+133 ;;^UTILITY(U,$J,"PKG",22,4,35,222)
+134 ;;=y^y^^n^^^y^m^y
+135 ;;^UTILITY(U,$J,"PKG",22,4,35,222.7)
+136 ;;=Y
+137 ;;^UTILITY(U,$J,"PKG",22,4,35,222.9)
+138 ;;=Y
+139 ;;^UTILITY(U,$J,"PKG",22,4,36,0)
+140 ;;=115.7
+141 ;;^UTILITY(U,$J,"PKG",22,4,36,222)
+142 ;;=y^y^^n^^^n
+143 ;;^UTILITY(U,$J,"PKG",22,4,37,0)
+144 ;;=117.1
+145 ;;^UTILITY(U,$J,"PKG",22,4,37,222)
+146 ;;=y^y^^n^^^n
+147 ;;^UTILITY(U,$J,"PKG",22,4,38,0)
+148 ;;=119.71
+149 ;;^UTILITY(U,$J,"PKG",22,4,38,222)
+150 ;;=y^y^^n^^^n^^
+151 ;;^UTILITY(U,$J,"PKG",22,4,39,0)
+152 ;;=119.72
+153 ;;^UTILITY(U,$J,"PKG",22,4,39,222)
+154 ;;=y^y^^n^^^n^^
+155 ;;^UTILITY(U,$J,"PKG",22,4,40,0)
+156 ;;=119.73
+157 ;;^UTILITY(U,$J,"PKG",22,4,40,222)
+158 ;;=y^y^^n^^^n^^
+159 ;;^UTILITY(U,$J,"PKG",22,4,41,0)
+160 ;;=119.74
+161 ;;^UTILITY(U,$J,"PKG",22,4,41,222)
+162 ;;=y^y^^n^^^n^^
+163 ;;^UTILITY(U,$J,"PKG",22,4,42,0)
+164 ;;=117.2
+165 ;;^UTILITY(U,$J,"PKG",22,4,42,222)
+166 ;;=y^y^^n^^^n
+167 ;;^UTILITY(U,$J,"PKG",22,4,43,0)
+168 ;;=117.3
+169 ;;^UTILITY(U,$J,"PKG",22,4,43,222)
+170 ;;=y^y^^n^^^n
+171 ;;^UTILITY(U,$J,"PKG",22,4,44,0)
+172 ;;=117.4
+173 ;;^UTILITY(U,$J,"PKG",22,4,44,222)
+174 ;;=y^y^^n^^^y^o^n
+175 ;;^UTILITY(U,$J,"PKG",22,4,45,0)
+176 ;;=119.8
+177 ;;^UTILITY(U,$J,"PKG",22,4,45,222)
+178 ;;=y^y^^n^^^n
+179 ;;^UTILITY(U,$J,"PKG",22,4,46,0)
+180 ;;=119
+181 ;;^UTILITY(U,$J,"PKG",22,4,46,222)
+182 ;;=y^y^^n^^^n
+183 ;;^UTILITY(U,$J,"PKG",22,4,47,0)
+184 ;;=111.1
+185 ;;^UTILITY(U,$J,"PKG",22,4,47,222)
+186 ;;=y^y^^n^^^n
+187 ;;^UTILITY(U,$J,"PKG",22,4,"B",111,1)
+188 ;;=
+189 ;;^UTILITY(U,$J,"PKG",22,4,"B",111.1,47)
+190 ;;=
+191 ;;^UTILITY(U,$J,"PKG",22,4,"B",112,2)
+192 ;;=
+193 ;;^UTILITY(U,$J,"PKG",22,4,"B",112.2,3)
+194 ;;=
+195 ;;^UTILITY(U,$J,"PKG",22,4,"B",112.6,4)
+196 ;;=
+197 ;;^UTILITY(U,$J,"PKG",22,4,"B",113,13)
+198 ;;=
