- 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
