source:
WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQP46INI.m@
1078
Last change on this file since 1078 was 613, checked in by , 15 years ago | |
---|---|
File size: 483 bytes |
Line | |
---|---|
1 | XQP46INI ;SEA/LUKE - Post init for patch XU*8.0*46 ;04/27/98 12:27 |
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 | N XQMEN,XQOP,XQORD |
7 | S XQMEN=$O(^DIC(19,"B","XUMAINT",0)) |
8 | S XQOP=$O(^DIC(19,"B","XQOPED",0)) |
9 | S XQORD=$O(^DIC(19,XQMEN,10,"B",XQOP,0)) |
10 | I +^DIC(19,XQMEN,10,XQORD,0)=XQOP D |
11 | .S $P(^DIC(19,XQMEN,10,XQORD,0),U,2)="OPED" |
12 | .S ^DIC(19,XQMEN,10,"C","OPED",XQORD)="" |
13 | .Q |
14 | Q |
Note:
See TracBrowser
for help on using the repository browser.