FHINI0H2.m

FHINI0H2	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

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

	;;^UTILITY(U,$J,112.2)

	;;=^FH(112.2,

	;;^UTILITY(U,$J,112.2,0)

	;;=RDA VALUES^112.2^18^18

	;;^UTILITY(U,$J,112.2,1,0)

	;;=INFANTS 0-1/2 YR.^I6MO

	;;^UTILITY(U,$J,112.2,1,1)

	;;=13^375^3^30^.3^.4^5^.3^25^.3^400^300^40^6^5^2^.5^.45^120^500^5^10

	;;^UTILITY(U,$J,112.2,2,0)

	;;=INFANTS 1/2-1 YR.^I1YR

	;;^UTILITY(U,$J,112.2,2,1)

	;;=14^375^4^35^.4^.5^6^.6^35^.5^600^500^60^10^5^3^.65^.8^200^700^10^15

	;;^UTILITY(U,$J,112.2,3,0)

	;;=CHILDREN 1-3 YR.^C1

	;;^UTILITY(U,$J,112.2,3,1)

	;;=16^400^6^40^.7^.8^9^1^50^.7^800^800^80^10^10^3^.85^1.25^300^1400^15^20

	;;^UTILITY(U,$J,112.2,4,0)

	;;=CHILDREN 4-6 YR.^C4

	;;^UTILITY(U,$J,112.2,4,1)

	;;=24^500^7^45^.9^1.1^12^1.1^75^1^800^800^120^10^10^3.5^1.25^1.75^300^1400^20^20

	;;^UTILITY(U,$J,112.2,5,0)

	;;=CHILDREN 7-10 YR.^C7

	;;^UTILITY(U,$J,112.2,5,1)

	;;=28^700^7^45^1^1.2^13^1.4^100^2^800^800^170^10^10^4.5^1.5^2.5^400^1600^30^30

	;;^UTILITY(U,$J,112.2,6,0)

	;;=MALES 11-14 YR.^M11

	;;^UTILITY(U,$J,112.2,6,1)

	;;=45^1000^10^50^1.3^1.5^17^1.7^150^2^1200^1200^270^12^15^5.5^2^3.5^500^2000^45^40

	;;^UTILITY(U,$J,112.2,7,0)

	;;=MALES 15-18 YR.^M15

	;;^UTILITY(U,$J,112.2,7,1)

	;;=59^1000^10^60^1.5^1.8^20^2^200^2^1200^1200^400^12^15^5.5^2.25^3.5^500^2000^65^50

	;;^UTILITY(U,$J,112.2,8,0)

	;;=MALES 19-24 YR.^M19

	;;^UTILITY(U,$J,112.2,8,1)

	;;=58^1000^10^60^1.5^1.7^19^2^200^2^1200^1200^350^10^15^5.5^2.25^3.5^500^2000^70^70

	;;^UTILITY(U,$J,112.2,9,0)

	;;=MALES 25-50 YR.^M25

	;;^UTILITY(U,$J,112.2,9,1)

	;;=63^1000^10^60^1.5^1.7^19^2^200^2^800^800^350^10^15^5.5^2.25^3.5^500^2000^80^70

	;;^UTILITY(U,$J,112.2,10,0)

	;;=MALES 51+ YR.^M51

	;;^UTILITY(U,$J,112.2,10,1)

	;;=63^1000^10^60^1.2^1.4^15^2^200^2^800^800^350^10^15^5.5^2.25^3.5^500^2000^80^70

	;;^UTILITY(U,$J,112.2,11,0)

	;;=FEMALES 11-14 YR.^F11

	;;^UTILITY(U,$J,112.2,11,1)

	;;=46^800^8^50^1.1^1.3^15^1.4^150^2^1200^1200^280^15^12^5.5^2^3.5^500^2000^45^45

	;;^UTILITY(U,$J,112.2,12,0)

	;;=FEMALES 15-18 YR.^F15

	;;^UTILITY(U,$J,112.2,12,1)

	;;=44^800^8^60^1.1^1.3^15^1.5^180^2^1200^1200^300^15^12^5.5^2.25^3.5^500^2000^55^50

	;;^UTILITY(U,$J,112.2,13,0)

	;;=FEMALES 19-24 YR.^F19

	;;^UTILITY(U,$J,112.2,13,1)

	;;=46^800^8^60^1.1^1.3^15^1.6^180^2^1200^1200^280^15^12^5.5^2.25^3.5^500^2000^60^55

	;;^UTILITY(U,$J,112.2,14,0)

	;;=FEMALES 25-50 YR.^F25

	;;^UTILITY(U,$J,112.2,14,1)

	;;=50^800^8^60^1.1^1.3^15^1.6^180^2^800^800^280^15^12^5.5^2.25^3.5^500^2000^65^55

	;;^UTILITY(U,$J,112.2,15,0)

	;;=FEMALES 51+ YR.^F51

	;;^UTILITY(U,$J,112.2,15,1)

	;;=50^800^8^60^1^1.2^13^1.6^180^2^800^800^280^10^12^5.5^2.25^3.5^500^2000^65^55

	;;^UTILITY(U,$J,112.2,16,0)

	;;=PREGNANT FEMALES^PREG

	;;^UTILITY(U,$J,112.2,16,1)

	;;=60^800^10^70^1.5^1.6^17^2.2^400^2.2^1200^1200^320^30^15^5.5^2.25^3.5^500^2000^65^65

	;;^UTILITY(U,$J,112.2,17,0)

	;;=LACTATING 1ST. 6 MO.^LACT

	;;^UTILITY(U,$J,112.2,17,1)

	;;=65^1300^12^95^1.6^1.8^20^2.1^280^2.6^1200^1200^355^15^19^5.5^2.25^3.5^500^2000^65^75

	;;^UTILITY(U,$J,112.2,18,0)

	;;=LACTATING 2ND. 6 MO.^LACT

	;;^UTILITY(U,$J,112.2,18,1)

	;;=62^1200^11^90^1.6^1.7^20^2.1^260^2.6^1200^1200^340^15^16^5.5^2.25^3.5^500^2000^65^75

FHINI0H2  ; ; 11-OCT-1995

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

 +2        IF 'DIFQR(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       ;;^UTILITY(U,$J,112.2)

 +2       ;;=^FH(112.2,

 +3       ;;^UTILITY(U,$J,112.2,0)

 +4       ;;=RDA VALUES^112.2^18^18

 +5       ;;^UTILITY(U,$J,112.2,1,0)

 +6       ;;=INFANTS 0-1/2 YR.^I6MO

 +7       ;;^UTILITY(U,$J,112.2,1,1)

 +8       ;;=13^375^3^30^.3^.4^5^.3^25^.3^400^300^40^6^5^2^.5^.45^120^500^5^10

 +9       ;;^UTILITY(U,$J,112.2,2,0)

 +10      ;;=INFANTS 1/2-1 YR.^I1YR

 +11      ;;^UTILITY(U,$J,112.2,2,1)

 +12      ;;=14^375^4^35^.4^.5^6^.6^35^.5^600^500^60^10^5^3^.65^.8^200^700^10^15

 +13      ;;^UTILITY(U,$J,112.2,3,0)

 +14      ;;=CHILDREN 1-3 YR.^C1

 +15      ;;^UTILITY(U,$J,112.2,3,1)

 +16      ;;=16^400^6^40^.7^.8^9^1^50^.7^800^800^80^10^10^3^.85^1.25^300^1400^15^20

 +17      ;;^UTILITY(U,$J,112.2,4,0)

 +18      ;;=CHILDREN 4-6 YR.^C4

 +19      ;;^UTILITY(U,$J,112.2,4,1)

 +20      ;;=24^500^7^45^.9^1.1^12^1.1^75^1^800^800^120^10^10^3.5^1.25^1.75^300^1400^20^20

 +21      ;;^UTILITY(U,$J,112.2,5,0)

 +22      ;;=CHILDREN 7-10 YR.^C7

 +23      ;;^UTILITY(U,$J,112.2,5,1)

 +24      ;;=28^700^7^45^1^1.2^13^1.4^100^2^800^800^170^10^10^4.5^1.5^2.5^400^1600^30^30

 +25      ;;^UTILITY(U,$J,112.2,6,0)

 +26      ;;=MALES 11-14 YR.^M11

 +27      ;;^UTILITY(U,$J,112.2,6,1)

 +28      ;;=45^1000^10^50^1.3^1.5^17^1.7^150^2^1200^1200^270^12^15^5.5^2^3.5^500^2000^45^40

 +29      ;;^UTILITY(U,$J,112.2,7,0)

 +30      ;;=MALES 15-18 YR.^M15

 +31      ;;^UTILITY(U,$J,112.2,7,1)

 +32      ;;=59^1000^10^60^1.5^1.8^20^2^200^2^1200^1200^400^12^15^5.5^2.25^3.5^500^2000^65^50

 +33      ;;^UTILITY(U,$J,112.2,8,0)

 +34      ;;=MALES 19-24 YR.^M19

 +35      ;;^UTILITY(U,$J,112.2,8,1)

 +36      ;;=58^1000^10^60^1.5^1.7^19^2^200^2^1200^1200^350^10^15^5.5^2.25^3.5^500^2000^70^70

 +37      ;;^UTILITY(U,$J,112.2,9,0)

 +38      ;;=MALES 25-50 YR.^M25

 +39      ;;^UTILITY(U,$J,112.2,9,1)

 +40      ;;=63^1000^10^60^1.5^1.7^19^2^200^2^800^800^350^10^15^5.5^2.25^3.5^500^2000^80^70

 +41      ;;^UTILITY(U,$J,112.2,10,0)

 +42      ;;=MALES 51+ YR.^M51

 +43      ;;^UTILITY(U,$J,112.2,10,1)

 +44      ;;=63^1000^10^60^1.2^1.4^15^2^200^2^800^800^350^10^15^5.5^2.25^3.5^500^2000^80^70

 +45      ;;^UTILITY(U,$J,112.2,11,0)

 +46      ;;=FEMALES 11-14 YR.^F11

 +47      ;;^UTILITY(U,$J,112.2,11,1)

 +48      ;;=46^800^8^50^1.1^1.3^15^1.4^150^2^1200^1200^280^15^12^5.5^2^3.5^500^2000^45^45

 +49      ;;^UTILITY(U,$J,112.2,12,0)

 +50      ;;=FEMALES 15-18 YR.^F15

 +51      ;;^UTILITY(U,$J,112.2,12,1)

 +52      ;;=44^800^8^60^1.1^1.3^15^1.5^180^2^1200^1200^300^15^12^5.5^2.25^3.5^500^2000^55^50

 +53      ;;^UTILITY(U,$J,112.2,13,0)

 +54      ;;=FEMALES 19-24 YR.^F19

 +55      ;;^UTILITY(U,$J,112.2,13,1)

 +56      ;;=46^800^8^60^1.1^1.3^15^1.6^180^2^1200^1200^280^15^12^5.5^2.25^3.5^500^2000^60^55

 +57      ;;^UTILITY(U,$J,112.2,14,0)

 +58      ;;=FEMALES 25-50 YR.^F25

 +59      ;;^UTILITY(U,$J,112.2,14,1)

 +60      ;;=50^800^8^60^1.1^1.3^15^1.6^180^2^800^800^280^15^12^5.5^2.25^3.5^500^2000^65^55

 +61      ;;^UTILITY(U,$J,112.2,15,0)

 +62      ;;=FEMALES 51+ YR.^F51

 +63      ;;^UTILITY(U,$J,112.2,15,1)

 +64      ;;=50^800^8^60^1^1.2^13^1.6^180^2^800^800^280^10^12^5.5^2.25^3.5^500^2000^65^55

 +65      ;;^UTILITY(U,$J,112.2,16,0)

 +66      ;;=PREGNANT FEMALES^PREG

 +67      ;;^UTILITY(U,$J,112.2,16,1)

 +68      ;;=60^800^10^70^1.5^1.6^17^2.2^400^2.2^1200^1200^320^30^15^5.5^2.25^3.5^500^2000^65^65

 +69      ;;^UTILITY(U,$J,112.2,17,0)

 +70      ;;=LACTATING 1ST. 6 MO.^LACT

 +71      ;;^UTILITY(U,$J,112.2,17,1)

 +72      ;;=65^1300^12^95^1.6^1.8^20^2.1^280^2.6^1200^1200^355^15^19^5.5^2.25^3.5^500^2000^65^75

 +73      ;;^UTILITY(U,$J,112.2,18,0)

 +74      ;;=LACTATING 2ND. 6 MO.^LACT

 +75      ;;^UTILITY(U,$J,112.2,18,1)

 +76      ;;=62^1200^11^90^1.6^1.7^20^2.1^260^2.6^1200^1200^340^15^16^5.5^2.25^3.5^500^2000^65^75