- HDI1011A ;HRN/ART - PATCH 11 POST INSTALL;2/11/2008
- ;;1.0;HEALTH DATA & INFORMATICS;**11**;Feb 22, 2005;Build 6
- ;
- 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="PROBLEM LIST"
- ;No files for this patch - setting of HDISDFFS is not required
- ;S HDISDFFS(999999)=""
- S HDISERR=0
- S HDIMSG(1)=" "
- S HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
- S HDIMSG(3)="Post-Installation (POST^HDI1011A) 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
- I '$$UPDTDOM^HDISVCUT(HDDOM) D PSTHALT Q ;<< No files
- ;Updates Sets of Codes
- ; I '$$VUID^HDISVCUT("PROBLIST","HDI1011B") D PSTHALT Q -- SET OF CODES NOT BEING SET
- 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[HHDI1011A 1319 printed Feb 18, 2025@23:22:42 Page 2
- HDI1011A ;HRN/ART - PATCH 11 POST INSTALL;2/11/2008
- +1 ;;1.0;HEALTH DATA & INFORMATICS;**11**;Feb 22, 2005;Build 6
- +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="PROBLEM LIST"
- +6 ;No files for this patch - setting of HDISDFFS is not required
- +7 ;S HDISDFFS(999999)=""
- +8 SET HDISERR=0
- +9 SET HDIMSG(1)=" "
- +10 SET HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
- +11 SET HDIMSG(3)="Post-Installation (POST^HDI1011A) will now be run"
- +12 SET HDIMSG(4)=" "
- +13 DO MES^XPDUTL(.HDIMSG)
- KILL HDIMSG
- +14 ;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
- +15 ;I '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS) D PSTHALT Q
- +16 ;<< No files
- IF '$$UPDTDOM^HDISVCUT(HDDOM)
- DO PSTHALT
- QUIT
- +17 ;Updates Sets of Codes
- +18 ; I '$$VUID^HDISVCUT("PROBLIST","HDI1011B") D PSTHALT Q -- SET OF CODES NOT BEING SET
- +19 SET HDIMSG(1)=" "
- +20 SET HDIMSG(2)="Post-Installation ran to completion"
- +21 SET HDIMSG(3)="~~~~~~~~~~~~~~~~~~~~"
- +22 SET HDIMSG(4)=" "
- +23 DO MES^XPDUTL(.HDIMSG)
- KILL HDIMSG
- +24 QUIT
- +25 ;
- 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