DG53653P ;TDM - Patch DG*5.3*653 Pre-Install Utility Routine ; 11/22/05 9:06am
;;5.3;Registration;**653**;AUG 13, 1993;Build 2
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53653P 1423 printed Dec 13, 2024@02:38:02 Page 2
DG53653P ;TDM - Patch DG*5.3*653 Pre-Install Utility Routine ; 11/22/05 9:06am
+1 ;;5.3;Registration;**653**;AUG 13, 1993;Build 2
+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
