FHINI00D.m

FHINI00D	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	Q:'DIFQ(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

	;;^DD(112,72,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

	;;^DD(112,73,0)

	;;=MYRISTIC ACID; GM/100G^NJ9,3^^4;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

	;;^DD(112,73,3)

	;;=Type a Number between 0 and 99999, 3 Decimal Digits

	;;^DD(112,73,21,0)

	;;=^^1^1^2880710^

	;;^DD(112,73,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

	;;^DD(112,74,0)

	;;=PALMITIC ACID; GM/100G^NJ9,3^^4;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

	;;^DD(112,74,3)

	;;=Type a Number between 0 and 99999, 3 Decimal Digits

	;;^DD(112,74,21,0)

	;;=^^1^1^2880710^

	;;^DD(112,74,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

	;;^DD(112,75,0)

	;;=PALMITOLEIC ACID; GM/100G^NJ9,3^^4;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

	;;^DD(112,75,3)

	;;=Type a Number between 0 and 99999, 3 Decimal Digits

	;;^DD(112,75,21,0)

	;;=^^1^1^2880710^

	;;^DD(112,75,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

	;;^DD(112,76,0)

	;;=STEARIC ACID; GM/100G^NJ9,3^^4;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

	;;^DD(112,76,3)

	;;=Type a Number between 0 and 99999, 3 Decimal Digits

	;;^DD(112,76,21,0)

	;;=^^1^1^2880710^

	;;^DD(112,76,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

	;;^DD(112,77,0)

	;;=OLEIC ACID; GM/100G^NJ9,3^^4;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

	;;^DD(112,77,3)

	;;=Type a Number between 0 and 99999, 3 Decimal Digits

	;;^DD(112,77,21,0)

	;;=^^1^1^2880710^

	;;^DD(112,77,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

	;;^DD(112,78,0)

	;;=ARACHIDONIC ACID; GM/100G^NJ9,3^^4;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

	;;^DD(112,78,3)

	;;=Type a Number between 0 and 99999, 3 Decimal Digits

	;;^DD(112,78,21,0)

	;;=^^1^1^2880710^

	;;^DD(112,78,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

	;;^DD(112,79,0)

	;;=VITAMIN K; MCG/100G^NJ6,2^^4;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X

	;;^DD(112,79,3)

	;;=Type a Number between 0 and 999, 2 Decimal Digits

	;;^DD(112,79,21,0)

	;;=^^1^1^2921107^

	;;^DD(112,79,21,1,0)

	;;=This is the value per 100 gms. of this nutrient

	;;^DD(112,79,"DT")

	;;=2920704

	;;^DD(112,80,0)

	;;=SELENIUM; MCG/100G^NJ6,2^^4;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X

	;;^DD(112,80,3)

	;;=Type a Number between 0 and 999, 2 Decimal Digits

	;;^DD(112,80,21,0)

	;;=^^1^1^2921107^

	;;^DD(112,80,21,1,0)

	;;=This is the value per 100 gms. of this nutrient.

	;;^DD(112,80,"DT")

	;;=2920704

	;;^DD(112,99,0)

	;;=SOURCE OF DATA^F^^20;1^K:$L(X)>80!($L(X)<1) X

	;;^DD(112,99,3)

	;;=Type a Number between 0 and 99999, 3 Decimal Digits

	;;^DD(112,99,21,0)

	;;=^^1^1^2880710^

	;;^DD(112,99,21,1,0)

	;;=This is the value per 100 grams for this nutrient.

FHINI00D  ; ; 11-OCT-1995

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        IF 'DIFQ(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       ;;^DD(112,72,21,1,0)

 +2       ;;=This is the value per 100 grams for this nutrient.

 +3       ;;^DD(112,73,0)

 +4       ;;=MYRISTIC ACID; GM/100G^NJ9,3^^4;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

 +5       ;;^DD(112,73,3)

 +6       ;;=Type a Number between 0 and 99999, 3 Decimal Digits

 +7       ;;^DD(112,73,21,0)

 +8       ;;=^^1^1^2880710^

 +9       ;;^DD(112,73,21,1,0)

 +10      ;;=This is the value per 100 grams for this nutrient.

 +11      ;;^DD(112,74,0)

 +12      ;;=PALMITIC ACID; GM/100G^NJ9,3^^4;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

 +13      ;;^DD(112,74,3)

 +14      ;;=Type a Number between 0 and 99999, 3 Decimal Digits

 +15      ;;^DD(112,74,21,0)

 +16      ;;=^^1^1^2880710^

 +17      ;;^DD(112,74,21,1,0)

 +18      ;;=This is the value per 100 grams for this nutrient.

 +19      ;;^DD(112,75,0)

 +20      ;;=PALMITOLEIC ACID; GM/100G^NJ9,3^^4;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

 +21      ;;^DD(112,75,3)

 +22      ;;=Type a Number between 0 and 99999, 3 Decimal Digits

 +23      ;;^DD(112,75,21,0)

 +24      ;;=^^1^1^2880710^

 +25      ;;^DD(112,75,21,1,0)

 +26      ;;=This is the value per 100 grams for this nutrient.

 +27      ;;^DD(112,76,0)

 +28      ;;=STEARIC ACID; GM/100G^NJ9,3^^4;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

 +29      ;;^DD(112,76,3)

 +30      ;;=Type a Number between 0 and 99999, 3 Decimal Digits

 +31      ;;^DD(112,76,21,0)

 +32      ;;=^^1^1^2880710^

 +33      ;;^DD(112,76,21,1,0)

 +34      ;;=This is the value per 100 grams for this nutrient.

 +35      ;;^DD(112,77,0)

 +36      ;;=OLEIC ACID; GM/100G^NJ9,3^^4;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

 +37      ;;^DD(112,77,3)

 +38      ;;=Type a Number between 0 and 99999, 3 Decimal Digits

 +39      ;;^DD(112,77,21,0)

 +40      ;;=^^1^1^2880710^

 +41      ;;^DD(112,77,21,1,0)

 +42      ;;=This is the value per 100 grams for this nutrient.

 +43      ;;^DD(112,78,0)

 +44      ;;=ARACHIDONIC ACID; GM/100G^NJ9,3^^4;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X

 +45      ;;^DD(112,78,3)

 +46      ;;=Type a Number between 0 and 99999, 3 Decimal Digits

 +47      ;;^DD(112,78,21,0)

 +48      ;;=^^1^1^2880710^

 +49      ;;^DD(112,78,21,1,0)

 +50      ;;=This is the value per 100 grams for this nutrient.

 +51      ;;^DD(112,79,0)

 +52      ;;=VITAMIN K; MCG/100G^NJ6,2^^4;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X

 +53      ;;^DD(112,79,3)

 +54      ;;=Type a Number between 0 and 999, 2 Decimal Digits

 +55      ;;^DD(112,79,21,0)

 +56      ;;=^^1^1^2921107^

 +57      ;;^DD(112,79,21,1,0)

 +58      ;;=This is the value per 100 gms. of this nutrient

 +59      ;;^DD(112,79,"DT")

 +60      ;;=2920704

 +61      ;;^DD(112,80,0)

 +62      ;;=SELENIUM; MCG/100G^NJ6,2^^4;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X

 +63      ;;^DD(112,80,3)

 +64      ;;=Type a Number between 0 and 999, 2 Decimal Digits

 +65      ;;^DD(112,80,21,0)

 +66      ;;=^^1^1^2921107^

 +67      ;;^DD(112,80,21,1,0)

 +68      ;;=This is the value per 100 gms. of this nutrient.

 +69      ;;^DD(112,80,"DT")

 +70      ;;=2920704

 +71      ;;^DD(112,99,0)

 +72      ;;=SOURCE OF DATA^F^^20;1^K:$L(X)>80!($L(X)<1) X

 +73      ;;^DD(112,99,3)

 +74      ;;=Type a Number between 0 and 99999, 3 Decimal Digits

 +75      ;;^DD(112,99,21,0)

 +76      ;;=^^1^1^2880710^

 +77      ;;^DD(112,99,21,1,0)

 +78      ;;=This is the value per 100 grams for this nutrient.