- 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
- 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