FHINI04Z ; ; 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,1679,4)
;;=^^^.003^^.001^.005
;;^UTILITY(U,$J,112,1679,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1680,0)
;;=FRUIT SALAD, CND, LT SIRUP, SOL&LIQ^9-104^cups^252^100^N
;;^UTILITY(U,$J,112,1680,1)
;;=.34^.07^15.14^58^84.24^^^7^.29^5^9^82^6^.07^.065^.148^^429^2.5^.014
;;^UTILITY(U,$J,112,1680,2)
;;=.02^.365^.053^.032^2.6^0^.024^.003^0^.009^.012^.028^43^.21
;;^UTILITY(U,$J,112,1680,4)
;;=^^^.006^^.002^.012
;;^UTILITY(U,$J,112,1680,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1681,0)
;;=FRUIT SALAD, CND, HVY SIRUP, SOL&LIQ^9-105^cups^256^100^N
;;^UTILITY(U,$J,112,1681,1)
;;=.34^.07^19.11^73^80.26^^^6^.28^5^9^80^6^.07^.064^.145^^504^2.4^.015
;;^UTILITY(U,$J,112,1681,2)
;;=.021^.347^.053^.032^2.5^0^.028^.004^0^.01^.014^.031^50^.21^^^1.1
;;^UTILITY(U,$J,112,1681,4)
;;=^^^.007^^.003^.014
;;^UTILITY(U,$J,112,1681,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1682,0)
;;=GOOSEBERRIES, RAW^9-107^cups^150^100^N
;;^UTILITY(U,$J,112,1682,1)
;;=.88^.58^10.18^44^87.87^^^25^.31^10^27^198^1^.12^.07^.144^.37^290^27.7^.04
;;^UTILITY(U,$J,112,1682,2)
;;=.03^.3^.286^.08^^0^.271^.046^0^.038^.051^.317^29^.49^^^2.6
;;^UTILITY(U,$J,112,1682,4)
;;=^^^.019^^.013^.051
;;^UTILITY(U,$J,112,1682,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1683,0)
;;=GOOSEBERRIES, CND, LIGHT SIRUP PACK, SOL&LIQ^9-109^cups^252^100^N
;;^UTILITY(U,$J,112,1683,1)
;;=.65^.2^18.75^73^80.1^^^16^.33^6^7^77^2^.11^.217^.177^^138^10^.02
;;^UTILITY(U,$J,112,1683,2)
;;=.053^.153^.138^.012^3.2^0^.094^.016^0^.013^.018^.11^14^.29^^^2.4
;;^UTILITY(U,$J,112,1683,4)
;;=^^^.007^^.004^.018
;;^UTILITY(U,$J,112,1683,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1684,0)
;;=GRAPEFRUIT, RAW, PINK&RED&WHITE^9-111^halves^120^49^N
;;^UTILITY(U,$J,112,1684,1)
;;=.63^.1^8.08^32^90.89^^^12^.09^8^8^139^0^.07^.047^.012^.25^124^34.4^.036
;;^UTILITY(U,$J,112,1684,2)
;;=.02^.25^.283^.042^10.2^0^.019^.005^0^.014^.013^.024^12^.31^^^1.3
;;^UTILITY(U,$J,112,1684,3)
;;=.002^^^^.016^.002
;;^UTILITY(U,$J,112,1684,4)
;;=^^^.012^.001^.001^.012^^.02
;;^UTILITY(U,$J,112,1684,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1685,0)
;;=GRAPEFRUIT, RAW, PINK&RED, CALIFORNIA&ARIZONA^9-113^halves^124^51^N
;;^UTILITY(U,$J,112,1685,1)
;;=.5^.1^9.69^37^89.31^^^11^.08^9^12^147^1^.07^.032^.02^^259^38.1^.034
;;^UTILITY(U,$J,112,1685,2)
;;=.02^.191^.283^.042^12.2^0^.019^.005^0^.014^.013^.024^26^.4
;;^UTILITY(U,$J,112,1685,3)
;;=.002^^^^.013^.002
;;^UTILITY(U,$J,112,1685,4)
;;=^^^.012^.001^.001^.012
;;^UTILITY(U,$J,112,1685,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1686,0)
;;=GRAPEFRUIT, RAW, PINK&RED, FLORIDA^9-114^halves^124^51^N
;;^UTILITY(U,$J,112,1686,1)
;;=.55^.1^7.5^30^91.56^^^15^.12^8^9^127^0^.07^.044^.01^^259^37^.04
;;^UTILITY(U,$J,112,1686,2)
;;=.02^.2^.283^.042^9.4^0^.019^.005^0^.014^.013^.024^26^.29^^^1.1
;;^UTILITY(U,$J,112,1686,3)
;;=.002^^^^.014^.002
;;^UTILITY(U,$J,112,1686,4)
;;=^^^.012^.001^.001^.012
;;^UTILITY(U,$J,112,1686,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1687,0)
;;=GRAPEFRUIT, RAW, WHITE, CALIFORNIA^9-117^halves^118^49^N
;;^UTILITY(U,$J,112,1687,1)
;;=.88^.1^9.09^37^89.58^^^12^.08^9^12^143^0^.07^.032^.02^^10^33.3^.037
;;^UTILITY(U,$J,112,1687,2)
;;=.02^.269^.283^.043^11.8^0^.019^.005^0^.014^.013^.024^1^.35
;;^UTILITY(U,$J,112,1687,3)
;;=.003^^^^.023^.003
;;^UTILITY(U,$J,112,1687,4)
;;=^^^.012^.001^.001^.012
;;^UTILITY(U,$J,112,1687,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1688,0)
;;=GRAPEFRUIT, RAW, WHITE, FLORIDA^9-118^halves^118^49^N
;;^UTILITY(U,$J,112,1688,1)
;;=.63^.1^8.19^32^90.76^^^15^.05^9^7^150^0^.07^.056^.011^^10^37^.04
;;^UTILITY(U,$J,112,1688,2)
;;=.02^.2^.283^.043^9.4^0^.019^.005^0^.014^.013^.024^1^.32^^^1.2
;;^UTILITY(U,$J,112,1688,3)
;;=.002^^^^.016^.002
;;^UTILITY(U,$J,112,1688,4)
;;=^^^.012^.001^.001^.012
;;^UTILITY(U,$J,112,1688,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1689,0)
;;=GRAPEFRUIT, SECTIONS, CND, WATER PACK, SOL&LIQ^9-119^cups^244^100^N
;;^UTILITY(U,$J,112,1689,1)
;;=.58^.1^9.15^36^89.85^^^15^.41^10^10^132^2^.09^.067^.007^^0^21.8^.039
;;^UTILITY(U,$J,112,1689,2)
;;=.021^.249^.12^.02^8.8^0^.019^.005^0^.014^.014^.024^0^.32^^^1.1
;;^UTILITY(U,$J,112,1689,3)
;;=.002^^^^.015^.002
;;^UTILITY(U,$J,112,1689,4)
;;=^^^.013^.001^.001^.012
FHINI04Z ; ; 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,1679,4)
+2 ;;=^^^.003^^.001^.005
+3 ;;^UTILITY(U,$J,112,1679,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1680,0)
+6 ;;=FRUIT SALAD, CND, LT SIRUP, SOL&LIQ^9-104^cups^252^100^N
+7 ;;^UTILITY(U,$J,112,1680,1)
+8 ;;=.34^.07^15.14^58^84.24^^^7^.29^5^9^82^6^.07^.065^.148^^429^2.5^.014
+9 ;;^UTILITY(U,$J,112,1680,2)
+10 ;;=.02^.365^.053^.032^2.6^0^.024^.003^0^.009^.012^.028^43^.21
+11 ;;^UTILITY(U,$J,112,1680,4)
+12 ;;=^^^.006^^.002^.012
+13 ;;^UTILITY(U,$J,112,1680,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,1681,0)
+16 ;;=FRUIT SALAD, CND, HVY SIRUP, SOL&LIQ^9-105^cups^256^100^N
+17 ;;^UTILITY(U,$J,112,1681,1)
+18 ;;=.34^.07^19.11^73^80.26^^^6^.28^5^9^80^6^.07^.064^.145^^504^2.4^.015
+19 ;;^UTILITY(U,$J,112,1681,2)
+20 ;;=.021^.347^.053^.032^2.5^0^.028^.004^0^.01^.014^.031^50^.21^^^1.1
+21 ;;^UTILITY(U,$J,112,1681,4)
+22 ;;=^^^.007^^.003^.014
+23 ;;^UTILITY(U,$J,112,1681,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1682,0)
+26 ;;=GOOSEBERRIES, RAW^9-107^cups^150^100^N
+27 ;;^UTILITY(U,$J,112,1682,1)
+28 ;;=.88^.58^10.18^44^87.87^^^25^.31^10^27^198^1^.12^.07^.144^.37^290^27.7^.04
+29 ;;^UTILITY(U,$J,112,1682,2)
+30 ;;=.03^.3^.286^.08^^0^.271^.046^0^.038^.051^.317^29^.49^^^2.6
+31 ;;^UTILITY(U,$J,112,1682,4)
+32 ;;=^^^.019^^.013^.051
+33 ;;^UTILITY(U,$J,112,1682,20)
+34 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+35 ;;^UTILITY(U,$J,112,1683,0)
+36 ;;=GOOSEBERRIES, CND, LIGHT SIRUP PACK, SOL&LIQ^9-109^cups^252^100^N
+37 ;;^UTILITY(U,$J,112,1683,1)
+38 ;;=.65^.2^18.75^73^80.1^^^16^.33^6^7^77^2^.11^.217^.177^^138^10^.02
+39 ;;^UTILITY(U,$J,112,1683,2)
+40 ;;=.053^.153^.138^.012^3.2^0^.094^.016^0^.013^.018^.11^14^.29^^^2.4
+41 ;;^UTILITY(U,$J,112,1683,4)
+42 ;;=^^^.007^^.004^.018
+43 ;;^UTILITY(U,$J,112,1683,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,1684,0)
+46 ;;=GRAPEFRUIT, RAW, PINK&RED&WHITE^9-111^halves^120^49^N
+47 ;;^UTILITY(U,$J,112,1684,1)
+48 ;;=.63^.1^8.08^32^90.89^^^12^.09^8^8^139^0^.07^.047^.012^.25^124^34.4^.036
+49 ;;^UTILITY(U,$J,112,1684,2)
+50 ;;=.02^.25^.283^.042^10.2^0^.019^.005^0^.014^.013^.024^12^.31^^^1.3
+51 ;;^UTILITY(U,$J,112,1684,3)
+52 ;;=.002^^^^.016^.002
+53 ;;^UTILITY(U,$J,112,1684,4)
+54 ;;=^^^.012^.001^.001^.012^^.02
+55 ;;^UTILITY(U,$J,112,1684,20)
+56 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+57 ;;^UTILITY(U,$J,112,1685,0)
+58 ;;=GRAPEFRUIT, RAW, PINK&RED, CALIFORNIA&ARIZONA^9-113^halves^124^51^N
+59 ;;^UTILITY(U,$J,112,1685,1)
+60 ;;=.5^.1^9.69^37^89.31^^^11^.08^9^12^147^1^.07^.032^.02^^259^38.1^.034
+61 ;;^UTILITY(U,$J,112,1685,2)
+62 ;;=.02^.191^.283^.042^12.2^0^.019^.005^0^.014^.013^.024^26^.4
+63 ;;^UTILITY(U,$J,112,1685,3)
+64 ;;=.002^^^^.013^.002
+65 ;;^UTILITY(U,$J,112,1685,4)
+66 ;;=^^^.012^.001^.001^.012
+67 ;;^UTILITY(U,$J,112,1685,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1686,0)
+70 ;;=GRAPEFRUIT, RAW, PINK&RED, FLORIDA^9-114^halves^124^51^N
+71 ;;^UTILITY(U,$J,112,1686,1)
+72 ;;=.55^.1^7.5^30^91.56^^^15^.12^8^9^127^0^.07^.044^.01^^259^37^.04
+73 ;;^UTILITY(U,$J,112,1686,2)
+74 ;;=.02^.2^.283^.042^9.4^0^.019^.005^0^.014^.013^.024^26^.29^^^1.1
+75 ;;^UTILITY(U,$J,112,1686,3)
+76 ;;=.002^^^^.014^.002
+77 ;;^UTILITY(U,$J,112,1686,4)
+78 ;;=^^^.012^.001^.001^.012
+79 ;;^UTILITY(U,$J,112,1686,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1687,0)
+82 ;;=GRAPEFRUIT, RAW, WHITE, CALIFORNIA^9-117^halves^118^49^N
+83 ;;^UTILITY(U,$J,112,1687,1)
+84 ;;=.88^.1^9.09^37^89.58^^^12^.08^9^12^143^0^.07^.032^.02^^10^33.3^.037
+85 ;;^UTILITY(U,$J,112,1687,2)
+86 ;;=.02^.269^.283^.043^11.8^0^.019^.005^0^.014^.013^.024^1^.35
+87 ;;^UTILITY(U,$J,112,1687,3)
+88 ;;=.003^^^^.023^.003
+89 ;;^UTILITY(U,$J,112,1687,4)
+90 ;;=^^^.012^.001^.001^.012
+91 ;;^UTILITY(U,$J,112,1687,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1688,0)
+94 ;;=GRAPEFRUIT, RAW, WHITE, FLORIDA^9-118^halves^118^49^N
+95 ;;^UTILITY(U,$J,112,1688,1)
+96 ;;=.63^.1^8.19^32^90.76^^^15^.05^9^7^150^0^.07^.056^.011^^10^37^.04
+97 ;;^UTILITY(U,$J,112,1688,2)
+98 ;;=.02^.2^.283^.043^9.4^0^.019^.005^0^.014^.013^.024^1^.32^^^1.2
+99 ;;^UTILITY(U,$J,112,1688,3)
+100 ;;=.002^^^^.016^.002
+101 ;;^UTILITY(U,$J,112,1688,4)
+102 ;;=^^^.012^.001^.001^.012
+103 ;;^UTILITY(U,$J,112,1688,20)
+104 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+105 ;;^UTILITY(U,$J,112,1689,0)
+106 ;;=GRAPEFRUIT, SECTIONS, CND, WATER PACK, SOL&LIQ^9-119^cups^244^100^N
+107 ;;^UTILITY(U,$J,112,1689,1)
+108 ;;=.58^.1^9.15^36^89.85^^^15^.41^10^10^132^2^.09^.067^.007^^0^21.8^.039
+109 ;;^UTILITY(U,$J,112,1689,2)
+110 ;;=.021^.249^.12^.02^8.8^0^.019^.005^0^.014^.014^.024^0^.32^^^1.1
+111 ;;^UTILITY(U,$J,112,1689,3)
+112 ;;=.002^^^^.015^.002
+113 ;;^UTILITY(U,$J,112,1689,4)
+114 ;;=^^^.013^.001^.001^.012
