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 ---[H[J[2J[HRMPFEP2 668 printed Oct 16, 2024@18:36:53 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
