source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53653P.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1DG53653P ;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 ;
5EN 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 ;
10MOD386 ; 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 ;
25MOD30192 ; 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
Note: See TracBrowser for help on using the repository browser.