HDI1004A.m

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