Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI07V

FHINI07V.m

Go to the documentation of this file.
FHINI07V	; ; 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,2733,2)
	;;=.04^.42^.408^.118^18.1^0^^^0^^^^5^.38
	;;^UTILITY(U,$J,112,2733,3)
	;;=.008^.031^.033^.058^.03^.001^^.036^.024^.047^.026^.011^.038^.069^.094^.031^.033^.035
	;;^UTILITY(U,$J,112,2733,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2734,0)
	;;=CHERIMOYA, RAW^9-062^fruits^547^65^N
	;;^UTILITY(U,$J,112,2734,1)
	;;=1.3^.4^24^94^73.5^^^23^.5^^40^^^^^^^10^9^.1
	;;^UTILITY(U,$J,112,2734,2)
	;;=.11^1.3^^^^0^^^0^^^^1^.8^^^2.4
	;;^UTILITY(U,$J,112,2734,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2735,0)
	;;=CHICKEN, BROILERS OR FRYERS, BACK, MEAT ONLY, FRIED^5-054^backs^35^54^N
	;;^UTILITY(U,$J,112,2735,1)
	;;=29.99^15.32^5.68^288^47.87^^^26^1.65^25^176^251^99^2.8^.095^.047^^98^0^.109
	;;^UTILITY(U,$J,112,2735,2)
	;;=.253^7.68^1.198^.35^9^.31^3.08^.15^93^4.12^5.73^3.64^29^1.15^^^0
	;;^UTILITY(U,$J,112,2735,3)
	;;=.352^1.258^1.577^2.251^2.5^.823^.392^1.202^1.01^1.486^1.793^.924^1.62^2.638^4.672^1.464^1.299^1.049
	;;^UTILITY(U,$J,112,2735,4)
	;;=0^.04^.1^2.79^.65^1.07^4.94^.19
	;;^UTILITY(U,$J,112,2735,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2736,0)
	;;=CHICKEN, BROILERS OR FRYERS, BACK, MEAT ONLY, ROASTED^5-055^backs^24^40^N
	;;^UTILITY(U,$J,112,2736,1)
	;;=28.19^13.16^0^239^58.75^^^24^1.39^22^165^237^96^2.65^.081^.022^^95^0^.068
	;;^UTILITY(U,$J,112,2736,2)
	;;=.217^7.069^1.13^.34^7^.3^2.53^.12^90^3.6^4.83^3.05^28^1.08^^^0
	;;^UTILITY(U,$J,112,2736,3)
	;;=.329^1.191^1.488^2.115^2.395^.78^.361^1.118^.952^1.398^1.7^.875^1.538^2.512^4.221^1.385^1.159^.97
	;;^UTILITY(U,$J,112,2736,4)
	;;=0^.04^.1^2.5^.66^.84^4.03^.19
	;;^UTILITY(U,$J,112,2736,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2737,0)
	;;=CHICKEN, BROILERS OR FRYERS, BACK, MEAT ONLY, STEWED^5-056^backs^26^36^N
	;;^UTILITY(U,$J,112,2737,1)
	;;=25.31^11.19^0^209^64.33^^^21^1.27^17^130^158^67^2.38^.071^.02^^90^0^.047
	;;^UTILITY(U,$J,112,2737,2)
	;;=.173^4.556^.836^.2^7^.21^2.15^.1^85^3.04^4.02^2.62^27^.73^^^0
	;;^UTILITY(U,$J,112,2737,3)
	;;=.296^1.069^1.336^1.899^2.15^.7^.324^1.004^.854^1.255^1.526^.786^1.381^2.255^3.79^1.243^1.041^.871
	;;^UTILITY(U,$J,112,2737,4)
	;;=0^.04^.08^2.1^.55^.72^3.35^.17
	;;^UTILITY(U,$J,112,2737,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2738,0)
	;;=CHICKEN, BROILERS OR FRYERS, GIBLETS, FRIED^5-021^giblets^13^100^N
	;;^UTILITY(U,$J,112,2738,1)
	;;=32.54^13.46^4.35^277^47.89^^^18^10.32^25^286^330^113^6.27^.422^.222^^11929^8.7^.097
	;;^UTILITY(U,$J,112,2738,2)
	;;=1.524^10.987^4.453^.61^379^13.31^2.69^.13^446^3.8^4.42^3.38^3579^1.77^^^0
	;;^UTILITY(U,$J,112,2738,3)
	;;=.373^1.467^1.63^2.601^2.348^.81^.437^1.48^1.067^1.737^2.159^.759^1.587^3.021^5.055^1.783^1.696^1.43
	;;^UTILITY(U,$J,112,2738,4)
	;;=0^0^.06^2.11^.29^1.42^4.12^.48
	;;^UTILITY(U,$J,112,2738,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2739,0)
	;;=CHICKEN, BROILERS OR FRYERS, GIBLETS, SIMMERED^5-022^giblets^14^100^N
	;;^UTILITY(U,$J,112,2739,1)
	;;=25.85^4.77^.95^157^67.59^^^12^6.44^20^229^158^58^4.57^.255^.17^^7431^8^.087
	;;^UTILITY(U,$J,112,2739,2)
	;;=.953^4.103^2.959^.34^376^10.14^.73^.02^393^1.49^1.19^1.08^2229^.85^^^0
	;;^UTILITY(U,$J,112,2739,3)
	;;=.295^1.172^1.297^2.066^1.886^.646^.343^1.17^.848^1.379^1.727^.602^1.267^2.421^3.923^1.423^1.316^1.13
	;;^UTILITY(U,$J,112,2739,4)
	;;=0^0^.02^.82^.17^.55^1.02^.26
	;;^UTILITY(U,$J,112,2739,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2740,0)
	;;=CHICKEN, BROILERS OR FRYERS, NECK, MEAT ONLY, FRIED^5-089^necks^7^44^N
	;;^UTILITY(U,$J,112,2740,1)
	;;=26.87^11.88^1.77^229^58.71^^^41^2.98^20^135^213^99^4.24^.161^.05^^162^0^.07
	;;^UTILITY(U,$J,112,2740,2)
	;;=.318^5.027^1.165^.35^8^.3^2.63^.15^105^3^4.57^3.04^49^.78^^^0
	;;^UTILITY(U,$J,112,2740,3)
	;;=.314^1.132^1.417^2.016^2.267^.742^.346^1.069^.907^1.333^1.616^.832^1.461^2.383^4.081^1.317^1.125^.93
	;;^UTILITY(U,$J,112,2740,4)
	;;=0^.02^.06^1.83^.24^1.05^4.3^.13
	;;^UTILITY(U,$J,112,2740,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2741,0)
	;;=CHICKEN, BROILERS OR FRYERS, NECK, MEAT ONLY, SIMMERED^5-090^necks^5^33^N
	;;^UTILITY(U,$J,112,2741,1)
	;;=24.56^8.18^0^179^67.05^^^44^2.63^16^128^140^64^3.77^.129^.048^^121^0^.046
	;;^UTILITY(U,$J,112,2741,2)
	;;=.283^3.956^.671^.16^6^.17^1.56^.07^79^2.1^2.54^2.03^36^.77^^^0
	;;^UTILITY(U,$J,112,2741,3)
	;;=.287^1.037^1.297^1.843^2.086^.68^.314^.974^.829^1.218^1.481^.762^1.34^2.188^3.678^1.206^1.01^.845
	;;^UTILITY(U,$J,112,2741,4)
	;;=0^.04^.05^1.4^.37^.55^2.11^.2
	;;^UTILITY(U,$J,112,2741,20)
	;;=USDA Std. Reference, Release 10