FHINI01L ; ; 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,390,4)
;;=0^0^.1^25.4^.2^33.2^32.6^0
;;^UTILITY(U,$J,112,390,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,391,0)
;;=OIL, CORN^4-518^cups^218^100^N
;;^UTILITY(U,$J,112,391,1)
;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^14.3^0^0^0
;;^UTILITY(U,$J,112,391,2)
;;=0^0^0^0^0^0^58^0^0^12.7^24.2^58.7^0^0^^^0^83.2
;;^UTILITY(U,$J,112,391,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,391,4)
;;=0^0^0^10.9^0^1.8^24.2^0^3
;;^UTILITY(U,$J,112,391,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,392,0)
;;=MARGARINE, REGULAR, HARD, COCONUT&SFLWR&PALM^4-522^tsp.^4.7^100^N
;;^UTILITY(U,$J,112,392,1)
;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^^^^8.8^3307^.16^.01
;;^UTILITY(U,$J,112,392,2)
;;=.037^.023^.084^.009^1.18^.095^11.5^.3^0^56.9^8.3^11.7^993^2^^^0^11.1
;;^UTILITY(U,$J,112,392,3)
;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046
;;^UTILITY(U,$J,112,392,4)
;;=3.2^28.3^8^7.4^0^3.9^8.3^0
;;^UTILITY(U,$J,112,392,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,393,0)
;;=SALAD DRESSING, BLUE+ROQUEFORT CHEESE, REGULAR, W/SALT^4-539^tbsp.^15.3^100^N
;;^UTILITY(U,$J,112,393,1)
;;=4.8^52.3^7.4^504^32.3^^^81^.2^0^74^37^1094^0^^^6^210^2^.01
;;^UTILITY(U,$J,112,393,2)
;;=.1^.1^.388^.037^8.08^.273^23.5^3.7^17^9.9^12.3^27.8^66^3.2^^^0^49
;;^UTILITY(U,$J,112,393,3)
;;=.07^.176^.253^.431^.416^.131^.024^.244^.29^.349^.159^.17^.144^.322^1.164^.091^.472^.256
;;^UTILITY(U,$J,112,393,4)
;;=0^.1^.6^6.5^.3^2.4^11.8^0^^1
;;^UTILITY(U,$J,112,393,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,394,0)
;;=SHORTENING, HOUSEHOLD, SYBN(HYDR)&PALM^4-559^cups^205^100^N
;;^UTILITY(U,$J,112,394,1)
;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^12^0^0^0
;;^UTILITY(U,$J,112,394,2)
;;=0^0^0^0^0^0^13.5^.6^0^30.6^50.8^14.2^0^0^^^0^81
;;^UTILITY(U,$J,112,394,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,394,4)
;;=.1^.4^.4^19.3^0^9.9^50.6^0
;;^UTILITY(U,$J,112,394,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,395,0)
;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, FRIED, BTTR^5-002^oz.^28.35^79^N
;;^UTILITY(U,$J,112,395,1)
;;=22.84^17.53^9.03^291^49.29^^^21^1.79^21^158^190^284^1.91^.089^.064^^603^.4^.113
;;^UTILITY(U,$J,112,395,2)
;;=.248^7.083^1.039^.32^23^.83^3.7^.2^103^4.67^7.13^4.15^181^1.31
;;^UTILITY(U,$J,112,395,3)
;;=.26^.94^1.137^1.682^1.777^.596^.316^.918^.74^1.12^1.407^.654^1.281^1.986^3.639^1.406^1.2^.853
;;^UTILITY(U,$J,112,395,4)
;;=0^.02^.1^3.1^.54^1.37^6.46^.11
;;^UTILITY(U,$J,112,395,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,396,0)
;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, FRIED, FLR^5-003^oz.^28.35^72^N
;;^UTILITY(U,$J,112,396,1)
;;=28.57^15.27^3.27^272^51.88^^^17^1.99^25^194^237^86^2.36^.1^.047^^826^.5^.088
;;^UTILITY(U,$J,112,396,2)
;;=.278^8.93^1.283^.42^29^1.11^3.05^.15^112^4.16^5.99^3.51^248^1.01
;;^UTILITY(U,$J,112,396,3)
;;=.323^1.187^1.435^2.103^2.297^.757^.383^1.133^.927^1.401^1.78^.831^1.622^2.536^4.306^1.756^1.395^1.031
;;^UTILITY(U,$J,112,396,4)
;;=0^.02^.1^2.88^.64^1.05^5.19^.14
;;^UTILITY(U,$J,112,396,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,397,0)
;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, ROASTED^5-004^oz.^28.35^69^N
;;^UTILITY(U,$J,112,397,1)
;;=26.78^13.27^.06^234^60.11^^^15^1.66^23^182^212^79^2.16^.08^.031^^636^.5^.063
;;^UTILITY(U,$J,112,397,2)
;;=.224^7.908^1.128^.38^29^.94^2.5^.11^107^3.7^5.17^2.9^189^.9^^^0
;;^UTILITY(U,$J,112,397,3)
;;=.298^1.111^1.33^1.955^2.158^.707^.358^1.05^.86^1.306^1.69^.773^1.552^2.395^3.917^1.745^1.316^.961
;;^UTILITY(U,$J,112,397,4)
;;=0^.02^.1^2.7^.71^.77^4.26^.12
;;^UTILITY(U,$J,112,397,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,398,0)
;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, STEWED^5-005^oz.^28.35^67^N
;;^UTILITY(U,$J,112,398,1)
;;=24.49^12.37^.06^216^64.04^^^14^1.53^19^144^163^66^1.98^.071^.029^^579^.5^.048
;;^UTILITY(U,$J,112,398,2)
;;=.201^5.389^.796^.22^27^.79^2.33^.1^97^3.45^4.82^2.7^172^.76^^^0
;;^UTILITY(U,$J,112,398,3)
;;=.273^1.017^1.219^1.79^1.976^.648^.327^.96^.788^1.195^1.545^.708^1.418^2.191^3.585^1.586^1.199^.878
;;^UTILITY(U,$J,112,398,4)
;;=0^.02^.1^2.52^.66^.71^3.98^.11
;;^UTILITY(U,$J,112,398,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,399,0)
;;=CHICKEN, MEAT&SKIN, FRIED, BATTER^5-007^oz.^28.35^78^N
;;^UTILITY(U,$J,112,399,1)
;;=22.54^17.35^9.42^289^49.39^^^21^1.37^21^155^185^292^1.67^.072^.057^^93^0^.115
;;^UTILITY(U,$J,112,399,2)
;;=.189^7.043^.889^.31^8^.28^3.67^.2^87^4.61^7.09^4.1^28^1.3^^^.3
FHINI01L ; ; 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,390,4)
+2 ;;=0^0^.1^25.4^.2^33.2^32.6^0
+3 ;;^UTILITY(U,$J,112,390,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,391,0)
+6 ;;=OIL, CORN^4-518^cups^218^100^N
+7 ;;^UTILITY(U,$J,112,391,1)
+8 ;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^14.3^0^0^0
+9 ;;^UTILITY(U,$J,112,391,2)
+10 ;;=0^0^0^0^0^0^58^0^0^12.7^24.2^58.7^0^0^^^0^83.2
+11 ;;^UTILITY(U,$J,112,391,3)
+12 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+13 ;;^UTILITY(U,$J,112,391,4)
+14 ;;=0^0^0^10.9^0^1.8^24.2^0^3
+15 ;;^UTILITY(U,$J,112,391,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,392,0)
+18 ;;=MARGARINE, REGULAR, HARD, COCONUT&SFLWR&PALM^4-522^tsp.^4.7^100^N
+19 ;;^UTILITY(U,$J,112,392,1)
+20 ;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^^^^8.8^3307^.16^.01
+21 ;;^UTILITY(U,$J,112,392,2)
+22 ;;=.037^.023^.084^.009^1.18^.095^11.5^.3^0^56.9^8.3^11.7^993^2^^^0^11.1
+23 ;;^UTILITY(U,$J,112,392,3)
+24 ;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046
+25 ;;^UTILITY(U,$J,112,392,4)
+26 ;;=3.2^28.3^8^7.4^0^3.9^8.3^0
+27 ;;^UTILITY(U,$J,112,392,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,393,0)
+30 ;;=SALAD DRESSING, BLUE+ROQUEFORT CHEESE, REGULAR, W/SALT^4-539^tbsp.^15.3^100^N
+31 ;;^UTILITY(U,$J,112,393,1)
+32 ;;=4.8^52.3^7.4^504^32.3^^^81^.2^0^74^37^1094^0^^^6^210^2^.01
+33 ;;^UTILITY(U,$J,112,393,2)
+34 ;;=.1^.1^.388^.037^8.08^.273^23.5^3.7^17^9.9^12.3^27.8^66^3.2^^^0^49
+35 ;;^UTILITY(U,$J,112,393,3)
+36 ;;=.07^.176^.253^.431^.416^.131^.024^.244^.29^.349^.159^.17^.144^.322^1.164^.091^.472^.256
+37 ;;^UTILITY(U,$J,112,393,4)
+38 ;;=0^.1^.6^6.5^.3^2.4^11.8^0^^1
+39 ;;^UTILITY(U,$J,112,393,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,394,0)
+42 ;;=SHORTENING, HOUSEHOLD, SYBN(HYDR)&PALM^4-559^cups^205^100^N
+43 ;;^UTILITY(U,$J,112,394,1)
+44 ;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^12^0^0^0
+45 ;;^UTILITY(U,$J,112,394,2)
+46 ;;=0^0^0^0^0^0^13.5^.6^0^30.6^50.8^14.2^0^0^^^0^81
+47 ;;^UTILITY(U,$J,112,394,3)
+48 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+49 ;;^UTILITY(U,$J,112,394,4)
+50 ;;=.1^.4^.4^19.3^0^9.9^50.6^0
+51 ;;^UTILITY(U,$J,112,394,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,395,0)
+54 ;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, FRIED, BTTR^5-002^oz.^28.35^79^N
+55 ;;^UTILITY(U,$J,112,395,1)
+56 ;;=22.84^17.53^9.03^291^49.29^^^21^1.79^21^158^190^284^1.91^.089^.064^^603^.4^.113
+57 ;;^UTILITY(U,$J,112,395,2)
+58 ;;=.248^7.083^1.039^.32^23^.83^3.7^.2^103^4.67^7.13^4.15^181^1.31
+59 ;;^UTILITY(U,$J,112,395,3)
+60 ;;=.26^.94^1.137^1.682^1.777^.596^.316^.918^.74^1.12^1.407^.654^1.281^1.986^3.639^1.406^1.2^.853
+61 ;;^UTILITY(U,$J,112,395,4)
+62 ;;=0^.02^.1^3.1^.54^1.37^6.46^.11
+63 ;;^UTILITY(U,$J,112,395,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,396,0)
+66 ;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, FRIED, FLR^5-003^oz.^28.35^72^N
+67 ;;^UTILITY(U,$J,112,396,1)
+68 ;;=28.57^15.27^3.27^272^51.88^^^17^1.99^25^194^237^86^2.36^.1^.047^^826^.5^.088
+69 ;;^UTILITY(U,$J,112,396,2)
+70 ;;=.278^8.93^1.283^.42^29^1.11^3.05^.15^112^4.16^5.99^3.51^248^1.01
+71 ;;^UTILITY(U,$J,112,396,3)
+72 ;;=.323^1.187^1.435^2.103^2.297^.757^.383^1.133^.927^1.401^1.78^.831^1.622^2.536^4.306^1.756^1.395^1.031
+73 ;;^UTILITY(U,$J,112,396,4)
+74 ;;=0^.02^.1^2.88^.64^1.05^5.19^.14
+75 ;;^UTILITY(U,$J,112,396,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,397,0)
+78 ;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, ROASTED^5-004^oz.^28.35^69^N
+79 ;;^UTILITY(U,$J,112,397,1)
+80 ;;=26.78^13.27^.06^234^60.11^^^15^1.66^23^182^212^79^2.16^.08^.031^^636^.5^.063
+81 ;;^UTILITY(U,$J,112,397,2)
+82 ;;=.224^7.908^1.128^.38^29^.94^2.5^.11^107^3.7^5.17^2.9^189^.9^^^0
+83 ;;^UTILITY(U,$J,112,397,3)
+84 ;;=.298^1.111^1.33^1.955^2.158^.707^.358^1.05^.86^1.306^1.69^.773^1.552^2.395^3.917^1.745^1.316^.961
+85 ;;^UTILITY(U,$J,112,397,4)
+86 ;;=0^.02^.1^2.7^.71^.77^4.26^.12
+87 ;;^UTILITY(U,$J,112,397,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,398,0)
+90 ;;=CHICKEN, MEAT&SKIN&GIBLETS&NECK, STEWED^5-005^oz.^28.35^67^N
+91 ;;^UTILITY(U,$J,112,398,1)
+92 ;;=24.49^12.37^.06^216^64.04^^^14^1.53^19^144^163^66^1.98^.071^.029^^579^.5^.048
+93 ;;^UTILITY(U,$J,112,398,2)
+94 ;;=.201^5.389^.796^.22^27^.79^2.33^.1^97^3.45^4.82^2.7^172^.76^^^0
+95 ;;^UTILITY(U,$J,112,398,3)
+96 ;;=.273^1.017^1.219^1.79^1.976^.648^.327^.96^.788^1.195^1.545^.708^1.418^2.191^3.585^1.586^1.199^.878
+97 ;;^UTILITY(U,$J,112,398,4)
+98 ;;=0^.02^.1^2.52^.66^.71^3.98^.11
+99 ;;^UTILITY(U,$J,112,398,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,399,0)
+102 ;;=CHICKEN, MEAT&SKIN, FRIED, BATTER^5-007^oz.^28.35^78^N
+103 ;;^UTILITY(U,$J,112,399,1)
+104 ;;=22.54^17.35^9.42^289^49.39^^^21^1.37^21^155^185^292^1.67^.072^.057^^93^0^.115
+105 ;;^UTILITY(U,$J,112,399,2)
+106 ;;=.189^7.043^.889^.31^8^.28^3.67^.2^87^4.61^7.09^4.1^28^1.3^^^.3
