| [613] | 1 | XUPOS259 ;SFISC/SO- Correct DISABLE field in Protocols exported in 236 ;10:32 AM 10 Oct 2002
|
|---|
| 2 | ;;8.0;KERNEL;**259**;Jul 10, 1995
|
|---|
| 3 | ; Get domain pointer for site
|
|---|
| 4 | N XUX
|
|---|
| 5 | S XUX=$$GET1^DIQ(8989.3,"1,",.01)
|
|---|
| 6 | ; If Hoholulu then take no action
|
|---|
| 7 | I XUX["HONOLULU" D Q
|
|---|
| 8 | . N X
|
|---|
| 9 | . S X="Site Honolulu - no action taken."
|
|---|
| 10 | . D MES^XPDUTL(X)
|
|---|
| 11 | ; Set DISABLE field for Protocols
|
|---|
| 12 | D
|
|---|
| 13 | . N DA,DIERR,ERR
|
|---|
| 14 | . S DA=$$FIND1^DIC(101,"","X","XUHUI FIELD CHANGE EVENT","B","","ERR")
|
|---|
| 15 | . I 'DA D Q ;Problem with lookup
|
|---|
| 16 | . . N X
|
|---|
| 17 | . . S X="Unable to lookup protocol 'XUHUI FIELD CHANGE EVENT' - no action taken."
|
|---|
| 18 | . . D MES^XPDUTL(X)
|
|---|
| 19 | . . Q
|
|---|
| 20 | . N DIE,DR
|
|---|
| 21 | . S DIE=101
|
|---|
| 22 | . S DR="2///*Do NOT remove this message"
|
|---|
| 23 | . D ^DIE
|
|---|
| 24 | . N X
|
|---|
| 25 | . S X="Protocol 'XUHUI FIELD CHANGE EVENT' has been DISABLED."
|
|---|
| 26 | . D MES^XPDUTL(X)
|
|---|
| 27 | . Q
|
|---|
| 28 | D
|
|---|
| 29 | . N DA,DIERR,ERR
|
|---|
| 30 | . S DA=$$FIND1^DIC(101,"","X","XUHUI SEND MESSAGE","B","","ERR")
|
|---|
| 31 | . I 'DA D Q ;Problem with lookup
|
|---|
| 32 | . . N X
|
|---|
| 33 | . . S X="Unable to lookup protocol 'XUHUI SEND MESSAGE' - no action taken."
|
|---|
| 34 | . . D MES^XPDUTL(X)
|
|---|
| 35 | . . Q
|
|---|
| 36 | . N DIE,DR
|
|---|
| 37 | . S DIE=101
|
|---|
| 38 | . S DR="2///*Do NOT remove this message"
|
|---|
| 39 | . D ^DIE
|
|---|
| 40 | . N X
|
|---|
| 41 | . S X="Protocol 'XUHUI SEND MESSAGE' has been DISABLED."
|
|---|
| 42 | . D MES^XPDUTL(X)
|
|---|
| 43 | . Q
|
|---|
| 44 | Q
|
|---|
