FHINI020 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) 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,112,524,2)
;;=.111^.355^.21^.026^12^.2^.86^.04^9^1.34^.84^.9^34^1.55^^^.3
;;^UTILITY(U,$J,112,524,3)
;;=.034^.105^.137^.225^.174^.058^.027^.117^.109^.155^.093^.064^.093^.193^.576^.062^.241^.131
;;^UTILITY(U,$J,112,524,4)
;;=.05^.06^.21^.57^.05^.26^.76
;;^UTILITY(U,$J,112,524,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,525,0)
;;=SOUP, CREAM OF CELERY, CND, PREP W/EQ VOL MILK^6-210^cups^248^100^N
;;^UTILITY(U,$J,112,525,1)
;;=2.29^3.91^5.86^66^86.46^^^75^.28^9^61^125^407^.079^.062^.102^^186^.6^.03
;;^UTILITY(U,$J,112,525,2)
;;=.1^.176^.61^.026^3.4^.2^1.02^.05^13^1.59^.99^1.07^27^1.49^^^.3
;;^UTILITY(U,$J,112,525,3)
;;=.03^.097^.13^.209^.159^.053^.022^.11^.1^.145^.083^.06^.08^.17^.495^.055^.213^.119
;;^UTILITY(U,$J,112,525,4)
;;=.06^.07^.25^.67^.06^.31^.9
;;^UTILITY(U,$J,112,525,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,526,0)
;;=SOUP, CHEESE, CND, PREP W/EQ VOL MILK^6-211^cups^251^100^N
;;^UTILITY(U,$J,112,526,1)
;;=3.77^5.8^6.47^92^82.44^^^115^.32^8^100^136^406^.274^.056^.103^^495^.5^.025
;;^UTILITY(U,$J,112,526,2)
;;=.133^.2^.19^.031^4^.17^.11^.07^19^3.63^1.63^.18^59^1.52^^^.4
;;^UTILITY(U,$J,112,526,3)
;;=.051^.148^.226^.361^.279^.087^.033^.189^.177^.259^.123^.102^.125^.274^1.002^.081^.383^.187
;;^UTILITY(U,$J,112,526,4)
;;=.11^.11^.58^1.65^.16^.69^1.39
;;^UTILITY(U,$J,112,526,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,527,0)
;;=SOUP, CREAM OF CHICKEN, PREP W/EQ VOL MILK^6-216^cups^248^100^N
;;^UTILITY(U,$J,112,527,1)
;;=3.01^4.62^6.04^77^84.83^^^73^.27^7^61^110^422^.272^.056^.153^^288^.5^.03
;;^UTILITY(U,$J,112,527,2)
;;=.104^.372^.23^.027^3.1^.22^.61^.05^11^1.87^1.8^.66^38^1.51^^^.1
;;^UTILITY(U,$J,112,527,3)
;;=.04^.126^.167^.265^.215^.073^.035^.14^.126^.179^.126^.081^.116^.221^.655^.089^.261^.149
;;^UTILITY(U,$J,112,527,4)
;;=.05^.06^.23^.96^.16^.36^1.6
;;^UTILITY(U,$J,112,527,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,528,0)
;;=SOUP, CLAM CHOWDER, CND, NEW ENGLAND, PREP W/MILK^6-230^cups^248^100^N
;;^UTILITY(U,$J,112,528,1)
;;=3.82^2.66^6.7^66^85.23^^^75^.6^9^63^121^400^.322^.056^.102^^66^1.4^.027
;;^UTILITY(U,$J,112,528,2)
;;=.095^.416^.28^.051^3.9^4.13^.39^.05^9^1.19^.91^.44^16^1.6^^^.6
;;^UTILITY(U,$J,112,528,3)
;;=.047^.141^.182^.29^.244^.082^.041^.151^.136^.197^.164^.107^.171^.327^.977^.139^.241^.151
;;^UTILITY(U,$J,112,528,4)
;;=.04^.05^.17^.54^.04^.25^.85
;;^UTILITY(U,$J,112,528,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,529,0)
;;=SOUP, CREAM OF MUSHROOM, CND, PREP W/EQ VOL MILK^6-243^cups^248^100^N
;;^UTILITY(U,$J,112,529,1)
;;=2.44^5.48^6.05^82^84.56^^^72^.24^8^63^109^434^.258^.056^.102^^62^.9^.031
;;^UTILITY(U,$J,112,529,2)
;;=.113^.368^.25^.026^4^.2^1.82^.04^8^2.07^1.2^1.86^15^1.47^^^.2
;;^UTILITY(U,$J,112,529,3)
;;=.034^.105^.137^.223^.173^.057^.025^.116^.109^.152^.093^.063^.088^.181^.527^.061^.226^.129
;;^UTILITY(U,$J,112,529,4)
;;=.06^.06^.24^1.18^.07^.34^1.1
;;^UTILITY(U,$J,112,529,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,530,0)
;;=SOUP, CREAM OF ONION, CND, PREP W/EQ VOL MILK^6-246^cups^248^100^N
;;^UTILITY(U,$J,112,530,1)
;;=2.74^3.78^7.4^75^84.5^^^72^.28^9^62^125^405^.25^.06^.1^^182^1^.039
;;^UTILITY(U,$J,112,530,2)
;;=.11^.244^.28^.03^5^.2^.58^.07^13^1.63^1.32^.64^27^1.5^^^.3
;;^UTILITY(U,$J,112,530,4)
;;=.05^.06^.23^.74^.06^.36^1.23
;;^UTILITY(U,$J,112,530,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,531,0)
;;=SOUP, OYSTER STEW, CND, PREPARED W/EQ VOL MILK^6-248^cups^245^100^N
;;^UTILITY(U,$J,112,531,1)
;;=2.51^3.24^3.99^55^88.94^^^68^.43^8^66^96^425^4.22^.655^.151^^92^1.8^.027
;;^UTILITY(U,$J,112,531,2)
;;=.095^.137^.2^.026^4^1.07^.09^.03^13^2.06^.85^.13^18^1.34^^^0
;;^UTILITY(U,$J,112,531,4)
;;=.09^.09^.34^.83^.06^.39^.75
;;^UTILITY(U,$J,112,531,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,532,0)
;;=SOUP, PEA, GREEN, CND, PREP W/EQ VOL MILK^6-249^cups^254^100^N
;;^UTILITY(U,$J,112,532,1)
;;=4.97^2.77^12.69^94^77.93^^^68^.79^22^94^148^412^.691^.154^.26^^140^1.1^.061
;;^UTILITY(U,$J,112,532,2)
;;=.105^.528^.22^.041^3.1^.17^.17^.04^7^1.58^.86^.21^23^1.65^^^1.1
;;^UTILITY(U,$J,112,532,3)
;;=.051^.191^.213^.4^.327^.081^.046^.225^.176^.28^.336^.11^.2^.467^.969^.169^.328^.223
;;^UTILITY(U,$J,112,532,4)
;;=.06^.07^.25^.68^.06^.32^.77
;;^UTILITY(U,$J,112,532,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,533,0)
;;=SOUP, CREAM OF POTATO, CND, PREP W/EQ VOL MILK^6-253^cups^248^100^N
;;^UTILITY(U,$J,112,533,1)
;;=2.33^2.6^6.92^60^86.67^^^67^.22^7^65^130^428^.272^.106^.153^^179^.5^.033
FHINI020 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
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,112,524,2)
+2 ;;=.111^.355^.21^.026^12^.2^.86^.04^9^1.34^.84^.9^34^1.55^^^.3
+3 ;;^UTILITY(U,$J,112,524,3)
+4 ;;=.034^.105^.137^.225^.174^.058^.027^.117^.109^.155^.093^.064^.093^.193^.576^.062^.241^.131
+5 ;;^UTILITY(U,$J,112,524,4)
+6 ;;=.05^.06^.21^.57^.05^.26^.76
+7 ;;^UTILITY(U,$J,112,524,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,525,0)
+10 ;;=SOUP, CREAM OF CELERY, CND, PREP W/EQ VOL MILK^6-210^cups^248^100^N
+11 ;;^UTILITY(U,$J,112,525,1)
+12 ;;=2.29^3.91^5.86^66^86.46^^^75^.28^9^61^125^407^.079^.062^.102^^186^.6^.03
+13 ;;^UTILITY(U,$J,112,525,2)
+14 ;;=.1^.176^.61^.026^3.4^.2^1.02^.05^13^1.59^.99^1.07^27^1.49^^^.3
+15 ;;^UTILITY(U,$J,112,525,3)
+16 ;;=.03^.097^.13^.209^.159^.053^.022^.11^.1^.145^.083^.06^.08^.17^.495^.055^.213^.119
+17 ;;^UTILITY(U,$J,112,525,4)
+18 ;;=.06^.07^.25^.67^.06^.31^.9
+19 ;;^UTILITY(U,$J,112,525,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,526,0)
+22 ;;=SOUP, CHEESE, CND, PREP W/EQ VOL MILK^6-211^cups^251^100^N
+23 ;;^UTILITY(U,$J,112,526,1)
+24 ;;=3.77^5.8^6.47^92^82.44^^^115^.32^8^100^136^406^.274^.056^.103^^495^.5^.025
+25 ;;^UTILITY(U,$J,112,526,2)
+26 ;;=.133^.2^.19^.031^4^.17^.11^.07^19^3.63^1.63^.18^59^1.52^^^.4
+27 ;;^UTILITY(U,$J,112,526,3)
+28 ;;=.051^.148^.226^.361^.279^.087^.033^.189^.177^.259^.123^.102^.125^.274^1.002^.081^.383^.187
+29 ;;^UTILITY(U,$J,112,526,4)
+30 ;;=.11^.11^.58^1.65^.16^.69^1.39
+31 ;;^UTILITY(U,$J,112,526,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,527,0)
+34 ;;=SOUP, CREAM OF CHICKEN, PREP W/EQ VOL MILK^6-216^cups^248^100^N
+35 ;;^UTILITY(U,$J,112,527,1)
+36 ;;=3.01^4.62^6.04^77^84.83^^^73^.27^7^61^110^422^.272^.056^.153^^288^.5^.03
+37 ;;^UTILITY(U,$J,112,527,2)
+38 ;;=.104^.372^.23^.027^3.1^.22^.61^.05^11^1.87^1.8^.66^38^1.51^^^.1
+39 ;;^UTILITY(U,$J,112,527,3)
+40 ;;=.04^.126^.167^.265^.215^.073^.035^.14^.126^.179^.126^.081^.116^.221^.655^.089^.261^.149
+41 ;;^UTILITY(U,$J,112,527,4)
+42 ;;=.05^.06^.23^.96^.16^.36^1.6
+43 ;;^UTILITY(U,$J,112,527,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,528,0)
+46 ;;=SOUP, CLAM CHOWDER, CND, NEW ENGLAND, PREP W/MILK^6-230^cups^248^100^N
+47 ;;^UTILITY(U,$J,112,528,1)
+48 ;;=3.82^2.66^6.7^66^85.23^^^75^.6^9^63^121^400^.322^.056^.102^^66^1.4^.027
+49 ;;^UTILITY(U,$J,112,528,2)
+50 ;;=.095^.416^.28^.051^3.9^4.13^.39^.05^9^1.19^.91^.44^16^1.6^^^.6
+51 ;;^UTILITY(U,$J,112,528,3)
+52 ;;=.047^.141^.182^.29^.244^.082^.041^.151^.136^.197^.164^.107^.171^.327^.977^.139^.241^.151
+53 ;;^UTILITY(U,$J,112,528,4)
+54 ;;=.04^.05^.17^.54^.04^.25^.85
+55 ;;^UTILITY(U,$J,112,528,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,529,0)
+58 ;;=SOUP, CREAM OF MUSHROOM, CND, PREP W/EQ VOL MILK^6-243^cups^248^100^N
+59 ;;^UTILITY(U,$J,112,529,1)
+60 ;;=2.44^5.48^6.05^82^84.56^^^72^.24^8^63^109^434^.258^.056^.102^^62^.9^.031
+61 ;;^UTILITY(U,$J,112,529,2)
+62 ;;=.113^.368^.25^.026^4^.2^1.82^.04^8^2.07^1.2^1.86^15^1.47^^^.2
+63 ;;^UTILITY(U,$J,112,529,3)
+64 ;;=.034^.105^.137^.223^.173^.057^.025^.116^.109^.152^.093^.063^.088^.181^.527^.061^.226^.129
+65 ;;^UTILITY(U,$J,112,529,4)
+66 ;;=.06^.06^.24^1.18^.07^.34^1.1
+67 ;;^UTILITY(U,$J,112,529,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,530,0)
+70 ;;=SOUP, CREAM OF ONION, CND, PREP W/EQ VOL MILK^6-246^cups^248^100^N
+71 ;;^UTILITY(U,$J,112,530,1)
+72 ;;=2.74^3.78^7.4^75^84.5^^^72^.28^9^62^125^405^.25^.06^.1^^182^1^.039
+73 ;;^UTILITY(U,$J,112,530,2)
+74 ;;=.11^.244^.28^.03^5^.2^.58^.07^13^1.63^1.32^.64^27^1.5^^^.3
+75 ;;^UTILITY(U,$J,112,530,4)
+76 ;;=.05^.06^.23^.74^.06^.36^1.23
+77 ;;^UTILITY(U,$J,112,530,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,531,0)
+80 ;;=SOUP, OYSTER STEW, CND, PREPARED W/EQ VOL MILK^6-248^cups^245^100^N
+81 ;;^UTILITY(U,$J,112,531,1)
+82 ;;=2.51^3.24^3.99^55^88.94^^^68^.43^8^66^96^425^4.22^.655^.151^^92^1.8^.027
+83 ;;^UTILITY(U,$J,112,531,2)
+84 ;;=.095^.137^.2^.026^4^1.07^.09^.03^13^2.06^.85^.13^18^1.34^^^0
+85 ;;^UTILITY(U,$J,112,531,4)
+86 ;;=.09^.09^.34^.83^.06^.39^.75
+87 ;;^UTILITY(U,$J,112,531,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,532,0)
+90 ;;=SOUP, PEA, GREEN, CND, PREP W/EQ VOL MILK^6-249^cups^254^100^N
+91 ;;^UTILITY(U,$J,112,532,1)
+92 ;;=4.97^2.77^12.69^94^77.93^^^68^.79^22^94^148^412^.691^.154^.26^^140^1.1^.061
+93 ;;^UTILITY(U,$J,112,532,2)
+94 ;;=.105^.528^.22^.041^3.1^.17^.17^.04^7^1.58^.86^.21^23^1.65^^^1.1
+95 ;;^UTILITY(U,$J,112,532,3)
+96 ;;=.051^.191^.213^.4^.327^.081^.046^.225^.176^.28^.336^.11^.2^.467^.969^.169^.328^.223
+97 ;;^UTILITY(U,$J,112,532,4)
+98 ;;=.06^.07^.25^.68^.06^.32^.77
+99 ;;^UTILITY(U,$J,112,532,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,533,0)
+102 ;;=SOUP, CREAM OF POTATO, CND, PREP W/EQ VOL MILK^6-253^cups^248^100^N
+103 ;;^UTILITY(U,$J,112,533,1)
+104 ;;=2.33^2.6^6.92^60^86.67^^^67^.22^7^65^130^428^.272^.106^.153^^179^.5^.033
