AUMPRE.m

AUMPRE ;IHS/OIT/NKD - AUM v 10.3 pre-init 05/14/2012 ;

 ;;12.0;TABLE MAINTENACE;**4**;SEP 27,2011;Build 1

 ;

 ; This is the pre-init for AUM 10.1. It strips all control chars

 ; out of multiple globals prior to the install of the patch.

 ;

 ; 2008 04 18-20 Rick Marshall created routines to

 ; clear out control characters found in the ^AICD globals in both

 ; values and subscripts. Chris Saddler addapted the routines to

 ; other files listed below

 ;

 QUIT  ; This routine should not be called at the top or anywhere

 ; else. It is only to be called at START by KIDS as the pre-init

 ; for AUM patches.

 ;

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

 D CLEANALL^AUMPREST

 ;

 QUIT  ; end of CLEANALL

 ;

START ;EP

 D CLEANALL

 ;

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

AUMPRE    ;IHS/OIT/NKD - AUM v 10.3 pre-init 05/14/2012 ;

 +1       ;;12.0;TABLE MAINTENACE;**4**;SEP 27,2011;Build 1

 +2       ;

 +3       ; This is the pre-init for AUM 10.1. It strips all control chars

 +4       ; out of multiple globals prior to the install of the patch.

 +5       ;

 +6       ; 2008 04 18-20 Rick Marshall created routines to

 +7       ; clear out control characters found in the ^AICD globals in both

 +8       ; values and subscripts. Chris Saddler addapted the routines to

 +9       ; other files listed below

 +10      ;

 +11      ; This routine should not be called at the top or anywhere

           QUIT 

 +12      ; else. It is only to be called at START by KIDS as the pre-init

 +13      ; for AUM patches.

 +14      ;

CLEANALL  ; PRE-INIT: Remove Control Characters from globals

 +1       ;

 +2       ;DIC

           DO CLEANALL^AUMPREDC

 +3       ;COUNTY

           DO CLEANALL^AUMPRECN

 +4       ;AREA

           DO CLEANALL^AUMPREA

 +5       ;SU

           DO CLEANALL^AUMPRESU

 +6       ;COMMUNITY

           DO CLEANALL^AUMPRECM

 +7        DO CLEANALL^AUMPREST

 +8       ;

 +9       ; end of CLEANALL

           QUIT 

 +10      ;

START     ;EP

 +1        DO CLEANALL

 +2       ;

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