Last change
on this file since 1693 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.0 KB
|
Rev | Line | |
---|
[628] | 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.