FHINI02D ; ; 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,649,4)
;;=.08^.05^.29^3.57^.68^2.08^7^0
;;^UTILITY(U,$J,112,649,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,650,0)
;;=SAUSAGE, PORK, LINKS OR BULK, CKD^7-064^oz.^28.3^100^N
;;^UTILITY(U,$J,112,650,1)
;;=19.65^31.16^1.03^369^44.57^^^32^1.25^17^184^361^1294^2.5^.14^.071^^0^2^.741
;;^UTILITY(U,$J,112,650,2)
;;=.254^4.518^.72^.33^2^1.73^3.28^.54^83^10.81^13.9^3.81^0^3.6^^^0
;;^UTILITY(U,$J,112,650,3)
;;=.157^.777^.717^1.317^1.494^.478^.198^.657^.566^.789^1.16^.566^1.101^1.635^2.716^1.192^.914^.761
;;^UTILITY(U,$J,112,650,4)
;;=.12^.09^.45^6.53^1.09^3.62^12.81^0^^18.2
;;^UTILITY(U,$J,112,650,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,651,0)
;;=SAUSAGE, PORK & BEEF, FRESH, CKD^7-065^oz.^28.3^100^N
;;^UTILITY(U,$J,112,651,1)
;;=13.8^36.25^2.7^396^44.55^^^10^1.13^12^107^189^805^1.87^.04^.037^^0^0^.357
;;^UTILITY(U,$J,112,651,2)
;;=.147^3.367^.48^.05^2^.43^3.46^.32^71^12.96^17.18^3.9^0^2.7^^^0
;;^UTILITY(U,$J,112,651,3)
;;=.132^.554^.53^.974^1.088^.328^.139^.478^.405^.592^.85^.412^.812^1.182^1.995^.898^.654^.532
;;^UTILITY(U,$J,112,651,4)
;;=0^0^.6^8.31^1.35^3.87^15.8^.12
;;^UTILITY(U,$J,112,651,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,652,0)
;;=SAUSAGE, SALAMI, BEEF, CKD^7-068^slices^23^100^N
;;^UTILITY(U,$J,112,652,1)
;;=15.04^20.68^2.81^262^58.11^^^9^2.19^14^113^224^1176^2.16^.122^.046^^0^17.3^.103
;;^UTILITY(U,$J,112,652,2)
;;=.189^3.238^.95^.18^2^3.06^.8^.23^65^9^9.44^1.03^0^3.37^^^0
;;^UTILITY(U,$J,112,652,3)
;;=.137^.568^.65^1.104^1.152^.349^.192^.541^.491^.662^.929^.479^1.083^1.472^2.449^1.256^1.083^.606
;;^UTILITY(U,$J,112,652,4)
;;=.07^.05^.61^4.73^1.23^3.19^8.22^0^^14.6
;;^UTILITY(U,$J,112,652,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,653,0)
;;=SAUSAGE, SALAMI, BEEF & PORK, CKD^7-069^slices^23^100^N
;;^UTILITY(U,$J,112,653,1)
;;=13.92^20.11^2.25^250^60.4^^^13^2.67^15^115^198^1065^2.14^.23^.057^^0^12^.239
;;^UTILITY(U,$J,112,653,2)
;;=.376^3.553^.85^.21^2^3.65^1.61^.41^65^8.09^9.19^2.02^0^3.32^^^0
;;^UTILITY(U,$J,112,653,3)
;;=.114^.521^.675^.929^1.107^.301^.196^.481^.552^.668^.855^.359^.88^1.285^1.929^1.189^.831^.537
;;^UTILITY(U,$J,112,653,4)
;;=.1^.07^.47^4.53^.89^2.93^8.3^0^^14.6
;;^UTILITY(U,$J,112,653,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,654,0)
;;=SAUSAGE, SALAMI, BEEF & PORK, DRY^7-072^slices^10^100^N
;;^UTILITY(U,$J,112,654,1)
;;=22.86^34.39^2.59^418^34.7^^^8^1.51^17^142^378^1860^3.23^.08^.038^^0^26^.6
;;^UTILITY(U,$J,112,654,2)
;;=.285^4.867^1.06^.5^2^1.9^2.87^.33^79^12.2^17.1^3.21^0^5.47^^^0
;;^UTILITY(U,$J,112,654,3)
;;=.21^.959^.971^1.732^1.824^.593^.262^.868^.71^1.083^1.516^.699^1.48^2.073^3.383^1.641^1.188^.942
;;^UTILITY(U,$J,112,654,4)
;;=.06^.04^.51^7.6^1.69^4^15.4^0
;;^UTILITY(U,$J,112,654,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,655,0)
;;=SAUSAGE, SMOKED LINK SAUSAGE, PORK & BEEF^7-077^links^68^100^N
;;^UTILITY(U,$J,112,655,1)
;;=13.28^27.61^1.92^313^53.91^^^41^1.47^16^137^286^1173^1.96^.09^.038^^0^21^.193
;;^UTILITY(U,$J,112,655,2)
;;=.214^2.845^.61^.18^2^1.57^2.63^.39^65^9.72^12.64^3.02^0^3.29^^^0
;;^UTILITY(U,$J,112,655,3)
;;=.135^.552^.605^1.044^1.043^.344^.151^.52^.451^.66^.813^.414^.826^1.213^2.135^.894^.814^.57
;;^UTILITY(U,$J,112,655,4)
;;=.09^.06^.36^5.92^.98^3.28^11.66^0
;;^UTILITY(U,$J,112,655,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,656,0)
;;=SAUSAGE, ITALIAN, CKD^7-089^links^67^100^N
;;^UTILITY(U,$J,112,656,1)
;;=20.03^25.7^1.5^323^49.95^^^24^1.5^18^170^304^922^2.39^.08^.082^^0^2^.623
;;^UTILITY(U,$J,112,656,2)
;;=.233^4.165^.45^.33^5^1.3^2.84^.44^78^9.07^11.95^3.29^0^2.83^^^0
;;^UTILITY(U,$J,112,656,3)
;;=.161^.792^.731^1.343^1.522^.486^.201^.67^.577^.804^1.182^.577^1.121^1.666^2.768^1.214^.932^.775
;;^UTILITY(U,$J,112,656,4)
;;=.07^.05^.45^5.39^1.18^3.07^10.77^0
;;^UTILITY(U,$J,112,656,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,657,0)
;;=SAUSAGE, NEW ENGLAND BRAND SAUSAGE^7-091^slices^23^100^N
;;^UTILITY(U,$J,112,657,1)
;;=17.27^7.58^4.83^161^66.77^^^7^.94^16^136^321^1220^2.7^.1^.036^^0^21^.64
;;^UTILITY(U,$J,112,657,2)
;;=.248^3.478^.68^.36^7^1.34^.64^.09^49^2.56^^^0^3.55^^^0
;;^UTILITY(U,$J,112,657,3)
;;=.193^.757^.761^1.363^1.511^.446^.246^.684^.533^.803^1.201^.652^1.039^1.639^2.585^.946^.761^.686
;;^UTILITY(U,$J,112,657,4)
;;=.01^.01^.1^1.62^.3^.83^3.33^0
;;^UTILITY(U,$J,112,657,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,658,0)
;;=ABALONE, FRIED^15-156^oz.^28.3^100^N
FHINI02D ; ; 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,649,4)
+2 ;;=.08^.05^.29^3.57^.68^2.08^7^0
+3 ;;^UTILITY(U,$J,112,649,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,650,0)
+6 ;;=SAUSAGE, PORK, LINKS OR BULK, CKD^7-064^oz.^28.3^100^N
+7 ;;^UTILITY(U,$J,112,650,1)
+8 ;;=19.65^31.16^1.03^369^44.57^^^32^1.25^17^184^361^1294^2.5^.14^.071^^0^2^.741
+9 ;;^UTILITY(U,$J,112,650,2)
+10 ;;=.254^4.518^.72^.33^2^1.73^3.28^.54^83^10.81^13.9^3.81^0^3.6^^^0
+11 ;;^UTILITY(U,$J,112,650,3)
+12 ;;=.157^.777^.717^1.317^1.494^.478^.198^.657^.566^.789^1.16^.566^1.101^1.635^2.716^1.192^.914^.761
+13 ;;^UTILITY(U,$J,112,650,4)
+14 ;;=.12^.09^.45^6.53^1.09^3.62^12.81^0^^18.2
+15 ;;^UTILITY(U,$J,112,650,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,651,0)
+18 ;;=SAUSAGE, PORK & BEEF, FRESH, CKD^7-065^oz.^28.3^100^N
+19 ;;^UTILITY(U,$J,112,651,1)
+20 ;;=13.8^36.25^2.7^396^44.55^^^10^1.13^12^107^189^805^1.87^.04^.037^^0^0^.357
+21 ;;^UTILITY(U,$J,112,651,2)
+22 ;;=.147^3.367^.48^.05^2^.43^3.46^.32^71^12.96^17.18^3.9^0^2.7^^^0
+23 ;;^UTILITY(U,$J,112,651,3)
+24 ;;=.132^.554^.53^.974^1.088^.328^.139^.478^.405^.592^.85^.412^.812^1.182^1.995^.898^.654^.532
+25 ;;^UTILITY(U,$J,112,651,4)
+26 ;;=0^0^.6^8.31^1.35^3.87^15.8^.12
+27 ;;^UTILITY(U,$J,112,651,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,652,0)
+30 ;;=SAUSAGE, SALAMI, BEEF, CKD^7-068^slices^23^100^N
+31 ;;^UTILITY(U,$J,112,652,1)
+32 ;;=15.04^20.68^2.81^262^58.11^^^9^2.19^14^113^224^1176^2.16^.122^.046^^0^17.3^.103
+33 ;;^UTILITY(U,$J,112,652,2)
+34 ;;=.189^3.238^.95^.18^2^3.06^.8^.23^65^9^9.44^1.03^0^3.37^^^0
+35 ;;^UTILITY(U,$J,112,652,3)
+36 ;;=.137^.568^.65^1.104^1.152^.349^.192^.541^.491^.662^.929^.479^1.083^1.472^2.449^1.256^1.083^.606
+37 ;;^UTILITY(U,$J,112,652,4)
+38 ;;=.07^.05^.61^4.73^1.23^3.19^8.22^0^^14.6
+39 ;;^UTILITY(U,$J,112,652,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,653,0)
+42 ;;=SAUSAGE, SALAMI, BEEF & PORK, CKD^7-069^slices^23^100^N
+43 ;;^UTILITY(U,$J,112,653,1)
+44 ;;=13.92^20.11^2.25^250^60.4^^^13^2.67^15^115^198^1065^2.14^.23^.057^^0^12^.239
+45 ;;^UTILITY(U,$J,112,653,2)
+46 ;;=.376^3.553^.85^.21^2^3.65^1.61^.41^65^8.09^9.19^2.02^0^3.32^^^0
+47 ;;^UTILITY(U,$J,112,653,3)
+48 ;;=.114^.521^.675^.929^1.107^.301^.196^.481^.552^.668^.855^.359^.88^1.285^1.929^1.189^.831^.537
+49 ;;^UTILITY(U,$J,112,653,4)
+50 ;;=.1^.07^.47^4.53^.89^2.93^8.3^0^^14.6
+51 ;;^UTILITY(U,$J,112,653,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,654,0)
+54 ;;=SAUSAGE, SALAMI, BEEF & PORK, DRY^7-072^slices^10^100^N
+55 ;;^UTILITY(U,$J,112,654,1)
+56 ;;=22.86^34.39^2.59^418^34.7^^^8^1.51^17^142^378^1860^3.23^.08^.038^^0^26^.6
+57 ;;^UTILITY(U,$J,112,654,2)
+58 ;;=.285^4.867^1.06^.5^2^1.9^2.87^.33^79^12.2^17.1^3.21^0^5.47^^^0
+59 ;;^UTILITY(U,$J,112,654,3)
+60 ;;=.21^.959^.971^1.732^1.824^.593^.262^.868^.71^1.083^1.516^.699^1.48^2.073^3.383^1.641^1.188^.942
+61 ;;^UTILITY(U,$J,112,654,4)
+62 ;;=.06^.04^.51^7.6^1.69^4^15.4^0
+63 ;;^UTILITY(U,$J,112,654,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,655,0)
+66 ;;=SAUSAGE, SMOKED LINK SAUSAGE, PORK & BEEF^7-077^links^68^100^N
+67 ;;^UTILITY(U,$J,112,655,1)
+68 ;;=13.28^27.61^1.92^313^53.91^^^41^1.47^16^137^286^1173^1.96^.09^.038^^0^21^.193
+69 ;;^UTILITY(U,$J,112,655,2)
+70 ;;=.214^2.845^.61^.18^2^1.57^2.63^.39^65^9.72^12.64^3.02^0^3.29^^^0
+71 ;;^UTILITY(U,$J,112,655,3)
+72 ;;=.135^.552^.605^1.044^1.043^.344^.151^.52^.451^.66^.813^.414^.826^1.213^2.135^.894^.814^.57
+73 ;;^UTILITY(U,$J,112,655,4)
+74 ;;=.09^.06^.36^5.92^.98^3.28^11.66^0
+75 ;;^UTILITY(U,$J,112,655,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,656,0)
+78 ;;=SAUSAGE, ITALIAN, CKD^7-089^links^67^100^N
+79 ;;^UTILITY(U,$J,112,656,1)
+80 ;;=20.03^25.7^1.5^323^49.95^^^24^1.5^18^170^304^922^2.39^.08^.082^^0^2^.623
+81 ;;^UTILITY(U,$J,112,656,2)
+82 ;;=.233^4.165^.45^.33^5^1.3^2.84^.44^78^9.07^11.95^3.29^0^2.83^^^0
+83 ;;^UTILITY(U,$J,112,656,3)
+84 ;;=.161^.792^.731^1.343^1.522^.486^.201^.67^.577^.804^1.182^.577^1.121^1.666^2.768^1.214^.932^.775
+85 ;;^UTILITY(U,$J,112,656,4)
+86 ;;=.07^.05^.45^5.39^1.18^3.07^10.77^0
+87 ;;^UTILITY(U,$J,112,656,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,657,0)
+90 ;;=SAUSAGE, NEW ENGLAND BRAND SAUSAGE^7-091^slices^23^100^N
+91 ;;^UTILITY(U,$J,112,657,1)
+92 ;;=17.27^7.58^4.83^161^66.77^^^7^.94^16^136^321^1220^2.7^.1^.036^^0^21^.64
+93 ;;^UTILITY(U,$J,112,657,2)
+94 ;;=.248^3.478^.68^.36^7^1.34^.64^.09^49^2.56^^^0^3.55^^^0
+95 ;;^UTILITY(U,$J,112,657,3)
+96 ;;=.193^.757^.761^1.363^1.511^.446^.246^.684^.533^.803^1.201^.652^1.039^1.639^2.585^.946^.761^.686
+97 ;;^UTILITY(U,$J,112,657,4)
+98 ;;=.01^.01^.1^1.62^.3^.83^3.33^0
+99 ;;^UTILITY(U,$J,112,657,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,658,0)
+102 ;;=ABALONE, FRIED^15-156^oz.^28.3^100^N
