FHINI04U ; ; 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,1627,4)
;;=^^^.003^^^.021
;;^UTILITY(U,$J,112,1627,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1628,0)
;;=APRICOTS, CND, HEAVY SIRUP, W/SKIN^9-027^halves^28.3^100^N
;;^UTILITY(U,$J,112,1628,1)
;;=.53^.08^21.47^83^77.56^^^9^.3^7^12^140^4^.11^.078^.051^.89^1230^3.1^.02
;;^UTILITY(U,$J,112,1628,2)
;;=.022^.376^.092^.054^1.7^0^.015^^0^.005^.033^.015^123^.37^^^1.3
;;^UTILITY(U,$J,112,1628,3)
;;=.009^.019^.016^.031^.037^.003^.002^.022^.012^.019^.021^.009^.026^.122^.054^.016^.032^.031
;;^UTILITY(U,$J,112,1628,4)
;;=^^^.005^^.001^.033
;;^UTILITY(U,$J,112,1628,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1629,0)
;;=APRICOTS, DRIED, UNCKD^9-032^halves^3.5^100^N
;;^UTILITY(U,$J,112,1629,1)
;;=3.65^.46^61.75^238^31.09^^^45^4.7^47^117^1378^10^.74^.429^.275^^7240^2.4^.008
;;^UTILITY(U,$J,112,1629,2)
;;=.151^2.998^.753^.156^10.3^0^.09^^0^.032^.2^.09^724^3.05^^^7.9
;;^UTILITY(U,$J,112,1629,3)
;;=.065^.131^.112^.214^.253^.018^.012^.151^.085^.133^.141^.06^.18^.836^.369^.113^.218^.21
;;^UTILITY(U,$J,112,1629,4)
;;=^^^.028^^.004^.2
;;^UTILITY(U,$J,112,1629,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1630,0)
;;=APRICOTS, DRIED, STEWED, WO/SUGAR^9-033^cups^250^180^N
;;^UTILITY(U,$J,112,1630,1)
;;=1.3^.16^21.9^85^75.56^^^16^1.67^17^41^489^3^.26^.152^.098^^2363^1.6^.006
;;^UTILITY(U,$J,112,1630,2)
;;=.03^.942^.211^.114^0^0^.032^^0^.011^.071^.032^236^1.08^^^3.4
;;^UTILITY(U,$J,112,1630,3)
;;=.023^.047^.04^.076^.09^.006^.004^.054^.03^.047^.05^.021^.064^.296^.131^.04^.077^.074
;;^UTILITY(U,$J,112,1630,4)
;;=^^^.01^^.001^.071
;;^UTILITY(U,$J,112,1630,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1631,0)
;;=APRICOTS, DRIED, STEWED, W/SUGAR^9-034^cups^270^160^N
;;^UTILITY(U,$J,112,1631,1)
;;=1.17^.15^29.26^113^68.45^^^15^1.52^15^38^443^3^.24^.138^.088^^2139^1.4^.005
;;^UTILITY(U,$J,112,1631,2)
;;=.027^.853^.191^.103^0^0^.029^^0^.01^.064^.029^214^.98
;;^UTILITY(U,$J,112,1631,3)
;;=.021^.042^.036^.069^.081^.006^.004^.049^.027^.043^.045^.019^.058^.269^.119^.036^.07^.067
;;^UTILITY(U,$J,112,1631,4)
;;=^^^.009^^.001^.064
;;^UTILITY(U,$J,112,1631,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1632,0)
;;=APRICOTS, FRZ, SWEETENED^9-035^cups^242^100^N
;;^UTILITY(U,$J,112,1632,1)
;;=.7^.1^25.1^98^73.3^^^10^.9^9^19^229^4^.1^.064^.05^^1680^9^.02
;;^UTILITY(U,$J,112,1632,2)
;;=.04^.8^.2^.06^1.7^0^.02^^0^.007^.044^.02^168^.8^^^1.7
;;^UTILITY(U,$J,112,1632,3)
;;=.008^.024^.02^.039^.049^.003^.002^.026^.015^.024^.022^.013^.034^.157^.079^.02^.051^.042
;;^UTILITY(U,$J,112,1632,4)
;;=^^^.006^^.001^.044
;;^UTILITY(U,$J,112,1632,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1633,0)
;;=APRICOT NECTAR, CND, WO/VIT C^9-036^fl oz.^31.4^100^N
;;^UTILITY(U,$J,112,1633,1)
;;=.37^.09^14.39^56^84.87^^^7^.38^5^9^114^3^.09^.073^.032^^1316^.6^.009
;;^UTILITY(U,$J,112,1633,2)
;;=.014^.26^.096^.022^1.3^0^.017^^0^.006^.038^.017^132^.29^^^.6
;;^UTILITY(U,$J,112,1633,4)
;;=^^^.005^^.001^.038
;;^UTILITY(U,$J,112,1633,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1634,0)
;;=AVOCADOS, RAW^9-037^fruits^201^74^N
;;^UTILITY(U,$J,112,1634,1)
;;=1.98^15.32^7.39^161^74.27^^^11^1.02^39^41^599^10^.42^.262^.226^^612^7.9^.108
;;^UTILITY(U,$J,112,1634,2)
;;=.122^1.921^.971^.28^61.9^0^1.84^.111^0^2.437^9.608^1.955^61^1.04^^^4.8
;;^UTILITY(U,$J,112,1634,3)
;;=.021^.066^.071^.123^.094^.037^.021^.068^.049^.097^.059^.029^.119^.283^.207^.083^.077^.081
;;^UTILITY(U,$J,112,1634,4)
;;=^^^2.402^.643^.027^8.965^.004^40^.4
;;^UTILITY(U,$J,112,1634,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1635,0)
;;=BANANAS, RAW^9-040^fruits^114^65^N
;;^UTILITY(U,$J,112,1635,1)
;;=1.03^.48^23.43^92^74.26^^^6^.31^29^20^396^1^.16^.104^.152^.27^81^9.1^.045
;;^UTILITY(U,$J,112,1635,2)
;;=.1^.54^.26^.578^19.1^0^.056^.033^0^.185^.041^.089^8^.8^^^1.9
;;^UTILITY(U,$J,112,1635,3)
;;=.012^.034^.033^.071^.048^.011^.017^.038^.024^.047^.047^.081^.039^.113^.111^.037^.04^.047
;;^UTILITY(U,$J,112,1635,4)
;;=.001^.002^.003^.125^.012^.006^.027^^.5^1.1
;;^UTILITY(U,$J,112,1635,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1636,0)
;;=BLACKBERRIES, RAW^9-042^cups^144^96^N
;;^UTILITY(U,$J,112,1636,1)
;;=.72^.39^12.76^52^85.64^^^32^.57^20^21^196^0^.27^.14^1.291^.6^165^21^.03
;;^UTILITY(U,$J,112,1636,2)
;;=.04^.4^.24^.058^34^0^^^0^^^^16^.48^^^3.4
FHINI04U ; ; 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,1627,4)
+2 ;;=^^^.003^^^.021
+3 ;;^UTILITY(U,$J,112,1627,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1628,0)
+6 ;;=APRICOTS, CND, HEAVY SIRUP, W/SKIN^9-027^halves^28.3^100^N
+7 ;;^UTILITY(U,$J,112,1628,1)
+8 ;;=.53^.08^21.47^83^77.56^^^9^.3^7^12^140^4^.11^.078^.051^.89^1230^3.1^.02
+9 ;;^UTILITY(U,$J,112,1628,2)
+10 ;;=.022^.376^.092^.054^1.7^0^.015^^0^.005^.033^.015^123^.37^^^1.3
+11 ;;^UTILITY(U,$J,112,1628,3)
+12 ;;=.009^.019^.016^.031^.037^.003^.002^.022^.012^.019^.021^.009^.026^.122^.054^.016^.032^.031
+13 ;;^UTILITY(U,$J,112,1628,4)
+14 ;;=^^^.005^^.001^.033
+15 ;;^UTILITY(U,$J,112,1628,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1629,0)
+18 ;;=APRICOTS, DRIED, UNCKD^9-032^halves^3.5^100^N
+19 ;;^UTILITY(U,$J,112,1629,1)
+20 ;;=3.65^.46^61.75^238^31.09^^^45^4.7^47^117^1378^10^.74^.429^.275^^7240^2.4^.008
+21 ;;^UTILITY(U,$J,112,1629,2)
+22 ;;=.151^2.998^.753^.156^10.3^0^.09^^0^.032^.2^.09^724^3.05^^^7.9
+23 ;;^UTILITY(U,$J,112,1629,3)
+24 ;;=.065^.131^.112^.214^.253^.018^.012^.151^.085^.133^.141^.06^.18^.836^.369^.113^.218^.21
+25 ;;^UTILITY(U,$J,112,1629,4)
+26 ;;=^^^.028^^.004^.2
+27 ;;^UTILITY(U,$J,112,1629,20)
+28 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+29 ;;^UTILITY(U,$J,112,1630,0)
+30 ;;=APRICOTS, DRIED, STEWED, WO/SUGAR^9-033^cups^250^180^N
+31 ;;^UTILITY(U,$J,112,1630,1)
+32 ;;=1.3^.16^21.9^85^75.56^^^16^1.67^17^41^489^3^.26^.152^.098^^2363^1.6^.006
+33 ;;^UTILITY(U,$J,112,1630,2)
+34 ;;=.03^.942^.211^.114^0^0^.032^^0^.011^.071^.032^236^1.08^^^3.4
+35 ;;^UTILITY(U,$J,112,1630,3)
+36 ;;=.023^.047^.04^.076^.09^.006^.004^.054^.03^.047^.05^.021^.064^.296^.131^.04^.077^.074
+37 ;;^UTILITY(U,$J,112,1630,4)
+38 ;;=^^^.01^^.001^.071
+39 ;;^UTILITY(U,$J,112,1630,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1631,0)
+42 ;;=APRICOTS, DRIED, STEWED, W/SUGAR^9-034^cups^270^160^N
+43 ;;^UTILITY(U,$J,112,1631,1)
+44 ;;=1.17^.15^29.26^113^68.45^^^15^1.52^15^38^443^3^.24^.138^.088^^2139^1.4^.005
+45 ;;^UTILITY(U,$J,112,1631,2)
+46 ;;=.027^.853^.191^.103^0^0^.029^^0^.01^.064^.029^214^.98
+47 ;;^UTILITY(U,$J,112,1631,3)
+48 ;;=.021^.042^.036^.069^.081^.006^.004^.049^.027^.043^.045^.019^.058^.269^.119^.036^.07^.067
+49 ;;^UTILITY(U,$J,112,1631,4)
+50 ;;=^^^.009^^.001^.064
+51 ;;^UTILITY(U,$J,112,1631,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1632,0)
+54 ;;=APRICOTS, FRZ, SWEETENED^9-035^cups^242^100^N
+55 ;;^UTILITY(U,$J,112,1632,1)
+56 ;;=.7^.1^25.1^98^73.3^^^10^.9^9^19^229^4^.1^.064^.05^^1680^9^.02
+57 ;;^UTILITY(U,$J,112,1632,2)
+58 ;;=.04^.8^.2^.06^1.7^0^.02^^0^.007^.044^.02^168^.8^^^1.7
+59 ;;^UTILITY(U,$J,112,1632,3)
+60 ;;=.008^.024^.02^.039^.049^.003^.002^.026^.015^.024^.022^.013^.034^.157^.079^.02^.051^.042
+61 ;;^UTILITY(U,$J,112,1632,4)
+62 ;;=^^^.006^^.001^.044
+63 ;;^UTILITY(U,$J,112,1632,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,1633,0)
+66 ;;=APRICOT NECTAR, CND, WO/VIT C^9-036^fl oz.^31.4^100^N
+67 ;;^UTILITY(U,$J,112,1633,1)
+68 ;;=.37^.09^14.39^56^84.87^^^7^.38^5^9^114^3^.09^.073^.032^^1316^.6^.009
+69 ;;^UTILITY(U,$J,112,1633,2)
+70 ;;=.014^.26^.096^.022^1.3^0^.017^^0^.006^.038^.017^132^.29^^^.6
+71 ;;^UTILITY(U,$J,112,1633,4)
+72 ;;=^^^.005^^.001^.038
+73 ;;^UTILITY(U,$J,112,1633,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,1634,0)
+76 ;;=AVOCADOS, RAW^9-037^fruits^201^74^N
+77 ;;^UTILITY(U,$J,112,1634,1)
+78 ;;=1.98^15.32^7.39^161^74.27^^^11^1.02^39^41^599^10^.42^.262^.226^^612^7.9^.108
+79 ;;^UTILITY(U,$J,112,1634,2)
+80 ;;=.122^1.921^.971^.28^61.9^0^1.84^.111^0^2.437^9.608^1.955^61^1.04^^^4.8
+81 ;;^UTILITY(U,$J,112,1634,3)
+82 ;;=.021^.066^.071^.123^.094^.037^.021^.068^.049^.097^.059^.029^.119^.283^.207^.083^.077^.081
+83 ;;^UTILITY(U,$J,112,1634,4)
+84 ;;=^^^2.402^.643^.027^8.965^.004^40^.4
+85 ;;^UTILITY(U,$J,112,1634,20)
+86 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+87 ;;^UTILITY(U,$J,112,1635,0)
+88 ;;=BANANAS, RAW^9-040^fruits^114^65^N
+89 ;;^UTILITY(U,$J,112,1635,1)
+90 ;;=1.03^.48^23.43^92^74.26^^^6^.31^29^20^396^1^.16^.104^.152^.27^81^9.1^.045
+91 ;;^UTILITY(U,$J,112,1635,2)
+92 ;;=.1^.54^.26^.578^19.1^0^.056^.033^0^.185^.041^.089^8^.8^^^1.9
+93 ;;^UTILITY(U,$J,112,1635,3)
+94 ;;=.012^.034^.033^.071^.048^.011^.017^.038^.024^.047^.047^.081^.039^.113^.111^.037^.04^.047
+95 ;;^UTILITY(U,$J,112,1635,4)
+96 ;;=.001^.002^.003^.125^.012^.006^.027^^.5^1.1
+97 ;;^UTILITY(U,$J,112,1635,20)
+98 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+99 ;;^UTILITY(U,$J,112,1636,0)
+100 ;;=BLACKBERRIES, RAW^9-042^cups^144^96^N
+101 ;;^UTILITY(U,$J,112,1636,1)
+102 ;;=.72^.39^12.76^52^85.64^^^32^.57^20^21^196^0^.27^.14^1.291^.6^165^21^.03
+103 ;;^UTILITY(U,$J,112,1636,2)
+104 ;;=.04^.4^.24^.058^34^0^^^0^^^^16^.48^^^3.4
