RMPFEP2.m

RMPFEP2 ;DDC/KAW-ENTER/EDIT PRODUCTS FOR PSAS [ 06/16/95   3:06 PM ]

 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995

 W @IOF,!,"PRODUCT ENTER/EDIT"

 W !!,"***  USE THIS OPTION WITH CAUTION ***"

 W !!!,"Products must be entered or edited ONLY as directed by the DDC."

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

P1 W ! S DIC="^RMPF(791811,",DIC(0)="AEQLM",DLAYGO=791811

 D ^DIC G END:Y=-1 S DIE=DIC,DA=+Y,DR=".01;.03;.04;.05;.08;.09" D ^DIE

 K DIC,DIC,DA,DR,DD,DO,DQ,D0,DDH

 G P1

END K X,Y,DIC,DIE,DA,DR,DD,DO,DQ,D0,H,DI,DISYS,%,I,C,%R,%Y,DLAYGO Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPFEP2   668     printed  Apr 09, 2024@21:39:29                                                                                                                                                                                                      Page 2

RMPFEP2   ;DDC/KAW-ENTER/EDIT PRODUCTS FOR PSAS [ 06/16/95   3:06 PM ]

 +1       ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995

 +2        WRITE @IOF,!,"PRODUCT ENTER/EDIT"

 +3        WRITE !!,"***  USE THIS OPTION WITH CAUTION ***"

 +4        WRITE !!!,"Products must be entered or edited ONLY as directed by the DDC."

 +5        WRITE !!,"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."

P1         WRITE !

           SET DIC="^RMPF(791811,"

           SET DIC(0)="AEQLM"

           SET DLAYGO=791811

 +1        DO ^DIC

           if Y=-1

               GOTO END

           SET DIE=DIC

           SET DA=+Y

           SET DR=".01;.03;.04;.05;.08;.09"

           DO ^DIE

 +2        KILL DIC,DIC,DA,DR,DD,DO,DQ,D0,DDH

 +3        GOTO P1

END        KILL X,Y,DIC,DIE,DA,DR,DD,DO,DQ,D0,H,DI,DISYS,%,I,C,%R,%Y,DLAYGO

           QUIT