- 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 Feb 18, 2025@23:21:12 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