FHINI0J3 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(114) 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,114,231,"I",1,0)
;;=317^5.25^1918^5.25
;;^UTILITY(U,$J,114,231,"I",2,0)
;;=212^1^2913^1
;;^UTILITY(U,$J,114,231,"I",3,0)
;;=157^.46875^138^.46875
;;^UTILITY(U,$J,114,231,"I",4,0)
;;=847^1.5^2021
;;^UTILITY(U,$J,114,231,"I",5,0)
;;=399^.25^1731^2.194
;;^UTILITY(U,$J,114,231,"I",6,0)
;;=624^.375^371^.375
;;^UTILITY(U,$J,114,231,"X",0)
;;=^^6^6^2890801^^^
;;^UTILITY(U,$J,114,231,"X",1,0)
;;=1) COMBINE INSTANT POTATOES AND MIX.
;;^UTILITY(U,$J,114,231,"X",2,0)
;;=2) COMBINE DRY MILK AND WATER. HEAT TO BELOW BOILING. ADD LIQUID TO POTATO
;;^UTILITY(U,$J,114,231,"X",3,0)
;;= MIXTURE AND LET STAND 5 MINUTES.
;;^UTILITY(U,$J,114,231,"X",4,0)
;;=3) MIX JUICE AND MELTED MARGARINE. STIR GENTLY INTO POTATO MIXTURE.
;;^UTILITY(U,$J,114,231,"X",5,0)
;;= BLEND FOR 5 MINUTES, MANUALLY. DO NOT WHIP.
;;^UTILITY(U,$J,114,231,"X",6,0)
;;=NOTE: ADDITIONAL HOT MILK MAY BE NEEDED TO PRODUCE DESIRED CONSISTENCY.
;;^UTILITY(U,$J,114,232,0)
;;=LS HAMBURGER PATTIE^10^3-OZ RAW^30 MIN^^2^4^Y^E-50^^S
;;^UTILITY(U,$J,114,232,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,232,"E",1,0)
;;=18
;;^UTILITY(U,$J,114,232,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,232,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,232,"I",1,0)
;;=22^1.875^2167^1.875
;;^UTILITY(U,$J,114,232,"I",2,0)
;;=813^2^6502
;;^UTILITY(U,$J,114,232,"I",3,0)
;;=380^.20313^86^.20313
;;^UTILITY(U,$J,114,232,"I",4,0)
;;=788^1^6498
;;^UTILITY(U,$J,114,232,"X",0)
;;=^^5^5^2890724^^
;;^UTILITY(U,$J,114,232,"X",1,0)
;;=1) CRUMBLE DRY BREAD AND COMBINE WITH BEEF GENTLY.
;;^UTILITY(U,$J,114,232,"X",2,0)
;;=2) ADD REMAINING INGREDIENTS; MIX ONLY TO DISTRIBUTE. DO NOT OVERMIX.
;;^UTILITY(U,$J,114,232,"X",3,0)
;;=3) MOLD BY MACHINE, OR USE #10 SCOOP (FLATTEN IF SHAPED WITH SCOOP).
;;^UTILITY(U,$J,114,232,"X",4,0)
;;=4) GRILL TO DESIRED DONENESS.
;;^UTILITY(U,$J,114,232,"X",5,0)
;;= NOTE: DIET TOMATO JUICE MAY BE SUBSTITUTED FOR WATER.
;;^UTILITY(U,$J,114,233,0)
;;=MACARONI CREOLE^100^6-OZ^1-1/2 HR^^10^4^Y^E-89^^S^^.047
;;^UTILITY(U,$J,114,233,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,233,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,233,"I",0)
;;=^114.01PA^14^14
;;^UTILITY(U,$J,114,233,"I",1,0)
;;=777^2.5^1378^2.25
;;^UTILITY(U,$J,114,233,"I",2,0)
;;=289^.125^363^.125
;;^UTILITY(U,$J,114,233,"I",3,0)
;;=879^10.25^199^6.765
;;^UTILITY(U,$J,114,233,"I",4,0)
;;=22^7.25^2167^7.25
;;^UTILITY(U,$J,114,233,"I",5,0)
;;=129^.01042^278^.01042
;;^UTILITY(U,$J,114,233,"I",6,0)
;;=173^.00781^285^.00781
;;^UTILITY(U,$J,114,233,"I",7,0)
;;=192^.0013^288^.0013
;;^UTILITY(U,$J,114,233,"I",8,0)
;;=593^4.5^1950^4.5
;;^UTILITY(U,$J,114,233,"I",9,0)
;;=573^.25^1938^.25
;;^UTILITY(U,$J,114,233,"I",10,0)
;;=1007^.25
;;^UTILITY(U,$J,114,233,"I",11,0)
;;=69^.5625^32^.5625
;;^UTILITY(U,$J,114,233,"I",12,0)
;;=519^8^1318^8
;;^UTILITY(U,$J,114,233,"I",13,0)
;;=847^3^2021
;;^UTILITY(U,$J,114,233,"I",14,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,233,"X",0)
;;=^^6^6^2890801^^^^
;;^UTILITY(U,$J,114,233,"X",1,0)
;;=1) SAUTE ONIONS IN OIL UNTIL CLEAR.
;;^UTILITY(U,$J,114,233,"X",2,0)
;;=2) BROWN PORK AND BEEF IN FAT. ADD SPICES, TOMATO PUREE AND CATSUP,
;;^UTILITY(U,$J,114,233,"X",3,0)
;;= STOCK AND PARMESAN CHEESE.
;;^UTILITY(U,$J,114,233,"X",4,0)
;;=3) COOK MACARONI IN BOILING SALTED WATER AND OIL UNTIL TENDER.
;;^UTILITY(U,$J,114,233,"X",5,0)
;;= DRAIN. ADD TO ABOVE MIXTURE AND MIX.
;;^UTILITY(U,$J,114,233,"X",6,0)
;;=4) ADD CHEESE AND MIX.
;;^UTILITY(U,$J,114,234,0)
;;=SWEET POTATO CASSEROLE^100^3-OZ^15 MIN^^12^7^Y^P-38^^S^^.076
;;^UTILITY(U,$J,114,234,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,234,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,234,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,234,"I",1,0)
;;=317^8.75^1918^8.75
;;^UTILITY(U,$J,114,234,"I",2,0)
;;=230^.09375^1598^.09375
;;^UTILITY(U,$J,114,234,"I",3,0)
;;=1006^2^2021^16.72
;;^UTILITY(U,$J,114,234,"I",4,0)
;;=297^.625^372^.625
;;^UTILITY(U,$J,114,234,"I",5,0)
;;=152^1^927^1
;;^UTILITY(U,$J,114,234,"X",0)
;;=^^6^6^2890724^
;;^UTILITY(U,$J,114,234,"X",1,0)
;;=1) COMBINE POTATO FLAKES AND SALT IN MIXING BOWL.
;;^UTILITY(U,$J,114,234,"X",2,0)
;;=2) ADD HOT WATER (180 DEG). MIX TOGETHER ON LOW SPEED FOR 1 MINUTE.
;;^UTILITY(U,$J,114,234,"X",3,0)
;;=3) ADD MARGARINE AND ALLOW TO STAND FOR 5 MINUTES. SCRAPE DOWN
;;^UTILITY(U,$J,114,234,"X",4,0)
;;= BOWL AND WHIP ON HIGH SPEED 1 MINUTE OR UNTIL SMOOTH.
;;^UTILITY(U,$J,114,234,"X",5,0)
;;=4) PLACE WHIPPED SWEET POTATOES IN PAN; TOP WITH MARSHMALLOWS.
;;^UTILITY(U,$J,114,234,"X",6,0)
;;= BAKE UNTIL LIGHTLY BROWNED.
FHINI0J3 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(114)
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,114,231,"I",1,0)
+2 ;;=317^5.25^1918^5.25
+3 ;;^UTILITY(U,$J,114,231,"I",2,0)
+4 ;;=212^1^2913^1
+5 ;;^UTILITY(U,$J,114,231,"I",3,0)
+6 ;;=157^.46875^138^.46875
+7 ;;^UTILITY(U,$J,114,231,"I",4,0)
+8 ;;=847^1.5^2021
+9 ;;^UTILITY(U,$J,114,231,"I",5,0)
+10 ;;=399^.25^1731^2.194
+11 ;;^UTILITY(U,$J,114,231,"I",6,0)
+12 ;;=624^.375^371^.375
+13 ;;^UTILITY(U,$J,114,231,"X",0)
+14 ;;=^^6^6^2890801^^^
+15 ;;^UTILITY(U,$J,114,231,"X",1,0)
+16 ;;=1) COMBINE INSTANT POTATOES AND MIX.
+17 ;;^UTILITY(U,$J,114,231,"X",2,0)
+18 ;;=2) COMBINE DRY MILK AND WATER. HEAT TO BELOW BOILING. ADD LIQUID TO POTATO
+19 ;;^UTILITY(U,$J,114,231,"X",3,0)
+20 ;;= MIXTURE AND LET STAND 5 MINUTES.
+21 ;;^UTILITY(U,$J,114,231,"X",4,0)
+22 ;;=3) MIX JUICE AND MELTED MARGARINE. STIR GENTLY INTO POTATO MIXTURE.
+23 ;;^UTILITY(U,$J,114,231,"X",5,0)
+24 ;;= BLEND FOR 5 MINUTES, MANUALLY. DO NOT WHIP.
+25 ;;^UTILITY(U,$J,114,231,"X",6,0)
+26 ;;=NOTE: ADDITIONAL HOT MILK MAY BE NEEDED TO PRODUCE DESIRED CONSISTENCY.
+27 ;;^UTILITY(U,$J,114,232,0)
+28 ;;=LS HAMBURGER PATTIE^10^3-OZ RAW^30 MIN^^2^4^Y^E-50^^S
+29 ;;^UTILITY(U,$J,114,232,"E",0)
+30 ;;=^114.05P^2^2
+31 ;;^UTILITY(U,$J,114,232,"E",1,0)
+32 ;;=18
+33 ;;^UTILITY(U,$J,114,232,"E",2,0)
+34 ;;=2
+35 ;;^UTILITY(U,$J,114,232,"I",0)
+36 ;;=^114.01PA^4^4
+37 ;;^UTILITY(U,$J,114,232,"I",1,0)
+38 ;;=22^1.875^2167^1.875
+39 ;;^UTILITY(U,$J,114,232,"I",2,0)
+40 ;;=813^2^6502
+41 ;;^UTILITY(U,$J,114,232,"I",3,0)
+42 ;;=380^.20313^86^.20313
+43 ;;^UTILITY(U,$J,114,232,"I",4,0)
+44 ;;=788^1^6498
+45 ;;^UTILITY(U,$J,114,232,"X",0)
+46 ;;=^^5^5^2890724^^
+47 ;;^UTILITY(U,$J,114,232,"X",1,0)
+48 ;;=1) CRUMBLE DRY BREAD AND COMBINE WITH BEEF GENTLY.
+49 ;;^UTILITY(U,$J,114,232,"X",2,0)
+50 ;;=2) ADD REMAINING INGREDIENTS; MIX ONLY TO DISTRIBUTE. DO NOT OVERMIX.
+51 ;;^UTILITY(U,$J,114,232,"X",3,0)
+52 ;;=3) MOLD BY MACHINE, OR USE #10 SCOOP (FLATTEN IF SHAPED WITH SCOOP).
+53 ;;^UTILITY(U,$J,114,232,"X",4,0)
+54 ;;=4) GRILL TO DESIRED DONENESS.
+55 ;;^UTILITY(U,$J,114,232,"X",5,0)
+56 ;;= NOTE: DIET TOMATO JUICE MAY BE SUBSTITUTED FOR WATER.
+57 ;;^UTILITY(U,$J,114,233,0)
+58 ;;=MACARONI CREOLE^100^6-OZ^1-1/2 HR^^10^4^Y^E-89^^S^^.047
+59 ;;^UTILITY(U,$J,114,233,"E",0)
+60 ;;=^114.05P^1^1
+61 ;;^UTILITY(U,$J,114,233,"E",1,0)
+62 ;;=5
+63 ;;^UTILITY(U,$J,114,233,"I",0)
+64 ;;=^114.01PA^14^14
+65 ;;^UTILITY(U,$J,114,233,"I",1,0)
+66 ;;=777^2.5^1378^2.25
+67 ;;^UTILITY(U,$J,114,233,"I",2,0)
+68 ;;=289^.125^363^.125
+69 ;;^UTILITY(U,$J,114,233,"I",3,0)
+70 ;;=879^10.25^199^6.765
+71 ;;^UTILITY(U,$J,114,233,"I",4,0)
+72 ;;=22^7.25^2167^7.25
+73 ;;^UTILITY(U,$J,114,233,"I",5,0)
+74 ;;=129^.01042^278^.01042
+75 ;;^UTILITY(U,$J,114,233,"I",6,0)
+76 ;;=173^.00781^285^.00781
+77 ;;^UTILITY(U,$J,114,233,"I",7,0)
+78 ;;=192^.0013^288^.0013
+79 ;;^UTILITY(U,$J,114,233,"I",8,0)
+80 ;;=593^4.5^1950^4.5
+81 ;;^UTILITY(U,$J,114,233,"I",9,0)
+82 ;;=573^.25^1938^.25
+83 ;;^UTILITY(U,$J,114,233,"I",10,0)
+84 ;;=1007^.25
+85 ;;^UTILITY(U,$J,114,233,"I",11,0)
+86 ;;=69^.5625^32^.5625
+87 ;;^UTILITY(U,$J,114,233,"I",12,0)
+88 ;;=519^8^1318^8
+89 ;;^UTILITY(U,$J,114,233,"I",13,0)
+90 ;;=847^3^2021
+91 ;;^UTILITY(U,$J,114,233,"I",14,0)
+92 ;;=230^.125^1598^.125
+93 ;;^UTILITY(U,$J,114,233,"X",0)
+94 ;;=^^6^6^2890801^^^^
+95 ;;^UTILITY(U,$J,114,233,"X",1,0)
+96 ;;=1) SAUTE ONIONS IN OIL UNTIL CLEAR.
+97 ;;^UTILITY(U,$J,114,233,"X",2,0)
+98 ;;=2) BROWN PORK AND BEEF IN FAT. ADD SPICES, TOMATO PUREE AND CATSUP,
+99 ;;^UTILITY(U,$J,114,233,"X",3,0)
+100 ;;= STOCK AND PARMESAN CHEESE.
+101 ;;^UTILITY(U,$J,114,233,"X",4,0)
+102 ;;=3) COOK MACARONI IN BOILING SALTED WATER AND OIL UNTIL TENDER.
+103 ;;^UTILITY(U,$J,114,233,"X",5,0)
+104 ;;= DRAIN. ADD TO ABOVE MIXTURE AND MIX.
+105 ;;^UTILITY(U,$J,114,233,"X",6,0)
+106 ;;=4) ADD CHEESE AND MIX.
+107 ;;^UTILITY(U,$J,114,234,0)
+108 ;;=SWEET POTATO CASSEROLE^100^3-OZ^15 MIN^^12^7^Y^P-38^^S^^.076
+109 ;;^UTILITY(U,$J,114,234,"E",0)
+110 ;;=^114.05P^1^1
+111 ;;^UTILITY(U,$J,114,234,"E",1,0)
+112 ;;=22
+113 ;;^UTILITY(U,$J,114,234,"I",0)
+114 ;;=^114.01PA^5^5
+115 ;;^UTILITY(U,$J,114,234,"I",1,0)
+116 ;;=317^8.75^1918^8.75
+117 ;;^UTILITY(U,$J,114,234,"I",2,0)
+118 ;;=230^.09375^1598^.09375
+119 ;;^UTILITY(U,$J,114,234,"I",3,0)
+120 ;;=1006^2^2021^16.72
+121 ;;^UTILITY(U,$J,114,234,"I",4,0)
+122 ;;=297^.625^372^.625
+123 ;;^UTILITY(U,$J,114,234,"I",5,0)
+124 ;;=152^1^927^1
+125 ;;^UTILITY(U,$J,114,234,"X",0)
+126 ;;=^^6^6^2890724^
+127 ;;^UTILITY(U,$J,114,234,"X",1,0)
+128 ;;=1) COMBINE POTATO FLAKES AND SALT IN MIXING BOWL.
+129 ;;^UTILITY(U,$J,114,234,"X",2,0)
+130 ;;=2) ADD HOT WATER (180 DEG). MIX TOGETHER ON LOW SPEED FOR 1 MINUTE.
+131 ;;^UTILITY(U,$J,114,234,"X",3,0)
+132 ;;=3) ADD MARGARINE AND ALLOW TO STAND FOR 5 MINUTES. SCRAPE DOWN
+133 ;;^UTILITY(U,$J,114,234,"X",4,0)
+134 ;;= BOWL AND WHIP ON HIGH SPEED 1 MINUTE OR UNTIL SMOOTH.
+135 ;;^UTILITY(U,$J,114,234,"X",5,0)
+136 ;;=4) PLACE WHIPPED SWEET POTATOES IN PAN; TOP WITH MARSHMALLOWS.
+137 ;;^UTILITY(U,$J,114,234,"X",6,0)
+138 ;;= BAKE UNTIL LIGHTLY BROWNED.
