FHINI04T ; ; 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,1618,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1619,0)
;;=APPLES, FRZ^9-014^cups^172^100^N
;;^UTILITY(U,$J,112,1619,1)
;;=.28^.32^12.31^48^86.85^^^4^.18^3^8^77^3^.05^.058^.169^^34^.1^.013
;;^UTILITY(U,$J,112,1619,2)
;;=.011^.042^.054^.034^.7^0^.078^.017^0^.053^.013^.095^3^.24^^^1.7
;;^UTILITY(U,$J,112,1619,3)
;;=.003^.01^.011^.017^.017^.003^.004^.008^.005^.013^.009^.004^.01^.048^.029^.011^.009^.011
;;^UTILITY(U,$J,112,1619,4)
;;=^.001^.001^.044^.001^.007^.012
;;^UTILITY(U,$J,112,1619,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1620,0)
;;=APPLE JUICE, CND, UNSW, WO/VIT C^9-016^fl oz.^31^100^N
;;^UTILITY(U,$J,112,1620,1)
;;=.06^.11^11.68^47^87.93^^^7^.37^3^7^119^3^.03^.022^.113^.01^1^.9^.021
;;^UTILITY(U,$J,112,1620,2)
;;=.017^.1^.063^.03^.1^0^.028^.006^0^.019^.005^.033^0^.22^^^.1
;;^UTILITY(U,$J,112,1620,4)
;;=^^.001^.015^^.002^.004^^.1^.1
;;^UTILITY(U,$J,112,1620,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1621,0)
;;=APPLE JUICE, FRZ, UNSW, WO/VIT C^9-018^fl oz.^29.9^100^N
;;^UTILITY(U,$J,112,1621,1)
;;=.14^.1^11.54^47^87.9^^^6^.26^5^7^126^7^.04^.014^.063^^0^.6^.003
;;^UTILITY(U,$J,112,1621,2)
;;=.015^.038^.063^.033^.3^0^.027^.004^0^.018^.002^.031^0^.32^^^.1
;;^UTILITY(U,$J,112,1621,4)
;;=^^^.016^^.002^.002
;;^UTILITY(U,$J,112,1621,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1622,0)
;;=APPLESAUCE, CND, UNSW, WO/VIT C^9-019^cups^244^100^N
;;^UTILITY(U,$J,112,1622,1)
;;=.17^.05^11.29^43^88.35^^^3^.12^3^7^75^2^.03^.026^.075^^29^1.2^.013
;;^UTILITY(U,$J,112,1622,2)
;;=.025^.188^.095^.026^.6^0^.012^.003^0^.008^.002^.014^3^.15^^^1.6
;;^UTILITY(U,$J,112,1622,3)
;;=.002^.006^.006^.01^.01^.002^.002^.005^.003^.008^.005^.003^.006^.028^.017^.006^.006^.007
;;^UTILITY(U,$J,112,1622,4)
;;=^^^.007^^.001^.002^^.5
;;^UTILITY(U,$J,112,1622,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1623,0)
;;=APPLESAUCE, CND, SWEETENED, WO/SALT^9-020^cups^256^100^N
;;^UTILITY(U,$J,112,1623,1)
;;=.18^.18^19.91^76^79.58^^^4^.35^3^7^61^3^.04^.043^.075^^11^1.7^.013
;;^UTILITY(U,$J,112,1623,2)
;;=.028^.188^.052^.026^.6^0^.045^.009^0^.03^.007^.054^1^.14^^^1.2
;;^UTILITY(U,$J,112,1623,3)
;;=.002^.007^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.007^.032^.019^.007^.006^.007
;;^UTILITY(U,$J,112,1623,4)
;;=^.001^.001^.025^^.004^.007^^^.3
;;^UTILITY(U,$J,112,1623,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1624,0)
;;=APRICOTS, RAW^9-021^fruits^35^93^N
;;^UTILITY(U,$J,112,1624,1)
;;=1.4^.39^11.12^48^86.35^^^14^.54^8^19^296^1^.26^.089^.079^^2612^10^.03
;;^UTILITY(U,$J,112,1624,2)
;;=.04^.6^.24^.054^8.6^0^.077^^0^.027^.17^.077^261^.75^^^2.5
;;^UTILITY(U,$J,112,1624,3)
;;=.015^.047^.041^.077^.097^.006^.003^.052^.029^.047^.045^.027^.068^.314^.157^.04^.101^.083
;;^UTILITY(U,$J,112,1624,4)
;;=^^^.024^^.003^.17
;;^UTILITY(U,$J,112,1624,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1625,0)
;;=APRICOTS, CND, WATER PACK, W/SKIN^9-022^halves^28^100^N
;;^UTILITY(U,$J,112,1625,1)
;;=.71^.16^6.39^27^92.36^^^8^.32^7^13^192^3^.11^.082^.053^^1293^3.4^.021
;;^UTILITY(U,$J,112,1625,2)
;;=.023^.395^.092^.054^1.7^0^.031^^0^.011^.069^.031^129^.38^^^1.3
;;^UTILITY(U,$J,112,1625,3)
;;=.013^.026^.022^.042^.049^.004^.002^.03^.017^.026^.028^.012^.035^.163^.072^.022^.043^.041
;;^UTILITY(U,$J,112,1625,4)
;;=^^^.01^^.001^.069^^5
;;^UTILITY(U,$J,112,1625,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1626,0)
;;=APRICOTS, CND, JUICE PACK, W/SKIN^9-024^halves^28^100^N
;;^UTILITY(U,$J,112,1626,1)
;;=.63^.04^12.34^48^86.62^^^12^.3^10^20^165^4^.11^.054^.052^^1691^4.9^.018
;;^UTILITY(U,$J,112,1626,2)
;;=.019^.344^.092^.054^1.7^0^.007^^0^.003^.017^.007^169^.37^^^1.4
;;^UTILITY(U,$J,112,1626,3)
;;=.011^.023^.019^.037^.044^.003^.002^.026^.015^.023^.024^.01^.031^.145^.064^.019^.038^.036
;;^UTILITY(U,$J,112,1626,4)
;;=^^^.002^^^.017
;;^UTILITY(U,$J,112,1626,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1627,0)
;;=APRICOTS, CND, LIGHT SIRUP, W/SKIN^9-026^halves^28.3^100^N
;;^UTILITY(U,$J,112,1627,1)
;;=.53^.05^16.49^63^82.56^^^11^.39^8^13^138^4^.11^.079^.052^^1322^2.7^.016
;;^UTILITY(U,$J,112,1627,2)
;;=.02^.304^.092^.054^1.7^0^.01^^0^.003^.021^.01^132^.37^^^1.3
;;^UTILITY(U,$J,112,1627,3)
;;=.009^.019^.016^.031^.037^.003^.002^.022^.012^.019^.021^.009^.026^.122^.054^.016^.032^.031
FHINI04T ; ; 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,1618,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,1619,0)
+4 ;;=APPLES, FRZ^9-014^cups^172^100^N
+5 ;;^UTILITY(U,$J,112,1619,1)
+6 ;;=.28^.32^12.31^48^86.85^^^4^.18^3^8^77^3^.05^.058^.169^^34^.1^.013
+7 ;;^UTILITY(U,$J,112,1619,2)
+8 ;;=.011^.042^.054^.034^.7^0^.078^.017^0^.053^.013^.095^3^.24^^^1.7
+9 ;;^UTILITY(U,$J,112,1619,3)
+10 ;;=.003^.01^.011^.017^.017^.003^.004^.008^.005^.013^.009^.004^.01^.048^.029^.011^.009^.011
+11 ;;^UTILITY(U,$J,112,1619,4)
+12 ;;=^.001^.001^.044^.001^.007^.012
+13 ;;^UTILITY(U,$J,112,1619,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,1620,0)
+16 ;;=APPLE JUICE, CND, UNSW, WO/VIT C^9-016^fl oz.^31^100^N
+17 ;;^UTILITY(U,$J,112,1620,1)
+18 ;;=.06^.11^11.68^47^87.93^^^7^.37^3^7^119^3^.03^.022^.113^.01^1^.9^.021
+19 ;;^UTILITY(U,$J,112,1620,2)
+20 ;;=.017^.1^.063^.03^.1^0^.028^.006^0^.019^.005^.033^0^.22^^^.1
+21 ;;^UTILITY(U,$J,112,1620,4)
+22 ;;=^^.001^.015^^.002^.004^^.1^.1
+23 ;;^UTILITY(U,$J,112,1620,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1621,0)
+26 ;;=APPLE JUICE, FRZ, UNSW, WO/VIT C^9-018^fl oz.^29.9^100^N
+27 ;;^UTILITY(U,$J,112,1621,1)
+28 ;;=.14^.1^11.54^47^87.9^^^6^.26^5^7^126^7^.04^.014^.063^^0^.6^.003
+29 ;;^UTILITY(U,$J,112,1621,2)
+30 ;;=.015^.038^.063^.033^.3^0^.027^.004^0^.018^.002^.031^0^.32^^^.1
+31 ;;^UTILITY(U,$J,112,1621,4)
+32 ;;=^^^.016^^.002^.002
+33 ;;^UTILITY(U,$J,112,1621,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1622,0)
+36 ;;=APPLESAUCE, CND, UNSW, WO/VIT C^9-019^cups^244^100^N
+37 ;;^UTILITY(U,$J,112,1622,1)
+38 ;;=.17^.05^11.29^43^88.35^^^3^.12^3^7^75^2^.03^.026^.075^^29^1.2^.013
+39 ;;^UTILITY(U,$J,112,1622,2)
+40 ;;=.025^.188^.095^.026^.6^0^.012^.003^0^.008^.002^.014^3^.15^^^1.6
+41 ;;^UTILITY(U,$J,112,1622,3)
+42 ;;=.002^.006^.006^.01^.01^.002^.002^.005^.003^.008^.005^.003^.006^.028^.017^.006^.006^.007
+43 ;;^UTILITY(U,$J,112,1622,4)
+44 ;;=^^^.007^^.001^.002^^.5
+45 ;;^UTILITY(U,$J,112,1622,20)
+46 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+47 ;;^UTILITY(U,$J,112,1623,0)
+48 ;;=APPLESAUCE, CND, SWEETENED, WO/SALT^9-020^cups^256^100^N
+49 ;;^UTILITY(U,$J,112,1623,1)
+50 ;;=.18^.18^19.91^76^79.58^^^4^.35^3^7^61^3^.04^.043^.075^^11^1.7^.013
+51 ;;^UTILITY(U,$J,112,1623,2)
+52 ;;=.028^.188^.052^.026^.6^0^.045^.009^0^.03^.007^.054^1^.14^^^1.2
+53 ;;^UTILITY(U,$J,112,1623,3)
+54 ;;=.002^.007^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.007^.032^.019^.007^.006^.007
+55 ;;^UTILITY(U,$J,112,1623,4)
+56 ;;=^.001^.001^.025^^.004^.007^^^.3
+57 ;;^UTILITY(U,$J,112,1623,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1624,0)
+60 ;;=APRICOTS, RAW^9-021^fruits^35^93^N
+61 ;;^UTILITY(U,$J,112,1624,1)
+62 ;;=1.4^.39^11.12^48^86.35^^^14^.54^8^19^296^1^.26^.089^.079^^2612^10^.03
+63 ;;^UTILITY(U,$J,112,1624,2)
+64 ;;=.04^.6^.24^.054^8.6^0^.077^^0^.027^.17^.077^261^.75^^^2.5
+65 ;;^UTILITY(U,$J,112,1624,3)
+66 ;;=.015^.047^.041^.077^.097^.006^.003^.052^.029^.047^.045^.027^.068^.314^.157^.04^.101^.083
+67 ;;^UTILITY(U,$J,112,1624,4)
+68 ;;=^^^.024^^.003^.17
+69 ;;^UTILITY(U,$J,112,1624,20)
+70 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+71 ;;^UTILITY(U,$J,112,1625,0)
+72 ;;=APRICOTS, CND, WATER PACK, W/SKIN^9-022^halves^28^100^N
+73 ;;^UTILITY(U,$J,112,1625,1)
+74 ;;=.71^.16^6.39^27^92.36^^^8^.32^7^13^192^3^.11^.082^.053^^1293^3.4^.021
+75 ;;^UTILITY(U,$J,112,1625,2)
+76 ;;=.023^.395^.092^.054^1.7^0^.031^^0^.011^.069^.031^129^.38^^^1.3
+77 ;;^UTILITY(U,$J,112,1625,3)
+78 ;;=.013^.026^.022^.042^.049^.004^.002^.03^.017^.026^.028^.012^.035^.163^.072^.022^.043^.041
+79 ;;^UTILITY(U,$J,112,1625,4)
+80 ;;=^^^.01^^.001^.069^^5
+81 ;;^UTILITY(U,$J,112,1625,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1626,0)
+84 ;;=APRICOTS, CND, JUICE PACK, W/SKIN^9-024^halves^28^100^N
+85 ;;^UTILITY(U,$J,112,1626,1)
+86 ;;=.63^.04^12.34^48^86.62^^^12^.3^10^20^165^4^.11^.054^.052^^1691^4.9^.018
+87 ;;^UTILITY(U,$J,112,1626,2)
+88 ;;=.019^.344^.092^.054^1.7^0^.007^^0^.003^.017^.007^169^.37^^^1.4
+89 ;;^UTILITY(U,$J,112,1626,3)
+90 ;;=.011^.023^.019^.037^.044^.003^.002^.026^.015^.023^.024^.01^.031^.145^.064^.019^.038^.036
+91 ;;^UTILITY(U,$J,112,1626,4)
+92 ;;=^^^.002^^^.017
+93 ;;^UTILITY(U,$J,112,1626,20)
+94 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+95 ;;^UTILITY(U,$J,112,1627,0)
+96 ;;=APRICOTS, CND, LIGHT SIRUP, W/SKIN^9-026^halves^28.3^100^N
+97 ;;^UTILITY(U,$J,112,1627,1)
+98 ;;=.53^.05^16.49^63^82.56^^^11^.39^8^13^138^4^.11^.079^.052^^1322^2.7^.016
+99 ;;^UTILITY(U,$J,112,1627,2)
+100 ;;=.02^.304^.092^.054^1.7^0^.01^^0^.003^.021^.01^132^.37^^^1.3
+101 ;;^UTILITY(U,$J,112,1627,3)
+102 ;;=.009^.019^.016^.031^.037^.003^.002^.022^.012^.019^.021^.009^.026^.122^.054^.016^.032^.031
