XQP46INI.m

XQP46INI ;SEA/LUKE - Post init for patch XU*8.0*46 ;04/27/98  12:27

 ;;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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XQP46INI   497     printed  Apr 23, 2025@18:20:55                                                                                                                                                                                                     Page 2

XQP46INI  ;SEA/LUKE - Post init for patch XU*8.0*46 ;04/27/98  12:27

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

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

 +3       ;

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

 +5        NEW XQMEN,XQOP,XQORD

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

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

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

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

               Begin DoDot:1

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

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

 +12               QUIT 

               End DoDot:1

 +13       QUIT