FHINI04I ; ; 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,1503,0)
;;=POTATOES, RAW^11-352^potatoes^225^75^N
;;^UTILITY(U,$J,112,1503,1)
;;=2.07^.1^17.98^79^78.96^^^7^.76^21^46^543^6^.39^.259^.263^^0^19.7^.088
;;^UTILITY(U,$J,112,1503,2)
;;=.035^1.484^.38^.26^12.8^0^.032^.01^0^.026^.002^.043^0^.89^^^2
;;^UTILITY(U,$J,112,1503,3)
;;=.032^.075^.084^.124^.126^.033^.026^.092^.077^.117^.095^.045^.064^.506^.347^.062^.074^.09
;;^UTILITY(U,$J,112,1503,4)
;;=.001^.003^.001^.016^.001^.004^.001^^.8^.3
;;^UTILITY(U,$J,112,1503,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1504,0)
;;=POTATOES, BAKED IN SKIN, WO/SALT^11-674^potatoes^155.5^100^N
;;^UTILITY(U,$J,112,1504,1)
;;=2.3^.1^25.23^109^71.2^^^10^1.36^27^57^418^8^.32^.305^.229^^0^12.9^.107
;;^UTILITY(U,$J,112,1504,2)
;;=.033^1.645^.555^.347^11^0^.032^.01^0^.026^.002^.043^0^1.16^^^2.4
;;^UTILITY(U,$J,112,1504,3)
;;=.036^.084^.093^.138^.14^.036^.029^.102^.085^.13^.106^.05^.071^.563^.386^.068^.083^.1
;;^UTILITY(U,$J,112,1504,4)
;;=.001^.003^.001^.016^.001^.004^.001^^4^.8
;;^UTILITY(U,$J,112,1504,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1505,0)
;;=POTATOES, BOILED IN SKIN, WO/SALT^11-365^potatoes^227.5^91^N
;;^UTILITY(U,$J,112,1505,1)
;;=1.87^.1^20.13^87^76.98^^^5^.31^22^44^379^4^.3^.188^.138^^0^13^.106
;;^UTILITY(U,$J,112,1505,2)
;;=.02^1.439^.52^.299^10^0^.032^.01^0^.026^.002^.043^0^.92^^^1.8
;;^UTILITY(U,$J,112,1505,3)
;;=.029^.068^.076^.112^.114^.03^.024^.083^.069^.105^.086^.041^.057^.457^.314^.056^.067^.081
;;^UTILITY(U,$J,112,1505,4)
;;=.001^.003^.001^.016^.001^.004^.001
;;^UTILITY(U,$J,112,1505,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1506,0)
;;=POTATOES, PARED, BOILED, WO/SALT^11-367^potatoes^225^100^N
;;^UTILITY(U,$J,112,1506,1)
;;=1.71^.1^20.01^86^77.46^^^8^.31^20^40^328^5^.27^.167^.14^^0^7.4^.098
;;^UTILITY(U,$J,112,1506,2)
;;=.019^1.312^.509^.269^8.9^0^.032^.01^0^.026^.002^.043^0^.72^^^1.8
;;^UTILITY(U,$J,112,1506,3)
;;=.027^.062^.07^.103^.104^.027^.022^.076^.064^.096^.079^.038^.053^.419^.287^.051^.062^.075
;;^UTILITY(U,$J,112,1506,4)
;;=.001^.003^.001^.016^.001^.004^.001
;;^UTILITY(U,$J,112,1506,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1507,0)
;;=POTATOES, PARED, BOILED, W/SALT^11-833^potatoes^225^100^N
;;^UTILITY(U,$J,112,1507,1)
;;=1.71^.1^20.01^86^77.46^^^8^.31^20^40^328^241^.27^.167^.14^^0^7.4^.098
;;^UTILITY(U,$J,112,1507,2)
;;=.019^1.312^.509^.269^8.9^0^.032^.01^0^.026^.002^.043^0^.72^^^2
;;^UTILITY(U,$J,112,1507,3)
;;=.027^.062^.07^.103^.104^.027^.022^.076^.064^.096^.079^.038^.053^.419^.287^.051^.062^.075
;;^UTILITY(U,$J,112,1507,4)
;;=.001^.003^.001^.016^.001^.004^.001
;;^UTILITY(U,$J,112,1507,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1512,0)
;;=POTATOES, MASHED, MILK ADDED^11-657^cups^210^100^N
;;^UTILITY(U,$J,112,1512,1)
;;=1.94^.59^17.55^77^78.46^^^26^.27^18^48^299^303^.29^.14^.118^^19^6.7^.088
;;^UTILITY(U,$J,112,1512,2)
;;=.04^1.118^.476^.233^8.2^0^.039^.016^2^.333^.146^.055^19^1.47^^^2
;;^UTILITY(U,$J,112,1512,3)
;;=.03^.075^.089^.136^.128^.035^.023^.088^.078^.115^.085^.045^.062^.393^.348^.054^.1^.09
;;^UTILITY(U,$J,112,1512,4)
;;=.013^.017^.051^.145^.012^.064^.126
;;^UTILITY(U,$J,112,1512,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1513,0)
;;=POTATOES, MASHED, MILK AND REGULAR MARGARINE ADDED^11-371^cups^210^100^N
;;^UTILITY(U,$J,112,1513,1)
;;=1.88^4.23^16.71^106^76.26^^^26^.26^18^46^289^295^.27^.137^.114^^169^6.1^.084
;;^UTILITY(U,$J,112,1513,2)
;;=.04^1.079^.57^.224^7.9^0^1.145^.066^2^1.035^1.77^1.21^20^1.43^^^2
;;^UTILITY(U,$J,112,1513,3)
;;=.029^.073^.087^.132^.124^.035^.023^.086^.076^.112^.082^.044^.06^.38^.338^.052^.098^.088
;;^UTILITY(U,$J,112,1513,4)
;;=.012^.016^.057^.58^.011^.329^1.751
;;^UTILITY(U,$J,112,1513,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1514,0)
;;=POTATOES, SCALLOPED AND AU GRATIN, W/CHEESE^11-373^cups^245^100^N
;;^UTILITY(U,$J,112,1514,1)
;;=5.06^7.59^11.27^132^74^^^119^.64^20^113^396^433^.69^.16^.161^^264^9.9^.064
;;^UTILITY(U,$J,112,1514,2)
;;=.116^.993^.387^.174^8.1^0^.175^.105^23^4.733^2.149^.276^38^2.09^^^1.8
;;^UTILITY(U,$J,112,1514,3)
;;=.07^.192^.284^.443^.381^.117^.044^.254^.23^.325^.203^.151^.156^.569^1.141^.113^.463^.275
;;^UTILITY(U,$J,112,1514,4)
;;=.166^.174^.755^2.094^.193^.913^1.844
;;^UTILITY(U,$J,112,1514,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1515,0)
;;=POTATOES, SCALLOPED AND AU GRATIN, WO/CHEESE^11-372^cups^245^100^N
FHINI04I ; ; 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,1503,0)
+2 ;;=POTATOES, RAW^11-352^potatoes^225^75^N
+3 ;;^UTILITY(U,$J,112,1503,1)
+4 ;;=2.07^.1^17.98^79^78.96^^^7^.76^21^46^543^6^.39^.259^.263^^0^19.7^.088
+5 ;;^UTILITY(U,$J,112,1503,2)
+6 ;;=.035^1.484^.38^.26^12.8^0^.032^.01^0^.026^.002^.043^0^.89^^^2
+7 ;;^UTILITY(U,$J,112,1503,3)
+8 ;;=.032^.075^.084^.124^.126^.033^.026^.092^.077^.117^.095^.045^.064^.506^.347^.062^.074^.09
+9 ;;^UTILITY(U,$J,112,1503,4)
+10 ;;=.001^.003^.001^.016^.001^.004^.001^^.8^.3
+11 ;;^UTILITY(U,$J,112,1503,20)
+12 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+13 ;;^UTILITY(U,$J,112,1504,0)
+14 ;;=POTATOES, BAKED IN SKIN, WO/SALT^11-674^potatoes^155.5^100^N
+15 ;;^UTILITY(U,$J,112,1504,1)
+16 ;;=2.3^.1^25.23^109^71.2^^^10^1.36^27^57^418^8^.32^.305^.229^^0^12.9^.107
+17 ;;^UTILITY(U,$J,112,1504,2)
+18 ;;=.033^1.645^.555^.347^11^0^.032^.01^0^.026^.002^.043^0^1.16^^^2.4
+19 ;;^UTILITY(U,$J,112,1504,3)
+20 ;;=.036^.084^.093^.138^.14^.036^.029^.102^.085^.13^.106^.05^.071^.563^.386^.068^.083^.1
+21 ;;^UTILITY(U,$J,112,1504,4)
+22 ;;=.001^.003^.001^.016^.001^.004^.001^^4^.8
+23 ;;^UTILITY(U,$J,112,1504,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1505,0)
+26 ;;=POTATOES, BOILED IN SKIN, WO/SALT^11-365^potatoes^227.5^91^N
+27 ;;^UTILITY(U,$J,112,1505,1)
+28 ;;=1.87^.1^20.13^87^76.98^^^5^.31^22^44^379^4^.3^.188^.138^^0^13^.106
+29 ;;^UTILITY(U,$J,112,1505,2)
+30 ;;=.02^1.439^.52^.299^10^0^.032^.01^0^.026^.002^.043^0^.92^^^1.8
+31 ;;^UTILITY(U,$J,112,1505,3)
+32 ;;=.029^.068^.076^.112^.114^.03^.024^.083^.069^.105^.086^.041^.057^.457^.314^.056^.067^.081
+33 ;;^UTILITY(U,$J,112,1505,4)
+34 ;;=.001^.003^.001^.016^.001^.004^.001
+35 ;;^UTILITY(U,$J,112,1505,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,1506,0)
+38 ;;=POTATOES, PARED, BOILED, WO/SALT^11-367^potatoes^225^100^N
+39 ;;^UTILITY(U,$J,112,1506,1)
+40 ;;=1.71^.1^20.01^86^77.46^^^8^.31^20^40^328^5^.27^.167^.14^^0^7.4^.098
+41 ;;^UTILITY(U,$J,112,1506,2)
+42 ;;=.019^1.312^.509^.269^8.9^0^.032^.01^0^.026^.002^.043^0^.72^^^1.8
+43 ;;^UTILITY(U,$J,112,1506,3)
+44 ;;=.027^.062^.07^.103^.104^.027^.022^.076^.064^.096^.079^.038^.053^.419^.287^.051^.062^.075
+45 ;;^UTILITY(U,$J,112,1506,4)
+46 ;;=.001^.003^.001^.016^.001^.004^.001
+47 ;;^UTILITY(U,$J,112,1506,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,1507,0)
+50 ;;=POTATOES, PARED, BOILED, W/SALT^11-833^potatoes^225^100^N
+51 ;;^UTILITY(U,$J,112,1507,1)
+52 ;;=1.71^.1^20.01^86^77.46^^^8^.31^20^40^328^241^.27^.167^.14^^0^7.4^.098
+53 ;;^UTILITY(U,$J,112,1507,2)
+54 ;;=.019^1.312^.509^.269^8.9^0^.032^.01^0^.026^.002^.043^0^.72^^^2
+55 ;;^UTILITY(U,$J,112,1507,3)
+56 ;;=.027^.062^.07^.103^.104^.027^.022^.076^.064^.096^.079^.038^.053^.419^.287^.051^.062^.075
+57 ;;^UTILITY(U,$J,112,1507,4)
+58 ;;=.001^.003^.001^.016^.001^.004^.001
+59 ;;^UTILITY(U,$J,112,1507,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,1512,0)
+62 ;;=POTATOES, MASHED, MILK ADDED^11-657^cups^210^100^N
+63 ;;^UTILITY(U,$J,112,1512,1)
+64 ;;=1.94^.59^17.55^77^78.46^^^26^.27^18^48^299^303^.29^.14^.118^^19^6.7^.088
+65 ;;^UTILITY(U,$J,112,1512,2)
+66 ;;=.04^1.118^.476^.233^8.2^0^.039^.016^2^.333^.146^.055^19^1.47^^^2
+67 ;;^UTILITY(U,$J,112,1512,3)
+68 ;;=.03^.075^.089^.136^.128^.035^.023^.088^.078^.115^.085^.045^.062^.393^.348^.054^.1^.09
+69 ;;^UTILITY(U,$J,112,1512,4)
+70 ;;=.013^.017^.051^.145^.012^.064^.126
+71 ;;^UTILITY(U,$J,112,1512,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,1513,0)
+74 ;;=POTATOES, MASHED, MILK AND REGULAR MARGARINE ADDED^11-371^cups^210^100^N
+75 ;;^UTILITY(U,$J,112,1513,1)
+76 ;;=1.88^4.23^16.71^106^76.26^^^26^.26^18^46^289^295^.27^.137^.114^^169^6.1^.084
+77 ;;^UTILITY(U,$J,112,1513,2)
+78 ;;=.04^1.079^.57^.224^7.9^0^1.145^.066^2^1.035^1.77^1.21^20^1.43^^^2
+79 ;;^UTILITY(U,$J,112,1513,3)
+80 ;;=.029^.073^.087^.132^.124^.035^.023^.086^.076^.112^.082^.044^.06^.38^.338^.052^.098^.088
+81 ;;^UTILITY(U,$J,112,1513,4)
+82 ;;=.012^.016^.057^.58^.011^.329^1.751
+83 ;;^UTILITY(U,$J,112,1513,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,1514,0)
+86 ;;=POTATOES, SCALLOPED AND AU GRATIN, W/CHEESE^11-373^cups^245^100^N
+87 ;;^UTILITY(U,$J,112,1514,1)
+88 ;;=5.06^7.59^11.27^132^74^^^119^.64^20^113^396^433^.69^.16^.161^^264^9.9^.064
+89 ;;^UTILITY(U,$J,112,1514,2)
+90 ;;=.116^.993^.387^.174^8.1^0^.175^.105^23^4.733^2.149^.276^38^2.09^^^1.8
+91 ;;^UTILITY(U,$J,112,1514,3)
+92 ;;=.07^.192^.284^.443^.381^.117^.044^.254^.23^.325^.203^.151^.156^.569^1.141^.113^.463^.275
+93 ;;^UTILITY(U,$J,112,1514,4)
+94 ;;=.166^.174^.755^2.094^.193^.913^1.844
+95 ;;^UTILITY(U,$J,112,1514,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1515,0)
+98 ;;=POTATOES, SCALLOPED AND AU GRATIN, WO/CHEESE^11-372^cups^245^100^N
