FHINI02U ; ; 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,853,4)
;;=0^.001^.001^.022^0^.001^.014^0
;;^UTILITY(U,$J,112,853,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,854,0)
;;=CAKE, ANGELFOOD, HOME REC, ENR^18-089^pieces^45^100^N
;;^UTILITY(U,$J,112,854,1)
;;=7.6^.1^59.5^267^31.8^^^6^.76^9^24^218^181^.13^.047^.109^^0^0^.096
;;^UTILITY(U,$J,112,854,2)
;;=.322^.833^.103^.008^4^.09^.058^.003^0^.023^.013^.061^0^.9
;;^UTILITY(U,$J,112,854,3)
;;=.093^.316^.394^.615^.445^.235^.189^.43^.281^.446^.39^.17^.398^.679^1.317^.267^.412^.493
;;^UTILITY(U,$J,112,854,4)
;;=^^^.022^^.001^.013
;;^UTILITY(U,$J,112,854,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,855,0)
;;=CAKE, BOSTON CREAM PIE, ENR^18-091^pieces^69^100^N
;;^UTILITY(U,$J,112,855,1)
;;=4.6^13.2^46.2^315^34.5^^^100^1.32^17^98^102^332^.47^.091^.182^^194^.2^.14
;;^UTILITY(U,$J,112,855,2)
;;=.197^1.099^.276^.034^9^.16^2.598^.177^46^4.234^5.361^2.793^55^1.6
;;^UTILITY(U,$J,112,855,3)
;;=.058^.17^.208^.36^.226^.102^.084^.228^.17^.239^.205^.106^.179^.309^1.093^.146^.394^.258
;;^UTILITY(U,$J,112,855,4)
;;=.038^.042^.191^2.253^.063^1.582^5.281^.014
;;^UTILITY(U,$J,112,855,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,856,0)
;;=CAKE, CARAMEL, UNICED, ENR^523-3^pieces^54^100^N
;;^UTILITY(U,$J,112,856,1)
;;=4.5^17.3^53.7^385^23^^^78^2.3^^106^68^305^^^^^180^.1^.15
;;^UTILITY(U,$J,112,856,2)
;;=.17^1.2^^^^^3.46^^78^4.65^^^^1.5
;;^UTILITY(U,$J,112,856,4)
;;=^^^^^^8.41
;;^UTILITY(U,$J,112,856,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,857,0)
;;=CAKE, CARAMEL, ICED, ENR^524-3^pieces^79^100^N
;;^UTILITY(U,$J,112,857,1)
;;=3.7^14.8^59.1^379^20.9^^^84^2.2^^95^64^252^^^^^200^.2^.12
;;^UTILITY(U,$J,112,857,2)
;;=.14^1^^^^^2.71^^65^4.44^^^^1.5
;;^UTILITY(U,$J,112,857,4)
;;=^^^^^^6.93
;;^UTILITY(U,$J,112,857,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,858,0)
;;=CAKE, CHOCOLATE, (DEVIL'S FOOD), ENR^18-101^pieces^39^100^N
;;^UTILITY(U,$J,112,858,1)
;;=5.3^15.1^53.4^358^24.4^^^60^1.61^32^106^140^315^.69^.207^.28^^140^.2^.141
;;^UTILITY(U,$J,112,858,2)
;;=.213^1.137^.304^.041^10^.16^2.576^.161^58^5.43^6.039^2.761^40^1.3^^^2.2
;;^UTILITY(U,$J,112,858,3)
;;=.068^.202^.24^.407^.268^.116^.098^.265^.197^.283^.253^.12^.22^.39^1.177^.179^.411^.301
;;^UTILITY(U,$J,112,858,4)
;;=.014^.015^.101^2.836^.051^2.392^5.982^.019
;;^UTILITY(U,$J,112,858,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,859,0)
;;=CAKE, CHOCOLATE, CHOC-ICING, ENR^18-096^pieces^75^100^N
;;^UTILITY(U,$J,112,859,1)
;;=4.1^16.4^54.6^367^22.9^^^43^2.2^34^122^200^334^.69^.242^.321^^95^.1^.027
;;^UTILITY(U,$J,112,859,2)
;;=.133^.577^.23^.031^8^.12^1.801^.092^46^4.642^8.993^1.911^28^1.7^^^2.8
;;^UTILITY(U,$J,112,859,3)
;;=.056^.166^.192^.31^.236^.085^.073^.203^.155^.236^.208^.088^.18^.341^.799^.145^.268^.235
;;^UTILITY(U,$J,112,859,4)
;;=.001^.001^.079^2.374^.032^2.184^8.958^.013^^3.3
;;^UTILITY(U,$J,112,859,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,860,0)
;;=CAKE, CHOCOLATE, UNCKD WHT IC, ENR^527-3^pieces^74^100^N
;;^UTILITY(U,$J,112,860,1)
;;=3.8^14.6^59.2^369^21.3^^^59^1.3^^106^110^234^^^^^180^.2^.09
;;^UTILITY(U,$J,112,860,2)
;;=.13^.8^^^^^1.97^^48^5.5^^^^1.1
;;^UTILITY(U,$J,112,860,4)
;;=^^^^^^6.35
;;^UTILITY(U,$J,112,860,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,861,0)
;;=CAKE, COTTAGE PUDDING, ENR, NO SAUCE^528-1^pieces^54^100^N
;;^UTILITY(U,$J,112,861,1)
;;=6.4^11.3^54.3^344^26.6^^^90^1.9^^115^88^299^^^^^140^.2^.21
;;^UTILITY(U,$J,112,861,2)
;;=.22^1.8^^^^^2.16^^60^3.2^^^^1.4
;;^UTILITY(U,$J,112,861,4)
;;=^^^^^^5.32
;;^UTILITY(U,$J,112,861,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,862,0)
;;=CAKE, COTTAGE PUDDING, ENR, W/CHOC SAUCE^529-1^pieces^74^100^N
;;^UTILITY(U,$J,112,862,1)
;;=5.3^8.8^56.7^318^27.9^^^71^1.9^^109^140^233^^^^^100^.1^.16
;;^UTILITY(U,$J,112,862,2)
;;=.18^1.4^^^^^1.59^^44^2.64^^^^1.3
;;^UTILITY(U,$J,112,862,4)
;;=^^^^^^4.08
;;^UTILITY(U,$J,112,862,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,863,0)
;;=CAKE, COTTAGE PUDDING, ENR, W/STRAWBERRY SAUCE^530-1^pieces^70^100^N
;;^UTILITY(U,$J,112,863,1)
;;=5.1^8.8^48.4^292^36.6^^^73^1.7^^93^93^233^^^^^120^12^.17
;;^UTILITY(U,$J,112,863,2)
;;=.18^1.5^^^^^1.67^^47^2.48^^^^1.1
;;^UTILITY(U,$J,112,863,4)
;;=^^^^^^4.13
;;^UTILITY(U,$J,112,863,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,864,0)
;;=CAKE, FRUITCAKE, DARK, ENR^18-111^slices^15^100^N
;;^UTILITY(U,$J,112,864,1)
;;=3.6^11.5^64.8^360^18.6^^^65^1.86^34^79^309^144^.7^.265^.619^^72^4.5^.169
FHINI02U ; ; 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,853,4)
+2 ;;=0^.001^.001^.022^0^.001^.014^0
+3 ;;^UTILITY(U,$J,112,853,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,854,0)
+6 ;;=CAKE, ANGELFOOD, HOME REC, ENR^18-089^pieces^45^100^N
+7 ;;^UTILITY(U,$J,112,854,1)
+8 ;;=7.6^.1^59.5^267^31.8^^^6^.76^9^24^218^181^.13^.047^.109^^0^0^.096
+9 ;;^UTILITY(U,$J,112,854,2)
+10 ;;=.322^.833^.103^.008^4^.09^.058^.003^0^.023^.013^.061^0^.9
+11 ;;^UTILITY(U,$J,112,854,3)
+12 ;;=.093^.316^.394^.615^.445^.235^.189^.43^.281^.446^.39^.17^.398^.679^1.317^.267^.412^.493
+13 ;;^UTILITY(U,$J,112,854,4)
+14 ;;=^^^.022^^.001^.013
+15 ;;^UTILITY(U,$J,112,854,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,855,0)
+18 ;;=CAKE, BOSTON CREAM PIE, ENR^18-091^pieces^69^100^N
+19 ;;^UTILITY(U,$J,112,855,1)
+20 ;;=4.6^13.2^46.2^315^34.5^^^100^1.32^17^98^102^332^.47^.091^.182^^194^.2^.14
+21 ;;^UTILITY(U,$J,112,855,2)
+22 ;;=.197^1.099^.276^.034^9^.16^2.598^.177^46^4.234^5.361^2.793^55^1.6
+23 ;;^UTILITY(U,$J,112,855,3)
+24 ;;=.058^.17^.208^.36^.226^.102^.084^.228^.17^.239^.205^.106^.179^.309^1.093^.146^.394^.258
+25 ;;^UTILITY(U,$J,112,855,4)
+26 ;;=.038^.042^.191^2.253^.063^1.582^5.281^.014
+27 ;;^UTILITY(U,$J,112,855,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,856,0)
+30 ;;=CAKE, CARAMEL, UNICED, ENR^523-3^pieces^54^100^N
+31 ;;^UTILITY(U,$J,112,856,1)
+32 ;;=4.5^17.3^53.7^385^23^^^78^2.3^^106^68^305^^^^^180^.1^.15
+33 ;;^UTILITY(U,$J,112,856,2)
+34 ;;=.17^1.2^^^^^3.46^^78^4.65^^^^1.5
+35 ;;^UTILITY(U,$J,112,856,4)
+36 ;;=^^^^^^8.41
+37 ;;^UTILITY(U,$J,112,856,20)
+38 ;;=USDA Std. Reference, Release 8
+39 ;;^UTILITY(U,$J,112,857,0)
+40 ;;=CAKE, CARAMEL, ICED, ENR^524-3^pieces^79^100^N
+41 ;;^UTILITY(U,$J,112,857,1)
+42 ;;=3.7^14.8^59.1^379^20.9^^^84^2.2^^95^64^252^^^^^200^.2^.12
+43 ;;^UTILITY(U,$J,112,857,2)
+44 ;;=.14^1^^^^^2.71^^65^4.44^^^^1.5
+45 ;;^UTILITY(U,$J,112,857,4)
+46 ;;=^^^^^^6.93
+47 ;;^UTILITY(U,$J,112,857,20)
+48 ;;=USDA Std. Reference, Release 8
+49 ;;^UTILITY(U,$J,112,858,0)
+50 ;;=CAKE, CHOCOLATE, (DEVIL'S FOOD), ENR^18-101^pieces^39^100^N
+51 ;;^UTILITY(U,$J,112,858,1)
+52 ;;=5.3^15.1^53.4^358^24.4^^^60^1.61^32^106^140^315^.69^.207^.28^^140^.2^.141
+53 ;;^UTILITY(U,$J,112,858,2)
+54 ;;=.213^1.137^.304^.041^10^.16^2.576^.161^58^5.43^6.039^2.761^40^1.3^^^2.2
+55 ;;^UTILITY(U,$J,112,858,3)
+56 ;;=.068^.202^.24^.407^.268^.116^.098^.265^.197^.283^.253^.12^.22^.39^1.177^.179^.411^.301
+57 ;;^UTILITY(U,$J,112,858,4)
+58 ;;=.014^.015^.101^2.836^.051^2.392^5.982^.019
+59 ;;^UTILITY(U,$J,112,858,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,859,0)
+62 ;;=CAKE, CHOCOLATE, CHOC-ICING, ENR^18-096^pieces^75^100^N
+63 ;;^UTILITY(U,$J,112,859,1)
+64 ;;=4.1^16.4^54.6^367^22.9^^^43^2.2^34^122^200^334^.69^.242^.321^^95^.1^.027
+65 ;;^UTILITY(U,$J,112,859,2)
+66 ;;=.133^.577^.23^.031^8^.12^1.801^.092^46^4.642^8.993^1.911^28^1.7^^^2.8
+67 ;;^UTILITY(U,$J,112,859,3)
+68 ;;=.056^.166^.192^.31^.236^.085^.073^.203^.155^.236^.208^.088^.18^.341^.799^.145^.268^.235
+69 ;;^UTILITY(U,$J,112,859,4)
+70 ;;=.001^.001^.079^2.374^.032^2.184^8.958^.013^^3.3
+71 ;;^UTILITY(U,$J,112,859,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,860,0)
+74 ;;=CAKE, CHOCOLATE, UNCKD WHT IC, ENR^527-3^pieces^74^100^N
+75 ;;^UTILITY(U,$J,112,860,1)
+76 ;;=3.8^14.6^59.2^369^21.3^^^59^1.3^^106^110^234^^^^^180^.2^.09
+77 ;;^UTILITY(U,$J,112,860,2)
+78 ;;=.13^.8^^^^^1.97^^48^5.5^^^^1.1
+79 ;;^UTILITY(U,$J,112,860,4)
+80 ;;=^^^^^^6.35
+81 ;;^UTILITY(U,$J,112,860,20)
+82 ;;=USDA Std. Reference, Release 8
+83 ;;^UTILITY(U,$J,112,861,0)
+84 ;;=CAKE, COTTAGE PUDDING, ENR, NO SAUCE^528-1^pieces^54^100^N
+85 ;;^UTILITY(U,$J,112,861,1)
+86 ;;=6.4^11.3^54.3^344^26.6^^^90^1.9^^115^88^299^^^^^140^.2^.21
+87 ;;^UTILITY(U,$J,112,861,2)
+88 ;;=.22^1.8^^^^^2.16^^60^3.2^^^^1.4
+89 ;;^UTILITY(U,$J,112,861,4)
+90 ;;=^^^^^^5.32
+91 ;;^UTILITY(U,$J,112,861,20)
+92 ;;=USDA Std. Reference, Release 8
+93 ;;^UTILITY(U,$J,112,862,0)
+94 ;;=CAKE, COTTAGE PUDDING, ENR, W/CHOC SAUCE^529-1^pieces^74^100^N
+95 ;;^UTILITY(U,$J,112,862,1)
+96 ;;=5.3^8.8^56.7^318^27.9^^^71^1.9^^109^140^233^^^^^100^.1^.16
+97 ;;^UTILITY(U,$J,112,862,2)
+98 ;;=.18^1.4^^^^^1.59^^44^2.64^^^^1.3
+99 ;;^UTILITY(U,$J,112,862,4)
+100 ;;=^^^^^^4.08
+101 ;;^UTILITY(U,$J,112,862,20)
+102 ;;=USDA Std. Reference, Release 8
+103 ;;^UTILITY(U,$J,112,863,0)
+104 ;;=CAKE, COTTAGE PUDDING, ENR, W/STRAWBERRY SAUCE^530-1^pieces^70^100^N
+105 ;;^UTILITY(U,$J,112,863,1)
+106 ;;=5.1^8.8^48.4^292^36.6^^^73^1.7^^93^93^233^^^^^120^12^.17
+107 ;;^UTILITY(U,$J,112,863,2)
+108 ;;=.18^1.5^^^^^1.67^^47^2.48^^^^1.1
+109 ;;^UTILITY(U,$J,112,863,4)
+110 ;;=^^^^^^4.13
+111 ;;^UTILITY(U,$J,112,863,20)
+112 ;;=USDA Std. Reference, Release 8
+113 ;;^UTILITY(U,$J,112,864,0)
+114 ;;=CAKE, FRUITCAKE, DARK, ENR^18-111^slices^15^100^N
+115 ;;^UTILITY(U,$J,112,864,1)
+116 ;;=3.6^11.5^64.8^360^18.6^^^65^1.86^34^79^309^144^.7^.265^.619^^72^4.5^.169
