source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESP122PM.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1ESP122PM ;ALB/JAP; POST-INSTALL FOR ES*1*22 cont.;3/98
2 ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994
3 ;
4EN ;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
Note: See TracBrowser for help on using the repository browser.