RMPFEP ;DDC/KAW-ENTER/EDIT PRODUCTS FOR ASPS [ 06/16/95 3:06 PM ]
;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
W @IOF,!,"PRODUCT, COMPONENT & BATTERY ENTER/EDIT"
W !!,"*** USE THIS OPTION WITH CAUTION ***"
W !!!,"Products, components and batteries must be entered or edited ONLY"
W !,"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."
A1 W !!,"Edit <P>roduct, <C>omponent or <B>attery File? " D READ G END:$D(RMPFOUT)
A11 I $D(RMPFQUT) W !!,"Enter a <P> to edit the Product File",!?6,"a <C> to edit the Component File or",!?6,"a <B> to edit the Battery File" G A1
G END:Y="" S Y=$E(Y,1) I "PpCcBb"'[Y S RMPFQUT="" G A11
S RMPFSEL=$S("Pp"[Y:"P","Bb"[Y:"B",1:"C")
D PRODUCT:RMPFSEL="P",COMPON:RMPFSEL="C",BATTERY:RMPFSEL="B"
G RMPFEP
END K DIC,DIE,DR,DA,DI,DISYS,D1,D0,DLAYGO,DQ,%,RMPFSEL,X,Y Q
PRODUCT W @IOF,!!,"ENTER/EDIT PRODUCTS"
W !!,"If you are entering a product that has components or batteries"
W !,"the components and batteries must be entered into the Component File and"
W !,"Battery File before they can be chosen through this option."
W !!,"ONLY enter components and batteries for a product if they are DDC approved."
P1 W !! S DIC=791811,DIC(0)="AEQML",DLAYGO=791811 D ^DIC Q:Y=-1
S DIE=791811,DA=+Y
S DR=".01;.02;.03;.04;.05;.06////9;.07;.08;101;102"
D ^DIE
K DIC,DIE,DD,DO G P1
COMPON W @IOF,!,"ENTER/EDIT COMPONENTS"
W !!,"ONLY enter components that are currently on contract."
C1 W !! S DIC=791811.2,DIC(0)="AEQML",DLAYGO=791811.2 D ^DIC Q:Y=-1
W !! S DIE=DIC,DA=+Y,DR=".01;.03" D ^DIE
K DIC,DIE,DD,DO G C1
BATTERY W @IOF,!,"ENTER/EDIT BATTERIES"
W !!,"ONLY enter batteries that are distributed by the DDC."
B1 W !! S DIC=791811.3,DIC(0)="AEQML",DLAYGO=791811.3 D ^DIC Q:Y=-1
K DIC,DIE,DO,DD G B1
READ K RMPFOUT,RMPFQUT
R Y:DTIME I '$T W *7 R Y:5 G READ:Y="." S:'$T Y=U
I Y?1"^".E S (RMPFOUT,Y)="" Q
S:Y?1"?".E (RMPFQUT,Y)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFEP 2044 printed Oct 16, 2024@18:36:52 Page 2
RMPFEP ;DDC/KAW-ENTER/EDIT PRODUCTS FOR ASPS [ 06/16/95 3:06 PM ]
+1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
+2 WRITE @IOF,!,"PRODUCT, COMPONENT & BATTERY ENTER/EDIT"
+3 WRITE !!,"*** USE THIS OPTION WITH CAUTION ***"
+4 WRITE !!!,"Products, components and batteries must be entered or edited ONLY"
+5 WRITE !,"as directed by the DDC."
+6 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."
A1 WRITE !!,"Edit <P>roduct, <C>omponent or <B>attery File? "
DO READ
if $DATA(RMPFOUT)
GOTO END
A11 IF $DATA(RMPFQUT)
WRITE !!,"Enter a <P> to edit the Product File",!?6,"a <C> to edit the Component File or",!?6,"a <B> to edit the Battery File"
GOTO A1
+1 if Y=""
GOTO END
SET Y=$EXTRACT(Y,1)
IF "PpCcBb"'[Y
SET RMPFQUT=""
GOTO A11
+2 SET RMPFSEL=$SELECT("Pp"[Y:"P","Bb"[Y:"B",1:"C")
+3 if RMPFSEL="P"
DO PRODUCT
if RMPFSEL="C"
DO COMPON
if RMPFSEL="B"
DO BATTERY
+4 GOTO RMPFEP
END KILL DIC,DIE,DR,DA,DI,DISYS,D1,D0,DLAYGO,DQ,%,RMPFSEL,X,Y
QUIT
PRODUCT WRITE @IOF,!!,"ENTER/EDIT PRODUCTS"
+1 WRITE !!,"If you are entering a product that has components or batteries"
+2 WRITE !,"the components and batteries must be entered into the Component File and"
+3 WRITE !,"Battery File before they can be chosen through this option."
+4 WRITE !!,"ONLY enter components and batteries for a product if they are DDC approved."
P1 WRITE !!
SET DIC=791811
SET DIC(0)="AEQML"
SET DLAYGO=791811
DO ^DIC
if Y=-1
QUIT
+1 SET DIE=791811
SET DA=+Y
+2 SET DR=".01;.02;.03;.04;.05;.06////9;.07;.08;101;102"
+3 DO ^DIE
+4 KILL DIC,DIE,DD,DO
GOTO P1
COMPON WRITE @IOF,!,"ENTER/EDIT COMPONENTS"
+1 WRITE !!,"ONLY enter components that are currently on contract."
C1 WRITE !!
SET DIC=791811.2
SET DIC(0)="AEQML"
SET DLAYGO=791811.2
DO ^DIC
if Y=-1
QUIT
+1 WRITE !!
SET DIE=DIC
SET DA=+Y
SET DR=".01;.03"
DO ^DIE
+2 KILL DIC,DIE,DD,DO
GOTO C1
BATTERY WRITE @IOF,!,"ENTER/EDIT BATTERIES"
+1 WRITE !!,"ONLY enter batteries that are distributed by the DDC."
B1 WRITE !!
SET DIC=791811.3
SET DIC(0)="AEQML"
SET DLAYGO=791811.3
DO ^DIC
if Y=-1
QUIT
+1 KILL DIC,DIE,DO,DD
GOTO B1
READ KILL RMPFOUT,RMPFQUT
+1 READ Y:DTIME
IF '$TEST
WRITE *7
READ Y:5
if Y="."
GOTO READ
if '$TEST
SET Y=U
+2 IF Y?1"^".E
SET (RMPFOUT,Y)=""
QUIT
+3 if Y?1"?".E
SET (RMPFQUT,Y)=""
+4 QUIT
