| [613] | 1 | DG53653P ;TDM - Patch DG*5.3*653 Pre-Install Utility Routine ; 11/22/05 9:06am
|
|---|
| 2 | ;;5.3;Registration;**653**;AUG 13, 1993;Build 2
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | EN N DIE,DA,DR
|
|---|
| 6 | D MOD386 Q:$G(XPDABORT)=2 ;Check file 38.6 entries
|
|---|
| 7 | D MOD30192 Q:$G(XPDABORT)=2 ;Edit file 301.92 entries
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | MOD386 ; Update entry in INCONSISTENT DATA ELEMENTS file (#38.6)
|
|---|
| 11 | N ERR
|
|---|
| 12 | K XPDABORT
|
|---|
| 13 | 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
|
|---|
| 14 | . D BMES^XPDUTL("Checking entry #"_RULE_" in 38.6 file.")
|
|---|
| 15 | . S DIE=38.6,DA=$$FIND1^DIC(DIE,"","X",RULE) I 'DA D Q
|
|---|
| 16 | . . S XPDABORT=2
|
|---|
| 17 | . . D MES^XPDUTL(" *** Entry not found! ***")
|
|---|
| 18 | . . D BMES^XPDUTL(" *** Please contact EVS for assistance ***")
|
|---|
| 19 | . . D BMES^XPDUTL(" *** INSTALLATION ABORTED ***")
|
|---|
| 20 | . . D BMES^XPDUTL("")
|
|---|
| 21 | . D MES^XPDUTL(" *** Complete ***")
|
|---|
| 22 | D BMES^XPDUTL("")
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | MOD30192 ; Update entry in IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)
|
|---|
| 26 | N ERR
|
|---|
| 27 | K XPDABORT
|
|---|
| 28 | S DIE=301.92
|
|---|
| 29 | D BMES^XPDUTL("Modifying 'RATED INCOMPETENT?' entry in 301.92 file.")
|
|---|
| 30 | S DA=$$FIND1^DIC(DIE,"","X","RATED INCOMPETENT?") I 'DA D Q
|
|---|
| 31 | . S XPDABORT=2
|
|---|
| 32 | . D MES^XPDUTL(" *** Entry not found! ***")
|
|---|
| 33 | . D BMES^XPDUTL(" *** Please contact EVS for assistance ***")
|
|---|
| 34 | . D BMES^XPDUTL(" *** INSTALLATION ABORTED ***")
|
|---|
| 35 | . D BMES^XPDUTL("")
|
|---|
| 36 | S DR=".09////0" D ^DIE
|
|---|
| 37 | D MES^XPDUTL(" *** Update Complete ***")
|
|---|
| 38 | D BMES^XPDUTL("")
|
|---|
| 39 | Q
|
|---|
