XU8P370 ;OOIFO/SO-CREATE NEW-STYLE XREF 'AUSERKEY';1:31 PM 4 Nov 2004
;;8.0;KERNEL;**370**;Jul 10, 1995
;
D MES^XPDUTL("Installing ""AUSERKEY"" cross reference...")
N XU8PXR,XU8PRES,XU8POUT
S XU8PXR("FILE")=200
S XU8PXR("ROOT FILE")=200.051
S XU8PXR("NAME")="AUSERKEY"
S XU8PXR("TYPE")="MU"
S XU8PXR("USE")="S"
S XU8PXR("EXECUTION")="F"
S XU8PXR("ACTIVITY")="IR"
S XU8PXR("SHORT DESCR")="Index to monitor the Allocation/De-allocation of the XUORES Security Key."
S XU8PXR("SET")="I $$PROVIDER^XUSER(DA(1)) S ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))="""""
S XU8PXR("KILL")="I '$$PROVIDER^XUSER(DA(1)) K ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))"
S XU8PXR("WHOLE KILL")="Q"
S XU8PXR("VAL",1)=.01
S XU8PXR("VAL",1,"COLLATION")="F"
D CREIXN^DDMOD(.XU8PXR,"W",.XU8PRES,"XU8POUT")
D MES^XPDUTL("Finished installing ""AUSERKEY"" cross reference.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P370 898 printed Dec 13, 2024@02:07:21 Page 2
XU8P370 ;OOIFO/SO-CREATE NEW-STYLE XREF 'AUSERKEY';1:31 PM 4 Nov 2004
+1 ;;8.0;KERNEL;**370**;Jul 10, 1995
+2 ;
+3 DO MES^XPDUTL("Installing ""AUSERKEY"" cross reference...")
+4 NEW XU8PXR,XU8PRES,XU8POUT
+5 SET XU8PXR("FILE")=200
+6 SET XU8PXR("ROOT FILE")=200.051
+7 SET XU8PXR("NAME")="AUSERKEY"
+8 SET XU8PXR("TYPE")="MU"
+9 SET XU8PXR("USE")="S"
+10 SET XU8PXR("EXECUTION")="F"
+11 SET XU8PXR("ACTIVITY")="IR"
+12 SET XU8PXR("SHORT DESCR")="Index to monitor the Allocation/De-allocation of the XUORES Security Key."
+13 SET XU8PXR("SET")="I $$PROVIDER^XUSER(DA(1)) S ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))="""""
+14 SET XU8PXR("KILL")="I '$$PROVIDER^XUSER(DA(1)) K ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))"
+15 SET XU8PXR("WHOLE KILL")="Q"
+16 SET XU8PXR("VAL",1)=.01
+17 SET XU8PXR("VAL",1,"COLLATION")="F"
+18 DO CREIXN^DDMOD(.XU8PXR,"W",.XU8PRES,"XU8POUT")
+19 DO MES^XPDUTL("Finished installing ""AUSERKEY"" cross reference.")
+20 QUIT
