FHINI03B ; ; 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,1033,2)
;;=.053^.96^.18^.063^44.8^0^.193^.006^0^.065^.123^.198^0^.98^^^1.2
;;^UTILITY(U,$J,112,1033,3)
;;=.012^.07^.07^.188^.074^.036^.014^.081^.066^.1^.071^.048^.159^.132^.343^.068^.158^.083
;;^UTILITY(U,$J,112,1033,4)
;;=^^^.061^^.004^.123
;;^UTILITY(U,$J,112,1033,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1034,0)
;;=CORN, YEL, CND^11-170^cups^256^100^N
;;^UTILITY(U,$J,112,1034,1)
;;=1.94^.45^14.83^61^81.9^^^4^.35^16^51^153^253^.36^.056^.033^^120^6.7^.026
;;^UTILITY(U,$J,112,1034,2)
;;=.061^.939^.522^.037^38.1^0^.204^.006^0^.069^.13^.21^12^.89^^^.7
;;^UTILITY(U,$J,112,1034,3)
;;=.014^.078^.078^.209^.082^.04^.016^.09^.074^.111^.079^.053^.177^.147^.383^.076^.176^.092
;;^UTILITY(U,$J,112,1034,4)
;;=^^^.064^^.004^.13
;;^UTILITY(U,$J,112,1034,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1035,0)
;;=CORN, WHITE, CND^11-903^cups^256^100^N
;;^UTILITY(U,$J,112,1035,1)
;;=1.94^.45^14.83^61^81.9^^^4^.35^16^51^153^253^.36^.056^.033^^0^6.7^.026
;;^UTILITY(U,$J,112,1035,2)
;;=.061^.939^.522^.037^38.1^0^.204^.006^0^.069^.13^.21^0^.89
;;^UTILITY(U,$J,112,1035,3)
;;=.014^.078^.078^.209^.082^.04^.016^.09^.074^.111^.079^.053^.177^.147^.383^.076^.176^.092
;;^UTILITY(U,$J,112,1035,4)
;;=^^^.064^^.004^.13
;;^UTILITY(U,$J,112,1035,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1036,0)
;;=CORN, YEL, CND, DRAINED SOLIDS^11-172^cups^165^100^N
;;^UTILITY(U,$J,112,1036,1)
;;=2.62^1^18.59^81^76.92^^^5^.86^20^65^195^323^.39^.058^.173^^156^8.5^.033
;;^UTILITY(U,$J,112,1036,2)
;;=.078^1.197^.666^.047^48.6^0^.457^.014^0^.154^.292^.471^16^.87^^^1.9
;;^UTILITY(U,$J,112,1036,3)
;;=.018^.105^.105^.284^.112^.055^.021^.122^.1^.151^.107^.072^.24^.199^.518^.103^.238^.125
;;^UTILITY(U,$J,112,1036,4)
;;=^^^.144^^.01^.292^^^.7
;;^UTILITY(U,$J,112,1036,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1037,0)
;;=CORN, WHITE, CND, DRAINED SOLIDS^11-905^cups^165^100^N
;;^UTILITY(U,$J,112,1037,1)
;;=2.62^1^18.59^81^76.92^^^5^.86^20^65^195^323^.39^.058^.173^^0^8.5^.033
;;^UTILITY(U,$J,112,1037,2)
;;=.078^1.197^.666^.047^48.6^0^.457^.014^0^.154^.292^.471^0^.87^^^1.4
;;^UTILITY(U,$J,112,1037,3)
;;=.018^.105^.105^.284^.112^.055^.021^.122^.1^.151^.107^.072^.24^.199^.518^.103^.238^.125
;;^UTILITY(U,$J,112,1037,4)
;;=^^^.144^^.01^.292
;;^UTILITY(U,$J,112,1037,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1038,0)
;;=CORN, YEL, CND, DIET PK, LO NA^11-771^cups^165^100^N
;;^UTILITY(U,$J,112,1038,1)
;;=1.94^.45^14.83^61^81.9^^^4^.35^16^51^153^3^.36^.056^.033^^120^6.7^.026
;;^UTILITY(U,$J,112,1038,2)
;;=.061^.939^.522^.037^38.1^0^.204^.006^0^.069^.13^.21^12^.89^^^.8
;;^UTILITY(U,$J,112,1038,3)
;;=.014^.078^.078^.209^.082^.04^.016^.09^.074^.111^.079^.053^.177^.147^.383^.076^.176^.092
;;^UTILITY(U,$J,112,1038,4)
;;=^^^.064^^.004^.13
;;^UTILITY(U,$J,112,1038,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1039,0)
;;=CORN, WHITE, CND, DIET PK, LO NA^11-909^cups^165^100^N
;;^UTILITY(U,$J,112,1039,1)
;;=2.41^.5^19.44^79^76.58^^^5^.42^23^64^186^3^.46^.048^.067^^0^8.1^.041
;;^UTILITY(U,$J,112,1039,2)
;;=.073^1.167^.675^.055^49.3^0^.23^.007^0^.077^.147^.237^0^1.07
;;^UTILITY(U,$J,112,1039,3)
;;=.017^.097^.097^.26^.102^.05^.02^.112^.092^.138^.098^.066^.22^.182^.475^.095^.218^.114
;;^UTILITY(U,$J,112,1039,4)
;;=^^^.073^^.005^.147
;;^UTILITY(U,$J,112,1039,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1040,0)
;;=CORN, YEL, FRZ, CKD WO/SALT^11-179^cups^165^100^N
;;^UTILITY(U,$J,112,1040,1)
;;=3.02^.07^20.52^81^75.75^^^2^.3^18^47^139^5^.35^.033^.18^^248^2.6^.069
;;^UTILITY(U,$J,112,1040,2)
;;=.073^1.283^.217^.1^22.8^0^.033^.001^0^.011^.021^.034^25^.64^^^2.4
;;^UTILITY(U,$J,112,1040,3)
;;=.021^.121^.121^.326^.128^.063^.025^.141^.115^.173^.123^.083^.276^.229^.596^.119^.274^.143
;;^UTILITY(U,$J,112,1040,4)
;;=^^^.011^^.001^.021^^^.7
;;^UTILITY(U,$J,112,1040,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1041,0)
;;=CORN, YEL, FRZ, CKD W/SALT^11-774^cups^165^100^N
;;^UTILITY(U,$J,112,1041,1)
;;=3.02^.07^20.52^81^75.75^^^2^.3^18^47^139^241^.35^.033^.18^^248^2.6^.069
;;^UTILITY(U,$J,112,1041,2)
;;=.073^1.283^.217^.1^22.8^0^.033^.001^0^.011^.021^.034^25^.64
;;^UTILITY(U,$J,112,1041,3)
;;=.021^.121^.121^.326^.128^.063^.025^.141^.115^.173^.123^.083^.276^.229^.596^.119^.274^.143
;;^UTILITY(U,$J,112,1041,4)
;;=^^^.011^^.001^.021
;;^UTILITY(U,$J,112,1041,20)
;;=USDA Std. Reference, Release 10
FHINI03B ; ; 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,1033,2)
+2 ;;=.053^.96^.18^.063^44.8^0^.193^.006^0^.065^.123^.198^0^.98^^^1.2
+3 ;;^UTILITY(U,$J,112,1033,3)
+4 ;;=.012^.07^.07^.188^.074^.036^.014^.081^.066^.1^.071^.048^.159^.132^.343^.068^.158^.083
+5 ;;^UTILITY(U,$J,112,1033,4)
+6 ;;=^^^.061^^.004^.123
+7 ;;^UTILITY(U,$J,112,1033,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,1034,0)
+10 ;;=CORN, YEL, CND^11-170^cups^256^100^N
+11 ;;^UTILITY(U,$J,112,1034,1)
+12 ;;=1.94^.45^14.83^61^81.9^^^4^.35^16^51^153^253^.36^.056^.033^^120^6.7^.026
+13 ;;^UTILITY(U,$J,112,1034,2)
+14 ;;=.061^.939^.522^.037^38.1^0^.204^.006^0^.069^.13^.21^12^.89^^^.7
+15 ;;^UTILITY(U,$J,112,1034,3)
+16 ;;=.014^.078^.078^.209^.082^.04^.016^.09^.074^.111^.079^.053^.177^.147^.383^.076^.176^.092
+17 ;;^UTILITY(U,$J,112,1034,4)
+18 ;;=^^^.064^^.004^.13
+19 ;;^UTILITY(U,$J,112,1034,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,1035,0)
+22 ;;=CORN, WHITE, CND^11-903^cups^256^100^N
+23 ;;^UTILITY(U,$J,112,1035,1)
+24 ;;=1.94^.45^14.83^61^81.9^^^4^.35^16^51^153^253^.36^.056^.033^^0^6.7^.026
+25 ;;^UTILITY(U,$J,112,1035,2)
+26 ;;=.061^.939^.522^.037^38.1^0^.204^.006^0^.069^.13^.21^0^.89
+27 ;;^UTILITY(U,$J,112,1035,3)
+28 ;;=.014^.078^.078^.209^.082^.04^.016^.09^.074^.111^.079^.053^.177^.147^.383^.076^.176^.092
+29 ;;^UTILITY(U,$J,112,1035,4)
+30 ;;=^^^.064^^.004^.13
+31 ;;^UTILITY(U,$J,112,1035,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,1036,0)
+34 ;;=CORN, YEL, CND, DRAINED SOLIDS^11-172^cups^165^100^N
+35 ;;^UTILITY(U,$J,112,1036,1)
+36 ;;=2.62^1^18.59^81^76.92^^^5^.86^20^65^195^323^.39^.058^.173^^156^8.5^.033
+37 ;;^UTILITY(U,$J,112,1036,2)
+38 ;;=.078^1.197^.666^.047^48.6^0^.457^.014^0^.154^.292^.471^16^.87^^^1.9
+39 ;;^UTILITY(U,$J,112,1036,3)
+40 ;;=.018^.105^.105^.284^.112^.055^.021^.122^.1^.151^.107^.072^.24^.199^.518^.103^.238^.125
+41 ;;^UTILITY(U,$J,112,1036,4)
+42 ;;=^^^.144^^.01^.292^^^.7
+43 ;;^UTILITY(U,$J,112,1036,20)
+44 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+45 ;;^UTILITY(U,$J,112,1037,0)
+46 ;;=CORN, WHITE, CND, DRAINED SOLIDS^11-905^cups^165^100^N
+47 ;;^UTILITY(U,$J,112,1037,1)
+48 ;;=2.62^1^18.59^81^76.92^^^5^.86^20^65^195^323^.39^.058^.173^^0^8.5^.033
+49 ;;^UTILITY(U,$J,112,1037,2)
+50 ;;=.078^1.197^.666^.047^48.6^0^.457^.014^0^.154^.292^.471^0^.87^^^1.4
+51 ;;^UTILITY(U,$J,112,1037,3)
+52 ;;=.018^.105^.105^.284^.112^.055^.021^.122^.1^.151^.107^.072^.24^.199^.518^.103^.238^.125
+53 ;;^UTILITY(U,$J,112,1037,4)
+54 ;;=^^^.144^^.01^.292
+55 ;;^UTILITY(U,$J,112,1037,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,1038,0)
+58 ;;=CORN, YEL, CND, DIET PK, LO NA^11-771^cups^165^100^N
+59 ;;^UTILITY(U,$J,112,1038,1)
+60 ;;=1.94^.45^14.83^61^81.9^^^4^.35^16^51^153^3^.36^.056^.033^^120^6.7^.026
+61 ;;^UTILITY(U,$J,112,1038,2)
+62 ;;=.061^.939^.522^.037^38.1^0^.204^.006^0^.069^.13^.21^12^.89^^^.8
+63 ;;^UTILITY(U,$J,112,1038,3)
+64 ;;=.014^.078^.078^.209^.082^.04^.016^.09^.074^.111^.079^.053^.177^.147^.383^.076^.176^.092
+65 ;;^UTILITY(U,$J,112,1038,4)
+66 ;;=^^^.064^^.004^.13
+67 ;;^UTILITY(U,$J,112,1038,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1039,0)
+70 ;;=CORN, WHITE, CND, DIET PK, LO NA^11-909^cups^165^100^N
+71 ;;^UTILITY(U,$J,112,1039,1)
+72 ;;=2.41^.5^19.44^79^76.58^^^5^.42^23^64^186^3^.46^.048^.067^^0^8.1^.041
+73 ;;^UTILITY(U,$J,112,1039,2)
+74 ;;=.073^1.167^.675^.055^49.3^0^.23^.007^0^.077^.147^.237^0^1.07
+75 ;;^UTILITY(U,$J,112,1039,3)
+76 ;;=.017^.097^.097^.26^.102^.05^.02^.112^.092^.138^.098^.066^.22^.182^.475^.095^.218^.114
+77 ;;^UTILITY(U,$J,112,1039,4)
+78 ;;=^^^.073^^.005^.147
+79 ;;^UTILITY(U,$J,112,1039,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1040,0)
+82 ;;=CORN, YEL, FRZ, CKD WO/SALT^11-179^cups^165^100^N
+83 ;;^UTILITY(U,$J,112,1040,1)
+84 ;;=3.02^.07^20.52^81^75.75^^^2^.3^18^47^139^5^.35^.033^.18^^248^2.6^.069
+85 ;;^UTILITY(U,$J,112,1040,2)
+86 ;;=.073^1.283^.217^.1^22.8^0^.033^.001^0^.011^.021^.034^25^.64^^^2.4
+87 ;;^UTILITY(U,$J,112,1040,3)
+88 ;;=.021^.121^.121^.326^.128^.063^.025^.141^.115^.173^.123^.083^.276^.229^.596^.119^.274^.143
+89 ;;^UTILITY(U,$J,112,1040,4)
+90 ;;=^^^.011^^.001^.021^^^.7
+91 ;;^UTILITY(U,$J,112,1040,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1041,0)
+94 ;;=CORN, YEL, FRZ, CKD W/SALT^11-774^cups^165^100^N
+95 ;;^UTILITY(U,$J,112,1041,1)
+96 ;;=3.02^.07^20.52^81^75.75^^^2^.3^18^47^139^241^.35^.033^.18^^248^2.6^.069
+97 ;;^UTILITY(U,$J,112,1041,2)
+98 ;;=.073^1.283^.217^.1^22.8^0^.033^.001^0^.011^.021^.034^25^.64
+99 ;;^UTILITY(U,$J,112,1041,3)
+100 ;;=.021^.121^.121^.326^.128^.063^.025^.141^.115^.173^.123^.083^.276^.229^.596^.119^.274^.143
+101 ;;^UTILITY(U,$J,112,1041,4)
+102 ;;=^^^.011^^.001^.021
+103 ;;^UTILITY(U,$J,112,1041,20)
+104 ;;=USDA Std. Reference, Release 10
