| 1 | ESP122PM ;ALB/JAP; POST-INSTALL FOR ES*1*22 cont.;3/98
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;entry point to select user option for es*1*22 conversion
|
|---|
| 5 | N OPTION,NUM,ESPOUT,DIR,DTOUT,DUOUT,DIRUT,X,Y
|
|---|
| 6 | S (ESPOUT,NUM)=0
|
|---|
| 7 | S OPTION(1)="Print Conversion Reports;EN^ESP122P1"
|
|---|
| 8 | S OPTION(2)="User Conversion of File #912 Records;MANUAL^ESP122P2"
|
|---|
| 9 | S OPTION(3)="Patch ES*1*22 Conversion Completion;COMPLETE^ESP122P3"
|
|---|
| 10 | W @IOF
|
|---|
| 11 | F D Q:(NUM>0)!(ESPOUT)
|
|---|
| 12 | .W !!?5,"Patch ES*1*22 Conversion Management"
|
|---|
| 13 | .W !?5,"===================================",!
|
|---|
| 14 | .W !?5,"You may select one of the following options:",!
|
|---|
| 15 | .W !!?10,"(1) "_$P(OPTION(1),";",1)
|
|---|
| 16 | .W !?10,"(2) "_$P(OPTION(2),";",1)
|
|---|
| 17 | .W !?10,"(3) "_$P(OPTION(3),";",1)
|
|---|
| 18 | .S DIR(0)="SAO^1:"_$P(OPTION(1),";",1)_";2:"_$P(OPTION(2),";",1)_";3:"_$P(OPTION(3),";",1)
|
|---|
| 19 | .S DIR("A")=" Select (1), (2) or (3): "
|
|---|
| 20 | .W !?5 D ^DIR K DIR W !
|
|---|
| 21 | .I $D(DTOUT)!($D(DUOUT))!($D(DIRUT)) S ESPOUT=1
|
|---|
| 22 | .I (X["^")!(Y["^") S ESPOUT=1
|
|---|
| 23 | .I Y S NUM=+Y,OPTION=$P(OPTION(NUM),";",2)
|
|---|
| 24 | Q:NUM=0
|
|---|
| 25 | W !!?5,"You have opted to "_$P(OPTION(NUM),";",1),!
|
|---|
| 26 | K X,Y S DIR(0)="E" D ^DIR K DIR W !
|
|---|
| 27 | I Y D @OPTION
|
|---|
| 28 | G:'ESPOUT EN
|
|---|
| 29 | Q
|
|---|
