Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
587 bytes
|
Line | |
---|
1 | DG53771P ;ALB/ERC - Patch DG53771P Post Install ;10/30/07
|
---|
2 | ;;5.3;Registration;**771**;AUG 13, 1995;Build 5
|
---|
3 | ;
|
---|
4 | Q
|
---|
5 | EN ; 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.