FHINI08X.m

FHINI08X	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

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

	;;^UTILITY(U,$J,112,6019,20)

	;;=Ross Lab. Product Lit. Sept 1990.

	;;^UTILITY(U,$J,112,6020,0)

	;;=ENSURE HN^DS-065^ml.^1

	;;^UTILITY(U,$J,112,6020,1)

	;;=4.2^3.5^14.12^106^83^^^76^1.39^30.4^76^156^93^1.73^.15^.38^3.42^372^22.3^.17

	;;^UTILITY(U,$J,112,6020,2)

	;;=.19^2.23^1.11^.23^45^.72^1.908^.043^2^.52^^1.95

	;;^UTILITY(U,$J,112,6020,3)

	;;=.048^.177^.217^.399^.324^.119^.022^.217^.217^.27^.169^.115^.142^.337^.986^.093^.435^.244

	;;^UTILITY(U,$J,112,6020,4)

	;;=.002^.003^.013^.397^^.081^.89^.02^5.41

	;;^UTILITY(U,$J,112,6020,20)

	;;=Ross Lab. Product Lit. Sept 1990.

	;;^UTILITY(U,$J,112,6021,0)

	;;=ENSURE PLUS HN^DS-067^ml.^1

	;;^UTILITY(U,$J,112,6021,1)

	;;=6.2^5^19.9^150^76^^^106^1.9^42.3^106^182^118^1.61^.21^.21^4.7^520.8^31.25^31.25

	;;^UTILITY(U,$J,112,6021,2)

	;;=.36^4.2^2.1^.42^83.3^1.27^2.683^.062^2^.73^^2.74

	;;^UTILITY(U,$J,112,6021,3)

	;;=.068^.25^.306^.563^.456^.169^.031^.306^.306^.381^.2^.162^.2^.475^1.389^.131^.613^.344

	;;^UTILITY(U,$J,112,6021,4)

	;;=.002^.005^.019^.559^^.113^1.251^.028^7.5

	;;^UTILITY(U,$J,112,6021,20)

	;;=Ross Lab. Product Lit. Sept 1990.

	;;^UTILITY(U,$J,112,6022,0)

	;;=FORTA PUDDING^^oz.^28.35

	;;^UTILITY(U,$J,112,6022,1)

	;;=4.81^6.86^24^177^64^^^141^2.12^47.4^141^212^155^2.12^.23^.47^3.5^589^10.6^.18

	;;^UTILITY(U,$J,112,6022,2)

	;;=.2^2.33^1.17^.23^47.4^.71

	;;^UTILITY(U,$J,112,6022,20)

	;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

	;;^UTILITY(U,$J,112,6023,0)

	;;=FORTA COOKIES, CHOC. CHIP^^cookies^14.25

	;;^UTILITY(U,$J,112,6023,1)

	;;=14.7^14^58.9^421^^^^438^7.88^175^439^526^526^6.67^.88^1.75^13.2^2193^26.3^.67

	;;^UTILITY(U,$J,112,6023,2)

	;;=.74^8.77^4.39^.88^175.4^2.63

	;;^UTILITY(U,$J,112,6023,20)

	;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

	;;^UTILITY(U,$J,112,6024,0)

	;;=FORTA COOKIES, SUGAR^^cookies^14.25

	;;^UTILITY(U,$J,112,6024,1)

	;;=16.3^18.4^51.9^439^^^^438^7.88^175^439^526^526^6.67^.88^1.75^13.2^2193^26.3^.67

	;;^UTILITY(U,$J,112,6024,2)

	;;=.74^8.77^4.39^.88^175.4^2.63

	;;^UTILITY(U,$J,112,6024,20)

	;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

	;;^UTILITY(U,$J,112,6025,0)

	;;=FORTA CEREAL, OATMEAL^^servings^45.5

	;;^UTILITY(U,$J,112,6025,1)

	;;=19.3^18.7^48.6^440^5.9^^^440^7.91^176^440^440^440^6.59^.88^1.98^13.2^2198^26.3^.66

	;;^UTILITY(U,$J,112,6025,2)

	;;=.75^8.79^4.4^.88^175.8^2.64

	;;^UTILITY(U,$J,112,6025,20)

	;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516 

	;;^UTILITY(U,$J,112,6026,0)

	;;=FORTA CEREAL, GRANOLA^^servings^45.5

	;;^UTILITY(U,$J,112,6026,1)

	;;=19.3^17.6^50.9^440^4.6^^^440^7.91^176^440^440^440^6.59^.88^1.98^13.2^2198^26.3^.66

	;;^UTILITY(U,$J,112,6026,2)

	;;=.75^8.79^4.4^.88^175.8^2.64

	;;^UTILITY(U,$J,112,6026,20)

	;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

	;;^UTILITY(U,$J,112,6027,0)

	;;=VITAL HN^DS-071^ml.^1

	;;^UTILITY(U,$J,112,6027,1)

	;;=4.2^1.08^18.5^100^86.7^^^67^1.2^26.7^67^133^47^1^.13^.25^3^333^20^.2

	;;^UTILITY(U,$J,112,6027,2)

	;;=.226^2.6^1.33^.266^62.7^.8^.399^.008^2^.48^^.41

	;;^UTILITY(U,$J,112,6027,3)

	;;=.046^.238^.192^.334^.221^.092^.038^.188^.158^.234^.229^.108^.229^.338^.58^.4^.313^.171

	;;^UTILITY(U,$J,112,6027,4)

	;;=.216^.011^.008^.075^^.04^.116^.006^5.49

	;;^UTILITY(U,$J,112,6027,20)

	;;=Ross Lab. Product Lit. Sept 1990.

	;;^UTILITY(U,$J,112,6028,0)

	;;=ENRICH^DS-063^ml.^1

	;;^UTILITY(U,$J,112,6028,1)

	;;=4^3.72^16.2^110^82^^^70.8^1.31^28.7^70.8^166.6^83.3^1.61^.14^.35^3.2^354.16^21.25^.16

	;;^UTILITY(U,$J,112,6028,2)

	;;=.18^2.11^1.06^.21^42.5^.66^2^.045^2^.54^.99^2.04^^^^^1.41

	;;^UTILITY(U,$J,112,6028,3)

	;;=.044^.162^.198^.369^.293^.095^.023^.194^.174^.246^.162^.103^.131^.313^.797^.091^.369^.21

	;;^UTILITY(U,$J,112,6028,4)

	;;=.002^.004^.014^.417^^.084^.932^.021^5

	;;^UTILITY(U,$J,112,6028,20)

	;;=Ross Lab. Product Lit. Sept 1990.

	;;^UTILITY(U,$J,112,6029,0)

	;;=ENSURE^DS-064^ml.^1

	;;^UTILITY(U,$J,112,6029,1)

	;;=3.72^3.72^14.5^106^84.4^^^52^.95^21.1^52^154^83^1.175^.11^.258^2.34^260.4^15.62^.16

	;;^UTILITY(U,$J,112,6029,2)

	;;=.18^2.11^1.04^.21^41.6^.63^2^.045^2^.54^^2.04

	;;^UTILITY(U,$J,112,6029,3)

	;;=.049^.145^.182^.338^.264^.1^.019^.174^.152^.226^.145^.1^.115^.282^.729^.078^.379^.189

	;;^UTILITY(U,$J,112,6029,4)

	;;=.002^.004^.014^.417^^.085^.932^.021^3.75

	;;^UTILITY(U,$J,112,6029,20)

	;;=Ross Lab. Product Lit. Sept 1990.

	;;^UTILITY(U,$J,112,6030,0)

	;;=OSMOLITE^DS-068^ml.^1

	;;^UTILITY(U,$J,112,6030,1)

	;;=3.72^3.85^14.5^106^82.9^^^52.08^.93^21.1^52.08^100^62.5^1.175^.11^.25^2.34^260.4^15.62^.16

	;;^UTILITY(U,$J,112,6030,2)

	;;=.18^2.11^1.04^.21^41.6^.63^1.225^.033^2^1.85^^1.26

	;;^UTILITY(U,$J,112,6030,3)

	;;=.041^.145^.182^.338^.264^.1^.019^.174^.152^.226^.145^.1^.115^.283^.729^.078^.379^.189

