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/XU8P370.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 877 bytes
Line 
1XU8P370 ;OOIFO/SO-CREATE NEW-STYLE XREF 'AUSERKEY';1:31 PM 4 Nov 2004
2 ;;8.0;KERNEL;**370**;Jul 10, 1995
3 ;
4 D MES^XPDUTL("Installing ""AUSERKEY"" cross reference...")
5 N XU8PXR,XU8PRES,XU8POUT
6 S XU8PXR("FILE")=200
7 S XU8PXR("ROOT FILE")=200.051
8 S XU8PXR("NAME")="AUSERKEY"
9 S XU8PXR("TYPE")="MU"
10 S XU8PXR("USE")="S"
11 S XU8PXR("EXECUTION")="F"
12 S XU8PXR("ACTIVITY")="IR"
13 S XU8PXR("SHORT DESCR")="Index to monitor the Allocation/De-allocation of the XUORES Security Key."
14 S XU8PXR("SET")="I $$PROVIDER^XUSER(DA(1)) S ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))="""""
15 S XU8PXR("KILL")="I '$$PROVIDER^XUSER(DA(1)) K ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))"
16 S XU8PXR("WHOLE KILL")="Q"
17 S XU8PXR("VAL",1)=.01
18 S XU8PXR("VAL",1,"COLLATION")="F"
19 D CREIXN^DDMOD(.XU8PXR,"W",.XU8PRES,"XU8POUT")
20 D MES^XPDUTL("Finished installing ""AUSERKEY"" cross reference.")
21 Q
Note: See TracBrowser for help on using the repository browser.