EAS1P53 ;ALB/jap - POST-INSTALLATION FOR EAS*1*53 ;05/17/2004
;;1.0;ENROLLMENT APPLICATION SYSTEM;**53**;Mar 15, 2001
;
POST ;entry point for installation
N XTIME,X1,X2,ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTSK
S X1=DT,X2=1 D C^%DTC
S (ZTDTH,XTIME)=X_".030000"
S ZTIO="",ZTDESC="POST_INSTALLATION CLEANUP FOR EAS*1*53"
S ZTRTN="QUE^EAS1P53"
D ^%ZTLOAD
I $G(ZTSK) D
.S Y=XTIME D DD^%DT S XTIME=Y
.W !,"Post-installation file #712 x-ref clean-up queued for"
.W !,XTIME_" as Task #"_ZTSK_"."
.H 3
Q
;
QUE ;entry point for TaskManager
N A,NETNAME,NOW,R712,TOT,XMSUB,XMDUZ,XMTEXT,XMY,XMZ,Y
;delete existing x-refs for status
F A="NEW","REV","PRT","SIG","FIL","CLS" K ^EAS(712,A)
;
;reset all x-refs for status
S TOT=0
S R712=0 F S R712=$O(^EAS(712,R712)) Q:'R712 D APPINDEX^EASEZU2(R712) S TOT=TOT+1
;
;send completion msg
S Y=$$NOW^XLFDT() D DD^%DT S NOW=Y
S NETNAME=^XMB("NETNAME")
S ^TMP("1010EZ",$J,1)="Post-installation cross-reference clean-up of file #712"
S ^TMP("1010EZ",$J,2)="for EAS*1*53 completed successfully at "_NOW
S ^TMP("1010EZ",$J,3)="by Task #"_$G(ZTSK)_"."
S ^TMP("1010EZ",$J,4)=" "
S ^TMP("1010EZ",$J,5)="Total entries in file #712 re-indexed: "_TOT
S XMSUB="EAS*1*53 POST-INSTALL COMPLETE",XMDUZ=.5
S XMY(DUZ)=""
S XMY("G.VA1010EZ@"_NETNAME)=""
S XMTEXT="^TMP(""1010EZ"",$J,"
D ^XMD
K ^TMP("1010EZ",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEAS1P53 1394 printed Nov 22, 2024@17:03:42 Page 2
EAS1P53 ;ALB/jap - POST-INSTALLATION FOR EAS*1*53 ;05/17/2004
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**53**;Mar 15, 2001
+2 ;
POST ;entry point for installation
+1 NEW XTIME,X1,X2,ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTSK
+2 SET X1=DT
SET X2=1
DO C^%DTC
+3 SET (ZTDTH,XTIME)=X_".030000"
+4 SET ZTIO=""
SET ZTDESC="POST_INSTALLATION CLEANUP FOR EAS*1*53"
+5 SET ZTRTN="QUE^EAS1P53"
+6 DO ^%ZTLOAD
+7 IF $GET(ZTSK)
Begin DoDot:1
+8 SET Y=XTIME
DO DD^%DT
SET XTIME=Y
+9 WRITE !,"Post-installation file #712 x-ref clean-up queued for"
+10 WRITE !,XTIME_" as Task #"_ZTSK_"."
+11 HANG 3
End DoDot:1
+12 QUIT
+13 ;
QUE ;entry point for TaskManager
+1 NEW A,NETNAME,NOW,R712,TOT,XMSUB,XMDUZ,XMTEXT,XMY,XMZ,Y
+2 ;delete existing x-refs for status
+3 FOR A="NEW","REV","PRT","SIG","FIL","CLS"
KILL ^EAS(712,A)
+4 ;
+5 ;reset all x-refs for status
+6 SET TOT=0
+7 SET R712=0
FOR
SET R712=$ORDER(^EAS(712,R712))
if 'R712
QUIT
DO APPINDEX^EASEZU2(R712)
SET TOT=TOT+1
+8 ;
+9 ;send completion msg
+10 SET Y=$$NOW^XLFDT()
DO DD^%DT
SET NOW=Y
+11 SET NETNAME=^XMB("NETNAME")
+12 SET ^TMP("1010EZ",$JOB,1)="Post-installation cross-reference clean-up of file #712"
+13 SET ^TMP("1010EZ",$JOB,2)="for EAS*1*53 completed successfully at "_NOW
+14 SET ^TMP("1010EZ",$JOB,3)="by Task #"_$GET(ZTSK)_"."
+15 SET ^TMP("1010EZ",$JOB,4)=" "
+16 SET ^TMP("1010EZ",$JOB,5)="Total entries in file #712 re-indexed: "_TOT
+17 SET XMSUB="EAS*1*53 POST-INSTALL COMPLETE"
SET XMDUZ=.5
+18 SET XMY(DUZ)=""
+19 SET XMY("G.VA1010EZ@"_NETNAME)=""
+20 SET XMTEXT="^TMP(""1010EZ"",$J,"
+21 DO ^XMD
+22 KILL ^TMP("1010EZ",$JOB)
+23 QUIT