| [613] | 1 | FHASC ; HISC/REL/NCA - Clinical Management ;2/13/95 14:12
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | EN1 ; Enter/Edit Nutrition Classifications
|
|---|
| 4 | S (DIC,DIE)="^FH(115.3,",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=115.3 W ! D ^DIC K DIC,DLAYGO G KIL:"^"[X!$D(DTOUT),EN1:Y<1
|
|---|
| 5 | S DA=+Y,DR=".01:99" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=115.3 D ^DIE,KIL G EN1
|
|---|
| 6 | EN2 ; List Nutrition Classifications
|
|---|
| 7 | W ! S L=0,DIC="^FH(115.3,",FLDS=".01,99",BY=".01"
|
|---|
| 8 | S (FR,TO)="",DHD="NUTRITION CLASSIFICATIONS" D EN1^DIP,RSET Q
|
|---|
| 9 | EN9 ; Enter/Edit Nutrition Plans
|
|---|
| 10 | S (DIC,DIE)="^FH(115.5,",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=115.5 W ! D ^DIC K DIC,DLAYGO G KIL:"^"[X!$D(DTOUT),EN9:Y<1
|
|---|
| 11 | S DA=+Y,DR=".01:99" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=115.5 D ^DIE,KIL G EN9
|
|---|
| 12 | EN10 ; List Nutrition Plans
|
|---|
| 13 | W ! S L=0,DIC="^FH(115.5,",FLDS=".01",BY=".01"
|
|---|
| 14 | S (FR,TO)="",DHD="NUTRITION PLANS" D EN1^DIP,RSET Q
|
|---|
| 15 | RSET K %ZIS S IOP="" D ^%ZIS
|
|---|
| 16 | KIL G KILL^XUSCLEAN
|
|---|
