45 lines
1.2 KiB
Mathematica
45 lines
1.2 KiB
Mathematica
XUPOS259 ;SFISC/SO- Correct DISABLE field in Protocols exported in 236 ;10:32 AM 10 Oct 2002
|
|
;;8.0;KERNEL;**259**;Jul 10, 1995
|
|
; Get domain pointer for site
|
|
N XUX
|
|
S XUX=$$GET1^DIQ(8989.3,"1,",.01)
|
|
; If Hoholulu then take no action
|
|
I XUX["HONOLULU" D Q
|
|
. N X
|
|
. S X="Site Honolulu - no action taken."
|
|
. D MES^XPDUTL(X)
|
|
; Set DISABLE field for Protocols
|
|
D
|
|
. N DA,DIERR,ERR
|
|
. S DA=$$FIND1^DIC(101,"","X","XUHUI FIELD CHANGE EVENT","B","","ERR")
|
|
. I 'DA D Q ;Problem with lookup
|
|
. . N X
|
|
. . S X="Unable to lookup protocol 'XUHUI FIELD CHANGE EVENT' - no action taken."
|
|
. . D MES^XPDUTL(X)
|
|
. . Q
|
|
. N DIE,DR
|
|
. S DIE=101
|
|
. S DR="2///*Do NOT remove this message"
|
|
. D ^DIE
|
|
. N X
|
|
. S X="Protocol 'XUHUI FIELD CHANGE EVENT' has been DISABLED."
|
|
. D MES^XPDUTL(X)
|
|
. Q
|
|
D
|
|
. N DA,DIERR,ERR
|
|
. S DA=$$FIND1^DIC(101,"","X","XUHUI SEND MESSAGE","B","","ERR")
|
|
. I 'DA D Q ;Problem with lookup
|
|
. . N X
|
|
. . S X="Unable to lookup protocol 'XUHUI SEND MESSAGE' - no action taken."
|
|
. . D MES^XPDUTL(X)
|
|
. . Q
|
|
. N DIE,DR
|
|
. S DIE=101
|
|
. S DR="2///*Do NOT remove this message"
|
|
. D ^DIE
|
|
. N X
|
|
. S X="Protocol 'XUHUI SEND MESSAGE' has been DISABLED."
|
|
. D MES^XPDUTL(X)
|
|
. Q
|
|
Q
|