FHINI04F ; ; 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,1472,1)
;;=5.9^13.2^30.2^260^49.2^^^81^.8^18^122^175^335^.68^.063^.21^^110^.3^.088
;;^UTILITY(U,$J,112,1472,2)
;;=.148^.403^.238^.011^4^.09^1.115^.074^35^5.765^5.564^1.189^27^1.4^^^1.8
;;^UTILITY(U,$J,112,1472,3)
;;=.079^.216^.286^.482^.335^.121^.085^.274^.224^.33^.284^.14^.199^.378^1.441^.164^.546^.301
;;^UTILITY(U,$J,112,1472,4)
;;=.204^1.414^.714^1.746^.028^1.373^5.535^0
;;^UTILITY(U,$J,112,1472,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1473,0)
;;=PIES, COCONUT CUSTARD, BAKED FR MIX, W/EGG YOLK AND MILK^1596-0^sectors^100^100^N
;;^UTILITY(U,$J,112,1473,1)
;;=4.3^7.9^29.1^203^57.6^^^93^.8^^103^154^235^^^^^210^0^.08
;;^UTILITY(U,$J,112,1473,2)
;;=.17^.6^^^^^.5^^63^5.2^^^^1.1
;;^UTILITY(U,$J,112,1473,4)
;;=^^^^^^1.8
;;^UTILITY(U,$J,112,1473,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1474,0)
;;=PIE CRUST, ENR, UNBAKED, VEG-S^18-334^shells^194^100^N
;;^UTILITY(U,$J,112,1474,1)
;;=3.9^29.2^44.1^457^21^^^18^2.01^16^53^98^576^.3^.068^.547^^0^0^.312
;;^UTILITY(U,$J,112,1474,2)
;;=.377^2.409^.231^.071^10^.02^3.372^.218^0^9.419^13.986^3.59^0^1.8
;;^UTILITY(U,$J,112,1474,3)
;;=.056^.112^.15^.267^.14^.065^.085^.182^.111^.172^.148^.079^.119^.169^1.266^.131^.427^.205
;;^UTILITY(U,$J,112,1474,4)
;;=.02^.04^.263^5.654^.554^3.392^13.433
;;^UTILITY(U,$J,112,1474,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1475,0)
;;=PIE CRUST, ENR, UNBAKED, LARD^1597-2^shells^194^100^N
;;^UTILITY(U,$J,112,1475,1)
;;=5.7^31^40.7^464^20.9^^^13^2.3^^47^46^568^^^^^0^0^.34
;;^UTILITY(U,$J,112,1475,2)
;;=.21^2.8^^^^^3.26^^29^11.66^^^^1.7
;;^UTILITY(U,$J,112,1475,4)
;;=^^^^^^14.17
;;^UTILITY(U,$J,112,1475,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1476,0)
;;=PIE CRUST, ENR, BAKED, VEG-S^18-336^shells^180^100^N
;;^UTILITY(U,$J,112,1476,1)
;;=6.4^34.6^47.5^527^9.8^^^10^2.89^14^67^67^542^.44^.091^.43^^0^0^.391
;;^UTILITY(U,$J,112,1476,2)
;;=.277^3.307^.177^.025^11^0^8.565^.557^0^8.622^15.169^9.122^0^1.7
;;^UTILITY(U,$J,112,1476,3)
;;=.079^.175^.222^.442^.142^.114^.136^.324^.194^.258^.259^.143^.206^.271^2.165^.231^.745^.321
;;^UTILITY(U,$J,112,1476,4)
;;=0^0^.136^4.882^0^3.605^15.169^0
;;^UTILITY(U,$J,112,1476,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1477,0)
;;=PIE CRUST, ENR, BAKED, LARD^1598-2^shells^180^100^N
;;^UTILITY(U,$J,112,1477,1)
;;=6.1^33.4^43.8^500^14.9^^^14^2.5^^50^50^611^^^^^0^0^.3
;;^UTILITY(U,$J,112,1477,2)
;;=.22^2.8^^^^^3.51^^31^12.56^^^^1.8
;;^UTILITY(U,$J,112,1477,4)
;;=^^^^^^15.26
;;^UTILITY(U,$J,112,1477,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1478,0)
;;=PIE CRUST MIX, DRY, INCLUDING STICK FORM^18-332^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1478,1)
;;=6.9^31.4^52.1^518^7.6^^^61^2.22^15^86^64^753^.4^.075^.315^^0^0^.392
;;^UTILITY(U,$J,112,1478,2)
;;=.213^2.727^.268^.064^18^0^3.778^.2^0^7.974^17.878^3.978^0^2
;;^UTILITY(U,$J,112,1478,3)
;;=.08^.184^.255^.476^.133^.121^.155^.339^.188^.289^.239^.146^.21^.278^2.412^.236^.809^.333
;;^UTILITY(U,$J,112,1478,4)
;;=^^.154^4.098^^3.722^17.878
;;^UTILITY(U,$J,112,1478,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1479,0)
;;=PIE CRUST, MADE FR MIX, PREPARED W/WATER^18-333^shells^320^100^N
;;^UTILITY(U,$J,112,1479,1)
;;=6.7^30.4^50.4^501^10.6^^^60^2.15^15^84^62^729^.39^.074^.305^^0^0^.303
;;^UTILITY(U,$J,112,1479,2)
;;=.186^2.373^.168^.056^12^0^3.654^.193^0^7.711^17.289^3.847^0^2
;;^UTILITY(U,$J,112,1479,3)
;;=.077^.178^.247^.46^.129^.117^.15^.328^.182^.279^.231^.141^.203^.269^2.333^.228^.783^.322
;;^UTILITY(U,$J,112,1479,4)
;;=^^.149^3.963^^3.599^17.289
;;^UTILITY(U,$J,112,1479,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1480,0)
;;=PIKE, NORTHERN, COOKED, DRY HEAT^15-063^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1480,1)
;;=24.69^.88^0^113^72.97^^^73^.71^40^282^331^49^.86^.065^.31^^81^3.8^.067
;;^UTILITY(U,$J,112,1480,2)
;;=.077^2.8^.87^.135^17.3^2.3^.041^.027^50^.151^.201^.259^24^1.54^^^0
;;^UTILITY(U,$J,112,1480,3)
;;=.277^1.082^1.138^2.007^2.267^.731^.265^.964^.833^1.272^1.477^.727^1.493^2.528^3.685^1.185^.873^1.007
;;^UTILITY(U,$J,112,1480,4)
;;=^.001^.023^.1^.072^.023^.101^.036
;;^UTILITY(U,$J,112,1480,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1481,0)
;;=PIKE, NORTHERN, RAW^15-062^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1481,1)
;;=19.26^.69^0^88^78.92^^^57^.55^31^220^259^39^.67^.051^.24^^70^3.8^.058
;;^UTILITY(U,$J,112,1481,2)
;;=.063^2.3^.75^.117^15^2^.032^.021^39^.118^.157^.202^21^1.2^^^0
FHINI04F ; ; 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,1472,1)
+2 ;;=5.9^13.2^30.2^260^49.2^^^81^.8^18^122^175^335^.68^.063^.21^^110^.3^.088
+3 ;;^UTILITY(U,$J,112,1472,2)
+4 ;;=.148^.403^.238^.011^4^.09^1.115^.074^35^5.765^5.564^1.189^27^1.4^^^1.8
+5 ;;^UTILITY(U,$J,112,1472,3)
+6 ;;=.079^.216^.286^.482^.335^.121^.085^.274^.224^.33^.284^.14^.199^.378^1.441^.164^.546^.301
+7 ;;^UTILITY(U,$J,112,1472,4)
+8 ;;=.204^1.414^.714^1.746^.028^1.373^5.535^0
+9 ;;^UTILITY(U,$J,112,1472,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1473,0)
+12 ;;=PIES, COCONUT CUSTARD, BAKED FR MIX, W/EGG YOLK AND MILK^1596-0^sectors^100^100^N
+13 ;;^UTILITY(U,$J,112,1473,1)
+14 ;;=4.3^7.9^29.1^203^57.6^^^93^.8^^103^154^235^^^^^210^0^.08
+15 ;;^UTILITY(U,$J,112,1473,2)
+16 ;;=.17^.6^^^^^.5^^63^5.2^^^^1.1
+17 ;;^UTILITY(U,$J,112,1473,4)
+18 ;;=^^^^^^1.8
+19 ;;^UTILITY(U,$J,112,1473,20)
+20 ;;=USDA Std. Reference, Release 8
+21 ;;^UTILITY(U,$J,112,1474,0)
+22 ;;=PIE CRUST, ENR, UNBAKED, VEG-S^18-334^shells^194^100^N
+23 ;;^UTILITY(U,$J,112,1474,1)
+24 ;;=3.9^29.2^44.1^457^21^^^18^2.01^16^53^98^576^.3^.068^.547^^0^0^.312
+25 ;;^UTILITY(U,$J,112,1474,2)
+26 ;;=.377^2.409^.231^.071^10^.02^3.372^.218^0^9.419^13.986^3.59^0^1.8
+27 ;;^UTILITY(U,$J,112,1474,3)
+28 ;;=.056^.112^.15^.267^.14^.065^.085^.182^.111^.172^.148^.079^.119^.169^1.266^.131^.427^.205
+29 ;;^UTILITY(U,$J,112,1474,4)
+30 ;;=.02^.04^.263^5.654^.554^3.392^13.433
+31 ;;^UTILITY(U,$J,112,1474,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,1475,0)
+34 ;;=PIE CRUST, ENR, UNBAKED, LARD^1597-2^shells^194^100^N
+35 ;;^UTILITY(U,$J,112,1475,1)
+36 ;;=5.7^31^40.7^464^20.9^^^13^2.3^^47^46^568^^^^^0^0^.34
+37 ;;^UTILITY(U,$J,112,1475,2)
+38 ;;=.21^2.8^^^^^3.26^^29^11.66^^^^1.7
+39 ;;^UTILITY(U,$J,112,1475,4)
+40 ;;=^^^^^^14.17
+41 ;;^UTILITY(U,$J,112,1475,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,1476,0)
+44 ;;=PIE CRUST, ENR, BAKED, VEG-S^18-336^shells^180^100^N
+45 ;;^UTILITY(U,$J,112,1476,1)
+46 ;;=6.4^34.6^47.5^527^9.8^^^10^2.89^14^67^67^542^.44^.091^.43^^0^0^.391
+47 ;;^UTILITY(U,$J,112,1476,2)
+48 ;;=.277^3.307^.177^.025^11^0^8.565^.557^0^8.622^15.169^9.122^0^1.7
+49 ;;^UTILITY(U,$J,112,1476,3)
+50 ;;=.079^.175^.222^.442^.142^.114^.136^.324^.194^.258^.259^.143^.206^.271^2.165^.231^.745^.321
+51 ;;^UTILITY(U,$J,112,1476,4)
+52 ;;=0^0^.136^4.882^0^3.605^15.169^0
+53 ;;^UTILITY(U,$J,112,1476,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,1477,0)
+56 ;;=PIE CRUST, ENR, BAKED, LARD^1598-2^shells^180^100^N
+57 ;;^UTILITY(U,$J,112,1477,1)
+58 ;;=6.1^33.4^43.8^500^14.9^^^14^2.5^^50^50^611^^^^^0^0^.3
+59 ;;^UTILITY(U,$J,112,1477,2)
+60 ;;=.22^2.8^^^^^3.51^^31^12.56^^^^1.8
+61 ;;^UTILITY(U,$J,112,1477,4)
+62 ;;=^^^^^^15.26
+63 ;;^UTILITY(U,$J,112,1477,20)
+64 ;;=USDA Std. Reference, Release 8
+65 ;;^UTILITY(U,$J,112,1478,0)
+66 ;;=PIE CRUST MIX, DRY, INCLUDING STICK FORM^18-332^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,1478,1)
+68 ;;=6.9^31.4^52.1^518^7.6^^^61^2.22^15^86^64^753^.4^.075^.315^^0^0^.392
+69 ;;^UTILITY(U,$J,112,1478,2)
+70 ;;=.213^2.727^.268^.064^18^0^3.778^.2^0^7.974^17.878^3.978^0^2
+71 ;;^UTILITY(U,$J,112,1478,3)
+72 ;;=.08^.184^.255^.476^.133^.121^.155^.339^.188^.289^.239^.146^.21^.278^2.412^.236^.809^.333
+73 ;;^UTILITY(U,$J,112,1478,4)
+74 ;;=^^.154^4.098^^3.722^17.878
+75 ;;^UTILITY(U,$J,112,1478,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1479,0)
+78 ;;=PIE CRUST, MADE FR MIX, PREPARED W/WATER^18-333^shells^320^100^N
+79 ;;^UTILITY(U,$J,112,1479,1)
+80 ;;=6.7^30.4^50.4^501^10.6^^^60^2.15^15^84^62^729^.39^.074^.305^^0^0^.303
+81 ;;^UTILITY(U,$J,112,1479,2)
+82 ;;=.186^2.373^.168^.056^12^0^3.654^.193^0^7.711^17.289^3.847^0^2
+83 ;;^UTILITY(U,$J,112,1479,3)
+84 ;;=.077^.178^.247^.46^.129^.117^.15^.328^.182^.279^.231^.141^.203^.269^2.333^.228^.783^.322
+85 ;;^UTILITY(U,$J,112,1479,4)
+86 ;;=^^.149^3.963^^3.599^17.289
+87 ;;^UTILITY(U,$J,112,1479,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,1480,0)
+90 ;;=PIKE, NORTHERN, COOKED, DRY HEAT^15-063^oz.^28.3^100^N
+91 ;;^UTILITY(U,$J,112,1480,1)
+92 ;;=24.69^.88^0^113^72.97^^^73^.71^40^282^331^49^.86^.065^.31^^81^3.8^.067
+93 ;;^UTILITY(U,$J,112,1480,2)
+94 ;;=.077^2.8^.87^.135^17.3^2.3^.041^.027^50^.151^.201^.259^24^1.54^^^0
+95 ;;^UTILITY(U,$J,112,1480,3)
+96 ;;=.277^1.082^1.138^2.007^2.267^.731^.265^.964^.833^1.272^1.477^.727^1.493^2.528^3.685^1.185^.873^1.007
+97 ;;^UTILITY(U,$J,112,1480,4)
+98 ;;=^.001^.023^.1^.072^.023^.101^.036
+99 ;;^UTILITY(U,$J,112,1480,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1481,0)
+102 ;;=PIKE, NORTHERN, RAW^15-062^oz.^28.3^100^N
+103 ;;^UTILITY(U,$J,112,1481,1)
+104 ;;=19.26^.69^0^88^78.92^^^57^.55^31^220^259^39^.67^.051^.24^^70^3.8^.058
+105 ;;^UTILITY(U,$J,112,1481,2)
+106 ;;=.063^2.3^.75^.117^15^2^.032^.021^39^.118^.157^.202^21^1.2^^^0
