FHINI04C ; ; 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,1441,3)
;;=.003^.01^.012^.016^.015^.003^.002^.01^.006^.012^.024^.005^.013^.022^.106^.013^.008^.011
;;^UTILITY(U,$J,112,1441,4)
;;=^.002^.002^.056^0^.006^.004
;;^UTILITY(U,$J,112,1441,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1442,0)
;;=PICKLES, CHOWCHOW, SOUR^1562-0^cups^240^100^N
;;^UTILITY(U,$J,112,1442,1)
;;=1.4^1.3^4.1^29^87.6^^^32^2.6^^53^200^1338^^^^^100^7^0
;;^UTILITY(U,$J,112,1442,2)
;;=.02^0^^^^^0^^0^0^^^^5.6
;;^UTILITY(U,$J,112,1442,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1442,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1443,0)
;;=PICKLES, CHOWCHOW, SWEET^1563-0^cups^245^100^N
;;^UTILITY(U,$J,112,1443,1)
;;=1.5^.9^27^116^68.9^^^23^1.5^^22^200^527^^^^^90^6^0
;;^UTILITY(U,$J,112,1443,2)
;;=.02^0^^^^^0^^0^0^^^^1.7
;;^UTILITY(U,$J,112,1443,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1443,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1444,0)
;;=PICKLES, RELISH, SOUR^1564-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1444,1)
;;=.7^.9^2.7^19^93^^^29^1.1^^20^200^1353^^^^^100^7^0
;;^UTILITY(U,$J,112,1444,2)
;;=.02^0^^^^^0^^0^0^^^^2.7
;;^UTILITY(U,$J,112,1444,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1444,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1445,0)
;;=PICKLES, RELISH, SWEET^1565-0^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1445,1)
;;=.5^.6^34^138^63^^^20^.8^^14^200^712^^^^^100^6^0
;;^UTILITY(U,$J,112,1445,2)
;;=.02^0^^^^^0^^0^0^^^^1.9
;;^UTILITY(U,$J,112,1445,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1445,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1446,0)
;;=PIES, APPLE, BAKED, ENR^18-302^sectors^118^100^N
;;^UTILITY(U,$J,112,1446,1)
;;=2.4^12.5^37.1^265^47.3^^^7^1.12^7^28^79^211^.19^.053^.185^^58^1.7^.148
;;^UTILITY(U,$J,112,1446,2)
;;=.107^1.23^.093^.032^4^0^3.134^.204^0^3.05^5.393^3.338^12^.8
;;^UTILITY(U,$J,112,1446,3)
;;=.029^.066^.083^.164^.056^.042^.05^.118^.072^.097^.096^.053^.077^.111^.786^.086^.271^.119
;;^UTILITY(U,$J,112,1446,4)
;;=0^.001^.058^1.738^.001^1.253^5.392^0
;;^UTILITY(U,$J,112,1446,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1447,0)
;;=PIES, BANANA CUSTARD, BAKED, ENR, W/SALT IN FILLING^18-304^sectors^114^100^N
;;^UTILITY(U,$J,112,1447,1)
;;=4.4^13.6^32.9^269^47.9^^^75^1.04^16^92^165^240^.48^.052^.152^^261^1.6^.139
;;^UTILITY(U,$J,112,1447,2)
;;=.207^1.054^.388^.133^11^.25^3.067^.205^51^3.758^5.719^3.292^70^1.2
;;^UTILITY(U,$J,112,1447,3)
;;=.055^.165^.203^.358^.232^.092^.068^.206^.168^.229^.186^.116^.155^.285^1.062^.126^.407^.243
;;^UTILITY(U,$J,112,1447,4)
;;=.027^.031^.153^2.122^.06^1.35^5.652^.016
;;^UTILITY(U,$J,112,1447,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1448,0)
;;=PIES, BLACKBERRY, BAKED, ENR, W/SALT IN FILLING^1568-7^sectors^118^100^N
;;^UTILITY(U,$J,112,1448,1)
;;=2.6^11^34.4^243^51^^^19^1.2^^26^100^402^^^^^90^4^.11
;;^UTILITY(U,$J,112,1448,2)
;;=.09^1.1^^^^^2.46^^0^2.73^^^^1
;;^UTILITY(U,$J,112,1448,4)
;;=^^^^^^5.47
;;^UTILITY(U,$J,112,1448,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1449,0)
;;=PIES, BLUEBERRY, BAKED, UNENR, WO/SALT IN FILLING^1569-2^sectors^118^100^N
;;^UTILITY(U,$J,112,1449,1)
;;=2.4^10.8^34.9^242^51^^^11^.6^^23^65^268^^^^^30^3^.02
;;^UTILITY(U,$J,112,1449,2)
;;=.02^.3^^^^^1.14^^11^4.06^^^^.9
;;^UTILITY(U,$J,112,1449,4)
;;=^^^^^^4.94
;;^UTILITY(U,$J,112,1449,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1450,0)
;;=PIES, BLUEBERRY, BAKED, ENR, W/SALT IN FILLING^18-306^sectors^118^100^N
;;^UTILITY(U,$J,112,1450,1)
;;=2.7^11.9^33.5^245^51.2^^^7^1.23^8^30^50^185^.2^.067^.3^^42^.7^.153
;;^UTILITY(U,$J,112,1450,2)
;;=.132^1.194^.124^.034^5^0^2.892^.188^0^2.911^5.121^3.08^4^.7
;;^UTILITY(U,$J,112,1450,3)
;;=.029^.073^.09^.179^.057^.046^.051^.127^.072^.108^.113^.056^.091^.13^.793^.099^.27^.124
;;^UTILITY(U,$J,112,1450,4)
;;=0^0^.046^1.648^0^1.217^5.121^0
;;^UTILITY(U,$J,112,1450,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1451,0)
;;=PIES, BUTTERSCOTCH, BAKED, ENR, W/SALT IN FILLING^18-307^sectors^114^100^N
;;^UTILITY(U,$J,112,1451,1)
;;=4.7^14.3^33.3^279^46.3^^^101^1.29^17^106^174^264^.54^.077^.173^^301^.5^.14
;;^UTILITY(U,$J,112,1451,2)
;;=.213^.995^.426^.052^11^.3^3.193^.207^61^4.007^6.017^3.425^84^1.3
;;^UTILITY(U,$J,112,1451,3)
;;=.06^.182^.225^.393^.263^.102^.071^.222^.187^.253^.201^.116^.168^.306^1.135^.132^.441^.266
;;^UTILITY(U,$J,112,1451,4)
;;=.033^.037^.177^2.25^.069^1.42^5.94^.019
;;^UTILITY(U,$J,112,1451,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1452,0)
;;=PIES, CHERRY, BAKED, ENR^18-309^sectors^118^100^N
FHINI04C ; ; 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,1441,3)
+2 ;;=.003^.01^.012^.016^.015^.003^.002^.01^.006^.012^.024^.005^.013^.022^.106^.013^.008^.011
+3 ;;^UTILITY(U,$J,112,1441,4)
+4 ;;=^.002^.002^.056^0^.006^.004
+5 ;;^UTILITY(U,$J,112,1441,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1442,0)
+8 ;;=PICKLES, CHOWCHOW, SOUR^1562-0^cups^240^100^N
+9 ;;^UTILITY(U,$J,112,1442,1)
+10 ;;=1.4^1.3^4.1^29^87.6^^^32^2.6^^53^200^1338^^^^^100^7^0
+11 ;;^UTILITY(U,$J,112,1442,2)
+12 ;;=.02^0^^^^^0^^0^0^^^^5.6
+13 ;;^UTILITY(U,$J,112,1442,4)
+14 ;;=^^^^^^0
+15 ;;^UTILITY(U,$J,112,1442,20)
+16 ;;=USDA Std. Reference, Release 8
+17 ;;^UTILITY(U,$J,112,1443,0)
+18 ;;=PICKLES, CHOWCHOW, SWEET^1563-0^cups^245^100^N
+19 ;;^UTILITY(U,$J,112,1443,1)
+20 ;;=1.5^.9^27^116^68.9^^^23^1.5^^22^200^527^^^^^90^6^0
+21 ;;^UTILITY(U,$J,112,1443,2)
+22 ;;=.02^0^^^^^0^^0^0^^^^1.7
+23 ;;^UTILITY(U,$J,112,1443,4)
+24 ;;=^^^^^^0
+25 ;;^UTILITY(U,$J,112,1443,20)
+26 ;;=USDA Std. Reference, Release 8
+27 ;;^UTILITY(U,$J,112,1444,0)
+28 ;;=PICKLES, RELISH, SOUR^1564-0^oz.^28.3^100^N
+29 ;;^UTILITY(U,$J,112,1444,1)
+30 ;;=.7^.9^2.7^19^93^^^29^1.1^^20^200^1353^^^^^100^7^0
+31 ;;^UTILITY(U,$J,112,1444,2)
+32 ;;=.02^0^^^^^0^^0^0^^^^2.7
+33 ;;^UTILITY(U,$J,112,1444,4)
+34 ;;=^^^^^^0
+35 ;;^UTILITY(U,$J,112,1444,20)
+36 ;;=USDA Std. Reference, Release 8
+37 ;;^UTILITY(U,$J,112,1445,0)
+38 ;;=PICKLES, RELISH, SWEET^1565-0^tbsp.^15^100^N
+39 ;;^UTILITY(U,$J,112,1445,1)
+40 ;;=.5^.6^34^138^63^^^20^.8^^14^200^712^^^^^100^6^0
+41 ;;^UTILITY(U,$J,112,1445,2)
+42 ;;=.02^0^^^^^0^^0^0^^^^1.9
+43 ;;^UTILITY(U,$J,112,1445,4)
+44 ;;=^^^^^^0
+45 ;;^UTILITY(U,$J,112,1445,20)
+46 ;;=USDA Std. Reference, Release 8
+47 ;;^UTILITY(U,$J,112,1446,0)
+48 ;;=PIES, APPLE, BAKED, ENR^18-302^sectors^118^100^N
+49 ;;^UTILITY(U,$J,112,1446,1)
+50 ;;=2.4^12.5^37.1^265^47.3^^^7^1.12^7^28^79^211^.19^.053^.185^^58^1.7^.148
+51 ;;^UTILITY(U,$J,112,1446,2)
+52 ;;=.107^1.23^.093^.032^4^0^3.134^.204^0^3.05^5.393^3.338^12^.8
+53 ;;^UTILITY(U,$J,112,1446,3)
+54 ;;=.029^.066^.083^.164^.056^.042^.05^.118^.072^.097^.096^.053^.077^.111^.786^.086^.271^.119
+55 ;;^UTILITY(U,$J,112,1446,4)
+56 ;;=0^.001^.058^1.738^.001^1.253^5.392^0
+57 ;;^UTILITY(U,$J,112,1446,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1447,0)
+60 ;;=PIES, BANANA CUSTARD, BAKED, ENR, W/SALT IN FILLING^18-304^sectors^114^100^N
+61 ;;^UTILITY(U,$J,112,1447,1)
+62 ;;=4.4^13.6^32.9^269^47.9^^^75^1.04^16^92^165^240^.48^.052^.152^^261^1.6^.139
+63 ;;^UTILITY(U,$J,112,1447,2)
+64 ;;=.207^1.054^.388^.133^11^.25^3.067^.205^51^3.758^5.719^3.292^70^1.2
+65 ;;^UTILITY(U,$J,112,1447,3)
+66 ;;=.055^.165^.203^.358^.232^.092^.068^.206^.168^.229^.186^.116^.155^.285^1.062^.126^.407^.243
+67 ;;^UTILITY(U,$J,112,1447,4)
+68 ;;=.027^.031^.153^2.122^.06^1.35^5.652^.016
+69 ;;^UTILITY(U,$J,112,1447,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1448,0)
+72 ;;=PIES, BLACKBERRY, BAKED, ENR, W/SALT IN FILLING^1568-7^sectors^118^100^N
+73 ;;^UTILITY(U,$J,112,1448,1)
+74 ;;=2.6^11^34.4^243^51^^^19^1.2^^26^100^402^^^^^90^4^.11
+75 ;;^UTILITY(U,$J,112,1448,2)
+76 ;;=.09^1.1^^^^^2.46^^0^2.73^^^^1
+77 ;;^UTILITY(U,$J,112,1448,4)
+78 ;;=^^^^^^5.47
+79 ;;^UTILITY(U,$J,112,1448,20)
+80 ;;=USDA Std. Reference, Release 8
+81 ;;^UTILITY(U,$J,112,1449,0)
+82 ;;=PIES, BLUEBERRY, BAKED, UNENR, WO/SALT IN FILLING^1569-2^sectors^118^100^N
+83 ;;^UTILITY(U,$J,112,1449,1)
+84 ;;=2.4^10.8^34.9^242^51^^^11^.6^^23^65^268^^^^^30^3^.02
+85 ;;^UTILITY(U,$J,112,1449,2)
+86 ;;=.02^.3^^^^^1.14^^11^4.06^^^^.9
+87 ;;^UTILITY(U,$J,112,1449,4)
+88 ;;=^^^^^^4.94
+89 ;;^UTILITY(U,$J,112,1449,20)
+90 ;;=USDA Std. Reference, Release 8
+91 ;;^UTILITY(U,$J,112,1450,0)
+92 ;;=PIES, BLUEBERRY, BAKED, ENR, W/SALT IN FILLING^18-306^sectors^118^100^N
+93 ;;^UTILITY(U,$J,112,1450,1)
+94 ;;=2.7^11.9^33.5^245^51.2^^^7^1.23^8^30^50^185^.2^.067^.3^^42^.7^.153
+95 ;;^UTILITY(U,$J,112,1450,2)
+96 ;;=.132^1.194^.124^.034^5^0^2.892^.188^0^2.911^5.121^3.08^4^.7
+97 ;;^UTILITY(U,$J,112,1450,3)
+98 ;;=.029^.073^.09^.179^.057^.046^.051^.127^.072^.108^.113^.056^.091^.13^.793^.099^.27^.124
+99 ;;^UTILITY(U,$J,112,1450,4)
+100 ;;=0^0^.046^1.648^0^1.217^5.121^0
+101 ;;^UTILITY(U,$J,112,1450,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,1451,0)
+104 ;;=PIES, BUTTERSCOTCH, BAKED, ENR, W/SALT IN FILLING^18-307^sectors^114^100^N
+105 ;;^UTILITY(U,$J,112,1451,1)
+106 ;;=4.7^14.3^33.3^279^46.3^^^101^1.29^17^106^174^264^.54^.077^.173^^301^.5^.14
+107 ;;^UTILITY(U,$J,112,1451,2)
+108 ;;=.213^.995^.426^.052^11^.3^3.193^.207^61^4.007^6.017^3.425^84^1.3
+109 ;;^UTILITY(U,$J,112,1451,3)
+110 ;;=.06^.182^.225^.393^.263^.102^.071^.222^.187^.253^.201^.116^.168^.306^1.135^.132^.441^.266
+111 ;;^UTILITY(U,$J,112,1451,4)
+112 ;;=.033^.037^.177^2.25^.069^1.42^5.94^.019
+113 ;;^UTILITY(U,$J,112,1451,20)
+114 ;;=USDA Std. Reference, Release 10
+115 ;;^UTILITY(U,$J,112,1452,0)
+116 ;;=PIES, CHERRY, BAKED, ENR^18-309^sectors^118^100^N
