FHINI0I7 ; ; 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)
;;=^FH(114,
;;^UTILITY(U,$J,114,0)
;;=RECIPE^114^513^501
;;^UTILITY(U,$J,114,1,0)
;;=BACON^100^2-EACH^1-2 MIN^^1^5^N
;;^UTILITY(U,$J,114,1,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,1,"I",1,0)
;;=963^12.5^212^12.5
;;^UTILITY(U,$J,114,1,"X",0)
;;=^^3^3^2890727^^^^
;;^UTILITY(U,$J,114,1,"X",1,0)
;;=1) PLACE PARCHMENT LAYER ON SHEET PAN.
;;^UTILITY(U,$J,114,1,"X",2,0)
;;=2) BAKE IN 450 DEGREE OVEN FOR 3 1/2 TO 5 MINUTES.
;;^UTILITY(U,$J,114,1,"X",3,0)
;;=3) REMOVE FROM OVEN AND PAN.
;;^UTILITY(U,$J,114,2,0)
;;=GRILLED HAM^100^3-OZ^25 MIN^^1^4^N^HAM, GRILLED
;;^UTILITY(U,$J,114,2,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,2,"I",1,0)
;;=802^18.75^221^18.75
;;^UTILITY(U,$J,114,2,"X",0)
;;=^^2^2^2890801^^^^
;;^UTILITY(U,$J,114,2,"X",1,0)
;;=GRILL SLICED HAM SLOWLY, TURNING OCCASIONALLY. DO NOT OVERCOOK.
;;^UTILITY(U,$J,114,2,"X",2,0)
;;=CLEAR GRIDDLE OF FAT AS IT ACCUMULATES.
;;^UTILITY(U,$J,114,3,0)
;;=GRAPEFRUIT JUICE, BULK^100^4-FLOZ^^^^1^N^A-4^^C^^.097
;;^UTILITY(U,$J,114,3,"I",0)
;;=^114.01PA^2^1
;;^UTILITY(U,$J,114,3,"I",2,0)
;;=144^3.125^1692
;;^UTILITY(U,$J,114,3,"X",0)
;;=^^1^1^2890815^^^^
;;^UTILITY(U,$J,114,3,"X",1,0)
;;=PORTION 4 OZ SERVING.
;;^UTILITY(U,$J,114,4,0)
;;=SHREDDED WHEAT^100^1-EACH^^^^2^N^CEREAL, SHREDDED WHEAT
;;^UTILITY(U,$J,114,4,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,4,"I",1,0)
;;=58^100^1184
;;^UTILITY(U,$J,114,5,0)
;;=JELLY^100^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,5,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,5,"I",1,0)
;;=140^100^1264
;;^UTILITY(U,$J,114,5,"X",0)
;;=^^1^1^2871124^^
;;^UTILITY(U,$J,114,5,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO MENU AND DIET CARD.
;;^UTILITY(U,$J,114,6,0)
;;=DIET JELLY^100^1-EACH^^^^13^N^JELLY, DIET^^I
;;^UTILITY(U,$J,114,6,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,6,"I",1,0)
;;=139^100^6419
;;^UTILITY(U,$J,114,6,"X",0)
;;=^^1^1^2850725^
;;^UTILITY(U,$J,114,6,"X",1,0)
;;=PLACE 1 UNIT OF JELLY ON TRAY.
;;^UTILITY(U,$J,114,7,0)
;;=WHITE TOAST^100^1-EACH^^^^12^N^TOAST, WHITE
;;^UTILITY(U,$J,114,7,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,7,"I",1,0)
;;=760^100^823
;;^UTILITY(U,$J,114,7,"X",0)
;;=^^1^1^2860219^^
;;^UTILITY(U,$J,114,7,"X",1,0)
;;=TOAST EACH SLICE OF BREAD IN TOASTER UNTIL GOLDEN.
;;^UTILITY(U,$J,114,8,0)
;;=PUFFED WHEAT IND^100^1-EACH^^^^2^N^C-39^^R
;;^UTILITY(U,$J,114,8,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,8,"I",1,0)
;;=62^100^1192
;;^UTILITY(U,$J,114,8,"X",0)
;;=^^1^1^2890724^^
;;^UTILITY(U,$J,114,8,"X",1,0)
;;=PLACE ONE BOX ON TRAY.
;;^UTILITY(U,$J,114,9,0)
;;=EGGNOG^100^1-EACH^^^^11^N
;;^UTILITY(U,$J,114,9,"I",0)
;;=^114.01PA^2^1
;;^UTILITY(U,$J,114,9,"I",2,0)
;;=678^100^57
;;^UTILITY(U,$J,114,9,"X",0)
;;=^^1^1^2890814^^^^
;;^UTILITY(U,$J,114,9,"X",1,0)
;;=PLACE ONE CHILLED CAN ON TRAY.
;;^UTILITY(U,$J,114,10,0)
;;=MILK^100^1-EACH^^^^11^N^MILK, WHOLE^^I
;;^UTILITY(U,$J,114,10,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,10,"I",1,0)
;;=816^100^74
;;^UTILITY(U,$J,114,10,"X",0)
;;=^^2^2^2890801^^^^
;;^UTILITY(U,$J,114,10,"X",1,0)
;;=SERVE ONE CHILLED CARTON OF MILK ON TRAY.
;;^UTILITY(U,$J,114,10,"X",2,0)
;;=SERVING TEMP: 34-40 DEGREES.
;;^UTILITY(U,$J,114,11,0)
;;=LOWFAT MILK^100^1-EACH^^^^11^N^MILK, LOWFAT^^I
;;^UTILITY(U,$J,114,11,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,11,"I",1,0)
;;=815^100^76
;;^UTILITY(U,$J,114,11,"X",0)
;;=^^2^2^2871124^^^^
;;^UTILITY(U,$J,114,11,"X",1,0)
;;=PLACE ONE CHILLED CARTON OF MILK ON TRAY.
;;^UTILITY(U,$J,114,11,"X",2,0)
;;=SERVING TEMP: 34-40 DEG.
;;^UTILITY(U,$J,114,12,0)
;;=ORANGE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-26^^I
;;^UTILITY(U,$J,114,12,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,12,"I",1,0)
;;=362^100^1733
;;^UTILITY(U,$J,114,12,"X",0)
;;=^^1^1^2890724^^^^
;;^UTILITY(U,$J,114,12,"X",1,0)
;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
;;^UTILITY(U,$J,114,13,0)
;;=CHOCOLATE ICE CREAM^100^1-EACH^^^^3^N^ICE CREAM, CHOCOLATE
;;^UTILITY(U,$J,114,13,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,13,"I",1,0)
;;=774^100^60
;;^UTILITY(U,$J,114,13,"X",0)
;;=^^1^1^2850725^
;;^UTILITY(U,$J,114,13,"X",1,0)
;;=PLACE ONE FROZEN CONTAINER OF ICE CREAM ON TRAY.
;;^UTILITY(U,$J,114,14,0)
;;=CRANBERRY JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-1^^I
;;^UTILITY(U,$J,114,14,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,14,"I",1,0)
;;=607^100^2261
;;^UTILITY(U,$J,114,14,"X",0)
;;=^^1^1^2890724^^^^
;;^UTILITY(U,$J,114,14,"X",1,0)
;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
;;^UTILITY(U,$J,114,15,0)
;;=APPLE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-31^^I
FHINI0I7 ; ; 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)
+2 ;;=^FH(114,
+3 ;;^UTILITY(U,$J,114,0)
+4 ;;=RECIPE^114^513^501
+5 ;;^UTILITY(U,$J,114,1,0)
+6 ;;=BACON^100^2-EACH^1-2 MIN^^1^5^N
+7 ;;^UTILITY(U,$J,114,1,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,1,"I",1,0)
+10 ;;=963^12.5^212^12.5
+11 ;;^UTILITY(U,$J,114,1,"X",0)
+12 ;;=^^3^3^2890727^^^^
+13 ;;^UTILITY(U,$J,114,1,"X",1,0)
+14 ;;=1) PLACE PARCHMENT LAYER ON SHEET PAN.
+15 ;;^UTILITY(U,$J,114,1,"X",2,0)
+16 ;;=2) BAKE IN 450 DEGREE OVEN FOR 3 1/2 TO 5 MINUTES.
+17 ;;^UTILITY(U,$J,114,1,"X",3,0)
+18 ;;=3) REMOVE FROM OVEN AND PAN.
+19 ;;^UTILITY(U,$J,114,2,0)
+20 ;;=GRILLED HAM^100^3-OZ^25 MIN^^1^4^N^HAM, GRILLED
+21 ;;^UTILITY(U,$J,114,2,"I",0)
+22 ;;=^114.01PA^1^1
+23 ;;^UTILITY(U,$J,114,2,"I",1,0)
+24 ;;=802^18.75^221^18.75
+25 ;;^UTILITY(U,$J,114,2,"X",0)
+26 ;;=^^2^2^2890801^^^^
+27 ;;^UTILITY(U,$J,114,2,"X",1,0)
+28 ;;=GRILL SLICED HAM SLOWLY, TURNING OCCASIONALLY. DO NOT OVERCOOK.
+29 ;;^UTILITY(U,$J,114,2,"X",2,0)
+30 ;;=CLEAR GRIDDLE OF FAT AS IT ACCUMULATES.
+31 ;;^UTILITY(U,$J,114,3,0)
+32 ;;=GRAPEFRUIT JUICE, BULK^100^4-FLOZ^^^^1^N^A-4^^C^^.097
+33 ;;^UTILITY(U,$J,114,3,"I",0)
+34 ;;=^114.01PA^2^1
+35 ;;^UTILITY(U,$J,114,3,"I",2,0)
+36 ;;=144^3.125^1692
+37 ;;^UTILITY(U,$J,114,3,"X",0)
+38 ;;=^^1^1^2890815^^^^
+39 ;;^UTILITY(U,$J,114,3,"X",1,0)
+40 ;;=PORTION 4 OZ SERVING.
+41 ;;^UTILITY(U,$J,114,4,0)
+42 ;;=SHREDDED WHEAT^100^1-EACH^^^^2^N^CEREAL, SHREDDED WHEAT
+43 ;;^UTILITY(U,$J,114,4,"I",0)
+44 ;;=^114.01PA^1^1
+45 ;;^UTILITY(U,$J,114,4,"I",1,0)
+46 ;;=58^100^1184
+47 ;;^UTILITY(U,$J,114,5,0)
+48 ;;=JELLY^100^1-EACH^^^^13^N^^^I
+49 ;;^UTILITY(U,$J,114,5,"I",0)
+50 ;;=^114.01PA^1^1
+51 ;;^UTILITY(U,$J,114,5,"I",1,0)
+52 ;;=140^100^1264
+53 ;;^UTILITY(U,$J,114,5,"X",0)
+54 ;;=^^1^1^2871124^^
+55 ;;^UTILITY(U,$J,114,5,"X",1,0)
+56 ;;=PLACE ON TRAY ACCORDING TO MENU AND DIET CARD.
+57 ;;^UTILITY(U,$J,114,6,0)
+58 ;;=DIET JELLY^100^1-EACH^^^^13^N^JELLY, DIET^^I
+59 ;;^UTILITY(U,$J,114,6,"I",0)
+60 ;;=^114.01PA^1^1
+61 ;;^UTILITY(U,$J,114,6,"I",1,0)
+62 ;;=139^100^6419
+63 ;;^UTILITY(U,$J,114,6,"X",0)
+64 ;;=^^1^1^2850725^
+65 ;;^UTILITY(U,$J,114,6,"X",1,0)
+66 ;;=PLACE 1 UNIT OF JELLY ON TRAY.
+67 ;;^UTILITY(U,$J,114,7,0)
+68 ;;=WHITE TOAST^100^1-EACH^^^^12^N^TOAST, WHITE
+69 ;;^UTILITY(U,$J,114,7,"I",0)
+70 ;;=^114.01PA^1^1
+71 ;;^UTILITY(U,$J,114,7,"I",1,0)
+72 ;;=760^100^823
+73 ;;^UTILITY(U,$J,114,7,"X",0)
+74 ;;=^^1^1^2860219^^
+75 ;;^UTILITY(U,$J,114,7,"X",1,0)
+76 ;;=TOAST EACH SLICE OF BREAD IN TOASTER UNTIL GOLDEN.
+77 ;;^UTILITY(U,$J,114,8,0)
+78 ;;=PUFFED WHEAT IND^100^1-EACH^^^^2^N^C-39^^R
+79 ;;^UTILITY(U,$J,114,8,"I",0)
+80 ;;=^114.01PA^1^1
+81 ;;^UTILITY(U,$J,114,8,"I",1,0)
+82 ;;=62^100^1192
+83 ;;^UTILITY(U,$J,114,8,"X",0)
+84 ;;=^^1^1^2890724^^
+85 ;;^UTILITY(U,$J,114,8,"X",1,0)
+86 ;;=PLACE ONE BOX ON TRAY.
+87 ;;^UTILITY(U,$J,114,9,0)
+88 ;;=EGGNOG^100^1-EACH^^^^11^N
+89 ;;^UTILITY(U,$J,114,9,"I",0)
+90 ;;=^114.01PA^2^1
+91 ;;^UTILITY(U,$J,114,9,"I",2,0)
+92 ;;=678^100^57
+93 ;;^UTILITY(U,$J,114,9,"X",0)
+94 ;;=^^1^1^2890814^^^^
+95 ;;^UTILITY(U,$J,114,9,"X",1,0)
+96 ;;=PLACE ONE CHILLED CAN ON TRAY.
+97 ;;^UTILITY(U,$J,114,10,0)
+98 ;;=MILK^100^1-EACH^^^^11^N^MILK, WHOLE^^I
+99 ;;^UTILITY(U,$J,114,10,"I",0)
+100 ;;=^114.01PA^1^1
+101 ;;^UTILITY(U,$J,114,10,"I",1,0)
+102 ;;=816^100^74
+103 ;;^UTILITY(U,$J,114,10,"X",0)
+104 ;;=^^2^2^2890801^^^^
+105 ;;^UTILITY(U,$J,114,10,"X",1,0)
+106 ;;=SERVE ONE CHILLED CARTON OF MILK ON TRAY.
+107 ;;^UTILITY(U,$J,114,10,"X",2,0)
+108 ;;=SERVING TEMP: 34-40 DEGREES.
+109 ;;^UTILITY(U,$J,114,11,0)
+110 ;;=LOWFAT MILK^100^1-EACH^^^^11^N^MILK, LOWFAT^^I
+111 ;;^UTILITY(U,$J,114,11,"I",0)
+112 ;;=^114.01PA^1^1
+113 ;;^UTILITY(U,$J,114,11,"I",1,0)
+114 ;;=815^100^76
+115 ;;^UTILITY(U,$J,114,11,"X",0)
+116 ;;=^^2^2^2871124^^^^
+117 ;;^UTILITY(U,$J,114,11,"X",1,0)
+118 ;;=PLACE ONE CHILLED CARTON OF MILK ON TRAY.
+119 ;;^UTILITY(U,$J,114,11,"X",2,0)
+120 ;;=SERVING TEMP: 34-40 DEG.
+121 ;;^UTILITY(U,$J,114,12,0)
+122 ;;=ORANGE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-26^^I
+123 ;;^UTILITY(U,$J,114,12,"I",0)
+124 ;;=^114.01PA^1^1
+125 ;;^UTILITY(U,$J,114,12,"I",1,0)
+126 ;;=362^100^1733
+127 ;;^UTILITY(U,$J,114,12,"X",0)
+128 ;;=^^1^1^2890724^^^^
+129 ;;^UTILITY(U,$J,114,12,"X",1,0)
+130 ;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
+131 ;;^UTILITY(U,$J,114,13,0)
+132 ;;=CHOCOLATE ICE CREAM^100^1-EACH^^^^3^N^ICE CREAM, CHOCOLATE
+133 ;;^UTILITY(U,$J,114,13,"I",0)
+134 ;;=^114.01PA^1^1
+135 ;;^UTILITY(U,$J,114,13,"I",1,0)
+136 ;;=774^100^60
+137 ;;^UTILITY(U,$J,114,13,"X",0)
+138 ;;=^^1^1^2850725^
+139 ;;^UTILITY(U,$J,114,13,"X",1,0)
+140 ;;=PLACE ONE FROZEN CONTAINER OF ICE CREAM ON TRAY.
+141 ;;^UTILITY(U,$J,114,14,0)
+142 ;;=CRANBERRY JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-1^^I
+143 ;;^UTILITY(U,$J,114,14,"I",0)
+144 ;;=^114.01PA^1^1
+145 ;;^UTILITY(U,$J,114,14,"I",1,0)
+146 ;;=607^100^2261
+147 ;;^UTILITY(U,$J,114,14,"X",0)
+148 ;;=^^1^1^2890724^^^^
+149 ;;^UTILITY(U,$J,114,14,"X",1,0)
+150 ;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
+151 ;;^UTILITY(U,$J,114,15,0)
+152 ;;=APPLE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-31^^I
