FHINI00E ; ; 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)
;;=^FHNU(
;;^UTILITY(U,$J,112,0)
;;=FOOD NUTRIENTS^112^10251^6986
;;^UTILITY(U,$J,112,1,0)
;;=BUTTER, W/SALT^1-001^pats^5^100^N
;;^UTILITY(U,$J,112,1,1)
;;=.85^81.11^.06^716.818^15.87^^^23.5^.16^2.18^22.8^26^826.5^.05^.016^.004^1.6^3058^0^.005
;;^UTILITY(U,$J,112,1,2)
;;=.034^.042^.11^.003^2.8^.125^1.832^1.18^218.9^50.489^23.426^3.012^754^2.11^^^0^1.6
;;^UTILITY(U,$J,112,1,3)
;;=.012^.038^.051^.083^.067^.021^.008^.041^.041^.057^.031^.023^.029^.064^.178^.018^.082^.046
;;^UTILITY(U,$J,112,1,4)
;;=2.034^2.277^8.157^21.334^1.816^9.829^20.405^0^7
;;^UTILITY(U,$J,112,1,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2,0)
;;=BUTTER, WHIPPED^1-002^pats^3.8^100^N
;;^UTILITY(U,$J,112,2,1)
;;=.85^81.11^.06^716.818^15.87^^^23.5^.16^2.18^22.8^26^826.5^.05^.016^.004^^3058^0^.005
;;^UTILITY(U,$J,112,2,2)
;;=.034^.042^.11^.003^2.8^.125^1.832^1.18^218.9^50.489^23.426^3.012^754^2.11^^^0
;;^UTILITY(U,$J,112,2,3)
;;=.012^.038^.051^.083^.067^.021^.008^.041^.041^.057^.031^.023^.029^.064^.178^.018^.082^.046
;;^UTILITY(U,$J,112,2,4)
;;=2.034^2.277^8.157^21.334^1.816^9.829^20.405^0
;;^UTILITY(U,$J,112,2,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3,0)
;;=BUTTER OIL^1-003^cups^205^100^N
;;^UTILITY(U,$J,112,3,1)
;;=.28^99.48^^875.625^.24^^^3.9^.002^.44^3^4.9^1.6^.01^.001^0^2.8^3750^0^.001
;;^UTILITY(U,$J,112,3,2)
;;=.005^.003^.01^.001^.2^.012^2.247^1.447^255.8^61.924^28.732^3.694^925^0^^^0^2.8
;;^UTILITY(U,$J,112,3,3)
;;=.004^.013^.017^.027^.022^.007^.003^.014^.014^.019^.01^.008^.01^.021^.059^.006^.027^.015
;;^UTILITY(U,$J,112,3,4)
;;=2.495^2.793^10.005^26.166^2.228^12.056^25.026^0
;;^UTILITY(U,$J,112,3,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,4,0)
;;=CHEESE, BLUE^1-004^oz.^28.3^100^N
;;^UTILITY(U,$J,112,4,1)
;;=21.4^28.74^2.34^353.058^42.41^^^527.6^.31^22.93^387.4^256.3^1395.3^2.66^.04^.009^^721^0^.029
;;^UTILITY(U,$J,112,4,2)
;;=.382^1.016^1.729^.166^36.4^1.217^.536^.264^75.2^18.669^7.778^.8^228^5.11^^^0
;;^UTILITY(U,$J,112,4,3)
;;=.312^.785^1.124^1.919^1.852^.584^.107^1.087^1.295^1.556^.711^.758^.644^1.436^5.179^.406^2.1^1.12
;;^UTILITY(U,$J,112,4,4)
;;=.601^.491^3.301^9.153^.816^3.235^6.622^0
;;^UTILITY(U,$J,112,4,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,5,0)
;;=CHEESE, BRICK^1-005^oz.^28.3^100^N
;;^UTILITY(U,$J,112,5,1)
;;=23.24^29.68^2.79^370.919^41.11^^^673.7^.43^24.32^451^135.8^559.6^2.6^.024^.012^^1083^0^.014
;;^UTILITY(U,$J,112,5,2)
;;=.351^.118^.288^.065^20.3^1.257^.491^.293^94.4^18.764^8.598^.784^302^3.18^^^0
;;^UTILITY(U,$J,112,5,3)
;;=.324^.882^1.137^2.244^2.124^.565^.131^1.231^1.115^1.472^.874^.823^.67^1.588^5.515^.437^2.575^1.289
;;^UTILITY(U,$J,112,5,4)
;;=.585^.482^3.227^8.655^.817^3.455^7.401^0
;;^UTILITY(U,$J,112,5,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,6,0)
;;=CHEESE, BRIE^1-006^oz.^28.3^100^N
;;^UTILITY(U,$J,112,6,1)
;;=20.75^27.68^.45^333.651^48.42^^^184^.5^20^188^152^629.4^2.38^.019^.034^^667^0^.07
;;^UTILITY(U,$J,112,6,2)
;;=.52^.38^.69^.235^65^1.65^.513^.313^100^17.41^8.013^.826^182^2.7^^^0
;;^UTILITY(U,$J,112,6,3)
;;=.322^.751^1.015^1.929^1.851^.592^.114^1.158^1.2^1.34^.735^.716^.859^1.35^4.387^.397^2.459^1.168
;;^UTILITY(U,$J,112,6,4)
;;=.673^.504^3.065^8.246^1.007^2.88^6.563
;;^UTILITY(U,$J,112,6,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,7,0)
;;=CHEESE, CAMEMBERT, DOMESTIC^1-007^oz.^28.3^100^N
;;^UTILITY(U,$J,112,7,1)
;;=19.8^24.26^.46^299.571^51.8^^^387.6^.33^19.97^346.6^186.6^841.7^2.38^.021^.038^^923^0^.028
;;^UTILITY(U,$J,112,7,2)
;;=.488^.63^1.364^.227^62.2^1.296^.45^.274^72^15.259^7.023^.724^252^3.68^^^0
;;^UTILITY(U,$J,112,7,3)
;;=.307^.717^.968^1.84^1.766^.565^.109^1.105^1.145^1.279^.701^.683^.819^1.288^4.187^.379^2.346^1.114
;;^UTILITY(U,$J,112,7,4)
;;=.59^.442^2.686^7.227^.883^2.524^5.752^0
;;^UTILITY(U,$J,112,7,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,8,0)
;;=CHEESE, CARAWAY^1-008^oz.^28.3^100^N
;;^UTILITY(U,$J,112,8,1)
;;=25.18^29.2^3.06^376.029^39.28^^^673.3^.64^22.1^490^93^690^2.94^.024^.021^^1054^0^.031
;;^UTILITY(U,$J,112,8,2)
;;=.45^.18^.19^.074^18.2^.27^.508^.322^93^18.584^8.275^.83^289^3.28^^^0
;;^UTILITY(U,$J,112,8,3)
;;=.324^.896^1.563^2.412^2.095^.659^.126^1.326^1.216^1.682^.952^.884^.711^1.618^6.16^.439^2.838^1.472
;;^UTILITY(U,$J,112,8,4)
;;=.529^.477^2.934^8.638^.885^3.531^6.965
;;^UTILITY(U,$J,112,8,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,9,0)
;;=CHEESE, CHEDDAR, AMER DOMESTIC^1-009^oz.^28.3^100^N
FHINI00E ; ; 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)
+2 ;;=^FHNU(
+3 ;;^UTILITY(U,$J,112,0)
+4 ;;=FOOD NUTRIENTS^112^10251^6986
+5 ;;^UTILITY(U,$J,112,1,0)
+6 ;;=BUTTER, W/SALT^1-001^pats^5^100^N
+7 ;;^UTILITY(U,$J,112,1,1)
+8 ;;=.85^81.11^.06^716.818^15.87^^^23.5^.16^2.18^22.8^26^826.5^.05^.016^.004^1.6^3058^0^.005
+9 ;;^UTILITY(U,$J,112,1,2)
+10 ;;=.034^.042^.11^.003^2.8^.125^1.832^1.18^218.9^50.489^23.426^3.012^754^2.11^^^0^1.6
+11 ;;^UTILITY(U,$J,112,1,3)
+12 ;;=.012^.038^.051^.083^.067^.021^.008^.041^.041^.057^.031^.023^.029^.064^.178^.018^.082^.046
+13 ;;^UTILITY(U,$J,112,1,4)
+14 ;;=2.034^2.277^8.157^21.334^1.816^9.829^20.405^0^7
+15 ;;^UTILITY(U,$J,112,1,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2,0)
+18 ;;=BUTTER, WHIPPED^1-002^pats^3.8^100^N
+19 ;;^UTILITY(U,$J,112,2,1)
+20 ;;=.85^81.11^.06^716.818^15.87^^^23.5^.16^2.18^22.8^26^826.5^.05^.016^.004^^3058^0^.005
+21 ;;^UTILITY(U,$J,112,2,2)
+22 ;;=.034^.042^.11^.003^2.8^.125^1.832^1.18^218.9^50.489^23.426^3.012^754^2.11^^^0
+23 ;;^UTILITY(U,$J,112,2,3)
+24 ;;=.012^.038^.051^.083^.067^.021^.008^.041^.041^.057^.031^.023^.029^.064^.178^.018^.082^.046
+25 ;;^UTILITY(U,$J,112,2,4)
+26 ;;=2.034^2.277^8.157^21.334^1.816^9.829^20.405^0
+27 ;;^UTILITY(U,$J,112,2,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,3,0)
+30 ;;=BUTTER OIL^1-003^cups^205^100^N
+31 ;;^UTILITY(U,$J,112,3,1)
+32 ;;=.28^99.48^^875.625^.24^^^3.9^.002^.44^3^4.9^1.6^.01^.001^0^2.8^3750^0^.001
+33 ;;^UTILITY(U,$J,112,3,2)
+34 ;;=.005^.003^.01^.001^.2^.012^2.247^1.447^255.8^61.924^28.732^3.694^925^0^^^0^2.8
+35 ;;^UTILITY(U,$J,112,3,3)
+36 ;;=.004^.013^.017^.027^.022^.007^.003^.014^.014^.019^.01^.008^.01^.021^.059^.006^.027^.015
+37 ;;^UTILITY(U,$J,112,3,4)
+38 ;;=2.495^2.793^10.005^26.166^2.228^12.056^25.026^0
+39 ;;^UTILITY(U,$J,112,3,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,4,0)
+42 ;;=CHEESE, BLUE^1-004^oz.^28.3^100^N
+43 ;;^UTILITY(U,$J,112,4,1)
+44 ;;=21.4^28.74^2.34^353.058^42.41^^^527.6^.31^22.93^387.4^256.3^1395.3^2.66^.04^.009^^721^0^.029
+45 ;;^UTILITY(U,$J,112,4,2)
+46 ;;=.382^1.016^1.729^.166^36.4^1.217^.536^.264^75.2^18.669^7.778^.8^228^5.11^^^0
+47 ;;^UTILITY(U,$J,112,4,3)
+48 ;;=.312^.785^1.124^1.919^1.852^.584^.107^1.087^1.295^1.556^.711^.758^.644^1.436^5.179^.406^2.1^1.12
+49 ;;^UTILITY(U,$J,112,4,4)
+50 ;;=.601^.491^3.301^9.153^.816^3.235^6.622^0
+51 ;;^UTILITY(U,$J,112,4,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,5,0)
+54 ;;=CHEESE, BRICK^1-005^oz.^28.3^100^N
+55 ;;^UTILITY(U,$J,112,5,1)
+56 ;;=23.24^29.68^2.79^370.919^41.11^^^673.7^.43^24.32^451^135.8^559.6^2.6^.024^.012^^1083^0^.014
+57 ;;^UTILITY(U,$J,112,5,2)
+58 ;;=.351^.118^.288^.065^20.3^1.257^.491^.293^94.4^18.764^8.598^.784^302^3.18^^^0
+59 ;;^UTILITY(U,$J,112,5,3)
+60 ;;=.324^.882^1.137^2.244^2.124^.565^.131^1.231^1.115^1.472^.874^.823^.67^1.588^5.515^.437^2.575^1.289
+61 ;;^UTILITY(U,$J,112,5,4)
+62 ;;=.585^.482^3.227^8.655^.817^3.455^7.401^0
+63 ;;^UTILITY(U,$J,112,5,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,6,0)
+66 ;;=CHEESE, BRIE^1-006^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,6,1)
+68 ;;=20.75^27.68^.45^333.651^48.42^^^184^.5^20^188^152^629.4^2.38^.019^.034^^667^0^.07
+69 ;;^UTILITY(U,$J,112,6,2)
+70 ;;=.52^.38^.69^.235^65^1.65^.513^.313^100^17.41^8.013^.826^182^2.7^^^0
+71 ;;^UTILITY(U,$J,112,6,3)
+72 ;;=.322^.751^1.015^1.929^1.851^.592^.114^1.158^1.2^1.34^.735^.716^.859^1.35^4.387^.397^2.459^1.168
+73 ;;^UTILITY(U,$J,112,6,4)
+74 ;;=.673^.504^3.065^8.246^1.007^2.88^6.563
+75 ;;^UTILITY(U,$J,112,6,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,7,0)
+78 ;;=CHEESE, CAMEMBERT, DOMESTIC^1-007^oz.^28.3^100^N
+79 ;;^UTILITY(U,$J,112,7,1)
+80 ;;=19.8^24.26^.46^299.571^51.8^^^387.6^.33^19.97^346.6^186.6^841.7^2.38^.021^.038^^923^0^.028
+81 ;;^UTILITY(U,$J,112,7,2)
+82 ;;=.488^.63^1.364^.227^62.2^1.296^.45^.274^72^15.259^7.023^.724^252^3.68^^^0
+83 ;;^UTILITY(U,$J,112,7,3)
+84 ;;=.307^.717^.968^1.84^1.766^.565^.109^1.105^1.145^1.279^.701^.683^.819^1.288^4.187^.379^2.346^1.114
+85 ;;^UTILITY(U,$J,112,7,4)
+86 ;;=.59^.442^2.686^7.227^.883^2.524^5.752^0
+87 ;;^UTILITY(U,$J,112,7,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,8,0)
+90 ;;=CHEESE, CARAWAY^1-008^oz.^28.3^100^N
+91 ;;^UTILITY(U,$J,112,8,1)
+92 ;;=25.18^29.2^3.06^376.029^39.28^^^673.3^.64^22.1^490^93^690^2.94^.024^.021^^1054^0^.031
+93 ;;^UTILITY(U,$J,112,8,2)
+94 ;;=.45^.18^.19^.074^18.2^.27^.508^.322^93^18.584^8.275^.83^289^3.28^^^0
+95 ;;^UTILITY(U,$J,112,8,3)
+96 ;;=.324^.896^1.563^2.412^2.095^.659^.126^1.326^1.216^1.682^.952^.884^.711^1.618^6.16^.439^2.838^1.472
+97 ;;^UTILITY(U,$J,112,8,4)
+98 ;;=.529^.477^2.934^8.638^.885^3.531^6.965
+99 ;;^UTILITY(U,$J,112,8,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,9,0)
+102 ;;=CHEESE, CHEDDAR, AMER DOMESTIC^1-009^oz.^28.3^100^N
