FHINI07X ; ; 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,2750,2)
;;=.027^.16^.145^.042^37^0^.037^.006^0^.024^.002^.044^3^.47^^^3.1
;;^UTILITY(U,$J,112,2750,3)
;;=.016^.025^.054^.039^.035^.005^^.022^^.041^.066^.015
;;^UTILITY(U,$J,112,2750,4)
;;=^^.001^.021^^.001^.002
;;^UTILITY(U,$J,112,2750,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2751,0)
;;=CHIVES, FREEZE-DRIED^11-615^tbsp.^.2^100^N
;;^UTILITY(U,$J,112,2751,1)
;;=21.2^3.5^64.29^311^2^^^813^20^640^518^2960^70^5.12^.686^1.35^^68300^660^.9
;;^UTILITY(U,$J,112,2751,2)
;;=1.5^5.9^2.106^1.996^107.5^0^1.296^.073^0^.591^.49^1.369^6830^9.01
;;^UTILITY(U,$J,112,2751,3)
;;=.237^.831^.899^1.265^1.058^.231^^.682^.614^.936^1.533^.366^.957^1.961^4.386^1.052^1.401^.957
;;^UTILITY(U,$J,112,2751,4)
;;=^^.017^.528^^.046^.49
;;^UTILITY(U,$J,112,2751,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2752,0)
;;=CISCO, SMOKED^15-014^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2752,1)
;;=16.36^11.9^0^177^69.8^^^26^.49^17^150^293^481^.3^.215^.021^^943^0^.046
;;^UTILITY(U,$J,112,2752,2)
;;=.159^2.31^.308^.268^2.1^4.26^.422^^32^1.741^5.484^2.274^283^2^^^0
;;^UTILITY(U,$J,112,2752,3)
;;=.183^.717^.754^1.33^1.503^.484^.175^.639^.552^.843^.979^.482^.99^1.676^2.443^.785^.579^.668
;;^UTILITY(U,$J,112,2752,4)
;;=^^.654^.888^2.665^.199^2.45^.106
;;^UTILITY(U,$J,112,2752,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2753,0)
;;=CITRON, CANDIED^767-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2753,1)
;;=.2^.3^80.2^314^18^^^83^.8^^24^120^290^^^^^0^0^0
;;^UTILITY(U,$J,112,2753,2)
;;=0^0^^^^^0^^0^0^^^^1.3
;;^UTILITY(U,$J,112,2753,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,2753,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2754,0)
;;=CLAM AND TOMATO JUICE, CANNED^14-187^floz.^30.2^100^N
;;^UTILITY(U,$J,112,2754,1)
;;=.6^.1^10.9^46^87.5^^^12^.6^22^78^90^400^1.08^.348^^^215^4.1^.04
;;^UTILITY(U,$J,112,2754,2)
;;=.03^.19^.251^.084^15.9^30.6^.019^.001^0^.007^.008^.02^22^.9
;;^UTILITY(U,$J,112,2754,3)
;;=.004^.015^.012^.018^.018^.003^.004^.013^.009^.013^.013^.01^.02^.08^.255^.011^.014^.015
;;^UTILITY(U,$J,112,2754,4)
;;=^^0^.005^0^.002^.007
;;^UTILITY(U,$J,112,2754,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2755,0)
;;=COD, ATLANTIC, DRIED AND SALTED^15-018^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2755,1)
;;=62.82^2.37^0^290^16.14^^^160^2.5^133^950^1458^7027^1.59^.176^.05^^141^3.5^.268
;;^UTILITY(U,$J,112,2755,2)
;;=.24^7.5^1.675^.864^24.7^10^.018^.004^152^.462^.342^.804^42^4.1^^^0
;;^UTILITY(U,$J,112,2755,3)
;;=.704^2.754^2.895^5.106^5.769^1.859^.673^2.452^2.121^3.236^3.759^1.849^3.799^6.433^9.378^3.015^2.221^2.563
;;^UTILITY(U,$J,112,2755,4)
;;=^^.032^.321^.056^.106^.215^.078
;;^UTILITY(U,$J,112,2755,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2756,0)
;;=COFFEE, INSTANT, CAPPUCINO FLAVOR, W/ SUGAR, PPD W/ WATER^14-418^floz.^32^100^N
;;^UTILITY(U,$J,112,2756,1)
;;=.2^1.1^5.6^32^92.6^^^4^.08^5^14^62^54^.04^.014^.015^^0^0^.008
;;^UTILITY(U,$J,112,2756,2)
;;=.003^.168^.005^0^0^0^.02^^0^.953^.064^.02^0^.4^^39
;;^UTILITY(U,$J,112,2756,3)
;;=.001^.002^.003^.008^.002^0^.003^.004^.003^.005^.001^.003^.006^.008^.035^.008^.006^.002
;;^UTILITY(U,$J,112,2756,4)
;;=.067^.492^.185^.09^^.031^.064
;;^UTILITY(U,$J,112,2756,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2757,0)
;;=COFFEE, INSTANT, FRENCH FLAVOR, W/ SUGAR, PPD W/ WATER^14-419^floz.^31.5^100^N
;;^UTILITY(U,$J,112,2757,1)
;;=.3^1.8^3.5^30^94^^^4^.01^1^22^72^16^.02^.006^0^^0^0^0
;;^UTILITY(U,$J,112,2757,2)
;;=.001^.357^.001^0^0^0^.033^^0^1.559^.105^.033^0^.3^^27
;;^UTILITY(U,$J,112,2757,3)
;;=.001^.003^.004^.01^.002^0^.004^.005^.003^.006^.001^.003^.007^.01^.042^.009^.007^.003
;;^UTILITY(U,$J,112,2757,4)
;;=.109^.805^.302^.147^^.05^.105
;;^UTILITY(U,$J,112,2757,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2758,0)
;;=COFFEE, INSTANT, MOCHA FLAVOR, W/ SUGAR, PPD W/ WATER^14-420^floz.^31.3^100^N
;;^UTILITY(U,$J,112,2758,1)
;;=.3^1^4.5^27^94^^^4^.13^5^15^63^19^.08^.032^.028^^0^0^.002
;;^UTILITY(U,$J,112,2758,2)
;;=.002^.138^.003^0^0^0^.018^^0^.856^.058^.018^0^.2^^18
;;^UTILITY(U,$J,112,2758,3)
;;=.003^.007^.007^.013^.009^.002^.003^.009^.007^.011^.01^.004^.009^.019^.035^.01^.008^.007
;;^UTILITY(U,$J,112,2758,4)
;;=.06^.442^.166^.081^^.028^.058
;;^UTILITY(U,$J,112,2758,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2759,0)
;;=CORN FLOUR, MASA, ENRICHED^20-017^cups^114^100^N
;;^UTILITY(U,$J,112,2759,1)
;;=9.34^3.78^76.27^365^9.03^^^141^7.21^110^223^298^5^1.78^.169^.484^^0^0^1.429
FHINI07X ; ; 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,2750,2)
+2 ;;=.027^.16^.145^.042^37^0^.037^.006^0^.024^.002^.044^3^.47^^^3.1
+3 ;;^UTILITY(U,$J,112,2750,3)
+4 ;;=.016^.025^.054^.039^.035^.005^^.022^^.041^.066^.015
+5 ;;^UTILITY(U,$J,112,2750,4)
+6 ;;=^^.001^.021^^.001^.002
+7 ;;^UTILITY(U,$J,112,2750,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2751,0)
+10 ;;=CHIVES, FREEZE-DRIED^11-615^tbsp.^.2^100^N
+11 ;;^UTILITY(U,$J,112,2751,1)
+12 ;;=21.2^3.5^64.29^311^2^^^813^20^640^518^2960^70^5.12^.686^1.35^^68300^660^.9
+13 ;;^UTILITY(U,$J,112,2751,2)
+14 ;;=1.5^5.9^2.106^1.996^107.5^0^1.296^.073^0^.591^.49^1.369^6830^9.01
+15 ;;^UTILITY(U,$J,112,2751,3)
+16 ;;=.237^.831^.899^1.265^1.058^.231^^.682^.614^.936^1.533^.366^.957^1.961^4.386^1.052^1.401^.957
+17 ;;^UTILITY(U,$J,112,2751,4)
+18 ;;=^^.017^.528^^.046^.49
+19 ;;^UTILITY(U,$J,112,2751,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2752,0)
+22 ;;=CISCO, SMOKED^15-014^oz.^28.3^100^N
+23 ;;^UTILITY(U,$J,112,2752,1)
+24 ;;=16.36^11.9^0^177^69.8^^^26^.49^17^150^293^481^.3^.215^.021^^943^0^.046
+25 ;;^UTILITY(U,$J,112,2752,2)
+26 ;;=.159^2.31^.308^.268^2.1^4.26^.422^^32^1.741^5.484^2.274^283^2^^^0
+27 ;;^UTILITY(U,$J,112,2752,3)
+28 ;;=.183^.717^.754^1.33^1.503^.484^.175^.639^.552^.843^.979^.482^.99^1.676^2.443^.785^.579^.668
+29 ;;^UTILITY(U,$J,112,2752,4)
+30 ;;=^^.654^.888^2.665^.199^2.45^.106
+31 ;;^UTILITY(U,$J,112,2752,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2753,0)
+34 ;;=CITRON, CANDIED^767-0^oz.^28.3^100^N
+35 ;;^UTILITY(U,$J,112,2753,1)
+36 ;;=.2^.3^80.2^314^18^^^83^.8^^24^120^290^^^^^0^0^0
+37 ;;^UTILITY(U,$J,112,2753,2)
+38 ;;=0^0^^^^^0^^0^0^^^^1.3
+39 ;;^UTILITY(U,$J,112,2753,4)
+40 ;;=^^^^^^0
+41 ;;^UTILITY(U,$J,112,2753,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,2754,0)
+44 ;;=CLAM AND TOMATO JUICE, CANNED^14-187^floz.^30.2^100^N
+45 ;;^UTILITY(U,$J,112,2754,1)
+46 ;;=.6^.1^10.9^46^87.5^^^12^.6^22^78^90^400^1.08^.348^^^215^4.1^.04
+47 ;;^UTILITY(U,$J,112,2754,2)
+48 ;;=.03^.19^.251^.084^15.9^30.6^.019^.001^0^.007^.008^.02^22^.9
+49 ;;^UTILITY(U,$J,112,2754,3)
+50 ;;=.004^.015^.012^.018^.018^.003^.004^.013^.009^.013^.013^.01^.02^.08^.255^.011^.014^.015
+51 ;;^UTILITY(U,$J,112,2754,4)
+52 ;;=^^0^.005^0^.002^.007
+53 ;;^UTILITY(U,$J,112,2754,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2755,0)
+56 ;;=COD, ATLANTIC, DRIED AND SALTED^15-018^oz.^28.3^100^N
+57 ;;^UTILITY(U,$J,112,2755,1)
+58 ;;=62.82^2.37^0^290^16.14^^^160^2.5^133^950^1458^7027^1.59^.176^.05^^141^3.5^.268
+59 ;;^UTILITY(U,$J,112,2755,2)
+60 ;;=.24^7.5^1.675^.864^24.7^10^.018^.004^152^.462^.342^.804^42^4.1^^^0
+61 ;;^UTILITY(U,$J,112,2755,3)
+62 ;;=.704^2.754^2.895^5.106^5.769^1.859^.673^2.452^2.121^3.236^3.759^1.849^3.799^6.433^9.378^3.015^2.221^2.563
+63 ;;^UTILITY(U,$J,112,2755,4)
+64 ;;=^^.032^.321^.056^.106^.215^.078
+65 ;;^UTILITY(U,$J,112,2755,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2756,0)
+68 ;;=COFFEE, INSTANT, CAPPUCINO FLAVOR, W/ SUGAR, PPD W/ WATER^14-418^floz.^32^100^N
+69 ;;^UTILITY(U,$J,112,2756,1)
+70 ;;=.2^1.1^5.6^32^92.6^^^4^.08^5^14^62^54^.04^.014^.015^^0^0^.008
+71 ;;^UTILITY(U,$J,112,2756,2)
+72 ;;=.003^.168^.005^0^0^0^.02^^0^.953^.064^.02^0^.4^^39
+73 ;;^UTILITY(U,$J,112,2756,3)
+74 ;;=.001^.002^.003^.008^.002^0^.003^.004^.003^.005^.001^.003^.006^.008^.035^.008^.006^.002
+75 ;;^UTILITY(U,$J,112,2756,4)
+76 ;;=.067^.492^.185^.09^^.031^.064
+77 ;;^UTILITY(U,$J,112,2756,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2757,0)
+80 ;;=COFFEE, INSTANT, FRENCH FLAVOR, W/ SUGAR, PPD W/ WATER^14-419^floz.^31.5^100^N
+81 ;;^UTILITY(U,$J,112,2757,1)
+82 ;;=.3^1.8^3.5^30^94^^^4^.01^1^22^72^16^.02^.006^0^^0^0^0
+83 ;;^UTILITY(U,$J,112,2757,2)
+84 ;;=.001^.357^.001^0^0^0^.033^^0^1.559^.105^.033^0^.3^^27
+85 ;;^UTILITY(U,$J,112,2757,3)
+86 ;;=.001^.003^.004^.01^.002^0^.004^.005^.003^.006^.001^.003^.007^.01^.042^.009^.007^.003
+87 ;;^UTILITY(U,$J,112,2757,4)
+88 ;;=.109^.805^.302^.147^^.05^.105
+89 ;;^UTILITY(U,$J,112,2757,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2758,0)
+92 ;;=COFFEE, INSTANT, MOCHA FLAVOR, W/ SUGAR, PPD W/ WATER^14-420^floz.^31.3^100^N
+93 ;;^UTILITY(U,$J,112,2758,1)
+94 ;;=.3^1^4.5^27^94^^^4^.13^5^15^63^19^.08^.032^.028^^0^0^.002
+95 ;;^UTILITY(U,$J,112,2758,2)
+96 ;;=.002^.138^.003^0^0^0^.018^^0^.856^.058^.018^0^.2^^18
+97 ;;^UTILITY(U,$J,112,2758,3)
+98 ;;=.003^.007^.007^.013^.009^.002^.003^.009^.007^.011^.01^.004^.009^.019^.035^.01^.008^.007
+99 ;;^UTILITY(U,$J,112,2758,4)
+100 ;;=.06^.442^.166^.081^^.028^.058
+101 ;;^UTILITY(U,$J,112,2758,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,2759,0)
+104 ;;=CORN FLOUR, MASA, ENRICHED^20-017^cups^114^100^N
+105 ;;^UTILITY(U,$J,112,2759,1)
+106 ;;=9.34^3.78^76.27^365^9.03^^^141^7.21^110^223^298^5^1.78^.169^.484^^0^0^1.429
