DGYUPOST ;ALB/LD - Post Init for Patch DG*5.3*58 ; 7/11/95
;;5.3;Registration;**58**;Aug 13, 1993
;
;
;-- 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYUPOST 735 printed Dec 13, 2024@03:00:42 Page 2
DGYUPOST ;ALB/LD - Post Init for Patch DG*5.3*58 ; 7/11/95
+1 ;;5.3;Registration;**58**;Aug 13, 1993
+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
