|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
577 bytes
|
| Line | |
|---|
| 1 | DG53765P ;ALB/LBD - Patch DG*5.3*765 Post-Install Routine ; 7/25/07 12:53pm
|
|---|
| 2 | ;;5.3;Registration;**765**;AUG 13, 1993;Build 3
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; This routine will update the USE FOR Z07 CHECK field #6
|
|---|
| 6 | ; in the INCONSISTENT DATA ELEMENTS file #38.6 for CC 72, 74 and 81
|
|---|
| 7 | N RULE,DA,DIE,DR
|
|---|
| 8 | F RULE=72,74,81 D
|
|---|
| 9 | .D BMES^XPDUTL("Modifying entry #"_RULE_" in 38.6 file.")
|
|---|
| 10 | .S DIE=38.6,DA=$$FIND1^DIC(DIE,"","X",RULE)
|
|---|
| 11 | .I 'DA D Q
|
|---|
| 12 | ..D MES^XPDUTL(" *** Entry not found! Nothing Updated!! ***") Q
|
|---|
| 13 | .S DR="6////0" D ^DIE
|
|---|
| 14 | .D MES^XPDUTL(" *** Update Complete ***")
|
|---|
| 15 | D BMES^XPDUTL("")
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
