| 1 | EAS1P53 ;ALB/jap - POST-INSTALLATION FOR EAS*1*53 ;05/17/2004
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**53**;Mar 15, 2001
|
|---|
| 3 | ;
|
|---|
| 4 | POST ;entry point for installation
|
|---|
| 5 | N XTIME,X1,X2,ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTSK
|
|---|
| 6 | S X1=DT,X2=1 D C^%DTC
|
|---|
| 7 | S (ZTDTH,XTIME)=X_".030000"
|
|---|
| 8 | S ZTIO="",ZTDESC="POST_INSTALLATION CLEANUP FOR EAS*1*53"
|
|---|
| 9 | S ZTRTN="QUE^EAS1P53"
|
|---|
| 10 | D ^%ZTLOAD
|
|---|
| 11 | I $G(ZTSK) D
|
|---|
| 12 | .S Y=XTIME D DD^%DT S XTIME=Y
|
|---|
| 13 | .W !,"Post-installation file #712 x-ref clean-up queued for"
|
|---|
| 14 | .W !,XTIME_" as Task #"_ZTSK_"."
|
|---|
| 15 | .H 3
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | QUE ;entry point for TaskManager
|
|---|
| 19 | N A,NETNAME,NOW,R712,TOT,XMSUB,XMDUZ,XMTEXT,XMY,XMZ,Y
|
|---|
| 20 | ;delete existing x-refs for status
|
|---|
| 21 | F A="NEW","REV","PRT","SIG","FIL","CLS" K ^EAS(712,A)
|
|---|
| 22 | ;
|
|---|
| 23 | ;reset all x-refs for status
|
|---|
| 24 | S TOT=0
|
|---|
| 25 | S R712=0 F S R712=$O(^EAS(712,R712)) Q:'R712 D APPINDEX^EASEZU2(R712) S TOT=TOT+1
|
|---|
| 26 | ;
|
|---|
| 27 | ;send completion msg
|
|---|
| 28 | S Y=$$NOW^XLFDT() D DD^%DT S NOW=Y
|
|---|
| 29 | S NETNAME=^XMB("NETNAME")
|
|---|
| 30 | S ^TMP("1010EZ",$J,1)="Post-installation cross-reference clean-up of file #712"
|
|---|
| 31 | S ^TMP("1010EZ",$J,2)="for EAS*1*53 completed successfully at "_NOW
|
|---|
| 32 | S ^TMP("1010EZ",$J,3)="by Task #"_$G(ZTSK)_"."
|
|---|
| 33 | S ^TMP("1010EZ",$J,4)=" "
|
|---|
| 34 | S ^TMP("1010EZ",$J,5)="Total entries in file #712 re-indexed: "_TOT
|
|---|
| 35 | S XMSUB="EAS*1*53 POST-INSTALL COMPLETE",XMDUZ=.5
|
|---|
| 36 | S XMY(DUZ)=""
|
|---|
| 37 | S XMY("G.VA1010EZ@"_NETNAME)=""
|
|---|
| 38 | S XMTEXT="^TMP(""1010EZ"",$J,"
|
|---|
| 39 | D ^XMD
|
|---|
| 40 | K ^TMP("1010EZ",$J)
|
|---|
| 41 | Q
|
|---|
