FHINI04E ; ; 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,1461,3)
;;=.069^.189^.223^.372^.248^.125^.111^.25^.178^.255^.325^.116^.223^.392^.972^.176^.305^.301
;;^UTILITY(U,$J,112,1461,4)
;;=.001^.001^.047^2.549^.099^1.382^11.018^.029
;;^UTILITY(U,$J,112,1461,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1462,0)
;;=PIES, PINEAPPLE, BAKED, ENR, W/SALT IN FILLING^1581-8^sectors^118^100^N
;;^UTILITY(U,$J,112,1462,1)
;;=2.2^10.7^38.1^253^48^^^13^1.2^^21^72^407^^^^^20^1^.12
;;^UTILITY(U,$J,112,1462,2)
;;=.09^.7^^^^^1.13^^11^4.02^^^^1
;;^UTILITY(U,$J,112,1462,4)
;;=^^^^^^4.89
;;^UTILITY(U,$J,112,1462,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1463,0)
;;=PIES, PINEAPPLE CHIFFON, BAKED, ENR, W/SALT IN FILLING^1582-8^sectors^81^100^N
;;^UTILITY(U,$J,112,1463,1)
;;=6.6^12.1^39.1^288^41.1^^^24^1.5^^76^98^384^^^^^350^1^.11
;;^UTILITY(U,$J,112,1463,2)
;;=.15^.8^^^^^1.16^^159^4.36^^^^1.1
;;^UTILITY(U,$J,112,1463,4)
;;=^^^^^^5.47
;;^UTILITY(U,$J,112,1463,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1464,0)
;;=PIES, PINEAPPLE CUSTARD, BAKED, ENR, W/SALT IN FILLING^1583-8^sectors^114^100^N
;;^UTILITY(U,$J,112,1464,1)
;;=4^8.7^32.1^220^54.3^^^50^.8^^65^97^279^^^^^180^1^.08
;;^UTILITY(U,$J,112,1464,2)
;;=.13^.6^^^^^.79^^61^3.43^^^^.9
;;^UTILITY(U,$J,112,1464,4)
;;=^^^^^^3.78
;;^UTILITY(U,$J,112,1464,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1465,0)
;;=PIES, PUMPKIN, BAKED, ENR, W/SALT IN FILLING^18-327^sectors^114^100^N
;;^UTILITY(U,$J,112,1465,1)
;;=4.5^9.3^26.4^204^58.5^^^94^1.27^19^98^186^225^.46^.066^.198^^7634^1.7^.092
;;^UTILITY(U,$J,112,1465,2)
;;=.201^.782^.445^.047^11^.09^1.668^.128^42^3.171^3.697^1.81^782^1.3
;;^UTILITY(U,$J,112,1465,3)
;;=.059^.18^.226^.376^.276^.105^.067^.219^.187^.253^.199^.109^.171^.339^1.004^.127^.375^.256
;;^UTILITY(U,$J,112,1465,4)
;;=.032^.049^.247^1.675^.077^.977^3.594^.011
;;^UTILITY(U,$J,112,1465,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1466,0)
;;=PIES, RAISIN, BAKED, ENR^1585-4^sectors^118^100^N
;;^UTILITY(U,$J,112,1466,1)
;;=2.6^10.7^43^270^42.5^^^18^1.6^^40^192^285^^^^^5^1^.11
;;^UTILITY(U,$J,112,1466,2)
;;=.09^1.1^^^^^1.13^^10^4.02^^^^1.2
;;^UTILITY(U,$J,112,1466,4)
;;=^^^^^^4.89
;;^UTILITY(U,$J,112,1466,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1467,0)
;;=PIES, RHUBARB, BAKED, ENR, W/SALT IN FILLING^1586-8^sectors^118^100^N
;;^UTILITY(U,$J,112,1467,1)
;;=2.5^10.7^38.2^253^47.4^^^64^1.4^^26^159^405^^^^^50^3^.11
;;^UTILITY(U,$J,112,1467,2)
;;=.11^1.1^^^^^1.13^^11^4.02^^^^1.2
;;^UTILITY(U,$J,112,1467,4)
;;=^^^^^^4.89
;;^UTILITY(U,$J,112,1467,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1468,0)
;;=PIES, STRAWBERRY, BAKED, ENR, W/SALT IN FILLING^1587-8^sectors^93^100^N
;;^UTILITY(U,$J,112,1468,1)
;;=1.9^7.9^30.9^198^58.4^^^16^1.2^^25^120^291^^^^^40^25^.08
;;^UTILITY(U,$J,112,1468,2)
;;=.09^1^^^^^.84^^8^2.97^^^^.9
;;^UTILITY(U,$J,112,1468,4)
;;=^^^^^^3.61
;;^UTILITY(U,$J,112,1468,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1469,0)
;;=PIES, SWEET POTATO, BAKED, ENR, W/SALT IN FILLING^1588-8^sectors^114^100^N
;;^UTILITY(U,$J,112,1469,1)
;;=4.5^11.3^23.7^213^59.3^^^69^1^^84^163^327^^^^^2400^4^.1
;;^UTILITY(U,$J,112,1469,2)
;;=.16^.8^^^^^.88^^60^4.87^^^^1.2
;;^UTILITY(U,$J,112,1469,4)
;;=^^^^^^4.64
;;^UTILITY(U,$J,112,1469,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1470,0)
;;=PIES, APPLE, FRZ, BAKED^18-301^sectors^69^100^N
;;^UTILITY(U,$J,112,1470,1)
;;=1.9^11^34^237^52.2^^^11^.45^7^24^65^266^.16^.046^.182^^124^3.2^.028
;;^UTILITY(U,$J,112,1470,2)
;;=.027^.263^.119^.038^4^0^1.978^.106^0^2.113^5.932^2.084^30^.9^^^1.7
;;^UTILITY(U,$J,112,1470,3)
;;=.026^.054^.073^.129^.07^.032^.04^.088^.054^.084^.074^.038^.06^.095^.587^.065^.199^.099
;;^UTILITY(U,$J,112,1470,4)
;;=0^.001^.011^1.191^.016^.871^5.916^^^1
;;^UTILITY(U,$J,112,1470,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1471,0)
;;=PIES, CHERRY, FRZ, BAKED^18-308^sectors^73^100^N
;;^UTILITY(U,$J,112,1471,1)
;;=2^11^39.8^260^46.2^^^12^.48^8^29^81^246^.18^.04^.14^^237^.7^.023
;;^UTILITY(U,$J,112,1471,2)
;;=.029^.2^.319^.041^8^0^1.9^.1^0^2.081^5.993^2^50^.9^^^.8
;;^UTILITY(U,$J,112,1471,3)
;;=.028^.078^.103^.173^.12^.043^.031^.099^.08^.119^.102^.05^.072^.136^.518^.059^.196^.108
;;^UTILITY(U,$J,112,1471,4)
;;=^^.008^1.168^.015^.863^5.978
;;^UTILITY(U,$J,112,1471,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1472,0)
;;=PIES, COCONUT CUSTARD, FRZ, BAKED^18-316^sectors^75^100^N
FHINI04E ; ; 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,1461,3)
+2 ;;=.069^.189^.223^.372^.248^.125^.111^.25^.178^.255^.325^.116^.223^.392^.972^.176^.305^.301
+3 ;;^UTILITY(U,$J,112,1461,4)
+4 ;;=.001^.001^.047^2.549^.099^1.382^11.018^.029
+5 ;;^UTILITY(U,$J,112,1461,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1462,0)
+8 ;;=PIES, PINEAPPLE, BAKED, ENR, W/SALT IN FILLING^1581-8^sectors^118^100^N
+9 ;;^UTILITY(U,$J,112,1462,1)
+10 ;;=2.2^10.7^38.1^253^48^^^13^1.2^^21^72^407^^^^^20^1^.12
+11 ;;^UTILITY(U,$J,112,1462,2)
+12 ;;=.09^.7^^^^^1.13^^11^4.02^^^^1
+13 ;;^UTILITY(U,$J,112,1462,4)
+14 ;;=^^^^^^4.89
+15 ;;^UTILITY(U,$J,112,1462,20)
+16 ;;=USDA Std. Reference, Release 8
+17 ;;^UTILITY(U,$J,112,1463,0)
+18 ;;=PIES, PINEAPPLE CHIFFON, BAKED, ENR, W/SALT IN FILLING^1582-8^sectors^81^100^N
+19 ;;^UTILITY(U,$J,112,1463,1)
+20 ;;=6.6^12.1^39.1^288^41.1^^^24^1.5^^76^98^384^^^^^350^1^.11
+21 ;;^UTILITY(U,$J,112,1463,2)
+22 ;;=.15^.8^^^^^1.16^^159^4.36^^^^1.1
+23 ;;^UTILITY(U,$J,112,1463,4)
+24 ;;=^^^^^^5.47
+25 ;;^UTILITY(U,$J,112,1463,20)
+26 ;;=USDA Std. Reference, Release 8
+27 ;;^UTILITY(U,$J,112,1464,0)
+28 ;;=PIES, PINEAPPLE CUSTARD, BAKED, ENR, W/SALT IN FILLING^1583-8^sectors^114^100^N
+29 ;;^UTILITY(U,$J,112,1464,1)
+30 ;;=4^8.7^32.1^220^54.3^^^50^.8^^65^97^279^^^^^180^1^.08
+31 ;;^UTILITY(U,$J,112,1464,2)
+32 ;;=.13^.6^^^^^.79^^61^3.43^^^^.9
+33 ;;^UTILITY(U,$J,112,1464,4)
+34 ;;=^^^^^^3.78
+35 ;;^UTILITY(U,$J,112,1464,20)
+36 ;;=USDA Std. Reference, Release 8
+37 ;;^UTILITY(U,$J,112,1465,0)
+38 ;;=PIES, PUMPKIN, BAKED, ENR, W/SALT IN FILLING^18-327^sectors^114^100^N
+39 ;;^UTILITY(U,$J,112,1465,1)
+40 ;;=4.5^9.3^26.4^204^58.5^^^94^1.27^19^98^186^225^.46^.066^.198^^7634^1.7^.092
+41 ;;^UTILITY(U,$J,112,1465,2)
+42 ;;=.201^.782^.445^.047^11^.09^1.668^.128^42^3.171^3.697^1.81^782^1.3
+43 ;;^UTILITY(U,$J,112,1465,3)
+44 ;;=.059^.18^.226^.376^.276^.105^.067^.219^.187^.253^.199^.109^.171^.339^1.004^.127^.375^.256
+45 ;;^UTILITY(U,$J,112,1465,4)
+46 ;;=.032^.049^.247^1.675^.077^.977^3.594^.011
+47 ;;^UTILITY(U,$J,112,1465,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,1466,0)
+50 ;;=PIES, RAISIN, BAKED, ENR^1585-4^sectors^118^100^N
+51 ;;^UTILITY(U,$J,112,1466,1)
+52 ;;=2.6^10.7^43^270^42.5^^^18^1.6^^40^192^285^^^^^5^1^.11
+53 ;;^UTILITY(U,$J,112,1466,2)
+54 ;;=.09^1.1^^^^^1.13^^10^4.02^^^^1.2
+55 ;;^UTILITY(U,$J,112,1466,4)
+56 ;;=^^^^^^4.89
+57 ;;^UTILITY(U,$J,112,1466,20)
+58 ;;=USDA Std. Reference, Release 8
+59 ;;^UTILITY(U,$J,112,1467,0)
+60 ;;=PIES, RHUBARB, BAKED, ENR, W/SALT IN FILLING^1586-8^sectors^118^100^N
+61 ;;^UTILITY(U,$J,112,1467,1)
+62 ;;=2.5^10.7^38.2^253^47.4^^^64^1.4^^26^159^405^^^^^50^3^.11
+63 ;;^UTILITY(U,$J,112,1467,2)
+64 ;;=.11^1.1^^^^^1.13^^11^4.02^^^^1.2
+65 ;;^UTILITY(U,$J,112,1467,4)
+66 ;;=^^^^^^4.89
+67 ;;^UTILITY(U,$J,112,1467,20)
+68 ;;=USDA Std. Reference, Release 8
+69 ;;^UTILITY(U,$J,112,1468,0)
+70 ;;=PIES, STRAWBERRY, BAKED, ENR, W/SALT IN FILLING^1587-8^sectors^93^100^N
+71 ;;^UTILITY(U,$J,112,1468,1)
+72 ;;=1.9^7.9^30.9^198^58.4^^^16^1.2^^25^120^291^^^^^40^25^.08
+73 ;;^UTILITY(U,$J,112,1468,2)
+74 ;;=.09^1^^^^^.84^^8^2.97^^^^.9
+75 ;;^UTILITY(U,$J,112,1468,4)
+76 ;;=^^^^^^3.61
+77 ;;^UTILITY(U,$J,112,1468,20)
+78 ;;=USDA Std. Reference, Release 8
+79 ;;^UTILITY(U,$J,112,1469,0)
+80 ;;=PIES, SWEET POTATO, BAKED, ENR, W/SALT IN FILLING^1588-8^sectors^114^100^N
+81 ;;^UTILITY(U,$J,112,1469,1)
+82 ;;=4.5^11.3^23.7^213^59.3^^^69^1^^84^163^327^^^^^2400^4^.1
+83 ;;^UTILITY(U,$J,112,1469,2)
+84 ;;=.16^.8^^^^^.88^^60^4.87^^^^1.2
+85 ;;^UTILITY(U,$J,112,1469,4)
+86 ;;=^^^^^^4.64
+87 ;;^UTILITY(U,$J,112,1469,20)
+88 ;;=USDA Std. Reference, Release 8
+89 ;;^UTILITY(U,$J,112,1470,0)
+90 ;;=PIES, APPLE, FRZ, BAKED^18-301^sectors^69^100^N
+91 ;;^UTILITY(U,$J,112,1470,1)
+92 ;;=1.9^11^34^237^52.2^^^11^.45^7^24^65^266^.16^.046^.182^^124^3.2^.028
+93 ;;^UTILITY(U,$J,112,1470,2)
+94 ;;=.027^.263^.119^.038^4^0^1.978^.106^0^2.113^5.932^2.084^30^.9^^^1.7
+95 ;;^UTILITY(U,$J,112,1470,3)
+96 ;;=.026^.054^.073^.129^.07^.032^.04^.088^.054^.084^.074^.038^.06^.095^.587^.065^.199^.099
+97 ;;^UTILITY(U,$J,112,1470,4)
+98 ;;=0^.001^.011^1.191^.016^.871^5.916^^^1
+99 ;;^UTILITY(U,$J,112,1470,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1471,0)
+102 ;;=PIES, CHERRY, FRZ, BAKED^18-308^sectors^73^100^N
+103 ;;^UTILITY(U,$J,112,1471,1)
+104 ;;=2^11^39.8^260^46.2^^^12^.48^8^29^81^246^.18^.04^.14^^237^.7^.023
+105 ;;^UTILITY(U,$J,112,1471,2)
+106 ;;=.029^.2^.319^.041^8^0^1.9^.1^0^2.081^5.993^2^50^.9^^^.8
+107 ;;^UTILITY(U,$J,112,1471,3)
+108 ;;=.028^.078^.103^.173^.12^.043^.031^.099^.08^.119^.102^.05^.072^.136^.518^.059^.196^.108
+109 ;;^UTILITY(U,$J,112,1471,4)
+110 ;;=^^.008^1.168^.015^.863^5.978
+111 ;;^UTILITY(U,$J,112,1471,20)
+112 ;;=USDA Std. Reference, Release 10
+113 ;;^UTILITY(U,$J,112,1472,0)
+114 ;;=PIES, COCONUT CUSTARD, FRZ, BAKED^18-316^sectors^75^100^N
