FHINI09H ; ; 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,6539,1)
;;=13^3^68^350^4^^^110^6^^^800^410^3.4^^^^^^.4
;;^UTILITY(U,$J,112,6539,2)
;;=.3^3^.91^.29
;;^UTILITY(U,$J,112,6539,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6540,0)
;;=LOMA LINDA 7 GRAIN CRUNCHY (VEGETARIAN)^^oz.^28
;;^UTILITY(U,$J,112,6540,1)
;;=8^8^76^410^5^^^45^1.5^^^310^330^1.3^^^^^^.05
;;^UTILITY(U,$J,112,6540,2)
;;=.14^2.5^.52^.12
;;^UTILITY(U,$J,112,6540,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6541,0)
;;=LOMA LINDA 7 GRAIN NO SUGAR (VEGETARIAN)^^oz.^28
;;^UTILITY(U,$J,112,6541,1)
;;=17^3^73^390^4^^^60^2^^^500^260^2^^^^^^.11
;;^UTILITY(U,$J,112,6541,2)
;;=.13^3.8^1.2^.2
;;^UTILITY(U,$J,112,6541,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6542,0)
;;=RUSKETS BISCUITS (VEGETARIAN)^^biscuits^15.5
;;^UTILITY(U,$J,112,6542,1)
;;=12^2^75^370^7^^^45^10^^^330^270^1.9^^^^^^1
;;^UTILITY(U,$J,112,6542,2)
;;=1.4^9.7
;;^UTILITY(U,$J,112,6542,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6543,0)
;;=BOLOGNA (VEGETARIAN)^^slices^28.5
;;^UTILITY(U,$J,112,6543,1)
;;=25^16^9^280^46^^^41^2.3^^^280^860^1.6^^^^^^.95
;;^UTILITY(U,$J,112,6543,2)
;;=.55^11^3.5^1.1^^2600
;;^UTILITY(U,$J,112,6543,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 060485. #516
;;^UTILITY(U,$J,112,6544,0)
;;=BOLOGNA THICK SLICE (VEGETARIAN)^^slices^71
;;^UTILITY(U,$J,112,6544,1)
;;=25^16^9^280^46^^^41^2.3^^^280^860^1.6^^^^^^.95
;;^UTILITY(U,$J,112,6544,2)
;;=.55^11^3.5^1.1^^2600
;;^UTILITY(U,$J,112,6544,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6545,0)
;;=CORN DOGS (VEGETARIAN)^^pieces^73
;;^UTILITY(U,$J,112,6545,1)
;;=10^14^29^280^44^^^28^1^^^200^850^.6^^^^^^.8
;;^UTILITY(U,$J,112,6545,2)
;;=.85^8.5^3.5^1.1^^3400
;;^UTILITY(U,$J,112,6545,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6546,0)
;;=FRIED CHICKEN (FZ) (VEGETARIAN)^^pieces^57
;;^UTILITY(U,$J,112,6546,1)
;;=22^25^4^330^45^^^45^1.9^^^140^900^.52^^^^^^1.1
;;^UTILITY(U,$J,112,6546,2)
;;=.9^16^4.4^1.1^^3200
;;^UTILITY(U,$J,112,6546,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6547,0)
;;=GRIDDLE STEAK (VEGETARIAN)^^steaks^56
;;^UTILITY(U,$J,112,6547,1)
;;=23^23^9^340^41^^^70^1.3^^^530^820^1.1^^^^^^1.1
;;^UTILITY(U,$J,112,6547,2)
;;=.7^8.8^3.5^1.2^^4200
;;^UTILITY(U,$J,112,6547,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6548,0)
;;=OCEAN FILLET (VEGETARIAN)^^fillets^56
;;^UTILITY(U,$J,112,6548,1)
;;=23^18^9^290^45^^^95^2^^^600^490^1.4^^^^^^1.1
;;^UTILITY(U,$J,112,6548,2)
;;=.9^12^4.4^1.5^^4200
;;^UTILITY(U,$J,112,6548,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6549,0)
;;=SIZZLE BURGER (VEGETARIAN)^^burgers^71
;;^UTILITY(U,$J,112,6549,1)
;;=21^15^19^300^40^^^69^2.2^^^250^450^1.1^^^^^^.9
;;^UTILITY(U,$J,112,6549,2)
;;=.72^12^2.1^1.1^^2500
;;^UTILITY(U,$J,112,6549,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6550,0)
;;=SWEDISH MEATBALLS (VEGETARIAN)^^servings^70
;;^UTILITY(U,$J,112,6550,1)
;;=32^12^10^280^42^^^46^2.5^^^240^600^.93^^^^^^.7
;;^UTILITY(U,$J,112,6550,2)
;;=.6^7^2.1^1^^3400
;;^UTILITY(U,$J,112,6550,20)
;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
;;^UTILITY(U,$J,112,6551,0)
;;=VITAMIN A^^caps.^100
;;^UTILITY(U,$J,112,6551,1)
;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^50000^0^0
;;^UTILITY(U,$J,112,6551,2)
;;=0^0^0^0^0^0^0^0^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6551,20)
;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
;;^UTILITY(U,$J,112,6552,0)
;;=VITAMIN B-12 (1000 mcg/ml)^^inj.^100
;;^UTILITY(U,$J,112,6552,1)
;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,6552,2)
;;=0^0^0^0^0^1000^0^0^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6552,20)
;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
;;^UTILITY(U,$J,112,6553,0)
;;=FOLIC ACID^^tabs.^100
;;^UTILITY(U,$J,112,6553,1)
;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,6553,2)
;;=0^0^0^0^1000^0^0^0^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6553,20)
;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
;;^UTILITY(U,$J,112,6554,0)
;;=VITAMIN B-12 (100 mcg/ml)^^inj.^100
;;^UTILITY(U,$J,112,6554,1)
;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,6554,2)
;;=0^0^0^0^0^100^0^0^0^0^0^0^^^^^0
FHINI09H ; ; 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,6539,1)
+2 ;;=13^3^68^350^4^^^110^6^^^800^410^3.4^^^^^^.4
+3 ;;^UTILITY(U,$J,112,6539,2)
+4 ;;=.3^3^.91^.29
+5 ;;^UTILITY(U,$J,112,6539,20)
+6 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+7 ;;^UTILITY(U,$J,112,6540,0)
+8 ;;=LOMA LINDA 7 GRAIN CRUNCHY (VEGETARIAN)^^oz.^28
+9 ;;^UTILITY(U,$J,112,6540,1)
+10 ;;=8^8^76^410^5^^^45^1.5^^^310^330^1.3^^^^^^.05
+11 ;;^UTILITY(U,$J,112,6540,2)
+12 ;;=.14^2.5^.52^.12
+13 ;;^UTILITY(U,$J,112,6540,20)
+14 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+15 ;;^UTILITY(U,$J,112,6541,0)
+16 ;;=LOMA LINDA 7 GRAIN NO SUGAR (VEGETARIAN)^^oz.^28
+17 ;;^UTILITY(U,$J,112,6541,1)
+18 ;;=17^3^73^390^4^^^60^2^^^500^260^2^^^^^^.11
+19 ;;^UTILITY(U,$J,112,6541,2)
+20 ;;=.13^3.8^1.2^.2
+21 ;;^UTILITY(U,$J,112,6541,20)
+22 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+23 ;;^UTILITY(U,$J,112,6542,0)
+24 ;;=RUSKETS BISCUITS (VEGETARIAN)^^biscuits^15.5
+25 ;;^UTILITY(U,$J,112,6542,1)
+26 ;;=12^2^75^370^7^^^45^10^^^330^270^1.9^^^^^^1
+27 ;;^UTILITY(U,$J,112,6542,2)
+28 ;;=1.4^9.7
+29 ;;^UTILITY(U,$J,112,6542,20)
+30 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+31 ;;^UTILITY(U,$J,112,6543,0)
+32 ;;=BOLOGNA (VEGETARIAN)^^slices^28.5
+33 ;;^UTILITY(U,$J,112,6543,1)
+34 ;;=25^16^9^280^46^^^41^2.3^^^280^860^1.6^^^^^^.95
+35 ;;^UTILITY(U,$J,112,6543,2)
+36 ;;=.55^11^3.5^1.1^^2600
+37 ;;^UTILITY(U,$J,112,6543,20)
+38 ;;=Loma Linda Food INC. Prod. Lit. dated 4/85. DOE 060485. #516
+39 ;;^UTILITY(U,$J,112,6544,0)
+40 ;;=BOLOGNA THICK SLICE (VEGETARIAN)^^slices^71
+41 ;;^UTILITY(U,$J,112,6544,1)
+42 ;;=25^16^9^280^46^^^41^2.3^^^280^860^1.6^^^^^^.95
+43 ;;^UTILITY(U,$J,112,6544,2)
+44 ;;=.55^11^3.5^1.1^^2600
+45 ;;^UTILITY(U,$J,112,6544,20)
+46 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+47 ;;^UTILITY(U,$J,112,6545,0)
+48 ;;=CORN DOGS (VEGETARIAN)^^pieces^73
+49 ;;^UTILITY(U,$J,112,6545,1)
+50 ;;=10^14^29^280^44^^^28^1^^^200^850^.6^^^^^^.8
+51 ;;^UTILITY(U,$J,112,6545,2)
+52 ;;=.85^8.5^3.5^1.1^^3400
+53 ;;^UTILITY(U,$J,112,6545,20)
+54 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+55 ;;^UTILITY(U,$J,112,6546,0)
+56 ;;=FRIED CHICKEN (FZ) (VEGETARIAN)^^pieces^57
+57 ;;^UTILITY(U,$J,112,6546,1)
+58 ;;=22^25^4^330^45^^^45^1.9^^^140^900^.52^^^^^^1.1
+59 ;;^UTILITY(U,$J,112,6546,2)
+60 ;;=.9^16^4.4^1.1^^3200
+61 ;;^UTILITY(U,$J,112,6546,20)
+62 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+63 ;;^UTILITY(U,$J,112,6547,0)
+64 ;;=GRIDDLE STEAK (VEGETARIAN)^^steaks^56
+65 ;;^UTILITY(U,$J,112,6547,1)
+66 ;;=23^23^9^340^41^^^70^1.3^^^530^820^1.1^^^^^^1.1
+67 ;;^UTILITY(U,$J,112,6547,2)
+68 ;;=.7^8.8^3.5^1.2^^4200
+69 ;;^UTILITY(U,$J,112,6547,20)
+70 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+71 ;;^UTILITY(U,$J,112,6548,0)
+72 ;;=OCEAN FILLET (VEGETARIAN)^^fillets^56
+73 ;;^UTILITY(U,$J,112,6548,1)
+74 ;;=23^18^9^290^45^^^95^2^^^600^490^1.4^^^^^^1.1
+75 ;;^UTILITY(U,$J,112,6548,2)
+76 ;;=.9^12^4.4^1.5^^4200
+77 ;;^UTILITY(U,$J,112,6548,20)
+78 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+79 ;;^UTILITY(U,$J,112,6549,0)
+80 ;;=SIZZLE BURGER (VEGETARIAN)^^burgers^71
+81 ;;^UTILITY(U,$J,112,6549,1)
+82 ;;=21^15^19^300^40^^^69^2.2^^^250^450^1.1^^^^^^.9
+83 ;;^UTILITY(U,$J,112,6549,2)
+84 ;;=.72^12^2.1^1.1^^2500
+85 ;;^UTILITY(U,$J,112,6549,20)
+86 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+87 ;;^UTILITY(U,$J,112,6550,0)
+88 ;;=SWEDISH MEATBALLS (VEGETARIAN)^^servings^70
+89 ;;^UTILITY(U,$J,112,6550,1)
+90 ;;=32^12^10^280^42^^^46^2.5^^^240^600^.93^^^^^^.7
+91 ;;^UTILITY(U,$J,112,6550,2)
+92 ;;=.6^7^2.1^1^^3400
+93 ;;^UTILITY(U,$J,112,6550,20)
+94 ;;=Loma Linda Food INC. Prod. Lit. dated 4-85. DOE 060485. #516
+95 ;;^UTILITY(U,$J,112,6551,0)
+96 ;;=VITAMIN A^^caps.^100
+97 ;;^UTILITY(U,$J,112,6551,1)
+98 ;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^50000^0^0
+99 ;;^UTILITY(U,$J,112,6551,2)
+100 ;;=0^0^0^0^0^0^0^0^0^0^0^0^^^^^0
+101 ;;^UTILITY(U,$J,112,6551,20)
+102 ;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
+103 ;;^UTILITY(U,$J,112,6552,0)
+104 ;;=VITAMIN B-12 (1000 mcg/ml)^^inj.^100
+105 ;;^UTILITY(U,$J,112,6552,1)
+106 ;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^0^0^0
+107 ;;^UTILITY(U,$J,112,6552,2)
+108 ;;=0^0^0^0^0^1000^0^0^0^0^0^0^^^^^0
+109 ;;^UTILITY(U,$J,112,6552,20)
+110 ;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
+111 ;;^UTILITY(U,$J,112,6553,0)
+112 ;;=FOLIC ACID^^tabs.^100
+113 ;;^UTILITY(U,$J,112,6553,1)
+114 ;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^0^0^0
+115 ;;^UTILITY(U,$J,112,6553,2)
+116 ;;=0^0^0^0^1000^0^0^0^0^0^0^0^^^^^0
+117 ;;^UTILITY(U,$J,112,6553,20)
+118 ;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
+119 ;;^UTILITY(U,$J,112,6554,0)
+120 ;;=VITAMIN B-12 (100 mcg/ml)^^inj.^100
+121 ;;^UTILITY(U,$J,112,6554,1)
+122 ;;=0^0^0^0^0^^^0^0^0^0^0^0^0^0^0^0^0^0^0
+123 ;;^UTILITY(U,$J,112,6554,2)
+124 ;;=0^0^0^0^0^100^0^0^0^0^0^0^^^^^0
