27 lines
1.0 KiB
Mathematica
27 lines
1.0 KiB
Mathematica
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
|
|
;
|