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

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

initial load of WorldVistAEHR

File size: 715 bytes
Line 
1DGYUPOST ;ALB/LD - Post Init for Patch DG*5.3*58 ; 7/11/95
2 ;;5.3;Registration;**58**;Aug 13, 1993
3 ;
4 ;
5 ;-- correct misspelled station type names from STATION TYPE file #45.81
6 ;
7 N DGI,I,TEXT
8 W !!,">>> Correcting misspelled Station Type names from STATION TYPE file (#45.81)...",!
9 F I=1:1 S TEXT=$P($T(LIST+I),";;",2) Q:TEXT="QUIT" D
10 .S DGI="",DGI=$O(^DIC(45.81,"C",$P(TEXT,"^"),DGI)) Q:DGI']""
11 .S DIE="^DIC(45.81,",DA=+DGI,DR="2///"_$P(TEXT,"^",2) D ^DIE
12 .W !?3,"Name "_$P(TEXT,"^")_" changed to "_$P(TEXT,"^",2)_"."
13 W !!?1,"...done.",!
14 K DA,DIE,DR,X,Y
15 Q
16 ;
17LIST ; - correct station type names
18 ;;DOMICILLARY RESTORATION CARE^DOMICILIARY RESTORATION CARE
19 ;;STATE DOMICILLARY^STATE DOMICILIARY
20 ;;QUIT
Note: See TracBrowser for help on using the repository browser.