close Warning: Can't use blame annotator:
svn blame failed on WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESP122P3.m: 'GenericSWIGWrapper' object has no attribute '_wrap'

source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESP122P3.m@ 691

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

initial load of WorldVistAEHR

File size: 4.6 KB
RevLine 
1ESP122P3 ;ALB/JAP; POST-INSTALL FOR ES*1*22 cont.;3/98
2 ;;1.0;POLICE & SECURITY;**22**;Mar 31, 1994
3 ;
4COMPLETE ;complete the conversion process
5 N ESPC,ESPU,ESPUSER,DIR,DIRUT,DTOUT,DUOUT,DIROUT,X,Y,POP,ZTRTN,ZTDESC,ZTSK,ZTREQ
6 ;warn user
7 W @IOF
8 W !!?20,"Patch ES*1*22 Conversion Completion",!
9 W !?5,"Continuing with this process will 'COMPLETE' the conversion process"
10 W !?5,"for patch ES*1*22."
11 W !
12 W !?5,"This means that --"
13 W !
14 W !?5,"(1) The records in the ESP OFFENSE REPORT file (#912)"
15 W !?5," will no longer be available for conversion."
16 W !?5,"(2) The menu option Conversion Management for ESP*1*22"
17 W !?5," [ESP CONVERISON FOR ES*1*22] will be placed out-of-order."
18 W !?5,"(3) The Conversion Completion Report will be printed with your"
19 W !?5," name as Completer."
20 W !?5,"(4) A mail message will be sent to Police management (i.e.,"
21 W !?5," through the ESP VACO 48 HR CRITERIA Mail Group) regarding"
22 W !?5," this conversion completion."
23 W !?5,"(5) A mail message will be sent to IRM staff (i.e., through"
24 W !?5," the IRM and/or PATCHES Mail Group) which instructs IRM to"
25 W !?5," delete the conversion routines from the system."
26 W !
27 ;ask if ready to complete
28 S DIR(0)="YA",DIR("A")="Do you wish to proceed with Completion?: "
29 D ^DIR K DIR W !!
30 Q:($D(DIRUT))!($D(DIROUT))
31 Q:(X="")!(Y="")!(Y=0)
32 ;if user responded with 'yes', then complete
33 S (ESPC,ESPU)=1,ESPUSER=DUZ
34 S IOP="Q" D ^%ZIS
35 I POP D
36 .W !,"No device selected...exiting.",!
37 Q:POP
38 W !,"Proceeding with Completion...",!
39 I $D(IO("Q")) D
40 .S ZTRTN="FINISH^ESP122P3",ZTDESC="Patch ES*1*22 Conversion Completion",ZTREQ="@"
41 .S ZTSAVE("ESPC")="",ZTSAVE("ESPU")="",ZTSAVE("ESPUSER")=""
42 .D ^%ZTLOAD
43 .I $G(ZTSK)>0 D Q
44 ..W !,"Request queued as Task #",ZTSK,".",!
45 ..W !,"Patch ES*1*22 Conversion queued for Completion.",!
46 ..K X,Y,DIR
47 ..S DIR(0)="E" D ^DIR K DIR
48 .I '$G(ZTSK) D
49 ..W !,"Request to queue cancelled...exiting.",!
50 ..W !,"Patch ES*1*22 Conversion will NOT be completed.",!
51 ..S POP=1
52 ..K X,Y,DIR
53 ..S DIR(0)="E" D ^DIR K DIR
54 D HOME^%ZIS
55 Q
56 ;
57FINISH ;print report and finalize process
58 N LN,OOO,X,Y,DIC,DIE,DA,DR,XMDUX,XMSUB,XMY,XMTEXT,XMDT,ESPDATE,ESPMSG
59 U IO
60 S $P(LN,"=",80)="",PAGE=0
61 D NOW^%DTC S Y=$E(%,1,12),ESPDATE=$$FMTE^XLFDT(Y,"5")
62 D HDR
63 W !
64 W !,"The Conversion process on the ESP OFFENSE REPORT file (#912)"
65 W !,"for patch ES*1*22 has been completed."
66 W !
67 W !,"Completed by: "_$P($G(^VA(200,ESPUSER,0)),U,1)
68 W !,"Completed on: "_ESPDATE
69 W !
70 W !,"The List of Converted Entries in File #912 and"
71 W !,"the List of Unconverted Entries in File #912 reports follow.",!
72 S RUNDT=ESPDATE D CONV^ESP122P1
73 S RUNDT=ESPDATE D USER^ESP122P1
74 I IO'=IO(0) D ^%ZISC
75 ;put conversion option out-of-order
76 S OOO="Completed by user# "_DUZ_" on "_X
77 S DIC="^DIC(19,",X="ESP CONVERSION FOR ES*1*22" D ^DIC
78 Q:Y=-1
79 S DA=+Y
80 S DIE="^DIC(19,",DR="2///^S X=OOO" D ^DIE
81 ;send message to police staff
82 S XMDUZ=ESPUSER,XMSUB="Conversion Completion for ES*1*22"
83 S XMY(XMDUZ)="",XMY("G.ESP VACO 48 HR CRITERIA@"_^XMB("NETNAME"))="",XMTEXT="ESPMSG("
84 S ESPMSG(1)="The Conversion process on the ESP OFFENSE REPORT file (#912)"
85 S ESPMSG(2)="for patch ES*1*22 has been completed."
86 S ESPMSG(3)=" "
87 S ESPMSG(4)="Completed by: "_$P($G(^VA(200,XMDUZ,0)),U,1)
88 S ESPMSG(5)="Completed on: "_ESPDATE
89 S ESPMSG(6)=" "
90 S ESPMSG(7)="No further conversion will be allowed on file #912"
91 S ESPMSG(8)="using ES*1*22 routines."
92 S ESPMSG(9)=" "
93 S ESPMSG(10)="**IMPORTANT**"
94 S ESPMSG(11)=" "
95 S ESPMSG(12)="The Crime Statistics report for each month since October 1, 1997,"
96 S ESPMSG(13)="**must** be regenerated. Use the Generate Crime Statistics"
97 S ESPMSG(14)="[ESP GENERATE CRIME STATISTICS] option to accomplish this."
98 D ^XMD
99 K ESPMSG,XMY
100 ;send message to irm staff
101 S XMDUZ=ESPUSER,XMSUB="Delete Routines for ES*1*22"
102 S DIC="^XMB(3.8,",DIC(0)="",X="PATCHES" D ^DIC I +Y>0 S XMY("G.PATCHES@"_^XMB("NETNAME"))=""
103 S DIC="^XMB(3.8,",DIC(0)="",X="IRM" D ^DIC I +Y>0 S XMY("G.IRM@"_^XMB("NETNAME"))=""
104 S XMY(XMDUZ)="",XMTEXT="ESPMSG("
105 S ESPMSG(1)="The Conversion process on the ESP OFFENSE REPORT file (#912)"
106 S ESPMSG(2)="for patch ES*1*22 has been completed."
107 S ESPMSG(3)=" "
108 S ESPMSG(4)="Completed by: "_$P($G(^VA(200,XMDUZ,0)),U,1)
109 S ESPMSG(5)="Completed on: "_ESPDATE
110 S ESPMSG(6)=" "
111 S ESPMSG(7)="The following routines may be deleted from your system:"
112 S ESPMSG(8)=" ESP122PT"
113 S ESPMSG(9)=" ESP122PR"
114 S ESPMSG(10)=" ESP122PM"
115 S ESPMSG(11)=" ESP122P1"
116 S ESPMSG(12)=" ESP122P2"
117 S ESPMSG(13)=" ESP122P3"
118 D ^XMD
119 Q
120 ;
121HDR ;report header
122 W @IOF
123 S PAGE=PAGE+1
124 W !,"Patch ES*1*22 Conversion Completion Report ",?55,"Page: ",PAGE
125 W !?52,"Printed: ",ESPDATE
126 W !,LN
127 Q
Note: See TracBrowser for help on using the repository browser.