FHINI0H0 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(112.2) 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.2,9,0)
;;=FOLATE MCG^NJ4,0^^1;9^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,9,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(112.2,9,21,0)
;;=^^2^2^2891117^^^
;;^DD(112.2,9,21,1,0)
;;=This field represents the recommended amount of Folate per
;;^DD(112.2,9,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,10,0)
;;=VITAMIN B12 MCG^NJ3,1^^1;10^K:+X'=X!(X>5)!(X<0)!(X?.E1"."2N.N) X
;;^DD(112.2,10,3)
;;=TYPE A NUMBER BETWEEN 0 AND 5
;;^DD(112.2,10,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,10,21,1,0)
;;=This field represents the recommended amount of Vitamin B12 per
;;^DD(112.2,10,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,11,0)
;;=CALCIUM MG^NJ4,0^^1;11^K:+X'=X!(X>2000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,11,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
;;^DD(112.2,11,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,11,21,1,0)
;;=This field represents the recommended amount of Calcium per
;;^DD(112.2,11,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,12,0)
;;=PHOSPHORUS MG^NJ4,0^^1;12^K:+X'=X!(X>2000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,12,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
;;^DD(112.2,12,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,12,21,1,0)
;;=This field represents the recommended amount of Phosphorus per
;;^DD(112.2,12,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,13,0)
;;=MAGNESIUM MG^NJ4,0^^1;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,13,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(112.2,13,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,13,21,1,0)
;;=This field represents the recommended amount of Magnesium per
;;^DD(112.2,13,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,14,0)
;;=IRON MG^NJ3,0^^1;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,14,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 100
;;^DD(112.2,14,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,14,21,1,0)
;;=This field represents the recommended amount of Iron per
;;^DD(112.2,14,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,15,0)
;;=ZINC MG^NJ2,0^^1;15^K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,15,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 50
;;^DD(112.2,15,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,15,21,1,0)
;;=This field represents the recommended amount of Zinc per
;;^DD(112.2,15,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,16,0)
;;=PANTOTHENIC ACID MG^NJ4,1^^1;16^K:+X'=X!(X>20)!(X<0)!(X?.E1"."2N.N) X
;;^DD(112.2,16,3)
;;=TYPE A NUMBER BETWEEN 0 AND 20
;;^DD(112.2,16,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,16,21,1,0)
;;=This field represents the recommended amount of Pantothenic Acid per
;;^DD(112.2,16,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,17,0)
;;=COPPER MG^NJ5,2^^1;17^K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
;;^DD(112.2,17,3)
;;=TYPE A NUMBER BETWEEN 0 AND 10
;;^DD(112.2,17,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,17,21,1,0)
;;=This field represents the recommended amount of Copper per
;;^DD(112.2,17,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,18,0)
;;=MANGANESE MG^NJ5,2^^1;18^K:+X'=X!(X>20)!(X<0)!(X?.E1"."3N.N) X
;;^DD(112.2,18,3)
;;=TYPE A NUMBER BETWEEN 0 AND 20
;;^DD(112.2,18,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,18,21,1,0)
;;=This field represents the recommended amount of Manganese per
;;^DD(112.2,18,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,19,0)
;;=SODIUM MG^NJ4,0^^1;19^K:+X'=X!(X>5000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,19,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 5000
;;^DD(112.2,19,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,19,21,1,0)
;;=This field represents the recommended amount of Sodium per
;;^DD(112.2,19,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,20,0)
;;=POTASSIUM MG^NJ5,0^^1;20^K:+X'=X!(X>20000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(112.2,20,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 20000
;;^DD(112.2,20,21,0)
;;=^^2^2^2880717^^
;;^DD(112.2,20,21,1,0)
;;=This field represents the recommended amount of Potassium per
;;^DD(112.2,20,21,2,0)
;;=day for this RDA group.
;;^DD(112.2,21,0)
;;=VITAMIN K MCG^NJ6,2^^1;21^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(112.2,21,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(112.2,21,21,0)
;;=^^2^2^2921107^
;;^DD(112.2,21,21,1,0)
;;=This field represents the recommended amount of Vitamin K
;;^DD(112.2,21,21,2,0)
;;=per day for this RDA group.
;;^DD(112.2,21,"DT")
;;=2920704
;;^DD(112.2,22,0)
;;=SELENIUM MCG^NJ6,2^^1;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(112.2,22,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(112.2,22,21,0)
;;=^^2^2^2921107^^
;;^DD(112.2,22,21,1,0)
;;=This field represents the recommended amount of Selenium
FHINI0H0 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(112.2)
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.2,9,0)
+2 ;;=FOLATE MCG^NJ4,0^^1;9^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+3 ;;^DD(112.2,9,3)
+4 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+5 ;;^DD(112.2,9,21,0)
+6 ;;=^^2^2^2891117^^^
+7 ;;^DD(112.2,9,21,1,0)
+8 ;;=This field represents the recommended amount of Folate per
+9 ;;^DD(112.2,9,21,2,0)
+10 ;;=day for this RDA group.
+11 ;;^DD(112.2,10,0)
+12 ;;=VITAMIN B12 MCG^NJ3,1^^1;10^K:+X'=X!(X>5)!(X<0)!(X?.E1"."2N.N) X
+13 ;;^DD(112.2,10,3)
+14 ;;=TYPE A NUMBER BETWEEN 0 AND 5
+15 ;;^DD(112.2,10,21,0)
+16 ;;=^^2^2^2880717^^
+17 ;;^DD(112.2,10,21,1,0)
+18 ;;=This field represents the recommended amount of Vitamin B12 per
+19 ;;^DD(112.2,10,21,2,0)
+20 ;;=day for this RDA group.
+21 ;;^DD(112.2,11,0)
+22 ;;=CALCIUM MG^NJ4,0^^1;11^K:+X'=X!(X>2000)!(X<0)!(X?.E1"."1N.N) X
+23 ;;^DD(112.2,11,3)
+24 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
+25 ;;^DD(112.2,11,21,0)
+26 ;;=^^2^2^2880717^^
+27 ;;^DD(112.2,11,21,1,0)
+28 ;;=This field represents the recommended amount of Calcium per
+29 ;;^DD(112.2,11,21,2,0)
+30 ;;=day for this RDA group.
+31 ;;^DD(112.2,12,0)
+32 ;;=PHOSPHORUS MG^NJ4,0^^1;12^K:+X'=X!(X>2000)!(X<0)!(X?.E1"."1N.N) X
+33 ;;^DD(112.2,12,3)
+34 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
+35 ;;^DD(112.2,12,21,0)
+36 ;;=^^2^2^2880717^^
+37 ;;^DD(112.2,12,21,1,0)
+38 ;;=This field represents the recommended amount of Phosphorus per
+39 ;;^DD(112.2,12,21,2,0)
+40 ;;=day for this RDA group.
+41 ;;^DD(112.2,13,0)
+42 ;;=MAGNESIUM MG^NJ4,0^^1;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+43 ;;^DD(112.2,13,3)
+44 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+45 ;;^DD(112.2,13,21,0)
+46 ;;=^^2^2^2880717^^
+47 ;;^DD(112.2,13,21,1,0)
+48 ;;=This field represents the recommended amount of Magnesium per
+49 ;;^DD(112.2,13,21,2,0)
+50 ;;=day for this RDA group.
+51 ;;^DD(112.2,14,0)
+52 ;;=IRON MG^NJ3,0^^1;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
+53 ;;^DD(112.2,14,3)
+54 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 100
+55 ;;^DD(112.2,14,21,0)
+56 ;;=^^2^2^2880717^^
+57 ;;^DD(112.2,14,21,1,0)
+58 ;;=This field represents the recommended amount of Iron per
+59 ;;^DD(112.2,14,21,2,0)
+60 ;;=day for this RDA group.
+61 ;;^DD(112.2,15,0)
+62 ;;=ZINC MG^NJ2,0^^1;15^K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
+63 ;;^DD(112.2,15,3)
+64 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 50
+65 ;;^DD(112.2,15,21,0)
+66 ;;=^^2^2^2880717^^
+67 ;;^DD(112.2,15,21,1,0)
+68 ;;=This field represents the recommended amount of Zinc per
+69 ;;^DD(112.2,15,21,2,0)
+70 ;;=day for this RDA group.
+71 ;;^DD(112.2,16,0)
+72 ;;=PANTOTHENIC ACID MG^NJ4,1^^1;16^K:+X'=X!(X>20)!(X<0)!(X?.E1"."2N.N) X
+73 ;;^DD(112.2,16,3)
+74 ;;=TYPE A NUMBER BETWEEN 0 AND 20
+75 ;;^DD(112.2,16,21,0)
+76 ;;=^^2^2^2880717^^
+77 ;;^DD(112.2,16,21,1,0)
+78 ;;=This field represents the recommended amount of Pantothenic Acid per
+79 ;;^DD(112.2,16,21,2,0)
+80 ;;=day for this RDA group.
+81 ;;^DD(112.2,17,0)
+82 ;;=COPPER MG^NJ5,2^^1;17^K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
+83 ;;^DD(112.2,17,3)
+84 ;;=TYPE A NUMBER BETWEEN 0 AND 10
+85 ;;^DD(112.2,17,21,0)
+86 ;;=^^2^2^2880717^^
+87 ;;^DD(112.2,17,21,1,0)
+88 ;;=This field represents the recommended amount of Copper per
+89 ;;^DD(112.2,17,21,2,0)
+90 ;;=day for this RDA group.
+91 ;;^DD(112.2,18,0)
+92 ;;=MANGANESE MG^NJ5,2^^1;18^K:+X'=X!(X>20)!(X<0)!(X?.E1"."3N.N) X
+93 ;;^DD(112.2,18,3)
+94 ;;=TYPE A NUMBER BETWEEN 0 AND 20
+95 ;;^DD(112.2,18,21,0)
+96 ;;=^^2^2^2880717^^
+97 ;;^DD(112.2,18,21,1,0)
+98 ;;=This field represents the recommended amount of Manganese per
+99 ;;^DD(112.2,18,21,2,0)
+100 ;;=day for this RDA group.
+101 ;;^DD(112.2,19,0)
+102 ;;=SODIUM MG^NJ4,0^^1;19^K:+X'=X!(X>5000)!(X<0)!(X?.E1"."1N.N) X
+103 ;;^DD(112.2,19,3)
+104 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 5000
+105 ;;^DD(112.2,19,21,0)
+106 ;;=^^2^2^2880717^^
+107 ;;^DD(112.2,19,21,1,0)
+108 ;;=This field represents the recommended amount of Sodium per
+109 ;;^DD(112.2,19,21,2,0)
+110 ;;=day for this RDA group.
+111 ;;^DD(112.2,20,0)
+112 ;;=POTASSIUM MG^NJ5,0^^1;20^K:+X'=X!(X>20000)!(X<0)!(X?.E1"."1N.N) X
+113 ;;^DD(112.2,20,3)
+114 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 20000
+115 ;;^DD(112.2,20,21,0)
+116 ;;=^^2^2^2880717^^
+117 ;;^DD(112.2,20,21,1,0)
+118 ;;=This field represents the recommended amount of Potassium per
+119 ;;^DD(112.2,20,21,2,0)
+120 ;;=day for this RDA group.
+121 ;;^DD(112.2,21,0)
+122 ;;=VITAMIN K MCG^NJ6,2^^1;21^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+123 ;;^DD(112.2,21,3)
+124 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+125 ;;^DD(112.2,21,21,0)
+126 ;;=^^2^2^2921107^
+127 ;;^DD(112.2,21,21,1,0)
+128 ;;=This field represents the recommended amount of Vitamin K
+129 ;;^DD(112.2,21,21,2,0)
+130 ;;=per day for this RDA group.
+131 ;;^DD(112.2,21,"DT")
+132 ;;=2920704
+133 ;;^DD(112.2,22,0)
+134 ;;=SELENIUM MCG^NJ6,2^^1;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+135 ;;^DD(112.2,22,3)
+136 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+137 ;;^DD(112.2,22,21,0)
+138 ;;=^^2^2^2921107^^
+139 ;;^DD(112.2,22,21,1,0)
+140 ;;=This field represents the recommended amount of Selenium
