FHINI05Z ; ; 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,2059,4)
;;=^.001^.005^.026^.005^.002^.005
;;^UTILITY(U,$J,112,2059,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2060,0)
;;=PUMPKIN PIE MIX, CND^11-426^cups^270^100^N
;;^UTILITY(U,$J,112,2060,1)
;;=1.09^.13^26.39^104^71.49^^^37^1.06^16^45^138^208^.27^.068^.401^^8298^3.5^.016
;;^UTILITY(U,$J,112,2060,2)
;;=.118^.374^1.137^.159^35^0^.003^.004^0^.065^.016^.007^830^.91
;;^UTILITY(U,$J,112,2060,3)
;;=.013^.031^.034^.05^.059^.012^.003^.035^.045^.038^.058^.017^.031^.111^.2^.029^.028^.048
;;^UTILITY(U,$J,112,2060,4)
;;=^.001^.008^.046^.008^.003^.008
;;^UTILITY(U,$J,112,2060,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2061,0)
;;=SOYBEAN SPROUTS, CKD, WO/SALT^11-453^cups^94^100^N
;;^UTILITY(U,$J,112,2061,1)
;;=8.47^4.45^6.53^81^79.45^^^59^1.31^60^135^355^10^1.04^.33^.71^^11^8.3^.205
;;^UTILITY(U,$J,112,2061,2)
;;=.053^1.092^.743^.105^80^0^2.217^.296^0^.617^1.009^2.513^1^1.1^^^.8
;;^UTILITY(U,$J,112,2061,3)
;;=.103^.325^.375^.607^.486^.089^.102^.415^.309^.401^.585^.225^.355^1.148^1.272^.325^.436^.421
;;^UTILITY(U,$J,112,2061,4)
;;=^^.004^.448^.009^.165^.991
;;^UTILITY(U,$J,112,2061,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2062,0)
;;=SOYBEAN SPROUTS, STIR-FRIED, WO/SALT^11-454^cups^94^100^N
;;^UTILITY(U,$J,112,2062,1)
;;=13.1^7.1^9.4^125^67.2^^^82^.4^96^216^567^14^2.1^.527^1.133^^17^12^.42
;;^UTILITY(U,$J,112,2062,2)
;;=.19^1.1^1.186^.168^127^0^3.537^.472^0^.985^1.609^4.009^2^3.2
;;^UTILITY(U,$J,112,2062,3)
;;=.159^.503^.581^.939^.752^.138^.157^.641^.478^.62^.905^.348^.549^1.775^1.968^.503^.675^.652
;;^UTILITY(U,$J,112,2062,4)
;;=^^.007^.714^.014^.264^1.581
;;^UTILITY(U,$J,112,2062,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2063,0)
;;=TOMATO SAUCE, SPAGHETTI, CND^11-455^cups^249^100^N
;;^UTILITY(U,$J,112,2063,1)
;;=1.82^4.77^15.93^109^75.37^^^28^.65^24^36^384^496^.21^.114^.474^^1227^11.2^.055
;;^UTILITY(U,$J,112,2063,2)
;;=.059^1.505^.682^.353^21.6^0^1.221^.085^0^.683^2.436^1.307^123^2.12^^^3.4
;;^UTILITY(U,$J,112,2063,3)
;;=.013^.042^.035^.051^.052^.009^.011^.038^.024^.037^.036^.029^.057^.228^.728^.03^.04^.043
;;^UTILITY(U,$J,112,2063,4)
;;=^^.003^.489^.026^.183^2.401
;;^UTILITY(U,$J,112,2063,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2064,0)
;;=SQUASH, SPAGHETTI, CKD, WO/SALT^11-493^cups^155^100^N
;;^UTILITY(U,$J,112,2064,1)
;;=.66^.26^6.46^29^92.3^^^21^.34^11^14^117^18^.2^.035^.109^^110^3.5^.038
;;^UTILITY(U,$J,112,2064,2)
;;=.022^.81^.355^.099^8^0^.047^.078^0^.062^.022^.126^11^.32^^^1.4
;;^UTILITY(U,$J,112,2064,3)
;;=.009^.018^.024^.034^.022^.007^.005^.024^.02^.026^.033^.011^.025^.064^.105^.022^.021^.024
;;^UTILITY(U,$J,112,2064,4)
;;=^.001^.001^.053^.001^.006^.018
;;^UTILITY(U,$J,112,2064,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2065,0)
;;=SWEET POTATOES, CKD, PARED, MASHED, WO/SALT^11-510^cups^328^100^N
;;^UTILITY(U,$J,112,2065,1)
;;=1.65^.3^24.28^105^72.84^^^21^.56^10^27^184^13^.27^.161^.337^^17054^17.1^.053
;;^UTILITY(U,$J,112,2065,2)
;;=.14^.64^.532^.244^11.1^0^.111^.02^0^.064^.011^.132^1705^.95^^^2.5
;;^UTILITY(U,$J,112,2065,3)
;;=.02^.082^.082^.121^.081^.041^.013^.099^.068^.108^.077^.031^.09^.282^.161^.074^.072^.085
;;^UTILITY(U,$J,112,2065,4)
;;=^^^.058^^.006^.011
;;^UTILITY(U,$J,112,2065,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2066,0)
;;=SWEET POTATOES, CND, MASHED^11-514^cups^255^100^N
;;^UTILITY(U,$J,112,2066,1)
;;=1.98^.2^23.2^101^73.88^^^30^1.33^24^52^210^75^.21^.278^.988^^15126^5.2^.027
;;^UTILITY(U,$J,112,2066,2)
;;=.09^.955^.512^.235^10.7^0^.075^.014^0^.043^.008^.089^1513^.75
;;^UTILITY(U,$J,112,2066,3)
;;=.024^.098^.099^.145^.097^.049^.016^.119^.081^.129^.092^.037^.108^.338^.194^.089^.087^.102
;;^UTILITY(U,$J,112,2066,4)
;;=^^^.039^^.004^.008
;;^UTILITY(U,$J,112,2066,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2067,0)
;;=SWEET POTATOES, FRZ, CKD, WO/SALT^11-517^cups^176^100^N
;;^UTILITY(U,$J,112,2067,1)
;;=1.71^.12^23.4^100^73.7^^^35^.54^21^44^377^8^.3^.183^.665^^16410^9.1^.066
;;^UTILITY(U,$J,112,2067,2)
;;=.056^.555^.56^.186^22.3^0^.045^.008^0^.026^.005^.053^1641^1.07^^^3
;;^UTILITY(U,$J,112,2067,3)
;;=.021^.085^.086^.126^.084^.042^.014^.103^.07^.112^.08^.032^.094^.293^.168^.078^.075^.089
;;^UTILITY(U,$J,112,2067,4)
;;=^^^.024^^.003^.005
;;^UTILITY(U,$J,112,2067,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2068,0)
;;=TOMATOES, CND, STEWED^11-533^cups^265^100^N
;;^UTILITY(U,$J,112,2068,1)
;;=.93^.14^6.46^26^91.31^^^33^.73^12^20^239^254^.17^.112^.059^^555^13.3^.046
FHINI05Z ; ; 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,2059,4)
+2 ;;=^.001^.005^.026^.005^.002^.005
+3 ;;^UTILITY(U,$J,112,2059,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2060,0)
+6 ;;=PUMPKIN PIE MIX, CND^11-426^cups^270^100^N
+7 ;;^UTILITY(U,$J,112,2060,1)
+8 ;;=1.09^.13^26.39^104^71.49^^^37^1.06^16^45^138^208^.27^.068^.401^^8298^3.5^.016
+9 ;;^UTILITY(U,$J,112,2060,2)
+10 ;;=.118^.374^1.137^.159^35^0^.003^.004^0^.065^.016^.007^830^.91
+11 ;;^UTILITY(U,$J,112,2060,3)
+12 ;;=.013^.031^.034^.05^.059^.012^.003^.035^.045^.038^.058^.017^.031^.111^.2^.029^.028^.048
+13 ;;^UTILITY(U,$J,112,2060,4)
+14 ;;=^.001^.008^.046^.008^.003^.008
+15 ;;^UTILITY(U,$J,112,2060,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2061,0)
+18 ;;=SOYBEAN SPROUTS, CKD, WO/SALT^11-453^cups^94^100^N
+19 ;;^UTILITY(U,$J,112,2061,1)
+20 ;;=8.47^4.45^6.53^81^79.45^^^59^1.31^60^135^355^10^1.04^.33^.71^^11^8.3^.205
+21 ;;^UTILITY(U,$J,112,2061,2)
+22 ;;=.053^1.092^.743^.105^80^0^2.217^.296^0^.617^1.009^2.513^1^1.1^^^.8
+23 ;;^UTILITY(U,$J,112,2061,3)
+24 ;;=.103^.325^.375^.607^.486^.089^.102^.415^.309^.401^.585^.225^.355^1.148^1.272^.325^.436^.421
+25 ;;^UTILITY(U,$J,112,2061,4)
+26 ;;=^^.004^.448^.009^.165^.991
+27 ;;^UTILITY(U,$J,112,2061,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2062,0)
+30 ;;=SOYBEAN SPROUTS, STIR-FRIED, WO/SALT^11-454^cups^94^100^N
+31 ;;^UTILITY(U,$J,112,2062,1)
+32 ;;=13.1^7.1^9.4^125^67.2^^^82^.4^96^216^567^14^2.1^.527^1.133^^17^12^.42
+33 ;;^UTILITY(U,$J,112,2062,2)
+34 ;;=.19^1.1^1.186^.168^127^0^3.537^.472^0^.985^1.609^4.009^2^3.2
+35 ;;^UTILITY(U,$J,112,2062,3)
+36 ;;=.159^.503^.581^.939^.752^.138^.157^.641^.478^.62^.905^.348^.549^1.775^1.968^.503^.675^.652
+37 ;;^UTILITY(U,$J,112,2062,4)
+38 ;;=^^.007^.714^.014^.264^1.581
+39 ;;^UTILITY(U,$J,112,2062,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2063,0)
+42 ;;=TOMATO SAUCE, SPAGHETTI, CND^11-455^cups^249^100^N
+43 ;;^UTILITY(U,$J,112,2063,1)
+44 ;;=1.82^4.77^15.93^109^75.37^^^28^.65^24^36^384^496^.21^.114^.474^^1227^11.2^.055
+45 ;;^UTILITY(U,$J,112,2063,2)
+46 ;;=.059^1.505^.682^.353^21.6^0^1.221^.085^0^.683^2.436^1.307^123^2.12^^^3.4
+47 ;;^UTILITY(U,$J,112,2063,3)
+48 ;;=.013^.042^.035^.051^.052^.009^.011^.038^.024^.037^.036^.029^.057^.228^.728^.03^.04^.043
+49 ;;^UTILITY(U,$J,112,2063,4)
+50 ;;=^^.003^.489^.026^.183^2.401
+51 ;;^UTILITY(U,$J,112,2063,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2064,0)
+54 ;;=SQUASH, SPAGHETTI, CKD, WO/SALT^11-493^cups^155^100^N
+55 ;;^UTILITY(U,$J,112,2064,1)
+56 ;;=.66^.26^6.46^29^92.3^^^21^.34^11^14^117^18^.2^.035^.109^^110^3.5^.038
+57 ;;^UTILITY(U,$J,112,2064,2)
+58 ;;=.022^.81^.355^.099^8^0^.047^.078^0^.062^.022^.126^11^.32^^^1.4
+59 ;;^UTILITY(U,$J,112,2064,3)
+60 ;;=.009^.018^.024^.034^.022^.007^.005^.024^.02^.026^.033^.011^.025^.064^.105^.022^.021^.024
+61 ;;^UTILITY(U,$J,112,2064,4)
+62 ;;=^.001^.001^.053^.001^.006^.018
+63 ;;^UTILITY(U,$J,112,2064,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2065,0)
+66 ;;=SWEET POTATOES, CKD, PARED, MASHED, WO/SALT^11-510^cups^328^100^N
+67 ;;^UTILITY(U,$J,112,2065,1)
+68 ;;=1.65^.3^24.28^105^72.84^^^21^.56^10^27^184^13^.27^.161^.337^^17054^17.1^.053
+69 ;;^UTILITY(U,$J,112,2065,2)
+70 ;;=.14^.64^.532^.244^11.1^0^.111^.02^0^.064^.011^.132^1705^.95^^^2.5
+71 ;;^UTILITY(U,$J,112,2065,3)
+72 ;;=.02^.082^.082^.121^.081^.041^.013^.099^.068^.108^.077^.031^.09^.282^.161^.074^.072^.085
+73 ;;^UTILITY(U,$J,112,2065,4)
+74 ;;=^^^.058^^.006^.011
+75 ;;^UTILITY(U,$J,112,2065,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2066,0)
+78 ;;=SWEET POTATOES, CND, MASHED^11-514^cups^255^100^N
+79 ;;^UTILITY(U,$J,112,2066,1)
+80 ;;=1.98^.2^23.2^101^73.88^^^30^1.33^24^52^210^75^.21^.278^.988^^15126^5.2^.027
+81 ;;^UTILITY(U,$J,112,2066,2)
+82 ;;=.09^.955^.512^.235^10.7^0^.075^.014^0^.043^.008^.089^1513^.75
+83 ;;^UTILITY(U,$J,112,2066,3)
+84 ;;=.024^.098^.099^.145^.097^.049^.016^.119^.081^.129^.092^.037^.108^.338^.194^.089^.087^.102
+85 ;;^UTILITY(U,$J,112,2066,4)
+86 ;;=^^^.039^^.004^.008
+87 ;;^UTILITY(U,$J,112,2066,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2067,0)
+90 ;;=SWEET POTATOES, FRZ, CKD, WO/SALT^11-517^cups^176^100^N
+91 ;;^UTILITY(U,$J,112,2067,1)
+92 ;;=1.71^.12^23.4^100^73.7^^^35^.54^21^44^377^8^.3^.183^.665^^16410^9.1^.066
+93 ;;^UTILITY(U,$J,112,2067,2)
+94 ;;=.056^.555^.56^.186^22.3^0^.045^.008^0^.026^.005^.053^1641^1.07^^^3
+95 ;;^UTILITY(U,$J,112,2067,3)
+96 ;;=.021^.085^.086^.126^.084^.042^.014^.103^.07^.112^.08^.032^.094^.293^.168^.078^.075^.089
+97 ;;^UTILITY(U,$J,112,2067,4)
+98 ;;=^^^.024^^.003^.005
+99 ;;^UTILITY(U,$J,112,2067,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,2068,0)
+102 ;;=TOMATOES, CND, STEWED^11-533^cups^265^100^N
+103 ;;^UTILITY(U,$J,112,2068,1)
+104 ;;=.93^.14^6.46^26^91.31^^^33^.73^12^20^239^254^.17^.112^.059^^555^13.3^.046
