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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P520 1061 printed Nov 22, 2024@17:56:23 Page 2
SD53P520 ;ALB/MJB - SD*5.3*520 POST INIT; Oct 04, 2006 ; 10/23/06 5:40pm ; 12/28/07 9:29am
+1 ;;5.3;SCHEDULING;**520**;AUG 13, 1993;Build 26
+2 QUIT
POST ;delete inactivated "D" cross reference
+1 NEW SDA
+2 SET SDA(1)=""
SET SDA(2)=" SD*5.3*520 Post-Install starting....."
SET SDA(3)=""
DO ATADDQ
+3 NEW SDA
+4 SET SDA(1)=""
SET SDA(2)=" Deleting cross-reference definition of the Associated Clinic field(.09)"
+5 SET SDA(3)=" in the TEAM POSITION file (# 404.57)"
+6 DO DELIX^DDMOD(404.57,.09,1,"K")
DO ATADDQ
EN ;Entry point for indexing cross-reference definition for Associated Clinics multiple
+1 NEW SDA
+2 SET SDA(1)=""
SET SDA(2)=" indexing cross-reference E - of the Associated Clinics Multiple field(#5)"
+3 SET SDA(3)=" in the TEAM POSITION file (# 404.57)"
+4 KILL DA,DIK
+5 SET DA(1)=0
+6 FOR
SET DA(1)=$ORDER(^SCTM(404.57,DA(1)))
if 'DA(1)
QUIT
Begin DoDot:1
+7 if '$DATA(^SCTM(404.57,DA(1),5))
QUIT
+8 SET DA=""
SET DIK="^SCTM(404.57,"_DA(1)_",5,"
SET DIK(1)=".01^E"
DO ENALL^DIK
DO ATADDQ
End DoDot:1
+9 NEW SDA
+10 SET SDA(1)=""
SET SDA(2)=" SD*5.3*520 Post-Install completed....."
SET SDA(3)=""
DO ATADDQ
+11 QUIT
ATADDQ ;
+1 DO MES^XPDUTL(.SDA)
KILL SDA
+2 QUIT
+3 ;
