- HDI1020A ;DAL/JCH - PATCH 20 POST INSTALL;06/15/2017
- ;;1.0;HEALTH DATA & INFORMATICS;**20**;Feb 22, 2005;Build 3
- ;
- POST ;
- N DOMAIN,HDIDOM,HDIERROR,HDIMSG
- ;
- S HDIMSG(1)="Post-Installation (POST^HDI1020A) will now be run."
- S HDIMSG(2)=" "
- D MES^XPDUTL(.HDIMSG) K HDIMSG
- ;
- S DOMAIN="PAYERS" ; domain to be added to HDIS DOMAIN File #7115.1
- ;
- ; 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("")
- ;
- ; 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
- DATA ;
- ;;355.99^.01
- ;;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHDI1020A 1745 printed Jan 18, 2025@02:57:39 Page 2
- HDI1020A ;DAL/JCH - PATCH 20 POST INSTALL;06/15/2017
- +1 ;;1.0;HEALTH DATA & INFORMATICS;**20**;Feb 22, 2005;Build 3
- +2 ;
- POST ;
- +1 NEW DOMAIN,HDIDOM,HDIERROR,HDIMSG
- +2 ;
- +3 SET HDIMSG(1)="Post-Installation (POST^HDI1020A) 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="PAYERS"
- +8 ;
- +9 ; add domain
- +10 IF '+$$UPDTDOM^HDISVCUT(DOMAIN)
- Begin DoDot:1
- +11 DO MES^XPDUTL("***** Error adding the "_DOMAIN_" domain to the HDIS DOMAIN FILE #7115.1.")
- DO PSTHALT("")
- End DoDot:1
- QUIT
- +12 ;
- +13 ; get domain IEN
- +14 IF '+$$GETIEN^HDISVF09(DOMAIN,.HDIDOM)
- Begin DoDot:1
- +15 DO MES^XPDUTL("***** Error retrieving the IEN for the "_DOMAIN_" domain.")
- DO PSTHALT("")
- End DoDot:1
- QUIT
- +16 ;
- +17 ; verify domain IEN
- +18 IF '+HDIDOM
- Begin DoDot:1
- +19 DO MES^XPDUTL("***** Error verifying the IEN for the "_DOMAIN_" domain.")
- DO PSTHALT("")
- End DoDot:1
- QUIT
- +20 ;
- +21 ; get files & fields to be added to File #7115.6
- +22 NEW DATA,LINE
- FOR LINE=1:1
- SET DATA=$PIECE($TEXT(DATA+LINE),";;",2)
- if DATA=""
- QUIT
- Begin DoDot:1
- +23 NEW FILE,FIELD,HDIDATA,HDIERMSG
- +24 SET FILE=$PIECE(DATA,U)
- SET FIELD=$PIECE(DATA,U,2)
- +25 ; quit if entry already exists
- IF +$$GETIEN^HDISVF05(FILE,FIELD)
- QUIT
- +26 SET HDIDATA(FILE)=FIELD
- +27 ; add entry to HDIS FILE/FIELD File #7115.6
- +28 IF '+$$ADDDFFS^HDISVF09(HDIDOM,.HDIDATA,.HDIERMSG)
- Begin DoDot:2
- +29 IF '$DATA(HDIERROR)
- DO MES^XPDUTL("***** "_"Error updating File #7115.6")
- +30 SET HDIERROR=1
- +31 DO MES^XPDUTL("***** "_HDIERMSG)
- End DoDot:2
- End DoDot:1
- +32 ;
- +33 IF +$DATA(HDIERROR)
- DO PSTHALT("")
- QUIT
- +34 ;
- +35 SET HDIMSG(1)="Post-Installation complete."
- +36 SET HDIMSG(2)=""
- +37 DO MES^XPDUTL(.HDIMSG)
- +38 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
- DATA ;
- +1 ;;355.99^.01
- +2 ;;
- +3 QUIT