HDI1004A ;BPFO/GRR,ALB/RMO - PATCH 4 POST INSTALL;2/08/2006
;;1.0;HEALTH DATA & INFORMATICS;**4**;Feb 22, 2005
;
POST ;Main entry point for post-install routine
; Input: None
; All variables set by Kernel for KIDS post-installs
;Output: None
N HDIMSG,HDISERR,HDDOM,HDISDFFS
S HDDOM="TIU"
S HDISDFFS(8925.6)=""
S HDISDFFS(8926.1)=""
S HDISDFFS(8926.2)=""
S HDISDFFS(8926.3)=""
S HDISDFFS(8926.4)=""
S HDISDFFS(8926.5)=""
S HDISDFFS(8926.6)=""
S HDISERR=0
S HDIMSG(1)=" "
S HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
S HDIMSG(3)="Post-Installation (POST^HDI1004A) will now be run"
S HDIMSG(4)=" "
D MES^XPDUTL(.HDIMSG) K HDIMSG
;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
I '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS) D PSTHALT Q
;Updates Sets of Codes
I '$$VUID^HDISVCUT(HDDOM,"HDI1004B") 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[HHDI1004A 1291 printed Oct 16, 2024@17:57:03 Page 2
HDI1004A ;BPFO/GRR,ALB/RMO - PATCH 4 POST INSTALL;2/08/2006
+1 ;;1.0;HEALTH DATA & INFORMATICS;**4**;Feb 22, 2005
+2 ;
POST ;Main entry point for post-install routine
+1 ; Input: None
+2 ; All variables set by Kernel for KIDS post-installs
+3 ;Output: None
+4 NEW HDIMSG,HDISERR,HDDOM,HDISDFFS
+5 SET HDDOM="TIU"
+6 SET HDISDFFS(8925.6)=""
+7 SET HDISDFFS(8926.1)=""
+8 SET HDISDFFS(8926.2)=""
+9 SET HDISDFFS(8926.3)=""
+10 SET HDISDFFS(8926.4)=""
+11 SET HDISDFFS(8926.5)=""
+12 SET HDISDFFS(8926.6)=""
+13 SET HDISERR=0
+14 SET HDIMSG(1)=" "
+15 SET HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
+16 SET HDIMSG(3)="Post-Installation (POST^HDI1004A) will now be run"
+17 SET HDIMSG(4)=" "
+18 DO MES^XPDUTL(.HDIMSG)
KILL HDIMSG
+19 ;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
+20 IF '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS)
DO PSTHALT
QUIT
+21 ;Updates Sets of Codes
+22 IF '$$VUID^HDISVCUT(HDDOM,"HDI1004B")
DO PSTHALT
QUIT
+23 SET HDIMSG(1)=" "
+24 SET HDIMSG(2)="Post-Installation ran to completion"
+25 SET HDIMSG(3)="~~~~~~~~~~~~~~~~~~~~"
+26 SET HDIMSG(4)=" "
+27 DO MES^XPDUTL(.HDIMSG)
KILL HDIMSG
+28 QUIT
+29 ;
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
