| 1 | RMPFEP2 ;DDC/KAW-ENTER/EDIT PRODUCTS FOR PSAS [ 06/16/95 3:06 PM ]
|
|---|
| 2 | ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
|
|---|
| 3 | W @IOF,!,"PRODUCT ENTER/EDIT"
|
|---|
| 4 | W !!,"*** USE THIS OPTION WITH CAUTION ***"
|
|---|
| 5 | W !!!,"Products must be entered or edited ONLY as directed by the DDC."
|
|---|
| 6 | W !!,"If entries vary in any way (even by one character) from the entry in the DDC",!,"file, all orders for which this entry is chosen will be rejected."
|
|---|
| 7 | P1 W ! S DIC="^RMPF(791811,",DIC(0)="AEQLM",DLAYGO=791811
|
|---|
| 8 | D ^DIC G END:Y=-1 S DIE=DIC,DA=+Y,DR=".01;.03;.04;.05;.08;.09" D ^DIE
|
|---|
| 9 | K DIC,DIC,DA,DR,DD,DO,DQ,D0,DDH
|
|---|
| 10 | G P1
|
|---|
| 11 | END K X,Y,DIC,DIE,DA,DR,DD,DO,DQ,D0,H,DI,DISYS,%,I,C,%R,%Y,DLAYGO Q
|
|---|
