FHINI06U ; ; 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,2368,0)
;;=BF, DINNER, VEGETABLES & NOODLES & TURKEY, JUNIOR^3-081^jars^213^100^N
;;^UTILITY(U,$J,112,2368,1)
;;=1.8^1.5^7.6^52^88.7^^^32^.26^9^29^73^17^.3^.026^^^994^.8^.024
;;^UTILITY(U,$J,112,2368,2)
;;=.04^.299^.217^.018^2.8^.12^^^^^^^133^.4^^^1.1
;;^UTILITY(U,$J,112,2368,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2369,0)
;;=BF, DINNER, TURKEY & RICE, JUNIOR^3-083^jars^213^100^N
;;^UTILITY(U,$J,112,2369,1)
;;=1.8^1.4^7.2^49^89.3^^^23^.29^8^17^34^15^.244^.024^^^1059^1.2^.008
;;^UTILITY(U,$J,112,2369,2)
;;=.029^.278^.205^.027^3.1^.1^.3^.01^^.43^.55^.32^148^.4^^^1.1
;;^UTILITY(U,$J,112,2369,3)
;;=.019^.074^.09^.144^.145^.049^.019^.076^.065^.102^.132^.043^.114^.171^.3^.115^.107^.069
;;^UTILITY(U,$J,112,2369,4)
;;=^0^.01^.31^.08^.09^.48^.01
;;^UTILITY(U,$J,112,2369,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2370,0)
;;=BF, DINNER, VEG & TURKEY, JNR^3-085^jars^213^100^N
;;^UTILITY(U,$J,112,2370,1)
;;=1.7^1.2^7.7^47^89^^^13^.32^9^19^25^17^.253^.026^^^896^1.1^.015
;;^UTILITY(U,$J,112,2370,2)
;;=.017^.25^.212^.025^2.9^.09^^^^^^^115^.4^^^1.1
;;^UTILITY(U,$J,112,2370,3)
;;=.018^.068^.082^.132^.125^.038^.018^.064^.058^.096^.107^.036^.107^.171^.27^.105^.091^.063
;;^UTILITY(U,$J,112,2370,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2371,0)
;;=BF, DINNER, VEG & TURKEY, TODDLER^3-086^jars^177^100^N
;;^UTILITY(U,$J,112,2371,1)
;;=4.8^3.4^8^80^82.3^^^46^.6^16^57^166^334^.32^.042^^^2099^3.4^.02
;;^UTILITY(U,$J,112,2371,2)
;;=.09^.586^^.06^3^.44^^^^^^^269^1.4
;;^UTILITY(U,$J,112,2371,3)
;;=.06^.186^.249^.389^.331^.088^.052^.2^.174^.278^.295^.114^.229^.48^.915^.192^.333^.193
;;^UTILITY(U,$J,112,2371,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2372,0)
;;=BF, DINNER, VEG & LIVER, JNR^3-088^jars^213^100^N
;;^UTILITY(U,$J,112,2372,1)
;;=1.8^.6^8.2^44^88.9^^^10^1.81^12^38^89^13^.382^.207^^^3929^1.8^.022
;;^UTILITY(U,$J,112,2372,2)
;;=.225^1.155^^.099^32^1.81^^^^^^^715^.5^^^1.1
;;^UTILITY(U,$J,112,2372,3)
;;=.027^.074^.086^.159^.136^.042^.024^.086^.063^.114^.109^.044^.109^.185^.27^.097^.097^.071
;;^UTILITY(U,$J,112,2372,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2373,0)
;;=BF, DINNER, MACARONI & CHEESE, JUNIOR^3-090^jars^213^100^N
;;^UTILITY(U,$J,112,2373,1)
;;=2.6^2^8.2^61^86.5^^^51^.3^7^59^44^76^.32^.021^^^13^1.3^.056
;;^UTILITY(U,$J,112,2373,2)
;;=.064^.545^^.016^1.5^.03^^^^^^^3^.7^^^.3
;;^UTILITY(U,$J,112,2373,3)
;;=.032^.078^.13^.234^.148^.09^.032^.132^.123^.147^.102^.062^.085^.167^.665^.058^.293^.104
;;^UTILITY(U,$J,112,2373,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2374,0)
;;=BF, VEGETABLES, GREEN BEANS, JNR^3-092^jars^206^100^N
;;^UTILITY(U,$J,112,2374,1)
;;=1.2^.1^5.7^25^92.5^^^65^1.08^22^19^128^2^.193^.049^^^433^8.4^.021
;;^UTILITY(U,$J,112,2374,2)
;;=.102^.321^.151^.035^32.7^0^^^^^^^43^.4^^^1.9
;;^UTILITY(U,$J,112,2374,3)
;;=.014^.051^.054^.078^.059^.018^.01^.049^.042^.065^.066^.033^.056^.234^.157^.049^.061^.063
;;^UTILITY(U,$J,112,2374,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2375,0)
;;=BF, VEGETABLES, GREEN BEANS, BUTTERED, STR^3-094^jars^128^100^N
;;^UTILITY(U,$J,112,2375,1)
;;=1.2^.8^6.6^33^90.8^^^64^1.28^^^160^3^^^^^456^8.3^.019
;;^UTILITY(U,$J,112,2375,2)
;;=.106^.34^^^28.5^^^^^^^^46^.6
;;^UTILITY(U,$J,112,2375,3)
;;=.014^.051^.054^.078^.059^.018^.01^.049^.042^.065^.066^.033^.056^.234^.157^.049^.061^.063
;;^UTILITY(U,$J,112,2375,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2376,0)
;;=BF, VEGETABLES, GREEN BEANS, BUTTERED, JNR^3-095^jars^206^100^N
;;^UTILITY(U,$J,112,2376,1)
;;=1.3^.9^6.1^32^91.2^^^69^1.15^^^171^2^^^^^382^8.6^.013
;;^UTILITY(U,$J,112,2376,2)
;;=.113^.316^^^27.3^^^^^^^^38^.5
;;^UTILITY(U,$J,112,2376,3)
;;=.015^.055^.058^.085^.064^.019^.011^.053^.046^.07^.071^.036^.06^.253^.17^.053^.066^.068
;;^UTILITY(U,$J,112,2376,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2377,0)
;;=BF, VEGETABLES, GREEN BEANS, CREAMED, JNR^3-097^jars^213^100^N
;;^UTILITY(U,$J,112,2377,1)
;;=1^.4^7.2^32^90.9^^^32^.26^7^19^65^12^.16^.059^^^150^2.7^.023
;;^UTILITY(U,$J,112,2377,2)
;;=.054^.233^.183^.012^39.7^.05^^^^^^^15^.5^^^1.6
;;^UTILITY(U,$J,112,2377,3)
;;=.015^.038^.048^.078^.043^.022^.011^.045^.043^.058^.048^.023^.043^.097^.194^.033^.098^.043
;;^UTILITY(U,$J,112,2377,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2378,0)
;;=BF, VEGETABLES, CARROTS, JNR^3-100^jars^213^100^N
;;^UTILITY(U,$J,112,2378,1)
;;=.8^.2^7.2^32^91^^^23^.39^11^20^202^49^.176^.047^^^11810^5.5^.024
FHINI06U ; ; 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,2368,0)
+2 ;;=BF, DINNER, VEGETABLES & NOODLES & TURKEY, JUNIOR^3-081^jars^213^100^N
+3 ;;^UTILITY(U,$J,112,2368,1)
+4 ;;=1.8^1.5^7.6^52^88.7^^^32^.26^9^29^73^17^.3^.026^^^994^.8^.024
+5 ;;^UTILITY(U,$J,112,2368,2)
+6 ;;=.04^.299^.217^.018^2.8^.12^^^^^^^133^.4^^^1.1
+7 ;;^UTILITY(U,$J,112,2368,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2369,0)
+10 ;;=BF, DINNER, TURKEY & RICE, JUNIOR^3-083^jars^213^100^N
+11 ;;^UTILITY(U,$J,112,2369,1)
+12 ;;=1.8^1.4^7.2^49^89.3^^^23^.29^8^17^34^15^.244^.024^^^1059^1.2^.008
+13 ;;^UTILITY(U,$J,112,2369,2)
+14 ;;=.029^.278^.205^.027^3.1^.1^.3^.01^^.43^.55^.32^148^.4^^^1.1
+15 ;;^UTILITY(U,$J,112,2369,3)
+16 ;;=.019^.074^.09^.144^.145^.049^.019^.076^.065^.102^.132^.043^.114^.171^.3^.115^.107^.069
+17 ;;^UTILITY(U,$J,112,2369,4)
+18 ;;=^0^.01^.31^.08^.09^.48^.01
+19 ;;^UTILITY(U,$J,112,2369,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2370,0)
+22 ;;=BF, DINNER, VEG & TURKEY, JNR^3-085^jars^213^100^N
+23 ;;^UTILITY(U,$J,112,2370,1)
+24 ;;=1.7^1.2^7.7^47^89^^^13^.32^9^19^25^17^.253^.026^^^896^1.1^.015
+25 ;;^UTILITY(U,$J,112,2370,2)
+26 ;;=.017^.25^.212^.025^2.9^.09^^^^^^^115^.4^^^1.1
+27 ;;^UTILITY(U,$J,112,2370,3)
+28 ;;=.018^.068^.082^.132^.125^.038^.018^.064^.058^.096^.107^.036^.107^.171^.27^.105^.091^.063
+29 ;;^UTILITY(U,$J,112,2370,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2371,0)
+32 ;;=BF, DINNER, VEG & TURKEY, TODDLER^3-086^jars^177^100^N
+33 ;;^UTILITY(U,$J,112,2371,1)
+34 ;;=4.8^3.4^8^80^82.3^^^46^.6^16^57^166^334^.32^.042^^^2099^3.4^.02
+35 ;;^UTILITY(U,$J,112,2371,2)
+36 ;;=.09^.586^^.06^3^.44^^^^^^^269^1.4
+37 ;;^UTILITY(U,$J,112,2371,3)
+38 ;;=.06^.186^.249^.389^.331^.088^.052^.2^.174^.278^.295^.114^.229^.48^.915^.192^.333^.193
+39 ;;^UTILITY(U,$J,112,2371,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2372,0)
+42 ;;=BF, DINNER, VEG & LIVER, JNR^3-088^jars^213^100^N
+43 ;;^UTILITY(U,$J,112,2372,1)
+44 ;;=1.8^.6^8.2^44^88.9^^^10^1.81^12^38^89^13^.382^.207^^^3929^1.8^.022
+45 ;;^UTILITY(U,$J,112,2372,2)
+46 ;;=.225^1.155^^.099^32^1.81^^^^^^^715^.5^^^1.1
+47 ;;^UTILITY(U,$J,112,2372,3)
+48 ;;=.027^.074^.086^.159^.136^.042^.024^.086^.063^.114^.109^.044^.109^.185^.27^.097^.097^.071
+49 ;;^UTILITY(U,$J,112,2372,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,2373,0)
+52 ;;=BF, DINNER, MACARONI & CHEESE, JUNIOR^3-090^jars^213^100^N
+53 ;;^UTILITY(U,$J,112,2373,1)
+54 ;;=2.6^2^8.2^61^86.5^^^51^.3^7^59^44^76^.32^.021^^^13^1.3^.056
+55 ;;^UTILITY(U,$J,112,2373,2)
+56 ;;=.064^.545^^.016^1.5^.03^^^^^^^3^.7^^^.3
+57 ;;^UTILITY(U,$J,112,2373,3)
+58 ;;=.032^.078^.13^.234^.148^.09^.032^.132^.123^.147^.102^.062^.085^.167^.665^.058^.293^.104
+59 ;;^UTILITY(U,$J,112,2373,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,2374,0)
+62 ;;=BF, VEGETABLES, GREEN BEANS, JNR^3-092^jars^206^100^N
+63 ;;^UTILITY(U,$J,112,2374,1)
+64 ;;=1.2^.1^5.7^25^92.5^^^65^1.08^22^19^128^2^.193^.049^^^433^8.4^.021
+65 ;;^UTILITY(U,$J,112,2374,2)
+66 ;;=.102^.321^.151^.035^32.7^0^^^^^^^43^.4^^^1.9
+67 ;;^UTILITY(U,$J,112,2374,3)
+68 ;;=.014^.051^.054^.078^.059^.018^.01^.049^.042^.065^.066^.033^.056^.234^.157^.049^.061^.063
+69 ;;^UTILITY(U,$J,112,2374,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2375,0)
+72 ;;=BF, VEGETABLES, GREEN BEANS, BUTTERED, STR^3-094^jars^128^100^N
+73 ;;^UTILITY(U,$J,112,2375,1)
+74 ;;=1.2^.8^6.6^33^90.8^^^64^1.28^^^160^3^^^^^456^8.3^.019
+75 ;;^UTILITY(U,$J,112,2375,2)
+76 ;;=.106^.34^^^28.5^^^^^^^^46^.6
+77 ;;^UTILITY(U,$J,112,2375,3)
+78 ;;=.014^.051^.054^.078^.059^.018^.01^.049^.042^.065^.066^.033^.056^.234^.157^.049^.061^.063
+79 ;;^UTILITY(U,$J,112,2375,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,2376,0)
+82 ;;=BF, VEGETABLES, GREEN BEANS, BUTTERED, JNR^3-095^jars^206^100^N
+83 ;;^UTILITY(U,$J,112,2376,1)
+84 ;;=1.3^.9^6.1^32^91.2^^^69^1.15^^^171^2^^^^^382^8.6^.013
+85 ;;^UTILITY(U,$J,112,2376,2)
+86 ;;=.113^.316^^^27.3^^^^^^^^38^.5
+87 ;;^UTILITY(U,$J,112,2376,3)
+88 ;;=.015^.055^.058^.085^.064^.019^.011^.053^.046^.07^.071^.036^.06^.253^.17^.053^.066^.068
+89 ;;^UTILITY(U,$J,112,2376,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2377,0)
+92 ;;=BF, VEGETABLES, GREEN BEANS, CREAMED, JNR^3-097^jars^213^100^N
+93 ;;^UTILITY(U,$J,112,2377,1)
+94 ;;=1^.4^7.2^32^90.9^^^32^.26^7^19^65^12^.16^.059^^^150^2.7^.023
+95 ;;^UTILITY(U,$J,112,2377,2)
+96 ;;=.054^.233^.183^.012^39.7^.05^^^^^^^15^.5^^^1.6
+97 ;;^UTILITY(U,$J,112,2377,3)
+98 ;;=.015^.038^.048^.078^.043^.022^.011^.045^.043^.058^.048^.023^.043^.097^.194^.033^.098^.043
+99 ;;^UTILITY(U,$J,112,2377,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,2378,0)
+102 ;;=BF, VEGETABLES, CARROTS, JNR^3-100^jars^213^100^N
+103 ;;^UTILITY(U,$J,112,2378,1)
+104 ;;=.8^.2^7.2^32^91^^^23^.39^11^20^202^49^.176^.047^^^11810^5.5^.024
