XUZP7PST.m

XUZP7PST ;IHS/OIRM/DSD/AEF - PATCH XU*8.0*1007 POST-INSTALL ROUTINE [ 04/02/2003   8:29 AM ]

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

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D ^XBKVAR

 D ZMU

 D AVAP15

 D DIU9

 D XUYDEV

 D PREFIX

 D COMPILE

 Q

ZMU ;----- KILL OLD %MU GLOBAL

 ;USED BY ROUTINE XUBU^XMD

 ;

 I $$VERSION^%ZOSV(1)["Cache" D

 . W $ZU(68,28,0) ;allow kill of %zmu global on Cache system

 ;

 S ^%zmu=$G(^%MU)

 K ^%MU

 Q

AVAP15 ;----- RUN AVAP15 ROUTINE TO RESET CROSSREFERENCES IN FILES 200 AND 4

 ;

 D EN^AVAP15

 Q

XUYDEV ;----- POST INSTALL FROM PATCH XU*8*135

 ;      RUN ^XUYDEV TO ADD DEVICE TO FILE 8989.518

 ;

 D ^XUYDEV

 Q

PREFIX ;----- MAKE SURE PREFIX FIELD IN PACKAGE FILE IS POPULATED

 ;

 S PKG("RPC BROKER")="XWB"

 S PKG("SAGG PROJECT")="KMPS"

 S PKG("CAPACITY MANAGEMENT - RUM")="KMPR"

 S PKG("NEW PERSON")="A4A7"

 S PKG("RESOURCE USAGE MONITOR")="KMPR"

 ;

 S PKG=""

 F  S PKG=$O(PKG(PKG)) Q:PKG']""  D

 . S IEN=0

 . F  S IEN=$O(^DIC(9.4,"B",PKG,IEN)) Q:'IEN  D

 . . I $D(^DIC(9.4,IEN,0)) D

 . . . S $P(^DIC(9.4,IEN,0),U,2)=PKG(PKG)

 . . . S ^DIC(9.4,"C",PKG(PKG),IEN)=""

 Q

COMPILE ;----- COMPILE FILE 200 PRINT TEMPLATES

 ;

 N DMAX,TEMP,X,Y

 ;

 S TEMP("XUFILEINQ")="XUFILE0"

 S TEMP("XUSERINQ")="XUCT01"

 ;

 S TEMP=""

 F  S TEMP=$O(TEMP(TEMP)) Q:TEMP']""  D

 . S X=TEMP(TEMP)

 . S Y=$O(^DIPT("B",TEMP,0))

 . Q:'Y

 . D BMES^XPDUTL("Compiling print template "_TEMP)

 . S DMAX=$$ROUSIZE^DILF

 . D EN^DIPZ

 Q

DIU9 ;----- DELETE ZISH SEND PARAMETERS FILE #9999999.93

 ;

 ;      FOR ALPHA SITES ONLY!

 ;

 N DIU,X,Y

 Q:$P($G(^DIC(9999999.93,0)),U)'="ZISH SEND PARAMETERS"

 S DIU="^%ZISH(9999999.93,"

 S DIU(0)="DT"

 D EN^DIU2

 Q

XUZP7PST  ;IHS/OIRM/DSD/AEF - PATCH XU*8.0*1007 POST-INSTALL ROUTINE [ 04/02/2003   8:29 AM ]

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

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO ^XBKVAR

 +3        DO ZMU

 +4        DO AVAP15

 +5        DO DIU9

 +6        DO XUYDEV

 +7        DO PREFIX

 +8        DO COMPILE

 +9        QUIT 

ZMU       ;----- KILL OLD %MU GLOBAL

 +1       ;USED BY ROUTINE XUBU^XMD

 +2       ;

 +3        IF $$VERSION^%ZOSV(1)["Cache"

               Begin DoDot:1

 +4       ;allow kill of %zmu global on Cache system

                   WRITE $ZU(68,28,0)

               End DoDot:1

 +5       ;

 +6        SET ^%zmu=$GET(^%MU)

 +7        KILL ^%MU

 +8        QUIT 

AVAP15    ;----- RUN AVAP15 ROUTINE TO RESET CROSSREFERENCES IN FILES 200 AND 4

 +1       ;

 +2        DO EN^AVAP15

 +3        QUIT 

XUYDEV    ;----- POST INSTALL FROM PATCH XU*8*135

 +1       ;      RUN ^XUYDEV TO ADD DEVICE TO FILE 8989.518

 +2       ;

 +3        DO ^XUYDEV

 +4        QUIT 

PREFIX    ;----- MAKE SURE PREFIX FIELD IN PACKAGE FILE IS POPULATED

 +1       ;

 +2        SET PKG("RPC BROKER")="XWB"

 +3        SET PKG("SAGG PROJECT")="KMPS"

 +4        SET PKG("CAPACITY MANAGEMENT - RUM")="KMPR"

 +5        SET PKG("NEW PERSON")="A4A7"

 +6        SET PKG("RESOURCE USAGE MONITOR")="KMPR"

 +7       ;

 +8        SET PKG=""

 +9        FOR 

               SET PKG=$ORDER(PKG(PKG))

               IF PKG']""

                   QUIT 

               Begin DoDot:1

 +10               SET IEN=0

 +11               FOR 

                       SET IEN=$ORDER(^DIC(9.4,"B",PKG,IEN))

                       IF 'IEN

                           QUIT 

                       Begin DoDot:2

 +12                       IF $DATA(^DIC(9.4,IEN,0))

                               Begin DoDot:3

 +13                               SET $PIECE(^DIC(9.4,IEN,0),U,2)=PKG(PKG)

 +14                               SET ^DIC(9.4,"C",PKG(PKG),IEN)=""

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +15       QUIT 

COMPILE   ;----- COMPILE FILE 200 PRINT TEMPLATES

 +1       ;

 +2        NEW DMAX,TEMP,X,Y

 +3       ;

 +4        SET TEMP("XUFILEINQ")="XUFILE0"

 +5        SET TEMP("XUSERINQ")="XUCT01"

 +6       ;

 +7        SET TEMP=""

 +8        FOR 

               SET TEMP=$ORDER(TEMP(TEMP))

               IF TEMP']""

                   QUIT 

               Begin DoDot:1

 +9                SET X=TEMP(TEMP)

 +10               SET Y=$ORDER(^DIPT("B",TEMP,0))

 +11               IF 'Y

                       QUIT 

 +12               DO BMES^XPDUTL("Compiling print template "_TEMP)

 +13               SET DMAX=$$ROUSIZE^DILF

 +14               DO EN^DIPZ

               End DoDot:1

 +15       QUIT 

DIU9      ;----- DELETE ZISH SEND PARAMETERS FILE #9999999.93

 +1       ;

 +2       ;      FOR ALPHA SITES ONLY!

 +3       ;

 +4        NEW DIU,X,Y

 +5        IF $PIECE($GET(^DIC(9999999.93,0)),U)'="ZISH SEND PARAMETERS"

               QUIT 

 +6        SET DIU="^%ZISH(9999999.93,"

 +7        SET DIU(0)="DT"

 +8        DO EN^DIU2

 +9        QUIT