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

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

initial load of WorldVistAEHR

File size: 587 bytes
RevLine 
[613]1DG53771P ;ALB/ERC - Patch DG53771P Post Install ;10/30/07
2 ;;5.3;Registration;**771**;AUG 13, 1995;Build 5
3 ;
4 Q
5EN ; This routine will update the USE FOR Z07 CHECK field #6
6 ; in the INCONSISTENT DATA ELEMENTS file #38.6 for CC
7 ; 75, 76, 78, 306, 307 and 409
8 N RULE,DA,DIE,DR
9 F RULE=75,76,78,306,307,409 D
10 .D BMES^XPDUTL("Modifying entry #"_RULE_" in 38.6 file.")
11 .S DIE=38.6,DA=$$FIND1^DIC(DIE,"","X",RULE)
12 .I 'DA D Q
13 ..D MES^XPDUTL(" *** Entry not found! Nothing Updated!! ***") Q
14 .S DR="6////0" D ^DIE
15 .D MES^XPDUTL(" *** Update Complete ***")
16 D BMES^XPDUTL("")
17 Q
Note: See TracBrowser for help on using the repository browser.