ESP122PM.m

ESP122PM ;ALB/JAP; POST-INSTALL FOR ES*1*22 cont.;3/98

 ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994

 ;

EN ;entry point to select user option for es*1*22 conversion

 N OPTION,NUM,ESPOUT,DIR,DTOUT,DUOUT,DIRUT,X,Y

 S (ESPOUT,NUM)=0

 S OPTION(1)="Print Conversion Reports;EN^ESP122P1"

 S OPTION(2)="User Conversion of File #912 Records;MANUAL^ESP122P2"

 S OPTION(3)="Patch ES*1*22 Conversion Completion;COMPLETE^ESP122P3"

 W @IOF

 F  D  Q:(NUM>0)!(ESPOUT)

 .W !!?5,"Patch ES*1*22 Conversion Management"

 .W !?5,"===================================",!

 .W !?5,"You may select one of the following options:",!

 .W !!?10,"(1) "_$P(OPTION(1),";",1)

 .W !?10,"(2) "_$P(OPTION(2),";",1)

 .W !?10,"(3) "_$P(OPTION(3),";",1)

 .S DIR(0)="SAO^1:"_$P(OPTION(1),";",1)_";2:"_$P(OPTION(2),";",1)_";3:"_$P(OPTION(3),";",1)

 .S DIR("A")="     Select (1), (2) or (3): "

 .W !?5 D ^DIR K DIR W !

 .I $D(DTOUT)!($D(DUOUT))!($D(DIRUT)) S ESPOUT=1

 .I (X["^")!(Y["^") S ESPOUT=1

 .I Y S NUM=+Y,OPTION=$P(OPTION(NUM),";",2)

 Q:NUM=0

 W !!?5,"You have opted to "_$P(OPTION(NUM),";",1),!

 K X,Y S DIR(0)="E" D ^DIR K DIR W !

 I Y D @OPTION

 G:'ESPOUT EN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESP122PM   1159     printed  Feb 18, 2025@23:56:03                                                                                                                                                                                                    Page 2

ESP122PM  ;ALB/JAP; POST-INSTALL FOR ES*1*22 cont.;3/98

 +1       ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994

 +2       ;

EN        ;entry point to select user option for es*1*22 conversion

 +1        NEW OPTION,NUM,ESPOUT,DIR,DTOUT,DUOUT,DIRUT,X,Y

 +2        SET (ESPOUT,NUM)=0

 +3        SET OPTION(1)="Print Conversion Reports;EN^ESP122P1"

 +4        SET OPTION(2)="User Conversion of File #912 Records;MANUAL^ESP122P2"

 +5        SET OPTION(3)="Patch ES*1*22 Conversion Completion;COMPLETE^ESP122P3"

 +6        WRITE @IOF

 +7        FOR 

               Begin DoDot:1

 +8                WRITE !!?5,"Patch ES*1*22 Conversion Management"

 +9                WRITE !?5,"===================================",!

 +10               WRITE !?5,"You may select one of the following options:",!

 +11               WRITE !!?10,"(1) "_$PIECE(OPTION(1),";",1)

 +12               WRITE !?10,"(2) "_$PIECE(OPTION(2),";",1)

 +13               WRITE !?10,"(3) "_$PIECE(OPTION(3),";",1)

 +14               SET DIR(0)="SAO^1:"_$PIECE(OPTION(1),";",1)_";2:"_$PIECE(OPTION(2),";",1)_";3:"_$PIECE(OPTION(3),";",1)

 +15               SET DIR("A")="     Select (1), (2) or (3): "

 +16               WRITE !?5

                   DO ^DIR

                   KILL DIR

                   WRITE !

 +17               IF $DATA(DTOUT)!($DATA(DUOUT))!($DATA(DIRUT))

                       SET ESPOUT=1

 +18               IF (X["^")!(Y["^")

                       SET ESPOUT=1

 +19               IF Y

                       SET NUM=+Y

                       SET OPTION=$PIECE(OPTION(NUM),";",2)

               End DoDot:1

               if (NUM>0)!(ESPOUT)

                   QUIT 

 +20       if NUM=0

               QUIT 

 +21       WRITE !!?5,"You have opted to "_$PIECE(OPTION(NUM),";",1),!

 +22       KILL X,Y

           SET DIR(0)="E"

           DO ^DIR

           KILL DIR

           WRITE !

 +23       IF Y

               DO @OPTION

 +24       if 'ESPOUT

               GOTO EN

 +25       QUIT