| 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
|
|---|
