FHREC ; HISC/REL - Recipe Management ;2/13/95 14:29
;;5.5;DIETETICS;;Jan 28, 2005
EN1 ; Enter/Edit Recipes
S (DIC,DIE)="^FH(114,",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=114 W ! D ^DIC K DIC,DLAYGO G KIL:U[X!$D(DTOUT),EN1:Y<1
S DA=+Y,DR="[FHINPR]" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=114 D ^DIE
I $D(DA) S REC=DA D ANAL^FHREC5
D KIL G EN1
EN3 ; Enter/Edit Recipe Categories
S (DIC,DIE)="^FH(114.1,",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=114.1 W ! D ^DIC K DIC,DLAYGO G KIL:"^"[X!$D(DTOUT),EN3:Y<1
S DA=+Y,DR=".01:99" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=114.1 D ^DIE,KIL G EN3
EN4 ; List Recipe Categories
W ! S L=0,DIC="^FH(114.1,",FLDS="[FHRECC]",BY="2,.01"
S FR="@",TO="",DHD="RECIPE CATEGORIES" D EN1^DIP,RSET Q
EN5 ; Enter/Edit Serving Utensils
S (DIC,DIE)="^FH(114.3,",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=114.3 W ! D ^DIC K DIC,DLAYGO G KIL:"^"[X!$D(DTOUT),EN5:Y<1
S DA=+Y,DR=".01:99" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=114.3 D ^DIE,KIL G EN5
EN6 ; List Serving Utensils
W ! S L=0,DIC="^FH(114.3,",FLDS="NAME",BY="NAME"
S (FR,TO)="",DHD="SERVING UTENSILS" D EN1^DIP,RSET Q
EN7 ; Enter/Edit Equipment
S (DIC,DIE)="^FH(114.4,",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=114.4 W ! D ^DIC K DIC,DLAYGO G KIL:"^"[X!$D(DTOUT),EN7:Y<1
S DA=+Y,DR=".01:99" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=114.4 D ^DIE,KIL G EN7
EN8 ; List Equipment
W ! S L=0,DIC="^FH(114.4,",FLDS="NAME",BY="NAME"
S (FR,TO)="",DHD="EQUIPMENT" D EN1^DIP,RSET Q
EN9 ; Enter/Edit Preparation Areas
S (DIC,DIE)="^FH(114.2,",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=114.2 W ! D ^DIC K DIC,DLAYGO G KIL:U[X!$D(DTOUT),EN9:Y<1
S DA=+Y,DR=".01:99" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=114.2 D ^DIE,KIL G EN9
EN10 ; List Preparation Areas
W ! S L=0,DIC="^FH(114.2,",FLDS="[FHPROP]",BY="PRINT ORDER,NAME"
S FR="@",TO="",DHD="PREPARATION AREAS" D EN1^DIP,RSET Q
RSET K %ZIS S IOP="" D ^%ZIS
KIL G KILL^XUSCLEAN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHREC 1895 printed Oct 16, 2024@17:55:40 Page 2
FHREC ; HISC/REL - Recipe Management ;2/13/95 14:29
+1 ;;5.5;DIETETICS;;Jan 28, 2005
EN1 ; Enter/Edit Recipes
+1 SET (DIC,DIE)="^FH(114,"
SET DIC(0)="AEQLM"
SET DIC("DR")=".01"
SET DLAYGO=114
WRITE !
DO ^DIC
KILL DIC,DLAYGO
if U[X!$DATA(DTOUT)
GOTO KIL
if Y<1
GOTO EN1
+2 SET DA=+Y
SET DR="[FHINPR]"
if $DATA(^XUSEC("FHMGR",DUZ))
SET DIDEL=114
DO ^DIE
+3 IF $DATA(DA)
SET REC=DA
DO ANAL^FHREC5
+4 DO KIL
GOTO EN1
EN3 ; Enter/Edit Recipe Categories
+1 SET (DIC,DIE)="^FH(114.1,"
SET DIC(0)="AEQLM"
SET DIC("DR")=".01"
SET DLAYGO=114.1
WRITE !
DO ^DIC
KILL DIC,DLAYGO
if "^"[X!$DATA(DTOUT)
GOTO KIL
if Y<1
GOTO EN3
+2 SET DA=+Y
SET DR=".01:99"
if $DATA(^XUSEC("FHMGR",DUZ))
SET DIDEL=114.1
DO ^DIE
DO KIL
GOTO EN3
EN4 ; List Recipe Categories
+1 WRITE !
SET L=0
SET DIC="^FH(114.1,"
SET FLDS="[FHRECC]"
SET BY="2,.01"
+2 SET FR="@"
SET TO=""
SET DHD="RECIPE CATEGORIES"
DO EN1^DIP
DO RSET
QUIT
EN5 ; Enter/Edit Serving Utensils
+1 SET (DIC,DIE)="^FH(114.3,"
SET DIC(0)="AEQLM"
SET DIC("DR")=".01"
SET DLAYGO=114.3
WRITE !
DO ^DIC
KILL DIC,DLAYGO
if "^"[X!$DATA(DTOUT)
GOTO KIL
if Y<1
GOTO EN5
+2 SET DA=+Y
SET DR=".01:99"
if $DATA(^XUSEC("FHMGR",DUZ))
SET DIDEL=114.3
DO ^DIE
DO KIL
GOTO EN5
EN6 ; List Serving Utensils
+1 WRITE !
SET L=0
SET DIC="^FH(114.3,"
SET FLDS="NAME"
SET BY="NAME"
+2 SET (FR,TO)=""
SET DHD="SERVING UTENSILS"
DO EN1^DIP
DO RSET
QUIT
EN7 ; Enter/Edit Equipment
+1 SET (DIC,DIE)="^FH(114.4,"
SET DIC(0)="AEQLM"
SET DIC("DR")=".01"
SET DLAYGO=114.4
WRITE !
DO ^DIC
KILL DIC,DLAYGO
if "^"[X!$DATA(DTOUT)
GOTO KIL
if Y<1
GOTO EN7
+2 SET DA=+Y
SET DR=".01:99"
if $DATA(^XUSEC("FHMGR",DUZ))
SET DIDEL=114.4
DO ^DIE
DO KIL
GOTO EN7
EN8 ; List Equipment
+1 WRITE !
SET L=0
SET DIC="^FH(114.4,"
SET FLDS="NAME"
SET BY="NAME"
+2 SET (FR,TO)=""
SET DHD="EQUIPMENT"
DO EN1^DIP
DO RSET
QUIT
EN9 ; Enter/Edit Preparation Areas
+1 SET (DIC,DIE)="^FH(114.2,"
SET DIC(0)="AEQLM"
SET DIC("DR")=".01"
SET DLAYGO=114.2
WRITE !
DO ^DIC
KILL DIC,DLAYGO
if U[X!$DATA(DTOUT)
GOTO KIL
if Y<1
GOTO EN9
+2 SET DA=+Y
SET DR=".01:99"
if $DATA(^XUSEC("FHMGR",DUZ))
SET DIDEL=114.2
DO ^DIE
DO KIL
GOTO EN9
EN10 ; List Preparation Areas
+1 WRITE !
SET L=0
SET DIC="^FH(114.2,"
SET FLDS="[FHPROP]"
SET BY="PRINT ORDER,NAME"
+2 SET FR="@"
SET TO=""
SET DHD="PREPARATION AREAS"
DO EN1^DIP
DO RSET
QUIT
RSET KILL %ZIS
SET IOP=""
DO ^%ZIS
KIL GOTO KILL^XUSCLEAN
