- HDI1015A ;BPFO/DTG - PATCH 15 POST INSTALL ;14 Apr 2016
- ;;1.0;HEALTH DATA & INFORMATICS;**15**;Feb 22, 2005;Build 10
- ;
- POST ;
- N DOMAIN,HDIDOM,HDIERROR,HDIMSG,DOM,HIDOM
- ;
- S HDIMSG(1)="Post-Installation (POST^HDI1015A) will now be run."
- S HDIMSG(2)=" "
- D MES^XPDUTL(.HDIMSG) K HDIMSG
- ;
- S DOMAIN="LABORATORY" ; domain to be added to HDIS DOMAIN File #7115.1
- ;
- S HDIDOM=$$GETDOM(DOMAIN)
- I +HDIDOM>0 G VER
- ; add domain
- I '+$$UPDTDOM^HDISVCUT(DOMAIN) D Q
- . D MES^XPDUTL("***** Error adding the "_DOMAIN_" domain to the HDIS DOMAIN FILE #7115.1."),PSTHALT("")
- ;
- ; get domain IEN
- I '+$$GETIEN^HDISVF09(DOMAIN,.HDIDOM) D Q
- . D MES^XPDUTL("***** Error retrieving the IEN for the "_DOMAIN_" domain."),PSTHALT("")
- ;
- VER ; verify domain IEN
- I '+HDIDOM D Q
- . D MES^XPDUTL("***** Error verifying the IEN for the "_DOMAIN_" domain."),PSTHALT("")
- ;
- ; get files & fields to be added to File #7115.6
- N DATA,LINE F LINE=1:1 S DATA=$P($T(DATA+LINE),";;",2) Q:DATA="" D
- . N FILE,FIELD,HDIDATA,HDIERMSG
- . S FILE=$P(DATA,U),FIELD=$P(DATA,U,2)
- . I +$$GETIEN^HDISVF05(FILE,FIELD) Q ; quit if entry already exists
- . S HDIDATA(FILE)=FIELD
- . ; add entry to HDIS FILE/FIELD File #7115.6
- . I '+$$ADDDFFS^HDISVF09(HDIDOM,.HDIDATA,.HDIERMSG) D
- . . I '$D(HDIERROR) D MES^XPDUTL("***** "_"Error updating File #7115.6")
- . . S HDIERROR=1
- . . D MES^XPDUTL("***** "_HDIERMSG)
- ;
- I +$D(HDIERROR) D PSTHALT("") Q
- ;
- S HDIMSG(1)="Post-Installation complete."
- S HDIMSG(2)=""
- D MES^XPDUTL(.HDIMSG)
- Q
- PSTHALT(MSG) ; display error message
- S HDIMSG(1)=""
- S HDIMSG(2)=MSG
- S HDIMSG(3)="***** Post-installation has been halted."
- S HDIMSG(4)="***** Please contact Enterprise VistA Support."
- S HDIMSG(5)=""
- D MES^XPDUTL(.HDIMSG)
- Q
- ;
- GETDOM(DOM) ; get the domain IEN
- I '+$$GETIEN^HDISVF09(DOM,.HIDOM) Q "0"
- Q +HIDOM
- ;
- DATA ;
- ;;66.3^.01
- ;;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHDI1015A 1907 printed Feb 18, 2025@23:22:44 Page 2
- HDI1015A ;BPFO/DTG - PATCH 15 POST INSTALL ;14 Apr 2016
- +1 ;;1.0;HEALTH DATA & INFORMATICS;**15**;Feb 22, 2005;Build 10
- +2 ;
- POST ;
- +1 NEW DOMAIN,HDIDOM,HDIERROR,HDIMSG,DOM,HIDOM
- +2 ;
- +3 SET HDIMSG(1)="Post-Installation (POST^HDI1015A) will now be run."
- +4 SET HDIMSG(2)=" "
- +5 DO MES^XPDUTL(.HDIMSG)
- KILL HDIMSG
- +6 ;
- +7 ; domain to be added to HDIS DOMAIN File #7115.1
- SET DOMAIN="LABORATORY"
- +8 ;
- +9 SET HDIDOM=$$GETDOM(DOMAIN)
- +10 IF +HDIDOM>0
- GOTO VER
- +11 ; add domain
- +12 IF '+$$UPDTDOM^HDISVCUT(DOMAIN)
- Begin DoDot:1
- +13 DO MES^XPDUTL("***** Error adding the "_DOMAIN_" domain to the HDIS DOMAIN FILE #7115.1.")
- DO PSTHALT("")
- End DoDot:1
- QUIT
- +14 ;
- +15 ; get domain IEN
- +16 IF '+$$GETIEN^HDISVF09(DOMAIN,.HDIDOM)
- Begin DoDot:1
- +17 DO MES^XPDUTL("***** Error retrieving the IEN for the "_DOMAIN_" domain.")
- DO PSTHALT("")
- End DoDot:1
- QUIT
- +18 ;
- VER ; verify domain IEN
- +1 IF '+HDIDOM
- Begin DoDot:1
- +2 DO MES^XPDUTL("***** Error verifying the IEN for the "_DOMAIN_" domain.")
- DO PSTHALT("")
- End DoDot:1
- QUIT
- +3 ;
- +4 ; get files & fields to be added to File #7115.6
- +5 NEW DATA,LINE
- FOR LINE=1:1
- SET DATA=$PIECE($TEXT(DATA+LINE),";;",2)
- if DATA=""
- QUIT
- Begin DoDot:1
- +6 NEW FILE,FIELD,HDIDATA,HDIERMSG
- +7 SET FILE=$PIECE(DATA,U)
- SET FIELD=$PIECE(DATA,U,2)
- +8 ; quit if entry already exists
- IF +$$GETIEN^HDISVF05(FILE,FIELD)
- QUIT
- +9 SET HDIDATA(FILE)=FIELD
- +10 ; add entry to HDIS FILE/FIELD File #7115.6
- +11 IF '+$$ADDDFFS^HDISVF09(HDIDOM,.HDIDATA,.HDIERMSG)
- Begin DoDot:2
- +12 IF '$DATA(HDIERROR)
- DO MES^XPDUTL("***** "_"Error updating File #7115.6")
- +13 SET HDIERROR=1
- +14 DO MES^XPDUTL("***** "_HDIERMSG)
- End DoDot:2
- End DoDot:1
- +15 ;
- +16 IF +$DATA(HDIERROR)
- DO PSTHALT("")
- QUIT
- +17 ;
- +18 SET HDIMSG(1)="Post-Installation complete."
- +19 SET HDIMSG(2)=""
- +20 DO MES^XPDUTL(.HDIMSG)
- +21 QUIT
- PSTHALT(MSG) ; display error message
- +1 SET HDIMSG(1)=""
- +2 SET HDIMSG(2)=MSG
- +3 SET HDIMSG(3)="***** Post-installation has been halted."
- +4 SET HDIMSG(4)="***** Please contact Enterprise VistA Support."
- +5 SET HDIMSG(5)=""
- +6 DO MES^XPDUTL(.HDIMSG)
- +7 QUIT
- +8 ;
- GETDOM(DOM) ; get the domain IEN
- +1 IF '+$$GETIEN^HDISVF09(DOM,.HIDOM)
- QUIT "0"
- +2 QUIT +HIDOM
- +3 ;
- DATA ;
- +1 ;;66.3^.01
- +2 ;;
- +3 QUIT