FHINI04D ; ; 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,1452,1)
;;=2.8^12.2^38.5^270^45.8^^^10^1.85^9^30^77^191^.2^.077^.2^^409^1^.148
;;^UTILITY(U,$J,112,1452,2)
;;=.125^1.276^.123^.034^7^0^3.045^.202^0^2.985^5.314^3.247^48^.7
;;^UTILITY(U,$J,112,1452,3)
;;=.031^.072^.088^.17^.067^.043^.05^.124^.075^.104^.1^.057^.086^.341^.791^.092^.28^.128
;;^UTILITY(U,$J,112,1452,4)
;;=0^0^.047^1.7^0^1.238^5.314^0
;;^UTILITY(U,$J,112,1452,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1453,0)
;;=PIES, CHOCOLATE CHIFFON, BAKED, ENR, W/SALT IN FILLING^1572-7^sectors^81^100^N
;;^UTILITY(U,$J,112,1453,1)
;;=6.8^15.3^43.7^328^33^^^24^1.8^^97^110^378^^^^^310^0^.1
;;^UTILITY(U,$J,112,1453,2)
;;=.15^.9^^^^^2.25^^132^5.13^^^^1.1
;;^UTILITY(U,$J,112,1453,4)
;;=^^^^^^6.98
;;^UTILITY(U,$J,112,1453,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1454,0)
;;=PIES, CHOCOLATE MERINGUE, BAKED, ENR^1573-3^sectors^114^100^N
;;^UTILITY(U,$J,112,1454,1)
;;=4.8^12^33.5^252^48.4^^^69^1.1^^98^139^256^^^^^190^0^.07
;;^UTILITY(U,$J,112,1454,2)
;;=.16^.7^^^^^1.6^^56^4.49^^^^1.2
;;^UTILITY(U,$J,112,1454,4)
;;=^^^^^^5.23
;;^UTILITY(U,$J,112,1454,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1455,0)
;;=PIES, COCONUT CUSTARD, BAKED, ENR^18-315^sectors^114^100^N
;;^UTILITY(U,$J,112,1455,1)
;;=4.8^16^34.2^298^43.7^^^85^1.12^16^105^138^268^.61^.057^.275^^285^.5^.138
;;^UTILITY(U,$J,112,1455,2)
;;=.208^.997^.429^.062^11^.28^3.172^.204^58^5.682^6.006^3.399^79^1.3
;;^UTILITY(U,$J,112,1455,3)
;;=.06^.181^.223^.391^.258^.102^.072^.224^.185^.253^.222^.116^.17^.31^1.145^.136^.435^.265
;;^UTILITY(U,$J,112,1455,4)
;;=.14^.915^.52^2.373^.065^1.502^5.933^.018
;;^UTILITY(U,$J,112,1455,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1456,0)
;;=PIES, CUSTARD, BAKED, ENR^18-318^sectors^114^100^N
;;^UTILITY(U,$J,112,1456,1)
;;=5.1^8.9^26.8^206^58.2^^^84^.78^13^98^125^202^.49^.031^.086^^221^.4^.096
;;^UTILITY(U,$J,112,1456,2)
;;=.227^.659^.399^.044^10^.24^1.742^.123^69^2.77^3.642^1.893^64^1
;;^UTILITY(U,$J,112,1456,3)
;;=.064^.21^.26^.431^.315^.128^.086^.252^.205^.291^.23^.123^.209^.385^1.043^.146^.397^.304
;;^UTILITY(U,$J,112,1456,4)
;;=.031^.035^.166^1.536^.073^.915^3.561^.021
;;^UTILITY(U,$J,112,1456,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1457,0)
;;=PIES, LEMON CHIFFON, BAKED, ENR, W/SALT IN FILLING^1576-8^sectors^81^100^N
;;^UTILITY(U,$J,112,1457,1)
;;=7^12.6^43.8^313^35.6^^^23^1.5^^83^81^392^^^^^170^3^.1
;;^UTILITY(U,$J,112,1457,2)
;;=.16^.8^^^^^1.2^^178^4.51^^^^1
;;^UTILITY(U,$J,112,1457,4)
;;=^^^^^^5.68
;;^UTILITY(U,$J,112,1457,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1458,0)
;;=PIES, LEMON MERINGUE, BAKED, ENR^18-321^sectors^105^100^N
;;^UTILITY(U,$J,112,1458,1)
;;=3.8^12.9^39.1^285^43.3^^^12^1^6^42^65^242^.28^.042^.128^^160^3.3^.118
;;^UTILITY(U,$J,112,1458,2)
;;=.159^.944^.214^.027^9^.12^3.121^.186^53^3.185^5.582^3.331^44^.9
;;^UTILITY(U,$J,112,1458,3)
;;=.046^.143^.169^.292^.181^.092^.083^.194^.135^.192^.191^.087^.166^.272^.864^.13^.288^.236
;;^UTILITY(U,$J,112,1458,4)
;;=0^0^.047^1.881^.038^1.249^5.539^.018
;;^UTILITY(U,$J,112,1458,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1459,0)
;;=PIES, MINCE, BAKED, ENR^18-322^sectors^118^100^N
;;^UTILITY(U,$J,112,1459,1)
;;=2.6^10.8^48^289^37.4^^^22^1.49^14^42^203^254^.22^.113^.263^^22^5.9^.15
;;^UTILITY(U,$J,112,1459,2)
;;=.105^1.189^.1^.065^5^0^2.661^.18^0^2.682^4.654^2.842^2^1.2
;;^UTILITY(U,$J,112,1459,3)
;;=.027^.07^.074^.149^.058^.053^.051^.112^.07^.096^.122^.064^.087^.157^.779^.073^.232^.101
;;^UTILITY(U,$J,112,1459,4)
;;=0^0^.043^1.529^.001^1.11^4.654^0
;;^UTILITY(U,$J,112,1459,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1460,0)
;;=PIES, PEACH, BAKED, ENR, W/SALT IN FILLING^18-323^sectors^118^100^N
;;^UTILITY(U,$J,112,1460,1)
;;=1.9^10^32.9^223^54.4^^^8^.5^6^25^125^270^.09^.057^.174^^105^1^.061
;;^UTILITY(U,$J,112,1460,2)
;;=.033^.2^.094^.023^4^0^1.811^.09^0^1.894^5.412^1.901^22^.8
;;^UTILITY(U,$J,112,1460,3)
;;=.022^.057^.067^.122^.064^.035^.035^.081^.052^.086^.066^.037^.069^.132^.538^.064^.178^.095
;;^UTILITY(U,$J,112,1460,4)
;;=^^.008^1.067^.015^.784^5.397^0
;;^UTILITY(U,$J,112,1460,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1461,0)
;;=PIES, PECAN, BAKED, ENR, W/SALT IN FILLING^18-325^sectors^103^100^N
;;^UTILITY(U,$J,112,1461,1)
;;=4.9^22.2^52.2^412^19.5^^^32^1.48^26^94^133^262^1.02^.211^.712^^336^.2^.188
;;^UTILITY(U,$J,112,1461,2)
;;=.18^.847^.479^.06^14^.17^5.402^.271^87^3.989^11.181^5.71^89^1.1
FHINI04D ; ; 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,1452,1)
+2 ;;=2.8^12.2^38.5^270^45.8^^^10^1.85^9^30^77^191^.2^.077^.2^^409^1^.148
+3 ;;^UTILITY(U,$J,112,1452,2)
+4 ;;=.125^1.276^.123^.034^7^0^3.045^.202^0^2.985^5.314^3.247^48^.7
+5 ;;^UTILITY(U,$J,112,1452,3)
+6 ;;=.031^.072^.088^.17^.067^.043^.05^.124^.075^.104^.1^.057^.086^.341^.791^.092^.28^.128
+7 ;;^UTILITY(U,$J,112,1452,4)
+8 ;;=0^0^.047^1.7^0^1.238^5.314^0
+9 ;;^UTILITY(U,$J,112,1452,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1453,0)
+12 ;;=PIES, CHOCOLATE CHIFFON, BAKED, ENR, W/SALT IN FILLING^1572-7^sectors^81^100^N
+13 ;;^UTILITY(U,$J,112,1453,1)
+14 ;;=6.8^15.3^43.7^328^33^^^24^1.8^^97^110^378^^^^^310^0^.1
+15 ;;^UTILITY(U,$J,112,1453,2)
+16 ;;=.15^.9^^^^^2.25^^132^5.13^^^^1.1
+17 ;;^UTILITY(U,$J,112,1453,4)
+18 ;;=^^^^^^6.98
+19 ;;^UTILITY(U,$J,112,1453,20)
+20 ;;=USDA Std. Reference, Release 8
+21 ;;^UTILITY(U,$J,112,1454,0)
+22 ;;=PIES, CHOCOLATE MERINGUE, BAKED, ENR^1573-3^sectors^114^100^N
+23 ;;^UTILITY(U,$J,112,1454,1)
+24 ;;=4.8^12^33.5^252^48.4^^^69^1.1^^98^139^256^^^^^190^0^.07
+25 ;;^UTILITY(U,$J,112,1454,2)
+26 ;;=.16^.7^^^^^1.6^^56^4.49^^^^1.2
+27 ;;^UTILITY(U,$J,112,1454,4)
+28 ;;=^^^^^^5.23
+29 ;;^UTILITY(U,$J,112,1454,20)
+30 ;;=USDA Std. Reference, Release 8
+31 ;;^UTILITY(U,$J,112,1455,0)
+32 ;;=PIES, COCONUT CUSTARD, BAKED, ENR^18-315^sectors^114^100^N
+33 ;;^UTILITY(U,$J,112,1455,1)
+34 ;;=4.8^16^34.2^298^43.7^^^85^1.12^16^105^138^268^.61^.057^.275^^285^.5^.138
+35 ;;^UTILITY(U,$J,112,1455,2)
+36 ;;=.208^.997^.429^.062^11^.28^3.172^.204^58^5.682^6.006^3.399^79^1.3
+37 ;;^UTILITY(U,$J,112,1455,3)
+38 ;;=.06^.181^.223^.391^.258^.102^.072^.224^.185^.253^.222^.116^.17^.31^1.145^.136^.435^.265
+39 ;;^UTILITY(U,$J,112,1455,4)
+40 ;;=.14^.915^.52^2.373^.065^1.502^5.933^.018
+41 ;;^UTILITY(U,$J,112,1455,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,1456,0)
+44 ;;=PIES, CUSTARD, BAKED, ENR^18-318^sectors^114^100^N
+45 ;;^UTILITY(U,$J,112,1456,1)
+46 ;;=5.1^8.9^26.8^206^58.2^^^84^.78^13^98^125^202^.49^.031^.086^^221^.4^.096
+47 ;;^UTILITY(U,$J,112,1456,2)
+48 ;;=.227^.659^.399^.044^10^.24^1.742^.123^69^2.77^3.642^1.893^64^1
+49 ;;^UTILITY(U,$J,112,1456,3)
+50 ;;=.064^.21^.26^.431^.315^.128^.086^.252^.205^.291^.23^.123^.209^.385^1.043^.146^.397^.304
+51 ;;^UTILITY(U,$J,112,1456,4)
+52 ;;=.031^.035^.166^1.536^.073^.915^3.561^.021
+53 ;;^UTILITY(U,$J,112,1456,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,1457,0)
+56 ;;=PIES, LEMON CHIFFON, BAKED, ENR, W/SALT IN FILLING^1576-8^sectors^81^100^N
+57 ;;^UTILITY(U,$J,112,1457,1)
+58 ;;=7^12.6^43.8^313^35.6^^^23^1.5^^83^81^392^^^^^170^3^.1
+59 ;;^UTILITY(U,$J,112,1457,2)
+60 ;;=.16^.8^^^^^1.2^^178^4.51^^^^1
+61 ;;^UTILITY(U,$J,112,1457,4)
+62 ;;=^^^^^^5.68
+63 ;;^UTILITY(U,$J,112,1457,20)
+64 ;;=USDA Std. Reference, Release 8
+65 ;;^UTILITY(U,$J,112,1458,0)
+66 ;;=PIES, LEMON MERINGUE, BAKED, ENR^18-321^sectors^105^100^N
+67 ;;^UTILITY(U,$J,112,1458,1)
+68 ;;=3.8^12.9^39.1^285^43.3^^^12^1^6^42^65^242^.28^.042^.128^^160^3.3^.118
+69 ;;^UTILITY(U,$J,112,1458,2)
+70 ;;=.159^.944^.214^.027^9^.12^3.121^.186^53^3.185^5.582^3.331^44^.9
+71 ;;^UTILITY(U,$J,112,1458,3)
+72 ;;=.046^.143^.169^.292^.181^.092^.083^.194^.135^.192^.191^.087^.166^.272^.864^.13^.288^.236
+73 ;;^UTILITY(U,$J,112,1458,4)
+74 ;;=0^0^.047^1.881^.038^1.249^5.539^.018
+75 ;;^UTILITY(U,$J,112,1458,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1459,0)
+78 ;;=PIES, MINCE, BAKED, ENR^18-322^sectors^118^100^N
+79 ;;^UTILITY(U,$J,112,1459,1)
+80 ;;=2.6^10.8^48^289^37.4^^^22^1.49^14^42^203^254^.22^.113^.263^^22^5.9^.15
+81 ;;^UTILITY(U,$J,112,1459,2)
+82 ;;=.105^1.189^.1^.065^5^0^2.661^.18^0^2.682^4.654^2.842^2^1.2
+83 ;;^UTILITY(U,$J,112,1459,3)
+84 ;;=.027^.07^.074^.149^.058^.053^.051^.112^.07^.096^.122^.064^.087^.157^.779^.073^.232^.101
+85 ;;^UTILITY(U,$J,112,1459,4)
+86 ;;=0^0^.043^1.529^.001^1.11^4.654^0
+87 ;;^UTILITY(U,$J,112,1459,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,1460,0)
+90 ;;=PIES, PEACH, BAKED, ENR, W/SALT IN FILLING^18-323^sectors^118^100^N
+91 ;;^UTILITY(U,$J,112,1460,1)
+92 ;;=1.9^10^32.9^223^54.4^^^8^.5^6^25^125^270^.09^.057^.174^^105^1^.061
+93 ;;^UTILITY(U,$J,112,1460,2)
+94 ;;=.033^.2^.094^.023^4^0^1.811^.09^0^1.894^5.412^1.901^22^.8
+95 ;;^UTILITY(U,$J,112,1460,3)
+96 ;;=.022^.057^.067^.122^.064^.035^.035^.081^.052^.086^.066^.037^.069^.132^.538^.064^.178^.095
+97 ;;^UTILITY(U,$J,112,1460,4)
+98 ;;=^^.008^1.067^.015^.784^5.397^0
+99 ;;^UTILITY(U,$J,112,1460,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1461,0)
+102 ;;=PIES, PECAN, BAKED, ENR, W/SALT IN FILLING^18-325^sectors^103^100^N
+103 ;;^UTILITY(U,$J,112,1461,1)
+104 ;;=4.9^22.2^52.2^412^19.5^^^32^1.48^26^94^133^262^1.02^.211^.712^^336^.2^.188
+105 ;;^UTILITY(U,$J,112,1461,2)
+106 ;;=.18^.847^.479^.06^14^.17^5.402^.271^87^3.989^11.181^5.71^89^1.1
