DG531081P.m

DG531081P ;OIT/ARF - PATCH DG*5.3*1081 INSTALL UTILITIES ;2/25/21 09:12am

 ;;5.3;Registration;**1081**;Aug 13, 1993;Build 4

 ;

 ; Reference to BMES^XPDUTL in ICR #10141

 ; Reference to MES^XPDUTL in ICR #10141

 ;

 ;No direct entry

 QUIT

 ;

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

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

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

 ;

ENV ;Main entry point for Environment check

 Q

 ;

PRE ;Main entry point for Pre-Install items

 Q

 ;

POST ;Main entry point for Post-Install items

 ;

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

 D POST1

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

 Q

 ;

 ;

POST1 ; Add CLINICAL EVALUATION eligibility to file #8

 NEW DGEC,DGFDA,DGERR

 S DGEC="CLINICAL EVALUATION"

 D BMES^XPDUTL("  - Adding '"_DGEC_"' to the ELIGIBILITY CODE (#8) file.")

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

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

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

 . 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("  - "_DGEC_" entry already exists... No action required.")

 ; Add entry to file

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

 S DGFDA(8,"+1,",.12)=0

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

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

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

 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("  - "_DGEC_" successfully added to ELIGIBILITY CODE (#8) file.")

 I $D(DGERR) D

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

 . D MES^XPDUTL("  - "_DGEC_" was NOT successfully added to the ELIGIBILITY CODE (#8) file.")

 . 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 ---DG531081P   2123     printed  Apr 09, 2024@21:41:28                                                                                                                                                                                                   Page 2

DG531081P ;OIT/ARF - PATCH DG*5.3*1081 INSTALL UTILITIES ;2/25/21 09:12am

 +1       ;;5.3;Registration;**1081**;Aug 13, 1993;Build 4

 +2       ;

 +3       ; Reference to BMES^XPDUTL in ICR #10141

 +4       ; Reference to MES^XPDUTL in ICR #10141

 +5       ;

 +6       ;No direct entry

 +7        QUIT 

 +8       ;

 +9       ;--------------------------------------------------------------------------

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

 +11      ;--------------------------------------------------------------------------

 +12      ;

ENV       ;Main entry point for Environment check

 +1        QUIT 

 +2       ;

PRE       ;Main entry point for Pre-Install items

 +1        QUIT 

 +2       ;

POST      ;Main entry point for Post-Install items

 +1       ;

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

 +3        DO POST1

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

 +5        QUIT 

 +6       ;

 +7       ;

POST1     ; Add CLINICAL EVALUATION eligibility to file #8

 +1        NEW DGEC,DGFDA,DGERR

 +2        SET DGEC="CLINICAL EVALUATION"

 +3        DO BMES^XPDUTL("  - Adding '"_DGEC_"' to the ELIGIBILITY CODE (#8) file.")

 +4        IF '$$FIND1^DIC(8.1,"","X",DGEC)

               Begin DoDot:1

 +5                DO BMES^XPDUTL("*** ERROR! ***")

 +6                DO MES^XPDUTL("  - "_DGEC_" entry missing from MAS ELIGIBILITY CODE (#8.1) file")

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

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

               End DoDot:1

               QUIT 

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

               Begin DoDot:1

 +10               DO BMES^XPDUTL("  - "_DGEC_" entry already exists... No action required.")

               End DoDot:1

               QUIT 

 +11      ; Add entry to file

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

 +13       SET DGFDA(8,"+1,",.12)=0

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

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

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

 +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("  - "_DGEC_" successfully added to ELIGIBILITY CODE (#8) file.")

 +25       IF $DATA(DGERR)

               Begin DoDot:1

 +26               DO BMES^XPDUTL("*** ERROR! ***")

 +27               DO MES^XPDUTL("  - "_DGEC_" was NOT successfully added to the ELIGIBILITY CODE (#8) file.")

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

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

               End DoDot:1

 +30       QUIT