XUINZIS.m

XUINZIS ;SFISC/AC - Postinit to convert Hunt Groups to new format. ;11/9/92  16:24

 ;;7.1;KERNEL;;May 11, 1993

INIT ;

 ;Load data element numbers into ^UTILITY($J,"%ZISSDD",data element number

 D LODUTL^%ZISS

 F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ=""  S ^UTILITY($J,"%ZISS",$P(%ZISZ,";",5),$P(%ZISZ,";",6))=""

 W !,"Removing 'W ' from Terminal Type fields"

 F D0=0:0 S D0=$O(^%ZIS(2,D0)) Q:D0'>0  I $D(^(D0,0))#2 W "." D

 .S ZISG="" F  S ZISG=$O(^UTILITY($J,"%ZISS",ZISG)) Q:ZISG=""  D

 ..F ZISP=0:0 S ZISP=$O(^UTILITY($J,"%ZISS",ZISG,ZISP)) Q:ZISP'>0  D

 ...I $D(^%ZIS(2,D0,ZISG))#2 S Y=$P(^(ZISG),"^",ZISP) I $E(Y,1,2)="W " D

 ....S $P(^(ZISG),"^",ZISP)=$E(Y,3,$L(Y))

 Q

Z ;

 ;;;;21;1

 ;;;;21;2

 ;;;;201;1

 ;;;;203;1

 ;;;;205;1

 ;;;;207;1

 ;;;;209;1

 ;;;;211;1

 ;;;;G;1

 ;;;;G;2

 ;;;;G;3

 ;;;;G;4

 ;;;;G;5

 ;;;;G;6

 ;;;;G;7

 ;;;;G;8

 ;;;;G;9

 ;;;;G;10

 ;;;;G;11

 ;;;;G0;1

 ;;;;G1;1

 ;;;;I0;1

 ;;;;I1;1

 ;;;;SPR0;1

 ;;;;SPR1;1

 ;;;;SUB0;1

 ;;;;SUB1;1

XUINZIS   ;SFISC/AC - Postinit to convert Hunt Groups to new format. ;11/9/92  16:24

 +1       ;;7.1;KERNEL;;May 11, 1993

INIT      ;

 +1       ;Load data element numbers into ^UTILITY($J,"%ZISSDD",data element number

 +2        DO LODUTL^%ZISS

 +3        FOR %ZISI=1:1

               SET %ZISZ=$TEXT(Z+%ZISI)

               IF %ZISZ=""

                   QUIT 

               SET ^UTILITY($JOB,"%ZISS",$PIECE(%ZISZ,";",5),$PIECE(%ZISZ,";",6))=""

 +4        WRITE !,"Removing 'W ' from Terminal Type fields"

 +5        FOR D0=0:0

               SET D0=$ORDER(^%ZIS(2,D0))

               IF D0'>0

                   QUIT 

               IF $DATA(^(D0,0))#2

                   WRITE "."

                   Begin DoDot:1

 +6                    SET ZISG=""

                       FOR 

                           SET ZISG=$ORDER(^UTILITY($JOB,"%ZISS",ZISG))

                           IF ZISG=""

                               QUIT 

                           Begin DoDot:2

 +7                            FOR ZISP=0:0

                                   SET ZISP=$ORDER(^UTILITY($JOB,"%ZISS",ZISG,ZISP))

                                   IF ZISP'>0

                                       QUIT 

                                   Begin DoDot:3

 +8                                    IF $DATA(^%ZIS(2,D0,ZISG))#2

                                           SET Y=$PIECE(^(ZISG),"^",ZISP)

                                           IF $EXTRACT(Y,1,2)="W "

                                               Begin DoDot:4

 +9                                                SET $PIECE(^(ZISG),"^",ZISP)=$EXTRACT(Y,3,$LENGTH(Y))

                                               End DoDot:4

                                   End DoDot:3

                           End DoDot:2

                   End DoDot:1

 +10       QUIT 

Z         ;

 +1       ;;;;21;1

 +2       ;;;;21;2

 +3       ;;;;201;1

 +4       ;;;;203;1

 +5       ;;;;205;1

 +6       ;;;;207;1

 +7       ;;;;209;1

 +8       ;;;;211;1

 +9       ;;;;G;1

 +10      ;;;;G;2

 +11      ;;;;G;3

 +12      ;;;;G;4

 +13      ;;;;G;5

 +14      ;;;;G;6

 +15      ;;;;G;7

 +16      ;;;;G;8

 +17      ;;;;G;9

 +18      ;;;;G;10

 +19      ;;;;G;11

 +20      ;;;;G0;1

 +21      ;;;;G1;1

 +22      ;;;;I0;1

 +23      ;;;;I1;1

 +24      ;;;;SPR0;1

 +25      ;;;;SPR1;1

 +26      ;;;;SUB0;1

 +27      ;;;;SUB1;1