DG531061P.m

DG531061P ;ALB/JAM - DG*5.3*1061 INSTALL UTILITY;07/12/2021 15:21pm

 ;;5.3;Registration;**1061**;Feb 23 2021;Build 22

 ;

QUIT ;No direct entry

 ;

 ;---------------------------------------------------------------------------

 ;Patch DG*5.3*1061: Environment, Pre-Install, and Post-Install entry points.

 ;---------------------------------------------------------------------------

 ;

 ; ICR:  10141 : BMES^XPDUTL

 ;             : MES^XPDUTL

 ;

ENV ;Main entry point for Environment check

 Q

 ;

PRE ;Main entry point for Pre-Install items

 D BMES^XPDUTL(">>> Beginning the DG*5.3*1061 Pre-install routine...")

 ;

 ; Remove non-SAC compliant triggers from MAS ELIGIBILITY CODE field (#8) of ELIGIBILITY CODE file (#8)

 D BMES^XPDUTL("*** Removing non-SAC compliant triggers from MAS ELIGIBILITY CODE")

 D MES^XPDUTL("    field (#8) of the ELIGIBILITY CODE file (#8).")

 ;

 ; Delete trigger cross references 2, 3, 4 and 5 in the MAS ELIGBILITY CODE field (#8) in ELIGIBILITY CODE file (#8)

 N DGXREF,DGXREFNM

 F DGXREF=2:1:5 D

 . D DELIX^DDMOD(8,8,DGXREF)

 . S DGXREFNM=$S(DGXREF=2:"CARD COLOR",DGXREF=3:"VA CODE NUMBER",DGXREF=4:"TYPE",DGXREF=5:"SELECT AS ADDITIONAL",1:"")

 . D MES^XPDUTL("*** Trigger cross reference for field '"_DGXREFNM_"' removed.")

 ;

 D BMES^XPDUTL(">>> Patch DG*5.3*1061 - Pre-install complete.")

 Q

 ;

POST ;Main entry point for Post-Install items

 ;

 D BMES^XPDUTL(">>> Beginning the DG*5.3*1061 Post-install routine...")

 D POST1

 D POST2

 D BMES^XPDUTL(">>> Patch DG*5.3*1061 - Post-install complete.")

 Q

 ;

POST1 ; Add COMPACT ACT ELIGIBLE eligibility to file #8

 NEW DGEC,DGPH,DGFDA,DGERR

 S DGEC="COMPACT ACT ELIGIBLE"

 D BMES^XPDUTL("*** Adding 'COMPACT ACT ELIGIBLE' to the ELIGIBILITY CODE file (#8).")

 S DGPH=$$FIND1^DIC(8.1,"","X",DGEC)

 I 'DGPH D  Q

 . D BMES^XPDUTL("*** WARNING!")

 . D MES^XPDUTL("  - COMPACT ACT ELIGIBLE entry missing from MAS ELIGIBILITY CODE file (#8.1)")

 . D MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 . D MES^XPDUTL("    for assistance.")

 I $$FIND1^DIC(8,"","X",DGEC) D  Q

 . D BMES^XPDUTL("*** COMPACT ACT ELIGIBLE entry already exists... No action required.")

 ; Add entry to file

 S DGFDA(8,"+1,",.01)=DGEC

 S DGFDA(8,"+1,",1)="BLUE"

 S DGFDA(8,"+1,",2)="CMPT"

 S DGFDA(8,"+1,",3)=12

 S DGFDA(8,"+1,",4)="N"

 S DGFDA(8,"+1,",5)=DGEC

 S DGFDA(8,"+1,",7)=1

 S DGFDA(8,"+1,",8)=DGEC

 S DGFDA(8,"+1,",9)="VA STANDARD"

 S DGFDA(8,"+1,",11)="VA"

 D UPDATE^DIE("E","DGFDA","","DGERR")

 I '$D(DGERR) D BMES^XPDUTL("*** COMPACT ACT ELIGIBLE successfully added to ELIGIBILITY CODE file (#8).")

 I $D(DGERR) D

 . D BMES^XPDUTL("*** COMPACT ACT ELIGIBLE was NOT successfully added to the ELIGIBILITY CODE file (#8).")

 . D MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 . D MES^XPDUTL("    for assistance.")

 Q

 ;

POST2 ; Add SPECIAL TX AUTHORITY CARE eligibility to file #8

 NEW DGEC,DGPH,DGFDA,DGERR

 S DGEC="SPECIAL TX AUTHORITY CARE"

 D BMES^XPDUTL("*** Adding 'SPECIAL TX AUTHORITY CARE' to the ELIGIBILITY CODE file (#8).")

 S DGPH=$$FIND1^DIC(8.1,"","X",DGEC)

 I 'DGPH D  Q

 . D BMES^XPDUTL("*** WARNING!")

 . D MES^XPDUTL("  - SPECIAL TX AUTHORITY CARE entry missing from the")

 . D MES^XPDUTL("    MAS ELIGIBILITY CODE file (#8.1)")

 . D MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 . D MES^XPDUTL("    for assistance.")

 I $$FIND1^DIC(8,"","X",DGEC) D  Q

 . D BMES^XPDUTL("*** SPECIAL TX AUTHORITY CARE entry already exists... No action required.")

 ; Add entry to file

 S DGFDA(8,"+1,",.01)=DGEC

 S DGFDA(8,"+1,",1)="BLUE"

 S DGFDA(8,"+1,",2)="STAC"

 S DGFDA(8,"+1,",3)=12

 S DGFDA(8,"+1,",4)="N"

 S DGFDA(8,"+1,",5)=DGEC

 S DGFDA(8,"+1,",7)=1

 S DGFDA(8,"+1,",8)=DGEC

 S DGFDA(8,"+1,",9)="VA STANDARD"

 S DGFDA(8,"+1,",11)="VA"

 D UPDATE^DIE("E","DGFDA","","DGERR")

 I '$D(DGERR) D

 . D BMES^XPDUTL("*** SPECIAL TX AUTHORITY CARE successfully added to the")

 . D MES^XPDUTL("     ELIGIBILITY CODE file (#8).")

 I $D(DGERR) D

 . D BMES^XPDUTL("*** SPECIAL TX AUTHORITY CARE was NOT successfully added to the")

 . D MES^XPDUTL("     ELIGIBILITY CODE file (#8).")

 . D MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 . D MES^XPDUTL("    for assistance.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG531061P   4384     printed  Apr 23, 2025@18:49:46                                                                                                                                                                                                   Page 2

DG531061P ;ALB/JAM - DG*5.3*1061 INSTALL UTILITY;07/12/2021 15:21pm

 +1       ;;5.3;Registration;**1061**;Feb 23 2021;Build 22

 +2       ;

QUIT      ;No direct entry

 +1       ;

 +2       ;---------------------------------------------------------------------------

 +3       ;Patch DG*5.3*1061: Environment, Pre-Install, and Post-Install entry points.

 +4       ;---------------------------------------------------------------------------

 +5       ;

 +6       ; ICR:  10141 : BMES^XPDUTL

 +7       ;             : MES^XPDUTL

 +8       ;

ENV       ;Main entry point for Environment check

 +1        QUIT 

 +2       ;

PRE       ;Main entry point for Pre-Install items

 +1        DO BMES^XPDUTL(">>> Beginning the DG*5.3*1061 Pre-install routine...")

 +2       ;

 +3       ; Remove non-SAC compliant triggers from MAS ELIGIBILITY CODE field (#8) of ELIGIBILITY CODE file (#8)

 +4        DO BMES^XPDUTL("*** Removing non-SAC compliant triggers from MAS ELIGIBILITY CODE")

 +5        DO MES^XPDUTL("    field (#8) of the ELIGIBILITY CODE file (#8).")

 +6       ;

 +7       ; Delete trigger cross references 2, 3, 4 and 5 in the MAS ELIGBILITY CODE field (#8) in ELIGIBILITY CODE file (#8)

 +8        NEW DGXREF,DGXREFNM

 +9        FOR DGXREF=2:1:5

               Begin DoDot:1

 +10               DO DELIX^DDMOD(8,8,DGXREF)

 +11               SET DGXREFNM=$SELECT(DGXREF=2:"CARD COLOR",DGXREF=3:"VA CODE NUMBER",DGXREF=4:"TYPE",DGXREF=5:"SELECT AS ADDITIONAL",1:"")

 +12               DO MES^XPDUTL("*** Trigger cross reference for field '"_DGXREFNM_"' removed.")

               End DoDot:1

 +13      ;

 +14       DO BMES^XPDUTL(">>> Patch DG*5.3*1061 - Pre-install complete.")

 +15       QUIT 

 +16      ;

POST      ;Main entry point for Post-Install items

 +1       ;

 +2        DO BMES^XPDUTL(">>> Beginning the DG*5.3*1061 Post-install routine...")

 +3        DO POST1

 +4        DO POST2

 +5        DO BMES^XPDUTL(">>> Patch DG*5.3*1061 - Post-install complete.")

 +6        QUIT 

 +7       ;

POST1     ; Add COMPACT ACT ELIGIBLE eligibility to file #8

 +1        NEW DGEC,DGPH,DGFDA,DGERR

 +2        SET DGEC="COMPACT ACT ELIGIBLE"

 +3        DO BMES^XPDUTL("*** Adding 'COMPACT ACT ELIGIBLE' to the ELIGIBILITY CODE file (#8).")

 +4        SET DGPH=$$FIND1^DIC(8.1,"","X",DGEC)

 +5        IF 'DGPH

               Begin DoDot:1

 +6                DO BMES^XPDUTL("*** WARNING!")

 +7                DO MES^XPDUTL("  - COMPACT ACT ELIGIBLE entry missing from MAS ELIGIBILITY CODE file (#8.1)")

 +8                DO MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 +9                DO MES^XPDUTL("    for assistance.")

               End DoDot:1

               QUIT 

 +10       IF $$FIND1^DIC(8,"","X",DGEC)

               Begin DoDot:1

 +11               DO BMES^XPDUTL("*** COMPACT ACT ELIGIBLE entry already exists... No action required.")

               End DoDot:1

               QUIT 

 +12      ; Add entry to file

 +13       SET DGFDA(8,"+1,",.01)=DGEC

 +14       SET DGFDA(8,"+1,",1)="BLUE"

 +15       SET DGFDA(8,"+1,",2)="CMPT"

 +16       SET DGFDA(8,"+1,",3)=12

 +17       SET DGFDA(8,"+1,",4)="N"

 +18       SET DGFDA(8,"+1,",5)=DGEC

 +19       SET DGFDA(8,"+1,",7)=1

 +20       SET DGFDA(8,"+1,",8)=DGEC

 +21       SET DGFDA(8,"+1,",9)="VA STANDARD"

 +22       SET DGFDA(8,"+1,",11)="VA"

 +23       DO UPDATE^DIE("E","DGFDA","","DGERR")

 +24       IF '$DATA(DGERR)

               DO BMES^XPDUTL("*** COMPACT ACT ELIGIBLE successfully added to ELIGIBILITY CODE file (#8).")

 +25       IF $DATA(DGERR)

               Begin DoDot:1

 +26               DO BMES^XPDUTL("*** COMPACT ACT ELIGIBLE was NOT successfully added to the ELIGIBILITY CODE file (#8).")

 +27               DO MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 +28               DO MES^XPDUTL("    for assistance.")

               End DoDot:1

 +29       QUIT 

 +30      ;

POST2     ; Add SPECIAL TX AUTHORITY CARE eligibility to file #8

 +1        NEW DGEC,DGPH,DGFDA,DGERR

 +2        SET DGEC="SPECIAL TX AUTHORITY CARE"

 +3        DO BMES^XPDUTL("*** Adding 'SPECIAL TX AUTHORITY CARE' to the ELIGIBILITY CODE file (#8).")

 +4        SET DGPH=$$FIND1^DIC(8.1,"","X",DGEC)

 +5        IF 'DGPH

               Begin DoDot:1

 +6                DO BMES^XPDUTL("*** WARNING!")

 +7                DO MES^XPDUTL("  - SPECIAL TX AUTHORITY CARE entry missing from the")

 +8                DO MES^XPDUTL("    MAS ELIGIBILITY CODE file (#8.1)")

 +9                DO MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 +10               DO MES^XPDUTL("    for assistance.")

               End DoDot:1

               QUIT 

 +11       IF $$FIND1^DIC(8,"","X",DGEC)

               Begin DoDot:1

 +12               DO BMES^XPDUTL("*** SPECIAL TX AUTHORITY CARE entry already exists... No action required.")

               End DoDot:1

               QUIT 

 +13      ; Add entry to file

 +14       SET DGFDA(8,"+1,",.01)=DGEC

 +15       SET DGFDA(8,"+1,",1)="BLUE"

 +16       SET DGFDA(8,"+1,",2)="STAC"

 +17       SET DGFDA(8,"+1,",3)=12

 +18       SET DGFDA(8,"+1,",4)="N"

 +19       SET DGFDA(8,"+1,",5)=DGEC

 +20       SET DGFDA(8,"+1,",7)=1

 +21       SET DGFDA(8,"+1,",8)=DGEC

 +22       SET DGFDA(8,"+1,",9)="VA STANDARD"

 +23       SET DGFDA(8,"+1,",11)="VA"

 +24       DO UPDATE^DIE("E","DGFDA","","DGERR")

 +25       IF '$DATA(DGERR)

               Begin DoDot:1

 +26               DO BMES^XPDUTL("*** SPECIAL TX AUTHORITY CARE successfully added to the")

 +27               DO MES^XPDUTL("     ELIGIBILITY CODE file (#8).")

               End DoDot:1

 +28       IF $DATA(DGERR)

               Begin DoDot:1

 +29               DO BMES^XPDUTL("*** SPECIAL TX AUTHORITY CARE was NOT successfully added to the")

 +30               DO MES^XPDUTL("     ELIGIBILITY CODE file (#8).")

 +31               DO MES^XPDUTL("  - Submit a YOUR IT Services ticket with the Enterprise Service Desk")

 +32               DO MES^XPDUTL("    for assistance.")

               End DoDot:1

 +33       QUIT