FHINI06T ; ; 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,2330,1)
;;=1.5^.2^25^^72.5^^^161^.8^22^21^212^3^^^^^420^136^.12
;;^UTILITY(U,$J,112,2330,2)
;;=.09^.9^.49^.176^^0^.029^.011^0^.024^.036^.04^42^.8^^^3.4
;;^UTILITY(U,$J,112,2330,4)
;;=^^.001^.021^.005^.001^.032
;;^UTILITY(U,$J,112,2330,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2331,0)
;;=PIGEON PEAS (RED GRAM), BOILED, WO/SALT^16-102^cups^168^100^N
;;^UTILITY(U,$J,112,2331,1)
;;=6.76^.38^23.25^121^68.55^^^43^1.11^46^119^384^5^.9^.269^.501^^3^0^.146
;;^UTILITY(U,$J,112,2331,2)
;;=.059^.781^.319^.05^110.8^0^.196^.009^0^.083^.003^.205^0^1.06
;;^UTILITY(U,$J,112,2331,3)
;;=.066^.239^.245^.483^.474^.076^.078^.579^.168^.292^.405^.241^.303^.669^1.568^.25^.298^.32
;;^UTILITY(U,$J,112,2331,4)
;;=^^^.077^^.006^.003
;;^UTILITY(U,$J,112,2331,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2359,0)
;;=BF, DINNER, VEG & HAM, TODDLER^3-063^jars^177^100^N
;;^UTILITY(U,$J,112,2359,1)
;;=4.2^3^7.9^72^83.6^^^23^.7^17^40^153^300^.47^.04^^^355^3.7^.043
;;^UTILITY(U,$J,112,2359,2)
;;=.055^.699^^.086^5^.14^.29^.02^7.7^1.05^1.43^.33^47^1.4^^^1.1
;;^UTILITY(U,$J,112,2359,3)
;;=.057^.17^.209^.325^.305^.081^.047^.181^.142^.229^.266^.114^.217^.473^.702^.2^.223^.177
;;^UTILITY(U,$J,112,2359,4)
;;=0^0^.04^.67^.08^.31^1.31^.01
;;^UTILITY(U,$J,112,2359,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2360,0)
;;=BF, DINNER, MACARONI & HAM, JUNIOR^3-064^jars^213^100^N
;;^UTILITY(U,$J,112,2360,1)
;;=3.2^1.4^8.5^60^86.5^^^75^.38^7^59^106^47^.356^.021^^^526^2.2^.057
;;^UTILITY(U,$J,112,2360,2)
;;=.097^.812^^.016^2^.03^^^^^^^69^.5
;;^UTILITY(U,$J,112,2360,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2361,0)
;;=BF, DINNER, LAMB & NOODLES, JUNIOR^3-065^jars^213^100^N
;;^UTILITY(U,$J,112,2361,1)
;;=2.3^2.2^8.7^65^86.5^^^18^.36^8^58^77^18^.262^.034^^^783^1.9^.036
;;^UTILITY(U,$J,112,2361,2)
;;=.065^.67^.188^.052^4.3^.19^^^^^^^105^.3
;;^UTILITY(U,$J,112,2361,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2362,0)
;;=BF, DINNER, VEG & LAMB, JNR^3-067^jars^213^100^N
;;^UTILITY(U,$J,112,2362,1)
;;=2.1^1.7^7.1^51^88.6^^^13^.34^7^49^95^13^.221^.029^^^1483^1.7^.021
;;^UTILITY(U,$J,112,2362,2)
;;=.032^.554^.159^.044^3.6^.16^^^^^^^199^.5^^^1.1
;;^UTILITY(U,$J,112,2362,3)
;;=.024^.077^.095^.155^.154^.031^.018^.083^.066^.102^.141^.048^.12^.209^.418^.105^.115^.077
;;^UTILITY(U,$J,112,2362,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2363,0)
;;=BF, DINNER, CHICKEN NOODLE, JNR^3-069^jars^213^100^N
;;^UTILITY(U,$J,112,2363,1)
;;=1.9^1.4^7.5^51^88.7^^^17^.39^9^24^35^17^.294^.039^^^895^1.2^.029
;;^UTILITY(U,$J,112,2363,2)
;;=.031^.515^.226^.026^5.3^.13^^^^^^^107^.4^^^1.1
;;^UTILITY(U,$J,112,2363,3)
;;=.022^.081^.1^.165^.141^.039^.024^.089^.072^.114^.125^.047^.104^.179^.392^.101^.131^.082
;;^UTILITY(U,$J,112,2363,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2364,0)
;;=BF, DINNER, CHICKEN SOUP, STRAINED^3-070^jars^128^100^N
;;^UTILITY(U,$J,112,2364,1)
;;=1.6^1.7^7.2^50^89.1^^^37^.27^5^24^66^16^.22^.279^^^1384^1^.017
;;^UTILITY(U,$J,112,2364,2)
;;=.032^.293^^.037^5.2^.12^^^^^^^221^.4^^^1.1
;;^UTILITY(U,$J,112,2364,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2365,0)
;;=BF, DINNER, CHICKEN SOUP, CREAM OF, STRAINED^3-071^jars^128^100^N
;;^UTILITY(U,$J,112,2365,1)
;;=2.5^1.6^8.4^58^87.1^^^35^.3^6^29^78^19^.26^.33^^^726^1.3^.008
;;^UTILITY(U,$J,112,2365,2)
;;=.044^.375^^.044^6.2^.06^^^^^^^116^.4^^^0
;;^UTILITY(U,$J,112,2365,3)
;;=.03^.106^.122^.206^.184^.051^.027^.107^.093^.143^.154^.059^.133^.227^.446^.131^.158^.103
;;^UTILITY(U,$J,112,2365,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2366,0)
;;=BF, DINNER, CHICKEN STEW, TODDLER^3-072^jars^170^100^N
;;^UTILITY(U,$J,112,2366,1)
;;=5.2^3.7^6.4^78^83.3^^^36^.66^10^51^92^402^.41^.02^^^1010^1.9^.031
;;^UTILITY(U,$J,112,2366,2)
;;=.074^1.153^^.046^1^.14^.73^.03^28.69^1.1^1.7^.77^121^1.4^^^.6
;;^UTILITY(U,$J,112,2366,3)
;;=.057^.221^.257^.405^.41^.112^.052^.213^.172^.292^.331^.128^.298^.471^.898^.295^.354^.209
;;^UTILITY(U,$J,112,2366,4)
;;=.01^.01^.05^.74^.14^.22^1.54^.02
;;^UTILITY(U,$J,112,2366,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2367,0)
;;=BF, DINNER, VEGETABLES, NOODLES AND CHICKEN, JNR^3-076^jars^213^100^N
;;^UTILITY(U,$J,112,2367,1)
;;=1.7^2.2^9.1^64^86.2^^^26^.49^11^33^59^26^.32^.058^^^1051^.8^.042
;;^UTILITY(U,$J,112,2367,2)
;;=.037^.675^.204^.023^3.4^.09^^^^^^^130^.7^^^1.1
;;^UTILITY(U,$J,112,2367,20)
;;=USDA Std. Reference, Release 10
FHINI06T ; ; 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,2330,1)
+2 ;;=1.5^.2^25^^72.5^^^161^.8^22^21^212^3^^^^^420^136^.12
+3 ;;^UTILITY(U,$J,112,2330,2)
+4 ;;=.09^.9^.49^.176^^0^.029^.011^0^.024^.036^.04^42^.8^^^3.4
+5 ;;^UTILITY(U,$J,112,2330,4)
+6 ;;=^^.001^.021^.005^.001^.032
+7 ;;^UTILITY(U,$J,112,2330,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2331,0)
+10 ;;=PIGEON PEAS (RED GRAM), BOILED, WO/SALT^16-102^cups^168^100^N
+11 ;;^UTILITY(U,$J,112,2331,1)
+12 ;;=6.76^.38^23.25^121^68.55^^^43^1.11^46^119^384^5^.9^.269^.501^^3^0^.146
+13 ;;^UTILITY(U,$J,112,2331,2)
+14 ;;=.059^.781^.319^.05^110.8^0^.196^.009^0^.083^.003^.205^0^1.06
+15 ;;^UTILITY(U,$J,112,2331,3)
+16 ;;=.066^.239^.245^.483^.474^.076^.078^.579^.168^.292^.405^.241^.303^.669^1.568^.25^.298^.32
+17 ;;^UTILITY(U,$J,112,2331,4)
+18 ;;=^^^.077^^.006^.003
+19 ;;^UTILITY(U,$J,112,2331,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2359,0)
+22 ;;=BF, DINNER, VEG & HAM, TODDLER^3-063^jars^177^100^N
+23 ;;^UTILITY(U,$J,112,2359,1)
+24 ;;=4.2^3^7.9^72^83.6^^^23^.7^17^40^153^300^.47^.04^^^355^3.7^.043
+25 ;;^UTILITY(U,$J,112,2359,2)
+26 ;;=.055^.699^^.086^5^.14^.29^.02^7.7^1.05^1.43^.33^47^1.4^^^1.1
+27 ;;^UTILITY(U,$J,112,2359,3)
+28 ;;=.057^.17^.209^.325^.305^.081^.047^.181^.142^.229^.266^.114^.217^.473^.702^.2^.223^.177
+29 ;;^UTILITY(U,$J,112,2359,4)
+30 ;;=0^0^.04^.67^.08^.31^1.31^.01
+31 ;;^UTILITY(U,$J,112,2359,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2360,0)
+34 ;;=BF, DINNER, MACARONI & HAM, JUNIOR^3-064^jars^213^100^N
+35 ;;^UTILITY(U,$J,112,2360,1)
+36 ;;=3.2^1.4^8.5^60^86.5^^^75^.38^7^59^106^47^.356^.021^^^526^2.2^.057
+37 ;;^UTILITY(U,$J,112,2360,2)
+38 ;;=.097^.812^^.016^2^.03^^^^^^^69^.5
+39 ;;^UTILITY(U,$J,112,2360,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2361,0)
+42 ;;=BF, DINNER, LAMB & NOODLES, JUNIOR^3-065^jars^213^100^N
+43 ;;^UTILITY(U,$J,112,2361,1)
+44 ;;=2.3^2.2^8.7^65^86.5^^^18^.36^8^58^77^18^.262^.034^^^783^1.9^.036
+45 ;;^UTILITY(U,$J,112,2361,2)
+46 ;;=.065^.67^.188^.052^4.3^.19^^^^^^^105^.3
+47 ;;^UTILITY(U,$J,112,2361,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2362,0)
+50 ;;=BF, DINNER, VEG & LAMB, JNR^3-067^jars^213^100^N
+51 ;;^UTILITY(U,$J,112,2362,1)
+52 ;;=2.1^1.7^7.1^51^88.6^^^13^.34^7^49^95^13^.221^.029^^^1483^1.7^.021
+53 ;;^UTILITY(U,$J,112,2362,2)
+54 ;;=.032^.554^.159^.044^3.6^.16^^^^^^^199^.5^^^1.1
+55 ;;^UTILITY(U,$J,112,2362,3)
+56 ;;=.024^.077^.095^.155^.154^.031^.018^.083^.066^.102^.141^.048^.12^.209^.418^.105^.115^.077
+57 ;;^UTILITY(U,$J,112,2362,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2363,0)
+60 ;;=BF, DINNER, CHICKEN NOODLE, JNR^3-069^jars^213^100^N
+61 ;;^UTILITY(U,$J,112,2363,1)
+62 ;;=1.9^1.4^7.5^51^88.7^^^17^.39^9^24^35^17^.294^.039^^^895^1.2^.029
+63 ;;^UTILITY(U,$J,112,2363,2)
+64 ;;=.031^.515^.226^.026^5.3^.13^^^^^^^107^.4^^^1.1
+65 ;;^UTILITY(U,$J,112,2363,3)
+66 ;;=.022^.081^.1^.165^.141^.039^.024^.089^.072^.114^.125^.047^.104^.179^.392^.101^.131^.082
+67 ;;^UTILITY(U,$J,112,2363,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,2364,0)
+70 ;;=BF, DINNER, CHICKEN SOUP, STRAINED^3-070^jars^128^100^N
+71 ;;^UTILITY(U,$J,112,2364,1)
+72 ;;=1.6^1.7^7.2^50^89.1^^^37^.27^5^24^66^16^.22^.279^^^1384^1^.017
+73 ;;^UTILITY(U,$J,112,2364,2)
+74 ;;=.032^.293^^.037^5.2^.12^^^^^^^221^.4^^^1.1
+75 ;;^UTILITY(U,$J,112,2364,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2365,0)
+78 ;;=BF, DINNER, CHICKEN SOUP, CREAM OF, STRAINED^3-071^jars^128^100^N
+79 ;;^UTILITY(U,$J,112,2365,1)
+80 ;;=2.5^1.6^8.4^58^87.1^^^35^.3^6^29^78^19^.26^.33^^^726^1.3^.008
+81 ;;^UTILITY(U,$J,112,2365,2)
+82 ;;=.044^.375^^.044^6.2^.06^^^^^^^116^.4^^^0
+83 ;;^UTILITY(U,$J,112,2365,3)
+84 ;;=.03^.106^.122^.206^.184^.051^.027^.107^.093^.143^.154^.059^.133^.227^.446^.131^.158^.103
+85 ;;^UTILITY(U,$J,112,2365,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2366,0)
+88 ;;=BF, DINNER, CHICKEN STEW, TODDLER^3-072^jars^170^100^N
+89 ;;^UTILITY(U,$J,112,2366,1)
+90 ;;=5.2^3.7^6.4^78^83.3^^^36^.66^10^51^92^402^.41^.02^^^1010^1.9^.031
+91 ;;^UTILITY(U,$J,112,2366,2)
+92 ;;=.074^1.153^^.046^1^.14^.73^.03^28.69^1.1^1.7^.77^121^1.4^^^.6
+93 ;;^UTILITY(U,$J,112,2366,3)
+94 ;;=.057^.221^.257^.405^.41^.112^.052^.213^.172^.292^.331^.128^.298^.471^.898^.295^.354^.209
+95 ;;^UTILITY(U,$J,112,2366,4)
+96 ;;=.01^.01^.05^.74^.14^.22^1.54^.02
+97 ;;^UTILITY(U,$J,112,2366,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2367,0)
+100 ;;=BF, DINNER, VEGETABLES, NOODLES AND CHICKEN, JNR^3-076^jars^213^100^N
+101 ;;^UTILITY(U,$J,112,2367,1)
+102 ;;=1.7^2.2^9.1^64^86.2^^^26^.49^11^33^59^26^.32^.058^^^1051^.8^.042
+103 ;;^UTILITY(U,$J,112,2367,2)
+104 ;;=.037^.675^.204^.023^3.4^.09^^^^^^^130^.7^^^1.1
+105 ;;^UTILITY(U,$J,112,2367,20)
+106 ;;=USDA Std. Reference, Release 10
