FHINI00B ; ; 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,37,0)
;;=LINOLEIC ACID; GM/100G^NJ9,3^^2;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,37,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,37,21,0)
;;=^^1^1^2880710^
;;^DD(112,37,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,38,0)
;;=LINOLENIC ACID; GM/100G^NJ9,3^^2;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,38,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,38,21,0)
;;=^^1^1^2880710^
;;^DD(112,38,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,39,0)
;;=CHOLESTEROL; MG/100G^NJ9,3^^2;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,39,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,39,21,0)
;;=^^1^1^2880710^
;;^DD(112,39,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,40,0)
;;=SATURATED FAT; GM/100G^NJ10,3^^2;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,40,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,40,21,0)
;;=^^1^1^2880710^
;;^DD(112,40,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,41,0)
;;=MONOUNSATURATED FAT; GM/100G^NJ10,3^^2;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,41,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,41,21,0)
;;=^^1^1^2880710^
;;^DD(112,41,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,42,0)
;;=POLYUNSATURATED FAT; GM/100G^NJ10,3^^2;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,42,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,42,21,0)
;;=^^1^1^2880710^
;;^DD(112,42,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,43,0)
;;=VITAMIN A; RE/100G^NJ9,3^^2;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,43,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,43,21,0)
;;=^^1^1^2880710^
;;^DD(112,43,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,43,"DT")
;;=2891204
;;^DD(112,44,0)
;;=ASH; GM/100G^NJ9,3^^2;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,44,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,44,21,0)
;;=^^1^1^2880710^
;;^DD(112,44,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,44,"DT")
;;=2891204
;;^DD(112,45,0)
;;=ALCOHOL; GM/100G^NJ9,3^^2;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,45,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,45,21,0)
;;=^^1^1^2880710^
;;^DD(112,45,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,46,0)
;;=CAFFEINE; MG/100G^NJ9,3^^2;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,46,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,46,21,0)
;;=^^1^1^2880710^
;;^DD(112,46,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,46,"DT")
;;=2891204
;;^DD(112,47,0)
;;=TOTAL DIETARY FIBER; GM/100G^NJ9,3^^2;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,47,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,47,21,0)
;;=^^1^1^2880710^
;;^DD(112,47,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,48,0)
;;=TOTAL TOCOPHEROL; MG/100G^NJ9,3^^2;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,48,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,48,21,0)
;;=^^1^1^2880710^
;;^DD(112,48,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,51,0)
;;=TRYPTOPHAN; GM/100G^NJ9,3^^3;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,51,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,51,21,0)
;;=^^1^1^2880710^
;;^DD(112,51,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,52,0)
;;=THREONINE; GM/100G^NJ9,3^^3;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,52,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,52,21,0)
;;=^^1^1^2880710^
;;^DD(112,52,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,53,0)
;;=ISOLEUCINE; GM/100G^NJ9,3^^3;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,53,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,53,21,0)
;;=^^1^1^2880710^
;;^DD(112,53,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,54,0)
;;=LEUCINE; GM/100G^NJ9,3^^3;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,54,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,54,21,0)
;;=^^1^1^2880710^
FHINI00B ; ; 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,37,0)
+2 ;;=LINOLEIC ACID; GM/100G^NJ9,3^^2;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+3 ;;^DD(112,37,3)
+4 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+5 ;;^DD(112,37,21,0)
+6 ;;=^^1^1^2880710^
+7 ;;^DD(112,37,21,1,0)
+8 ;;=This is the value per 100 grams for this nutrient.
+9 ;;^DD(112,38,0)
+10 ;;=LINOLENIC ACID; GM/100G^NJ9,3^^2;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+11 ;;^DD(112,38,3)
+12 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+13 ;;^DD(112,38,21,0)
+14 ;;=^^1^1^2880710^
+15 ;;^DD(112,38,21,1,0)
+16 ;;=This is the value per 100 grams for this nutrient.
+17 ;;^DD(112,39,0)
+18 ;;=CHOLESTEROL; MG/100G^NJ9,3^^2;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+19 ;;^DD(112,39,3)
+20 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+21 ;;^DD(112,39,21,0)
+22 ;;=^^1^1^2880710^
+23 ;;^DD(112,39,21,1,0)
+24 ;;=This is the value per 100 grams for this nutrient.
+25 ;;^DD(112,40,0)
+26 ;;=SATURATED FAT; GM/100G^NJ10,3^^2;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
+27 ;;^DD(112,40,3)
+28 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+29 ;;^DD(112,40,21,0)
+30 ;;=^^1^1^2880710^
+31 ;;^DD(112,40,21,1,0)
+32 ;;=This is the value per 100 grams for this nutrient.
+33 ;;^DD(112,41,0)
+34 ;;=MONOUNSATURATED FAT; GM/100G^NJ10,3^^2;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
+35 ;;^DD(112,41,3)
+36 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+37 ;;^DD(112,41,21,0)
+38 ;;=^^1^1^2880710^
+39 ;;^DD(112,41,21,1,0)
+40 ;;=This is the value per 100 grams for this nutrient.
+41 ;;^DD(112,42,0)
+42 ;;=POLYUNSATURATED FAT; GM/100G^NJ10,3^^2;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
+43 ;;^DD(112,42,3)
+44 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+45 ;;^DD(112,42,21,0)
+46 ;;=^^1^1^2880710^
+47 ;;^DD(112,42,21,1,0)
+48 ;;=This is the value per 100 grams for this nutrient.
+49 ;;^DD(112,43,0)
+50 ;;=VITAMIN A; RE/100G^NJ9,3^^2;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+51 ;;^DD(112,43,3)
+52 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+53 ;;^DD(112,43,21,0)
+54 ;;=^^1^1^2880710^
+55 ;;^DD(112,43,21,1,0)
+56 ;;=This is the value per 100 grams for this nutrient.
+57 ;;^DD(112,43,"DT")
+58 ;;=2891204
+59 ;;^DD(112,44,0)
+60 ;;=ASH; GM/100G^NJ9,3^^2;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+61 ;;^DD(112,44,3)
+62 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+63 ;;^DD(112,44,21,0)
+64 ;;=^^1^1^2880710^
+65 ;;^DD(112,44,21,1,0)
+66 ;;=This is the value per 100 grams for this nutrient.
+67 ;;^DD(112,44,"DT")
+68 ;;=2891204
+69 ;;^DD(112,45,0)
+70 ;;=ALCOHOL; GM/100G^NJ9,3^^2;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+71 ;;^DD(112,45,3)
+72 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+73 ;;^DD(112,45,21,0)
+74 ;;=^^1^1^2880710^
+75 ;;^DD(112,45,21,1,0)
+76 ;;=This is the value per 100 grams for this nutrient.
+77 ;;^DD(112,46,0)
+78 ;;=CAFFEINE; MG/100G^NJ9,3^^2;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+79 ;;^DD(112,46,3)
+80 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+81 ;;^DD(112,46,21,0)
+82 ;;=^^1^1^2880710^
+83 ;;^DD(112,46,21,1,0)
+84 ;;=This is the value per 100 grams for this nutrient.
+85 ;;^DD(112,46,"DT")
+86 ;;=2891204
+87 ;;^DD(112,47,0)
+88 ;;=TOTAL DIETARY FIBER; GM/100G^NJ9,3^^2;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+89 ;;^DD(112,47,3)
+90 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+91 ;;^DD(112,47,21,0)
+92 ;;=^^1^1^2880710^
+93 ;;^DD(112,47,21,1,0)
+94 ;;=This is the value per 100 grams for this nutrient.
+95 ;;^DD(112,48,0)
+96 ;;=TOTAL TOCOPHEROL; MG/100G^NJ9,3^^2;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+97 ;;^DD(112,48,3)
+98 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+99 ;;^DD(112,48,21,0)
+100 ;;=^^1^1^2880710^
+101 ;;^DD(112,48,21,1,0)
+102 ;;=This is the value per 100 grams for this nutrient.
+103 ;;^DD(112,51,0)
+104 ;;=TRYPTOPHAN; GM/100G^NJ9,3^^3;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+105 ;;^DD(112,51,3)
+106 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+107 ;;^DD(112,51,21,0)
+108 ;;=^^1^1^2880710^
+109 ;;^DD(112,51,21,1,0)
+110 ;;=This is the value per 100 grams for this nutrient.
+111 ;;^DD(112,52,0)
+112 ;;=THREONINE; GM/100G^NJ9,3^^3;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+113 ;;^DD(112,52,3)
+114 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+115 ;;^DD(112,52,21,0)
+116 ;;=^^1^1^2880710^
+117 ;;^DD(112,52,21,1,0)
+118 ;;=This is the value per 100 grams for this nutrient.
+119 ;;^DD(112,53,0)
+120 ;;=ISOLEUCINE; GM/100G^NJ9,3^^3;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+121 ;;^DD(112,53,3)
+122 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+123 ;;^DD(112,53,21,0)
+124 ;;=^^1^1^2880710^
+125 ;;^DD(112,53,21,1,0)
+126 ;;=This is the value per 100 grams for this nutrient.
+127 ;;^DD(112,54,0)
+128 ;;=LEUCINE; GM/100G^NJ9,3^^3;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+129 ;;^DD(112,54,3)
+130 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+131 ;;^DD(112,54,21,0)
+132 ;;=^^1^1^2880710^
