FHINI00C ; ; 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,54,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,55,0)
;;=LYSINE; GM/100G^NJ9,3^^3;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,55,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,55,21,0)
;;=^^1^1^2880710^
;;^DD(112,55,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,56,0)
;;=METHIONINE; GM/100G^NJ9,3^^3;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,56,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,56,21,0)
;;=^^1^1^2880710^
;;^DD(112,56,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,57,0)
;;=CYSTINE; GM/100G^NJ9,3^^3;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,57,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,57,21,0)
;;=^^1^1^2880710^
;;^DD(112,57,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,58,0)
;;=PHENYLALANINE; GM/100G^NJ9,3^^3;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,58,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,58,21,0)
;;=^^1^1^2880710^
;;^DD(112,58,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,59,0)
;;=TYROSINE; GM/100G^NJ9,3^^3;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,59,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,59,21,0)
;;=^^1^1^2940802^^
;;^DD(112,59,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,59,"DT")
;;=2940802
;;^DD(112,60,0)
;;=VALINE; GM/100G^NJ9,3^^3;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,60,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,60,21,0)
;;=^^1^1^2880710^
;;^DD(112,60,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,61,0)
;;=ARGININE; GM/100G^NJ9,3^^3;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,61,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,61,21,0)
;;=^^1^1^2880710^
;;^DD(112,61,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,62,0)
;;=HISTIDINE; GM/100G^NJ9,3^^3;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,62,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,62,21,0)
;;=^^1^1^2880710^
;;^DD(112,62,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,63,0)
;;=ALANINE; GM/100G^NJ9,3^^3;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,63,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,63,21,0)
;;=^^1^1^2880710^
;;^DD(112,63,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,64,0)
;;=ASPARTIC ACID; GM/100G^NJ9,3^^3;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,64,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,64,21,0)
;;=^^1^1^2880710^
;;^DD(112,64,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,65,0)
;;=GLUTAMIC ACID; GM/100G^NJ9,3^^3;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,65,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,65,21,0)
;;=^^1^1^2880710^
;;^DD(112,65,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,66,0)
;;=GLYCINE; GM/100G^NJ9,3^^3;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,66,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,66,21,0)
;;=^^1^1^2880710^
;;^DD(112,66,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,67,0)
;;=PROLINE; GM/100G^NJ9,3^^3;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,67,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,67,21,0)
;;=^^1^1^2880710^
;;^DD(112,67,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,68,0)
;;=SERINE; GM/100G^NJ9,3^^3;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,68,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,68,21,0)
;;=^^1^1^2880710^
;;^DD(112,68,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,68,"DT")
;;=2891204
;;^DD(112,71,0)
;;=CAPRIC ACID; GM/100G^NJ9,3^^4;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,71,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,71,21,0)
;;=^^1^1^2880710^
;;^DD(112,71,21,1,0)
;;=This is the value per 100 grams for this nutrient.
;;^DD(112,71,"DT")
;;=2891205
;;^DD(112,72,0)
;;=LAURIC ACID; GM/100G^NJ9,3^^4;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(112,72,3)
;;=Type a Number between 0 and 99999, 3 Decimal Digits
;;^DD(112,72,21,0)
;;=^^1^1^2880710^
FHINI00C ; ; 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,54,21,1,0)
+2 ;;=This is the value per 100 grams for this nutrient.
+3 ;;^DD(112,55,0)
+4 ;;=LYSINE; GM/100G^NJ9,3^^3;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+5 ;;^DD(112,55,3)
+6 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+7 ;;^DD(112,55,21,0)
+8 ;;=^^1^1^2880710^
+9 ;;^DD(112,55,21,1,0)
+10 ;;=This is the value per 100 grams for this nutrient.
+11 ;;^DD(112,56,0)
+12 ;;=METHIONINE; GM/100G^NJ9,3^^3;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+13 ;;^DD(112,56,3)
+14 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+15 ;;^DD(112,56,21,0)
+16 ;;=^^1^1^2880710^
+17 ;;^DD(112,56,21,1,0)
+18 ;;=This is the value per 100 grams for this nutrient.
+19 ;;^DD(112,57,0)
+20 ;;=CYSTINE; GM/100G^NJ9,3^^3;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+21 ;;^DD(112,57,3)
+22 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+23 ;;^DD(112,57,21,0)
+24 ;;=^^1^1^2880710^
+25 ;;^DD(112,57,21,1,0)
+26 ;;=This is the value per 100 grams for this nutrient.
+27 ;;^DD(112,58,0)
+28 ;;=PHENYLALANINE; GM/100G^NJ9,3^^3;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+29 ;;^DD(112,58,3)
+30 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+31 ;;^DD(112,58,21,0)
+32 ;;=^^1^1^2880710^
+33 ;;^DD(112,58,21,1,0)
+34 ;;=This is the value per 100 grams for this nutrient.
+35 ;;^DD(112,59,0)
+36 ;;=TYROSINE; GM/100G^NJ9,3^^3;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+37 ;;^DD(112,59,3)
+38 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+39 ;;^DD(112,59,21,0)
+40 ;;=^^1^1^2940802^^
+41 ;;^DD(112,59,21,1,0)
+42 ;;=This is the value per 100 grams for this nutrient.
+43 ;;^DD(112,59,"DT")
+44 ;;=2940802
+45 ;;^DD(112,60,0)
+46 ;;=VALINE; GM/100G^NJ9,3^^3;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+47 ;;^DD(112,60,3)
+48 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+49 ;;^DD(112,60,21,0)
+50 ;;=^^1^1^2880710^
+51 ;;^DD(112,60,21,1,0)
+52 ;;=This is the value per 100 grams for this nutrient.
+53 ;;^DD(112,61,0)
+54 ;;=ARGININE; GM/100G^NJ9,3^^3;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+55 ;;^DD(112,61,3)
+56 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+57 ;;^DD(112,61,21,0)
+58 ;;=^^1^1^2880710^
+59 ;;^DD(112,61,21,1,0)
+60 ;;=This is the value per 100 grams for this nutrient.
+61 ;;^DD(112,62,0)
+62 ;;=HISTIDINE; GM/100G^NJ9,3^^3;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+63 ;;^DD(112,62,3)
+64 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+65 ;;^DD(112,62,21,0)
+66 ;;=^^1^1^2880710^
+67 ;;^DD(112,62,21,1,0)
+68 ;;=This is the value per 100 grams for this nutrient.
+69 ;;^DD(112,63,0)
+70 ;;=ALANINE; GM/100G^NJ9,3^^3;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+71 ;;^DD(112,63,3)
+72 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+73 ;;^DD(112,63,21,0)
+74 ;;=^^1^1^2880710^
+75 ;;^DD(112,63,21,1,0)
+76 ;;=This is the value per 100 grams for this nutrient.
+77 ;;^DD(112,64,0)
+78 ;;=ASPARTIC ACID; GM/100G^NJ9,3^^3;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+79 ;;^DD(112,64,3)
+80 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+81 ;;^DD(112,64,21,0)
+82 ;;=^^1^1^2880710^
+83 ;;^DD(112,64,21,1,0)
+84 ;;=This is the value per 100 grams for this nutrient.
+85 ;;^DD(112,65,0)
+86 ;;=GLUTAMIC ACID; GM/100G^NJ9,3^^3;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+87 ;;^DD(112,65,3)
+88 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+89 ;;^DD(112,65,21,0)
+90 ;;=^^1^1^2880710^
+91 ;;^DD(112,65,21,1,0)
+92 ;;=This is the value per 100 grams for this nutrient.
+93 ;;^DD(112,66,0)
+94 ;;=GLYCINE; GM/100G^NJ9,3^^3;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+95 ;;^DD(112,66,3)
+96 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+97 ;;^DD(112,66,21,0)
+98 ;;=^^1^1^2880710^
+99 ;;^DD(112,66,21,1,0)
+100 ;;=This is the value per 100 grams for this nutrient.
+101 ;;^DD(112,67,0)
+102 ;;=PROLINE; GM/100G^NJ9,3^^3;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+103 ;;^DD(112,67,3)
+104 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+105 ;;^DD(112,67,21,0)
+106 ;;=^^1^1^2880710^
+107 ;;^DD(112,67,21,1,0)
+108 ;;=This is the value per 100 grams for this nutrient.
+109 ;;^DD(112,68,0)
+110 ;;=SERINE; GM/100G^NJ9,3^^3;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+111 ;;^DD(112,68,3)
+112 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+113 ;;^DD(112,68,21,0)
+114 ;;=^^1^1^2880710^
+115 ;;^DD(112,68,21,1,0)
+116 ;;=This is the value per 100 grams for this nutrient.
+117 ;;^DD(112,68,"DT")
+118 ;;=2891204
+119 ;;^DD(112,71,0)
+120 ;;=CAPRIC ACID; GM/100G^NJ9,3^^4;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+121 ;;^DD(112,71,3)
+122 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+123 ;;^DD(112,71,21,0)
+124 ;;=^^1^1^2880710^
+125 ;;^DD(112,71,21,1,0)
+126 ;;=This is the value per 100 grams for this nutrient.
+127 ;;^DD(112,71,"DT")
+128 ;;=2891205
+129 ;;^DD(112,72,0)
+130 ;;=LAURIC ACID; GM/100G^NJ9,3^^4;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4N.N) X
+131 ;;^DD(112,72,3)
+132 ;;=Type a Number between 0 and 99999, 3 Decimal Digits
+133 ;;^DD(112,72,21,0)
+134 ;;=^^1^1^2880710^
