FHINI01D ; ; 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,307,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,308,0)
;;=BF, MEAT, TURKEY, STR^3-015^jars^99^100^N
;;^UTILITY(U,$J,112,308,1)
;;=14.3^5.8^.1^114^78.9^^^23^1.2^14^126^231^55^1.83^.04^^^560^2.2^.018
;;^UTILITY(U,$J,112,308,2)
;;=.209^3.667^.57^.18^11.3^1^1.33^.06^^1.91^2.18^1.45^168^.9^^^0
;;^UTILITY(U,$J,112,308,3)
;;=.149^.633^.717^1.138^1.184^.443^.174^.59^.503^.727^.909^.366^.905^1.426^2.267^.941^.704^.562
;;^UTILITY(U,$J,112,308,4)
;;=0^.03^.09^1.17^.19^.55^1.96^.06
;;^UTILITY(U,$J,112,308,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,309,0)
;;=BF, EGG YOLKS, STR^3-018^jars^94^100^N
;;^UTILITY(U,$J,112,309,1)
;;=10^17.3^1^203^70.6^^^76^2.76^7^287^77^39^1.915^.07^^^1251^1.4^.072
;;^UTILITY(U,$J,112,309,2)
;;=.266^.025^2.14^.16^92.1^1.54^1.92^.04^735^5.19^6.92^2.25^376^1.2^^^0
;;^UTILITY(U,$J,112,309,3)
;;=.107^.461^.566^.846^.784^.271^.171^.414^.414^.641^.7^.212^.516^.953^1.234^.277^.442^.669
;;^UTILITY(U,$J,112,309,4)
;;=^^.04^3.82^.57^1.32^6.34^.14
;;^UTILITY(U,$J,112,309,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,310,0)
;;=BF, MEAT, LIVER, STR^3-020^jars^99^100^N
;;^UTILITY(U,$J,112,310,1)
;;=14.3^3.8^1.4^101^79.3^^^4^5.29^13^203^227^74^2.977^1.985^^^38135^19.3^.049
;;^UTILITY(U,$J,112,310,2)
;;=1.814^8.328^^.343^337.4^2.16^.22^.05^183.33^1.37^.78^.49^11452^1.2^^^0
;;^UTILITY(U,$J,112,310,3)
;;=.222^.683^.701^1.32^.935^.376^.215^.685^.575^.907^.839^.367^.884^1.356^1.826^.811^.774^.639
;;^UTILITY(U,$J,112,310,4)
;;=^0^.04^.65^.07^.6^.69^.14
;;^UTILITY(U,$J,112,310,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,311,0)
;;=BF, DINNER, VEG & DUMPLINGS & BEEF, STR^3-041^jars^128^100^N
;;^UTILITY(U,$J,112,311,1)
;;=2^.9^7.7^48^88.9^^^14^.39^6^28^46^49^.4^.029^^^416^.8^.049
;;^UTILITY(U,$J,112,311,2)
;;=.04^.574^.208^.047^7.2^.09^^^^^^^56^.5
;;^UTILITY(U,$J,112,311,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,312,0)
;;=BF, DINNER, MACARONI & TOMATO & BEEF, STR^3-044^jars^128^100^N
;;^UTILITY(U,$J,112,312,1)
;;=2.2^1.1^8.8^55^87.3^^^16^.49^9^42^96^17^.31^.04^^^531^1.5^.069
;;^UTILITY(U,$J,112,312,2)
;;=.062^.819^^.043^20.1^.23^^^^^^^90^.5^^^1.1
;;^UTILITY(U,$J,112,312,3)
;;=.025^.081^.107^.179^.135^.036^.031^.101^.074^.115^.12^.058^.116^.179^.559^.114^.181^.094
;;^UTILITY(U,$J,112,312,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,313,0)
;;=BF, DINNER, BEEF NOODLE, STR^3-047^jars^128^100^N
;;^UTILITY(U,$J,112,313,1)
;;=2.3^1.7^7^53^88.6^^^9^.41^7^29^47^29^.375^.03^^^823^1.2^.035
;;^UTILITY(U,$J,112,313,2)
;;=.042^.723^.214^.048^5.1^.09^^^^^^^110^.4^^^1.1
;;^UTILITY(U,$J,112,313,3)
;;=.025^.089^.124^.186^.166^.047^.026^.105^.083^.118^.141^.066^.134^.197^.464^.137^.167^.088
;;^UTILITY(U,$J,112,313,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,314,0)
;;=BF, DINNER, VEG & BEEF, STR^3-053^jars^128^100^N
;;^UTILITY(U,$J,112,314,1)
;;=2^2^7^53^88.5^^^12^.38^5^41^101^21^.33^.01^^^1188^1.2^.021
;;^UTILITY(U,$J,112,314,2)
;;=.028^.505^.12^.054^4.7^.25^^^^^^^171^.5^^^1.1
;;^UTILITY(U,$J,112,314,3)
;;=.02^.071^.083^.135^.14^.032^.019^.068^.051^.1^.118^.044^.135^.195^.359^.154^.123^.072
;;^UTILITY(U,$J,112,314,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,315,0)
;;=BF, DINNER, VEG & BACON, STR^3-059^jars^128^100^N
;;^UTILITY(U,$J,112,315,1)
;;=1.6^3.3^8.6^69^85.9^^^14^.36^7^31^89^43^.251^.038^^^2663^1.3^.033
;;^UTILITY(U,$J,112,315,2)
;;=.033^.53^^.08^9.2^.1^.33^.02^3.2^1.19^1.59^.36^298^.6^^^1.1
;;^UTILITY(U,$J,112,315,3)
;;=.015^.054^.066^.104^.085^.032^.023^.062^.055^.085^.111^.034^.087^.204^.314^.071^.069^.06
;;^UTILITY(U,$J,112,315,4)
;;=0^0^.04^.76^.09^.36^1.47^.01
;;^UTILITY(U,$J,112,315,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,316,0)
;;=BF, DINNER, VEG & HAM, STR^3-061^jars^128^100^N
;;^UTILITY(U,$J,112,316,1)
;;=1.8^1.7^6.9^48^89.2^^^8^.3^5^23^85^12^.192^.029^^^682^1.6^.032
;;^UTILITY(U,$J,112,316,2)
;;=.029^.404^^.033^4.9^.04^^^^^^^95^.5^^^1.1
;;^UTILITY(U,$J,112,316,3)
;;=.018^.066^.078^.129^.119^.037^.018^.066^.053^.092^.116^.047^.104^.158^.346^.087^.093^.067
;;^UTILITY(U,$J,112,316,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,317,0)
;;=BF, DINNER, VEG & LAMB, STR^3-066^jars^128^100^N
;;^UTILITY(U,$J,112,317,1)
;;=2^2^6.9^52^88.6^^^12^.35^7^49^94^20^.216^.029^^^1995^1.2^.018
;;^UTILITY(U,$J,112,317,2)
;;=.034^.529^.16^.046^3.6^.16^^^^^^^283^.5^^^1.1
;;^UTILITY(U,$J,112,317,3)
;;=.023^.073^.09^.147^.146^.03^.017^.079^.062^.097^.133^.046^.113^.198^.397^.1^.109^.073
FHINI01D ; ; 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,307,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,308,0)
+4 ;;=BF, MEAT, TURKEY, STR^3-015^jars^99^100^N
+5 ;;^UTILITY(U,$J,112,308,1)
+6 ;;=14.3^5.8^.1^114^78.9^^^23^1.2^14^126^231^55^1.83^.04^^^560^2.2^.018
+7 ;;^UTILITY(U,$J,112,308,2)
+8 ;;=.209^3.667^.57^.18^11.3^1^1.33^.06^^1.91^2.18^1.45^168^.9^^^0
+9 ;;^UTILITY(U,$J,112,308,3)
+10 ;;=.149^.633^.717^1.138^1.184^.443^.174^.59^.503^.727^.909^.366^.905^1.426^2.267^.941^.704^.562
+11 ;;^UTILITY(U,$J,112,308,4)
+12 ;;=0^.03^.09^1.17^.19^.55^1.96^.06
+13 ;;^UTILITY(U,$J,112,308,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,309,0)
+16 ;;=BF, EGG YOLKS, STR^3-018^jars^94^100^N
+17 ;;^UTILITY(U,$J,112,309,1)
+18 ;;=10^17.3^1^203^70.6^^^76^2.76^7^287^77^39^1.915^.07^^^1251^1.4^.072
+19 ;;^UTILITY(U,$J,112,309,2)
+20 ;;=.266^.025^2.14^.16^92.1^1.54^1.92^.04^735^5.19^6.92^2.25^376^1.2^^^0
+21 ;;^UTILITY(U,$J,112,309,3)
+22 ;;=.107^.461^.566^.846^.784^.271^.171^.414^.414^.641^.7^.212^.516^.953^1.234^.277^.442^.669
+23 ;;^UTILITY(U,$J,112,309,4)
+24 ;;=^^.04^3.82^.57^1.32^6.34^.14
+25 ;;^UTILITY(U,$J,112,309,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,310,0)
+28 ;;=BF, MEAT, LIVER, STR^3-020^jars^99^100^N
+29 ;;^UTILITY(U,$J,112,310,1)
+30 ;;=14.3^3.8^1.4^101^79.3^^^4^5.29^13^203^227^74^2.977^1.985^^^38135^19.3^.049
+31 ;;^UTILITY(U,$J,112,310,2)
+32 ;;=1.814^8.328^^.343^337.4^2.16^.22^.05^183.33^1.37^.78^.49^11452^1.2^^^0
+33 ;;^UTILITY(U,$J,112,310,3)
+34 ;;=.222^.683^.701^1.32^.935^.376^.215^.685^.575^.907^.839^.367^.884^1.356^1.826^.811^.774^.639
+35 ;;^UTILITY(U,$J,112,310,4)
+36 ;;=^0^.04^.65^.07^.6^.69^.14
+37 ;;^UTILITY(U,$J,112,310,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,311,0)
+40 ;;=BF, DINNER, VEG & DUMPLINGS & BEEF, STR^3-041^jars^128^100^N
+41 ;;^UTILITY(U,$J,112,311,1)
+42 ;;=2^.9^7.7^48^88.9^^^14^.39^6^28^46^49^.4^.029^^^416^.8^.049
+43 ;;^UTILITY(U,$J,112,311,2)
+44 ;;=.04^.574^.208^.047^7.2^.09^^^^^^^56^.5
+45 ;;^UTILITY(U,$J,112,311,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,312,0)
+48 ;;=BF, DINNER, MACARONI & TOMATO & BEEF, STR^3-044^jars^128^100^N
+49 ;;^UTILITY(U,$J,112,312,1)
+50 ;;=2.2^1.1^8.8^55^87.3^^^16^.49^9^42^96^17^.31^.04^^^531^1.5^.069
+51 ;;^UTILITY(U,$J,112,312,2)
+52 ;;=.062^.819^^.043^20.1^.23^^^^^^^90^.5^^^1.1
+53 ;;^UTILITY(U,$J,112,312,3)
+54 ;;=.025^.081^.107^.179^.135^.036^.031^.101^.074^.115^.12^.058^.116^.179^.559^.114^.181^.094
+55 ;;^UTILITY(U,$J,112,312,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,313,0)
+58 ;;=BF, DINNER, BEEF NOODLE, STR^3-047^jars^128^100^N
+59 ;;^UTILITY(U,$J,112,313,1)
+60 ;;=2.3^1.7^7^53^88.6^^^9^.41^7^29^47^29^.375^.03^^^823^1.2^.035
+61 ;;^UTILITY(U,$J,112,313,2)
+62 ;;=.042^.723^.214^.048^5.1^.09^^^^^^^110^.4^^^1.1
+63 ;;^UTILITY(U,$J,112,313,3)
+64 ;;=.025^.089^.124^.186^.166^.047^.026^.105^.083^.118^.141^.066^.134^.197^.464^.137^.167^.088
+65 ;;^UTILITY(U,$J,112,313,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,314,0)
+68 ;;=BF, DINNER, VEG & BEEF, STR^3-053^jars^128^100^N
+69 ;;^UTILITY(U,$J,112,314,1)
+70 ;;=2^2^7^53^88.5^^^12^.38^5^41^101^21^.33^.01^^^1188^1.2^.021
+71 ;;^UTILITY(U,$J,112,314,2)
+72 ;;=.028^.505^.12^.054^4.7^.25^^^^^^^171^.5^^^1.1
+73 ;;^UTILITY(U,$J,112,314,3)
+74 ;;=.02^.071^.083^.135^.14^.032^.019^.068^.051^.1^.118^.044^.135^.195^.359^.154^.123^.072
+75 ;;^UTILITY(U,$J,112,314,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,315,0)
+78 ;;=BF, DINNER, VEG & BACON, STR^3-059^jars^128^100^N
+79 ;;^UTILITY(U,$J,112,315,1)
+80 ;;=1.6^3.3^8.6^69^85.9^^^14^.36^7^31^89^43^.251^.038^^^2663^1.3^.033
+81 ;;^UTILITY(U,$J,112,315,2)
+82 ;;=.033^.53^^.08^9.2^.1^.33^.02^3.2^1.19^1.59^.36^298^.6^^^1.1
+83 ;;^UTILITY(U,$J,112,315,3)
+84 ;;=.015^.054^.066^.104^.085^.032^.023^.062^.055^.085^.111^.034^.087^.204^.314^.071^.069^.06
+85 ;;^UTILITY(U,$J,112,315,4)
+86 ;;=0^0^.04^.76^.09^.36^1.47^.01
+87 ;;^UTILITY(U,$J,112,315,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,316,0)
+90 ;;=BF, DINNER, VEG & HAM, STR^3-061^jars^128^100^N
+91 ;;^UTILITY(U,$J,112,316,1)
+92 ;;=1.8^1.7^6.9^48^89.2^^^8^.3^5^23^85^12^.192^.029^^^682^1.6^.032
+93 ;;^UTILITY(U,$J,112,316,2)
+94 ;;=.029^.404^^.033^4.9^.04^^^^^^^95^.5^^^1.1
+95 ;;^UTILITY(U,$J,112,316,3)
+96 ;;=.018^.066^.078^.129^.119^.037^.018^.066^.053^.092^.116^.047^.104^.158^.346^.087^.093^.067
+97 ;;^UTILITY(U,$J,112,316,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,317,0)
+100 ;;=BF, DINNER, VEG & LAMB, STR^3-066^jars^128^100^N
+101 ;;^UTILITY(U,$J,112,317,1)
+102 ;;=2^2^6.9^52^88.6^^^12^.35^7^49^94^20^.216^.029^^^1995^1.2^.018
+103 ;;^UTILITY(U,$J,112,317,2)
+104 ;;=.034^.529^.16^.046^3.6^.16^^^^^^^283^.5^^^1.1
+105 ;;^UTILITY(U,$J,112,317,3)
+106 ;;=.023^.073^.09^.147^.146^.03^.017^.079^.062^.097^.133^.046^.113^.198^.397^.1^.109^.073
