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

FHINI042.m

Go to the documentation of this file.
FHINI042	; ; 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,1323,0)
	;;=MACARONI AND CHEESE, CND^1305-0^cups^240^100^N
	;;^UTILITY(U,$J,112,1323,1)
	;;=3.9^4^10.7^95^80.2^^^83^.4^^76^58^304^^^^^110^.1^.05
	;;^UTILITY(U,$J,112,1323,2)
	;;=.1^.4^^^^^.6^^10^1.76^^^^1.2
	;;^UTILITY(U,$J,112,1323,4)
	;;=^^^^^^1.28
	;;^UTILITY(U,$J,112,1323,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1324,0)
	;;=MACKEREL, ATLANTIC, CND, SOL+LIQ^1307-0^oz.^28.3^^N
	;;^UTILITY(U,$J,112,1324,1)
	;;=19.3^11.1^0^183^66^^^185^2.1^^274^420^74^^^^^430^0^.06
	;;^UTILITY(U,$J,112,1324,2)
	;;=.21^5.8^^^^^0^^94^3
	;;^UTILITY(U,$J,112,1324,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1325,0)
	;;=MACKEREL, ATLANTIC, COOKED, DRY HEAT^15-047^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1325,1)
	;;=23.85^17.81^0^262^53.27^^^15^1.57^97^278^401^83^.94^.094^.02^^180^.4^.159
	;;^UTILITY(U,$J,112,1325,2)
	;;=.412^6.85^.99^.46^1.5^19^.147^.113^75^4.176^7.006^4.3^54^1.53^^^0
	;;^UTILITY(U,$J,112,1325,3)
	;;=.267^1.045^1.099^1.938^2.19^.706^.256^.931^.805^1.228^1.427^.702^1.442^2.442^3.559^1.145^.843^.973
	;;^UTILITY(U,$J,112,1325,4)
	;;=^^.592^1.375^.534^.256^1.202^.051^^51.6
	;;^UTILITY(U,$J,112,1325,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1326,0)
	;;=MACKEREL, JACK, CANNED, DRAINED SOLIDS^15-048^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1326,1)
	;;=23.19^6.3^0^156^69.17^^^241^2.04^37^301^194^379^1.02^.147^.04^^434^.9^.04
	;;^UTILITY(U,$J,112,1326,2)
	;;=.212^6.18^.305^.21^5^6.94^.099^.043^79^1.857^2.225^1.651^130^1.73^^^0
	;;^UTILITY(U,$J,112,1326,3)
	;;=.26^1.017^1.069^1.885^2.13^.686^.249^.905^.783^1.195^1.388^.683^1.403^2.375^3.462^1.113^.82^.946
	;;^UTILITY(U,$J,112,1326,4)
	;;=^.007^.289^1.185^.4^.376^1.132^.069
	;;^UTILITY(U,$J,112,1326,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1327,0)
	;;=MACKEREL, SALTED^1311-0^oz.^28.3^^N
	;;^UTILITY(U,$J,112,1327,1)
	;;=18.5^25.1^0^305^43^^^66^1.4^^254^157^6231^^^^^30^0^.02
	;;^UTILITY(U,$J,112,1327,2)
	;;=.19^3.3^^^^^0^^95^8
	;;^UTILITY(U,$J,112,1327,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1328,0)
	;;=MACKEREL, SMOKED^1312-0^oz.^28.3^^N
	;;^UTILITY(U,$J,112,1328,1)
	;;=23.8^13^0^219^59.4^^^66^1.4^^254^157^6231^^^^^30^0^.02
	;;^UTILITY(U,$J,112,1328,2)
	;;=.28^3.3^^^^^0^^95^4
	;;^UTILITY(U,$J,112,1328,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1329,0)
	;;=MALT, DRY^1313-0^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1329,1)
	;;=13.1^1.9^77.4^368^5.2^^^48^4^^294^230^80^^^^^0^0^.49
	;;^UTILITY(U,$J,112,1329,2)
	;;=.31^9^^^^^0^^0^0^^^^2.4
	;;^UTILITY(U,$J,112,1329,4)
	;;=^^^^^^0
	;;^UTILITY(U,$J,112,1329,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1330,0)
	;;=MALT EXTRACT, DRIED^1314-0^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,1330,1)
	;;=6^0^89.2^367^3.2^^^48^8.7^^294^230^80^^^^^0^0^.36
	;;^UTILITY(U,$J,112,1330,2)
	;;=.45^9.8^^^^^0^^0^0^^^^1.6
	;;^UTILITY(U,$J,112,1330,4)
	;;=^^^^^^0
	;;^UTILITY(U,$J,112,1330,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1331,0)
	;;=MARMALADE, CITRUS^19-303^tbsp.^20^100^N
	;;^UTILITY(U,$J,112,1331,1)
	;;=.3^0^66.3^246^33.2^^^38^.15^2^6^37^56^.04^.09^.02^^47^4.8^.005
	;;^UTILITY(U,$J,112,1331,2)
	;;=.006^.052^.015^.014^36^0^^^0^^^^5^.2^^^.2
	;;^UTILITY(U,$J,112,1331,3)
	;;=.003^.005^.008^.007^.015^.006^.003^.01^.005^.013^.021^.006^.016^.036^.03^.03^.015^.01
	;;^UTILITY(U,$J,112,1331,4)
	;;=^^^^^^0
	;;^UTILITY(U,$J,112,1331,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1332,0)
	;;=MENHADEN, ATLANTIC, CND, SOL+LIQ^1319-0^oz.^28.3^^N
	;;^UTILITY(U,$J,112,1332,1)
	;;=18.7^10.2^0^172^67.9^^^147^1.3^^297^420^74^^^^^110^3^.02
	;;^UTILITY(U,$J,112,1332,2)
	;;=.18^3.6^^^^^0^^55^3
	;;^UTILITY(U,$J,112,1332,20)
	;;=USDA  Std. Reference, Release 8
	;;^UTILITY(U,$J,112,1333,0)
	;;=MOLASSES, CANE, FIRST EXTRACTION OR LIGHT^19-304^tbsp.^20^100^N
	;;^UTILITY(U,$J,112,1333,1)
	;;=0^.1^68.8^266^25.9^^^205^4.72^242^31^1464^37^.29^.487^1.53^^0^0^.041
	;;^UTILITY(U,$J,112,1333,2)
	;;=.002^.93^.804^.67^0^0^^^0^^^^0^3.3^^^0
	;;^UTILITY(U,$J,112,1333,4)
	;;=^^^^^^0^^^17.8
	;;^UTILITY(U,$J,112,1333,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1334,0)
	;;=MOLASSES, CANE, SECOND EXTRACTION OR MEDIUM^19-304^tbsp.^20^100^N
	;;^UTILITY(U,$J,112,1334,1)
	;;=0^.1^68.8^266^25.9^^^205^4.72^242^31^1464^37^.29^.487^1.53^^0^0^.041
	;;^UTILITY(U,$J,112,1334,2)
	;;=.002^.93^.804^.67^0^0^^^0^^^^0^3.3^^^0
	;;^UTILITY(U,$J,112,1334,4)
	;;=^^^^^^0
	;;^UTILITY(U,$J,112,1334,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,1335,0)
	;;=MOLASSES, CANE, THIRD EXTRACTION OR BLACKSTRAP^19-305^tbsp.^20^100^N