Routine: GMRCYP26

GMRCYP26 ;SLC/JFR - Pre and post-install GMRC*3*26 ;6/06/02@09:21

 ;;3.0;CONSULT/REQUEST TRACKING;**26**;DEC 27, 1997

PRE ; Pre-install entry point

 ; delete existing "AC" x-refs on file 123.5, subflds 123.33 and 123.34

 N GMRCFL

 F GMRCFL=123.555,123.58 D

 . D DELIX^DDMOD(GMRCFL,.02,1) ;deletes x-ref from ^DD

POST ; post-install entry point

 ; loop entries in file and delete existing data x-refs

 N GMRCSRV

 S GMRCSRV=0

 F  S GMRCSRV=$O(^GMR(123.5,GMRCSRV)) Q:'GMRCSRV  D

 . K ^GMR(123.5,GMRCSRV,123.33,"AC")

 . K ^GMR(123.5,GMRCSRV,123.34,"AC")

 ; trigger new "AC" index on file 123.5, subflds 123.33 and 123.34

 N GMRCREC,DIK,DA,GMRCFLD

 S GMRCREC=0

 F  S GMRCREC=$O(^GMR(123.5,GMRCREC)) Q:'GMRCREC  D

 . S DA(1)=GMRCREC

 . F GMRCFLD=123.33,123.34 D

 .. S DIK="^GMR(123.5,"_DA(1)_","_GMRCFLD_","

 .. S DIK(1)=".02^AC"

 .. D ENALL^DIK

 .. Q

. Q

GMRCYP26  ;SLC/JFR - Pre and post-install GMRC*3*26 ;6/06/02@09:21

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**26**;DEC 27, 1997

 +2        QUIT

PRE       ; Pre-install entry point

 +1       ;

 +2       ; delete existing "AC" x-refs on file 123.5, subflds 123.33 and 123.34

 +3        NEW GMRCFL

 +4        FOR GMRCFL=123.555,123.58

               Begin DoDot:1

 +5       ;deletes x-ref from ^DD

                   DO DELIX^DDMOD(GMRCFL,.02,1)

               End DoDot:1

 +6        QUIT

POST      ; post-install entry point

 +1       ; loop entries in file and delete existing data x-refs

 +2        NEW GMRCSRV

 +3        SET GMRCSRV=0

 +4        FOR

               SET GMRCSRV=$ORDER(^GMR(123.5,GMRCSRV))

               IF 'GMRCSRV

                   QUIT

               Begin DoDot:1

 +5                KILL ^GMR(123.5,GMRCSRV,123.33,"AC")

 +6                KILL ^GMR(123.5,GMRCSRV,123.34,"AC")

               End DoDot:1

 +7       ;

 +8       ; trigger new "AC" index on file 123.5, subflds 123.33 and 123.34

 +9        NEW GMRCREC,DIK,DA,GMRCFLD

 +10       SET GMRCREC=0

 +11       FOR

               SET GMRCREC=$ORDER(^GMR(123.5,GMRCREC))

               IF 'GMRCREC

                   QUIT

               Begin DoDot:1

 +12               SET DA(1)=GMRCREC

 +13               FOR GMRCFLD=123.33,123.34

                       Begin DoDot:2

 +14                       SET DIK="^GMR(123.5,"_DA(1)_","_GMRCFLD_","

 +15                       SET DIK(1)=".02^AC"

 +16                       DO ENALL^DIK

 +17                       QUIT

                       End DoDot:2

 +18               QUIT

               End DoDot:1

 +19       QUIT

GMRCYP26.m