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@
1073
Last change on this file since 1073 was 613, checked in by , 15 years ago | |
---|---|
File size: 483 bytes |
Rev | 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.