SD53P520.m

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 ---SD53P520   1061     printed  Apr 09, 2024@21:52:04                                                                                                                                                                                                    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       ;