Last change
on this file since 1641 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.0 KB
|
Line | |
---|
1 | SD53P520 ;ALB/MJB - SD*5.3*520 POST INIT; Oct 04, 2006 ; 10/23/06 5:40pm ; 12/28/07 9:29am
|
---|
2 | ;;5.3;SCHEDULING;**520**;AUG 13, 1993;Build 26
|
---|
3 | Q
|
---|
4 | POST ;delete inactivated "D" cross reference
|
---|
5 | N SDA
|
---|
6 | S SDA(1)="",SDA(2)=" SD*5.3*520 Post-Install starting.....",SDA(3)="" D ATADDQ
|
---|
7 | N SDA
|
---|
8 | S SDA(1)="",SDA(2)=" Deleting cross-reference definition of the Associated Clinic field(.09)"
|
---|
9 | S SDA(3)=" in the TEAM POSITION file (# 404.57)"
|
---|
10 | D DELIX^DDMOD(404.57,.09,1,"K") D ATADDQ
|
---|
11 | EN ;Entry point for indexing cross-reference definition for Associated Clinics multiple
|
---|
12 | N SDA
|
---|
13 | S SDA(1)="",SDA(2)=" indexing cross-reference E - of the Associated Clinics Multiple field(#5)"
|
---|
14 | S SDA(3)=" in the TEAM POSITION file (# 404.57)"
|
---|
15 | K DA,DIK
|
---|
16 | S DA(1)=0
|
---|
17 | F S DA(1)=$O(^SCTM(404.57,DA(1))) Q:'DA(1) D
|
---|
18 | .Q:'$D(^SCTM(404.57,DA(1),5))
|
---|
19 | .S DA="",DIK="^SCTM(404.57,"_DA(1)_",5,",DIK(1)=".01^E" D ENALL^DIK D ATADDQ
|
---|
20 | N SDA
|
---|
21 | S SDA(1)="",SDA(2)=" SD*5.3*520 Post-Install completed.....",SDA(3)="" D ATADDQ
|
---|
22 | Q
|
---|
23 | ATADDQ ;
|
---|
24 | D MES^XPDUTL(.SDA) K SDA
|
---|
25 | Q
|
---|
26 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.