ADCFEDIT.m

ADCFEDIT ;THL/IHS-OIRM-DSD;EDIT OF OPTION DESCRIPTIONS FOR THE DOCUMENTATION UTILITIES [ 03/21/91  8:10 AM ]

 ;;1;PACKAGE DOCUMENTATION UTILITIES

EXIT K ADC,ADCSTART

 Q

OPT ;EP;TO EDIT OPTION DESCRIPTIONS

 W !!?15,"EDIT OPTION DESCRIPTIONS"

 F  D OPT1 Q:$D(DIRUT)

 G EXIT

OPT1 S DIR(0)="PO^19,:AEMQ",DIR("A")="Select OPTION"

 W !

 D ^DIR K DIR

 Q:+Y<1

 S DA=+Y,DIE="^DIC(19,",DR="3.5"

 W !

 D ^DIE K DIE,DR,DA

 Q

SEC ;EP;TO EDIT SECURITY KEY DESCRIPTIONS

 W !!?21,"EDIT SECURITY KEY DESCRIPTIONS"

 F  D SEC1 Q:$D(DIRUT)

 G EXIT

SEC1 S DIR(0)="PO^19.1,:AEMQ",DIR("A")="Select SECURITY KEY"

 W !

 D ^DIR K DIR

 Q:+Y<1

 S DA=+Y,DIE="^DIC(19.1,",DR="1"

 W !

 D ^DIE K DIE,DR,DA

 Q

ADCFEDIT  ;THL/IHS-OIRM-DSD;EDIT OF OPTION DESCRIPTIONS FOR THE DOCUMENTATION UTILITIES [ 03/21/91  8:10 AM ]

 +1       ;;1;PACKAGE DOCUMENTATION UTILITIES

EXIT       KILL ADC,ADCSTART

 +1        QUIT 

OPT       ;EP;TO EDIT OPTION DESCRIPTIONS

 +1        WRITE !!?15,"EDIT OPTION DESCRIPTIONS"

 +2        FOR 

               DO OPT1

               IF $DATA(DIRUT)

                   QUIT 

 +3        GOTO EXIT

OPT1       SET DIR(0)="PO^19,:AEMQ"

           SET DIR("A")="Select OPTION"

 +1        WRITE !

 +2        DO ^DIR

           KILL DIR

 +3        IF +Y<1

               QUIT 

 +4        SET DA=+Y

           SET DIE="^DIC(19,"

           SET DR="3.5"

 +5        WRITE !

 +6        DO ^DIE

           KILL DIE,DR,DA

 +7        QUIT 

SEC       ;EP;TO EDIT SECURITY KEY DESCRIPTIONS

 +1        WRITE !!?21,"EDIT SECURITY KEY DESCRIPTIONS"

 +2        FOR 

               DO SEC1

               IF $DATA(DIRUT)

                   QUIT 

 +3        GOTO EXIT

SEC1       SET DIR(0)="PO^19.1,:AEMQ"

           SET DIR("A")="Select SECURITY KEY"

 +1        WRITE !

 +2        DO ^DIR

           KILL DIR

 +3        IF +Y<1

               QUIT 

 +4        SET DA=+Y

           SET DIE="^DIC(19.1,"

           SET DR="1"

 +5        WRITE !

 +6        DO ^DIE

           KILL DIE,DR,DA

 +7        QUIT