1 | FHPRF ; HISC/REL - Forecasting ;2/13/95 14:27
|
---|
2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
---|
3 | EN1 ; Production Diet Percentages
|
---|
4 | W ! S DIC="^FH(119.72,",DIC(0)="AEQM" D ^DIC G KIL:"^"[X!$D(DTOUT),EN1:Y<1 S DA=+Y
|
---|
5 | W ! S DIE="^FH(119.72,",DR="11",DR(2,119.7211)="10:16;W !" D ^DIE
|
---|
6 | S DA(1)=DA,DIK="^FH(119.72,DA(1),""A""," F DA=0:0 S DA=$O(^FH(119.72,DA(1),"A",DA)) Q:DA'>0 I $P($G(^(DA,0)),"^",2,8)?."^" D ^DIK
|
---|
7 | D KIL G EN1
|
---|
8 | EN2 ; Enter/Edit Other Meals
|
---|
9 | W ! S DIC="^FH(119.72,",DIC(0)="AEQM" D ^DIC G KIL:"^"[X!$D(DTOUT),EN2:Y<1 S DA=+Y
|
---|
10 | W ! S DIE="^FH(119.72,",DR=10,DR(2,119.721)="10:30;W !" D ^DIE
|
---|
11 | S DA(1)=DA,DIK="^FH(119.72,DA(1),""B""," F DA=0:0 S DA=$O(^FH(119.72,DA(1),"B",DA)) Q:DA'>0 I $P($G(^(DA,0)),"^",2,22)?."^" D ^DIK
|
---|
12 | D KIL G EN2
|
---|
13 | KIL G KILL^XUSCLEAN
|
---|