FHINI016 ; ; 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,234,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,235,0)
;;=LIVER CHEESE PORK^10-157^oz.^28.3^100^N
;;^UTILITY(U,$J,112,235,1)
;;=15.18^25.57^2.08^304^53.63^^^8^10.83^12^207^226^1225^3.7^.383^.2^^17490^2.7^.212
;;^UTILITY(U,$J,112,235,2)
;;=2.227^11.768^3.536^.47^104^24.55^3.09^.33^174^8.96^12.26^3.42^5252^3.54^^^0
;;^UTILITY(U,$J,112,235,3)
;;=.206^.651^.632^1.331^1.178^.342^.328^.717^.466^.806^.836^.393^.93^1.351^1.834^.935^.717^.69
;;^UTILITY(U,$J,112,235,4)
;;=.05^.04^.32^5.51^.94^3.04^11.32^0
;;^UTILITY(U,$J,112,235,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,236,0)
;;=LIVERWURST PORK^10-158^oz.^28.3^^N
;;^UTILITY(U,$J,112,236,1)
;;=14.13^28.53^2.2^326^52.08^^^26^6.4^12^230^170^860^2.3^.24^.155^^27667^0^.272
;;^UTILITY(U,$J,112,236,2)
;;=1.03^4.3^2.954^.19^30^13.46^2.45^.14^158^10.59^13.33^2.6
;;^UTILITY(U,$J,112,236,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,237,0)
;;=LUNCHEON MEAT, PORK, CND^10-159^oz.^28.3^100^N
;;^UTILITY(U,$J,112,237,1)
;;=12.48^30.28^2.06^334^51.55^^^6^.72^10^82^215^1289^1.48^.037^.024^^0^1^.367
;;^UTILITY(U,$J,112,237,2)
;;=.194^3.126^.473^.21^6^.9^3.09^.47^62^10.79^14.3^3.55^0^3.64^^^0
;;^UTILITY(U,$J,112,237,3)
;;=.124^.493^.577^.965^.943^.338^.215^.497^.388^.661^.877^.362^.887^1.162^1.859^1.092^.687^.503
;;^UTILITY(U,$J,112,237,4)
;;=.08^.06^.37^6.69^1.14^3.6^13.17^0
;;^UTILITY(U,$J,112,237,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,238,0)
;;=LUNCHEON MEAT, PORK, LUXURY LOAF^10-160^oz.^28.3^100^N
;;^UTILITY(U,$J,112,238,1)
;;=18.38^4.85^4.9^141^68.25^^^36^1.05^20^185^377^1225^3.05^.1^.041^^0^20.8^.707
;;^UTILITY(U,$J,112,238,2)
;;=.297^3.482^.515^.31^2^1.37^.46^.05^36^1.58^2.33^.51^0^3.63^^^0
;;^UTILITY(U,$J,112,238,3)
;;=.214^.879^.814^1.517^1.652^.468^.153^.718^.644^.894^1.171^.655^1.073^1.74^2.94^.929^.911^.826
;;^UTILITY(U,$J,112,238,4)
;;=.02^.01^.06^.97^.18^.52^2.15^0
;;^UTILITY(U,$J,112,238,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,239,0)
;;=OLIVE LOAF PORK^10-161^oz.^28.3^100^N
;;^UTILITY(U,$J,112,239,1)
;;=11.84^16.5^9.16^235^58.18^^^109^.54^19^127^297^1484^1.38^.05^.035^^200^8.8^.295
;;^UTILITY(U,$J,112,239,2)
;;=.26^1.835^.77^.23^2^1.26^1.82^.11^38^5.85^7.87^1.94^20^4.33^^^0
;;^UTILITY(U,$J,112,239,3)
;;=.104^.472^.42^.869^.809^.301^.144^.419^.383^.508^.583^.292^.617^.951^1.919^.68^.83^.517
;;^UTILITY(U,$J,112,239,4)
;;=.01^.01^.27^3.54^.66^2.02^7.21^0
;;^UTILITY(U,$J,112,239,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,241,0)
;;=SAUSAGE, POLISH, PORK^10-163^oz.^28.3^^N
;;^UTILITY(U,$J,112,241,1)
;;=14.1^28.72^1.63^326^53.15^^^12^1.44^14^136^237^876^1.93^.093^.049^^0^1^.502
;;^UTILITY(U,$J,112,241,2)
;;=.148^3.443^.45^.19^2^.98^2.79^.29^70^10.33^13.52^3.08
;;^UTILITY(U,$J,112,241,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,242,0)
;;=SALAMI, PORK, DRY^7-071^oz.^28.3^100^N
;;^UTILITY(U,$J,112,242,1)
;;=22.58^33.72^1.6^407^36.18^^^13^1.3^22^229^378^2260^4.2^.16^.07^^0^0^.93
;;^UTILITY(U,$J,112,242,2)
;;=.33^5.6^1.06^.55^2^2.8^3.27^.28^79^11.89^16^3.74^0^5.92^^^0
;;^UTILITY(U,$J,112,242,3)
;;=.253^1.012^1.084^1.625^1.878^.47^.289^.94^.686^1.12^1.373^.614^1.336^2.095^3.829^1.553^1.336^.903
;;^UTILITY(U,$J,112,242,4)
;;=0^0^.52^7.64^1.22^3.56^14.67^.16
;;^UTILITY(U,$J,112,242,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,243,0)
;;=SALT PORK, RAW^10-165^oz.^28.3^100^N
;;^UTILITY(U,$J,112,243,1)
;;=5.05^80.5^0^748^11^^^6^.44^7^52^66^1424^.9^.05^.005^^0^0^.215
;;^UTILITY(U,$J,112,243,2)
;;=.061^1.62^.205^.08^1^.29^8.63^.65^86^29.38^37.94^9.4^0^3.65^^^0
;;^UTILITY(U,$J,112,243,3)
;;=.017^.166^.133^.353^.419^.075^.044^.189^.082^.242^.522^.057^.283^.417^.693^.361^.268^.19
;;^UTILITY(U,$J,112,243,4)
;;=0^.16^1.05^17.67^2.5^10.33^34.93^.08
;;^UTILITY(U,$J,112,243,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,245,0)
;;=PORK PRODUCTS, SHOULDER, ARM PICNIC, SEP LEAN & FAT, ROASTED^10-168^oz.^28.3^73^N
;;^UTILITY(U,$J,112,245,1)
;;=20.43^21.35^0^280^54.73^^^10^.95^14^221^258^1072^2.51^.113^.024^^0^0^.612
;;^UTILITY(U,$J,112,245,2)
;;=.19^4.127^.559^.28^3^.93^1.98^.22^58^7.67^10.14^2.32^0^3.51^^^0
;;^UTILITY(U,$J,112,245,3)
;;=.227^.885^.861^1.602^1.728^.516^.294^.871^.637^.894^1.403^.683^1.088^1.746^3.005^.958^.787^.755
;;^UTILITY(U,$J,112,245,4)
;;=.03^.05^.28^4.78^.67^2.5^9.35^.1
;;^UTILITY(U,$J,112,245,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,246,0)
;;=PORK PRODUCTS, SHOULDER, ARM PICNIC, SEP LEAN ONLY, ROASTED^10-169^oz.^28.3^54^N
FHINI016 ; ; 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,234,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,235,0)
+4 ;;=LIVER CHEESE PORK^10-157^oz.^28.3^100^N
+5 ;;^UTILITY(U,$J,112,235,1)
+6 ;;=15.18^25.57^2.08^304^53.63^^^8^10.83^12^207^226^1225^3.7^.383^.2^^17490^2.7^.212
+7 ;;^UTILITY(U,$J,112,235,2)
+8 ;;=2.227^11.768^3.536^.47^104^24.55^3.09^.33^174^8.96^12.26^3.42^5252^3.54^^^0
+9 ;;^UTILITY(U,$J,112,235,3)
+10 ;;=.206^.651^.632^1.331^1.178^.342^.328^.717^.466^.806^.836^.393^.93^1.351^1.834^.935^.717^.69
+11 ;;^UTILITY(U,$J,112,235,4)
+12 ;;=.05^.04^.32^5.51^.94^3.04^11.32^0
+13 ;;^UTILITY(U,$J,112,235,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,236,0)
+16 ;;=LIVERWURST PORK^10-158^oz.^28.3^^N
+17 ;;^UTILITY(U,$J,112,236,1)
+18 ;;=14.13^28.53^2.2^326^52.08^^^26^6.4^12^230^170^860^2.3^.24^.155^^27667^0^.272
+19 ;;^UTILITY(U,$J,112,236,2)
+20 ;;=1.03^4.3^2.954^.19^30^13.46^2.45^.14^158^10.59^13.33^2.6
+21 ;;^UTILITY(U,$J,112,236,20)
+22 ;;=USDA Std. Reference, Release 8
+23 ;;^UTILITY(U,$J,112,237,0)
+24 ;;=LUNCHEON MEAT, PORK, CND^10-159^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,237,1)
+26 ;;=12.48^30.28^2.06^334^51.55^^^6^.72^10^82^215^1289^1.48^.037^.024^^0^1^.367
+27 ;;^UTILITY(U,$J,112,237,2)
+28 ;;=.194^3.126^.473^.21^6^.9^3.09^.47^62^10.79^14.3^3.55^0^3.64^^^0
+29 ;;^UTILITY(U,$J,112,237,3)
+30 ;;=.124^.493^.577^.965^.943^.338^.215^.497^.388^.661^.877^.362^.887^1.162^1.859^1.092^.687^.503
+31 ;;^UTILITY(U,$J,112,237,4)
+32 ;;=.08^.06^.37^6.69^1.14^3.6^13.17^0
+33 ;;^UTILITY(U,$J,112,237,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,238,0)
+36 ;;=LUNCHEON MEAT, PORK, LUXURY LOAF^10-160^oz.^28.3^100^N
+37 ;;^UTILITY(U,$J,112,238,1)
+38 ;;=18.38^4.85^4.9^141^68.25^^^36^1.05^20^185^377^1225^3.05^.1^.041^^0^20.8^.707
+39 ;;^UTILITY(U,$J,112,238,2)
+40 ;;=.297^3.482^.515^.31^2^1.37^.46^.05^36^1.58^2.33^.51^0^3.63^^^0
+41 ;;^UTILITY(U,$J,112,238,3)
+42 ;;=.214^.879^.814^1.517^1.652^.468^.153^.718^.644^.894^1.171^.655^1.073^1.74^2.94^.929^.911^.826
+43 ;;^UTILITY(U,$J,112,238,4)
+44 ;;=.02^.01^.06^.97^.18^.52^2.15^0
+45 ;;^UTILITY(U,$J,112,238,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,239,0)
+48 ;;=OLIVE LOAF PORK^10-161^oz.^28.3^100^N
+49 ;;^UTILITY(U,$J,112,239,1)
+50 ;;=11.84^16.5^9.16^235^58.18^^^109^.54^19^127^297^1484^1.38^.05^.035^^200^8.8^.295
+51 ;;^UTILITY(U,$J,112,239,2)
+52 ;;=.26^1.835^.77^.23^2^1.26^1.82^.11^38^5.85^7.87^1.94^20^4.33^^^0
+53 ;;^UTILITY(U,$J,112,239,3)
+54 ;;=.104^.472^.42^.869^.809^.301^.144^.419^.383^.508^.583^.292^.617^.951^1.919^.68^.83^.517
+55 ;;^UTILITY(U,$J,112,239,4)
+56 ;;=.01^.01^.27^3.54^.66^2.02^7.21^0
+57 ;;^UTILITY(U,$J,112,239,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,241,0)
+60 ;;=SAUSAGE, POLISH, PORK^10-163^oz.^28.3^^N
+61 ;;^UTILITY(U,$J,112,241,1)
+62 ;;=14.1^28.72^1.63^326^53.15^^^12^1.44^14^136^237^876^1.93^.093^.049^^0^1^.502
+63 ;;^UTILITY(U,$J,112,241,2)
+64 ;;=.148^3.443^.45^.19^2^.98^2.79^.29^70^10.33^13.52^3.08
+65 ;;^UTILITY(U,$J,112,241,20)
+66 ;;=USDA Std. Reference, Release 8
+67 ;;^UTILITY(U,$J,112,242,0)
+68 ;;=SALAMI, PORK, DRY^7-071^oz.^28.3^100^N
+69 ;;^UTILITY(U,$J,112,242,1)
+70 ;;=22.58^33.72^1.6^407^36.18^^^13^1.3^22^229^378^2260^4.2^.16^.07^^0^0^.93
+71 ;;^UTILITY(U,$J,112,242,2)
+72 ;;=.33^5.6^1.06^.55^2^2.8^3.27^.28^79^11.89^16^3.74^0^5.92^^^0
+73 ;;^UTILITY(U,$J,112,242,3)
+74 ;;=.253^1.012^1.084^1.625^1.878^.47^.289^.94^.686^1.12^1.373^.614^1.336^2.095^3.829^1.553^1.336^.903
+75 ;;^UTILITY(U,$J,112,242,4)
+76 ;;=0^0^.52^7.64^1.22^3.56^14.67^.16
+77 ;;^UTILITY(U,$J,112,242,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,243,0)
+80 ;;=SALT PORK, RAW^10-165^oz.^28.3^100^N
+81 ;;^UTILITY(U,$J,112,243,1)
+82 ;;=5.05^80.5^0^748^11^^^6^.44^7^52^66^1424^.9^.05^.005^^0^0^.215
+83 ;;^UTILITY(U,$J,112,243,2)
+84 ;;=.061^1.62^.205^.08^1^.29^8.63^.65^86^29.38^37.94^9.4^0^3.65^^^0
+85 ;;^UTILITY(U,$J,112,243,3)
+86 ;;=.017^.166^.133^.353^.419^.075^.044^.189^.082^.242^.522^.057^.283^.417^.693^.361^.268^.19
+87 ;;^UTILITY(U,$J,112,243,4)
+88 ;;=0^.16^1.05^17.67^2.5^10.33^34.93^.08
+89 ;;^UTILITY(U,$J,112,243,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,245,0)
+92 ;;=PORK PRODUCTS, SHOULDER, ARM PICNIC, SEP LEAN & FAT, ROASTED^10-168^oz.^28.3^73^N
+93 ;;^UTILITY(U,$J,112,245,1)
+94 ;;=20.43^21.35^0^280^54.73^^^10^.95^14^221^258^1072^2.51^.113^.024^^0^0^.612
+95 ;;^UTILITY(U,$J,112,245,2)
+96 ;;=.19^4.127^.559^.28^3^.93^1.98^.22^58^7.67^10.14^2.32^0^3.51^^^0
+97 ;;^UTILITY(U,$J,112,245,3)
+98 ;;=.227^.885^.861^1.602^1.728^.516^.294^.871^.637^.894^1.403^.683^1.088^1.746^3.005^.958^.787^.755
+99 ;;^UTILITY(U,$J,112,245,4)
+100 ;;=.03^.05^.28^4.78^.67^2.5^9.35^.1
+101 ;;^UTILITY(U,$J,112,245,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,246,0)
+104 ;;=PORK PRODUCTS, SHOULDER, ARM PICNIC, SEP LEAN ONLY, ROASTED^10-169^oz.^28.3^54^N
