FHINI02T ; ; 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,842,4)
;;=.016^.009^.023^.411^.021^.043^.902^^7
;;^UTILITY(U,$J,112,842,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,843,0)
;;=BULGUR, COOKED^20-013^cups^182^100^N
;;^UTILITY(U,$J,112,843,1)
;;=3.08^.24^18.58^83^77.76^^^10^.96^32^40^68^5^.57^.075^.609^^0^0^.057
;;^UTILITY(U,$J,112,843,2)
;;=.028^1^.344^.083^18^0^.094^.004^0^.042^.031^.098^0^.34^^^4.5
;;^UTILITY(U,$J,112,843,3)
;;=.048^.089^.114^.208^.085^.048^.071^.145^.09^.139^.144^.071^.109^.158^.973^.124^.32^.145
;;^UTILITY(U,$J,112,843,4)
;;=^^0^.037^.001^.002^.03
;;^UTILITY(U,$J,112,843,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,844,0)
;;=BULGUR, CND, SEASONED, W/ONION/SLT/MSG^501-0^cups^135^^N
;;^UTILITY(U,$J,112,844,1)
;;=6.2^3.3^32.8^182^56^^^20^1.4^^195^112^460^^^^^0^0^.06
;;^UTILITY(U,$J,112,844,2)
;;=.04^3^^^^^1^^0^1
;;^UTILITY(U,$J,112,844,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,845,0)
;;=CABBAGE, RAW^11-109^cups^90^80^N
;;^UTILITY(U,$J,112,845,1)
;;=1.44^.27^5.43^25^92.15^^^47^.59^15^23^246^18^.18^.023^.159^^133^32.2^.05
;;^UTILITY(U,$J,112,845,2)
;;=.04^.3^.14^.096^43^0^.052^.068^0^.033^.019^.122^13^.71^^^2.1
;;^UTILITY(U,$J,112,845,3)
;;=.015^.049^.072^.073^.067^.014^.012^.045^.024^.061^.081^.029^.05^.14^.316^.032^.279^.083
;;^UTILITY(U,$J,112,845,4)
;;=0^.001^.001^.029^0^.001^.019^.001^145^.9
;;^UTILITY(U,$J,112,845,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,846,0)
;;=CABBAGE, SHREDDED, CKD WO/SALT^11-110^cups^145^100^N
;;^UTILITY(U,$J,112,846,1)
;;=1.02^.43^4.46^22^93.6^^^31^.17^8^15^97^8^.09^.012^.117^^132^20.1^.057
;;^UTILITY(U,$J,112,846,2)
;;=.055^.282^.139^.113^20^0^.085^.11^0^.053^.03^.196^13^.49^^^2.8
;;^UTILITY(U,$J,112,846,3)
;;=.01^.035^.051^.052^.047^.01^.008^.032^.017^.043^.057^.02^.035^.099^.224^.022^.197^.059
;;^UTILITY(U,$J,112,846,4)
;;=0^.001^.002^.047^0^.002^.03^.001^^.6
;;^UTILITY(U,$J,112,846,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,847,0)
;;=CABBAGE, SHREDDED, CKD W/SALT^11-751^cups^145^100^N
;;^UTILITY(U,$J,112,847,1)
;;=1.02^.43^4.46^22^93.6^^^31^.17^8^15^97^255^.09^.012^.117^^132^20.1^.057
;;^UTILITY(U,$J,112,847,2)
;;=.055^.282^.139^.113^20^0^.085^.11^0^.053^.03^.196^13^.49^^^2.8
;;^UTILITY(U,$J,112,847,3)
;;=.01^.035^.051^.052^.047^.01^.008^.032^.017^.043^.057^.02^.035^.099^.224^.022^.197^.059
;;^UTILITY(U,$J,112,847,4)
;;=0^.001^.002^.047^0^.002^.03^.001
;;^UTILITY(U,$J,112,847,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,850,0)
;;=CABBAGE, RED, RAW^11-112^cups^70^80^N
;;^UTILITY(U,$J,112,850,1)
;;=1.39^.26^6.12^27^91.55^^^51^.49^15^42^206^11^.21^.097^.18^^40^57^.05
;;^UTILITY(U,$J,112,850,2)
;;=.03^.3^.324^.21^20.7^0^.051^.067^0^.034^.019^.125^4^.68^^^3.9
;;^UTILITY(U,$J,112,850,3)
;;=.014^.048^.07^.072^.065^.014^.012^.044^.024^.059^.079^.028^.048^.137^.309^.031^.272^.081
;;^UTILITY(U,$J,112,850,4)
;;=0^.001^.001^.028^0^.001^.018^.001^44
;;^UTILITY(U,$J,112,850,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,851,0)
;;=CABBAGE, SAVOY, RAW^11-114^cups^70^81^N
;;^UTILITY(U,$J,112,851,1)
;;=2^.1^6.1^27^91^^^35^.4^28^42^230^28^.27^.062^.18^^1000^31^.07
;;^UTILITY(U,$J,112,851,2)
;;=.03^.3^.187^.19^80.2^0^.02^.026^0^.013^.007^.048^100^.8^^^3.8
;;^UTILITY(U,$J,112,851,3)
;;=.02^.069^.101^.103^.094^.02^.017^.064^.034^.085^.114^.041^.07^.197^.445^.044^.393^.116
;;^UTILITY(U,$J,112,851,4)
;;=0^0^0^.011^0^.001^.007^0
;;^UTILITY(U,$J,112,851,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,852,0)
;;=CABBAGE, CHINESE, RAW^11-119^cups^75^93^N
;;^UTILITY(U,$J,112,852,1)
;;=1.2^.2^3.23^16^94.39^^^77^.31^13^29^238^9^.23^.036^.19^^1200^27^.04
;;^UTILITY(U,$J,112,852,2)
;;=.05^.4^.105^.232^78.7^0^.015^.057^0^.043^.023^.072^120^.98^^^1
;;^UTILITY(U,$J,112,852,3)
;;=.012^.039^.068^.07^.071^.007^.013^.035^.023^.053^.067^.021^.069^.086^.288^.035^.025^.038
;;^UTILITY(U,$J,112,852,4)
;;=^^^.038^.002^.005^.021
;;^UTILITY(U,$J,112,852,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,853,0)
;;=CABBAGE, SPOON(WHT MUSTARD OR PAKCHOY)^11-116^cups^70^88^N
;;^UTILITY(U,$J,112,853,1)
;;=1.5^.2^2.18^13^95.32^^^105^.8^19^37^252^65^.19^.021^.159^^3000^45^.04
;;^UTILITY(U,$J,112,853,2)
;;=.07^.5^.088^.194^65.7^0^.039^.051^0^.026^.015^.096^300^.8^^^1
;;^UTILITY(U,$J,112,853,3)
;;=.015^.049^.085^.088^.089^.009^.017^.044^.029^.066^.084^.026^.086^.108^.36^.043^.031^.048
FHINI02T ; ; 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,842,4)
+2 ;;=.016^.009^.023^.411^.021^.043^.902^^7
+3 ;;^UTILITY(U,$J,112,842,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,843,0)
+6 ;;=BULGUR, COOKED^20-013^cups^182^100^N
+7 ;;^UTILITY(U,$J,112,843,1)
+8 ;;=3.08^.24^18.58^83^77.76^^^10^.96^32^40^68^5^.57^.075^.609^^0^0^.057
+9 ;;^UTILITY(U,$J,112,843,2)
+10 ;;=.028^1^.344^.083^18^0^.094^.004^0^.042^.031^.098^0^.34^^^4.5
+11 ;;^UTILITY(U,$J,112,843,3)
+12 ;;=.048^.089^.114^.208^.085^.048^.071^.145^.09^.139^.144^.071^.109^.158^.973^.124^.32^.145
+13 ;;^UTILITY(U,$J,112,843,4)
+14 ;;=^^0^.037^.001^.002^.03
+15 ;;^UTILITY(U,$J,112,843,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,844,0)
+18 ;;=BULGUR, CND, SEASONED, W/ONION/SLT/MSG^501-0^cups^135^^N
+19 ;;^UTILITY(U,$J,112,844,1)
+20 ;;=6.2^3.3^32.8^182^56^^^20^1.4^^195^112^460^^^^^0^0^.06
+21 ;;^UTILITY(U,$J,112,844,2)
+22 ;;=.04^3^^^^^1^^0^1
+23 ;;^UTILITY(U,$J,112,844,20)
+24 ;;=USDA Std. Reference, Release 8
+25 ;;^UTILITY(U,$J,112,845,0)
+26 ;;=CABBAGE, RAW^11-109^cups^90^80^N
+27 ;;^UTILITY(U,$J,112,845,1)
+28 ;;=1.44^.27^5.43^25^92.15^^^47^.59^15^23^246^18^.18^.023^.159^^133^32.2^.05
+29 ;;^UTILITY(U,$J,112,845,2)
+30 ;;=.04^.3^.14^.096^43^0^.052^.068^0^.033^.019^.122^13^.71^^^2.1
+31 ;;^UTILITY(U,$J,112,845,3)
+32 ;;=.015^.049^.072^.073^.067^.014^.012^.045^.024^.061^.081^.029^.05^.14^.316^.032^.279^.083
+33 ;;^UTILITY(U,$J,112,845,4)
+34 ;;=0^.001^.001^.029^0^.001^.019^.001^145^.9
+35 ;;^UTILITY(U,$J,112,845,20)
+36 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+37 ;;^UTILITY(U,$J,112,846,0)
+38 ;;=CABBAGE, SHREDDED, CKD WO/SALT^11-110^cups^145^100^N
+39 ;;^UTILITY(U,$J,112,846,1)
+40 ;;=1.02^.43^4.46^22^93.6^^^31^.17^8^15^97^8^.09^.012^.117^^132^20.1^.057
+41 ;;^UTILITY(U,$J,112,846,2)
+42 ;;=.055^.282^.139^.113^20^0^.085^.11^0^.053^.03^.196^13^.49^^^2.8
+43 ;;^UTILITY(U,$J,112,846,3)
+44 ;;=.01^.035^.051^.052^.047^.01^.008^.032^.017^.043^.057^.02^.035^.099^.224^.022^.197^.059
+45 ;;^UTILITY(U,$J,112,846,4)
+46 ;;=0^.001^.002^.047^0^.002^.03^.001^^.6
+47 ;;^UTILITY(U,$J,112,846,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,847,0)
+50 ;;=CABBAGE, SHREDDED, CKD W/SALT^11-751^cups^145^100^N
+51 ;;^UTILITY(U,$J,112,847,1)
+52 ;;=1.02^.43^4.46^22^93.6^^^31^.17^8^15^97^255^.09^.012^.117^^132^20.1^.057
+53 ;;^UTILITY(U,$J,112,847,2)
+54 ;;=.055^.282^.139^.113^20^0^.085^.11^0^.053^.03^.196^13^.49^^^2.8
+55 ;;^UTILITY(U,$J,112,847,3)
+56 ;;=.01^.035^.051^.052^.047^.01^.008^.032^.017^.043^.057^.02^.035^.099^.224^.022^.197^.059
+57 ;;^UTILITY(U,$J,112,847,4)
+58 ;;=0^.001^.002^.047^0^.002^.03^.001
+59 ;;^UTILITY(U,$J,112,847,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,850,0)
+62 ;;=CABBAGE, RED, RAW^11-112^cups^70^80^N
+63 ;;^UTILITY(U,$J,112,850,1)
+64 ;;=1.39^.26^6.12^27^91.55^^^51^.49^15^42^206^11^.21^.097^.18^^40^57^.05
+65 ;;^UTILITY(U,$J,112,850,2)
+66 ;;=.03^.3^.324^.21^20.7^0^.051^.067^0^.034^.019^.125^4^.68^^^3.9
+67 ;;^UTILITY(U,$J,112,850,3)
+68 ;;=.014^.048^.07^.072^.065^.014^.012^.044^.024^.059^.079^.028^.048^.137^.309^.031^.272^.081
+69 ;;^UTILITY(U,$J,112,850,4)
+70 ;;=0^.001^.001^.028^0^.001^.018^.001^44
+71 ;;^UTILITY(U,$J,112,850,20)
+72 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+73 ;;^UTILITY(U,$J,112,851,0)
+74 ;;=CABBAGE, SAVOY, RAW^11-114^cups^70^81^N
+75 ;;^UTILITY(U,$J,112,851,1)
+76 ;;=2^.1^6.1^27^91^^^35^.4^28^42^230^28^.27^.062^.18^^1000^31^.07
+77 ;;^UTILITY(U,$J,112,851,2)
+78 ;;=.03^.3^.187^.19^80.2^0^.02^.026^0^.013^.007^.048^100^.8^^^3.8
+79 ;;^UTILITY(U,$J,112,851,3)
+80 ;;=.02^.069^.101^.103^.094^.02^.017^.064^.034^.085^.114^.041^.07^.197^.445^.044^.393^.116
+81 ;;^UTILITY(U,$J,112,851,4)
+82 ;;=0^0^0^.011^0^.001^.007^0
+83 ;;^UTILITY(U,$J,112,851,20)
+84 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+85 ;;^UTILITY(U,$J,112,852,0)
+86 ;;=CABBAGE, CHINESE, RAW^11-119^cups^75^93^N
+87 ;;^UTILITY(U,$J,112,852,1)
+88 ;;=1.2^.2^3.23^16^94.39^^^77^.31^13^29^238^9^.23^.036^.19^^1200^27^.04
+89 ;;^UTILITY(U,$J,112,852,2)
+90 ;;=.05^.4^.105^.232^78.7^0^.015^.057^0^.043^.023^.072^120^.98^^^1
+91 ;;^UTILITY(U,$J,112,852,3)
+92 ;;=.012^.039^.068^.07^.071^.007^.013^.035^.023^.053^.067^.021^.069^.086^.288^.035^.025^.038
+93 ;;^UTILITY(U,$J,112,852,4)
+94 ;;=^^^.038^.002^.005^.021
+95 ;;^UTILITY(U,$J,112,852,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,853,0)
+98 ;;=CABBAGE, SPOON(WHT MUSTARD OR PAKCHOY)^11-116^cups^70^88^N
+99 ;;^UTILITY(U,$J,112,853,1)
+100 ;;=1.5^.2^2.18^13^95.32^^^105^.8^19^37^252^65^.19^.021^.159^^3000^45^.04
+101 ;;^UTILITY(U,$J,112,853,2)
+102 ;;=.07^.5^.088^.194^65.7^0^.039^.051^0^.026^.015^.096^300^.8^^^1
+103 ;;^UTILITY(U,$J,112,853,3)
+104 ;;=.015^.049^.085^.088^.089^.009^.017^.044^.029^.066^.084^.026^.086^.108^.36^.043^.031^.048
