|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
877 bytes
|
| Line | |
|---|
| 1 | XU8P370 ;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.
