FHINI04A ; ; 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,1414,4)
;;=^^^.035^^.004^.019
;;^UTILITY(U,$J,112,1414,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1416,0)
;;=PEAS, GREEN, CND^11-308^cups^170^100^N
;;^UTILITY(U,$J,112,1416,1)
;;=4.42^.35^12.58^69^81.7^^^20^.95^17^67^173^219^.71^.082^.303^^768^9.6^.121
;;^UTILITY(U,$J,112,1416,2)
;;=.078^.732^.128^.064^44.3^0^.132^.031^0^.062^.031^.163^77^.97^^^3.8
;;^UTILITY(U,$J,112,1416,3)
;;=.03^.165^.159^.264^.259^.067^.026^.163^.093^.192^.349^.087^.196^.404^.604^.15^.141^.148
;;^UTILITY(U,$J,112,1416,4)
;;=^^^.056^^.006^.031^^^1.7
;;^UTILITY(U,$J,112,1416,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1418,0)
;;=PEAS, GREEN, CND, DIET PK, LO NA^11-813^cups^170^100^N
;;^UTILITY(U,$J,112,1418,1)
;;=4.42^.35^12.58^69^81.7^^^20^.95^17^67^173^2^.71^.082^.303^^768^9.6^.121
;;^UTILITY(U,$J,112,1418,2)
;;=.078^.732^.128^.064^44.3^0^.132^.031^0^.062^.031^.163^77^.97
;;^UTILITY(U,$J,112,1418,3)
;;=.03^.165^.159^.264^.259^.067^.026^.163^.093^.192^.349^.087^.196^.404^.604^.15^.141^.148
;;^UTILITY(U,$J,112,1418,4)
;;=^^^.056^^.006^.031
;;^UTILITY(U,$J,112,1418,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1424,0)
;;=PEAS, GREEN, FRZ, CKD W/SALT^11-814^cups^160^100^N
;;^UTILITY(U,$J,112,1424,1)
;;=5.15^.27^14.26^78^79.52^^^24^1.57^29^90^168^323^.94^.139^.414^^668^9.9^.283
;;^UTILITY(U,$J,112,1424,2)
;;=.1^1.48^.142^.113^58.6^0^.105^.024^0^.049^.024^.129^67^.8
;;^UTILITY(U,$J,112,1424,3)
;;=.035^.193^.185^.307^.302^.078^.03^.19^.108^.223^.407^.101^.228^.471^.705^.175^.165^.172
;;^UTILITY(U,$J,112,1424,4)
;;=^^^.044^^.005^.024
;;^UTILITY(U,$J,112,1424,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1425,0)
;;=PEAS, SPLIT, DRY, CKD WO SALT^16-086^cups^200^100^N
;;^UTILITY(U,$J,112,1425,1)
;;=8.34^.39^21.11^118^69.49^^^14^1.29^36^99^362^2^1^.181^.396^^7^.4^.19
;;^UTILITY(U,$J,112,1425,2)
;;=.056^.89^.595^.048^64.9^0^.137^.028^0^.054^.081^.165^1^.68^^^3.2
;;^UTILITY(U,$J,112,1425,3)
;;=.093^.296^.344^.598^.602^.085^.127^.384^.242^.394^.744^.203^.367^.984^1.426^.371^.344^.367
;;^UTILITY(U,$J,112,1425,4)
;;=^.001^.001^.042^^.01^.077
;;^UTILITY(U,$J,112,1425,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1426,0)
;;=PEAS AND CARROTS, FRZ, CKD WO/SALT^11-323^cups^160^100^N
;;^UTILITY(U,$J,112,1426,1)
;;=3.09^.42^10.12^48^85.8^^^23^.94^16^49^158^68^.45^.076^.202^^7761^8.1^.225
;;^UTILITY(U,$J,112,1426,2)
;;=.064^1.154^.163^.087^26^0^.164^.036^0^.077^.035^.201^776^.57^^^3.6
;;^UTILITY(U,$J,112,1426,3)
;;=.022^.116^.112^.179^.175^.044^.019^.113^.064^.134^.234^.06^.14^.294^.439^.103^.098^.103
;;^UTILITY(U,$J,112,1426,4)
;;=^.001^0^.068^.001^.007^.035
;;^UTILITY(U,$J,112,1426,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1427,0)
;;=PEAS AND CARROTS, FRZ, CKD W/SALT^11-817^cups^160^100^N
;;^UTILITY(U,$J,112,1427,1)
;;=3.09^.42^10.12^48^85.8^^^23^.94^16^49^158^304^.45^.076^.202^^7761^8.1^.225
;;^UTILITY(U,$J,112,1427,2)
;;=.064^1.154^.163^.087^26^0^.164^.036^0^.077^.035^.201^776^.57
;;^UTILITY(U,$J,112,1427,3)
;;=.022^.116^.112^.179^.175^.044^.019^.113^.064^.134^.234^.06^.14^.294^.439^.103^.098^.103
;;^UTILITY(U,$J,112,1427,4)
;;=^.001^0^.068^.001^.007^.035
;;^UTILITY(U,$J,112,1427,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1428,0)
;;=PECANS^12-142^oz.^28.3^53^N
;;^UTILITY(U,$J,112,1428,1)
;;=7.75^67.64^18.24^667^4.82^^^36^2.13^128^291^392^1^5.47^1.182^4.506^^128^2^.848
;;^UTILITY(U,$J,112,1428,2)
;;=.128^.887^1.707^.188^39.2^0^15.983^.677^0^5.419^42.161^16.746^13^1.56^^^7.6
;;^UTILITY(U,$J,112,1428,3)
;;=.199^.253^.322^.52^.292^.186^.209^.409^.284^.386^1.105^.227^.338^.708^1.545^.377^.36^.376
;;^UTILITY(U,$J,112,1428,4)
;;=^^^4.137^.31^1.002^41.172^^^5.2
;;^UTILITY(U,$J,112,1428,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1429,0)
;;=PEPPERS, HOT, CHILI, GREEN, CND^11-329^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1429,1)
;;=.9^.1^6.1^25^92.5^^^7^.5^14^17^187^1173^.17^.101^.138^^610^68^.02
;;^UTILITY(U,$J,112,1429,2)
;;=.05^.8^.034^.153^10^0^.052^.002^0^.01^.006^.055^61^.4^^^1.9
;;^UTILITY(U,$J,112,1429,3)
;;=.012^.033^.029^.047^.04^.011^.017^.028^.019^.038^.043^.018^.037^.129^.119^.033^.039^.036
;;^UTILITY(U,$J,112,1429,4)
;;=^0^.001^.008^0^.001^.005
;;^UTILITY(U,$J,112,1429,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1430,0)
;;=PEPPERS, HOT, CHILI, GREEN, CND, CHILI SAUCE^1539-0^cups^245^100^N
FHINI04A ; ; 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,1414,4)
+2 ;;=^^^.035^^.004^.019
+3 ;;^UTILITY(U,$J,112,1414,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1416,0)
+6 ;;=PEAS, GREEN, CND^11-308^cups^170^100^N
+7 ;;^UTILITY(U,$J,112,1416,1)
+8 ;;=4.42^.35^12.58^69^81.7^^^20^.95^17^67^173^219^.71^.082^.303^^768^9.6^.121
+9 ;;^UTILITY(U,$J,112,1416,2)
+10 ;;=.078^.732^.128^.064^44.3^0^.132^.031^0^.062^.031^.163^77^.97^^^3.8
+11 ;;^UTILITY(U,$J,112,1416,3)
+12 ;;=.03^.165^.159^.264^.259^.067^.026^.163^.093^.192^.349^.087^.196^.404^.604^.15^.141^.148
+13 ;;^UTILITY(U,$J,112,1416,4)
+14 ;;=^^^.056^^.006^.031^^^1.7
+15 ;;^UTILITY(U,$J,112,1416,20)
+16 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+17 ;;^UTILITY(U,$J,112,1418,0)
+18 ;;=PEAS, GREEN, CND, DIET PK, LO NA^11-813^cups^170^100^N
+19 ;;^UTILITY(U,$J,112,1418,1)
+20 ;;=4.42^.35^12.58^69^81.7^^^20^.95^17^67^173^2^.71^.082^.303^^768^9.6^.121
+21 ;;^UTILITY(U,$J,112,1418,2)
+22 ;;=.078^.732^.128^.064^44.3^0^.132^.031^0^.062^.031^.163^77^.97
+23 ;;^UTILITY(U,$J,112,1418,3)
+24 ;;=.03^.165^.159^.264^.259^.067^.026^.163^.093^.192^.349^.087^.196^.404^.604^.15^.141^.148
+25 ;;^UTILITY(U,$J,112,1418,4)
+26 ;;=^^^.056^^.006^.031
+27 ;;^UTILITY(U,$J,112,1418,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1424,0)
+30 ;;=PEAS, GREEN, FRZ, CKD W/SALT^11-814^cups^160^100^N
+31 ;;^UTILITY(U,$J,112,1424,1)
+32 ;;=5.15^.27^14.26^78^79.52^^^24^1.57^29^90^168^323^.94^.139^.414^^668^9.9^.283
+33 ;;^UTILITY(U,$J,112,1424,2)
+34 ;;=.1^1.48^.142^.113^58.6^0^.105^.024^0^.049^.024^.129^67^.8
+35 ;;^UTILITY(U,$J,112,1424,3)
+36 ;;=.035^.193^.185^.307^.302^.078^.03^.19^.108^.223^.407^.101^.228^.471^.705^.175^.165^.172
+37 ;;^UTILITY(U,$J,112,1424,4)
+38 ;;=^^^.044^^.005^.024
+39 ;;^UTILITY(U,$J,112,1424,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1425,0)
+42 ;;=PEAS, SPLIT, DRY, CKD WO SALT^16-086^cups^200^100^N
+43 ;;^UTILITY(U,$J,112,1425,1)
+44 ;;=8.34^.39^21.11^118^69.49^^^14^1.29^36^99^362^2^1^.181^.396^^7^.4^.19
+45 ;;^UTILITY(U,$J,112,1425,2)
+46 ;;=.056^.89^.595^.048^64.9^0^.137^.028^0^.054^.081^.165^1^.68^^^3.2
+47 ;;^UTILITY(U,$J,112,1425,3)
+48 ;;=.093^.296^.344^.598^.602^.085^.127^.384^.242^.394^.744^.203^.367^.984^1.426^.371^.344^.367
+49 ;;^UTILITY(U,$J,112,1425,4)
+50 ;;=^.001^.001^.042^^.01^.077
+51 ;;^UTILITY(U,$J,112,1425,20)
+52 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+53 ;;^UTILITY(U,$J,112,1426,0)
+54 ;;=PEAS AND CARROTS, FRZ, CKD WO/SALT^11-323^cups^160^100^N
+55 ;;^UTILITY(U,$J,112,1426,1)
+56 ;;=3.09^.42^10.12^48^85.8^^^23^.94^16^49^158^68^.45^.076^.202^^7761^8.1^.225
+57 ;;^UTILITY(U,$J,112,1426,2)
+58 ;;=.064^1.154^.163^.087^26^0^.164^.036^0^.077^.035^.201^776^.57^^^3.6
+59 ;;^UTILITY(U,$J,112,1426,3)
+60 ;;=.022^.116^.112^.179^.175^.044^.019^.113^.064^.134^.234^.06^.14^.294^.439^.103^.098^.103
+61 ;;^UTILITY(U,$J,112,1426,4)
+62 ;;=^.001^0^.068^.001^.007^.035
+63 ;;^UTILITY(U,$J,112,1426,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,1427,0)
+66 ;;=PEAS AND CARROTS, FRZ, CKD W/SALT^11-817^cups^160^100^N
+67 ;;^UTILITY(U,$J,112,1427,1)
+68 ;;=3.09^.42^10.12^48^85.8^^^23^.94^16^49^158^304^.45^.076^.202^^7761^8.1^.225
+69 ;;^UTILITY(U,$J,112,1427,2)
+70 ;;=.064^1.154^.163^.087^26^0^.164^.036^0^.077^.035^.201^776^.57
+71 ;;^UTILITY(U,$J,112,1427,3)
+72 ;;=.022^.116^.112^.179^.175^.044^.019^.113^.064^.134^.234^.06^.14^.294^.439^.103^.098^.103
+73 ;;^UTILITY(U,$J,112,1427,4)
+74 ;;=^.001^0^.068^.001^.007^.035
+75 ;;^UTILITY(U,$J,112,1427,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1428,0)
+78 ;;=PECANS^12-142^oz.^28.3^53^N
+79 ;;^UTILITY(U,$J,112,1428,1)
+80 ;;=7.75^67.64^18.24^667^4.82^^^36^2.13^128^291^392^1^5.47^1.182^4.506^^128^2^.848
+81 ;;^UTILITY(U,$J,112,1428,2)
+82 ;;=.128^.887^1.707^.188^39.2^0^15.983^.677^0^5.419^42.161^16.746^13^1.56^^^7.6
+83 ;;^UTILITY(U,$J,112,1428,3)
+84 ;;=.199^.253^.322^.52^.292^.186^.209^.409^.284^.386^1.105^.227^.338^.708^1.545^.377^.36^.376
+85 ;;^UTILITY(U,$J,112,1428,4)
+86 ;;=^^^4.137^.31^1.002^41.172^^^5.2
+87 ;;^UTILITY(U,$J,112,1428,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,1429,0)
+90 ;;=PEPPERS, HOT, CHILI, GREEN, CND^11-329^oz.^28.3^100^N
+91 ;;^UTILITY(U,$J,112,1429,1)
+92 ;;=.9^.1^6.1^25^92.5^^^7^.5^14^17^187^1173^.17^.101^.138^^610^68^.02
+93 ;;^UTILITY(U,$J,112,1429,2)
+94 ;;=.05^.8^.034^.153^10^0^.052^.002^0^.01^.006^.055^61^.4^^^1.9
+95 ;;^UTILITY(U,$J,112,1429,3)
+96 ;;=.012^.033^.029^.047^.04^.011^.017^.028^.019^.038^.043^.018^.037^.129^.119^.033^.039^.036
+97 ;;^UTILITY(U,$J,112,1429,4)
+98 ;;=^0^.001^.008^0^.001^.005
+99 ;;^UTILITY(U,$J,112,1429,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1430,0)
+102 ;;=PEPPERS, HOT, CHILI, GREEN, CND, CHILI SAUCE^1539-0^cups^245^100^N
