XU8P135.m

XU8P135 ;SF/KLD - Post-Install for Reindexing File #200 Field #16 ;02/01/2000  09:35 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1007**;APR 1, 2003

 ;;8.0;KERNEL;**135**;Nov 26, 1999

 ;

 ; REINDEX

 ; This sub-routine will be used to Reindex the DIVISION field #16 of

 ; the NEW PERSON file #200.  A new index was created "AH".

 ;

 ; REMOVE

 ; This sub-routine will be used to remove bogus X-Ref introduced

 ; at test sites for this patch.

 ;

EN ;

 D REMOVE

 D REINDEX

 Q

 ;

REMOVE ;

 D DELIX^DDMOD(200,.01,7)

 D DELIX^DDMOD(200,53.5,1)

 Q

 ;

REINDEX ;

 W !,"Reindexing FILE 200, Field 16...."

 N IEN,DIK,DA,NME

 S (IEN,NME)=0

 F  S NME=$O(^VA(200,"B",NME)) Q:NME=""  D

 . F  S IEN=$O(^VA(200,"B",NME,IEN)) Q:'IEN  D

 . . I $D(^VA(200,IEN,2,0))=1 D

 . . . S DIK="^VA(200,"_IEN_",2,",DIK(1)=".01^AH",DA(1)=IEN

 . . . D ENALL^DIK

 W !,"Finished."

 Q

XU8P135   ;SF/KLD - Post-Install for Reindexing File #200 Field #16 ;02/01/2000  09:35 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**135**;Nov 26, 1999

 +3       ;

 +4       ; REINDEX

 +5       ; This sub-routine will be used to Reindex the DIVISION field #16 of

 +6       ; the NEW PERSON file #200.  A new index was created "AH".

 +7       ;

 +8       ; REMOVE

 +9       ; This sub-routine will be used to remove bogus X-Ref introduced

 +10      ; at test sites for this patch.

 +11      ;

EN        ;

 +1        DO REMOVE

 +2        DO REINDEX

 +3        QUIT 

 +4       ;

REMOVE    ;

 +1        DO DELIX^DDMOD(200,.01,7)

 +2        DO DELIX^DDMOD(200,53.5,1)

 +3        QUIT 

 +4       ;

REINDEX   ;

 +1        WRITE !,"Reindexing FILE 200, Field 16...."

 +2        NEW IEN,DIK,DA,NME

 +3        SET (IEN,NME)=0

 +4        FOR 

               SET NME=$ORDER(^VA(200,"B",NME))

               IF NME=""

                   QUIT 

               Begin DoDot:1

 +5                FOR 

                       SET IEN=$ORDER(^VA(200,"B",NME,IEN))

                       IF 'IEN

                           QUIT 

                       Begin DoDot:2

 +6                        IF $DATA(^VA(200,IEN,2,0))=1

                               Begin DoDot:3

 +7                                SET DIK="^VA(200,"_IEN_",2,"

                                   SET DIK(1)=".01^AH"

                                   SET DA(1)=IEN

 +8                                DO ENALL^DIK

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +9        WRITE !,"Finished."

 +10       QUIT