FHINI0I3 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(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
;;^DIC(114,0,"GL")
;;=^FH(114,
;;^DIC("B","RECIPE",114)
;;=
;;^DIC(114,"%D",0)
;;=^^3^3^2950221^^
;;^DIC(114,"%D",1,0)
;;=This file contains all recipes necessary to build meals. Each
;;^DIC(114,"%D",2,0)
;;=recipe consists of basic data concerning the recipe, various
;;^DIC(114,"%D",3,0)
;;=ingredients, and may also contain 'embedded' recipes.
;;^DD(114,0)
;;=FIELD^^103^18
;;^DD(114,0,"DT")
;;=2950428
;;^DD(114,0,"IX","B",114,.01)
;;=
;;^DD(114,0,"IX","C",114,8)
;;=
;;^DD(114,0,"NM","RECIPE")
;;=
;;^DD(114,0,"PT",112.64,.01)
;;=
;;^DD(114,0,"PT",114.03,.01)
;;=
;;^DD(114,0,"PT",115.2,3)
;;=
;;^DD(114,0,"PT",115.21,.01)
;;=
;;^DD(114,0,"PT",116.11,.01)
;;=
;;^DD(114,0,"PT",118,11)
;;=
;;^DD(114,0,"PT",118.2,11)
;;=
;;^DD(114,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
;;^DD(114,.01,1,0)
;;=^.1
;;^DD(114,.01,1,1,0)
;;=114^B
;;^DD(114,.01,1,1,1)
;;=S ^FH(114,"B",$E(X,1,30),DA)=""
;;^DD(114,.01,1,1,2)
;;=K ^FH(114,"B",$E(X,1,30),DA)
;;^DD(114,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(114,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the NAME field.
;;^DD(114,.01,3)
;;=ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
;;^DD(114,.01,21,0)
;;=^^3^3^2940701^^
;;^DD(114,.01,21,1,0)
;;=This is the name of the recipe. A recipe is anything served and
;;^DD(114,.01,21,2,0)
;;=may consist of a single ingredient which requires no
;;^DD(114,.01,21,3,0)
;;=preparation.
;;^DD(114,.01,"DEL",1,0)
;;=I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
;;^DD(114,.01,"DT")
;;=2860102
;;^DD(114,1,0)
;;=INGREDIENT^114.01PA^^I;0
;;^DD(114,1,21,0)
;;=^^1^1^2880717^
;;^DD(114,1,21,1,0)
;;=This multiple contains the ingredients used in the recipe.
;;^DD(114,1.5,0)
;;=EMBEDDED RECIPE^114.03PA^^R;0
;;^DD(114,1.5,21,0)
;;=^^4^4^2881117^^^^
;;^DD(114,1.5,21,1,0)
;;=This field contains recipes which are 'embedded' in this recipe.
;;^DD(114,1.5,21,2,0)
;;=For example, a hot roast beef sandwich might contain bread
;;^DD(114,1.5,21,3,0)
;;=as an ingredient but roast beef as an embedded recipe and
;;^DD(114,1.5,21,4,0)
;;=perhaps even brown gravy as another embedded recipe.
;;^DD(114,2,0)
;;=NUMBER OF PORTIONS^RNJ4,0^^0;2^K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X
;;^DD(114,2,3)
;;=Type a Number between 1 and 1000, 0 Decimal Digits
;;^DD(114,2,21,0)
;;=^^3^3^2881117^^^
;;^DD(114,2,21,1,0)
;;=This is the yield, in terms of number of portions, of the
;;^DD(114,2,21,2,0)
;;=recipe. It should be within a factor of 10 of the normal quantity
;;^DD(114,2,21,3,0)
;;=needed and need not be 100.
;;^DD(114,2,"DT")
;;=2881117
;;^DD(114,3,0)
;;=PORTION SIZE^RFX^^0;3^K:$L(X)>8!($L(X)<1) X I $D(X) D EN3^FHREC1
;;^DD(114,3,3)
;;=ANSWER MUST BE A NUMBER FOLLOWED BY OZ, FLOZ OR EACH
;;^DD(114,3,21,0)
;;=^^2^2^2930916^^^^
;;^DD(114,3,21,1,0)
;;=This is a short description of the portion size, e.g., 3-oz. or
;;^DD(114,3,21,2,0)
;;=1 each. Size must be a number followed by OZ, EACH or FLOZ.
;;^DD(114,3,"DT")
;;=2880918
;;^DD(114,4,0)
;;=PREPARATION TIME^F^^0;4^K:$L(X)>10!($L(X)<1) X
;;^DD(114,4,3)
;;=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
;;^DD(114,4,21,0)
;;=^^2^2^2880717^
;;^DD(114,4,21,1,0)
;;=This field indicates the amount of preparation time this
;;^DD(114,4,21,2,0)
;;=recipe will require.
;;^DD(114,5,0)
;;=EQUIPMENT^114.05P^^E;0
;;^DD(114,5,3)
;;=
;;^DD(114,5,21,0)
;;=^^2^2^2880919^
;;^DD(114,5,21,1,0)
;;=This multiple is used to indicate the various types of equipment
;;^DD(114,5,21,2,0)
;;=necessary to produce this recipe.
;;^DD(114,5,"DT")
;;=2871114
;;^DD(114,6,0)
;;=SERVING UTENSIL^P114.3'^FH(114.3,^0;6^Q
;;^DD(114,6,3)
;;=
;;^DD(114,6,21,0)
;;=^^2^2^2930127^^
;;^DD(114,6,21,1,0)
;;=This field indicates the primary serving utensil which will be
;;^DD(114,6,21,2,0)
;;=required by tray line personnel or cafeteria line personnel.
;;^DD(114,6,"DT")
;;=2871114
;;^DD(114,7,0)
;;=DEFAULT CATEGORY^RP114.1'^FH(114.1,^0;7^Q
;;^DD(114,7,3)
;;=
;;^DD(114,7,21,0)
;;=^^4^4^2880717^
;;^DD(114,7,21,1,0)
;;=This is the primary category of the recipe. Selection does not
;;^DD(114,7,21,2,0)
;;=prohibit the use of the recipe in other ways (e.g., a 'salad'
;;^DD(114,7,21,3,0)
;;=being used for dessert) but does influence the printing order
;;^DD(114,7,21,4,0)
;;=of the recipe in various lists.
;;^DD(114,7,"DT")
;;=2940120
;;^DD(114,8,0)
;;=SYNONYM^F^^0;9^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3) X
;;^DD(114,8,1,0)
;;=^.1
;;^DD(114,8,1,1,0)
;;=114^C
;;^DD(114,8,1,1,1)
;;=S ^FH(114,"C",$E(X,1,30),DA)=""
FHINI0I3 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(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 ;;^DIC(114,0,"GL")
+2 ;;=^FH(114,
+3 ;;^DIC("B","RECIPE",114)
+4 ;;=
+5 ;;^DIC(114,"%D",0)
+6 ;;=^^3^3^2950221^^
+7 ;;^DIC(114,"%D",1,0)
+8 ;;=This file contains all recipes necessary to build meals. Each
+9 ;;^DIC(114,"%D",2,0)
+10 ;;=recipe consists of basic data concerning the recipe, various
+11 ;;^DIC(114,"%D",3,0)
+12 ;;=ingredients, and may also contain 'embedded' recipes.
+13 ;;^DD(114,0)
+14 ;;=FIELD^^103^18
+15 ;;^DD(114,0,"DT")
+16 ;;=2950428
+17 ;;^DD(114,0,"IX","B",114,.01)
+18 ;;=
+19 ;;^DD(114,0,"IX","C",114,8)
+20 ;;=
+21 ;;^DD(114,0,"NM","RECIPE")
+22 ;;=
+23 ;;^DD(114,0,"PT",112.64,.01)
+24 ;;=
+25 ;;^DD(114,0,"PT",114.03,.01)
+26 ;;=
+27 ;;^DD(114,0,"PT",115.2,3)
+28 ;;=
+29 ;;^DD(114,0,"PT",115.21,.01)
+30 ;;=
+31 ;;^DD(114,0,"PT",116.11,.01)
+32 ;;=
+33 ;;^DD(114,0,"PT",118,11)
+34 ;;=
+35 ;;^DD(114,0,"PT",118.2,11)
+36 ;;=
+37 ;;^DD(114,.01,0)
+38 ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
+39 ;;^DD(114,.01,1,0)
+40 ;;=^.1
+41 ;;^DD(114,.01,1,1,0)
+42 ;;=114^B
+43 ;;^DD(114,.01,1,1,1)
+44 ;;=S ^FH(114,"B",$E(X,1,30),DA)=""
+45 ;;^DD(114,.01,1,1,2)
+46 ;;=K ^FH(114,"B",$E(X,1,30),DA)
+47 ;;^DD(114,.01,1,1,"%D",0)
+48 ;;=^^1^1^2911118^
+49 ;;^DD(114,.01,1,1,"%D",1,0)
+50 ;;=This is the normal B cross-reference of the NAME field.
+51 ;;^DD(114,.01,3)
+52 ;;=ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
+53 ;;^DD(114,.01,21,0)
+54 ;;=^^3^3^2940701^^
+55 ;;^DD(114,.01,21,1,0)
+56 ;;=This is the name of the recipe. A recipe is anything served and
+57 ;;^DD(114,.01,21,2,0)
+58 ;;=may consist of a single ingredient which requires no
+59 ;;^DD(114,.01,21,3,0)
+60 ;;=preparation.
+61 ;;^DD(114,.01,"DEL",1,0)
+62 ;;=I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
+63 ;;^DD(114,.01,"DT")
+64 ;;=2860102
+65 ;;^DD(114,1,0)
+66 ;;=INGREDIENT^114.01PA^^I;0
+67 ;;^DD(114,1,21,0)
+68 ;;=^^1^1^2880717^
+69 ;;^DD(114,1,21,1,0)
+70 ;;=This multiple contains the ingredients used in the recipe.
+71 ;;^DD(114,1.5,0)
+72 ;;=EMBEDDED RECIPE^114.03PA^^R;0
+73 ;;^DD(114,1.5,21,0)
+74 ;;=^^4^4^2881117^^^^
+75 ;;^DD(114,1.5,21,1,0)
+76 ;;=This field contains recipes which are 'embedded' in this recipe.
+77 ;;^DD(114,1.5,21,2,0)
+78 ;;=For example, a hot roast beef sandwich might contain bread
+79 ;;^DD(114,1.5,21,3,0)
+80 ;;=as an ingredient but roast beef as an embedded recipe and
+81 ;;^DD(114,1.5,21,4,0)
+82 ;;=perhaps even brown gravy as another embedded recipe.
+83 ;;^DD(114,2,0)
+84 ;;=NUMBER OF PORTIONS^RNJ4,0^^0;2^K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X
+85 ;;^DD(114,2,3)
+86 ;;=Type a Number between 1 and 1000, 0 Decimal Digits
+87 ;;^DD(114,2,21,0)
+88 ;;=^^3^3^2881117^^^
+89 ;;^DD(114,2,21,1,0)
+90 ;;=This is the yield, in terms of number of portions, of the
+91 ;;^DD(114,2,21,2,0)
+92 ;;=recipe. It should be within a factor of 10 of the normal quantity
+93 ;;^DD(114,2,21,3,0)
+94 ;;=needed and need not be 100.
+95 ;;^DD(114,2,"DT")
+96 ;;=2881117
+97 ;;^DD(114,3,0)
+98 ;;=PORTION SIZE^RFX^^0;3^K:$L(X)>8!($L(X)<1) X I $D(X) D EN3^FHREC1
+99 ;;^DD(114,3,3)
+100 ;;=ANSWER MUST BE A NUMBER FOLLOWED BY OZ, FLOZ OR EACH
+101 ;;^DD(114,3,21,0)
+102 ;;=^^2^2^2930916^^^^
+103 ;;^DD(114,3,21,1,0)
+104 ;;=This is a short description of the portion size, e.g., 3-oz. or
+105 ;;^DD(114,3,21,2,0)
+106 ;;=1 each. Size must be a number followed by OZ, EACH or FLOZ.
+107 ;;^DD(114,3,"DT")
+108 ;;=2880918
+109 ;;^DD(114,4,0)
+110 ;;=PREPARATION TIME^F^^0;4^K:$L(X)>10!($L(X)<1) X
+111 ;;^DD(114,4,3)
+112 ;;=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
+113 ;;^DD(114,4,21,0)
+114 ;;=^^2^2^2880717^
+115 ;;^DD(114,4,21,1,0)
+116 ;;=This field indicates the amount of preparation time this
+117 ;;^DD(114,4,21,2,0)
+118 ;;=recipe will require.
+119 ;;^DD(114,5,0)
+120 ;;=EQUIPMENT^114.05P^^E;0
+121 ;;^DD(114,5,3)
+122 ;;=
+123 ;;^DD(114,5,21,0)
+124 ;;=^^2^2^2880919^
+125 ;;^DD(114,5,21,1,0)
+126 ;;=This multiple is used to indicate the various types of equipment
+127 ;;^DD(114,5,21,2,0)
+128 ;;=necessary to produce this recipe.
+129 ;;^DD(114,5,"DT")
+130 ;;=2871114
+131 ;;^DD(114,6,0)
+132 ;;=SERVING UTENSIL^P114.3'^FH(114.3,^0;6^Q
+133 ;;^DD(114,6,3)
+134 ;;=
+135 ;;^DD(114,6,21,0)
+136 ;;=^^2^2^2930127^^
+137 ;;^DD(114,6,21,1,0)
+138 ;;=This field indicates the primary serving utensil which will be
+139 ;;^DD(114,6,21,2,0)
+140 ;;=required by tray line personnel or cafeteria line personnel.
+141 ;;^DD(114,6,"DT")
+142 ;;=2871114
+143 ;;^DD(114,7,0)
+144 ;;=DEFAULT CATEGORY^RP114.1'^FH(114.1,^0;7^Q
+145 ;;^DD(114,7,3)
+146 ;;=
+147 ;;^DD(114,7,21,0)
+148 ;;=^^4^4^2880717^
+149 ;;^DD(114,7,21,1,0)
+150 ;;=This is the primary category of the recipe. Selection does not
+151 ;;^DD(114,7,21,2,0)
+152 ;;=prohibit the use of the recipe in other ways (e.g., a 'salad'
+153 ;;^DD(114,7,21,3,0)
+154 ;;=being used for dessert) but does influence the printing order
+155 ;;^DD(114,7,21,4,0)
+156 ;;=of the recipe in various lists.
+157 ;;^DD(114,7,"DT")
+158 ;;=2940120
+159 ;;^DD(114,8,0)
+160 ;;=SYNONYM^F^^0;9^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3) X
+161 ;;^DD(114,8,1,0)
+162 ;;=^.1
+163 ;;^DD(114,8,1,1,0)
+164 ;;=114^C
+165 ;;^DD(114,8,1,1,1)
+166 ;;=S ^FH(114,"C",$E(X,1,30),DA)=""
