FHINI04Y ; ; 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,1669,4)
;;=^^.001^.015^^.004^.022
;;^UTILITY(U,$J,112,1669,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1670,0)
;;=FIGS, CND, LIGHT SIRUP PACK^9-091^figs^28^100^N
;;^UTILITY(U,$J,112,1670,1)
;;=.39^.1^17.95^69^81.26^^^27^.29^10^10^102^1^.11^.108^.086^^37^1^.022
;;^UTILITY(U,$J,112,1670,2)
;;=.038^.437^.069^^^0^.048^^0^.02^.022^.048^4^.3^^^1.8
;;^UTILITY(U,$J,112,1670,3)
;;=.003^.013^.012^.017^.016^.003^.006^.01^.017^.015^.009^.006^.024^.093^.038^.013^.026^.019
;;^UTILITY(U,$J,112,1670,4)
;;=^^.001^.015^^.004^.022
;;^UTILITY(U,$J,112,1670,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1671,0)
;;=FIGS, CND, HEAVY SIRUP PACK^9-092^figs^28^100^N
;;^UTILITY(U,$J,112,1671,1)
;;=.38^.1^22.9^88^76.33^^^27^.28^10^10^99^1^.11^.106^.084^^37^1^.022
;;^UTILITY(U,$J,112,1671,2)
;;=.037^.428^.069^^^0^.048^^0^.02^.022^.048^4^.29^^^2.2
;;^UTILITY(U,$J,112,1671,3)
;;=.003^.012^.012^.017^.015^.003^.006^.009^.016^.014^.009^.005^.023^.09^.037^.013^.025^.019
;;^UTILITY(U,$J,112,1671,4)
;;=^^.001^.015^^.004^.022
;;^UTILITY(U,$J,112,1671,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1672,0)
;;=FIGS, DRIED, UNCKD^9-094^figs^18.7^99^N
;;^UTILITY(U,$J,112,1672,1)
;;=3.05^1.17^65.35^255^28.43^^^144^2.23^59^68^712^11^.51^.313^.388^^133^.8^.071
;;^UTILITY(U,$J,112,1672,2)
;;=.088^.694^.435^.224^7.5^0^.559^^0^.234^.258^.559^13^2.01^^^8.2
;;^UTILITY(U,$J,112,1672,3)
;;=.026^.1^.093^.133^.122^.025^.05^.074^.132^.115^.07^.043^.184^.717^.295^.103^.201^.151
;;^UTILITY(U,$J,112,1672,4)
;;=^^.009^.178^.001^.047^.257
;;^UTILITY(U,$J,112,1672,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1673,0)
;;=FIGS, DRIED, STEWED^9-095^cups^260^171^N
;;^UTILITY(U,$J,112,1673,1)
;;=1.29^.49^27.57^108^69.8^^^61^.94^25^29^301^5^.21^.132^.164^^159^4.4^.011
;;^UTILITY(U,$J,112,1673,2)
;;=.11^.64^.127^.133^1^0^.236^^0^.099^.108^.236^16^.85^^^4.8
;;^UTILITY(U,$J,112,1673,3)
;;=.011^.042^.039^.056^.051^.011^.021^.031^.056^.049^.03^.018^.078^.303^.124^.044^.085^.064
;;^UTILITY(U,$J,112,1673,4)
;;=^^.004^.075^^.02^.108
;;^UTILITY(U,$J,112,1673,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1674,0)
;;=FRUIT COCKTAIL, CND, WATER PACK^9-096^cups^244^100^N
;;^UTILITY(U,$J,112,1674,1)
;;=.42^.05^8.51^32^90.76^^^5^.25^7^11^94^4^.09^.071^.15^^250^2.1^.016
;;^UTILITY(U,$J,112,1674,2)
;;=.011^.363^.062^.052^2.7^0^.017^.002^0^.006^.009^.02^25^.26^^^1.6
;;^UTILITY(U,$J,112,1674,4)
;;=^^^.005^^.002^.009^^.8
;;^UTILITY(U,$J,112,1674,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1675,0)
;;=FRUIT COCKTAIL, CND, JUICE PACK^9-097^cups^248^100^N
;;^UTILITY(U,$J,112,1675,1)
;;=.46^.01^11.86^46^87.44^^^8^.21^7^14^95^4^.09^.062^.146^^305^2.7^.012
;;^UTILITY(U,$J,112,1675,2)
;;=.016^.403^.062^.051^2.5^0^.005^.001^0^.002^.003^.006^31^.23^^^1.1
;;^UTILITY(U,$J,112,1675,4)
;;=^^^.001^^.001^.003
;;^UTILITY(U,$J,112,1675,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1676,0)
;;=FRUIT COCKTAIL, CND, LT SIRUP^9-099^cups^252^100^N
;;^UTILITY(U,$J,112,1676,1)
;;=.4^.07^14.93^57^84.37^^^6^.29^5^11^89^6^.09^.07^.147^^208^1.9^.018
;;^UTILITY(U,$J,112,1676,2)
;;=.019^.38^.061^.051^2.7^0^.027^.004^0^.01^.014^.031^21^.23^^^1.1
;;^UTILITY(U,$J,112,1676,4)
;;=^^^.007^^.003^.014
;;^UTILITY(U,$J,112,1676,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1677,0)
;;=FRUIT COCKTAIL, CND, HVY SIRUP^9-100^cups^256^100^N
;;^UTILITY(U,$J,112,1677,1)
;;=.39^.07^18.91^73^80.4^^^6^.29^5^11^88^6^.08^.069^.144^^205^1.9^.018
;;^UTILITY(U,$J,112,1677,2)
;;=.019^.374^.06^.05^2.6^0^.027^.004^0^.01^.013^.031^20^.23^^^1.1
;;^UTILITY(U,$J,112,1677,4)
;;=^^^.007^^.003^.013
;;^UTILITY(U,$J,112,1677,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1678,0)
;;=FRUIT SALAD, CND, WATER PACK, SOL&LIQ^9-102^cups^244^100^N
;;^UTILITY(U,$J,112,1678,1)
;;=.35^.07^7.87^30^91.5^^^7^.3^5^9^78^3^.08^.067^.151^^440^1.9^.015
;;^UTILITY(U,$J,112,1678,2)
;;=.021^.374^.053^.032^2.6^0^.025^.003^0^.009^.013^.028^44^.22
;;^UTILITY(U,$J,112,1678,4)
;;=^^^.007^^.003^.013
;;^UTILITY(U,$J,112,1678,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1679,0)
;;=FRUIT SALAD, CND, JUICE PACK, SOL&LIQ^9-103^cups^248^100^N
;;^UTILITY(U,$J,112,1679,1)
;;=.51^.03^13.05^50^86.15^^^11^.25^8^14^116^5^.14^.05^.151^^600^3.3^.011
;;^UTILITY(U,$J,112,1679,2)
;;=.014^.356^.053^.027^2.6^0^.01^.001^0^.004^.005^.011^60^.26
FHINI04Y ; ; 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,1669,4)
+2 ;;=^^.001^.015^^.004^.022
+3 ;;^UTILITY(U,$J,112,1669,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1670,0)
+6 ;;=FIGS, CND, LIGHT SIRUP PACK^9-091^figs^28^100^N
+7 ;;^UTILITY(U,$J,112,1670,1)
+8 ;;=.39^.1^17.95^69^81.26^^^27^.29^10^10^102^1^.11^.108^.086^^37^1^.022
+9 ;;^UTILITY(U,$J,112,1670,2)
+10 ;;=.038^.437^.069^^^0^.048^^0^.02^.022^.048^4^.3^^^1.8
+11 ;;^UTILITY(U,$J,112,1670,3)
+12 ;;=.003^.013^.012^.017^.016^.003^.006^.01^.017^.015^.009^.006^.024^.093^.038^.013^.026^.019
+13 ;;^UTILITY(U,$J,112,1670,4)
+14 ;;=^^.001^.015^^.004^.022
+15 ;;^UTILITY(U,$J,112,1670,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1671,0)
+18 ;;=FIGS, CND, HEAVY SIRUP PACK^9-092^figs^28^100^N
+19 ;;^UTILITY(U,$J,112,1671,1)
+20 ;;=.38^.1^22.9^88^76.33^^^27^.28^10^10^99^1^.11^.106^.084^^37^1^.022
+21 ;;^UTILITY(U,$J,112,1671,2)
+22 ;;=.037^.428^.069^^^0^.048^^0^.02^.022^.048^4^.29^^^2.2
+23 ;;^UTILITY(U,$J,112,1671,3)
+24 ;;=.003^.012^.012^.017^.015^.003^.006^.009^.016^.014^.009^.005^.023^.09^.037^.013^.025^.019
+25 ;;^UTILITY(U,$J,112,1671,4)
+26 ;;=^^.001^.015^^.004^.022
+27 ;;^UTILITY(U,$J,112,1671,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1672,0)
+30 ;;=FIGS, DRIED, UNCKD^9-094^figs^18.7^99^N
+31 ;;^UTILITY(U,$J,112,1672,1)
+32 ;;=3.05^1.17^65.35^255^28.43^^^144^2.23^59^68^712^11^.51^.313^.388^^133^.8^.071
+33 ;;^UTILITY(U,$J,112,1672,2)
+34 ;;=.088^.694^.435^.224^7.5^0^.559^^0^.234^.258^.559^13^2.01^^^8.2
+35 ;;^UTILITY(U,$J,112,1672,3)
+36 ;;=.026^.1^.093^.133^.122^.025^.05^.074^.132^.115^.07^.043^.184^.717^.295^.103^.201^.151
+37 ;;^UTILITY(U,$J,112,1672,4)
+38 ;;=^^.009^.178^.001^.047^.257
+39 ;;^UTILITY(U,$J,112,1672,20)
+40 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+41 ;;^UTILITY(U,$J,112,1673,0)
+42 ;;=FIGS, DRIED, STEWED^9-095^cups^260^171^N
+43 ;;^UTILITY(U,$J,112,1673,1)
+44 ;;=1.29^.49^27.57^108^69.8^^^61^.94^25^29^301^5^.21^.132^.164^^159^4.4^.011
+45 ;;^UTILITY(U,$J,112,1673,2)
+46 ;;=.11^.64^.127^.133^1^0^.236^^0^.099^.108^.236^16^.85^^^4.8
+47 ;;^UTILITY(U,$J,112,1673,3)
+48 ;;=.011^.042^.039^.056^.051^.011^.021^.031^.056^.049^.03^.018^.078^.303^.124^.044^.085^.064
+49 ;;^UTILITY(U,$J,112,1673,4)
+50 ;;=^^.004^.075^^.02^.108
+51 ;;^UTILITY(U,$J,112,1673,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1674,0)
+54 ;;=FRUIT COCKTAIL, CND, WATER PACK^9-096^cups^244^100^N
+55 ;;^UTILITY(U,$J,112,1674,1)
+56 ;;=.42^.05^8.51^32^90.76^^^5^.25^7^11^94^4^.09^.071^.15^^250^2.1^.016
+57 ;;^UTILITY(U,$J,112,1674,2)
+58 ;;=.011^.363^.062^.052^2.7^0^.017^.002^0^.006^.009^.02^25^.26^^^1.6
+59 ;;^UTILITY(U,$J,112,1674,4)
+60 ;;=^^^.005^^.002^.009^^.8
+61 ;;^UTILITY(U,$J,112,1674,20)
+62 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+63 ;;^UTILITY(U,$J,112,1675,0)
+64 ;;=FRUIT COCKTAIL, CND, JUICE PACK^9-097^cups^248^100^N
+65 ;;^UTILITY(U,$J,112,1675,1)
+66 ;;=.46^.01^11.86^46^87.44^^^8^.21^7^14^95^4^.09^.062^.146^^305^2.7^.012
+67 ;;^UTILITY(U,$J,112,1675,2)
+68 ;;=.016^.403^.062^.051^2.5^0^.005^.001^0^.002^.003^.006^31^.23^^^1.1
+69 ;;^UTILITY(U,$J,112,1675,4)
+70 ;;=^^^.001^^.001^.003
+71 ;;^UTILITY(U,$J,112,1675,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,1676,0)
+74 ;;=FRUIT COCKTAIL, CND, LT SIRUP^9-099^cups^252^100^N
+75 ;;^UTILITY(U,$J,112,1676,1)
+76 ;;=.4^.07^14.93^57^84.37^^^6^.29^5^11^89^6^.09^.07^.147^^208^1.9^.018
+77 ;;^UTILITY(U,$J,112,1676,2)
+78 ;;=.019^.38^.061^.051^2.7^0^.027^.004^0^.01^.014^.031^21^.23^^^1.1
+79 ;;^UTILITY(U,$J,112,1676,4)
+80 ;;=^^^.007^^.003^.014
+81 ;;^UTILITY(U,$J,112,1676,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1677,0)
+84 ;;=FRUIT COCKTAIL, CND, HVY SIRUP^9-100^cups^256^100^N
+85 ;;^UTILITY(U,$J,112,1677,1)
+86 ;;=.39^.07^18.91^73^80.4^^^6^.29^5^11^88^6^.08^.069^.144^^205^1.9^.018
+87 ;;^UTILITY(U,$J,112,1677,2)
+88 ;;=.019^.374^.06^.05^2.6^0^.027^.004^0^.01^.013^.031^20^.23^^^1.1
+89 ;;^UTILITY(U,$J,112,1677,4)
+90 ;;=^^^.007^^.003^.013
+91 ;;^UTILITY(U,$J,112,1677,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1678,0)
+94 ;;=FRUIT SALAD, CND, WATER PACK, SOL&LIQ^9-102^cups^244^100^N
+95 ;;^UTILITY(U,$J,112,1678,1)
+96 ;;=.35^.07^7.87^30^91.5^^^7^.3^5^9^78^3^.08^.067^.151^^440^1.9^.015
+97 ;;^UTILITY(U,$J,112,1678,2)
+98 ;;=.021^.374^.053^.032^2.6^0^.025^.003^0^.009^.013^.028^44^.22
+99 ;;^UTILITY(U,$J,112,1678,4)
+100 ;;=^^^.007^^.003^.013
+101 ;;^UTILITY(U,$J,112,1678,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,1679,0)
+104 ;;=FRUIT SALAD, CND, JUICE PACK, SOL&LIQ^9-103^cups^248^100^N
+105 ;;^UTILITY(U,$J,112,1679,1)
+106 ;;=.51^.03^13.05^50^86.15^^^11^.25^8^14^116^5^.14^.05^.151^^600^3.3^.011
+107 ;;^UTILITY(U,$J,112,1679,2)
+108 ;;=.014^.356^.053^.027^2.6^0^.01^.001^0^.004^.005^.011^60^.26
