DG53653P.m

DG53653P ;TDM - Patch DG*5.3*653 Pre-Install Utility Routine ; 11/22/05 9:06am

 ;;5.3;Registration;**653,1015**;AUG 13, 1993;Build 21

 Q

 ;

EN N DIE,DA,DR

 D MOD386 Q:$G(XPDABORT)=2          ;Check file 38.6 entries

 D MOD30192 Q:$G(XPDABORT)=2        ;Edit file 301.92 entries

 Q

 ;

MOD386 ; Update entry in INCONSISTENT DATA ELEMENTS file (#38.6)

 N ERR

 K XPDABORT

 F RULE=4,7,9,11,13,15,16,19,24,29,30,31,34,60,72,74,75,76,78,81,83,85,86 D  Q:$G(XPDABORT)=2

 . D BMES^XPDUTL("Checking entry #"_RULE_" in 38.6 file.")

 . S DIE=38.6,DA=$$FIND1^DIC(DIE,"","X",RULE) I 'DA D  Q

 . . S XPDABORT=2

 . . D MES^XPDUTL("    *** Entry not found! ***")

 . . D BMES^XPDUTL("    *** Please contact EVS for assistance ***")

 . . D BMES^XPDUTL("    *** INSTALLATION ABORTED ***")

 . . D BMES^XPDUTL("")

 . D MES^XPDUTL("    *** Complete ***")

 D BMES^XPDUTL("")

 Q

 ;

MOD30192 ; Update entry in IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)

 N ERR

 K XPDABORT

 S DIE=301.92

 D BMES^XPDUTL("Modifying 'RATED INCOMPETENT?' entry in 301.92 file.")

 S DA=$$FIND1^DIC(DIE,"","X","RATED INCOMPETENT?") I 'DA D  Q

 . S XPDABORT=2

 . D MES^XPDUTL("    *** Entry not found! ***")

 . D BMES^XPDUTL("    *** Please contact EVS for assistance ***")

 . D BMES^XPDUTL("    *** INSTALLATION ABORTED ***")

 . D BMES^XPDUTL("")

 S DR=".09////0" D ^DIE

 D MES^XPDUTL("    *** Update Complete ***")

 D BMES^XPDUTL("")

 Q

DG53653P  ;TDM - Patch DG*5.3*653 Pre-Install Utility Routine ; 11/22/05 9:06am

 +1       ;;5.3;Registration;**653,1015**;AUG 13, 1993;Build 21

 +2        QUIT 

 +3       ;

EN         NEW DIE,DA,DR

 +1       ;Check file 38.6 entries

           DO MOD386

           IF $GET(XPDABORT)=2

               QUIT 

 +2       ;Edit file 301.92 entries

           DO MOD30192

           IF $GET(XPDABORT)=2

               QUIT 

 +3        QUIT 

 +4       ;

MOD386    ; Update entry in INCONSISTENT DATA ELEMENTS file (#38.6)

 +1        NEW ERR

 +2        KILL XPDABORT

 +3        FOR RULE=4,7,9,11,13,15,16,19,24,29,30,31,34,60,72,74,75,76,78,81,83,85,86

               Begin DoDot:1

 +4                DO BMES^XPDUTL("Checking entry #"_RULE_" in 38.6 file.")

 +5                SET DIE=38.6

                   SET DA=$$FIND1^DIC(DIE,"","X",RULE)

                   IF 'DA

                       Begin DoDot:2

 +6                        SET XPDABORT=2

 +7                        DO MES^XPDUTL("    *** Entry not found! ***")

 +8                        DO BMES^XPDUTL("    *** Please contact EVS for assistance ***")

 +9                        DO BMES^XPDUTL("    *** INSTALLATION ABORTED ***")

 +10                       DO BMES^XPDUTL("")

                       End DoDot:2

                       QUIT 

 +11               DO MES^XPDUTL("    *** Complete ***")

               End DoDot:1

               IF $GET(XPDABORT)=2

                   QUIT 

 +12       DO BMES^XPDUTL("")

 +13       QUIT 

 +14      ;

MOD30192  ; Update entry in IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)

 +1        NEW ERR

 +2        KILL XPDABORT

 +3        SET DIE=301.92

 +4        DO BMES^XPDUTL("Modifying 'RATED INCOMPETENT?' entry in 301.92 file.")

 +5        SET DA=$$FIND1^DIC(DIE,"","X","RATED INCOMPETENT?")

           IF 'DA

               Begin DoDot:1

 +6                SET XPDABORT=2

 +7                DO MES^XPDUTL("    *** Entry not found! ***")

 +8                DO BMES^XPDUTL("    *** Please contact EVS for assistance ***")

 +9                DO BMES^XPDUTL("    *** INSTALLATION ABORTED ***")

 +10               DO BMES^XPDUTL("")

               End DoDot:1

               QUIT 

 +11       SET DR=".09////0"

           DO ^DIE

 +12       DO MES^XPDUTL("    *** Update Complete ***")

 +13       DO BMES^XPDUTL("")

 +14       QUIT