FHINI0H6 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(113) 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
;;^DD(113,7,21,3,0)
;;=contains 6 #10-cans and the Dietetic Issue unit is
;;^DD(113,7,21,4,0)
;;=a #10-can then the value is 6.
;;^DD(113,8,0)
;;=PRICE/UNIT OF PURCHASE^NJ8,3^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(113,8,1,0)
;;=^.1^^0
;;^DD(113,8,3)
;;=Type a Number between 0 and 9999, 3 Decimal Digits
;;^DD(113,8,21,0)
;;=^^2^2^2920717^^^^
;;^DD(113,8,21,1,0)
;;=This field contains the most recent price of the unit
;;^DD(113,8,21,2,0)
;;=of purchase from the vendor.
;;^DD(113,8,"AUDIT")
;;=n
;;^DD(113,8,"DT")
;;=2920717
;;^DD(113,9,0)
;;=REORDER LEVEL (IN U/P)^NJ5,0^^0;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(113,9,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
;;^DD(113,9,21,0)
;;=^^3^3^2880710^
;;^DD(113,9,21,1,0)
;;=This field indicates that when the on-hand quantity drops
;;^DD(113,9,21,2,0)
;;=below this value (the re-order level), then additional
;;^DD(113,9,21,3,0)
;;=quantities should be ordered.
;;^DD(113,9,"DT")
;;=2930413
;;^DD(113,10,0)
;;=ON HAND (IN U/P)^NJ8,2^^0;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(113,10,3)
;;=Type a Number between 0 and 99999, 2 Decimal Digits
;;^DD(113,10,21,0)
;;=^^1^1^2920720^^^^
;;^DD(113,10,21,1,0)
;;=This field contains the number of issue units that are on hand.
;;^DD(113,10,"DT")
;;=2930413
;;^DD(113,11,0)
;;=STORAGE LOCATION^P113.1'^FH(113.1,^0;12^Q
;;^DD(113,11,21,0)
;;=^^3^3^2880710^
;;^DD(113,11,21,1,0)
;;=This field indicates the storage location (File 113.1) where
;;^DD(113,11,21,2,0)
;;=dietetics normally stores the item and where the stockroom
;;^DD(113,11,21,3,0)
;;=requisition clerk will normally obtain it.
;;^DD(113,20,0)
;;=FOOD GROUP^RNJ1,0^^0;13^K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
;;^DD(113,20,3)
;;=Type a Number between 1 and 6, 0 Decimal Digits
;;^DD(113,20,21,0)
;;=^^2^2^2941214^^^
;;^DD(113,20,21,1,0)
;;=This field contains the food group designated by the VA
;;^DD(113,20,21,2,0)
;;=for this ingredient item.
;;^DD(113,20,"DT")
;;=2890712
;;^DD(113,23,0)
;;=RECIPE UNIT^RSX^LB:LB;GAL:GAL;EACH:EACH;^0;16^W *7,*7,!!,"BEWARE! a change in the RECIPE UNIT has considerable impact on the RECIPE data!" Q
;;^DD(113,23,12)
;;=Only Units valid as Recipe Units may be chosen
;;^DD(113,23,12.1)
;;=S DIC("S")="I Y<7"
;;^DD(113,23,21,0)
;;=^^9^9^2880710^
;;^DD(113,23,21,1,0)
;;=This field contains LB, GAL, or EACH and is used to indicate
;;^DD(113,23,21,2,0)
;;=whether weight (LB), volumetric (GAL) or each (EACH) units
;;^DD(113,23,21,3,0)
;;=are to be used in recipes to indicate the quantity required
;;^DD(113,23,21,4,0)
;;=of this item. Amounts are stored in that file in these units.
;;^DD(113,23,21,5,0)
;;=
;;^DD(113,23,21,6,0)
;;=It is extremely important that this field NOT be changed unless
;;^DD(113,23,21,7,0)
;;=it is certain that no recipes use this ingredient. Changing
;;^DD(113,23,21,8,0)
;;=the field will invalidate the quantities shown in any recipe
;;^DD(113,23,21,9,0)
;;=using the item.
;;^DD(113,23,"DT")
;;=2871115
;;^DD(113,24,0)
;;=# OF REC UNITS/ISSUE UNIT^RNJ9,4^^0;17^K:+X'=X!(X>9999)!(X<.0001)!(X?.E1"."5N.N) X
;;^DD(113,24,3)
;;=TYPE A NUMBER BETWEEN .0001 AND 9999
;;^DD(113,24,21,0)
;;=^^2^2^2880710^
;;^DD(113,24,21,1,0)
;;=This field indicates the number of recipe units contained in
;;^DD(113,24,21,2,0)
;;=a Dietetic Issue unit.
;;^DD(113,25,0)
;;=INVENTORY?^S^Y:YES;N:NO;^0;19^Q
;;^DD(113,25,21,0)
;;=^^4^4^2920428^^
;;^DD(113,25,21,1,0)
;;=This field, when answered YES, will indicate that inventorying
;;^DD(113,25,21,2,0)
;;=of this item is desired. It is often NO for such items as
;;^DD(113,25,21,3,0)
;;=condiment packs in cases of 2000 which are replenished as
;;^DD(113,25,21,4,0)
;;=needed.
;;^DD(113,25,"DT")
;;=2871018
;;^DD(113,26,0)
;;=THAW DAYS^NJ1,0^^0;20^K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X
;;^DD(113,26,3)
;;=Type a Number between 0 and 3, 0 Decimal Digits
;;^DD(113,26,21,0)
;;=^^2^2^2880710^
;;^DD(113,26,21,1,0)
;;=If this is a frozen item requiring thawing before use, then
;;^DD(113,26,21,2,0)
;;=the number of thaw days should be indicated.
;;^DD(113,26,"DT")
;;=2871018
;;^DD(113,27,0)
;;=NUTRIENT DATA REFERENCE^P112'^FHNU(^0;21^Q
;;^DD(113,27,21,0)
;;=^^4^4^2930331^^
;;^DD(113,27,21,1,0)
;;=This is a pointer to the nutrient in File 112 which most closely
;;^DD(113,27,21,2,0)
;;=approximates the cooked ingredient. It will be used as a default
;;^DD(113,27,21,3,0)
;;=nutrient when performing a nutrient analysis of a recipe containing
;;^DD(113,27,21,4,0)
;;=this ingredient.
FHINI0H6 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(113)
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 ;;^DD(113,7,21,3,0)
+2 ;;=contains 6 #10-cans and the Dietetic Issue unit is
+3 ;;^DD(113,7,21,4,0)
+4 ;;=a #10-can then the value is 6.
+5 ;;^DD(113,8,0)
+6 ;;=PRICE/UNIT OF PURCHASE^NJ8,3^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."4N.N) X
+7 ;;^DD(113,8,1,0)
+8 ;;=^.1^^0
+9 ;;^DD(113,8,3)
+10 ;;=Type a Number between 0 and 9999, 3 Decimal Digits
+11 ;;^DD(113,8,21,0)
+12 ;;=^^2^2^2920717^^^^
+13 ;;^DD(113,8,21,1,0)
+14 ;;=This field contains the most recent price of the unit
+15 ;;^DD(113,8,21,2,0)
+16 ;;=of purchase from the vendor.
+17 ;;^DD(113,8,"AUDIT")
+18 ;;=n
+19 ;;^DD(113,8,"DT")
+20 ;;=2920717
+21 ;;^DD(113,9,0)
+22 ;;=REORDER LEVEL (IN U/P)^NJ5,0^^0;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
+23 ;;^DD(113,9,3)
+24 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
+25 ;;^DD(113,9,21,0)
+26 ;;=^^3^3^2880710^
+27 ;;^DD(113,9,21,1,0)
+28 ;;=This field indicates that when the on-hand quantity drops
+29 ;;^DD(113,9,21,2,0)
+30 ;;=below this value (the re-order level), then additional
+31 ;;^DD(113,9,21,3,0)
+32 ;;=quantities should be ordered.
+33 ;;^DD(113,9,"DT")
+34 ;;=2930413
+35 ;;^DD(113,10,0)
+36 ;;=ON HAND (IN U/P)^NJ8,2^^0;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
+37 ;;^DD(113,10,3)
+38 ;;=Type a Number between 0 and 99999, 2 Decimal Digits
+39 ;;^DD(113,10,21,0)
+40 ;;=^^1^1^2920720^^^^
+41 ;;^DD(113,10,21,1,0)
+42 ;;=This field contains the number of issue units that are on hand.
+43 ;;^DD(113,10,"DT")
+44 ;;=2930413
+45 ;;^DD(113,11,0)
+46 ;;=STORAGE LOCATION^P113.1'^FH(113.1,^0;12^Q
+47 ;;^DD(113,11,21,0)
+48 ;;=^^3^3^2880710^
+49 ;;^DD(113,11,21,1,0)
+50 ;;=This field indicates the storage location (File 113.1) where
+51 ;;^DD(113,11,21,2,0)
+52 ;;=dietetics normally stores the item and where the stockroom
+53 ;;^DD(113,11,21,3,0)
+54 ;;=requisition clerk will normally obtain it.
+55 ;;^DD(113,20,0)
+56 ;;=FOOD GROUP^RNJ1,0^^0;13^K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
+57 ;;^DD(113,20,3)
+58 ;;=Type a Number between 1 and 6, 0 Decimal Digits
+59 ;;^DD(113,20,21,0)
+60 ;;=^^2^2^2941214^^^
+61 ;;^DD(113,20,21,1,0)
+62 ;;=This field contains the food group designated by the VA
+63 ;;^DD(113,20,21,2,0)
+64 ;;=for this ingredient item.
+65 ;;^DD(113,20,"DT")
+66 ;;=2890712
+67 ;;^DD(113,23,0)
+68 ;;=RECIPE UNIT^RSX^LB:LB;GAL:GAL;EACH:EACH;^0;16^W *7,*7,!!,"BEWARE! a change in the RECIPE UNIT has considerable impact on the RECIPE data!" Q
+69 ;;^DD(113,23,12)
+70 ;;=Only Units valid as Recipe Units may be chosen
+71 ;;^DD(113,23,12.1)
+72 ;;=S DIC("S")="I Y<7"
+73 ;;^DD(113,23,21,0)
+74 ;;=^^9^9^2880710^
+75 ;;^DD(113,23,21,1,0)
+76 ;;=This field contains LB, GAL, or EACH and is used to indicate
+77 ;;^DD(113,23,21,2,0)
+78 ;;=whether weight (LB), volumetric (GAL) or each (EACH) units
+79 ;;^DD(113,23,21,3,0)
+80 ;;=are to be used in recipes to indicate the quantity required
+81 ;;^DD(113,23,21,4,0)
+82 ;;=of this item. Amounts are stored in that file in these units.
+83 ;;^DD(113,23,21,5,0)
+84 ;;=
+85 ;;^DD(113,23,21,6,0)
+86 ;;=It is extremely important that this field NOT be changed unless
+87 ;;^DD(113,23,21,7,0)
+88 ;;=it is certain that no recipes use this ingredient. Changing
+89 ;;^DD(113,23,21,8,0)
+90 ;;=the field will invalidate the quantities shown in any recipe
+91 ;;^DD(113,23,21,9,0)
+92 ;;=using the item.
+93 ;;^DD(113,23,"DT")
+94 ;;=2871115
+95 ;;^DD(113,24,0)
+96 ;;=# OF REC UNITS/ISSUE UNIT^RNJ9,4^^0;17^K:+X'=X!(X>9999)!(X<.0001)!(X?.E1"."5N.N) X
+97 ;;^DD(113,24,3)
+98 ;;=TYPE A NUMBER BETWEEN .0001 AND 9999
+99 ;;^DD(113,24,21,0)
+100 ;;=^^2^2^2880710^
+101 ;;^DD(113,24,21,1,0)
+102 ;;=This field indicates the number of recipe units contained in
+103 ;;^DD(113,24,21,2,0)
+104 ;;=a Dietetic Issue unit.
+105 ;;^DD(113,25,0)
+106 ;;=INVENTORY?^S^Y:YES;N:NO;^0;19^Q
+107 ;;^DD(113,25,21,0)
+108 ;;=^^4^4^2920428^^
+109 ;;^DD(113,25,21,1,0)
+110 ;;=This field, when answered YES, will indicate that inventorying
+111 ;;^DD(113,25,21,2,0)
+112 ;;=of this item is desired. It is often NO for such items as
+113 ;;^DD(113,25,21,3,0)
+114 ;;=condiment packs in cases of 2000 which are replenished as
+115 ;;^DD(113,25,21,4,0)
+116 ;;=needed.
+117 ;;^DD(113,25,"DT")
+118 ;;=2871018
+119 ;;^DD(113,26,0)
+120 ;;=THAW DAYS^NJ1,0^^0;20^K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X
+121 ;;^DD(113,26,3)
+122 ;;=Type a Number between 0 and 3, 0 Decimal Digits
+123 ;;^DD(113,26,21,0)
+124 ;;=^^2^2^2880710^
+125 ;;^DD(113,26,21,1,0)
+126 ;;=If this is a frozen item requiring thawing before use, then
+127 ;;^DD(113,26,21,2,0)
+128 ;;=the number of thaw days should be indicated.
+129 ;;^DD(113,26,"DT")
+130 ;;=2871018
+131 ;;^DD(113,27,0)
+132 ;;=NUTRIENT DATA REFERENCE^P112'^FHNU(^0;21^Q
+133 ;;^DD(113,27,21,0)
+134 ;;=^^4^4^2930331^^
+135 ;;^DD(113,27,21,1,0)
+136 ;;=This is a pointer to the nutrient in File 112 which most closely
+137 ;;^DD(113,27,21,2,0)
+138 ;;=approximates the cooked ingredient. It will be used as a default
+139 ;;^DD(113,27,21,3,0)
+140 ;;=nutrient when performing a nutrient analysis of a recipe containing
+141 ;;^DD(113,27,21,4,0)
+142 ;;=this ingredient.
