FHINI012 ; ; 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,200,3)
;;=.094^.462^.427^.784^.889^.284^.118^.391^.337^.469^.691^.337^.655^.973^1.617^.709^.544^.452
;;^UTILITY(U,$J,112,200,4)
;;=.11^.08^.57^8.87^1.45^4.85^17.09^0^^11.5
;;^UTILITY(U,$J,112,200,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,201,0)
;;=SAUSAGE, PORK, FRESH, CKD^10-095^oz.^28.3^100^N
;;^UTILITY(U,$J,112,201,1)
;;=19.65^31.16^1.03^369^44.57^^^32^1.25^17^184^361^1294^2.5^.142^.071^^0^1.7^.741
;;^UTILITY(U,$J,112,201,2)
;;=.254^4.518^.723^.33^2^1.73^3.28^.54^83^10.81^13.9^3.81^0^3.6^^^0
;;^UTILITY(U,$J,112,201,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,201,4)
;;=.12^.09^.45^6.53^1.09^3.62^12.81^0
;;^UTILITY(U,$J,112,201,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,202,0)
;;=PORK, BRAINS, BRAISED^10-097^oz.^28.3^100^N
;;^UTILITY(U,$J,112,202,1)
;;=12.14^9.51^0^138^75.88^^^9^1.82^12^220^195^91^1.48^.263^.085^^0^14^.078
;;^UTILITY(U,$J,112,202,2)
;;=.223^3.33^1.823^.14^4^1.42^.09^.12^2552^2.15^1.72^1.47^0^1.4^^^0
;;^UTILITY(U,$J,112,202,3)
;;=.155^.567^.561^1.058^.954^.241^.214^.618^.509^.691^.635^.326^.66^1.214^1.42^.583^.66^.641
;;^UTILITY(U,$J,112,202,4)
;;=0^0^.04^1.06^.13^1.03^1.1^.49
;;^UTILITY(U,$J,112,202,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,203,0)
;;=PORK, CHITTERLINGS, SIMMERED^10-099^oz.^28.3^100^N
;;^UTILITY(U,$J,112,203,1)
;;=10.25^28.75^0^303^62.4^^^27^3.7^10^47^8^39^5.06^.233^.012^^0^0^0
;;^UTILITY(U,$J,112,203,2)
;;=.08^.1^.222^.01^3^1.03^2.66^.19^143^10.1^9.68^7.22^0^.3^^^0
;;^UTILITY(U,$J,112,203,3)
;;=.061^.451^.42^.809^.656^.194^.09^.41^.379^.502^.84^.215^.727^.963^1.322^1.096^.717^.492
;;^UTILITY(U,$J,112,203,4)
;;=^.05^.33^5.8^.82^3.92^8.86^1.86
;;^UTILITY(U,$J,112,203,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,204,0)
;;=PORK, EARS, FRZ, SIMMERED^10-101^ears^111^100^N
;;^UTILITY(U,$J,112,204,1)
;;=15.95^10.8^.2^166^72.65^^^18^1.5^7^24^40^167^.2^.006^.01^^0^0^.02
;;^UTILITY(U,$J,112,204,2)
;;=.07^.56^.037^.01^3^.04^1.01^.09^90^3.86^4.91^1.15^0^.4^^^0
;;^UTILITY(U,$J,112,204,3)
;;=.031^.477^.365^.875^.732^.128^.142^.51^.319^.638^1.276^.191^1.531^1.179^2.008^3.142^1.914^.684
;;^UTILITY(U,$J,112,204,4)
;;=0^.01^.14^2.42^.31^1.29^4.6^.05
;;^UTILITY(U,$J,112,204,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,205,0)
;;=PORK, HEART, BRAISED^10-104^hearts^129^100^N
;;^UTILITY(U,$J,112,205,1)
;;=23.6^5.05^.4^148^68.08^^^7^5.83^24^178^206^35^3.09^.508^.073^^22^2^.555
;;^UTILITY(U,$J,112,205,2)
;;=1.702^6.05^2.47^.39^4^3.79^.89^.1^221^1.34^1.18^1.3^7^1^^^0
;;^UTILITY(U,$J,112,205,3)
;;=.272^1.035^1.137^2.13^1.952^.604^.423^1.042^.808^1.25^1.586^.6^1.514^2.137^3.787^1.284^1.087^1.11
;;^UTILITY(U,$J,112,205,4)
;;=0^.01^.1^.69^.11^.52^1.05^.31
;;^UTILITY(U,$J,112,205,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,206,0)
;;=PORK, KIDNEYS, BRAISED^10-107^oz.^28.3^100^N
;;^UTILITY(U,$J,112,206,1)
;;=25.4^4.7^0^151^68.7^^^13^5.29^18^240^143^80^4.15^.683^.149^^260^10.6^.396
;;^UTILITY(U,$J,112,206,2)
;;=1.586^5.785^2.873^.46^41^7.79^.25^.01^480^1.51^1.55^.38^78^1.3^^^0
;;^UTILITY(U,$J,112,206,3)
;;=.329^1.053^1.357^2.28^1.829^.545^.557^1.199^.914^1.463^1.561^.61^1.597^2.386^3.032^1.609^1.573^1.345
;;^UTILITY(U,$J,112,206,4)
;;=0^.01^.05^.85^.12^.6^1.4^.12
;;^UTILITY(U,$J,112,206,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,207,0)
;;=FAT, LARD (PORK)^10-108^oz.^28.3^100^N
;;^UTILITY(U,$J,112,207,1)
;;=0^100^0^902^0^^^0^0^0^0^0^0^.11^0^0^1.2^0^0^0
;;^UTILITY(U,$J,112,207,2)
;;=0^0^0^0^0^0^10.2^1^95^39.2^45.1^11.2^0^0^^^0^1.3
;;^UTILITY(U,$J,112,207,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,207,4)
;;=.1^.2^1.3^23.8^2.7^13.5^41.2^0
;;^UTILITY(U,$J,112,207,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,208,0)
;;=PORK, LIVER, RAW^10-110^oz.^28.3^100^N
;;^UTILITY(U,$J,112,208,1)
;;=21.39^3.65^2.47^134^71.06^^^9^23.3^18^288^273^87^5.76^.677^.344^^21650^25.3^.283
;;^UTILITY(U,$J,112,208,2)
;;=3.005^15.301^6.65^.69^212^26^.35^.03^301^1.17^.52^.87^6495^1.44^^^0
;;^UTILITY(U,$J,112,208,3)
;;=.301^.91^1.085^1.906^1.649^.53^.404^1.047^.729^1.321^1.317^.582^1.276^1.937^2.782^1.239^1.146^1.157
;;^UTILITY(U,$J,112,208,4)
;;=0^0^.02^.44^.03^.7^.46^.44^88
;;^UTILITY(U,$J,112,208,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,209,0)
;;=PORK, LIVER, BRAISED^10-111^oz.^28.3^100^N
;;^UTILITY(U,$J,112,209,1)
;;=26.02^4.4^3.76^165^64.32^^^10^17.92^14^241^150^49^6.72^.634^.3^^17997^23.6^.258
FHINI012 ; ; 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,200,3)
+2 ;;=.094^.462^.427^.784^.889^.284^.118^.391^.337^.469^.691^.337^.655^.973^1.617^.709^.544^.452
+3 ;;^UTILITY(U,$J,112,200,4)
+4 ;;=.11^.08^.57^8.87^1.45^4.85^17.09^0^^11.5
+5 ;;^UTILITY(U,$J,112,200,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,201,0)
+8 ;;=SAUSAGE, PORK, FRESH, CKD^10-095^oz.^28.3^100^N
+9 ;;^UTILITY(U,$J,112,201,1)
+10 ;;=19.65^31.16^1.03^369^44.57^^^32^1.25^17^184^361^1294^2.5^.142^.071^^0^1.7^.741
+11 ;;^UTILITY(U,$J,112,201,2)
+12 ;;=.254^4.518^.723^.33^2^1.73^3.28^.54^83^10.81^13.9^3.81^0^3.6^^^0
+13 ;;^UTILITY(U,$J,112,201,3)
+14 ;;=.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
+15 ;;^UTILITY(U,$J,112,201,4)
+16 ;;=.12^.09^.45^6.53^1.09^3.62^12.81^0
+17 ;;^UTILITY(U,$J,112,201,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,202,0)
+20 ;;=PORK, BRAINS, BRAISED^10-097^oz.^28.3^100^N
+21 ;;^UTILITY(U,$J,112,202,1)
+22 ;;=12.14^9.51^0^138^75.88^^^9^1.82^12^220^195^91^1.48^.263^.085^^0^14^.078
+23 ;;^UTILITY(U,$J,112,202,2)
+24 ;;=.223^3.33^1.823^.14^4^1.42^.09^.12^2552^2.15^1.72^1.47^0^1.4^^^0
+25 ;;^UTILITY(U,$J,112,202,3)
+26 ;;=.155^.567^.561^1.058^.954^.241^.214^.618^.509^.691^.635^.326^.66^1.214^1.42^.583^.66^.641
+27 ;;^UTILITY(U,$J,112,202,4)
+28 ;;=0^0^.04^1.06^.13^1.03^1.1^.49
+29 ;;^UTILITY(U,$J,112,202,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,203,0)
+32 ;;=PORK, CHITTERLINGS, SIMMERED^10-099^oz.^28.3^100^N
+33 ;;^UTILITY(U,$J,112,203,1)
+34 ;;=10.25^28.75^0^303^62.4^^^27^3.7^10^47^8^39^5.06^.233^.012^^0^0^0
+35 ;;^UTILITY(U,$J,112,203,2)
+36 ;;=.08^.1^.222^.01^3^1.03^2.66^.19^143^10.1^9.68^7.22^0^.3^^^0
+37 ;;^UTILITY(U,$J,112,203,3)
+38 ;;=.061^.451^.42^.809^.656^.194^.09^.41^.379^.502^.84^.215^.727^.963^1.322^1.096^.717^.492
+39 ;;^UTILITY(U,$J,112,203,4)
+40 ;;=^.05^.33^5.8^.82^3.92^8.86^1.86
+41 ;;^UTILITY(U,$J,112,203,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,204,0)
+44 ;;=PORK, EARS, FRZ, SIMMERED^10-101^ears^111^100^N
+45 ;;^UTILITY(U,$J,112,204,1)
+46 ;;=15.95^10.8^.2^166^72.65^^^18^1.5^7^24^40^167^.2^.006^.01^^0^0^.02
+47 ;;^UTILITY(U,$J,112,204,2)
+48 ;;=.07^.56^.037^.01^3^.04^1.01^.09^90^3.86^4.91^1.15^0^.4^^^0
+49 ;;^UTILITY(U,$J,112,204,3)
+50 ;;=.031^.477^.365^.875^.732^.128^.142^.51^.319^.638^1.276^.191^1.531^1.179^2.008^3.142^1.914^.684
+51 ;;^UTILITY(U,$J,112,204,4)
+52 ;;=0^.01^.14^2.42^.31^1.29^4.6^.05
+53 ;;^UTILITY(U,$J,112,204,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,205,0)
+56 ;;=PORK, HEART, BRAISED^10-104^hearts^129^100^N
+57 ;;^UTILITY(U,$J,112,205,1)
+58 ;;=23.6^5.05^.4^148^68.08^^^7^5.83^24^178^206^35^3.09^.508^.073^^22^2^.555
+59 ;;^UTILITY(U,$J,112,205,2)
+60 ;;=1.702^6.05^2.47^.39^4^3.79^.89^.1^221^1.34^1.18^1.3^7^1^^^0
+61 ;;^UTILITY(U,$J,112,205,3)
+62 ;;=.272^1.035^1.137^2.13^1.952^.604^.423^1.042^.808^1.25^1.586^.6^1.514^2.137^3.787^1.284^1.087^1.11
+63 ;;^UTILITY(U,$J,112,205,4)
+64 ;;=0^.01^.1^.69^.11^.52^1.05^.31
+65 ;;^UTILITY(U,$J,112,205,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,206,0)
+68 ;;=PORK, KIDNEYS, BRAISED^10-107^oz.^28.3^100^N
+69 ;;^UTILITY(U,$J,112,206,1)
+70 ;;=25.4^4.7^0^151^68.7^^^13^5.29^18^240^143^80^4.15^.683^.149^^260^10.6^.396
+71 ;;^UTILITY(U,$J,112,206,2)
+72 ;;=1.586^5.785^2.873^.46^41^7.79^.25^.01^480^1.51^1.55^.38^78^1.3^^^0
+73 ;;^UTILITY(U,$J,112,206,3)
+74 ;;=.329^1.053^1.357^2.28^1.829^.545^.557^1.199^.914^1.463^1.561^.61^1.597^2.386^3.032^1.609^1.573^1.345
+75 ;;^UTILITY(U,$J,112,206,4)
+76 ;;=0^.01^.05^.85^.12^.6^1.4^.12
+77 ;;^UTILITY(U,$J,112,206,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,207,0)
+80 ;;=FAT, LARD (PORK)^10-108^oz.^28.3^100^N
+81 ;;^UTILITY(U,$J,112,207,1)
+82 ;;=0^100^0^902^0^^^0^0^0^0^0^0^.11^0^0^1.2^0^0^0
+83 ;;^UTILITY(U,$J,112,207,2)
+84 ;;=0^0^0^0^0^0^10.2^1^95^39.2^45.1^11.2^0^0^^^0^1.3
+85 ;;^UTILITY(U,$J,112,207,3)
+86 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+87 ;;^UTILITY(U,$J,112,207,4)
+88 ;;=.1^.2^1.3^23.8^2.7^13.5^41.2^0
+89 ;;^UTILITY(U,$J,112,207,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,208,0)
+92 ;;=PORK, LIVER, RAW^10-110^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,208,1)
+94 ;;=21.39^3.65^2.47^134^71.06^^^9^23.3^18^288^273^87^5.76^.677^.344^^21650^25.3^.283
+95 ;;^UTILITY(U,$J,112,208,2)
+96 ;;=3.005^15.301^6.65^.69^212^26^.35^.03^301^1.17^.52^.87^6495^1.44^^^0
+97 ;;^UTILITY(U,$J,112,208,3)
+98 ;;=.301^.91^1.085^1.906^1.649^.53^.404^1.047^.729^1.321^1.317^.582^1.276^1.937^2.782^1.239^1.146^1.157
+99 ;;^UTILITY(U,$J,112,208,4)
+100 ;;=0^0^.02^.44^.03^.7^.46^.44^88
+101 ;;^UTILITY(U,$J,112,208,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,209,0)
+104 ;;=PORK, LIVER, BRAISED^10-111^oz.^28.3^100^N
+105 ;;^UTILITY(U,$J,112,209,1)
+106 ;;=26.02^4.4^3.76^165^64.32^^^10^17.92^14^241^150^49^6.72^.634^.3^^17997^23.6^.258
