FHINI09F ; ; 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,6508,0)
;;=LOW PRO RUSKS^^slices^10
;;^UTILITY(U,$J,112,6508,1)
;;=1^9^80^430^^^^^^^^50^30
;;^UTILITY(U,$J,112,6508,20)
;;=HENKEL CORP. PROD. LIT. UNDATED, DOE: 051685 #516
;;^UTILITY(U,$J,112,6509,0)
;;=LOW PRO COOKIES (BUTTERSCOTCH)^^cookies^14
;;^UTILITY(U,$J,112,6509,1)
;;=.22^28.56^71.4^499.8^^^^^^^28.56^57.12^142.8
;;^UTILITY(U,$J,112,6509,20)
;;=HENKEL CORP., MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051685 #516
;;^UTILITY(U,$J,112,6510,0)
;;=CAL PLUS^^cups^128
;;^UTILITY(U,$J,112,6510,1)
;;=0^0^94^400^6^^^^^^^6.9^110
;;^UTILITY(U,$J,112,6510,20)
;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051685 #516
;;^UTILITY(U,$J,112,6511,0)
;;=BIG FRANKS (LOMA LINDA)^^franks^51
;;^UTILITY(U,$J,112,6511,1)
;;=20^10^8^200^58^^^33^1.8^^^150^430^1.2^^^^^^1.1
;;^UTILITY(U,$J,112,6511,2)
;;=1.2^16^1.6^.98^^2400
;;^UTILITY(U,$J,112,6511,20)
;;=Loma Linda Foods, INC. Prod. Lit. dated 4/85. DOE: 052285 #516
;;^UTILITY(U,$J,112,6512,0)
;;=CHICKEN SUPREME (VEGETARIAN)^^slices^57
;;^UTILITY(U,$J,112,6512,1)
;;=17^14^7^220^59^^^35^1.3^^^330^790^.7^^^^^^1.1
;;^UTILITY(U,$J,112,6512,2)
;;=40^5.3^2.6^70^^2100
;;^UTILITY(U,$J,112,6512,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 052285 #516
;;^UTILITY(U,$J,112,6513,0)
;;=DINNER CUTS (VEGETARIAN)^^cuts^60
;;^UTILITY(U,$J,112,6513,1)
;;=21^1^4^110^59^^^35^2^^^180^550^1.3^^^^^^.2
;;^UTILITY(U,$J,112,6513,2)
;;=.27^.96^.21^.48^^1400
;;^UTILITY(U,$J,112,6513,20)
;;=Loma Linda Food INC Prod. Lit. dated 4/85. DOE 052285 #516
;;^UTILITY(U,$J,112,6514,0)
;;=DINNER CUTS NSA (VEGETARIAN)^^cuts^50
;;^UTILITY(U,$J,112,6514,1)
;;=21^1^4^110^71^^^20^2^^^75^30^1.3^^^^^^.3
;;^UTILITY(U,$J,112,6514,2)
;;=.27^.96^.21^.48^^1400
;;^UTILITY(U,$J,112,6514,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6515,0)
;;=FRIED CHICKEN (VEGETARIAN)^^pieces^42.5
;;^UTILITY(U,$J,112,6515,1)
;;=11^12^5^170^70^^^23^1.7^^^300^400^.65^^^^^^.7
;;^UTILITY(U,$J,112,6515,2)
;;=.48^4.7^1.8^.5^^2100
;;^UTILITY(U,$J,112,6515,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6516,0)
;;=LINKETTS (VEGETARIAN)^^links^37
;;^UTILITY(U,$J,112,6516,1)
;;=20^11^7^210^59^^^27^2.4^^^100^460^1.2^^^^^^.5
;;^UTILITY(U,$J,112,6516,2)
;;=.6^8.1^1.1^.5^^2000
;;^UTILITY(U,$J,112,6516,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6517,0)
;;=LITTLE LINKS (VEGETARIAN)^^links^23
;;^UTILITY(U,$J,112,6517,1)
;;=18^11^5^190^63^^^27^2.4^^^90^450^1.3^^^^^^1.2
;;^UTILITY(U,$J,112,6517,2)
;;=.9^13^3.3^.35^^4000
;;^UTILITY(U,$J,112,6517,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6518,0)
;;=NUTEENA (VEGETARIAN)^^slices^67
;;^UTILITY(U,$J,112,6518,1)
;;=12^18^8^240^59^^^32^1.8^^^300^180^1.3^^^^^^.7
;;^UTILITY(U,$J,112,6518,2)
;;=.86^21^4.2^.67^^2100
;;^UTILITY(U,$J,112,6518,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6519,0)
;;=OCEAN PLATTER (VEGETARIAN)^^slices^57
;;^UTILITY(U,$J,112,6519,1)
;;=14^14^9^220^61^^^45^1.3^^^290^460^.6^^^^^^1.1
;;^UTILITY(U,$J,112,6519,2)
;;=.5^5.3^2.6^.7^^2300
;;^UTILITY(U,$J,112,6519,20)
;;=Loma Linda Food Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6520,0)
;;=PATTY MIX (VEGETARIAN)^^patties^57
;;^UTILITY(U,$J,112,6520,1)
;;=16^16^7^240^57^^^54^1.3^^^270^570^.5^^^^^^1.1
;;^UTILITY(U,$J,112,6520,2)
;;=.6^6.2^2.6^1.1^^2800
;;^UTILITY(U,$J,112,6520,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6521,0)
;;=PROTEENA (VEGETARIAN)^^slices^71
;;^UTILITY(U,$J,112,6521,1)
;;=24^9^7^200^57^^^31^2.3^^^400^650^1.7^^^^^^.9
;;^UTILITY(U,$J,112,6521,2)
;;=.7^11^3.5^.7^^2100
;;^UTILITY(U,$J,112,6521,20)
;;=Loma Linda Food Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6522,0)
;;=REDI-BURGER (VEGETARIAN)^^slices^67
;;^UTILITY(U,$J,112,6522,1)
;;=21^9^8^200^58^^^29^2.1^^^180^550^1.8^^^^^^.9
;;^UTILITY(U,$J,112,6522,2)
;;=.6^10^2.3^1.2^^2400
;;^UTILITY(U,$J,112,6522,20)
;;=Loma Linda INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6523,0)
;;=SAVORY DINNER LOAF (VEGETARIAN)^^slices^57
;;^UTILITY(U,$J,112,6523,1)
;;=16^13^7^210^60^^^45^1.2^^^250^670^.5^^^^^^1.1
;;^UTILITY(U,$J,112,6523,2)
;;=.5^6.5^2.9^1^^2100
;;^UTILITY(U,$J,112,6523,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
;;^UTILITY(U,$J,112,6524,0)
;;=SIZZLE FRANK (VEGETARIAN)^^franks^35
FHINI09F ; ; 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,6508,0)
+2 ;;=LOW PRO RUSKS^^slices^10
+3 ;;^UTILITY(U,$J,112,6508,1)
+4 ;;=1^9^80^430^^^^^^^^50^30
+5 ;;^UTILITY(U,$J,112,6508,20)
+6 ;;=HENKEL CORP. PROD. LIT. UNDATED, DOE: 051685 #516
+7 ;;^UTILITY(U,$J,112,6509,0)
+8 ;;=LOW PRO COOKIES (BUTTERSCOTCH)^^cookies^14
+9 ;;^UTILITY(U,$J,112,6509,1)
+10 ;;=.22^28.56^71.4^499.8^^^^^^^28.56^57.12^142.8
+11 ;;^UTILITY(U,$J,112,6509,20)
+12 ;;=HENKEL CORP., MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051685 #516
+13 ;;^UTILITY(U,$J,112,6510,0)
+14 ;;=CAL PLUS^^cups^128
+15 ;;^UTILITY(U,$J,112,6510,1)
+16 ;;=0^0^94^400^6^^^^^^^6.9^110
+17 ;;^UTILITY(U,$J,112,6510,20)
+18 ;;=HENKEL CORP. MINNEAPOLIS PROD. LIT. UNDATED, DOE: 051685 #516
+19 ;;^UTILITY(U,$J,112,6511,0)
+20 ;;=BIG FRANKS (LOMA LINDA)^^franks^51
+21 ;;^UTILITY(U,$J,112,6511,1)
+22 ;;=20^10^8^200^58^^^33^1.8^^^150^430^1.2^^^^^^1.1
+23 ;;^UTILITY(U,$J,112,6511,2)
+24 ;;=1.2^16^1.6^.98^^2400
+25 ;;^UTILITY(U,$J,112,6511,20)
+26 ;;=Loma Linda Foods, INC. Prod. Lit. dated 4/85. DOE: 052285 #516
+27 ;;^UTILITY(U,$J,112,6512,0)
+28 ;;=CHICKEN SUPREME (VEGETARIAN)^^slices^57
+29 ;;^UTILITY(U,$J,112,6512,1)
+30 ;;=17^14^7^220^59^^^35^1.3^^^330^790^.7^^^^^^1.1
+31 ;;^UTILITY(U,$J,112,6512,2)
+32 ;;=40^5.3^2.6^70^^2100
+33 ;;^UTILITY(U,$J,112,6512,20)
+34 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 052285 #516
+35 ;;^UTILITY(U,$J,112,6513,0)
+36 ;;=DINNER CUTS (VEGETARIAN)^^cuts^60
+37 ;;^UTILITY(U,$J,112,6513,1)
+38 ;;=21^1^4^110^59^^^35^2^^^180^550^1.3^^^^^^.2
+39 ;;^UTILITY(U,$J,112,6513,2)
+40 ;;=.27^.96^.21^.48^^1400
+41 ;;^UTILITY(U,$J,112,6513,20)
+42 ;;=Loma Linda Food INC Prod. Lit. dated 4/85. DOE 052285 #516
+43 ;;^UTILITY(U,$J,112,6514,0)
+44 ;;=DINNER CUTS NSA (VEGETARIAN)^^cuts^50
+45 ;;^UTILITY(U,$J,112,6514,1)
+46 ;;=21^1^4^110^71^^^20^2^^^75^30^1.3^^^^^^.3
+47 ;;^UTILITY(U,$J,112,6514,2)
+48 ;;=.27^.96^.21^.48^^1400
+49 ;;^UTILITY(U,$J,112,6514,20)
+50 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
+51 ;;^UTILITY(U,$J,112,6515,0)
+52 ;;=FRIED CHICKEN (VEGETARIAN)^^pieces^42.5
+53 ;;^UTILITY(U,$J,112,6515,1)
+54 ;;=11^12^5^170^70^^^23^1.7^^^300^400^.65^^^^^^.7
+55 ;;^UTILITY(U,$J,112,6515,2)
+56 ;;=.48^4.7^1.8^.5^^2100
+57 ;;^UTILITY(U,$J,112,6515,20)
+58 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
+59 ;;^UTILITY(U,$J,112,6516,0)
+60 ;;=LINKETTS (VEGETARIAN)^^links^37
+61 ;;^UTILITY(U,$J,112,6516,1)
+62 ;;=20^11^7^210^59^^^27^2.4^^^100^460^1.2^^^^^^.5
+63 ;;^UTILITY(U,$J,112,6516,2)
+64 ;;=.6^8.1^1.1^.5^^2000
+65 ;;^UTILITY(U,$J,112,6516,20)
+66 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
+67 ;;^UTILITY(U,$J,112,6517,0)
+68 ;;=LITTLE LINKS (VEGETARIAN)^^links^23
+69 ;;^UTILITY(U,$J,112,6517,1)
+70 ;;=18^11^5^190^63^^^27^2.4^^^90^450^1.3^^^^^^1.2
+71 ;;^UTILITY(U,$J,112,6517,2)
+72 ;;=.9^13^3.3^.35^^4000
+73 ;;^UTILITY(U,$J,112,6517,20)
+74 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
+75 ;;^UTILITY(U,$J,112,6518,0)
+76 ;;=NUTEENA (VEGETARIAN)^^slices^67
+77 ;;^UTILITY(U,$J,112,6518,1)
+78 ;;=12^18^8^240^59^^^32^1.8^^^300^180^1.3^^^^^^.7
+79 ;;^UTILITY(U,$J,112,6518,2)
+80 ;;=.86^21^4.2^.67^^2100
+81 ;;^UTILITY(U,$J,112,6518,20)
+82 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
+83 ;;^UTILITY(U,$J,112,6519,0)
+84 ;;=OCEAN PLATTER (VEGETARIAN)^^slices^57
+85 ;;^UTILITY(U,$J,112,6519,1)
+86 ;;=14^14^9^220^61^^^45^1.3^^^290^460^.6^^^^^^1.1
+87 ;;^UTILITY(U,$J,112,6519,2)
+88 ;;=.5^5.3^2.6^.7^^2300
+89 ;;^UTILITY(U,$J,112,6519,20)
+90 ;;=Loma Linda Food Prod. Lit. dated 4/85. DOE 052285. #516
+91 ;;^UTILITY(U,$J,112,6520,0)
+92 ;;=PATTY MIX (VEGETARIAN)^^patties^57
+93 ;;^UTILITY(U,$J,112,6520,1)
+94 ;;=16^16^7^240^57^^^54^1.3^^^270^570^.5^^^^^^1.1
+95 ;;^UTILITY(U,$J,112,6520,2)
+96 ;;=.6^6.2^2.6^1.1^^2800
+97 ;;^UTILITY(U,$J,112,6520,20)
+98 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
+99 ;;^UTILITY(U,$J,112,6521,0)
+100 ;;=PROTEENA (VEGETARIAN)^^slices^71
+101 ;;^UTILITY(U,$J,112,6521,1)
+102 ;;=24^9^7^200^57^^^31^2.3^^^400^650^1.7^^^^^^.9
+103 ;;^UTILITY(U,$J,112,6521,2)
+104 ;;=.7^11^3.5^.7^^2100
+105 ;;^UTILITY(U,$J,112,6521,20)
+106 ;;=Loma Linda Food Prod. Lit. dated 4/85. DOE 052285. #516
+107 ;;^UTILITY(U,$J,112,6522,0)
+108 ;;=REDI-BURGER (VEGETARIAN)^^slices^67
+109 ;;^UTILITY(U,$J,112,6522,1)
+110 ;;=21^9^8^200^58^^^29^2.1^^^180^550^1.8^^^^^^.9
+111 ;;^UTILITY(U,$J,112,6522,2)
+112 ;;=.6^10^2.3^1.2^^2400
+113 ;;^UTILITY(U,$J,112,6522,20)
+114 ;;=Loma Linda INC. Prod. Lit. dated 4/85. DOE 052285. #516
+115 ;;^UTILITY(U,$J,112,6523,0)
+116 ;;=SAVORY DINNER LOAF (VEGETARIAN)^^slices^57
+117 ;;^UTILITY(U,$J,112,6523,1)
+118 ;;=16^13^7^210^60^^^45^1.2^^^250^670^.5^^^^^^1.1
+119 ;;^UTILITY(U,$J,112,6523,2)
+120 ;;=.5^6.5^2.9^1^^2100
+121 ;;^UTILITY(U,$J,112,6523,20)
+122 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 052285. #516
+123 ;;^UTILITY(U,$J,112,6524,0)
+124 ;;=SIZZLE FRANK (VEGETARIAN)^^franks^35
