FHINI01E ; ; 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,317,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,318,0)
;;=BF, DINNER, CHICKEN NOODLE, STR^3-068^jars^128^100^N
;;^UTILITY(U,$J,112,318,1)
;;=2.1^1.5^7.5^52^88.5^^^22^.45^9^24^39^16^.3^.04^^^905^1^.031
;;^UTILITY(U,$J,112,318,2)
;;=.054^.466^.23^.034^5.4^.13^^^^^^^112^.4^^^1.1
;;^UTILITY(U,$J,112,318,3)
;;=.024^.088^.11^.18^.155^.042^.027^.098^.079^.125^.137^.052^.114^.197^.43^.111^.144^.09
;;^UTILITY(U,$J,112,318,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,319,0)
;;=BF, DINNER, VEG & CHICKEN, STR^3-073^jars^128^100^N
;;^UTILITY(U,$J,112,319,1)
;;=1.9^1.1^6.6^43^90^^^14^.27^8^25^30^11^.261^.035^^^1106^1.1^.013
;;^UTILITY(U,$J,112,319,2)
;;=.019^.187^.2^.021^3.2^.1^^^^^^^137^.3^^^1.1
;;^UTILITY(U,$J,112,319,3)
;;=.021^.069^.091^.136^.121^.036^.027^.078^.059^.104^.118^.038^.108^.151^.399^.109^.142^.076
;;^UTILITY(U,$J,112,319,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,320,0)
;;=BF, DINNER, CHICKEN NOODLE W/VEG, STR^3-075^jars^128^100^N
;;^UTILITY(U,$J,112,320,1)
;;=2^2.5^7.9^63^87.2^^^28^.35^10^31^55^20^.25^.054^^^1417^.7^.032
;;^UTILITY(U,$J,112,320,2)
;;=.049^.407^.19^.021^3.2^.08^^^^^^^175^.4^^^1.1
;;^UTILITY(U,$J,112,320,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,321,0)
;;=BF, DINNER, VEG & NOODLES & TURKEY, STR^3-079^jars^128^100^N
;;^UTILITY(U,$J,112,321,1)
;;=1.2^1.2^6.8^44^90.3^^^32^.19^8^25^63^21^.27^.022^^^991^.8^.018
;;^UTILITY(U,$J,112,321,2)
;;=.044^.25^.186^.016^2.4^.1^^^^^^^133^.4^^^1.1
;;^UTILITY(U,$J,112,321,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,322,0)
;;=BF, DINNER, TURKEY & RICE, STR^3-082^jars^128^100^N
;;^UTILITY(U,$J,112,322,1)
;;=1.9^1.3^7.3^49^89.1^^^21^.26^8^20^41^17^.249^.025^^^611^1.2^.005
;;^UTILITY(U,$J,112,322,2)
;;=.022^.306^.209^.032^3.2^.1^.28^.01^10^.42^.53^.3^95^.4^^^1.1
;;^UTILITY(U,$J,112,322,3)
;;=.02^.078^.095^.152^.153^.052^.02^.08^.068^.107^.139^.045^.119^.179^.316^.121^.112^.072
;;^UTILITY(U,$J,112,322,4)
;;=^0^.01^.3^.08^.09^.46^.01
;;^UTILITY(U,$J,112,322,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,323,0)
;;=BF, DINNER, VEG & TURKEY, STR^3-084^jars^128^100^N
;;^UTILITY(U,$J,112,323,1)
;;=1.7^1.2^6.6^42^90.1^^^16^.27^8^19^44^13^.226^.023^^^834^1.1^.005
;;^UTILITY(U,$J,112,323,2)
;;=.017^.301^.19^.033^2.6^.09^^^^^^^112^.4^^^1.1
;;^UTILITY(U,$J,112,323,3)
;;=.018^.066^.08^.129^.122^.037^.018^.062^.057^.094^.105^.035^.105^.167^.263^.102^.089^.061
;;^UTILITY(U,$J,112,323,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,324,0)
;;=BF, DINNER, VEG & LIVER, STR^3-087^jars^128^100^N
;;^UTILITY(U,$J,112,324,1)
;;=2.2^.4^6.9^39^90^^^7^2.21^12^40^94^18^.382^.207^^^3110^1.8^.018
;;^UTILITY(U,$J,112,324,2)
;;=.265^1.2^^.082^28.7^1.81^^^^^^^735^.5^^^1.1
;;^UTILITY(U,$J,112,324,3)
;;=.032^.089^.104^.191^.163^.05^.029^.104^.076^.137^.131^.053^.131^.222^.324^.116^.117^.086
;;^UTILITY(U,$J,112,324,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,325,0)
;;=BF, DINNER, MACARONI & CHEESE, STR^3-089^jars^128^100^N
;;^UTILITY(U,$J,112,325,1)
;;=2.6^2.1^7.5^59^87.1^^^54^.31^8^57^46^73^.34^.02^^^27^1.3^.054
;;^UTILITY(U,$J,112,325,2)
;;=.067^.441^^.016^1.4^.03^^^^^^^5^.7^^^.3
;;^UTILITY(U,$J,112,325,3)
;;=.032^.078^.13^.234^.148^.09^.032^.132^.123^.147^.102^.062^.085^.167^.665^.058^.293^.104
;;^UTILITY(U,$J,112,325,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,326,0)
;;=BF, VEGETABLES, GREEN BEANS, STR^3-091^jars^128^100^N
;;^UTILITY(U,$J,112,326,1)
;;=1.3^.1^5.9^25^92^^^39^.75^24^20^158^2^.205^.051^^^448^5.2^.026
;;^UTILITY(U,$J,112,326,2)
;;=.085^.346^.16^.038^34.6^0^^^^^^^45^.6^^^1.9
;;^UTILITY(U,$J,112,326,3)
;;=.015^.055^.058^.085^.065^.019^.011^.053^.046^.071^.072^.036^.06^.254^.171^.053^.066^.069
;;^UTILITY(U,$J,112,326,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,327,0)
;;=BF, VEGETABLES, BEETS, STR^3-098^jars^128^100^N
;;^UTILITY(U,$J,112,327,1)
;;=1.3^.1^7.7^34^90.1^^^14^.32^14^14^182^83^.12^.07^^^33^2.4^.011
;;^UTILITY(U,$J,112,327,2)
;;=.043^.132^.1^.024^30.8^0^^^^^^^3^.9^^^1.9
;;^UTILITY(U,$J,112,327,3)
;;=.012^.032^.038^.046^.034^.01^.007^.018^.035^.045^.03^.021^.054^.086^.292^.027^.027^.043
;;^UTILITY(U,$J,112,327,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,328,0)
;;=BF, VEGETABLES, CARROTS, STR^3-099^jars^128^100^N
;;^UTILITY(U,$J,112,328,1)
;;=.8^.1^6^27^92.3^^^22^.37^9^20^196^37^.152^.041^^^11461^5.7^.023
;;^UTILITY(U,$J,112,328,2)
;;=.04^.463^.24^.073^14.9^0^^^^^^^1146^.8^^^1.7
FHINI01E ; ; 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,317,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,318,0)
+4 ;;=BF, DINNER, CHICKEN NOODLE, STR^3-068^jars^128^100^N
+5 ;;^UTILITY(U,$J,112,318,1)
+6 ;;=2.1^1.5^7.5^52^88.5^^^22^.45^9^24^39^16^.3^.04^^^905^1^.031
+7 ;;^UTILITY(U,$J,112,318,2)
+8 ;;=.054^.466^.23^.034^5.4^.13^^^^^^^112^.4^^^1.1
+9 ;;^UTILITY(U,$J,112,318,3)
+10 ;;=.024^.088^.11^.18^.155^.042^.027^.098^.079^.125^.137^.052^.114^.197^.43^.111^.144^.09
+11 ;;^UTILITY(U,$J,112,318,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,319,0)
+14 ;;=BF, DINNER, VEG & CHICKEN, STR^3-073^jars^128^100^N
+15 ;;^UTILITY(U,$J,112,319,1)
+16 ;;=1.9^1.1^6.6^43^90^^^14^.27^8^25^30^11^.261^.035^^^1106^1.1^.013
+17 ;;^UTILITY(U,$J,112,319,2)
+18 ;;=.019^.187^.2^.021^3.2^.1^^^^^^^137^.3^^^1.1
+19 ;;^UTILITY(U,$J,112,319,3)
+20 ;;=.021^.069^.091^.136^.121^.036^.027^.078^.059^.104^.118^.038^.108^.151^.399^.109^.142^.076
+21 ;;^UTILITY(U,$J,112,319,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,320,0)
+24 ;;=BF, DINNER, CHICKEN NOODLE W/VEG, STR^3-075^jars^128^100^N
+25 ;;^UTILITY(U,$J,112,320,1)
+26 ;;=2^2.5^7.9^63^87.2^^^28^.35^10^31^55^20^.25^.054^^^1417^.7^.032
+27 ;;^UTILITY(U,$J,112,320,2)
+28 ;;=.049^.407^.19^.021^3.2^.08^^^^^^^175^.4^^^1.1
+29 ;;^UTILITY(U,$J,112,320,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,321,0)
+32 ;;=BF, DINNER, VEG & NOODLES & TURKEY, STR^3-079^jars^128^100^N
+33 ;;^UTILITY(U,$J,112,321,1)
+34 ;;=1.2^1.2^6.8^44^90.3^^^32^.19^8^25^63^21^.27^.022^^^991^.8^.018
+35 ;;^UTILITY(U,$J,112,321,2)
+36 ;;=.044^.25^.186^.016^2.4^.1^^^^^^^133^.4^^^1.1
+37 ;;^UTILITY(U,$J,112,321,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,322,0)
+40 ;;=BF, DINNER, TURKEY & RICE, STR^3-082^jars^128^100^N
+41 ;;^UTILITY(U,$J,112,322,1)
+42 ;;=1.9^1.3^7.3^49^89.1^^^21^.26^8^20^41^17^.249^.025^^^611^1.2^.005
+43 ;;^UTILITY(U,$J,112,322,2)
+44 ;;=.022^.306^.209^.032^3.2^.1^.28^.01^10^.42^.53^.3^95^.4^^^1.1
+45 ;;^UTILITY(U,$J,112,322,3)
+46 ;;=.02^.078^.095^.152^.153^.052^.02^.08^.068^.107^.139^.045^.119^.179^.316^.121^.112^.072
+47 ;;^UTILITY(U,$J,112,322,4)
+48 ;;=^0^.01^.3^.08^.09^.46^.01
+49 ;;^UTILITY(U,$J,112,322,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,323,0)
+52 ;;=BF, DINNER, VEG & TURKEY, STR^3-084^jars^128^100^N
+53 ;;^UTILITY(U,$J,112,323,1)
+54 ;;=1.7^1.2^6.6^42^90.1^^^16^.27^8^19^44^13^.226^.023^^^834^1.1^.005
+55 ;;^UTILITY(U,$J,112,323,2)
+56 ;;=.017^.301^.19^.033^2.6^.09^^^^^^^112^.4^^^1.1
+57 ;;^UTILITY(U,$J,112,323,3)
+58 ;;=.018^.066^.08^.129^.122^.037^.018^.062^.057^.094^.105^.035^.105^.167^.263^.102^.089^.061
+59 ;;^UTILITY(U,$J,112,323,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,324,0)
+62 ;;=BF, DINNER, VEG & LIVER, STR^3-087^jars^128^100^N
+63 ;;^UTILITY(U,$J,112,324,1)
+64 ;;=2.2^.4^6.9^39^90^^^7^2.21^12^40^94^18^.382^.207^^^3110^1.8^.018
+65 ;;^UTILITY(U,$J,112,324,2)
+66 ;;=.265^1.2^^.082^28.7^1.81^^^^^^^735^.5^^^1.1
+67 ;;^UTILITY(U,$J,112,324,3)
+68 ;;=.032^.089^.104^.191^.163^.05^.029^.104^.076^.137^.131^.053^.131^.222^.324^.116^.117^.086
+69 ;;^UTILITY(U,$J,112,324,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,325,0)
+72 ;;=BF, DINNER, MACARONI & CHEESE, STR^3-089^jars^128^100^N
+73 ;;^UTILITY(U,$J,112,325,1)
+74 ;;=2.6^2.1^7.5^59^87.1^^^54^.31^8^57^46^73^.34^.02^^^27^1.3^.054
+75 ;;^UTILITY(U,$J,112,325,2)
+76 ;;=.067^.441^^.016^1.4^.03^^^^^^^5^.7^^^.3
+77 ;;^UTILITY(U,$J,112,325,3)
+78 ;;=.032^.078^.13^.234^.148^.09^.032^.132^.123^.147^.102^.062^.085^.167^.665^.058^.293^.104
+79 ;;^UTILITY(U,$J,112,325,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,326,0)
+82 ;;=BF, VEGETABLES, GREEN BEANS, STR^3-091^jars^128^100^N
+83 ;;^UTILITY(U,$J,112,326,1)
+84 ;;=1.3^.1^5.9^25^92^^^39^.75^24^20^158^2^.205^.051^^^448^5.2^.026
+85 ;;^UTILITY(U,$J,112,326,2)
+86 ;;=.085^.346^.16^.038^34.6^0^^^^^^^45^.6^^^1.9
+87 ;;^UTILITY(U,$J,112,326,3)
+88 ;;=.015^.055^.058^.085^.065^.019^.011^.053^.046^.071^.072^.036^.06^.254^.171^.053^.066^.069
+89 ;;^UTILITY(U,$J,112,326,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,327,0)
+92 ;;=BF, VEGETABLES, BEETS, STR^3-098^jars^128^100^N
+93 ;;^UTILITY(U,$J,112,327,1)
+94 ;;=1.3^.1^7.7^34^90.1^^^14^.32^14^14^182^83^.12^.07^^^33^2.4^.011
+95 ;;^UTILITY(U,$J,112,327,2)
+96 ;;=.043^.132^.1^.024^30.8^0^^^^^^^3^.9^^^1.9
+97 ;;^UTILITY(U,$J,112,327,3)
+98 ;;=.012^.032^.038^.046^.034^.01^.007^.018^.035^.045^.03^.021^.054^.086^.292^.027^.027^.043
+99 ;;^UTILITY(U,$J,112,327,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,328,0)
+102 ;;=BF, VEGETABLES, CARROTS, STR^3-099^jars^128^100^N
+103 ;;^UTILITY(U,$J,112,328,1)
+104 ;;=.8^.1^6^27^92.3^^^22^.37^9^20^196^37^.152^.041^^^11461^5.7^.023
+105 ;;^UTILITY(U,$J,112,328,2)
+106 ;;=.04^.463^.24^.073^14.9^0^^^^^^^1146^.8^^^1.7
