AUMPR914.m

AUMPR914 ;IHS/OIT/FCJ - AUM v 9.1 patch 4 pre-init ;

 ;;9.1;TABLE MAINTENANCE;**4**;SEP 17,2008

 ;

 ;This is the pre-init for AUM*9.1*4

 ;This routine should only be called at START by KIDS as the pre-init

 ; for AUM*9.1*4.

 ;

 Q

 ;

START ;EP

 ;D CLEANALL

 D REINDX

 ;

CLR ;clear out old codes from AUM DATA created by earlier patches

 S I=0

CLR2 ;I already set

 F  S I=$O(^AUMDATA(I)) Q:'I  D

 .K ^AUMDATA(I)

 F I=3,4 D

 .S $P(^AUMDATA(0),"^",I)=0

 Q

 ;

REINDX ;Reindex files used to match entries

 S DIK(1)=".08^C",DIK="^AUTTCOM(" D ENALL^DIK    ;Reindex the STCTYCOM-Community file

 K DIK

 S DIK(1)=".04^C",DIK="^AUTTCTY(" D ENALL^DIK    ;Reindex the STCTY-County

 K DIK

 S DIK(1)=".04^C",DIK="^AUTTSU(" D ENALL^DIK     ;reindex the ASU-Service Unit

 K DIK

 S DIK(1)=".12^C",DIK="^AUTTLOC(" D ENALL^DIK   ;reindex the ASUFAC code-Location file

 K DIK

 Q

 ;

CLEANALL ; PRE-INIT: Remove Control Characters from globals

 D CLEANALL^AUMPREDC        ;DIC

 D CLEANALL^AUMPRECN        ;COUNTY

 D CLEANALL^AUMPREA         ;AREA

 D CLEANALL^AUMPRESU        ;SU

 D CLEANALL^AUMPRECM        ;COMMUNITY

 Q

AUMPR914  ;IHS/OIT/FCJ - AUM v 9.1 patch 4 pre-init ;

 +1       ;;9.1;TABLE MAINTENANCE;**4**;SEP 17,2008

 +2       ;

 +3       ;This is the pre-init for AUM*9.1*4

 +4       ;This routine should only be called at START by KIDS as the pre-init

 +5       ; for AUM*9.1*4.

 +6       ;

 +7        QUIT 

 +8       ;

START     ;EP

 +1       ;D CLEANALL

 +2        DO REINDX

 +3       ;

CLR       ;clear out old codes from AUM DATA created by earlier patches

 +1        SET I=0

CLR2      ;I already set

 +1        FOR 

               SET I=$ORDER(^AUMDATA(I))

               IF 'I

                   QUIT 

               Begin DoDot:1

 +2                KILL ^AUMDATA(I)

               End DoDot:1

 +3        FOR I=3,4

               Begin DoDot:1

 +4                SET $PIECE(^AUMDATA(0),"^",I)=0

               End DoDot:1

 +5        QUIT 

 +6       ;

REINDX    ;Reindex files used to match entries

 +1       ;Reindex the STCTYCOM-Community file

           SET DIK(1)=".08^C"

           SET DIK="^AUTTCOM("

           DO ENALL^DIK

 +2        KILL DIK

 +3       ;Reindex the STCTY-County

           SET DIK(1)=".04^C"

           SET DIK="^AUTTCTY("

           DO ENALL^DIK

 +4        KILL DIK

 +5       ;reindex the ASU-Service Unit

           SET DIK(1)=".04^C"

           SET DIK="^AUTTSU("

           DO ENALL^DIK

 +6        KILL DIK

 +7       ;reindex the ASUFAC code-Location file

           SET DIK(1)=".12^C"

           SET DIK="^AUTTLOC("

           DO ENALL^DIK

 +8        KILL DIK

 +9        QUIT 

 +10      ;

CLEANALL  ; PRE-INIT: Remove Control Characters from globals

 +1       ;DIC

           DO CLEANALL^AUMPREDC

 +2       ;COUNTY

           DO CLEANALL^AUMPRECN

 +3       ;AREA

           DO CLEANALL^AUMPREA

 +4       ;SU

           DO CLEANALL^AUMPRESU

 +5       ;COMMUNITY

           DO CLEANALL^AUMPRECM

 +6        QUIT