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 ---[H[J[2J[HESP122PM 1159 printed Dec 13, 2024@02:29:32 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
