FHINI07I ; ; 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,2610,2)
;;=.39^2.94^.66^.11^30^.86^^^172^5.175^4.017^1.182^104^2.35^^^^1.1
;;^UTILITY(U,$J,112,2610,3)
;;=.185^.526^.654^1.099^.982^.345^.203^.67^.534^.763^.709^.419^.591^1.04^2.585^.452^.953^.726
;;^UTILITY(U,$J,112,2610,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2611,0)
;;=FF, HOTDOG, PLAIN^21-118^hotdogs^98^100^N
;;^UTILITY(U,$J,112,2611,1)
;;=10.6^14.84^18.4^247^53.96^^^24^2.36^13^99^146^684^2.02^.078^.093^^0^.1^.24
;;^UTILITY(U,$J,112,2611,2)
;;=.28^3.72^.52^.05^30^.52^1.31^.432^45^5.213^6.993^1.741^0^2.2
;;^UTILITY(U,$J,112,2611,3)
;;=.098^.36^.453^.769^.641^.199^.147^.417^.282^.483^.666^.295^.598^.872^2.385^.646^.765^.481
;;^UTILITY(U,$J,112,2611,4)
;;=^^.487^3.028^.66^1.497^6.333
;;^UTILITY(U,$J,112,2611,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2612,0)
;;=FF, HOTDOG, W/ CHILI^21-119^hotdogs^114^100^N
;;^UTILITY(U,$J,112,2612,1)
;;=11.85^11.79^27.45^260^47.8^^^17^2.88^9^168^146^421^.68^.09^.1^^51^2.4^.19
;;^UTILITY(U,$J,112,2612,2)
;;=.35^3.28^.48^.04^44^.26^.918^.124^45^4.258^5.785^1.042^5^1.1
;;^UTILITY(U,$J,112,2612,3)
;;=.113^.408^.497^.853^.729^.222^.157^.463^.315^.534^.733^.326^.657^.995^2.542^.709^.797^.525
;;^UTILITY(U,$J,112,2612,4)
;;=.091^.025^.235^2.486^.409^1.322^5.376
;;^UTILITY(U,$J,112,2612,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2613,0)
;;=FF, HOTDOG, W/ CORN FLOUR COATING (CORNDOG)^21-120^hotdogs^175^100^N
;;^UTILITY(U,$J,112,2613,1)
;;=9.6^10.8^31.88^263^46.7^^^58^3.53^10^95^150^556^.75^.14^.11^^118^0^.16
;;^UTILITY(U,$J,112,2613,2)
;;=.4^2.38^.77^.05^34^.25^1.581^.417^45^2.949^5.205^1.998^21^1.02
;;^UTILITY(U,$J,112,2613,3)
;;=.086^.363^.429^.808^.657^.208^.135^.377^.317^.458^.637^.29^.618^.865^1.787^.578^.61^.448
;;^UTILITY(U,$J,112,2613,4)
;;=^^.474^1.913^.506^.562^4.699
;;^UTILITY(U,$J,112,2613,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2614,0)
;;=FF, ROAST BEEF SANDWICH, PLAIN^21-121^sandwichs^139^100^N
;;^UTILITY(U,$J,112,2614,1)
;;=15.47^9.9^24.06^249^48.64^^^39^3.04^22^172^227^570^2.44^.07^.09^^151^1.5^.27
;;^UTILITY(U,$J,112,2614,2)
;;=.22^4.22^.6^.19^29^.88^1.101^.125^37^2.594^4.895^1.227^15^1.93
;;^UTILITY(U,$J,112,2614,3)
;;=.176^.629^.679^1.191^1.111^.366^.191^.634^.489^.755^.908^.489^.855^1.291^2.813^.795^.875^.629
;;^UTILITY(U,$J,112,2614,4)
;;=.015^.157^.223^1.469^.635^.717^4.26
;;^UTILITY(U,$J,112,2614,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2615,0)
;;=FF, ROAST BEEF SANDWICH, W/ CHEESE^21-122^sandwichs^176^100^N
;;^UTILITY(U,$J,112,2615,1)
;;=18.31^10.23^25.78^269^43.5^^^104^2.87^23^228^196^928^3.05^.113^.177^^110^0^.22
;;^UTILITY(U,$J,112,2615,2)
;;=.26^3.35^.39^.19^23^1.17^^^44^5.13^2.08^1.99^26^2.18
;;^UTILITY(U,$J,112,2615,3)
;;=.212^.728^.805^1.424^1.359^.433^.215^.764^.616^.908^1.038^.593^.952^1.48^3.358^.873^1.111^.755
;;^UTILITY(U,$J,112,2615,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2616,0)
;;=FF, STEAK SANDWICH^21-123^sandwichs^204^100^N
;;^UTILITY(U,$J,112,2616,1)
;;=14.87^6.9^25.47^225^51.07^^^45^2.53^24^146^257^391^2.22^.108^.18^^180^2.7^.2
;;^UTILITY(U,$J,112,2616,2)
;;=.18^3.58^.45^.18^44^.77^^^36^1.87^2.62^1.64^22^1.7
;;^UTILITY(U,$J,112,2616,3)
;;=.181^.59^.631^1.157^1.087^.325^.164^.593^.443^.723^.928^.443^.887^1.263^2.76^1.003^.894^.607
;;^UTILITY(U,$J,112,2616,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2617,0)
;;=FF, SUBMARINE SANDWICH, W/ COLDCUTS^21-124^subs^228^100^N
;;^UTILITY(U,$J,112,2617,1)
;;=9.58^8.17^22.39^200^57.8^^^83^1.1^30^126^173^724^1.13^.133^.233^^186^5.4^.44
;;^UTILITY(U,$J,112,2617,2)
;;=.35^2.41^.39^.06^24^.48^^^16^2.986^3.608^1.001^35^2.07
;;^UTILITY(U,$J,112,2617,3)
;;=.109^.326^.396^.697^.565^.192^.126^.433^.329^.481^.445^.272^.379^.64^2.327^.387^.839^.455
;;^UTILITY(U,$J,112,2617,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2618,0)
;;=FF, SUBMARINE SANDWICH, W/ ROAST BEEF^21-125^subs^216^100^N
;;^UTILITY(U,$J,112,2618,1)
;;=13.26^6^20.51^190^58.97^^^19^1.3^31^89^153^391^2.03^.167^.2^^191^2.6^.19
;;^UTILITY(U,$J,112,2618,2)
;;=.19^2.76^.36^.15^21^.84^^^34^3.281^.85^1.209^23^1.27
;;^UTILITY(U,$J,112,2618,3)
;;=.15^.531^.578^1.008^.916^.305^.168^.546^.411^.645^.759^.408^.716^1.092^2.502^.666^.774^.544
;;^UTILITY(U,$J,112,2618,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2619,0)
;;=FF, SUBMARINE SANDWICH, W/ TUNA SALAD^21-126^subs^256^100^N
;;^UTILITY(U,$J,112,2619,1)
;;=11.6^10.93^21.63^228^54.31^^^29^1.03^31^86^131^505^.73^.167^.2^^73^1.4^.18
FHINI07I ; ; 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,2610,2)
+2 ;;=.39^2.94^.66^.11^30^.86^^^172^5.175^4.017^1.182^104^2.35^^^^1.1
+3 ;;^UTILITY(U,$J,112,2610,3)
+4 ;;=.185^.526^.654^1.099^.982^.345^.203^.67^.534^.763^.709^.419^.591^1.04^2.585^.452^.953^.726
+5 ;;^UTILITY(U,$J,112,2610,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2611,0)
+8 ;;=FF, HOTDOG, PLAIN^21-118^hotdogs^98^100^N
+9 ;;^UTILITY(U,$J,112,2611,1)
+10 ;;=10.6^14.84^18.4^247^53.96^^^24^2.36^13^99^146^684^2.02^.078^.093^^0^.1^.24
+11 ;;^UTILITY(U,$J,112,2611,2)
+12 ;;=.28^3.72^.52^.05^30^.52^1.31^.432^45^5.213^6.993^1.741^0^2.2
+13 ;;^UTILITY(U,$J,112,2611,3)
+14 ;;=.098^.36^.453^.769^.641^.199^.147^.417^.282^.483^.666^.295^.598^.872^2.385^.646^.765^.481
+15 ;;^UTILITY(U,$J,112,2611,4)
+16 ;;=^^.487^3.028^.66^1.497^6.333
+17 ;;^UTILITY(U,$J,112,2611,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2612,0)
+20 ;;=FF, HOTDOG, W/ CHILI^21-119^hotdogs^114^100^N
+21 ;;^UTILITY(U,$J,112,2612,1)
+22 ;;=11.85^11.79^27.45^260^47.8^^^17^2.88^9^168^146^421^.68^.09^.1^^51^2.4^.19
+23 ;;^UTILITY(U,$J,112,2612,2)
+24 ;;=.35^3.28^.48^.04^44^.26^.918^.124^45^4.258^5.785^1.042^5^1.1
+25 ;;^UTILITY(U,$J,112,2612,3)
+26 ;;=.113^.408^.497^.853^.729^.222^.157^.463^.315^.534^.733^.326^.657^.995^2.542^.709^.797^.525
+27 ;;^UTILITY(U,$J,112,2612,4)
+28 ;;=.091^.025^.235^2.486^.409^1.322^5.376
+29 ;;^UTILITY(U,$J,112,2612,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2613,0)
+32 ;;=FF, HOTDOG, W/ CORN FLOUR COATING (CORNDOG)^21-120^hotdogs^175^100^N
+33 ;;^UTILITY(U,$J,112,2613,1)
+34 ;;=9.6^10.8^31.88^263^46.7^^^58^3.53^10^95^150^556^.75^.14^.11^^118^0^.16
+35 ;;^UTILITY(U,$J,112,2613,2)
+36 ;;=.4^2.38^.77^.05^34^.25^1.581^.417^45^2.949^5.205^1.998^21^1.02
+37 ;;^UTILITY(U,$J,112,2613,3)
+38 ;;=.086^.363^.429^.808^.657^.208^.135^.377^.317^.458^.637^.29^.618^.865^1.787^.578^.61^.448
+39 ;;^UTILITY(U,$J,112,2613,4)
+40 ;;=^^.474^1.913^.506^.562^4.699
+41 ;;^UTILITY(U,$J,112,2613,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2614,0)
+44 ;;=FF, ROAST BEEF SANDWICH, PLAIN^21-121^sandwichs^139^100^N
+45 ;;^UTILITY(U,$J,112,2614,1)
+46 ;;=15.47^9.9^24.06^249^48.64^^^39^3.04^22^172^227^570^2.44^.07^.09^^151^1.5^.27
+47 ;;^UTILITY(U,$J,112,2614,2)
+48 ;;=.22^4.22^.6^.19^29^.88^1.101^.125^37^2.594^4.895^1.227^15^1.93
+49 ;;^UTILITY(U,$J,112,2614,3)
+50 ;;=.176^.629^.679^1.191^1.111^.366^.191^.634^.489^.755^.908^.489^.855^1.291^2.813^.795^.875^.629
+51 ;;^UTILITY(U,$J,112,2614,4)
+52 ;;=.015^.157^.223^1.469^.635^.717^4.26
+53 ;;^UTILITY(U,$J,112,2614,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2615,0)
+56 ;;=FF, ROAST BEEF SANDWICH, W/ CHEESE^21-122^sandwichs^176^100^N
+57 ;;^UTILITY(U,$J,112,2615,1)
+58 ;;=18.31^10.23^25.78^269^43.5^^^104^2.87^23^228^196^928^3.05^.113^.177^^110^0^.22
+59 ;;^UTILITY(U,$J,112,2615,2)
+60 ;;=.26^3.35^.39^.19^23^1.17^^^44^5.13^2.08^1.99^26^2.18
+61 ;;^UTILITY(U,$J,112,2615,3)
+62 ;;=.212^.728^.805^1.424^1.359^.433^.215^.764^.616^.908^1.038^.593^.952^1.48^3.358^.873^1.111^.755
+63 ;;^UTILITY(U,$J,112,2615,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2616,0)
+66 ;;=FF, STEAK SANDWICH^21-123^sandwichs^204^100^N
+67 ;;^UTILITY(U,$J,112,2616,1)
+68 ;;=14.87^6.9^25.47^225^51.07^^^45^2.53^24^146^257^391^2.22^.108^.18^^180^2.7^.2
+69 ;;^UTILITY(U,$J,112,2616,2)
+70 ;;=.18^3.58^.45^.18^44^.77^^^36^1.87^2.62^1.64^22^1.7
+71 ;;^UTILITY(U,$J,112,2616,3)
+72 ;;=.181^.59^.631^1.157^1.087^.325^.164^.593^.443^.723^.928^.443^.887^1.263^2.76^1.003^.894^.607
+73 ;;^UTILITY(U,$J,112,2616,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,2617,0)
+76 ;;=FF, SUBMARINE SANDWICH, W/ COLDCUTS^21-124^subs^228^100^N
+77 ;;^UTILITY(U,$J,112,2617,1)
+78 ;;=9.58^8.17^22.39^200^57.8^^^83^1.1^30^126^173^724^1.13^.133^.233^^186^5.4^.44
+79 ;;^UTILITY(U,$J,112,2617,2)
+80 ;;=.35^2.41^.39^.06^24^.48^^^16^2.986^3.608^1.001^35^2.07
+81 ;;^UTILITY(U,$J,112,2617,3)
+82 ;;=.109^.326^.396^.697^.565^.192^.126^.433^.329^.481^.445^.272^.379^.64^2.327^.387^.839^.455
+83 ;;^UTILITY(U,$J,112,2617,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,2618,0)
+86 ;;=FF, SUBMARINE SANDWICH, W/ ROAST BEEF^21-125^subs^216^100^N
+87 ;;^UTILITY(U,$J,112,2618,1)
+88 ;;=13.26^6^20.51^190^58.97^^^19^1.3^31^89^153^391^2.03^.167^.2^^191^2.6^.19
+89 ;;^UTILITY(U,$J,112,2618,2)
+90 ;;=.19^2.76^.36^.15^21^.84^^^34^3.281^.85^1.209^23^1.27
+91 ;;^UTILITY(U,$J,112,2618,3)
+92 ;;=.15^.531^.578^1.008^.916^.305^.168^.546^.411^.645^.759^.408^.716^1.092^2.502^.666^.774^.544
+93 ;;^UTILITY(U,$J,112,2618,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2619,0)
+96 ;;=FF, SUBMARINE SANDWICH, W/ TUNA SALAD^21-126^subs^256^100^N
+97 ;;^UTILITY(U,$J,112,2619,1)
+98 ;;=11.6^10.93^21.63^228^54.31^^^29^1.03^31^86^131^505^.73^.167^.2^^73^1.4^.18
