FHINI0I8 ; ; 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,15,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,15,"I",1,0)
;;=606^100^1818
;;^UTILITY(U,$J,114,15,"X",0)
;;=^^1^1^2890727^^^^
;;^UTILITY(U,$J,114,15,"X",1,0)
;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
;;^UTILITY(U,$J,114,16,0)
;;=PINEAPPLE/GRPFRT JUICE, IND^100^1-EACH^^^^11^N^JUICE, PINEAPPLE/ORANGE
;;^UTILITY(U,$J,114,16,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,16,"I",1,0)
;;=858^100^1485^27.6
;;^UTILITY(U,$J,114,16,"X",0)
;;=^^1^1^2890804^^^
;;^UTILITY(U,$J,114,16,"X",1,0)
;;=PLACE THAWED CONTAINER OF JUICE ON TRAY.
;;^UTILITY(U,$J,114,17,0)
;;=PRUNE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-51^^I
;;^UTILITY(U,$J,114,17,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,17,"I",1,0)
;;=873^100^1790^28.2
;;^UTILITY(U,$J,114,17,"X",0)
;;=^^1^1^2890801^^^^
;;^UTILITY(U,$J,114,17,"X",1,0)
;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
;;^UTILITY(U,$J,114,18,0)
;;=GRAPEFRUIT/ORANGE JUICE, BULK^100^4-FLOZ^^^^1^N^A-13^^C^^.092
;;^UTILITY(U,$J,114,18,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,18,"I",1,0)
;;=142^3.125^1734^27.25
;;^UTILITY(U,$J,114,18,"X",0)
;;=^^1^1^2890801^^^^
;;^UTILITY(U,$J,114,18,"X",1,0)
;;=PORTION 4-OZ SERVING OF JUICE INTO CONTAINER.
;;^UTILITY(U,$J,114,19,0)
;;=MARGARINE^100^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,19,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,19,"I",1,0)
;;=150^100^372^100
;;^UTILITY(U,$J,114,19,"X",0)
;;=^^1^1^2871124^^
;;^UTILITY(U,$J,114,19,"X",1,0)
;;=PLACE MARGARINE ON TRAY ACCORDING TO DIET CARD.
;;^UTILITY(U,$J,114,20,0)
;;=SALT^100^1-EACH^^^^13^N^^^I^^.002
;;^UTILITY(U,$J,114,20,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,20,"I",1,0)
;;=480^100^1598
;;^UTILITY(U,$J,114,20,"X",0)
;;=^^1^1^2871124^^
;;^UTILITY(U,$J,114,20,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET CARD.
;;^UTILITY(U,$J,114,21,0)
;;=LS MARGARINE^100^1-EACH^^^^13^N^MARGARINE, LS^^I
;;^UTILITY(U,$J,114,21,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,21,"I",1,0)
;;=328^100^371^100
;;^UTILITY(U,$J,114,21,"X",0)
;;=^^1^1^2880314^^^
;;^UTILITY(U,$J,114,21,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET CARD.
;;^UTILITY(U,$J,114,22,0)
;;=PEPPER^100^1-EACH^^^^13^N^^^I^^.003
;;^UTILITY(U,$J,114,22,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,22,"I",1,0)
;;=496^100^288
;;^UTILITY(U,$J,114,22,"X",0)
;;=^^1^1^2890801^^^
;;^UTILITY(U,$J,114,22,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET CARD.
;;^UTILITY(U,$J,114,24,0)
;;=TEA^100^1-EACH^^^^11^N^^^I^^.015
;;^UTILITY(U,$J,114,24,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,24,"I",1,0)
;;=264^100^1926
;;^UTILITY(U,$J,114,24,"X",0)
;;=^^1^1^2871124^^
;;^UTILITY(U,$J,114,24,"X",1,0)
;;=PLACE TEA BAG AND HOT WATER ON TRAY PER DIET CARD.
;;^UTILITY(U,$J,114,25,0)
;;=POSTUM^100^1-EACH^^^^11^N
;;^UTILITY(U,$J,114,25,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,25,"I",1,0)
;;=731^100^6625
;;^UTILITY(U,$J,114,26,0)
;;=DECAF^100^1-EACH^^^^11^N^COFFEE, DECAF^^I^^.027
;;^UTILITY(U,$J,114,26,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,26,"I",1,0)
;;=87^100^2213
;;^UTILITY(U,$J,114,26,"X",0)
;;=^^1^1^2871124^^^
;;^UTILITY(U,$J,114,26,"X",1,0)
;;=PLACE DECAF AND HOT WATER ON TRAY PER DIET CARD.
;;^UTILITY(U,$J,114,27,0)
;;=CREAMER^100^1-EACH^^^^13^N^^^I^^.008
;;^UTILITY(U,$J,114,27,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,27,"I",1,0)
;;=515^100^67
;;^UTILITY(U,$J,114,28,0)
;;=WHITE BREAD^100^1-EACH^^^^12^N^BREAD, WHITE^^I
;;^UTILITY(U,$J,114,28,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,28,"I",1,0)
;;=760^100^823
;;^UTILITY(U,$J,114,28,"X",0)
;;=^^1^1^2871124^
;;^UTILITY(U,$J,114,28,"X",1,0)
;;=SERVE ACCORDING TO MENU OR DIET CARD.
;;^UTILITY(U,$J,114,29,0)
;;=LS TOAST^100^1-EACH^^^^12^N^TOAST, LS
;;^UTILITY(U,$J,114,29,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,29,"I",1,0)
;;=813^100^6502
;;^UTILITY(U,$J,114,29,"X",0)
;;=^^1^1^2860219^^
;;^UTILITY(U,$J,114,29,"X",1,0)
;;=TOAST EACH SLICE OF BREAD IN TOASTER UNTIL GOLDEN.
;;^UTILITY(U,$J,114,30,0)
;;=RYE BREAD^100^1-EACH^^^^12^N^BREAD, RYE^^I
;;^UTILITY(U,$J,114,30,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,30,"I",1,0)
;;=830^100^818
;;^UTILITY(U,$J,114,30,"X",0)
;;=^^1^1^2871124^^
;;^UTILITY(U,$J,114,30,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO MENU OR DIET CARD.
;;^UTILITY(U,$J,114,31,0)
;;=LS BREAD^100^1-EACH^^^^12^N^BREAD, LS^^I
;;^UTILITY(U,$J,114,31,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,31,"I",1,0)
;;=813^100^6502
;;^UTILITY(U,$J,114,31,"X",0)
;;=^^1^1^2871118^
;;^UTILITY(U,$J,114,31,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO MENU OR DIET CARD.
;;^UTILITY(U,$J,114,32,0)
;;=PUFFED RICE^100^1-EACH^^^^2^N^CEREAL, PUFFED RICE
FHINI0I8 ; ; 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,15,"I",0)
+2 ;;=^114.01PA^1^1
+3 ;;^UTILITY(U,$J,114,15,"I",1,0)
+4 ;;=606^100^1818
+5 ;;^UTILITY(U,$J,114,15,"X",0)
+6 ;;=^^1^1^2890727^^^^
+7 ;;^UTILITY(U,$J,114,15,"X",1,0)
+8 ;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
+9 ;;^UTILITY(U,$J,114,16,0)
+10 ;;=PINEAPPLE/GRPFRT JUICE, IND^100^1-EACH^^^^11^N^JUICE, PINEAPPLE/ORANGE
+11 ;;^UTILITY(U,$J,114,16,"I",0)
+12 ;;=^114.01PA^1^1
+13 ;;^UTILITY(U,$J,114,16,"I",1,0)
+14 ;;=858^100^1485^27.6
+15 ;;^UTILITY(U,$J,114,16,"X",0)
+16 ;;=^^1^1^2890804^^^
+17 ;;^UTILITY(U,$J,114,16,"X",1,0)
+18 ;;=PLACE THAWED CONTAINER OF JUICE ON TRAY.
+19 ;;^UTILITY(U,$J,114,17,0)
+20 ;;=PRUNE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-51^^I
+21 ;;^UTILITY(U,$J,114,17,"I",0)
+22 ;;=^114.01PA^1^1
+23 ;;^UTILITY(U,$J,114,17,"I",1,0)
+24 ;;=873^100^1790^28.2
+25 ;;^UTILITY(U,$J,114,17,"X",0)
+26 ;;=^^1^1^2890801^^^^
+27 ;;^UTILITY(U,$J,114,17,"X",1,0)
+28 ;;=PLACE 4-OZ THAWED CONTAINER OF JUICE ON TRAY.
+29 ;;^UTILITY(U,$J,114,18,0)
+30 ;;=GRAPEFRUIT/ORANGE JUICE, BULK^100^4-FLOZ^^^^1^N^A-13^^C^^.092
+31 ;;^UTILITY(U,$J,114,18,"I",0)
+32 ;;=^114.01PA^1^1
+33 ;;^UTILITY(U,$J,114,18,"I",1,0)
+34 ;;=142^3.125^1734^27.25
+35 ;;^UTILITY(U,$J,114,18,"X",0)
+36 ;;=^^1^1^2890801^^^^
+37 ;;^UTILITY(U,$J,114,18,"X",1,0)
+38 ;;=PORTION 4-OZ SERVING OF JUICE INTO CONTAINER.
+39 ;;^UTILITY(U,$J,114,19,0)
+40 ;;=MARGARINE^100^1-EACH^^^^13^N^^^I
+41 ;;^UTILITY(U,$J,114,19,"I",0)
+42 ;;=^114.01PA^1^1
+43 ;;^UTILITY(U,$J,114,19,"I",1,0)
+44 ;;=150^100^372^100
+45 ;;^UTILITY(U,$J,114,19,"X",0)
+46 ;;=^^1^1^2871124^^
+47 ;;^UTILITY(U,$J,114,19,"X",1,0)
+48 ;;=PLACE MARGARINE ON TRAY ACCORDING TO DIET CARD.
+49 ;;^UTILITY(U,$J,114,20,0)
+50 ;;=SALT^100^1-EACH^^^^13^N^^^I^^.002
+51 ;;^UTILITY(U,$J,114,20,"I",0)
+52 ;;=^114.01PA^1^1
+53 ;;^UTILITY(U,$J,114,20,"I",1,0)
+54 ;;=480^100^1598
+55 ;;^UTILITY(U,$J,114,20,"X",0)
+56 ;;=^^1^1^2871124^^
+57 ;;^UTILITY(U,$J,114,20,"X",1,0)
+58 ;;=PLACE ON TRAY ACCORDING TO DIET CARD.
+59 ;;^UTILITY(U,$J,114,21,0)
+60 ;;=LS MARGARINE^100^1-EACH^^^^13^N^MARGARINE, LS^^I
+61 ;;^UTILITY(U,$J,114,21,"I",0)
+62 ;;=^114.01PA^1^1
+63 ;;^UTILITY(U,$J,114,21,"I",1,0)
+64 ;;=328^100^371^100
+65 ;;^UTILITY(U,$J,114,21,"X",0)
+66 ;;=^^1^1^2880314^^^
+67 ;;^UTILITY(U,$J,114,21,"X",1,0)
+68 ;;=PLACE ON TRAY ACCORDING TO DIET CARD.
+69 ;;^UTILITY(U,$J,114,22,0)
+70 ;;=PEPPER^100^1-EACH^^^^13^N^^^I^^.003
+71 ;;^UTILITY(U,$J,114,22,"I",0)
+72 ;;=^114.01PA^1^1
+73 ;;^UTILITY(U,$J,114,22,"I",1,0)
+74 ;;=496^100^288
+75 ;;^UTILITY(U,$J,114,22,"X",0)
+76 ;;=^^1^1^2890801^^^
+77 ;;^UTILITY(U,$J,114,22,"X",1,0)
+78 ;;=PLACE ON TRAY ACCORDING TO DIET CARD.
+79 ;;^UTILITY(U,$J,114,24,0)
+80 ;;=TEA^100^1-EACH^^^^11^N^^^I^^.015
+81 ;;^UTILITY(U,$J,114,24,"I",0)
+82 ;;=^114.01PA^1^1
+83 ;;^UTILITY(U,$J,114,24,"I",1,0)
+84 ;;=264^100^1926
+85 ;;^UTILITY(U,$J,114,24,"X",0)
+86 ;;=^^1^1^2871124^^
+87 ;;^UTILITY(U,$J,114,24,"X",1,0)
+88 ;;=PLACE TEA BAG AND HOT WATER ON TRAY PER DIET CARD.
+89 ;;^UTILITY(U,$J,114,25,0)
+90 ;;=POSTUM^100^1-EACH^^^^11^N
+91 ;;^UTILITY(U,$J,114,25,"I",0)
+92 ;;=^114.01PA^1^1
+93 ;;^UTILITY(U,$J,114,25,"I",1,0)
+94 ;;=731^100^6625
+95 ;;^UTILITY(U,$J,114,26,0)
+96 ;;=DECAF^100^1-EACH^^^^11^N^COFFEE, DECAF^^I^^.027
+97 ;;^UTILITY(U,$J,114,26,"I",0)
+98 ;;=^114.01PA^1^1
+99 ;;^UTILITY(U,$J,114,26,"I",1,0)
+100 ;;=87^100^2213
+101 ;;^UTILITY(U,$J,114,26,"X",0)
+102 ;;=^^1^1^2871124^^^
+103 ;;^UTILITY(U,$J,114,26,"X",1,0)
+104 ;;=PLACE DECAF AND HOT WATER ON TRAY PER DIET CARD.
+105 ;;^UTILITY(U,$J,114,27,0)
+106 ;;=CREAMER^100^1-EACH^^^^13^N^^^I^^.008
+107 ;;^UTILITY(U,$J,114,27,"I",0)
+108 ;;=^114.01PA^1^1
+109 ;;^UTILITY(U,$J,114,27,"I",1,0)
+110 ;;=515^100^67
+111 ;;^UTILITY(U,$J,114,28,0)
+112 ;;=WHITE BREAD^100^1-EACH^^^^12^N^BREAD, WHITE^^I
+113 ;;^UTILITY(U,$J,114,28,"I",0)
+114 ;;=^114.01PA^1^1
+115 ;;^UTILITY(U,$J,114,28,"I",1,0)
+116 ;;=760^100^823
+117 ;;^UTILITY(U,$J,114,28,"X",0)
+118 ;;=^^1^1^2871124^
+119 ;;^UTILITY(U,$J,114,28,"X",1,0)
+120 ;;=SERVE ACCORDING TO MENU OR DIET CARD.
+121 ;;^UTILITY(U,$J,114,29,0)
+122 ;;=LS TOAST^100^1-EACH^^^^12^N^TOAST, LS
+123 ;;^UTILITY(U,$J,114,29,"I",0)
+124 ;;=^114.01PA^1^1
+125 ;;^UTILITY(U,$J,114,29,"I",1,0)
+126 ;;=813^100^6502
+127 ;;^UTILITY(U,$J,114,29,"X",0)
+128 ;;=^^1^1^2860219^^
+129 ;;^UTILITY(U,$J,114,29,"X",1,0)
+130 ;;=TOAST EACH SLICE OF BREAD IN TOASTER UNTIL GOLDEN.
+131 ;;^UTILITY(U,$J,114,30,0)
+132 ;;=RYE BREAD^100^1-EACH^^^^12^N^BREAD, RYE^^I
+133 ;;^UTILITY(U,$J,114,30,"I",0)
+134 ;;=^114.01PA^1^1
+135 ;;^UTILITY(U,$J,114,30,"I",1,0)
+136 ;;=830^100^818
+137 ;;^UTILITY(U,$J,114,30,"X",0)
+138 ;;=^^1^1^2871124^^
+139 ;;^UTILITY(U,$J,114,30,"X",1,0)
+140 ;;=PLACE ON TRAY ACCORDING TO MENU OR DIET CARD.
+141 ;;^UTILITY(U,$J,114,31,0)
+142 ;;=LS BREAD^100^1-EACH^^^^12^N^BREAD, LS^^I
+143 ;;^UTILITY(U,$J,114,31,"I",0)
+144 ;;=^114.01PA^1^1
+145 ;;^UTILITY(U,$J,114,31,"I",1,0)
+146 ;;=813^100^6502
+147 ;;^UTILITY(U,$J,114,31,"X",0)
+148 ;;=^^1^1^2871118^
+149 ;;^UTILITY(U,$J,114,31,"X",1,0)
+150 ;;=PLACE ON TRAY ACCORDING TO MENU OR DIET CARD.
+151 ;;^UTILITY(U,$J,114,32,0)
+152 ;;=PUFFED RICE^100^1-EACH^^^^2^N^CEREAL, PUFFED RICE
