FHINI0K8 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(114.1) 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.1,0,"GL")
;;=^FH(114.1,
;;^DIC("B","RECIPE CATEGORY",114.1)
;;=
;;^DIC(114.1,"%D",0)
;;=^^3^3^2880515^
;;^DIC(114.1,"%D",1,0)
;;=This file contains a basic list of categorizations which may
;;^DIC(114.1,"%D",2,0)
;;=be applied to recipes. It is primarily used to sort and/or
;;^DIC(114.1,"%D",3,0)
;;=determine the order in which lists of recipes will print.
;;^DD(114.1,0)
;;=FIELD^^99^4
;;^DD(114.1,0,"DT")
;;=2950428
;;^DD(114.1,0,"ID",99)
;;=W:$D(^("I")) " (** INACTIVE **)"
;;^DD(114.1,0,"IX","AC",114.1,99)
;;=
;;^DD(114.1,0,"IX","B",114.1,.01)
;;=
;;^DD(114.1,0,"IX","C",114.1,1)
;;=
;;^DD(114.1,0,"NM","RECIPE CATEGORY")
;;=
;;^DD(114.1,0,"PT",111.115,.01)
;;=
;;^DD(114.1,0,"PT",111.116,.01)
;;=
;;^DD(114.1,0,"PT",111.117,.01)
;;=
;;^DD(114.1,0,"PT",114,7)
;;=
;;^DD(114.1,0,"PT",114.0103,.01)
;;=
;;^DD(114.1,0,"PT",116.11,3)
;;=
;;^DD(114.1,0,"PT",116.12,.01)
;;=
;;^DD(114.1,0,"SCR")
;;=I '$D(^FH(114.1,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
;;^DD(114.1,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X
;;^DD(114.1,.01,1,0)
;;=^.1
;;^DD(114.1,.01,1,1,0)
;;=114.1^B
;;^DD(114.1,.01,1,1,1)
;;=S ^FH(114.1,"B",$E(X,1,30),DA)=""
;;^DD(114.1,.01,1,1,2)
;;=K ^FH(114.1,"B",$E(X,1,30),DA)
;;^DD(114.1,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(114.1,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the NAME field.
;;^DD(114.1,.01,3)
;;=ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
;;^DD(114.1,.01,21,0)
;;=^^3^3^2880709^
;;^DD(114.1,.01,21,1,0)
;;=This is the name of a category of recipes (e.g., beverages,
;;^DD(114.1,.01,21,2,0)
;;=condiments, entree meats, etc.) which are used to sort the
;;^DD(114.1,.01,21,3,0)
;;=recipe items on the various meal lists.
;;^DD(114.1,.01,"DEL",1,0)
;;=I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
;;^DD(114.1,1,0)
;;=CODE^RFX^^0;2^K:X[""""!$A(X)=45 X I $D(X) D TR^FH K:X'?1U.1U1N.1"X" X I $D(X) S Y=$O(^FH(114.1,"C",X,0)) I Y>0,Y-DA W *7," Code used by ",$P(^FH(114.1,Y,0),"^",1) K X
;;^DD(114.1,1,1,0)
;;=^.1
;;^DD(114.1,1,1,1,0)
;;=114.1^C
;;^DD(114.1,1,1,1,1)
;;=S ^FH(114.1,"C",$E(X,1,30),DA)=""
;;^DD(114.1,1,1,1,2)
;;=K ^FH(114.1,"C",$E(X,1,30),DA)
;;^DD(114.1,1,3)
;;=ANSWER MUST BE ONE TO TWO CHARACTERS AND A NUMBER OR ONE TO TWO CHARACTERS, A NUMBER AND AN 'X' AT THE END.
;;^DD(114.1,1,21,0)
;;=^^3^3^2950502^^^^
;;^DD(114.1,1,21,1,0)
;;=This field represents a short code for the recipe category. It
;;^DD(114.1,1,21,2,0)
;;=consists of one to two characters and a number or one to two characters,
;;^DD(114.1,1,21,3,0)
;;=a number, and an 'X' used when printing tray assembly tickets.
;;^DD(114.1,1,"DT")
;;=2950428
;;^DD(114.1,2,0)
;;=MEAL PRINT ORDER^RNJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(114.1,2,3)
;;=Type a Number between 1 and 99, 0 Decimal Digits
;;^DD(114.1,2,21,0)
;;=^^3^3^2880717^
;;^DD(114.1,2,21,1,0)
;;=This value is used to sort recipes for printing as meals. The
;;^DD(114.1,2,21,2,0)
;;=value indicates the relative print order, from low to high, of
;;^DD(114.1,2,21,3,0)
;;=recipes in this recipe category.
;;^DD(114.1,99,0)
;;=INACTIVE?^S^Y:YES;N:NO;^I;1^Q
;;^DD(114.1,99,1,0)
;;=^.1
;;^DD(114.1,99,1,1,0)
;;=114.1^AC^MUMPS
;;^DD(114.1,99,1,1,1)
;;=K:X'="Y" ^FH(114.1,DA,"I")
;;^DD(114.1,99,1,1,2)
;;=K ^FH(114.1,DA,"I")
;;^DD(114.1,99,1,1,"%D",0)
;;=^^1^1^2940701^
;;^DD(114.1,99,1,1,"%D",1,0)
;;=This is a cross reference for Recipe Categories that are inactive.
;;^DD(114.1,99,1,1,"DT")
;;=2940701
;;^DD(114.1,99,21,0)
;;=^^2^2^2950221^^^^
;;^DD(114.1,99,21,1,0)
;;=This field, when answered YES, will prohibit further selection
;;^DD(114.1,99,21,2,0)
;;=of this Recipe Category.
;;^DD(114.1,99,"DT")
;;=2940701
FHINI0K8 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(114.1)
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.1,0,"GL")
+2 ;;=^FH(114.1,
+3 ;;^DIC("B","RECIPE CATEGORY",114.1)
+4 ;;=
+5 ;;^DIC(114.1,"%D",0)
+6 ;;=^^3^3^2880515^
+7 ;;^DIC(114.1,"%D",1,0)
+8 ;;=This file contains a basic list of categorizations which may
+9 ;;^DIC(114.1,"%D",2,0)
+10 ;;=be applied to recipes. It is primarily used to sort and/or
+11 ;;^DIC(114.1,"%D",3,0)
+12 ;;=determine the order in which lists of recipes will print.
+13 ;;^DD(114.1,0)
+14 ;;=FIELD^^99^4
+15 ;;^DD(114.1,0,"DT")
+16 ;;=2950428
+17 ;;^DD(114.1,0,"ID",99)
+18 ;;=W:$D(^("I")) " (** INACTIVE **)"
+19 ;;^DD(114.1,0,"IX","AC",114.1,99)
+20 ;;=
+21 ;;^DD(114.1,0,"IX","B",114.1,.01)
+22 ;;=
+23 ;;^DD(114.1,0,"IX","C",114.1,1)
+24 ;;=
+25 ;;^DD(114.1,0,"NM","RECIPE CATEGORY")
+26 ;;=
+27 ;;^DD(114.1,0,"PT",111.115,.01)
+28 ;;=
+29 ;;^DD(114.1,0,"PT",111.116,.01)
+30 ;;=
+31 ;;^DD(114.1,0,"PT",111.117,.01)
+32 ;;=
+33 ;;^DD(114.1,0,"PT",114,7)
+34 ;;=
+35 ;;^DD(114.1,0,"PT",114.0103,.01)
+36 ;;=
+37 ;;^DD(114.1,0,"PT",116.11,3)
+38 ;;=
+39 ;;^DD(114.1,0,"PT",116.12,.01)
+40 ;;=
+41 ;;^DD(114.1,0,"SCR")
+42 ;;=I '$D(^FH(114.1,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
+43 ;;^DD(114.1,.01,0)
+44 ;;=NAME^RF^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X
+45 ;;^DD(114.1,.01,1,0)
+46 ;;=^.1
+47 ;;^DD(114.1,.01,1,1,0)
+48 ;;=114.1^B
+49 ;;^DD(114.1,.01,1,1,1)
+50 ;;=S ^FH(114.1,"B",$E(X,1,30),DA)=""
+51 ;;^DD(114.1,.01,1,1,2)
+52 ;;=K ^FH(114.1,"B",$E(X,1,30),DA)
+53 ;;^DD(114.1,.01,1,1,"%D",0)
+54 ;;=^^1^1^2911118^
+55 ;;^DD(114.1,.01,1,1,"%D",1,0)
+56 ;;=This is the normal B cross-reference of the NAME field.
+57 ;;^DD(114.1,.01,3)
+58 ;;=ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
+59 ;;^DD(114.1,.01,21,0)
+60 ;;=^^3^3^2880709^
+61 ;;^DD(114.1,.01,21,1,0)
+62 ;;=This is the name of a category of recipes (e.g., beverages,
+63 ;;^DD(114.1,.01,21,2,0)
+64 ;;=condiments, entree meats, etc.) which are used to sort the
+65 ;;^DD(114.1,.01,21,3,0)
+66 ;;=recipe items on the various meal lists.
+67 ;;^DD(114.1,.01,"DEL",1,0)
+68 ;;=I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
+69 ;;^DD(114.1,1,0)
+70 ;;=CODE^RFX^^0;2^K:X[""""!$A(X)=45 X I $D(X) D TR^FH K:X'?1U.1U1N.1"X" X I $D(X) S Y=$O(^FH(114.1,"C",X,0)) I Y>0,Y-DA W *7," Code used by ",$P(^FH(114.1,Y,0),"^",1) K X
+71 ;;^DD(114.1,1,1,0)
+72 ;;=^.1
+73 ;;^DD(114.1,1,1,1,0)
+74 ;;=114.1^C
+75 ;;^DD(114.1,1,1,1,1)
+76 ;;=S ^FH(114.1,"C",$E(X,1,30),DA)=""
+77 ;;^DD(114.1,1,1,1,2)
+78 ;;=K ^FH(114.1,"C",$E(X,1,30),DA)
+79 ;;^DD(114.1,1,3)
+80 ;;=ANSWER MUST BE ONE TO TWO CHARACTERS AND A NUMBER OR ONE TO TWO CHARACTERS, A NUMBER AND AN 'X' AT THE END.
+81 ;;^DD(114.1,1,21,0)
+82 ;;=^^3^3^2950502^^^^
+83 ;;^DD(114.1,1,21,1,0)
+84 ;;=This field represents a short code for the recipe category. It
+85 ;;^DD(114.1,1,21,2,0)
+86 ;;=consists of one to two characters and a number or one to two characters,
+87 ;;^DD(114.1,1,21,3,0)
+88 ;;=a number, and an 'X' used when printing tray assembly tickets.
+89 ;;^DD(114.1,1,"DT")
+90 ;;=2950428
+91 ;;^DD(114.1,2,0)
+92 ;;=MEAL PRINT ORDER^RNJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+93 ;;^DD(114.1,2,3)
+94 ;;=Type a Number between 1 and 99, 0 Decimal Digits
+95 ;;^DD(114.1,2,21,0)
+96 ;;=^^3^3^2880717^
+97 ;;^DD(114.1,2,21,1,0)
+98 ;;=This value is used to sort recipes for printing as meals. The
+99 ;;^DD(114.1,2,21,2,0)
+100 ;;=value indicates the relative print order, from low to high, of
+101 ;;^DD(114.1,2,21,3,0)
+102 ;;=recipes in this recipe category.
+103 ;;^DD(114.1,99,0)
+104 ;;=INACTIVE?^S^Y:YES;N:NO;^I;1^Q
+105 ;;^DD(114.1,99,1,0)
+106 ;;=^.1
+107 ;;^DD(114.1,99,1,1,0)
+108 ;;=114.1^AC^MUMPS
+109 ;;^DD(114.1,99,1,1,1)
+110 ;;=K:X'="Y" ^FH(114.1,DA,"I")
+111 ;;^DD(114.1,99,1,1,2)
+112 ;;=K ^FH(114.1,DA,"I")
+113 ;;^DD(114.1,99,1,1,"%D",0)
+114 ;;=^^1^1^2940701^
+115 ;;^DD(114.1,99,1,1,"%D",1,0)
+116 ;;=This is a cross reference for Recipe Categories that are inactive.
+117 ;;^DD(114.1,99,1,1,"DT")
+118 ;;=2940701
+119 ;;^DD(114.1,99,21,0)
+120 ;;=^^2^2^2950221^^^^
+121 ;;^DD(114.1,99,21,1,0)
+122 ;;=This field, when answered YES, will prohibit further selection
+123 ;;^DD(114.1,99,21,2,0)
+124 ;;=of this Recipe Category.
+125 ;;^DD(114.1,99,"DT")
+126 ;;=2940701
