FHINI00N ; ; 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,74,3)
;;=.046^.149^.199^.322^.261^.083^.03^.159^.159^.22^.119^.089^.113^.25^.689^.07^.319^.179
;;^UTILITY(U,$J,112,74,4)
;;=.084^.094^.336^.879^.075^.405^.84^0^.3^2
;;^UTILITY(U,$J,112,74,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,75,0)
;;=MILK, WHOLE, PAST & RAW, FLUID, 3.7% FAT^1-078^cups^244^100^N
;;^UTILITY(U,$J,112,75,1)
;;=3.28^3.66^4.65^64.172^87.69^^^119^.05^13.4^93.1^151^48.8^.38^.01^.004^^138^1.47^.038
;;^UTILITY(U,$J,112,75,2)
;;=.161^.084^.313^.042^5^.356^.083^.053^14.3^2.278^1.057^.136^34^.72^^^0
;;^UTILITY(U,$J,112,75,3)
;;=.046^.148^.198^.321^.26^.082^.03^.158^.158^.22^.119^.089^.113^.249^.687^.069^.318^.178
;;^UTILITY(U,$J,112,75,4)
;;=.092^.103^.368^.963^.082^.444^.921^0
;;^UTILITY(U,$J,112,75,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,76,0)
;;=MILK, LOWFAT, PAST & RAW, FLUID, 2% FAT^1-079^cups^244^100^N
;;^UTILITY(U,$J,112,76,1)
;;=3.33^1.92^4.8^49.672^89.21^^^121.6^.05^13.67^95.1^154.4^49.9^.39^.008^.002^^205^.95^.039
;;^UTILITY(U,$J,112,76,2)
;;=.165^.086^.32^.043^5.1^.364^.043^.028^7.5^1.195^.555^.071^57^.74^^^0
;;^UTILITY(U,$J,112,76,3)
;;=.047^.15^.201^.326^.264^.084^.031^.161^.161^.223^.121^.09^.115^.253^.697^.07^.323^.181
;;^UTILITY(U,$J,112,76,4)
;;=.048^.054^.193^.505^.043^.233^.483^0^^2.2
;;^UTILITY(U,$J,112,76,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,77,0)
;;=MILK, LOWFAT, PAST & RAW, FLUID, 2% FAT, PROTEIN FORTIFIED^1-080^cups^245^100^N
;;^UTILITY(U,$J,112,77,1)
;;=3.48^1.92^4.97^50.97^88.86^^^127.7^.05^14.35^99.9^162.1^52.4^.4^.008^.002^^204^1^.04
;;^UTILITY(U,$J,112,77,2)
;;=.173^.09^.336^.045^5.3^.382^.043^.028^7.5^1.195^.555^.071^57^.77^^^0
;;^UTILITY(U,$J,112,77,3)
;;=.049^.157^.211^.341^.276^.087^.032^.168^.168^.233^.126^.094^.12^.264^.729^.074^.337^.189
;;^UTILITY(U,$J,112,77,4)
;;=.048^.054^.193^.505^.043^.233^.483^0
;;^UTILITY(U,$J,112,77,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,78,0)
;;=MILK, LOWFAT, PAST & RAW, W/2% ADDED NFMS, W/VIT A^1-081^cups^246^100^N
;;^UTILITY(U,$J,112,78,1)
;;=3.95^1.98^5.49^55.517^87.71^^^143.1^.06^16.08^112^181.7^58.8^.45^.008^.002^^203^1.12^.045
;;^UTILITY(U,$J,112,78,2)
;;=.194^.101^.376^.051^6^.428^.045^.029^7.7^1.232^.572^.074^57^.87^^^0
;;^UTILITY(U,$J,112,78,3)
;;=.056^.178^.239^.387^.313^.099^.037^.191^.191^.264^.143^.107^.136^.3^.827^.084^.383^.215
;;^UTILITY(U,$J,112,78,4)
;;=.05^.056^.199^.521^.044^.24^.498^0
;;^UTILITY(U,$J,112,78,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,79,0)
;;=MILK, LOWFAT, PAST & RAW, FLUID, 1% FAT^1-082^cups^244^100^N
;;^UTILITY(U,$J,112,79,1)
;;=3.29^1.06^4.78^41.864^90.08^^^123^.05^13.82^96.2^156.1^50.5^.39^.01^.002^^205^.97^.039
;;^UTILITY(U,$J,112,79,2)
;;=.167^.087^.323^.043^5.1^.368^.024^.015^4^.66^.306^.039^59^.74^^^0
;;^UTILITY(U,$J,112,79,3)
;;=.046^.149^.199^.322^.261^.083^.03^.159^.159^.22^.119^.089^.113^.25^.689^.07^.319^.179
;;^UTILITY(U,$J,112,79,4)
;;=.027^.03^.107^.279^.024^.128^.267^0
;;^UTILITY(U,$J,112,79,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,80,0)
;;=MILK, LOWFAT, PAST & RAW, FLUID, 1% FAT, W/NFMS^1-083^cups^245^100^N
;;^UTILITY(U,$J,112,80,1)
;;=3.48^.97^4.97^42.62^89.81^^^127.7^.05^14.35^99.9^162.1^52.4^.4^.01^.002^^204^1^.04
;;^UTILITY(U,$J,112,80,2)
;;=.173^.09^.336^.045^5.3^.382^.022^.014^4^.604^.28^.036^59^.77^^^0
;;^UTILITY(U,$J,112,80,3)
;;=.049^.157^.211^.341^.276^.087^.032^.168^.168^.233^.126^.094^.12^.264^.729^.074^.337^.189
;;^UTILITY(U,$J,112,80,4)
;;=.024^.027^.098^.255^.022^.118^.244^0
;;^UTILITY(U,$J,112,80,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,81,0)
;;=MILK, LOWFAT, PAST & RAW, FLUID, 1% FAT, PROTEIN FORTIFIED^1-084^cups^246^100^N
;;^UTILITY(U,$J,112,81,1)
;;=3.93^1.17^5.52^48.428^88.74^^^142^.06^15.96^111.1^180.3^58.3^.45^.01^.002^^203^1.15^.045
;;^UTILITY(U,$J,112,81,2)
;;=.192^.1^.373^.05^5.9^.425^.026^.017^4^.728^.338^.043^59^.86^^^0
;;^UTILITY(U,$J,112,81,3)
;;=.055^.177^.238^.385^.312^.099^.036^.19^.19^.263^.142^.107^.136^.298^.823^.083^.381^.214
;;^UTILITY(U,$J,112,81,4)
;;=.029^.033^.118^.308^.026^.142^.294^0
;;^UTILITY(U,$J,112,81,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,82,0)
;;=MILK, SKIM, PAST & RAW, FLUID, W/ADDED VIT A^1-085^cups^245^100^N
;;^UTILITY(U,$J,112,82,1)
;;=3.41^.18^4.85^34.912^90.8^^^123.4^.04^11.36^100.9^165.6^51.5^.4^.011^.002^^204^.98^.036
;;^UTILITY(U,$J,112,82,2)
;;=.14^.088^.329^.04^5.2^.378^.005^.002^1.8^.117^.047^.007^61^.76^^^0
FHINI00N ; ; 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,74,3)
+2 ;;=.046^.149^.199^.322^.261^.083^.03^.159^.159^.22^.119^.089^.113^.25^.689^.07^.319^.179
+3 ;;^UTILITY(U,$J,112,74,4)
+4 ;;=.084^.094^.336^.879^.075^.405^.84^0^.3^2
+5 ;;^UTILITY(U,$J,112,74,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,75,0)
+8 ;;=MILK, WHOLE, PAST & RAW, FLUID, 3.7% FAT^1-078^cups^244^100^N
+9 ;;^UTILITY(U,$J,112,75,1)
+10 ;;=3.28^3.66^4.65^64.172^87.69^^^119^.05^13.4^93.1^151^48.8^.38^.01^.004^^138^1.47^.038
+11 ;;^UTILITY(U,$J,112,75,2)
+12 ;;=.161^.084^.313^.042^5^.356^.083^.053^14.3^2.278^1.057^.136^34^.72^^^0
+13 ;;^UTILITY(U,$J,112,75,3)
+14 ;;=.046^.148^.198^.321^.26^.082^.03^.158^.158^.22^.119^.089^.113^.249^.687^.069^.318^.178
+15 ;;^UTILITY(U,$J,112,75,4)
+16 ;;=.092^.103^.368^.963^.082^.444^.921^0
+17 ;;^UTILITY(U,$J,112,75,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,76,0)
+20 ;;=MILK, LOWFAT, PAST & RAW, FLUID, 2% FAT^1-079^cups^244^100^N
+21 ;;^UTILITY(U,$J,112,76,1)
+22 ;;=3.33^1.92^4.8^49.672^89.21^^^121.6^.05^13.67^95.1^154.4^49.9^.39^.008^.002^^205^.95^.039
+23 ;;^UTILITY(U,$J,112,76,2)
+24 ;;=.165^.086^.32^.043^5.1^.364^.043^.028^7.5^1.195^.555^.071^57^.74^^^0
+25 ;;^UTILITY(U,$J,112,76,3)
+26 ;;=.047^.15^.201^.326^.264^.084^.031^.161^.161^.223^.121^.09^.115^.253^.697^.07^.323^.181
+27 ;;^UTILITY(U,$J,112,76,4)
+28 ;;=.048^.054^.193^.505^.043^.233^.483^0^^2.2
+29 ;;^UTILITY(U,$J,112,76,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,77,0)
+32 ;;=MILK, LOWFAT, PAST & RAW, FLUID, 2% FAT, PROTEIN FORTIFIED^1-080^cups^245^100^N
+33 ;;^UTILITY(U,$J,112,77,1)
+34 ;;=3.48^1.92^4.97^50.97^88.86^^^127.7^.05^14.35^99.9^162.1^52.4^.4^.008^.002^^204^1^.04
+35 ;;^UTILITY(U,$J,112,77,2)
+36 ;;=.173^.09^.336^.045^5.3^.382^.043^.028^7.5^1.195^.555^.071^57^.77^^^0
+37 ;;^UTILITY(U,$J,112,77,3)
+38 ;;=.049^.157^.211^.341^.276^.087^.032^.168^.168^.233^.126^.094^.12^.264^.729^.074^.337^.189
+39 ;;^UTILITY(U,$J,112,77,4)
+40 ;;=.048^.054^.193^.505^.043^.233^.483^0
+41 ;;^UTILITY(U,$J,112,77,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,78,0)
+44 ;;=MILK, LOWFAT, PAST & RAW, W/2% ADDED NFMS, W/VIT A^1-081^cups^246^100^N
+45 ;;^UTILITY(U,$J,112,78,1)
+46 ;;=3.95^1.98^5.49^55.517^87.71^^^143.1^.06^16.08^112^181.7^58.8^.45^.008^.002^^203^1.12^.045
+47 ;;^UTILITY(U,$J,112,78,2)
+48 ;;=.194^.101^.376^.051^6^.428^.045^.029^7.7^1.232^.572^.074^57^.87^^^0
+49 ;;^UTILITY(U,$J,112,78,3)
+50 ;;=.056^.178^.239^.387^.313^.099^.037^.191^.191^.264^.143^.107^.136^.3^.827^.084^.383^.215
+51 ;;^UTILITY(U,$J,112,78,4)
+52 ;;=.05^.056^.199^.521^.044^.24^.498^0
+53 ;;^UTILITY(U,$J,112,78,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,79,0)
+56 ;;=MILK, LOWFAT, PAST & RAW, FLUID, 1% FAT^1-082^cups^244^100^N
+57 ;;^UTILITY(U,$J,112,79,1)
+58 ;;=3.29^1.06^4.78^41.864^90.08^^^123^.05^13.82^96.2^156.1^50.5^.39^.01^.002^^205^.97^.039
+59 ;;^UTILITY(U,$J,112,79,2)
+60 ;;=.167^.087^.323^.043^5.1^.368^.024^.015^4^.66^.306^.039^59^.74^^^0
+61 ;;^UTILITY(U,$J,112,79,3)
+62 ;;=.046^.149^.199^.322^.261^.083^.03^.159^.159^.22^.119^.089^.113^.25^.689^.07^.319^.179
+63 ;;^UTILITY(U,$J,112,79,4)
+64 ;;=.027^.03^.107^.279^.024^.128^.267^0
+65 ;;^UTILITY(U,$J,112,79,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,80,0)
+68 ;;=MILK, LOWFAT, PAST & RAW, FLUID, 1% FAT, W/NFMS^1-083^cups^245^100^N
+69 ;;^UTILITY(U,$J,112,80,1)
+70 ;;=3.48^.97^4.97^42.62^89.81^^^127.7^.05^14.35^99.9^162.1^52.4^.4^.01^.002^^204^1^.04
+71 ;;^UTILITY(U,$J,112,80,2)
+72 ;;=.173^.09^.336^.045^5.3^.382^.022^.014^4^.604^.28^.036^59^.77^^^0
+73 ;;^UTILITY(U,$J,112,80,3)
+74 ;;=.049^.157^.211^.341^.276^.087^.032^.168^.168^.233^.126^.094^.12^.264^.729^.074^.337^.189
+75 ;;^UTILITY(U,$J,112,80,4)
+76 ;;=.024^.027^.098^.255^.022^.118^.244^0
+77 ;;^UTILITY(U,$J,112,80,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,81,0)
+80 ;;=MILK, LOWFAT, PAST & RAW, FLUID, 1% FAT, PROTEIN FORTIFIED^1-084^cups^246^100^N
+81 ;;^UTILITY(U,$J,112,81,1)
+82 ;;=3.93^1.17^5.52^48.428^88.74^^^142^.06^15.96^111.1^180.3^58.3^.45^.01^.002^^203^1.15^.045
+83 ;;^UTILITY(U,$J,112,81,2)
+84 ;;=.192^.1^.373^.05^5.9^.425^.026^.017^4^.728^.338^.043^59^.86^^^0
+85 ;;^UTILITY(U,$J,112,81,3)
+86 ;;=.055^.177^.238^.385^.312^.099^.036^.19^.19^.263^.142^.107^.136^.298^.823^.083^.381^.214
+87 ;;^UTILITY(U,$J,112,81,4)
+88 ;;=.029^.033^.118^.308^.026^.142^.294^0
+89 ;;^UTILITY(U,$J,112,81,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,82,0)
+92 ;;=MILK, SKIM, PAST & RAW, FLUID, W/ADDED VIT A^1-085^cups^245^100^N
+93 ;;^UTILITY(U,$J,112,82,1)
+94 ;;=3.41^.18^4.85^34.912^90.8^^^123.4^.04^11.36^100.9^165.6^51.5^.4^.011^.002^^204^.98^.036
+95 ;;^UTILITY(U,$J,112,82,2)
+96 ;;=.14^.088^.329^.04^5.2^.378^.005^.002^1.8^.117^.047^.007^61^.76^^^0
