DGYUPOST.m

DGYUPOST ;ALB/LD - Post Init for Patch DG*5.3*58 ; 7/11/95

 ;;5.3;Registration;**58,1015**;Aug 13, 1993;Build 21

 ;

 ;

 ;-- correct misspelled station type names from STATION TYPE file #45.81

 ;

 N DGI,I,TEXT

 W !!,">>> Correcting misspelled Station Type names from STATION TYPE file (#45.81)...",!

 F I=1:1 S TEXT=$P($T(LIST+I),";;",2) Q:TEXT="QUIT"  D

 .S DGI="",DGI=$O(^DIC(45.81,"C",$P(TEXT,"^"),DGI)) Q:DGI']""

 .S DIE="^DIC(45.81,",DA=+DGI,DR="2///"_$P(TEXT,"^",2) D ^DIE

 .W !?3,"Name "_$P(TEXT,"^")_" changed to "_$P(TEXT,"^",2)_"."

 W !!?1,"...done.",!

 K DA,DIE,DR,X,Y

 Q

 ;

LIST ; - correct station type names

 ;;DOMICILLARY RESTORATION CARE^DOMICILIARY RESTORATION CARE

 ;;STATE DOMICILLARY^STATE DOMICILIARY

 ;;QUIT

DGYUPOST  ;ALB/LD - Post Init for Patch DG*5.3*58 ; 7/11/95

 +1       ;;5.3;Registration;**58,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;

 +4       ;-- correct misspelled station type names from STATION TYPE file #45.81

 +5       ;

 +6        NEW DGI,I,TEXT

 +7        WRITE !!,">>> Correcting misspelled Station Type names from STATION TYPE file (#45.81)...",!

 +8        FOR I=1:1

               SET TEXT=$PIECE($TEXT(LIST+I),";;",2)

               IF TEXT="QUIT"

                   QUIT 

               Begin DoDot:1

 +9                SET DGI=""

                   SET DGI=$ORDER(^DIC(45.81,"C",$PIECE(TEXT,"^"),DGI))

                   IF DGI']""

                       QUIT 

 +10               SET DIE="^DIC(45.81,"

                   SET DA=+DGI

                   SET DR="2///"_$PIECE(TEXT,"^",2)

                   DO ^DIE

 +11               WRITE !?3,"Name "_$PIECE(TEXT,"^")_" changed to "_$PIECE(TEXT,"^",2)_"."

               End DoDot:1

 +12       WRITE !!?1,"...done.",!

 +13       KILL DA,DIE,DR,X,Y

 +14       QUIT 

 +15      ;

LIST      ; - correct station type names

 +1       ;;DOMICILLARY RESTORATION CARE^DOMICILIARY RESTORATION CARE

 +2       ;;STATE DOMICILLARY^STATE DOMICILIARY

 +3       ;;QUIT