FHINI08X  ; ; 11-OCT-1995

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

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

 +2       ;;=Ross Lab. Product Lit. Sept 1990.

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

 +4       ;;=ENSURE HN^DS-065^ml.^1

 +5       ;;^UTILITY(U,$J,112,6020,1)

 +6       ;;=4.2^3.5^14.12^106^83^^^76^1.39^30.4^76^156^93^1.73^.15^.38^3.42^372^22.3^.17

 +7       ;;^UTILITY(U,$J,112,6020,2)

 +8       ;;=.19^2.23^1.11^.23^45^.72^1.908^.043^2^.52^^1.95

 +9       ;;^UTILITY(U,$J,112,6020,3)

 +10      ;;=.048^.177^.217^.399^.324^.119^.022^.217^.217^.27^.169^.115^.142^.337^.986^.093^.435^.244

 +11      ;;^UTILITY(U,$J,112,6020,4)

 +12      ;;=.002^.003^.013^.397^^.081^.89^.02^5.41

 +13      ;;^UTILITY(U,$J,112,6020,20)

 +14      ;;=Ross Lab. Product Lit. Sept 1990.

 +15      ;;^UTILITY(U,$J,112,6021,0)

 +16      ;;=ENSURE PLUS HN^DS-067^ml.^1

 +17      ;;^UTILITY(U,$J,112,6021,1)

 +18      ;;=6.2^5^19.9^150^76^^^106^1.9^42.3^106^182^118^1.61^.21^.21^4.7^520.8^31.25^31.25

 +19      ;;^UTILITY(U,$J,112,6021,2)

 +20      ;;=.36^4.2^2.1^.42^83.3^1.27^2.683^.062^2^.73^^2.74

 +21      ;;^UTILITY(U,$J,112,6021,3)

 +22      ;;=.068^.25^.306^.563^.456^.169^.031^.306^.306^.381^.2^.162^.2^.475^1.389^.131^.613^.344

 +23      ;;^UTILITY(U,$J,112,6021,4)

 +24      ;;=.002^.005^.019^.559^^.113^1.251^.028^7.5

 +25      ;;^UTILITY(U,$J,112,6021,20)

 +26      ;;=Ross Lab. Product Lit. Sept 1990.

 +27      ;;^UTILITY(U,$J,112,6022,0)

 +28      ;;=FORTA PUDDING^^oz.^28.35

 +29      ;;^UTILITY(U,$J,112,6022,1)

 +30      ;;=4.81^6.86^24^177^64^^^141^2.12^47.4^141^212^155^2.12^.23^.47^3.5^589^10.6^.18

 +31      ;;^UTILITY(U,$J,112,6022,2)

 +32      ;;=.2^2.33^1.17^.23^47.4^.71

 +33      ;;^UTILITY(U,$J,112,6022,20)

 +34      ;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

 +35      ;;^UTILITY(U,$J,112,6023,0)

 +36      ;;=FORTA COOKIES, CHOC. CHIP^^cookies^14.25

 +37      ;;^UTILITY(U,$J,112,6023,1)

 +38      ;;=14.7^14^58.9^421^^^^438^7.88^175^439^526^526^6.67^.88^1.75^13.2^2193^26.3^.67

 +39      ;;^UTILITY(U,$J,112,6023,2)

 +40      ;;=.74^8.77^4.39^.88^175.4^2.63

 +41      ;;^UTILITY(U,$J,112,6023,20)

 +42      ;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

 +43      ;;^UTILITY(U,$J,112,6024,0)

 +44      ;;=FORTA COOKIES, SUGAR^^cookies^14.25

 +45      ;;^UTILITY(U,$J,112,6024,1)

 +46      ;;=16.3^18.4^51.9^439^^^^438^7.88^175^439^526^526^6.67^.88^1.75^13.2^2193^26.3^.67

 +47      ;;^UTILITY(U,$J,112,6024,2)

 +48      ;;=.74^8.77^4.39^.88^175.4^2.63

 +49      ;;^UTILITY(U,$J,112,6024,20)

 +50      ;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

 +51      ;;^UTILITY(U,$J,112,6025,0)

 +52      ;;=FORTA CEREAL, OATMEAL^^servings^45.5

 +53      ;;^UTILITY(U,$J,112,6025,1)

 +54      ;;=19.3^18.7^48.6^440^5.9^^^440^7.91^176^440^440^440^6.59^.88^1.98^13.2^2198^26.3^.66

 +55      ;;^UTILITY(U,$J,112,6025,2)

 +56      ;;=.75^8.79^4.4^.88^175.8^2.64

 +57      ;;^UTILITY(U,$J,112,6025,20)

 +58      ;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516 

 +59      ;;^UTILITY(U,$J,112,6026,0)

 +60      ;;=FORTA CEREAL, GRANOLA^^servings^45.5

 +61      ;;^UTILITY(U,$J,112,6026,1)

 +62      ;;=19.3^17.6^50.9^440^4.6^^^440^7.91^176^440^440^440^6.59^.88^1.98^13.2^2198^26.3^.66

 +63      ;;^UTILITY(U,$J,112,6026,2)

 +64      ;;=.75^8.79^4.4^.88^175.8^2.64

 +65      ;;^UTILITY(U,$J,112,6026,20)

 +66      ;;=Ross Lab. Product Lit. Aug 82. DOE:073184, #516

 +67      ;;^UTILITY(U,$J,112,6027,0)

 +68      ;;=VITAL HN^DS-071^ml.^1

 +69      ;;^UTILITY(U,$J,112,6027,1)

 +70      ;;=4.2^1.08^18.5^100^86.7^^^67^1.2^26.7^67^133^47^1^.13^.25^3^333^20^.2

 +71      ;;^UTILITY(U,$J,112,6027,2)

 +72      ;;=.226^2.6^1.33^.266^62.7^.8^.399^.008^2^.48^^.41

 +73      ;;^UTILITY(U,$J,112,6027,3)

 +74      ;;=.046^.238^.192^.334^.221^.092^.038^.188^.158^.234^.229^.108^.229^.338^.58^.4^.313^.171

 +75      ;;^UTILITY(U,$J,112,6027,4)

 +76      ;;=.216^.011^.008^.075^^.04^.116^.006^5.49

 +77      ;;^UTILITY(U,$J,112,6027,20)

 +78      ;;=Ross Lab. Product Lit. Sept 1990.

 +79      ;;^UTILITY(U,$J,112,6028,0)

 +80      ;;=ENRICH^DS-063^ml.^1

 +81      ;;^UTILITY(U,$J,112,6028,1)

 +82      ;;=4^3.72^16.2^110^82^^^70.8^1.31^28.7^70.8^166.6^83.3^1.61^.14^.35^3.2^354.16^21.25^.16

 +83      ;;^UTILITY(U,$J,112,6028,2)

 +84      ;;=.18^2.11^1.06^.21^42.5^.66^2^.045^2^.54^.99^2.04^^^^^1.41

 +85      ;;^UTILITY(U,$J,112,6028,3)

 +86      ;;=.044^.162^.198^.369^.293^.095^.023^.194^.174^.246^.162^.103^.131^.313^.797^.091^.369^.21

 +87      ;;^UTILITY(U,$J,112,6028,4)

 +88      ;;=.002^.004^.014^.417^^.084^.932^.021^5

 +89      ;;^UTILITY(U,$J,112,6028,20)

 +90      ;;=Ross Lab. Product Lit. Sept 1990.

 +91      ;;^UTILITY(U,$J,112,6029,0)

 +92      ;;=ENSURE^DS-064^ml.^1

 +93      ;;^UTILITY(U,$J,112,6029,1)

 +94      ;;=3.72^3.72^14.5^106^84.4^^^52^.95^21.1^52^154^83^1.175^.11^.258^2.34^260.4^15.62^.16

 +95      ;;^UTILITY(U,$J,112,6029,2)

 +96      ;;=.18^2.11^1.04^.21^41.6^.63^2^.045^2^.54^^2.04

 +97      ;;^UTILITY(U,$J,112,6029,3)

 +98      ;;=.049^.145^.182^.338^.264^.1^.019^.174^.152^.226^.145^.1^.115^.282^.729^.078^.379^.189

 +99      ;;^UTILITY(U,$J,112,6029,4)

 +100     ;;=.002^.004^.014^.417^^.085^.932^.021^3.75

 +101     ;;^UTILITY(U,$J,112,6029,20)

 +102     ;;=Ross Lab. Product Lit. Sept 1990.

 +103     ;;^UTILITY(U,$J,112,6030,0)

 +104     ;;=OSMOLITE^DS-068^ml.^1

 +105     ;;^UTILITY(U,$J,112,6030,1)

 +106     ;;=3.72^3.85^14.5^106^82.9^^^52.08^.93^21.1^52.08^100^62.5^1.175^.11^.25^2.34^260.4^15.62^.16

 +107     ;;^UTILITY(U,$J,112,6030,2)

 +108     ;;=.18^2.11^1.04^.21^41.6^.63^1.225^.033^2^1.85^^1.26

 +109     ;;^UTILITY(U,$J,112,6030,3)

 +110     ;;=.041^.145^.182^.338^.264^.1^.019^.174^.152^.226^.145^.1^.115^.283^.729^.078^.379^.189