FHINI08N ; ; 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,2991,4)
;;=^^.01^.29^.06^.07^.68
;;^UTILITY(U,$J,112,2991,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2992,0)
;;=SOUP, CHICKEN, CANNED, CHUNKY, READY-TO-SERVE, COMMER^6-015^cups^251^100^N
;;^UTILITY(U,$J,112,2992,1)
;;=5.06^2.64^6.88^71^84.12^^^10^.69^3^45^70^354^.4^.1^.1^^518^.5^.034
;;^UTILITY(U,$J,112,2992,2)
;;=.069^1.76^.16^.02^1.8^.1^.52^.03^12^.79^1.18^.55^52^1.31^^^.6
;;^UTILITY(U,$J,112,2992,3)
;;=.049^.174^.22^.368^.34^.097^.065^.201^.13^.25^.263^.124^.311^.433^1.372^.372^.333^.171
;;^UTILITY(U,$J,112,2992,4)
;;=^0^.02^.57^.15^.16^.99^0
;;^UTILITY(U,$J,112,2992,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2993,0)
;;=SOUP, CHILI BEEF, CND, CONDENSED^6-026^cups^263^100^N
;;^UTILITY(U,$J,112,2993,1)
;;=5.09^5.03^16.33^129^70.86^^^33^1.62^23^113^400^788^1.064^.3^.8^^1149^3.1^.045
;;^UTILITY(U,$J,112,2993,2)
;;=.058^.813^.5^.12^14^.24^.16^.03^10^2.51^2.1^.2^115^2.69
;;^UTILITY(U,$J,112,2993,3)
;;=.054^.21^.249^.42^.347^.064^.056^.284^.152^.28^.267^.133^.254^.57^.939^.246^.23^.252
;;^UTILITY(U,$J,112,2993,4)
;;=^.05^.19^1.25^.21^.95^1.81
;;^UTILITY(U,$J,112,2993,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2994,0)
;;=SOUP, CLAM CHOWDER, NEW ENGLAND, W/MILK, CND, CONDENSED^6-030^cups^251^100^N
;;^UTILITY(U,$J,112,2994,1)
;;=4.33^2^8.69^70^82.53^^^33^1.13^6^34^91^743^.6^.1^.2^^8^1.9^.016
;;^UTILITY(U,$J,112,2994,2)
;;=.03^.74^.26^.06^2.9^7.82^.7^.05^4^.3^.86^.75^1^2.45^^^.6
;;^UTILITY(U,$J,112,2994,3)
;;=.048^.134^.165^.258^.227^.082^.051^.144^.114^.175^.207^.124^.227^.402^1.258^.207^.165^.124
;;^UTILITY(U,$J,112,2994,4)
;;=^^0^.2^.01^.1^.85^^^8.4
;;^UTILITY(U,$J,112,2994,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2995,0)
;;=SOUP, CLAM CHOWDER, MANHATTAN, W/TOMATO WO/MILK, COND^6-028^cups^251^100^N
;;^UTILITY(U,$J,112,2995,1)
;;=1.74^1.76^9.74^61^84.3^^^19^1.3^8^33^150^457^.74^.1^.3^^767^3.2^.024
;;^UTILITY(U,$J,112,2995,2)
;;=.032^.65^.15^.08^8^3.23^.956^.071^2^.305^.305^1.027^77^2.46^^^1.2
;;^UTILITY(U,$J,112,2995,4)
;;=^^.01^.244^.01^.051^.295
;;^UTILITY(U,$J,112,2995,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2996,0)
;;=SOUP, CREAM OF ASPARAGUS, CND, CONDENSED^6-001^cups^251^100^N
;;^UTILITY(U,$J,112,2996,1)
;;=1.82^3.26^8.52^69^84.05^^^23^.64^3^31^138^782^.7^.1^.3^^355^2.2^.043
;;^UTILITY(U,$J,112,2996,2)
;;=.062^.62^.11^.01^19^.04^1.42^.04^4^.82^.75^1.46^36^2.35^^^.4
;;^UTILITY(U,$J,112,2996,3)
;;=.023^.062^.077^.13^.089^.033^.024^.076^.06^.091^.068^.039^.074^.137^.466^.054^.164^.084
;;^UTILITY(U,$J,112,2996,4)
;;=.04^.03^.12^.34^.04^.17^.69
;;^UTILITY(U,$J,112,2996,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2997,0)
;;=SOUP, CREAM OF CELERY, CND, CONDENSED^6-010^cups^251^100^N
;;^UTILITY(U,$J,112,2997,1)
;;=1.32^4.46^7.03^72^84.96^^^32^.5^5^30^98^757^.12^.113^.2^^244^.2^.023
;;^UTILITY(U,$J,112,2997,2)
;;=.039^.265^.92^.01^1.9^.04^1.94^.06^11^1.12^1.03^2^24^2.23^^^.6
;;^UTILITY(U,$J,112,2997,3)
;;=.015^.047^.062^.099^.059^.024^.015^.062^.043^.071^.047^.031^.048^.092^.306^.041^.11^.06
;;^UTILITY(U,$J,112,2997,4)
;;=.05^.04^.16^.46^.05^.23^.95
;;^UTILITY(U,$J,112,2997,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2998,0)
;;=SOUP, CREAM OF CHICKEN, CND, CONDENSED^6-016^cups^251^100^N
;;^UTILITY(U,$J,112,2998,1)
;;=2.73^5.86^7.38^93^81.75^^^27^.48^2^30^70^786^.5^.1^.3^^446^.1^.023
;;^UTILITY(U,$J,112,2998,2)
;;=.048^.653^.17^.013^1.3^.07^1.12^.05^8^1.66^2.61^1.19^45^2.27^^^.2
;;^UTILITY(U,$J,112,2998,3)
;;=.034^.104^.136^.21^.171^.064^.04^.122^.094^.138^.133^.073^.118^.193^.621^.108^.205^.12
;;^UTILITY(U,$J,112,2998,4)
;;=.02^.02^.11^1.04^.23^.33^2.35
;;^UTILITY(U,$J,112,2998,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2999,0)
;;=SOUP, CREAM OF MUSHROOM, CND, CONDENSED^6-043^cups^251^100^N
;;^UTILITY(U,$J,112,2999,1)
;;=1.61^7.57^7.4^103^81.22^^^26^.42^4^34^67^810^.473^.1^.2^^0^.9^.024
;;^UTILITY(U,$J,112,2999,2)
;;=.066^.645^.2^.01^3^.1^3.52^.03^1^2.05^1.44^3.55^0^2.2^^^.3
;;^UTILITY(U,$J,112,2999,3)
;;=.023^.062^.077^.126^.087^.031^.02^.074^.06^.086^.067^.037^.064^.113^.368^.052^.136^.081
;;^UTILITY(U,$J,112,2999,4)
;;=.04^.02^.14^1.47^.06^.28^1.36^^^1.2
;;^UTILITY(U,$J,112,2999,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3000,0)
;;=SOUP, CREAM OF ONION, CND, CONDENSED^6-046^cups^251^100^N
;;^UTILITY(U,$J,112,3000,1)
;;=2.2^4.2^10.4^88^81^^^27^.5^5^30^98^760^.12^.11^.2^^236^1^.04
;;^UTILITY(U,$J,112,3000,2)
;;=.06^.4^.24^.02^5.7^.04^1.07^.08^12^1.17^1.67^1.16^24^2.2^^^.4
FHINI08N ; ; 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,2991,4)
+2 ;;=^^.01^.29^.06^.07^.68
+3 ;;^UTILITY(U,$J,112,2991,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2992,0)
+6 ;;=SOUP, CHICKEN, CANNED, CHUNKY, READY-TO-SERVE, COMMER^6-015^cups^251^100^N
+7 ;;^UTILITY(U,$J,112,2992,1)
+8 ;;=5.06^2.64^6.88^71^84.12^^^10^.69^3^45^70^354^.4^.1^.1^^518^.5^.034
+9 ;;^UTILITY(U,$J,112,2992,2)
+10 ;;=.069^1.76^.16^.02^1.8^.1^.52^.03^12^.79^1.18^.55^52^1.31^^^.6
+11 ;;^UTILITY(U,$J,112,2992,3)
+12 ;;=.049^.174^.22^.368^.34^.097^.065^.201^.13^.25^.263^.124^.311^.433^1.372^.372^.333^.171
+13 ;;^UTILITY(U,$J,112,2992,4)
+14 ;;=^0^.02^.57^.15^.16^.99^0
+15 ;;^UTILITY(U,$J,112,2992,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2993,0)
+18 ;;=SOUP, CHILI BEEF, CND, CONDENSED^6-026^cups^263^100^N
+19 ;;^UTILITY(U,$J,112,2993,1)
+20 ;;=5.09^5.03^16.33^129^70.86^^^33^1.62^23^113^400^788^1.064^.3^.8^^1149^3.1^.045
+21 ;;^UTILITY(U,$J,112,2993,2)
+22 ;;=.058^.813^.5^.12^14^.24^.16^.03^10^2.51^2.1^.2^115^2.69
+23 ;;^UTILITY(U,$J,112,2993,3)
+24 ;;=.054^.21^.249^.42^.347^.064^.056^.284^.152^.28^.267^.133^.254^.57^.939^.246^.23^.252
+25 ;;^UTILITY(U,$J,112,2993,4)
+26 ;;=^.05^.19^1.25^.21^.95^1.81
+27 ;;^UTILITY(U,$J,112,2993,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2994,0)
+30 ;;=SOUP, CLAM CHOWDER, NEW ENGLAND, W/MILK, CND, CONDENSED^6-030^cups^251^100^N
+31 ;;^UTILITY(U,$J,112,2994,1)
+32 ;;=4.33^2^8.69^70^82.53^^^33^1.13^6^34^91^743^.6^.1^.2^^8^1.9^.016
+33 ;;^UTILITY(U,$J,112,2994,2)
+34 ;;=.03^.74^.26^.06^2.9^7.82^.7^.05^4^.3^.86^.75^1^2.45^^^.6
+35 ;;^UTILITY(U,$J,112,2994,3)
+36 ;;=.048^.134^.165^.258^.227^.082^.051^.144^.114^.175^.207^.124^.227^.402^1.258^.207^.165^.124
+37 ;;^UTILITY(U,$J,112,2994,4)
+38 ;;=^^0^.2^.01^.1^.85^^^8.4
+39 ;;^UTILITY(U,$J,112,2994,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2995,0)
+42 ;;=SOUP, CLAM CHOWDER, MANHATTAN, W/TOMATO WO/MILK, COND^6-028^cups^251^100^N
+43 ;;^UTILITY(U,$J,112,2995,1)
+44 ;;=1.74^1.76^9.74^61^84.3^^^19^1.3^8^33^150^457^.74^.1^.3^^767^3.2^.024
+45 ;;^UTILITY(U,$J,112,2995,2)
+46 ;;=.032^.65^.15^.08^8^3.23^.956^.071^2^.305^.305^1.027^77^2.46^^^1.2
+47 ;;^UTILITY(U,$J,112,2995,4)
+48 ;;=^^.01^.244^.01^.051^.295
+49 ;;^UTILITY(U,$J,112,2995,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,2996,0)
+52 ;;=SOUP, CREAM OF ASPARAGUS, CND, CONDENSED^6-001^cups^251^100^N
+53 ;;^UTILITY(U,$J,112,2996,1)
+54 ;;=1.82^3.26^8.52^69^84.05^^^23^.64^3^31^138^782^.7^.1^.3^^355^2.2^.043
+55 ;;^UTILITY(U,$J,112,2996,2)
+56 ;;=.062^.62^.11^.01^19^.04^1.42^.04^4^.82^.75^1.46^36^2.35^^^.4
+57 ;;^UTILITY(U,$J,112,2996,3)
+58 ;;=.023^.062^.077^.13^.089^.033^.024^.076^.06^.091^.068^.039^.074^.137^.466^.054^.164^.084
+59 ;;^UTILITY(U,$J,112,2996,4)
+60 ;;=.04^.03^.12^.34^.04^.17^.69
+61 ;;^UTILITY(U,$J,112,2996,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,2997,0)
+64 ;;=SOUP, CREAM OF CELERY, CND, CONDENSED^6-010^cups^251^100^N
+65 ;;^UTILITY(U,$J,112,2997,1)
+66 ;;=1.32^4.46^7.03^72^84.96^^^32^.5^5^30^98^757^.12^.113^.2^^244^.2^.023
+67 ;;^UTILITY(U,$J,112,2997,2)
+68 ;;=.039^.265^.92^.01^1.9^.04^1.94^.06^11^1.12^1.03^2^24^2.23^^^.6
+69 ;;^UTILITY(U,$J,112,2997,3)
+70 ;;=.015^.047^.062^.099^.059^.024^.015^.062^.043^.071^.047^.031^.048^.092^.306^.041^.11^.06
+71 ;;^UTILITY(U,$J,112,2997,4)
+72 ;;=.05^.04^.16^.46^.05^.23^.95
+73 ;;^UTILITY(U,$J,112,2997,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,2998,0)
+76 ;;=SOUP, CREAM OF CHICKEN, CND, CONDENSED^6-016^cups^251^100^N
+77 ;;^UTILITY(U,$J,112,2998,1)
+78 ;;=2.73^5.86^7.38^93^81.75^^^27^.48^2^30^70^786^.5^.1^.3^^446^.1^.023
+79 ;;^UTILITY(U,$J,112,2998,2)
+80 ;;=.048^.653^.17^.013^1.3^.07^1.12^.05^8^1.66^2.61^1.19^45^2.27^^^.2
+81 ;;^UTILITY(U,$J,112,2998,3)
+82 ;;=.034^.104^.136^.21^.171^.064^.04^.122^.094^.138^.133^.073^.118^.193^.621^.108^.205^.12
+83 ;;^UTILITY(U,$J,112,2998,4)
+84 ;;=.02^.02^.11^1.04^.23^.33^2.35
+85 ;;^UTILITY(U,$J,112,2998,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2999,0)
+88 ;;=SOUP, CREAM OF MUSHROOM, CND, CONDENSED^6-043^cups^251^100^N
+89 ;;^UTILITY(U,$J,112,2999,1)
+90 ;;=1.61^7.57^7.4^103^81.22^^^26^.42^4^34^67^810^.473^.1^.2^^0^.9^.024
+91 ;;^UTILITY(U,$J,112,2999,2)
+92 ;;=.066^.645^.2^.01^3^.1^3.52^.03^1^2.05^1.44^3.55^0^2.2^^^.3
+93 ;;^UTILITY(U,$J,112,2999,3)
+94 ;;=.023^.062^.077^.126^.087^.031^.02^.074^.06^.086^.067^.037^.064^.113^.368^.052^.136^.081
+95 ;;^UTILITY(U,$J,112,2999,4)
+96 ;;=.04^.02^.14^1.47^.06^.28^1.36^^^1.2
+97 ;;^UTILITY(U,$J,112,2999,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,3000,0)
+100 ;;=SOUP, CREAM OF ONION, CND, CONDENSED^6-046^cups^251^100^N
+101 ;;^UTILITY(U,$J,112,3000,1)
+102 ;;=2.2^4.2^10.4^88^81^^^27^.5^5^30^98^760^.12^.11^.2^^236^1^.04
+103 ;;^UTILITY(U,$J,112,3000,2)
+104 ;;=.06^.4^.24^.02^5.7^.04^1.07^.08^12^1.17^1.67^1.16^24^2.2^^^.4
