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
