FHINI05K ; ; 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,1901,4)
;;=^0^0^.012^0^.001^.005
;;^UTILITY(U,$J,112,1901,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1902,0)
;;=SQUASH, WINTER, FRZ, HEATED, W/SALT^11-867^cups^240^100^N
;;^UTILITY(U,$J,112,1902,1)
;;=1.23^.07^10.05^39^87.8^^^19^.58^9^14^133^238^.12^.036^.173^^3339^3.5^.05
;;^UTILITY(U,$J,112,1902,2)
;;=.039^.464^.154^.069^16.4^0^.011^.018^0^.014^.005^.029^334^.86
;;^UTILITY(U,$J,112,1902,3)
;;=.017^.037^.048^.07^.045^.015^.011^.048^.041^.053^.068^.023^.051^.132^.214^.045^.044^.048
;;^UTILITY(U,$J,112,1902,4)
;;=^0^0^.012^0^.001^.005
;;^UTILITY(U,$J,112,1902,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1903,0)
;;=SUCCOTASH, FRZ, CKD WO/SALT^11-502^cups^170^100^N
;;^UTILITY(U,$J,112,1903,1)
;;=4.31^.89^19.95^93^74.1^^^15^.89^23^70^265^45^.45^.06^.28^^231^5.9^.074
;;^UTILITY(U,$J,112,1903,2)
;;=.068^1.306^.232^.095^33.2^0^.361^.067^0^.166^.173^.427^23^.75^^^5.4
;;^UTILITY(U,$J,112,1903,3)
;;=.048^.179^.243^.379^.252^.058^.047^.208^.147^.262^.251^.137^.237^.419^.649^.172^.168^.248
;;^UTILITY(U,$J,112,1903,4)
;;=^^.001^.151^^.015^.173
;;^UTILITY(U,$J,112,1903,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1904,0)
;;=SUCCOTASH, FRZ, CKD W/SALT^11-872^cups^170^100^N
;;^UTILITY(U,$J,112,1904,1)
;;=4.31^.89^19.95^93^74.1^^^15^.89^23^70^265^281^.45^.06^.28^^231^5.9^.074
;;^UTILITY(U,$J,112,1904,2)
;;=.068^1.306^.232^.095^33.2^0^.361^.067^0^.166^.173^.427^23^.75
;;^UTILITY(U,$J,112,1904,3)
;;=.048^.179^.243^.379^.252^.058^.047^.208^.147^.262^.251^.137^.237^.419^.649^.172^.168^.248
;;^UTILITY(U,$J,112,1904,4)
;;=^^.001^.151^^.015^.173
;;^UTILITY(U,$J,112,1904,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1905,0)
;;=SUGARS, BROWN^19-334^tbsp.^9^100^N
;;^UTILITY(U,$J,112,1905,1)
;;=0^0^97.3^376^1.6^^^85^1.91^29^22^346^39^.18^.298^.32^^0^0^.008
;;^UTILITY(U,$J,112,1905,2)
;;=.007^.082^.111^.026^1^0^^^0^^^^0^.9^^^0
;;^UTILITY(U,$J,112,1905,4)
;;=^^^^^^0^^^1.2
;;^UTILITY(U,$J,112,1905,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1906,0)
;;=SUGARS, GRANULATED^19-335^tsp.^4^100^N
;;^UTILITY(U,$J,112,1906,1)
;;=0^0^99.9^387^0^^^1^.06^0^2^2^1^.03^.043^.007^^0^0^0
;;^UTILITY(U,$J,112,1906,2)
;;=.019^0^0^0^0^0^^^0^^^^0^0^^^0
;;^UTILITY(U,$J,112,1906,4)
;;=^^^^^^0^^^.6
;;^UTILITY(U,$J,112,1906,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1907,0)
;;=SUGARS, POWDERED^19-336^tbsp.^8^100^N
;;^UTILITY(U,$J,112,1907,1)
;;=0^.1^99.5^389^.3^^^1^.06^0^2^2^1^.03^.043^.007^^0^0^0
;;^UTILITY(U,$J,112,1907,2)
;;=0^0^0^0^0^0^^^0^^^^0^0^^^0
;;^UTILITY(U,$J,112,1907,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1907,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1908,0)
;;=SUGARS, MAPLE^19-340^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1908,1)
;;=.1^.2^90.9^354^8^^^90^1.61^19^3^274^11^6.06^.099^4.422^^24^0^.009
;;^UTILITY(U,$J,112,1908,2)
;;=.013^.04^.048^.003^0^0^^^0^^^^2^.8^^^0
;;^UTILITY(U,$J,112,1908,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1908,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1909,0)
;;=SWEET POTATOES, BAKED IN SKIN, WO/SALT^11-508^potatoes^113.88^78^N
;;^UTILITY(U,$J,112,1909,1)
;;=1.72^.11^24.27^103^72.85^^^28^.45^20^55^348^10^.29^.208^.56^^21822^24.6^.073
;;^UTILITY(U,$J,112,1909,2)
;;=.127^.604^.646^.241^22.6^0^.041^.008^0^.024^.004^.049^2182^1.06^^^3
;;^UTILITY(U,$J,112,1909,3)
;;=.021^.086^.086^.126^.085^.042^.014^.103^.071^.112^.08^.032^.094^.295^.169^.078^.076^.089
;;^UTILITY(U,$J,112,1909,4)
;;=^^^.022^^.002^.004^^^.7
;;^UTILITY(U,$J,112,1909,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1910,0)
;;=SWEET POTATOES, BAKED IN SKIN, W/SALT^11-875^potatoes^113.88^78^N
;;^UTILITY(U,$J,112,1910,1)
;;=1.72^.11^24.27^103^72.85^^^28^.45^20^55^348^246^.29^.208^.56^^21822^24.6^.073
;;^UTILITY(U,$J,112,1910,2)
;;=.127^.604^.646^.241^22.6^0^.041^.008^0^.024^.004^.049^2182^1.06
;;^UTILITY(U,$J,112,1910,3)
;;=.021^.086^.086^.126^.085^.042^.014^.103^.071^.112^.08^.032^.094^.295^.169^.078^.076^.089
;;^UTILITY(U,$J,112,1910,4)
;;=^^^.022^^.002^.004
;;^UTILITY(U,$J,112,1910,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1913,0)
;;=SWEET POTATOES, CANDIED^11-659^potatoes^105^100^N
;;^UTILITY(U,$J,112,1913,1)
;;=.87^3.25^27.86^137^66.94^^^26^1.13^11^26^189^70^.15^.102^.427^^4189^6.7^.018
;;^UTILITY(U,$J,112,1913,2)
;;=.042^.394^.271^.041^11.4^0^.076^.074^8^1.35^.627^.147^419^1.08
;;^UTILITY(U,$J,112,1913,3)
;;=.011^.043^.044^.065^.044^.021^.007^.052^.036^.057^.04^.017^.047^.146^.089^.039^.04^.045
FHINI05K ; ; 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,1901,4)
+2 ;;=^0^0^.012^0^.001^.005
+3 ;;^UTILITY(U,$J,112,1901,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1902,0)
+6 ;;=SQUASH, WINTER, FRZ, HEATED, W/SALT^11-867^cups^240^100^N
+7 ;;^UTILITY(U,$J,112,1902,1)
+8 ;;=1.23^.07^10.05^39^87.8^^^19^.58^9^14^133^238^.12^.036^.173^^3339^3.5^.05
+9 ;;^UTILITY(U,$J,112,1902,2)
+10 ;;=.039^.464^.154^.069^16.4^0^.011^.018^0^.014^.005^.029^334^.86
+11 ;;^UTILITY(U,$J,112,1902,3)
+12 ;;=.017^.037^.048^.07^.045^.015^.011^.048^.041^.053^.068^.023^.051^.132^.214^.045^.044^.048
+13 ;;^UTILITY(U,$J,112,1902,4)
+14 ;;=^0^0^.012^0^.001^.005
+15 ;;^UTILITY(U,$J,112,1902,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1903,0)
+18 ;;=SUCCOTASH, FRZ, CKD WO/SALT^11-502^cups^170^100^N
+19 ;;^UTILITY(U,$J,112,1903,1)
+20 ;;=4.31^.89^19.95^93^74.1^^^15^.89^23^70^265^45^.45^.06^.28^^231^5.9^.074
+21 ;;^UTILITY(U,$J,112,1903,2)
+22 ;;=.068^1.306^.232^.095^33.2^0^.361^.067^0^.166^.173^.427^23^.75^^^5.4
+23 ;;^UTILITY(U,$J,112,1903,3)
+24 ;;=.048^.179^.243^.379^.252^.058^.047^.208^.147^.262^.251^.137^.237^.419^.649^.172^.168^.248
+25 ;;^UTILITY(U,$J,112,1903,4)
+26 ;;=^^.001^.151^^.015^.173
+27 ;;^UTILITY(U,$J,112,1903,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1904,0)
+30 ;;=SUCCOTASH, FRZ, CKD W/SALT^11-872^cups^170^100^N
+31 ;;^UTILITY(U,$J,112,1904,1)
+32 ;;=4.31^.89^19.95^93^74.1^^^15^.89^23^70^265^281^.45^.06^.28^^231^5.9^.074
+33 ;;^UTILITY(U,$J,112,1904,2)
+34 ;;=.068^1.306^.232^.095^33.2^0^.361^.067^0^.166^.173^.427^23^.75
+35 ;;^UTILITY(U,$J,112,1904,3)
+36 ;;=.048^.179^.243^.379^.252^.058^.047^.208^.147^.262^.251^.137^.237^.419^.649^.172^.168^.248
+37 ;;^UTILITY(U,$J,112,1904,4)
+38 ;;=^^.001^.151^^.015^.173
+39 ;;^UTILITY(U,$J,112,1904,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1905,0)
+42 ;;=SUGARS, BROWN^19-334^tbsp.^9^100^N
+43 ;;^UTILITY(U,$J,112,1905,1)
+44 ;;=0^0^97.3^376^1.6^^^85^1.91^29^22^346^39^.18^.298^.32^^0^0^.008
+45 ;;^UTILITY(U,$J,112,1905,2)
+46 ;;=.007^.082^.111^.026^1^0^^^0^^^^0^.9^^^0
+47 ;;^UTILITY(U,$J,112,1905,4)
+48 ;;=^^^^^^0^^^1.2
+49 ;;^UTILITY(U,$J,112,1905,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,1906,0)
+52 ;;=SUGARS, GRANULATED^19-335^tsp.^4^100^N
+53 ;;^UTILITY(U,$J,112,1906,1)
+54 ;;=0^0^99.9^387^0^^^1^.06^0^2^2^1^.03^.043^.007^^0^0^0
+55 ;;^UTILITY(U,$J,112,1906,2)
+56 ;;=.019^0^0^0^0^0^^^0^^^^0^0^^^0
+57 ;;^UTILITY(U,$J,112,1906,4)
+58 ;;=^^^^^^0^^^.6
+59 ;;^UTILITY(U,$J,112,1906,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,1907,0)
+62 ;;=SUGARS, POWDERED^19-336^tbsp.^8^100^N
+63 ;;^UTILITY(U,$J,112,1907,1)
+64 ;;=0^.1^99.5^389^.3^^^1^.06^0^2^2^1^.03^.043^.007^^0^0^0
+65 ;;^UTILITY(U,$J,112,1907,2)
+66 ;;=0^0^0^0^0^0^^^0^^^^0^0^^^0
+67 ;;^UTILITY(U,$J,112,1907,4)
+68 ;;=^^^^^^0
+69 ;;^UTILITY(U,$J,112,1907,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1908,0)
+72 ;;=SUGARS, MAPLE^19-340^oz.^28.3^100^N
+73 ;;^UTILITY(U,$J,112,1908,1)
+74 ;;=.1^.2^90.9^354^8^^^90^1.61^19^3^274^11^6.06^.099^4.422^^24^0^.009
+75 ;;^UTILITY(U,$J,112,1908,2)
+76 ;;=.013^.04^.048^.003^0^0^^^0^^^^2^.8^^^0
+77 ;;^UTILITY(U,$J,112,1908,4)
+78 ;;=^^^^^^0
+79 ;;^UTILITY(U,$J,112,1908,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1909,0)
+82 ;;=SWEET POTATOES, BAKED IN SKIN, WO/SALT^11-508^potatoes^113.88^78^N
+83 ;;^UTILITY(U,$J,112,1909,1)
+84 ;;=1.72^.11^24.27^103^72.85^^^28^.45^20^55^348^10^.29^.208^.56^^21822^24.6^.073
+85 ;;^UTILITY(U,$J,112,1909,2)
+86 ;;=.127^.604^.646^.241^22.6^0^.041^.008^0^.024^.004^.049^2182^1.06^^^3
+87 ;;^UTILITY(U,$J,112,1909,3)
+88 ;;=.021^.086^.086^.126^.085^.042^.014^.103^.071^.112^.08^.032^.094^.295^.169^.078^.076^.089
+89 ;;^UTILITY(U,$J,112,1909,4)
+90 ;;=^^^.022^^.002^.004^^^.7
+91 ;;^UTILITY(U,$J,112,1909,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1910,0)
+94 ;;=SWEET POTATOES, BAKED IN SKIN, W/SALT^11-875^potatoes^113.88^78^N
+95 ;;^UTILITY(U,$J,112,1910,1)
+96 ;;=1.72^.11^24.27^103^72.85^^^28^.45^20^55^348^246^.29^.208^.56^^21822^24.6^.073
+97 ;;^UTILITY(U,$J,112,1910,2)
+98 ;;=.127^.604^.646^.241^22.6^0^.041^.008^0^.024^.004^.049^2182^1.06
+99 ;;^UTILITY(U,$J,112,1910,3)
+100 ;;=.021^.086^.086^.126^.085^.042^.014^.103^.071^.112^.08^.032^.094^.295^.169^.078^.076^.089
+101 ;;^UTILITY(U,$J,112,1910,4)
+102 ;;=^^^.022^^.002^.004
+103 ;;^UTILITY(U,$J,112,1910,20)
+104 ;;=USDA Std. Reference, Release 10
+105 ;;^UTILITY(U,$J,112,1913,0)
+106 ;;=SWEET POTATOES, CANDIED^11-659^potatoes^105^100^N
+107 ;;^UTILITY(U,$J,112,1913,1)
+108 ;;=.87^3.25^27.86^137^66.94^^^26^1.13^11^26^189^70^.15^.102^.427^^4189^6.7^.018
+109 ;;^UTILITY(U,$J,112,1913,2)
+110 ;;=.042^.394^.271^.041^11.4^0^.076^.074^8^1.35^.627^.147^419^1.08
+111 ;;^UTILITY(U,$J,112,1913,3)
+112 ;;=.011^.043^.044^.065^.044^.021^.007^.052^.036^.057^.04^.017^.047^.146^.089^.039^.04^.045
