XU8P370.m

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

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