FHINI035 ; ; 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,974,2)
;;=.167^1.114^.198^.095^7^0^1.76^^0^32.6^18.46^1.76^10^3^^204^15.4
;;^UTILITY(U,$J,112,974,3)
;;=.154^.407^.398^.623^.515^.106^.126^.493^.385^.617^.582^.177^.474^1.024^1.545^.461^.439^.444
;;^UTILITY(U,$J,112,974,4)
;;=^^.1^14.93^^17.15^18.46
;;^UTILITY(U,$J,112,974,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,975,0)
;;=CHOCOLATE SYRUP, THIN TYPE^14-181^tbsp.^18.8^100^N
;;^UTILITY(U,$J,112,975,1)
;;=1.9^.9^58.9^218^37.2^^^14^2.11^65^129^224^96^.73^.512^.382^^30^.2^.009
;;^UTILITY(U,$J,112,975,2)
;;=.05^.322^.013^.006^4^0^.025^.001^0^.519^.286^.026^3^.8^^14^1.8
;;^UTILITY(U,$J,112,975,3)
;;=.026^.064^.063^.099^.082^.015^.02^.08^.063^.096^.091^.028^.072^.163^.24^.074^.065^.066
;;^UTILITY(U,$J,112,975,4)
;;=^0^.001^.221^.002^.289^.283
;;^UTILITY(U,$J,112,975,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,976,0)
;;=CHOCOLATE SYRUP, FUDGE TYPE^19-348^tbsp.^18.8^100^N
;;^UTILITY(U,$J,112,976,1)
;;=4.4^13.4^58.9^346^21.6^^^100^1.2^48^170^215^130^.8^.3^.3^^90^.5^.03
;;^UTILITY(U,$J,112,976,2)
;;=.22^.2^.306^.035^4^.3^2.81^.41^12^5.64^3.67^3.22^22^1.5^^9^1.2
;;^UTILITY(U,$J,112,976,3)
;;=.056^.158^.176^.28^.229^.059^.043^.183^.157^.238^.19^.079^.161^.349^.65^.141^.233^.179
;;^UTILITY(U,$J,112,976,4)
;;=.1^.12^.43^2.67^.11^2.06^3.55
;;^UTILITY(U,$J,112,976,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,977,0)
;;=CHOP SUEY W/MEAT, HOME RECIPE^762-0^cups^250^100^N
;;^UTILITY(U,$J,112,977,1)
;;=10.4^6.8^5.1^120^75.4^^^24^1.9^^99^170^421^^^^^240^13^.11
;;^UTILITY(U,$J,112,977,2)
;;=.15^2^^^^^.28^^40^3.41^^^^2.3
;;^UTILITY(U,$J,112,977,4)
;;=^^^^^^2.46
;;^UTILITY(U,$J,112,977,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,978,0)
;;=CHOP SUEY W/MEAT, CND^763-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,978,1)
;;=4.4^3.2^4.2^62^85.5^^^35^1.9^^116^138^551^^^^^30^2^.05
;;^UTILITY(U,$J,112,978,2)
;;=.05^.7^^^^^0^^12^1^^^^2.7
;;^UTILITY(U,$J,112,978,4)
;;=^^^^^^1
;;^UTILITY(U,$J,112,978,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,979,0)
;;=CHOW MEIN, CHICKEN, WO/NOODLES, HOME RECIPE^764-0^cups^250^100^N
;;^UTILITY(U,$J,112,979,1)
;;=12.4^4^4^102^78^^^23^1^^117^189^287^^^^^110^4^.03
;;^UTILITY(U,$J,112,979,2)
;;=.09^1.7^^^^^1.25^^31^.97^^^^1.6
;;^UTILITY(U,$J,112,979,4)
;;=^^^^^^1.36
;;^UTILITY(U,$J,112,979,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,980,0)
;;=CHOW MEIN, CHICKEN, WO/NOODLES, CND^765-0^cups^250^100^N
;;^UTILITY(U,$J,112,980,1)
;;=2.6^.1^7.1^38^88.8^^^18^.5^^34^167^290^^^^^60^5^.02
;;^UTILITY(U,$J,112,980,2)
;;=.04^.4^^^^^0^^3^0^^^^1.4
;;^UTILITY(U,$J,112,980,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,980,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,981,0)
;;=CLAMS, COOKED, MOIST HEAT^15-159^oz.^28.3^100^N
;;^UTILITY(U,$J,112,981,1)
;;=25.55^1.95^5.13^148^63.64^^^92^27.96^18^338^628^112^2.73^.688^1^^570^22.1^.15
;;^UTILITY(U,$J,112,981,2)
;;=.426^3.354^.68^.11^28.8^98.888^.032^.008^67^.188^.172^.552^171^3.74^^^0
;;^UTILITY(U,$J,112,981,3)
;;=.286^1.099^1.112^1.798^1.909^.576^.335^.915^.817^1.116^1.864^.49^1.545^2.464^3.474^1.598^1.042^1.144
;;^UTILITY(U,$J,112,981,4)
;;=^^.026^.12^.044^.036^.068^.082
;;^UTILITY(U,$J,112,981,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,982,0)
;;=CLAMS, CND, DRAINED SOLIDS^15-160^cups^160^100^N
;;^UTILITY(U,$J,112,982,1)
;;=25.55^1.95^5.13^148^63.64^^^92^27.96^18^338^628^112^2.73^.688^1^^570^22.1^.15
;;^UTILITY(U,$J,112,982,2)
;;=.426^3.354^.68^.11^28.8^98.888^.032^.008^67^.188^.172^.552^171^3.74^^^0
;;^UTILITY(U,$J,112,982,3)
;;=.286^1.099^1.112^1.798^1.909^.576^.335^.915^.817^1.116^1.864^.49^1.545^2.464^3.474^1.598^1.042^1.144
;;^UTILITY(U,$J,112,982,4)
;;=^^.026^.12^.044^.036^.068^.082^^48.6
;;^UTILITY(U,$J,112,982,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,983,0)
;;=CLAMS, BREADED AND FRIED^15-158^fritters^40^100^N
;;^UTILITY(U,$J,112,983,1)
;;=14.24^11.15^10.33^202^61.55^^^63^13.91^14^188^326^364^1.46^.356^.54^^302^10^.1
;;^UTILITY(U,$J,112,983,2)
;;=.244^2.064^.43^.06^18.2^40.269^2.455^.16^61^2.683^4.545^2.87^90^2.16
;;^UTILITY(U,$J,112,983,3)
;;=.168^.602^.636^1.024^.992^.324^.204^.549^.464^.65^.985^.28^.824^1.311^2.239^.836^.691^.673
;;^UTILITY(U,$J,112,983,4)
;;=^^.058^1.551^.042^1.07^4.472^.044
;;^UTILITY(U,$J,112,983,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,984,0)
;;=COCOA, BEVERAGE POWDER, W/NFDMS^14-192^heap-tbsp.^7.1^100^N
;;^UTILITY(U,$J,112,984,1)
;;=10.8^4^79.1^361^1.5^^^326^1.19^83^315^712^504^1.46^.286^.269^^14^1.8^.096
FHINI035 ; ; 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,974,2)
+2 ;;=.167^1.114^.198^.095^7^0^1.76^^0^32.6^18.46^1.76^10^3^^204^15.4
+3 ;;^UTILITY(U,$J,112,974,3)
+4 ;;=.154^.407^.398^.623^.515^.106^.126^.493^.385^.617^.582^.177^.474^1.024^1.545^.461^.439^.444
+5 ;;^UTILITY(U,$J,112,974,4)
+6 ;;=^^.1^14.93^^17.15^18.46
+7 ;;^UTILITY(U,$J,112,974,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,975,0)
+10 ;;=CHOCOLATE SYRUP, THIN TYPE^14-181^tbsp.^18.8^100^N
+11 ;;^UTILITY(U,$J,112,975,1)
+12 ;;=1.9^.9^58.9^218^37.2^^^14^2.11^65^129^224^96^.73^.512^.382^^30^.2^.009
+13 ;;^UTILITY(U,$J,112,975,2)
+14 ;;=.05^.322^.013^.006^4^0^.025^.001^0^.519^.286^.026^3^.8^^14^1.8
+15 ;;^UTILITY(U,$J,112,975,3)
+16 ;;=.026^.064^.063^.099^.082^.015^.02^.08^.063^.096^.091^.028^.072^.163^.24^.074^.065^.066
+17 ;;^UTILITY(U,$J,112,975,4)
+18 ;;=^0^.001^.221^.002^.289^.283
+19 ;;^UTILITY(U,$J,112,975,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,976,0)
+22 ;;=CHOCOLATE SYRUP, FUDGE TYPE^19-348^tbsp.^18.8^100^N
+23 ;;^UTILITY(U,$J,112,976,1)
+24 ;;=4.4^13.4^58.9^346^21.6^^^100^1.2^48^170^215^130^.8^.3^.3^^90^.5^.03
+25 ;;^UTILITY(U,$J,112,976,2)
+26 ;;=.22^.2^.306^.035^4^.3^2.81^.41^12^5.64^3.67^3.22^22^1.5^^9^1.2
+27 ;;^UTILITY(U,$J,112,976,3)
+28 ;;=.056^.158^.176^.28^.229^.059^.043^.183^.157^.238^.19^.079^.161^.349^.65^.141^.233^.179
+29 ;;^UTILITY(U,$J,112,976,4)
+30 ;;=.1^.12^.43^2.67^.11^2.06^3.55
+31 ;;^UTILITY(U,$J,112,976,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,977,0)
+34 ;;=CHOP SUEY W/MEAT, HOME RECIPE^762-0^cups^250^100^N
+35 ;;^UTILITY(U,$J,112,977,1)
+36 ;;=10.4^6.8^5.1^120^75.4^^^24^1.9^^99^170^421^^^^^240^13^.11
+37 ;;^UTILITY(U,$J,112,977,2)
+38 ;;=.15^2^^^^^.28^^40^3.41^^^^2.3
+39 ;;^UTILITY(U,$J,112,977,4)
+40 ;;=^^^^^^2.46
+41 ;;^UTILITY(U,$J,112,977,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,978,0)
+44 ;;=CHOP SUEY W/MEAT, CND^763-0^oz.^28.3^100^N
+45 ;;^UTILITY(U,$J,112,978,1)
+46 ;;=4.4^3.2^4.2^62^85.5^^^35^1.9^^116^138^551^^^^^30^2^.05
+47 ;;^UTILITY(U,$J,112,978,2)
+48 ;;=.05^.7^^^^^0^^12^1^^^^2.7
+49 ;;^UTILITY(U,$J,112,978,4)
+50 ;;=^^^^^^1
+51 ;;^UTILITY(U,$J,112,978,20)
+52 ;;=USDA Std. Reference, Release 8
+53 ;;^UTILITY(U,$J,112,979,0)
+54 ;;=CHOW MEIN, CHICKEN, WO/NOODLES, HOME RECIPE^764-0^cups^250^100^N
+55 ;;^UTILITY(U,$J,112,979,1)
+56 ;;=12.4^4^4^102^78^^^23^1^^117^189^287^^^^^110^4^.03
+57 ;;^UTILITY(U,$J,112,979,2)
+58 ;;=.09^1.7^^^^^1.25^^31^.97^^^^1.6
+59 ;;^UTILITY(U,$J,112,979,4)
+60 ;;=^^^^^^1.36
+61 ;;^UTILITY(U,$J,112,979,20)
+62 ;;=USDA Std. Reference, Release 8
+63 ;;^UTILITY(U,$J,112,980,0)
+64 ;;=CHOW MEIN, CHICKEN, WO/NOODLES, CND^765-0^cups^250^100^N
+65 ;;^UTILITY(U,$J,112,980,1)
+66 ;;=2.6^.1^7.1^38^88.8^^^18^.5^^34^167^290^^^^^60^5^.02
+67 ;;^UTILITY(U,$J,112,980,2)
+68 ;;=.04^.4^^^^^0^^3^0^^^^1.4
+69 ;;^UTILITY(U,$J,112,980,4)
+70 ;;=^^^^^^0
+71 ;;^UTILITY(U,$J,112,980,20)
+72 ;;=USDA Std. Reference, Release 8
+73 ;;^UTILITY(U,$J,112,981,0)
+74 ;;=CLAMS, COOKED, MOIST HEAT^15-159^oz.^28.3^100^N
+75 ;;^UTILITY(U,$J,112,981,1)
+76 ;;=25.55^1.95^5.13^148^63.64^^^92^27.96^18^338^628^112^2.73^.688^1^^570^22.1^.15
+77 ;;^UTILITY(U,$J,112,981,2)
+78 ;;=.426^3.354^.68^.11^28.8^98.888^.032^.008^67^.188^.172^.552^171^3.74^^^0
+79 ;;^UTILITY(U,$J,112,981,3)
+80 ;;=.286^1.099^1.112^1.798^1.909^.576^.335^.915^.817^1.116^1.864^.49^1.545^2.464^3.474^1.598^1.042^1.144
+81 ;;^UTILITY(U,$J,112,981,4)
+82 ;;=^^.026^.12^.044^.036^.068^.082
+83 ;;^UTILITY(U,$J,112,981,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,982,0)
+86 ;;=CLAMS, CND, DRAINED SOLIDS^15-160^cups^160^100^N
+87 ;;^UTILITY(U,$J,112,982,1)
+88 ;;=25.55^1.95^5.13^148^63.64^^^92^27.96^18^338^628^112^2.73^.688^1^^570^22.1^.15
+89 ;;^UTILITY(U,$J,112,982,2)
+90 ;;=.426^3.354^.68^.11^28.8^98.888^.032^.008^67^.188^.172^.552^171^3.74^^^0
+91 ;;^UTILITY(U,$J,112,982,3)
+92 ;;=.286^1.099^1.112^1.798^1.909^.576^.335^.915^.817^1.116^1.864^.49^1.545^2.464^3.474^1.598^1.042^1.144
+93 ;;^UTILITY(U,$J,112,982,4)
+94 ;;=^^.026^.12^.044^.036^.068^.082^^48.6
+95 ;;^UTILITY(U,$J,112,982,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,983,0)
+98 ;;=CLAMS, BREADED AND FRIED^15-158^fritters^40^100^N
+99 ;;^UTILITY(U,$J,112,983,1)
+100 ;;=14.24^11.15^10.33^202^61.55^^^63^13.91^14^188^326^364^1.46^.356^.54^^302^10^.1
+101 ;;^UTILITY(U,$J,112,983,2)
+102 ;;=.244^2.064^.43^.06^18.2^40.269^2.455^.16^61^2.683^4.545^2.87^90^2.16
+103 ;;^UTILITY(U,$J,112,983,3)
+104 ;;=.168^.602^.636^1.024^.992^.324^.204^.549^.464^.65^.985^.28^.824^1.311^2.239^.836^.691^.673
+105 ;;^UTILITY(U,$J,112,983,4)
+106 ;;=^^.058^1.551^.042^1.07^4.472^.044
+107 ;;^UTILITY(U,$J,112,983,20)
+108 ;;=USDA Std. Reference, Release 10
+109 ;;^UTILITY(U,$J,112,984,0)
+110 ;;=COCOA, BEVERAGE POWDER, W/NFDMS^14-192^heap-tbsp.^7.1^100^N
+111 ;;^UTILITY(U,$J,112,984,1)
+112 ;;=10.8^4^79.1^361^1.5^^^326^1.19^83^315^712^504^1.46^.286^.269^^14^1.8^.096
