SD53P520 ;ALB/MJB - SD*5.3*520 POST INIT; Oct 04, 2006 ; 10/23/06 5:40pm  ; 12/28/07 9:29am
         ;;5.3;SCHEDULING;**520**;AUG 13, 1993;Build 26
 Q
POST ;delete inactivated "D" cross reference
 N SDA
 S SDA(1)="",SDA(2)="    SD*5.3*520 Post-Install starting.....",SDA(3)="" D ATADDQ
 N SDA
 S SDA(1)="",SDA(2)=" Deleting cross-reference definition of the Associated Clinic field(.09)"
 S SDA(3)=" in the TEAM POSITION file (# 404.57)"
 D DELIX^DDMOD(404.57,.09,1,"K") D ATADDQ
EN ;Entry point for indexing cross-reference definition for Associated Clinics multiple
 N SDA
 S SDA(1)="",SDA(2)=" indexing cross-reference E - of the Associated Clinics Multiple field(#5)"
 S SDA(3)=" in the TEAM POSITION file (# 404.57)"
 K DA,DIK
 S DA(1)=0
 F  S DA(1)=$O(^SCTM(404.57,DA(1))) Q:'DA(1)  D
 .Q:'$D(^SCTM(404.57,DA(1),5))
 .S DA="",DIK="^SCTM(404.57,"_DA(1)_",5,",DIK(1)=".01^E" D ENALL^DIK D ATADDQ
 N SDA
 S SDA(1)="",SDA(2)="    SD*5.3*520 Post-Install completed.....",SDA(3)="" D ATADDQ
 Q
ATADDQ ;
 D MES^XPDUTL(.SDA) K SDA
 Q
 ;