FHINI02B ; ; 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,632,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,633,0)
;;=LUNCHEON MEAT, DUTCH BRAND LOAF^7-021^slices^28.35^100^N
;;^UTILITY(U,$J,112,633,1)
;;=13.42^17.82^5.57^240^59.41^^^84^1.24^21^162^376^1250^1.72^.07^.032^^0^18^.303
;;^UTILITY(U,$J,112,633,2)
;;=.269^2.387^.6^.23^2^1.32^1.66^.25^47^6.35^8.33^1.91^0^3.78^^^0
;;^UTILITY(U,$J,112,633,3)
;;=.148^.619^.558^1.076^1.076^.322^.107^.511^.446^.619^.801^.412^.784^1.209^2.248^.841^.888^.635
;;^UTILITY(U,$J,112,633,4)
;;=.06^.05^.31^3.82^.79^2.11^7.54^0
;;^UTILITY(U,$J,112,633,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,634,0)
;;=FRANKFURTERS, RAW, BEEF^7-022^franks^57^100^N
;;^UTILITY(U,$J,112,634,1)
;;=12^28.5^1.8^315^54.7^^^20^1.43^3^87^166^1026^2.17^.06^.033^^0^24^.051
;;^UTILITY(U,$J,112,634,2)
;;=.102^2.415^.29^.12^4^1.54^1.11^.27^61^12.05^13.62^1.38^0^2.9^^^0
;;^UTILITY(U,$J,112,634,3)
;;=.108^.448^.514^.874^.912^.275^.152^.427^.389^.524^.735^.379^.857^1.165^1.938^.993^.857^.479
;;^UTILITY(U,$J,112,634,4)
;;=.08^.06^.94^6.52^1.63^3.96^11.99^0^^13.8
;;^UTILITY(U,$J,112,634,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,635,0)
;;=FRANKFURTERS, RAW, BEEF & PORK^7-023^franks^57^100^N
;;^UTILITY(U,$J,112,635,1)
;;=11.28^29.15^2.55^320^53.87^^^11^1.15^10^86^167^1120^1.84^.08^.032^^0^26^.199
;;^UTILITY(U,$J,112,635,2)
;;=.12^2.634^.35^.13^4^1.3^2.34^.39^50^10.76^13.67^2.73^0^3.15^^^0
;;^UTILITY(U,$J,112,635,3)
;;=.082^.406^.485^.819^.904^.228^.13^.359^.314^.471^.849^.35^.769^1.115^1.852^.824^.542^.462
;;^UTILITY(U,$J,112,635,4)
;;=.08^.06^.53^6.45^1.31^3.65^12.36^0^^13.8
;;^UTILITY(U,$J,112,635,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,636,0)
;;=LUNCHEON MEAT, HAM, CHOPPED, NOT CND^7-027^slices^21^100^N
;;^UTILITY(U,$J,112,636,1)
;;=17.12^17.25^0^229^63.64^^^7^.83^16^155^319^1371^1.94^.06^.041^^0^20^.632
;;^UTILITY(U,$J,112,636,2)
;;=.204^3.88^.28^.35^1^.92^1.81^.3^51^5.73^8.2^2.11^0^4.04^^^0
;;^UTILITY(U,$J,112,636,3)
;;=.208^.761^.772^1.374^1.531^.452^.257^.69^.531^.799^1.202^.695^.997^1.659^2.593^.827^.695^.674
;;^UTILITY(U,$J,112,636,4)
;;=.03^.02^.23^3.64^.67^1.81^7.53^0^^17.4
;;^UTILITY(U,$J,112,636,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,637,0)
;;=LUNCHEON MEAT, HAM, SLICED^7-029^slices^28.35^100^N
;;^UTILITY(U,$J,112,637,1)
;;=17.56^10.57^3.11^182^64.64^^^7^.99^19^247^332^1317^2.14^.1^.031^^0^28^.863
;;^UTILITY(U,$J,112,637,2)
;;=.252^5.251^.45^.34^3^.83^1.04^.17^57^3.39^4.95^1.21^0^4.11^^^0
;;^UTILITY(U,$J,112,637,3)
;;=.211^.781^.77^1.394^1.489^.464^.264^.759^.576^.762^1.141^.629^1.037^1.664^2.863^.913^.75^.719
;;^UTILITY(U,$J,112,637,4)
;;=.02^.02^.15^2.13^.43^1.08^4.52^0^^16.4
;;^UTILITY(U,$J,112,637,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,638,0)
;;=LUNCHEON MEAT, HAM SALAD SPREAD^7-031^oz.^28.3^100^N
;;^UTILITY(U,$J,112,638,1)
;;=8.68^15.53^10.65^216^62.6^^^8^.59^10^120^150^912^1.1^.07^.013^^0^6^.435
;;^UTILITY(U,$J,112,638,2)
;;=.12^2.095^.31^.15^1^.76^2.37^.33^37^5.06^7.2^2.7^0^2.55^^^0
;;^UTILITY(U,$J,112,638,3)
;;=.089^.409^.403^.725^.772^.228^.051^.354^.278^.448^.593^.35^.536^.856^1.349^.486^.401^.376
;;^UTILITY(U,$J,112,638,4)
;;=.02^.01^.16^3.2^.47^1.68^6.73^0
;;^UTILITY(U,$J,112,638,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,639,0)
;;=LUNCHEON MEAT, HAM & CHEESE LOAF(OR ROLL)^7-032^slices^28.35^100^N
;;^UTILITY(U,$J,112,639,1)
;;=16.62^20.21^1.43^259^57.91^^^58^.91^16^253^294^1343^2^.08^.027^^75^25^.601
;;^UTILITY(U,$J,112,639,2)
;;=.187^3.452^.52^.26^3^.81^1.91^.27^57^7.51^9.26^2.19^23^3.83^^^0
;;^UTILITY(U,$J,112,639,3)
;;=.207^.719^.754^1.353^1.508^.439^.235^.691^.56^.802^1.119^.677^.911^1.552^2.626^.748^.787^.672
;;^UTILITY(U,$J,112,639,4)
;;=.08^.08^.42^4.57^.72^2.36^8.54^0
;;^UTILITY(U,$J,112,639,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,640,0)
;;=LUNCHEON MEAT, HONEY LOAF^7-035^slices^28.35^100^N
;;^UTILITY(U,$J,112,640,1)
;;=15.77^4.47^5.33^128^70.47^^^17^1.35^17^143^343^1320^2.42^.06^.03^^0^21^.482
;;^UTILITY(U,$J,112,640,2)
;;=.24^3.142^.66^.33^8^1.08^.38^.08^34^1.44^2.01^.47^0^3.96^^^0
;;^UTILITY(U,$J,112,640,3)
;;=.182^.788^.727^1.371^1.481^.477^.154^.669^.578^.775^1.075^.611^.812^1.585^2.652^.846^.808^.753
;;^UTILITY(U,$J,112,640,4)
;;=.02^.02^.08^.84^.23^.47^1.79^0
;;^UTILITY(U,$J,112,640,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,641,0)
;;=SAUSAGE, KIELBASA, KOLBASSY^7-037^slices^26^100^N
;;^UTILITY(U,$J,112,641,1)
;;=13.26^27.15^2.14^310^53.95^^^44^1.45^16^148^271^1076^2.02^.1^.04^^0^21^.228
FHINI02B ; ; 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,632,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,633,0)
+4 ;;=LUNCHEON MEAT, DUTCH BRAND LOAF^7-021^slices^28.35^100^N
+5 ;;^UTILITY(U,$J,112,633,1)
+6 ;;=13.42^17.82^5.57^240^59.41^^^84^1.24^21^162^376^1250^1.72^.07^.032^^0^18^.303
+7 ;;^UTILITY(U,$J,112,633,2)
+8 ;;=.269^2.387^.6^.23^2^1.32^1.66^.25^47^6.35^8.33^1.91^0^3.78^^^0
+9 ;;^UTILITY(U,$J,112,633,3)
+10 ;;=.148^.619^.558^1.076^1.076^.322^.107^.511^.446^.619^.801^.412^.784^1.209^2.248^.841^.888^.635
+11 ;;^UTILITY(U,$J,112,633,4)
+12 ;;=.06^.05^.31^3.82^.79^2.11^7.54^0
+13 ;;^UTILITY(U,$J,112,633,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,634,0)
+16 ;;=FRANKFURTERS, RAW, BEEF^7-022^franks^57^100^N
+17 ;;^UTILITY(U,$J,112,634,1)
+18 ;;=12^28.5^1.8^315^54.7^^^20^1.43^3^87^166^1026^2.17^.06^.033^^0^24^.051
+19 ;;^UTILITY(U,$J,112,634,2)
+20 ;;=.102^2.415^.29^.12^4^1.54^1.11^.27^61^12.05^13.62^1.38^0^2.9^^^0
+21 ;;^UTILITY(U,$J,112,634,3)
+22 ;;=.108^.448^.514^.874^.912^.275^.152^.427^.389^.524^.735^.379^.857^1.165^1.938^.993^.857^.479
+23 ;;^UTILITY(U,$J,112,634,4)
+24 ;;=.08^.06^.94^6.52^1.63^3.96^11.99^0^^13.8
+25 ;;^UTILITY(U,$J,112,634,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,635,0)
+28 ;;=FRANKFURTERS, RAW, BEEF & PORK^7-023^franks^57^100^N
+29 ;;^UTILITY(U,$J,112,635,1)
+30 ;;=11.28^29.15^2.55^320^53.87^^^11^1.15^10^86^167^1120^1.84^.08^.032^^0^26^.199
+31 ;;^UTILITY(U,$J,112,635,2)
+32 ;;=.12^2.634^.35^.13^4^1.3^2.34^.39^50^10.76^13.67^2.73^0^3.15^^^0
+33 ;;^UTILITY(U,$J,112,635,3)
+34 ;;=.082^.406^.485^.819^.904^.228^.13^.359^.314^.471^.849^.35^.769^1.115^1.852^.824^.542^.462
+35 ;;^UTILITY(U,$J,112,635,4)
+36 ;;=.08^.06^.53^6.45^1.31^3.65^12.36^0^^13.8
+37 ;;^UTILITY(U,$J,112,635,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,636,0)
+40 ;;=LUNCHEON MEAT, HAM, CHOPPED, NOT CND^7-027^slices^21^100^N
+41 ;;^UTILITY(U,$J,112,636,1)
+42 ;;=17.12^17.25^0^229^63.64^^^7^.83^16^155^319^1371^1.94^.06^.041^^0^20^.632
+43 ;;^UTILITY(U,$J,112,636,2)
+44 ;;=.204^3.88^.28^.35^1^.92^1.81^.3^51^5.73^8.2^2.11^0^4.04^^^0
+45 ;;^UTILITY(U,$J,112,636,3)
+46 ;;=.208^.761^.772^1.374^1.531^.452^.257^.69^.531^.799^1.202^.695^.997^1.659^2.593^.827^.695^.674
+47 ;;^UTILITY(U,$J,112,636,4)
+48 ;;=.03^.02^.23^3.64^.67^1.81^7.53^0^^17.4
+49 ;;^UTILITY(U,$J,112,636,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,637,0)
+52 ;;=LUNCHEON MEAT, HAM, SLICED^7-029^slices^28.35^100^N
+53 ;;^UTILITY(U,$J,112,637,1)
+54 ;;=17.56^10.57^3.11^182^64.64^^^7^.99^19^247^332^1317^2.14^.1^.031^^0^28^.863
+55 ;;^UTILITY(U,$J,112,637,2)
+56 ;;=.252^5.251^.45^.34^3^.83^1.04^.17^57^3.39^4.95^1.21^0^4.11^^^0
+57 ;;^UTILITY(U,$J,112,637,3)
+58 ;;=.211^.781^.77^1.394^1.489^.464^.264^.759^.576^.762^1.141^.629^1.037^1.664^2.863^.913^.75^.719
+59 ;;^UTILITY(U,$J,112,637,4)
+60 ;;=.02^.02^.15^2.13^.43^1.08^4.52^0^^16.4
+61 ;;^UTILITY(U,$J,112,637,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,638,0)
+64 ;;=LUNCHEON MEAT, HAM SALAD SPREAD^7-031^oz.^28.3^100^N
+65 ;;^UTILITY(U,$J,112,638,1)
+66 ;;=8.68^15.53^10.65^216^62.6^^^8^.59^10^120^150^912^1.1^.07^.013^^0^6^.435
+67 ;;^UTILITY(U,$J,112,638,2)
+68 ;;=.12^2.095^.31^.15^1^.76^2.37^.33^37^5.06^7.2^2.7^0^2.55^^^0
+69 ;;^UTILITY(U,$J,112,638,3)
+70 ;;=.089^.409^.403^.725^.772^.228^.051^.354^.278^.448^.593^.35^.536^.856^1.349^.486^.401^.376
+71 ;;^UTILITY(U,$J,112,638,4)
+72 ;;=.02^.01^.16^3.2^.47^1.68^6.73^0
+73 ;;^UTILITY(U,$J,112,638,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,639,0)
+76 ;;=LUNCHEON MEAT, HAM & CHEESE LOAF(OR ROLL)^7-032^slices^28.35^100^N
+77 ;;^UTILITY(U,$J,112,639,1)
+78 ;;=16.62^20.21^1.43^259^57.91^^^58^.91^16^253^294^1343^2^.08^.027^^75^25^.601
+79 ;;^UTILITY(U,$J,112,639,2)
+80 ;;=.187^3.452^.52^.26^3^.81^1.91^.27^57^7.51^9.26^2.19^23^3.83^^^0
+81 ;;^UTILITY(U,$J,112,639,3)
+82 ;;=.207^.719^.754^1.353^1.508^.439^.235^.691^.56^.802^1.119^.677^.911^1.552^2.626^.748^.787^.672
+83 ;;^UTILITY(U,$J,112,639,4)
+84 ;;=.08^.08^.42^4.57^.72^2.36^8.54^0
+85 ;;^UTILITY(U,$J,112,639,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,640,0)
+88 ;;=LUNCHEON MEAT, HONEY LOAF^7-035^slices^28.35^100^N
+89 ;;^UTILITY(U,$J,112,640,1)
+90 ;;=15.77^4.47^5.33^128^70.47^^^17^1.35^17^143^343^1320^2.42^.06^.03^^0^21^.482
+91 ;;^UTILITY(U,$J,112,640,2)
+92 ;;=.24^3.142^.66^.33^8^1.08^.38^.08^34^1.44^2.01^.47^0^3.96^^^0
+93 ;;^UTILITY(U,$J,112,640,3)
+94 ;;=.182^.788^.727^1.371^1.481^.477^.154^.669^.578^.775^1.075^.611^.812^1.585^2.652^.846^.808^.753
+95 ;;^UTILITY(U,$J,112,640,4)
+96 ;;=.02^.02^.08^.84^.23^.47^1.79^0
+97 ;;^UTILITY(U,$J,112,640,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,641,0)
+100 ;;=SAUSAGE, KIELBASA, KOLBASSY^7-037^slices^26^100^N
+101 ;;^UTILITY(U,$J,112,641,1)
+102 ;;=13.26^27.15^2.14^310^53.95^^^44^1.45^16^148^271^1076^2.02^.1^.04^^0^21^.228
