FHINI072 ; ; 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,2466,1)
;;=1.3^.7^17.2^77^80.4^^^44^.17^5^44^52^27^.273^.049^^^36^2.2^.007
;;^UTILITY(U,$J,112,2466,2)
;;=.083^.035^.244^.02^.9^.01^^^^^^^4^.4
;;^UTILITY(U,$J,112,2466,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2467,0)
;;=BF, DESSERT, CARAMEL PUDDING, JUNIOR^3-242^jars^213^100^N
;;^UTILITY(U,$J,112,2467,1)
;;=1.4^.9^17^79^80.4^^^55^.16^5^43^58^28^.263^.048^^^33^2.2^.007
;;^UTILITY(U,$J,112,2467,2)
;;=.069^.037^.243^.018^.9^.01^^^^^^^3^.4
;;^UTILITY(U,$J,112,2467,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2468,0)
;;=BF, DESSERT, CUSTARD PUDDING, CHOCOLATE, STR^3-243^jars^128^100^N
;;^UTILITY(U,$J,112,2468,1)
;;=1.9^1.7^16.1^84^79.9^^^61^.38^10^49^86^23^.32^.094^^^46^1.5^.012
;;^UTILITY(U,$J,112,2468,2)
;;=.104^.098^.25^.013^4.5^.01^^^^^^^5^.6^^^.7
;;^UTILITY(U,$J,112,2468,3)
;;=^.087^.101^.182^.135^.046^^.085^.069^.119^.082^.047^.069^.173^.368^.047^.142^.097
;;^UTILITY(U,$J,112,2468,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2469,0)
;;=BF, DESSERT, CUSTARD PUDDING, CHOCOLATE, JNR^3-244^jars^220^100^N
;;^UTILITY(U,$J,112,2469,1)
;;=1.9^1.6^17.4^89^78.5^^^61^.4^10^51^89^25^.33^.1^^^46^1.1^.014
;;^UTILITY(U,$J,112,2469,2)
;;=.11^.109^.267^.013^4.8^.01^^^^^^^5^.6^^^.7
;;^UTILITY(U,$J,112,2469,3)
;;=^.089^.104^.187^.138^.047^^.087^.07^.122^.084^.048^.07^.178^.377^.048^.145^.1
;;^UTILITY(U,$J,112,2469,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2470,0)
;;=BF, DESSERT, CUSTARD PUDDING, VANILLA, STR^3-245^jars^128^100^N
;;^UTILITY(U,$J,112,2470,1)
;;=1.6^2^16.1^85^79.9^^^55^.24^5^45^66^28^.28^.05^^^64^.8^.012
;;^UTILITY(U,$J,112,2470,2)
;;=.08^.04^.25^.02^6^.01^.13^.01^^1.01^.68^.16^6^.5^^^0
;;^UTILITY(U,$J,112,2470,3)
;;=^.059^.075^.059^.114^.046^^.073^.059^.088^.062^.041^.05^.13^.291^.033^.098^.082
;;^UTILITY(U,$J,112,2470,4)
;;=.03^.04^.11^.52^.05^.19^.62^.02
;;^UTILITY(U,$J,112,2470,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2471,0)
;;=BF, DESSERT, CUSTARD PUDDING, VANILLA, JNR^3-246^jars^220^100^N
;;^UTILITY(U,$J,112,2471,1)
;;=1.6^2.3^16.2^89^79.4^^^56^.26^5^45^62^29^.276^.051^^^36^.8^.012
;;^UTILITY(U,$J,112,2471,2)
;;=.079^.043^.255^.019^6.2^.01^.16^.01^^1.18^.79^.19^4^.5^^^0
;;^UTILITY(U,$J,112,2471,3)
;;=^.059^.076^.059^.114^.046^^.074^.059^.089^.063^.041^.051^.131^.293^.033^.099^.083
;;^UTILITY(U,$J,112,2471,4)
;;=.04^.04^.13^.61^.05^.22^.72^.02
;;^UTILITY(U,$J,112,2471,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2472,0)
;;=BF, JUICE, APPLE&GRAPE^3-265^jars^130^100^N
;;^UTILITY(U,$J,112,2472,1)
;;=.1^.2^11.4^46^88.1^^^6^.39^3^5^90^3^.035^.078^^^6^53.6^.007
;;^UTILITY(U,$J,112,2472,2)
;;=.021^.109^.075^.034^.3^0^^^^^^^1^.2^^^.1
;;^UTILITY(U,$J,112,2472,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2473,0)
;;=BF, JUICE, APPLE&CHERRY^3-268^jars^130^100^N
;;^UTILITY(U,$J,112,2473,1)
;;=.1^.2^9.9^41^89.5^^^5^.66^3^6^98^3^.03^.043^^^5^58.3^.008
;;^UTILITY(U,$J,112,2473,2)
;;=.015^.094^.102^.031^.3^0^^^^^^^1^.3^^^.1
;;^UTILITY(U,$J,112,2473,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2474,0)
;;=BF, DINNER, VEG & CHICKEN, JNR^3-274^jars^213^100^N
;;^UTILITY(U,$J,112,2474,1)
;;=1.9^1.1^8.5^50^88.2^^^14^.3^9^26^26^9^.308^.041^^^1195^1.4^.012
;;^UTILITY(U,$J,112,2474,2)
;;=.019^.334^.235^.037^3.8^.1^^^^^^^148^.4^^^1.1
;;^UTILITY(U,$J,112,2474,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2475,0)
;;=BF, DINNER, MIXED VEGETABLE, JUNIOR^3-279^jars^213^100^N
;;^UTILITY(U,$J,112,2475,1)
;;=1^0^7.9^33^90.6^^^17^.31^10^22^112^9^.239^.036^^^2444^3.3^.014
;;^UTILITY(U,$J,112,2475,2)
;;=.024^.414^.23^.075^6.7^0^^^^^^^244^.4
;;^UTILITY(U,$J,112,2475,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2476,0)
;;=BF, FRUIT, BANANAS WITH TAPIOCA, JNR^3-280^jars^220^100^N
;;^UTILITY(U,$J,112,2476,1)
;;=.4^.2^17.8^67^81.5^^^8^.3^12^9^108^9^.069^.046^^^44^25.7^.015
;;^UTILITY(U,$J,112,2476,2)
;;=.02^.218^.173^.139^6.4^0^^^^^^^4^.2^^^1.6
;;^UTILITY(U,$J,112,2476,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2477,0)
;;=BF, VEGETABLES, MIX VEG, JNR^3-282^jars^213^100^N
;;^UTILITY(U,$J,112,2477,1)
;;=1.4^.4^8.2^41^89.4^^^11^.41^11^25^170^36^.27^.041^^^4195^2.5^.029
;;^UTILITY(U,$J,112,2477,2)
;;=.032^.665^.259^.081^4.1^0^^^^^^^420^.6^^^1.5
;;^UTILITY(U,$J,112,2477,3)
;;=.015^.045^.056^.091^.047^.021^.028^.055^.052^.069^.093^.031^.062^.165^.369^.054^.11^.054
;;^UTILITY(U,$J,112,2477,20)
;;=USDA Std. Reference, Release 10
FHINI072 ; ; 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,2466,1)
+2 ;;=1.3^.7^17.2^77^80.4^^^44^.17^5^44^52^27^.273^.049^^^36^2.2^.007
+3 ;;^UTILITY(U,$J,112,2466,2)
+4 ;;=.083^.035^.244^.02^.9^.01^^^^^^^4^.4
+5 ;;^UTILITY(U,$J,112,2466,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2467,0)
+8 ;;=BF, DESSERT, CARAMEL PUDDING, JUNIOR^3-242^jars^213^100^N
+9 ;;^UTILITY(U,$J,112,2467,1)
+10 ;;=1.4^.9^17^79^80.4^^^55^.16^5^43^58^28^.263^.048^^^33^2.2^.007
+11 ;;^UTILITY(U,$J,112,2467,2)
+12 ;;=.069^.037^.243^.018^.9^.01^^^^^^^3^.4
+13 ;;^UTILITY(U,$J,112,2467,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,2468,0)
+16 ;;=BF, DESSERT, CUSTARD PUDDING, CHOCOLATE, STR^3-243^jars^128^100^N
+17 ;;^UTILITY(U,$J,112,2468,1)
+18 ;;=1.9^1.7^16.1^84^79.9^^^61^.38^10^49^86^23^.32^.094^^^46^1.5^.012
+19 ;;^UTILITY(U,$J,112,2468,2)
+20 ;;=.104^.098^.25^.013^4.5^.01^^^^^^^5^.6^^^.7
+21 ;;^UTILITY(U,$J,112,2468,3)
+22 ;;=^.087^.101^.182^.135^.046^^.085^.069^.119^.082^.047^.069^.173^.368^.047^.142^.097
+23 ;;^UTILITY(U,$J,112,2468,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,2469,0)
+26 ;;=BF, DESSERT, CUSTARD PUDDING, CHOCOLATE, JNR^3-244^jars^220^100^N
+27 ;;^UTILITY(U,$J,112,2469,1)
+28 ;;=1.9^1.6^17.4^89^78.5^^^61^.4^10^51^89^25^.33^.1^^^46^1.1^.014
+29 ;;^UTILITY(U,$J,112,2469,2)
+30 ;;=.11^.109^.267^.013^4.8^.01^^^^^^^5^.6^^^.7
+31 ;;^UTILITY(U,$J,112,2469,3)
+32 ;;=^.089^.104^.187^.138^.047^^.087^.07^.122^.084^.048^.07^.178^.377^.048^.145^.1
+33 ;;^UTILITY(U,$J,112,2469,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2470,0)
+36 ;;=BF, DESSERT, CUSTARD PUDDING, VANILLA, STR^3-245^jars^128^100^N
+37 ;;^UTILITY(U,$J,112,2470,1)
+38 ;;=1.6^2^16.1^85^79.9^^^55^.24^5^45^66^28^.28^.05^^^64^.8^.012
+39 ;;^UTILITY(U,$J,112,2470,2)
+40 ;;=.08^.04^.25^.02^6^.01^.13^.01^^1.01^.68^.16^6^.5^^^0
+41 ;;^UTILITY(U,$J,112,2470,3)
+42 ;;=^.059^.075^.059^.114^.046^^.073^.059^.088^.062^.041^.05^.13^.291^.033^.098^.082
+43 ;;^UTILITY(U,$J,112,2470,4)
+44 ;;=.03^.04^.11^.52^.05^.19^.62^.02
+45 ;;^UTILITY(U,$J,112,2470,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2471,0)
+48 ;;=BF, DESSERT, CUSTARD PUDDING, VANILLA, JNR^3-246^jars^220^100^N
+49 ;;^UTILITY(U,$J,112,2471,1)
+50 ;;=1.6^2.3^16.2^89^79.4^^^56^.26^5^45^62^29^.276^.051^^^36^.8^.012
+51 ;;^UTILITY(U,$J,112,2471,2)
+52 ;;=.079^.043^.255^.019^6.2^.01^.16^.01^^1.18^.79^.19^4^.5^^^0
+53 ;;^UTILITY(U,$J,112,2471,3)
+54 ;;=^.059^.076^.059^.114^.046^^.074^.059^.089^.063^.041^.051^.131^.293^.033^.099^.083
+55 ;;^UTILITY(U,$J,112,2471,4)
+56 ;;=.04^.04^.13^.61^.05^.22^.72^.02
+57 ;;^UTILITY(U,$J,112,2471,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2472,0)
+60 ;;=BF, JUICE, APPLE&GRAPE^3-265^jars^130^100^N
+61 ;;^UTILITY(U,$J,112,2472,1)
+62 ;;=.1^.2^11.4^46^88.1^^^6^.39^3^5^90^3^.035^.078^^^6^53.6^.007
+63 ;;^UTILITY(U,$J,112,2472,2)
+64 ;;=.021^.109^.075^.034^.3^0^^^^^^^1^.2^^^.1
+65 ;;^UTILITY(U,$J,112,2472,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2473,0)
+68 ;;=BF, JUICE, APPLE&CHERRY^3-268^jars^130^100^N
+69 ;;^UTILITY(U,$J,112,2473,1)
+70 ;;=.1^.2^9.9^41^89.5^^^5^.66^3^6^98^3^.03^.043^^^5^58.3^.008
+71 ;;^UTILITY(U,$J,112,2473,2)
+72 ;;=.015^.094^.102^.031^.3^0^^^^^^^1^.3^^^.1
+73 ;;^UTILITY(U,$J,112,2473,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,2474,0)
+76 ;;=BF, DINNER, VEG & CHICKEN, JNR^3-274^jars^213^100^N
+77 ;;^UTILITY(U,$J,112,2474,1)
+78 ;;=1.9^1.1^8.5^50^88.2^^^14^.3^9^26^26^9^.308^.041^^^1195^1.4^.012
+79 ;;^UTILITY(U,$J,112,2474,2)
+80 ;;=.019^.334^.235^.037^3.8^.1^^^^^^^148^.4^^^1.1
+81 ;;^UTILITY(U,$J,112,2474,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2475,0)
+84 ;;=BF, DINNER, MIXED VEGETABLE, JUNIOR^3-279^jars^213^100^N
+85 ;;^UTILITY(U,$J,112,2475,1)
+86 ;;=1^0^7.9^33^90.6^^^17^.31^10^22^112^9^.239^.036^^^2444^3.3^.014
+87 ;;^UTILITY(U,$J,112,2475,2)
+88 ;;=.024^.414^.23^.075^6.7^0^^^^^^^244^.4
+89 ;;^UTILITY(U,$J,112,2475,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2476,0)
+92 ;;=BF, FRUIT, BANANAS WITH TAPIOCA, JNR^3-280^jars^220^100^N
+93 ;;^UTILITY(U,$J,112,2476,1)
+94 ;;=.4^.2^17.8^67^81.5^^^8^.3^12^9^108^9^.069^.046^^^44^25.7^.015
+95 ;;^UTILITY(U,$J,112,2476,2)
+96 ;;=.02^.218^.173^.139^6.4^0^^^^^^^4^.2^^^1.6
+97 ;;^UTILITY(U,$J,112,2476,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2477,0)
+100 ;;=BF, VEGETABLES, MIX VEG, JNR^3-282^jars^213^100^N
+101 ;;^UTILITY(U,$J,112,2477,1)
+102 ;;=1.4^.4^8.2^41^89.4^^^11^.41^11^25^170^36^.27^.041^^^4195^2.5^.029
+103 ;;^UTILITY(U,$J,112,2477,2)
+104 ;;=.032^.665^.259^.081^4.1^0^^^^^^^420^.6^^^1.5
+105 ;;^UTILITY(U,$J,112,2477,3)
+106 ;;=.015^.045^.056^.091^.047^.021^.028^.055^.052^.069^.093^.031^.062^.165^.369^.054^.11^.054
+107 ;;^UTILITY(U,$J,112,2477,20)
+108 ;;=USDA Std. Reference, Release 10
