FHINI05H ; ; 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,1870,1)
;;=3.14^.21^5.34^28^89.98^^^146^1.52^69^48^298^86^.7^.141^.942^^7784^12.3^.06
;;^UTILITY(U,$J,112,1870,2)
;;=.168^.419^.083^.146^107.5^0^.013^.068^0^.033^.006^.086^778^1.33^^^3
;;^UTILITY(U,$J,112,1870,3)
;;=.042^.134^.16^.244^.192^.058^.038^.142^.119^.177^.178^.069^.155^.264^.377^.147^.123^.114
;;^UTILITY(U,$J,112,1870,4)
;;=^^.005^.024^.003^.002^.003
;;^UTILITY(U,$J,112,1870,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1871,0)
;;=SPINACH, FRZ, CHOPPED, CKD W/SALT^11-856^cups^205^100^N
;;^UTILITY(U,$J,112,1871,1)
;;=3.14^.21^5.34^28^89.98^^^146^1.52^69^48^298^322^.7^.141^.942^^7784^12.3^.06
;;^UTILITY(U,$J,112,1871,2)
;;=.168^.419^.083^.146^107.5^0^.013^.068^0^.033^.006^.086^778^1.33
;;^UTILITY(U,$J,112,1871,3)
;;=.042^.134^.16^.244^.192^.058^.038^.142^.119^.177^.178^.069^.155^.264^.377^.147^.123^.114
;;^UTILITY(U,$J,112,1871,4)
;;=^^.005^.024^.003^.002^.003
;;^UTILITY(U,$J,112,1871,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1874,0)
;;=SQUASH, SUMMER, ALL VARIETIES, RAW^11-641^cups^130^95^N
;;^UTILITY(U,$J,112,1874,1)
;;=1.18^.21^4.35^20^93.68^^^20^.46^23^35^195^2^.26^.076^.157^^196^14.8^.064
;;^UTILITY(U,$J,112,1874,2)
;;=.037^.551^.102^.109^25.6^0^.033^.056^0^.044^.016^.089^20^.58^^^1.9
;;^UTILITY(U,$J,112,1874,3)
;;=.011^.028^.042^.069^.065^.017^.012^.041^.031^.053^.05^.025^.062^.144^.126^.044^.037^.048
;;^UTILITY(U,$J,112,1874,4)
;;=^.001^.001^.038^.001^.004^.014^^3
;;^UTILITY(U,$J,112,1874,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1875,0)
;;=SQUASH, SUMMER, ALL VARIETIES, CKD WO/SALT^11-642^cups^210^100^N
;;^UTILITY(U,$J,112,1875,1)
;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^1^.39^.103^.213^^287^5.5^.044
;;^UTILITY(U,$J,112,1875,2)
;;=.041^.513^.137^.065^20.1^0^.049^.082^0^.064^.023^.131^29^.77^^^1.4
;;^UTILITY(U,$J,112,1875,3)
;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
;;^UTILITY(U,$J,112,1875,4)
;;=^.001^.001^.056^.001^.006^.021
;;^UTILITY(U,$J,112,1875,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1876,0)
;;=SQUASH, SUMMER, ALL VARIETIES, CKD W/SALT^11-857^cups^210^100^N
;;^UTILITY(U,$J,112,1876,1)
;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^237^.39^.103^.213^^287^5.5^.044
;;^UTILITY(U,$J,112,1876,2)
;;=.041^.513^.137^.065^20.1^0^.049^.082^0^.064^.023^.131^29^.77
;;^UTILITY(U,$J,112,1876,3)
;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
;;^UTILITY(U,$J,112,1876,4)
;;=^.001^.001^.056^.001^.006^.021
;;^UTILITY(U,$J,112,1876,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1877,0)
;;=SQUASH, YEL, CKD WO/SALT^11-468^cups^210^100^N
;;^UTILITY(U,$J,112,1877,1)
;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^1^.39^.103^.213^^287^5.5^.049
;;^UTILITY(U,$J,112,1877,2)
;;=.049^.513^.137^.094^20.1^0^.049^.082^0^.064^.023^.131^29^.77^^^1.4
;;^UTILITY(U,$J,112,1877,3)
;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
;;^UTILITY(U,$J,112,1877,4)
;;=^.001^.001^.056^.001^.006^.021
;;^UTILITY(U,$J,112,1877,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1878,0)
;;=SQUASH, YEL, CKD W/SALT^11-858^cups^210^100^N
;;^UTILITY(U,$J,112,1878,1)
;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^237^.39^.103^.213^^287^5.5^.049
;;^UTILITY(U,$J,112,1878,2)
;;=.049^.513^.137^.094^20.1^0^.049^.082^0^.064^.023^.131^29^.77
;;^UTILITY(U,$J,112,1878,3)
;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
;;^UTILITY(U,$J,112,1878,4)
;;=^.001^.001^.056^.001^.006^.021
;;^UTILITY(U,$J,112,1878,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1879,0)
;;=SQUASH, SCALLOP VAR, CKD WO/SALT^11-476^cups^210^100^N
;;^UTILITY(U,$J,112,1879,1)
;;=1.03^.17^3.3^16^95^^^15^.33^19^28^140^1^.24^.083^.128^^85^10.8^.051
;;^UTILITY(U,$J,112,1879,2)
;;=.025^.464^.079^.085^20.7^0^.027^.045^0^.035^.013^.072^9^.5^^^1.2
;;^UTILITY(U,$J,112,1879,3)
;;=.009^.025^.037^.061^.057^.015^.011^.036^.028^.047^.044^.022^.054^.126^.111^.039^.032^.042
;;^UTILITY(U,$J,112,1879,4)
;;=^.001^.001^.031^.001^.003^.012
;;^UTILITY(U,$J,112,1879,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1880,0)
;;=SQUASH, SCALLOP VAR, CKD W/SALT^11-860^cups^210^100^N
;;^UTILITY(U,$J,112,1880,1)
;;=1.03^.17^3.3^16^95^^^15^.33^19^28^140^237^.24^.083^.128^^85^10.8^.051
;;^UTILITY(U,$J,112,1880,2)
;;=.025^.464^.079^.085^20.7^0^.027^.045^0^.035^.013^.072^9^.5
;;^UTILITY(U,$J,112,1880,3)
;;=.009^.025^.037^.061^.057^.015^.011^.036^.028^.047^.044^.022^.054^.126^.111^.039^.032^.042
FHINI05H ; ; 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,1870,1)
+2 ;;=3.14^.21^5.34^28^89.98^^^146^1.52^69^48^298^86^.7^.141^.942^^7784^12.3^.06
+3 ;;^UTILITY(U,$J,112,1870,2)
+4 ;;=.168^.419^.083^.146^107.5^0^.013^.068^0^.033^.006^.086^778^1.33^^^3
+5 ;;^UTILITY(U,$J,112,1870,3)
+6 ;;=.042^.134^.16^.244^.192^.058^.038^.142^.119^.177^.178^.069^.155^.264^.377^.147^.123^.114
+7 ;;^UTILITY(U,$J,112,1870,4)
+8 ;;=^^.005^.024^.003^.002^.003
+9 ;;^UTILITY(U,$J,112,1870,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1871,0)
+12 ;;=SPINACH, FRZ, CHOPPED, CKD W/SALT^11-856^cups^205^100^N
+13 ;;^UTILITY(U,$J,112,1871,1)
+14 ;;=3.14^.21^5.34^28^89.98^^^146^1.52^69^48^298^322^.7^.141^.942^^7784^12.3^.06
+15 ;;^UTILITY(U,$J,112,1871,2)
+16 ;;=.168^.419^.083^.146^107.5^0^.013^.068^0^.033^.006^.086^778^1.33
+17 ;;^UTILITY(U,$J,112,1871,3)
+18 ;;=.042^.134^.16^.244^.192^.058^.038^.142^.119^.177^.178^.069^.155^.264^.377^.147^.123^.114
+19 ;;^UTILITY(U,$J,112,1871,4)
+20 ;;=^^.005^.024^.003^.002^.003
+21 ;;^UTILITY(U,$J,112,1871,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1874,0)
+24 ;;=SQUASH, SUMMER, ALL VARIETIES, RAW^11-641^cups^130^95^N
+25 ;;^UTILITY(U,$J,112,1874,1)
+26 ;;=1.18^.21^4.35^20^93.68^^^20^.46^23^35^195^2^.26^.076^.157^^196^14.8^.064
+27 ;;^UTILITY(U,$J,112,1874,2)
+28 ;;=.037^.551^.102^.109^25.6^0^.033^.056^0^.044^.016^.089^20^.58^^^1.9
+29 ;;^UTILITY(U,$J,112,1874,3)
+30 ;;=.011^.028^.042^.069^.065^.017^.012^.041^.031^.053^.05^.025^.062^.144^.126^.044^.037^.048
+31 ;;^UTILITY(U,$J,112,1874,4)
+32 ;;=^.001^.001^.038^.001^.004^.014^^3
+33 ;;^UTILITY(U,$J,112,1874,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1875,0)
+36 ;;=SQUASH, SUMMER, ALL VARIETIES, CKD WO/SALT^11-642^cups^210^100^N
+37 ;;^UTILITY(U,$J,112,1875,1)
+38 ;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^1^.39^.103^.213^^287^5.5^.044
+39 ;;^UTILITY(U,$J,112,1875,2)
+40 ;;=.041^.513^.137^.065^20.1^0^.049^.082^0^.064^.023^.131^29^.77^^^1.4
+41 ;;^UTILITY(U,$J,112,1875,3)
+42 ;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
+43 ;;^UTILITY(U,$J,112,1875,4)
+44 ;;=^.001^.001^.056^.001^.006^.021
+45 ;;^UTILITY(U,$J,112,1875,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1876,0)
+48 ;;=SQUASH, SUMMER, ALL VARIETIES, CKD W/SALT^11-857^cups^210^100^N
+49 ;;^UTILITY(U,$J,112,1876,1)
+50 ;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^237^.39^.103^.213^^287^5.5^.044
+51 ;;^UTILITY(U,$J,112,1876,2)
+52 ;;=.041^.513^.137^.065^20.1^0^.049^.082^0^.064^.023^.131^29^.77
+53 ;;^UTILITY(U,$J,112,1876,3)
+54 ;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
+55 ;;^UTILITY(U,$J,112,1876,4)
+56 ;;=^.001^.001^.056^.001^.006^.021
+57 ;;^UTILITY(U,$J,112,1876,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1877,0)
+60 ;;=SQUASH, YEL, CKD WO/SALT^11-468^cups^210^100^N
+61 ;;^UTILITY(U,$J,112,1877,1)
+62 ;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^1^.39^.103^.213^^287^5.5^.049
+63 ;;^UTILITY(U,$J,112,1877,2)
+64 ;;=.049^.513^.137^.094^20.1^0^.049^.082^0^.064^.023^.131^29^.77^^^1.4
+65 ;;^UTILITY(U,$J,112,1877,3)
+66 ;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
+67 ;;^UTILITY(U,$J,112,1877,4)
+68 ;;=^.001^.001^.056^.001^.006^.021
+69 ;;^UTILITY(U,$J,112,1877,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1878,0)
+72 ;;=SQUASH, YEL, CKD W/SALT^11-858^cups^210^100^N
+73 ;;^UTILITY(U,$J,112,1878,1)
+74 ;;=.91^.31^4.31^20^93.7^^^27^.36^24^39^192^237^.39^.103^.213^^287^5.5^.049
+75 ;;^UTILITY(U,$J,112,1878,2)
+76 ;;=.049^.513^.137^.094^20.1^0^.049^.082^0^.064^.023^.131^29^.77
+77 ;;^UTILITY(U,$J,112,1878,3)
+78 ;;=.008^.022^.033^.053^.05^.013^.01^.032^.024^.041^.038^.02^.048^.111^.097^.034^.028^.037
+79 ;;^UTILITY(U,$J,112,1878,4)
+80 ;;=^.001^.001^.056^.001^.006^.021
+81 ;;^UTILITY(U,$J,112,1878,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1879,0)
+84 ;;=SQUASH, SCALLOP VAR, CKD WO/SALT^11-476^cups^210^100^N
+85 ;;^UTILITY(U,$J,112,1879,1)
+86 ;;=1.03^.17^3.3^16^95^^^15^.33^19^28^140^1^.24^.083^.128^^85^10.8^.051
+87 ;;^UTILITY(U,$J,112,1879,2)
+88 ;;=.025^.464^.079^.085^20.7^0^.027^.045^0^.035^.013^.072^9^.5^^^1.2
+89 ;;^UTILITY(U,$J,112,1879,3)
+90 ;;=.009^.025^.037^.061^.057^.015^.011^.036^.028^.047^.044^.022^.054^.126^.111^.039^.032^.042
+91 ;;^UTILITY(U,$J,112,1879,4)
+92 ;;=^.001^.001^.031^.001^.003^.012
+93 ;;^UTILITY(U,$J,112,1879,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1880,0)
+96 ;;=SQUASH, SCALLOP VAR, CKD W/SALT^11-860^cups^210^100^N
+97 ;;^UTILITY(U,$J,112,1880,1)
+98 ;;=1.03^.17^3.3^16^95^^^15^.33^19^28^140^237^.24^.083^.128^^85^10.8^.051
+99 ;;^UTILITY(U,$J,112,1880,2)
+100 ;;=.025^.464^.079^.085^20.7^0^.027^.045^0^.035^.013^.072^9^.5
+101 ;;^UTILITY(U,$J,112,1880,3)
+102 ;;=.009^.025^.037^.061^.057^.015^.011^.036^.028^.047^.044^.022^.054^.126^.111^.039^.032^.042
