XQP46INI.m

XQP46INI ;SEA/LUKE - Post init for patch XU*8.0*46 ;04/27/98  12:27 [ 04/02/2003   8:29 AM ]

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

 ;;8.0;Kernel;**46**;APR 14, 1998

 ;Post installation routine for KIDS patch XU*8.0*46

 ;

 ;Add Synonym "OPED" to XQOPED option in the XUMAINT menu

 N XQMEN,XQOP,XQORD

 S XQMEN=$O(^DIC(19,"B","XUMAINT",0))

 S XQOP=$O(^DIC(19,"B","XQOPED",0))

 S XQORD=$O(^DIC(19,XQMEN,10,"B",XQOP,0))

 I +^DIC(19,XQMEN,10,XQORD,0)=XQOP D

 .S $P(^DIC(19,XQMEN,10,XQORD,0),U,2)="OPED"

 .S ^DIC(19,XQMEN,10,"C","OPED",XQORD)=""

 .Q

 Q

XQP46INI  ;SEA/LUKE - Post init for patch XU*8.0*46 ;04/27/98  12:27 [ 04/02/2003   8:29 AM ]

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

 +2       ;;8.0;Kernel;**46**;APR 14, 1998

 +3       ;Post installation routine for KIDS patch XU*8.0*46

 +4       ;

 +5       ;Add Synonym "OPED" to XQOPED option in the XUMAINT menu

 +6        NEW XQMEN,XQOP,XQORD

 +7        SET XQMEN=$ORDER(^DIC(19,"B","XUMAINT",0))

 +8        SET XQOP=$ORDER(^DIC(19,"B","XQOPED",0))

 +9        SET XQORD=$ORDER(^DIC(19,XQMEN,10,"B",XQOP,0))

 +10       IF +^DIC(19,XQMEN,10,XQORD,0)=XQOP

               Begin DoDot:1

 +11               SET $PIECE(^DIC(19,XQMEN,10,XQORD,0),U,2)="OPED"

 +12               SET ^DIC(19,XQMEN,10,"C","OPED",XQORD)=""

 +13               QUIT 

               End DoDot:1

 +14       QUIT