FHINI09E ; ; 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,6488,20)
;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010785 #516
;;^UTILITY(U,$J,112,6489,0)
;;=NUTRISOURCE MINERALS(PRO FORM) LYTE-REST^^packets^24
;;^UTILITY(U,$J,112,6489,1)
;;=0^0^54.21^216.8^^^^2710^75.06^1459.5^2710^20^62^62.55^8.34^16.68
;;^UTILITY(U,$J,112,6489,20)
;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010785
;;^UTILITY(U,$J,112,6490,0)
;;=BAGEL, PLAIN^^bagels^65.2
;;^UTILITY(U,$J,112,6490,1)
;;=10.7^1.53^52^260^^^^^2.3^^^^558^^^^^0^0^.535
;;^UTILITY(U,$J,112,6490,2)
;;=.367^2.75^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,6490,20)
;;=Lenders Bagel Bakery Prod Lit undated. Vit data calc from %RDA. DOE: 010885 #516
;;^UTILITY(U,$J,112,6491,0)
;;=NUTRISOURCE MINERALS(AMINO FORM)^^packets^24
;;^UTILITY(U,$J,112,6491,1)
;;=0^0^12.5^50^^^^3336^75^1459.5^3336^9174^5421^62.55^8.34^16.68
;;^UTILITY(U,$J,112,6491,20)
;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010985 #516
;;^UTILITY(U,$J,112,6492,0)
;;=NUTRISOURCE MINERALS(AMINO FORM) LYTE-REST^^packets^24
;;^UTILITY(U,$J,112,6492,1)
;;=0^0^50^200^^^^3336^75^1459.5^3336^20^62^62.55^8.34^16.68
;;^UTILITY(U,$J,112,6492,20)
;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010985 #516
;;^UTILITY(U,$J,112,6493,0)
;;=LOW PRO PASTA (ANELLINI)^^cups^220
;;^UTILITY(U,$J,112,6493,1)
;;=.136^^21.82^90.9^^^^^^^^1.82^8
;;^UTILITY(U,$J,112,6494,0)
;;=LOW PRO PASTA (RIGATINI)^^cups^130
;;^UTILITY(U,$J,112,6494,1)
;;=.154^^21.77^90.79^^^^^^^^2^8
;;^UTILITY(U,$J,112,6495,0)
;;=LOW PRO PASTA (TAGLIATELLE)^^cups^240
;;^UTILITY(U,$J,112,6495,1)
;;=.125^^21.79^90.83^^^^^^^^2^8
;;^UTILITY(U,$J,112,6496,0)
;;=PULMOCARE^DS-070^ml.^1
;;^UTILITY(U,$J,112,6496,1)
;;=6.16^9.08^10.4^147.9^77.37^^^104^1.87^41.67^104^170^129.17^2.33^.208^.52^4.71^520.8^31.25^.31
;;^UTILITY(U,$J,112,6496,2)
;;=.35^4.17^2.08^.417^83.3^1.25^4.952^.113^2.5^1.35^^5.06
;;^UTILITY(U,$J,112,6496,3)
;;=.069^.25^.319^.575^.469^.187^.025^.3^.3^.4^.225^.175^.187^.444^1.23^.112^.65^.331
;;^UTILITY(U,$J,112,6496,4)
;;=.004^.009^.035^1.032^^.209^2.309^.052^7.5
;;^UTILITY(U,$J,112,6496,20)
;;=Ross Lab Prod. Lit. Sept 1990.
;;^UTILITY(U,$J,112,6497,0)
;;=EGG SALAD^^oz.^28.35
;;^UTILITY(U,$J,112,6497,1)
;;=8.27^12.8^10.9^191.8^70^^^46.73^1.6^8.4^125^130.7^428.8^.97^^^.63^475.6^4.38^.05
;;^UTILITY(U,$J,112,6497,2)
;;=.19^.05^1.18^.07^33.3^.9^3.3^.35^364.7^3^4.4^3.9
;;^UTILITY(U,$J,112,6497,20)
;;=VACO Standardized Recipe E-347. DOE: 030785 #516
;;^UTILITY(U,$J,112,6498,0)
;;=EGGS, WHOLE, MED, RAW, FRESH, AND FRZ^^eggs^44
;;^UTILITY(U,$J,112,6498,1)
;;=12.14^11.15^1.2^158^74.57^^^56^2.09^12^180^130^138^1.44^^^^520^0^.087
;;^UTILITY(U,$J,112,6498,2)
;;=.301^.062^1.727^.12^65^1.547^1.24^.03^548^3.35^4.46^1.45
;;^UTILITY(U,$J,112,6498,20)
;;=Calculated from USDA, Handbook 8-1, It.#1-123. DOE: 031985 #516
;;^UTILITY(U,$J,112,6500,0)
;;=MUFFIN, ENGLISH (THOMAS)^^muffins^56
;;^UTILITY(U,$J,112,6500,1)
;;=9.49^2.51^50.66^247.02^0^^^^^^^^363.37
;;^UTILITY(U,$J,112,6500,20)
;;=BOWES & CHURCH, 13TH EDITION DOE:05/14/85 #516
;;^UTILITY(U,$J,112,6501,0)
;;=BEER,LITE^^oz.^30
;;^UTILITY(U,$J,112,6501,1)
;;=^^.78^26.67
;;^UTILITY(U,$J,112,6501,20)
;;=BOWES & CHURCH, 13TH EDITION DOE: 051485 #516
;;^UTILITY(U,$J,112,6502,0)
;;=BREAD, SALT FREE^^slices^26
;;^UTILITY(U,$J,112,6502,1)
;;=11.17^2.7^41.97^234.85^^^^^^^^^138.6
;;^UTILITY(U,$J,112,6502,2)
;;=^^^^^^^^^^^^^^^^.385
;;^UTILITY(U,$J,112,6502,20)
;;=BOWES & CHURCH, 13TH EDITION DOE: 051485 #516
;;^UTILITY(U,$J,112,6503,0)
;;=PASTA, LOW PROTEIN ANELLINI^^cups^220
;;^UTILITY(U,$J,112,6503,1)
;;=.14^^21.6^90^^^^^^^^1.8^7.92
;;^UTILITY(U,$J,112,6503,20)
;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE:051585 #516
;;^UTILITY(U,$J,112,6504,0)
;;=PASTA, LOW PROTEIN RIGATINI^^cups^130
;;^UTILITY(U,$J,112,6504,1)
;;=.15^^21.8^91^^^^^^^^2^8
;;^UTILITY(U,$J,112,6504,20)
;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051585 #516
;;^UTILITY(U,$J,112,6505,0)
;;=PASTA, LOW PROTEIN TAGLIATELLE^^cups^240
;;^UTILITY(U,$J,112,6505,1)
;;=.13^^21.97^92^^^^^^^^2.02^8.06
;;^UTILITY(U,$J,112,6505,20)
;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051585 #516
;;^UTILITY(U,$J,112,6506,0)
;;=BREAD, LOW PROTEIN^^slices^32
;;^UTILITY(U,$J,112,6506,1)
;;=.94^5.63^49.45^260^^^^8.5^^^20^40^31
;;^UTILITY(U,$J,112,6506,20)
;;=HENKEL CORP. MINNEAPOLIS PROS. LIT. UNDATED, DOE: 051585 #516
;;^UTILITY(U,$J,112,6507,0)
;;=LOW PRO GELATIN^^1/3-cup^100
;;^UTILITY(U,$J,112,6507,1)
;;=.02^0^14^55
;;^UTILITY(U,$J,112,6507,20)
;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED. DOE: 051685 #516
FHINI09E ; ; 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,6488,20)
+2 ;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010785 #516
+3 ;;^UTILITY(U,$J,112,6489,0)
+4 ;;=NUTRISOURCE MINERALS(PRO FORM) LYTE-REST^^packets^24
+5 ;;^UTILITY(U,$J,112,6489,1)
+6 ;;=0^0^54.21^216.8^^^^2710^75.06^1459.5^2710^20^62^62.55^8.34^16.68
+7 ;;^UTILITY(U,$J,112,6489,20)
+8 ;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010785
+9 ;;^UTILITY(U,$J,112,6490,0)
+10 ;;=BAGEL, PLAIN^^bagels^65.2
+11 ;;^UTILITY(U,$J,112,6490,1)
+12 ;;=10.7^1.53^52^260^^^^^2.3^^^^558^^^^^0^0^.535
+13 ;;^UTILITY(U,$J,112,6490,2)
+14 ;;=.367^2.75^^^^^^^^^^^^^^^0
+15 ;;^UTILITY(U,$J,112,6490,20)
+16 ;;=Lenders Bagel Bakery Prod Lit undated. Vit data calc from %RDA. DOE: 010885 #516
+17 ;;^UTILITY(U,$J,112,6491,0)
+18 ;;=NUTRISOURCE MINERALS(AMINO FORM)^^packets^24
+19 ;;^UTILITY(U,$J,112,6491,1)
+20 ;;=0^0^12.5^50^^^^3336^75^1459.5^3336^9174^5421^62.55^8.34^16.68
+21 ;;^UTILITY(U,$J,112,6491,20)
+22 ;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010985 #516
+23 ;;^UTILITY(U,$J,112,6492,0)
+24 ;;=NUTRISOURCE MINERALS(AMINO FORM) LYTE-REST^^packets^24
+25 ;;^UTILITY(U,$J,112,6492,1)
+26 ;;=0^0^50^200^^^^3336^75^1459.5^3336^20^62^62.55^8.34^16.68
+27 ;;^UTILITY(U,$J,112,6492,20)
+28 ;;=Sandoz Nutrition Prod Lit dated Jul 84. DOE: 010985 #516
+29 ;;^UTILITY(U,$J,112,6493,0)
+30 ;;=LOW PRO PASTA (ANELLINI)^^cups^220
+31 ;;^UTILITY(U,$J,112,6493,1)
+32 ;;=.136^^21.82^90.9^^^^^^^^1.82^8
+33 ;;^UTILITY(U,$J,112,6494,0)
+34 ;;=LOW PRO PASTA (RIGATINI)^^cups^130
+35 ;;^UTILITY(U,$J,112,6494,1)
+36 ;;=.154^^21.77^90.79^^^^^^^^2^8
+37 ;;^UTILITY(U,$J,112,6495,0)
+38 ;;=LOW PRO PASTA (TAGLIATELLE)^^cups^240
+39 ;;^UTILITY(U,$J,112,6495,1)
+40 ;;=.125^^21.79^90.83^^^^^^^^2^8
+41 ;;^UTILITY(U,$J,112,6496,0)
+42 ;;=PULMOCARE^DS-070^ml.^1
+43 ;;^UTILITY(U,$J,112,6496,1)
+44 ;;=6.16^9.08^10.4^147.9^77.37^^^104^1.87^41.67^104^170^129.17^2.33^.208^.52^4.71^520.8^31.25^.31
+45 ;;^UTILITY(U,$J,112,6496,2)
+46 ;;=.35^4.17^2.08^.417^83.3^1.25^4.952^.113^2.5^1.35^^5.06
+47 ;;^UTILITY(U,$J,112,6496,3)
+48 ;;=.069^.25^.319^.575^.469^.187^.025^.3^.3^.4^.225^.175^.187^.444^1.23^.112^.65^.331
+49 ;;^UTILITY(U,$J,112,6496,4)
+50 ;;=.004^.009^.035^1.032^^.209^2.309^.052^7.5
+51 ;;^UTILITY(U,$J,112,6496,20)
+52 ;;=Ross Lab Prod. Lit. Sept 1990.
+53 ;;^UTILITY(U,$J,112,6497,0)
+54 ;;=EGG SALAD^^oz.^28.35
+55 ;;^UTILITY(U,$J,112,6497,1)
+56 ;;=8.27^12.8^10.9^191.8^70^^^46.73^1.6^8.4^125^130.7^428.8^.97^^^.63^475.6^4.38^.05
+57 ;;^UTILITY(U,$J,112,6497,2)
+58 ;;=.19^.05^1.18^.07^33.3^.9^3.3^.35^364.7^3^4.4^3.9
+59 ;;^UTILITY(U,$J,112,6497,20)
+60 ;;=VACO Standardized Recipe E-347. DOE: 030785 #516
+61 ;;^UTILITY(U,$J,112,6498,0)
+62 ;;=EGGS, WHOLE, MED, RAW, FRESH, AND FRZ^^eggs^44
+63 ;;^UTILITY(U,$J,112,6498,1)
+64 ;;=12.14^11.15^1.2^158^74.57^^^56^2.09^12^180^130^138^1.44^^^^520^0^.087
+65 ;;^UTILITY(U,$J,112,6498,2)
+66 ;;=.301^.062^1.727^.12^65^1.547^1.24^.03^548^3.35^4.46^1.45
+67 ;;^UTILITY(U,$J,112,6498,20)
+68 ;;=Calculated from USDA, Handbook 8-1, It.#1-123. DOE: 031985 #516
+69 ;;^UTILITY(U,$J,112,6500,0)
+70 ;;=MUFFIN, ENGLISH (THOMAS)^^muffins^56
+71 ;;^UTILITY(U,$J,112,6500,1)
+72 ;;=9.49^2.51^50.66^247.02^0^^^^^^^^363.37
+73 ;;^UTILITY(U,$J,112,6500,20)
+74 ;;=BOWES & CHURCH, 13TH EDITION DOE:05/14/85 #516
+75 ;;^UTILITY(U,$J,112,6501,0)
+76 ;;=BEER,LITE^^oz.^30
+77 ;;^UTILITY(U,$J,112,6501,1)
+78 ;;=^^.78^26.67
+79 ;;^UTILITY(U,$J,112,6501,20)
+80 ;;=BOWES & CHURCH, 13TH EDITION DOE: 051485 #516
+81 ;;^UTILITY(U,$J,112,6502,0)
+82 ;;=BREAD, SALT FREE^^slices^26
+83 ;;^UTILITY(U,$J,112,6502,1)
+84 ;;=11.17^2.7^41.97^234.85^^^^^^^^^138.6
+85 ;;^UTILITY(U,$J,112,6502,2)
+86 ;;=^^^^^^^^^^^^^^^^.385
+87 ;;^UTILITY(U,$J,112,6502,20)
+88 ;;=BOWES & CHURCH, 13TH EDITION DOE: 051485 #516
+89 ;;^UTILITY(U,$J,112,6503,0)
+90 ;;=PASTA, LOW PROTEIN ANELLINI^^cups^220
+91 ;;^UTILITY(U,$J,112,6503,1)
+92 ;;=.14^^21.6^90^^^^^^^^1.8^7.92
+93 ;;^UTILITY(U,$J,112,6503,20)
+94 ;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE:051585 #516
+95 ;;^UTILITY(U,$J,112,6504,0)
+96 ;;=PASTA, LOW PROTEIN RIGATINI^^cups^130
+97 ;;^UTILITY(U,$J,112,6504,1)
+98 ;;=.15^^21.8^91^^^^^^^^2^8
+99 ;;^UTILITY(U,$J,112,6504,20)
+100 ;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051585 #516
+101 ;;^UTILITY(U,$J,112,6505,0)
+102 ;;=PASTA, LOW PROTEIN TAGLIATELLE^^cups^240
+103 ;;^UTILITY(U,$J,112,6505,1)
+104 ;;=.13^^21.97^92^^^^^^^^2.02^8.06
+105 ;;^UTILITY(U,$J,112,6505,20)
+106 ;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051585 #516
+107 ;;^UTILITY(U,$J,112,6506,0)
+108 ;;=BREAD, LOW PROTEIN^^slices^32
+109 ;;^UTILITY(U,$J,112,6506,1)
+110 ;;=.94^5.63^49.45^260^^^^8.5^^^20^40^31
+111 ;;^UTILITY(U,$J,112,6506,20)
+112 ;;=HENKEL CORP. MINNEAPOLIS PROS. LIT. UNDATED, DOE: 051585 #516
+113 ;;^UTILITY(U,$J,112,6507,0)
+114 ;;=LOW PRO GELATIN^^1/3-cup^100
+115 ;;^UTILITY(U,$J,112,6507,1)
+116 ;;=.02^0^14^55
+117 ;;^UTILITY(U,$J,112,6507,20)
+118 ;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED. DOE: 051685 #516
