FHINI0MG ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(119.1) 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,119.1,116,0)
;;=BX-120
;;^UTILITY(U,$J,119.1,117,0)
;;=BX-200
;;^UTILITY(U,$J,119.1,118,0)
;;=BX-300
;;^UTILITY(U,$J,119.1,119,0)
;;=BX-500
;;^UTILITY(U,$J,119.1,120,0)
;;=CS-100
;;^UTILITY(U,$J,119.1,121,0)
;;=CS-1000
;;^UTILITY(U,$J,119.1,122,0)
;;=CS-180
;;^UTILITY(U,$J,119.1,123,0)
;;=CS-200
;;^UTILITY(U,$J,119.1,124,0)
;;=CS-2000
;;^UTILITY(U,$J,119.1,125,0)
;;=CS-400
;;^UTILITY(U,$J,119.1,126,0)
;;=CS-48
;;^UTILITY(U,$J,119.1,127,0)
;;=CS-500
;;^UTILITY(U,$J,119.1,128,0)
;;=CS-800
;;^UTILITY(U,$J,119.1,129,0)
;;=DZ
;;^UTILITY(U,$J,119.1,130,0)
;;=GL BT
;;^UTILITY(U,$J,119.1,131,0)
;;=GL CN
;;^UTILITY(U,$J,119.1,132,0)
;;=GL CO
;;^UTILITY(U,$J,119.1,133,0)
;;=GL JR
;;^UTILITY(U,$J,119.1,134,0)
;;=JR-100
;;^UTILITY(U,$J,119.1,135,0)
;;=PT BT
;;^UTILITY(U,$J,119.1,136,0)
;;=QT BT
;;^UTILITY(U,$J,119.1,137,0)
;;=QT CN
;;^UTILITY(U,$J,119.1,138,0)
;;=QT CO
;;^UTILITY(U,$J,119.1,139,0)
;;=QT JR
;;^UTILITY(U,$J,119.1,140,0)
;;=PG
;;^UTILITY(U,$J,119.1,141,0)
;;=BX-100
;;^UTILITY(U,$J,119.1,142,0)
;;=#5 CN
;;^UTILITY(U,$J,119.1,143,0)
;;=PG-12
;;^UTILITY(U,$J,119.1,144,0)
;;=250-ML BT
;;^UTILITY(U,$J,119.1,145,0)
;;=60-OZ PG
;;^UTILITY(U,$J,119.1,146,0)
;;=CS-24
;;^UTILITY(U,$J,119.1,147,0)
;;=7.7-OZ JR
;;^UTILITY(U,$J,119.1,148,0)
;;=2.5-OZ JR
;;^UTILITY(U,$J,119.1,149,0)
;;=4.5#-PG
;;^UTILITY(U,$J,119.1,150,0)
;;=4.5#-BX
;;^UTILITY(U,$J,119.1,151,0)
;;=22.6-OZ BG
;;^UTILITY(U,$J,119.1,152,0)
;;=48-OZ CN
;;^UTILITY(U,$J,119.1,153,0)
;;=2# JR
;;^UTILITY(U,$J,119.1,154,0)
;;=6-OZ CN
;;^UTILITY(U,$J,119.1,155,0)
;;=250-ML CN
;;^UTILITY(U,$J,119.1,156,0)
;;=1.5#-BG
;;^UTILITY(U,$J,119.1,157,0)
;;=1.25#-BG
;;^UTILITY(U,$J,119.1,158,0)
;;=6.75#-CN
;;^UTILITY(U,$J,119.1,159,0)
;;=9.75-OZ PG
;;^UTILITY(U,$J,119.1,160,0)
;;=1/2-GL JR
;;^UTILITY(U,$J,119.1,161,0)
;;=24# CS
;;^UTILITY(U,$J,119.1,162,0)
;;=CS-60
;;^UTILITY(U,$J,119.1,163,0)
;;=CS-72
;;^UTILITY(U,$J,119.1,164,0)
;;=BX-6
;;^UTILITY(U,$J,119.1,165,0)
;;=6.5-OZ CN
;;^UTILITY(U,$J,119.1,166,0)
;;=6.5# CO
;;^UTILITY(U,$J,119.1,167,0)
;;=10# CS
;;^UTILITY(U,$J,119.1,168,0)
;;=1# LF
;;^UTILITY(U,$J,119.1,169,0)
;;=9-OZ CN
;;^UTILITY(U,$J,119.1,170,0)
;;=22.5-OZ BX
;;^UTILITY(U,$J,119.1,171,0)
;;=5.5# PN
;;^UTILITY(U,$J,119.1,172,0)
;;=2# CK
;;^UTILITY(U,$J,119.1,173,0)
;;=1# CK
;;^UTILITY(U,$J,119.1,174,0)
;;=4# CK
;;^UTILITY(U,$J,119.1,175,0)
;;=4.4# CK
;;^UTILITY(U,$J,119.1,176,0)
;;=4.75# CK
;;^UTILITY(U,$J,119.1,177,0)
;;=2.5# CK
;;^UTILITY(U,$J,119.1,178,0)
;;=CS-96
;;^UTILITY(U,$J,119.1,179,0)
;;=CS-70
;;^UTILITY(U,$J,119.1,180,0)
;;=CS-10
;;^UTILITY(U,$J,119.1,181,0)
;;=3# CO
;;^UTILITY(U,$J,119.1,182,0)
;;=BX-50
;;^UTILITY(U,$J,119.1,183,0)
;;=CS-250
;;^UTILITY(U,$J,119.1,184,0)
;;=11.25# CS
;;^UTILITY(U,$J,119.1,185,0)
;;=CS-300
;;^UTILITY(U,$J,119.1,186,0)
;;=CS-120
;;^UTILITY(U,$J,119.1,187,0)
;;=CS-50
;;^UTILITY(U,$J,119.1,188,0)
;;=4.2# CO
;;^UTILITY(U,$J,119.1,189,0)
;;=BG
;;^UTILITY(U,$J,119.1,190,0)
;;=1-OZ PG
;;^UTILITY(U,$J,119.1,191,0)
;;=3.5# PG
;;^UTILITY(U,$J,119.1,192,0)
;;=8-OZ CT
;;^UTILITY(U,$J,119.1,193,0)
;;=4.4-OZ PG
;;^UTILITY(U,$J,119.1,194,0)
;;=CS-4 PN
;;^UTILITY(U,$J,119.1,195,0)
;;=5 GL CT
;;^UTILITY(U,$J,119.1,196,0)
;;=2.8-OZ PG
;;^UTILITY(U,$J,119.1,197,0)
;;=6# CN
;;^UTILITY(U,$J,119.1,198,0)
;;=CS-6
;;^UTILITY(U,$J,119.1,199,0)
;;=2.06-OZ PG
;;^UTILITY(U,$J,119.1,200,0)
;;=3-OZ PG
;;^UTILITY(U,$J,119.1,201,0)
;;=3# BX
;;^UTILITY(U,$J,119.1,202,0)
;;=1# CT
;;^UTILITY(U,$J,119.1,203,0)
;;=1.9-OZ PG
;;^UTILITY(U,$J,119.1,204,0)
;;=2.79-OZ PG
;;^UTILITY(U,$J,119.1,205,0)
;;=2.82-OZ PG
;;^UTILITY(U,$J,119.1,206,0)
;;=10# CO
;;^UTILITY(U,$J,119.1,207,0)
;;=6.5# CN
FHINI0MG ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(119.1)
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,119.1,116,0)
+2 ;;=BX-120
+3 ;;^UTILITY(U,$J,119.1,117,0)
+4 ;;=BX-200
+5 ;;^UTILITY(U,$J,119.1,118,0)
+6 ;;=BX-300
+7 ;;^UTILITY(U,$J,119.1,119,0)
+8 ;;=BX-500
+9 ;;^UTILITY(U,$J,119.1,120,0)
+10 ;;=CS-100
+11 ;;^UTILITY(U,$J,119.1,121,0)
+12 ;;=CS-1000
+13 ;;^UTILITY(U,$J,119.1,122,0)
+14 ;;=CS-180
+15 ;;^UTILITY(U,$J,119.1,123,0)
+16 ;;=CS-200
+17 ;;^UTILITY(U,$J,119.1,124,0)
+18 ;;=CS-2000
+19 ;;^UTILITY(U,$J,119.1,125,0)
+20 ;;=CS-400
+21 ;;^UTILITY(U,$J,119.1,126,0)
+22 ;;=CS-48
+23 ;;^UTILITY(U,$J,119.1,127,0)
+24 ;;=CS-500
+25 ;;^UTILITY(U,$J,119.1,128,0)
+26 ;;=CS-800
+27 ;;^UTILITY(U,$J,119.1,129,0)
+28 ;;=DZ
+29 ;;^UTILITY(U,$J,119.1,130,0)
+30 ;;=GL BT
+31 ;;^UTILITY(U,$J,119.1,131,0)
+32 ;;=GL CN
+33 ;;^UTILITY(U,$J,119.1,132,0)
+34 ;;=GL CO
+35 ;;^UTILITY(U,$J,119.1,133,0)
+36 ;;=GL JR
+37 ;;^UTILITY(U,$J,119.1,134,0)
+38 ;;=JR-100
+39 ;;^UTILITY(U,$J,119.1,135,0)
+40 ;;=PT BT
+41 ;;^UTILITY(U,$J,119.1,136,0)
+42 ;;=QT BT
+43 ;;^UTILITY(U,$J,119.1,137,0)
+44 ;;=QT CN
+45 ;;^UTILITY(U,$J,119.1,138,0)
+46 ;;=QT CO
+47 ;;^UTILITY(U,$J,119.1,139,0)
+48 ;;=QT JR
+49 ;;^UTILITY(U,$J,119.1,140,0)
+50 ;;=PG
+51 ;;^UTILITY(U,$J,119.1,141,0)
+52 ;;=BX-100
+53 ;;^UTILITY(U,$J,119.1,142,0)
+54 ;;=#5 CN
+55 ;;^UTILITY(U,$J,119.1,143,0)
+56 ;;=PG-12
+57 ;;^UTILITY(U,$J,119.1,144,0)
+58 ;;=250-ML BT
+59 ;;^UTILITY(U,$J,119.1,145,0)
+60 ;;=60-OZ PG
+61 ;;^UTILITY(U,$J,119.1,146,0)
+62 ;;=CS-24
+63 ;;^UTILITY(U,$J,119.1,147,0)
+64 ;;=7.7-OZ JR
+65 ;;^UTILITY(U,$J,119.1,148,0)
+66 ;;=2.5-OZ JR
+67 ;;^UTILITY(U,$J,119.1,149,0)
+68 ;;=4.5#-PG
+69 ;;^UTILITY(U,$J,119.1,150,0)
+70 ;;=4.5#-BX
+71 ;;^UTILITY(U,$J,119.1,151,0)
+72 ;;=22.6-OZ BG
+73 ;;^UTILITY(U,$J,119.1,152,0)
+74 ;;=48-OZ CN
+75 ;;^UTILITY(U,$J,119.1,153,0)
+76 ;;=2# JR
+77 ;;^UTILITY(U,$J,119.1,154,0)
+78 ;;=6-OZ CN
+79 ;;^UTILITY(U,$J,119.1,155,0)
+80 ;;=250-ML CN
+81 ;;^UTILITY(U,$J,119.1,156,0)
+82 ;;=1.5#-BG
+83 ;;^UTILITY(U,$J,119.1,157,0)
+84 ;;=1.25#-BG
+85 ;;^UTILITY(U,$J,119.1,158,0)
+86 ;;=6.75#-CN
+87 ;;^UTILITY(U,$J,119.1,159,0)
+88 ;;=9.75-OZ PG
+89 ;;^UTILITY(U,$J,119.1,160,0)
+90 ;;=1/2-GL JR
+91 ;;^UTILITY(U,$J,119.1,161,0)
+92 ;;=24# CS
+93 ;;^UTILITY(U,$J,119.1,162,0)
+94 ;;=CS-60
+95 ;;^UTILITY(U,$J,119.1,163,0)
+96 ;;=CS-72
+97 ;;^UTILITY(U,$J,119.1,164,0)
+98 ;;=BX-6
+99 ;;^UTILITY(U,$J,119.1,165,0)
+100 ;;=6.5-OZ CN
+101 ;;^UTILITY(U,$J,119.1,166,0)
+102 ;;=6.5# CO
+103 ;;^UTILITY(U,$J,119.1,167,0)
+104 ;;=10# CS
+105 ;;^UTILITY(U,$J,119.1,168,0)
+106 ;;=1# LF
+107 ;;^UTILITY(U,$J,119.1,169,0)
+108 ;;=9-OZ CN
+109 ;;^UTILITY(U,$J,119.1,170,0)
+110 ;;=22.5-OZ BX
+111 ;;^UTILITY(U,$J,119.1,171,0)
+112 ;;=5.5# PN
+113 ;;^UTILITY(U,$J,119.1,172,0)
+114 ;;=2# CK
+115 ;;^UTILITY(U,$J,119.1,173,0)
+116 ;;=1# CK
+117 ;;^UTILITY(U,$J,119.1,174,0)
+118 ;;=4# CK
+119 ;;^UTILITY(U,$J,119.1,175,0)
+120 ;;=4.4# CK
+121 ;;^UTILITY(U,$J,119.1,176,0)
+122 ;;=4.75# CK
+123 ;;^UTILITY(U,$J,119.1,177,0)
+124 ;;=2.5# CK
+125 ;;^UTILITY(U,$J,119.1,178,0)
+126 ;;=CS-96
+127 ;;^UTILITY(U,$J,119.1,179,0)
+128 ;;=CS-70
+129 ;;^UTILITY(U,$J,119.1,180,0)
+130 ;;=CS-10
+131 ;;^UTILITY(U,$J,119.1,181,0)
+132 ;;=3# CO
+133 ;;^UTILITY(U,$J,119.1,182,0)
+134 ;;=BX-50
+135 ;;^UTILITY(U,$J,119.1,183,0)
+136 ;;=CS-250
+137 ;;^UTILITY(U,$J,119.1,184,0)
+138 ;;=11.25# CS
+139 ;;^UTILITY(U,$J,119.1,185,0)
+140 ;;=CS-300
+141 ;;^UTILITY(U,$J,119.1,186,0)
+142 ;;=CS-120
+143 ;;^UTILITY(U,$J,119.1,187,0)
+144 ;;=CS-50
+145 ;;^UTILITY(U,$J,119.1,188,0)
+146 ;;=4.2# CO
+147 ;;^UTILITY(U,$J,119.1,189,0)
+148 ;;=BG
+149 ;;^UTILITY(U,$J,119.1,190,0)
+150 ;;=1-OZ PG
+151 ;;^UTILITY(U,$J,119.1,191,0)
+152 ;;=3.5# PG
+153 ;;^UTILITY(U,$J,119.1,192,0)
+154 ;;=8-OZ CT
+155 ;;^UTILITY(U,$J,119.1,193,0)
+156 ;;=4.4-OZ PG
+157 ;;^UTILITY(U,$J,119.1,194,0)
+158 ;;=CS-4 PN
+159 ;;^UTILITY(U,$J,119.1,195,0)
+160 ;;=5 GL CT
+161 ;;^UTILITY(U,$J,119.1,196,0)
+162 ;;=2.8-OZ PG
+163 ;;^UTILITY(U,$J,119.1,197,0)
+164 ;;=6# CN
+165 ;;^UTILITY(U,$J,119.1,198,0)
+166 ;;=CS-6
+167 ;;^UTILITY(U,$J,119.1,199,0)
+168 ;;=2.06-OZ PG
+169 ;;^UTILITY(U,$J,119.1,200,0)
+170 ;;=3-OZ PG
+171 ;;^UTILITY(U,$J,119.1,201,0)
+172 ;;=3# BX
+173 ;;^UTILITY(U,$J,119.1,202,0)
+174 ;;=1# CT
+175 ;;^UTILITY(U,$J,119.1,203,0)
+176 ;;=1.9-OZ PG
+177 ;;^UTILITY(U,$J,119.1,204,0)
+178 ;;=2.79-OZ PG
+179 ;;^UTILITY(U,$J,119.1,205,0)
+180 ;;=2.82-OZ PG
+181 ;;^UTILITY(U,$J,119.1,206,0)
+182 ;;=10# CO
+183 ;;^UTILITY(U,$J,119.1,207,0)
+184 ;;=6.5# CN
