HDI1008A ;BPFO/TJH - PATCH 8 POST INSTALL;11/26/2007
;;1.0;HEALTH DATA & INFORMATICS;**8**;Feb 22, 2005;Build 7
;
POST ;Main entry point for post-install routine
;
N HDIMSG,HDISERR,HDDOM,HDISDFFS
S HDDOM="PHARMACY DATA MANAGEMENT"
S HDISDFFS(51.23)=""
S HDISDFFS(51.24)=""
S HDISERR=0
S HDIMSG(1)=" "
S HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
S HDIMSG(3)="Post-Installation (POST^HDI1008A) will now be run"
S HDIMSG(4)=" "
D MES^XPDUTL(.HDIMSG) K HDIMSG
I '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS) D PSTHALT Q ;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
;I '$$VUID^HDISVCUT(HDDOM,"HDI1008B") D PSTHALT Q
S HDIMSG(1)=" "
S HDIMSG(2)="Post-Installation ran to completion"
S HDIMSG(3)="~~~~~~~~~~~~~~~~~~~~"
S HDIMSG(4)=" "
D MES^XPDUTL(.HDIMSG) K HDIMSG
Q
;
PSTHALT ;Print post-install halted text
N HDIMSG
S HDIMSG(1)=" "
S HDIMSG(2)="*****"
S HDIMSG(3)="***** Post-installation has been halted"
S HDIMSG(4)="***** Please contact Enterprise VistA Support"
S HDIMSG(5)="*****"
S HDIMSG(6)=" "
D MES^XPDUTL(.HDIMSG)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHDI1008A 1086 printed Dec 13, 2024@01:56:19 Page 2
HDI1008A ;BPFO/TJH - PATCH 8 POST INSTALL;11/26/2007
+1 ;;1.0;HEALTH DATA & INFORMATICS;**8**;Feb 22, 2005;Build 7
+2 ;
POST ;Main entry point for post-install routine
+1 ;
+2 NEW HDIMSG,HDISERR,HDDOM,HDISDFFS
+3 SET HDDOM="PHARMACY DATA MANAGEMENT"
+4 SET HDISDFFS(51.23)=""
+5 SET HDISDFFS(51.24)=""
+6 SET HDISERR=0
+7 SET HDIMSG(1)=" "
+8 SET HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
+9 SET HDIMSG(3)="Post-Installation (POST^HDI1008A) will now be run"
+10 SET HDIMSG(4)=" "
+11 DO MES^XPDUTL(.HDIMSG)
KILL HDIMSG
+12 ;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
IF '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS)
DO PSTHALT
QUIT
+13 ;I '$$VUID^HDISVCUT(HDDOM,"HDI1008B") D PSTHALT Q
+14 SET HDIMSG(1)=" "
+15 SET HDIMSG(2)="Post-Installation ran to completion"
+16 SET HDIMSG(3)="~~~~~~~~~~~~~~~~~~~~"
+17 SET HDIMSG(4)=" "
+18 DO MES^XPDUTL(.HDIMSG)
KILL HDIMSG
+19 QUIT
+20 ;
PSTHALT ;Print post-install halted text
+1 NEW HDIMSG
+2 SET HDIMSG(1)=" "
+3 SET HDIMSG(2)="*****"
+4 SET HDIMSG(3)="***** Post-installation has been halted"
+5 SET HDIMSG(4)="***** Please contact Enterprise VistA Support"
+6 SET HDIMSG(5)="*****"
+7 SET HDIMSG(6)=" "
+8 DO MES^XPDUTL(.HDIMSG)
+9 QUIT
+10 ;
