GMRGXUPD.m

GMRGXUPD ;HIRMFO/RM-POST BUILD TASKS FOR PATCH GMRG*3.0*1 ;4/11/96

 ;;3.0;Text Generator;**1**;Jan 24, 1996

EN1 ; ENTRY FROM BUILD TO PERFORM POST BUILD TASKS

 D KILLDD,SET6

 Q

KILLDD ; KILL BAD ^DD NODES FROM AGGREGATE TERM (124.2) FILE.  SEE DBIA

 ; #1412, WHICH AUTHORIZES THIS DD KILL.

 K ^DD(124.2,0,"DIK"),^DD(124.2,0,"DIKOLD"),^DD(124.21,0,"DIK")

 Q

SET6 ; LOOP THROUGH GMR TEXT (124.3) FILE ENTRIES AND SET THE DATE LAST

 ; UPDATED (6) FIELD TO LATEST DATE IN AUDIT TRAIL MULTIPLE.

 N DA,DIE,DR,GMRGAUD,GMRGLAUD,GMRGSEL,GMRGDOT,X

 D BMES^XPDUTL("Populating the Date Last Updated (6) field of the GMR Text (124.3) file...")

 S DA=0 F  S DA=$O(^GMR(124.3,DA)) Q:DA'>0  D

 .  S GMRGLAUD=$P($G(^GMR(124.3,DA,0)),"^",3)

 .  S GMRGSEL=0 F  S GMRGSEL=$O(^GMR(124.3,DA,1,GMRGSEL)) Q:GMRGSEL'>0  D

 .  .  S GMRGAUD=0 F  S GMRGAUD=$O(^GMR(124.3,DA,1,GMRGSEL,2,GMRGAUD)) Q:GMRGAUD'>0  D

 .  .  .  S X=$P($G(^GMR(124.3,DA,1,GMRGSEL,2,GMRGAUD,0)),"^")

 .  .  .  I X>GMRGLAUD S GMRGLAUD=X

 .  .  .  Q

 .  .  Q

 .  I GMRGLAUD S DIE="^GMR(124.3,",DR="6////"_GMRGLAUD D ^DIE W:'$R(100) "."

 .  Q

 D BMES^XPDUTL("   ")

 D BMES^XPDUTL("Re-indexing ""AC"" cross-refence in Children multiple...")

 K DA S DA(1)=0 F  S DA(1)=$O(^GMRD(124.2,DA(1))) Q:DA(1)'>0  D

 .  K ^GMRD(124.2,DA(1),1,"AC")

 .  S DA=0 F  S DA=$O(^GMRD(124.2,DA(1),1,DA)) Q:DA'>0  D

 .  .  S DIK="^GMRD(124.2,"_DA(1)_",1,",DIK(1)="1^AC" D EN1^DIK

 .  .  Q

 .  W:'$R(50) "."

 .  Q

 Q

GMRGXUPD  ;HIRMFO/RM-POST BUILD TASKS FOR PATCH GMRG*3.0*1 ;4/11/96

 +1       ;;3.0;Text Generator;**1**;Jan 24, 1996

EN1       ; ENTRY FROM BUILD TO PERFORM POST BUILD TASKS

 +1        DO KILLDD

           DO SET6

 +2        QUIT 

KILLDD    ; KILL BAD ^DD NODES FROM AGGREGATE TERM (124.2) FILE.  SEE DBIA

 +1       ; #1412, WHICH AUTHORIZES THIS DD KILL.

 +2        KILL ^DD(124.2,0,"DIK"),^DD(124.2,0,"DIKOLD"),^DD(124.21,0,"DIK")

 +3        QUIT 

SET6      ; LOOP THROUGH GMR TEXT (124.3) FILE ENTRIES AND SET THE DATE LAST

 +1       ; UPDATED (6) FIELD TO LATEST DATE IN AUDIT TRAIL MULTIPLE.

 +2        NEW DA,DIE,DR,GMRGAUD,GMRGLAUD,GMRGSEL,GMRGDOT,X

 +3        DO BMES^XPDUTL("Populating the Date Last Updated (6) field of the GMR Text (124.3) file...")

 +4        SET DA=0

           FOR 

               SET DA=$ORDER(^GMR(124.3,DA))

               IF DA'>0

                   QUIT 

               Begin DoDot:1

 +5                SET GMRGLAUD=$PIECE($GET(^GMR(124.3,DA,0)),"^",3)

 +6                SET GMRGSEL=0

                   FOR 

                       SET GMRGSEL=$ORDER(^GMR(124.3,DA,1,GMRGSEL))

                       IF GMRGSEL'>0

                           QUIT 

                       Begin DoDot:2

 +7                        SET GMRGAUD=0

                           FOR 

                               SET GMRGAUD=$ORDER(^GMR(124.3,DA,1,GMRGSEL,2,GMRGAUD))

                               IF GMRGAUD'>0

                                   QUIT 

                               Begin DoDot:3

 +8                                SET X=$PIECE($GET(^GMR(124.3,DA,1,GMRGSEL,2,GMRGAUD,0)),"^")

 +9                                IF X>GMRGLAUD

                                       SET GMRGLAUD=X

 +10                               QUIT 

                               End DoDot:3

 +11                       QUIT 

                       End DoDot:2

 +12               IF GMRGLAUD

                       SET DIE="^GMR(124.3,"

                       SET DR="6////"_GMRGLAUD

                       DO ^DIE

                       IF '$RANDOM(100)

                           WRITE "."

 +13               QUIT 

               End DoDot:1

 +14       DO BMES^XPDUTL("   ")

 +15       DO BMES^XPDUTL("Re-indexing ""AC"" cross-refence in Children multiple...")

 +16       KILL DA

           SET DA(1)=0

           FOR 

               SET DA(1)=$ORDER(^GMRD(124.2,DA(1)))

               IF DA(1)'>0

                   QUIT 

               Begin DoDot:1

 +17               KILL ^GMRD(124.2,DA(1),1,"AC")

 +18               SET DA=0

                   FOR 

                       SET DA=$ORDER(^GMRD(124.2,DA(1),1,DA))

                       IF DA'>0

                           QUIT 

                       Begin DoDot:2

 +19                       SET DIK="^GMRD(124.2,"_DA(1)_",1,"

                           SET DIK(1)="1^AC"

                           DO EN1^DIK

 +20                       QUIT 

                       End DoDot:2

 +21               IF '$RANDOM(50)

                       WRITE "."

 +22               QUIT 

               End DoDot:1

 +23       QUIT