source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUPOS259.m@ 1569

Last change on this file since 1569 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1XUPOS259 ;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
Note: See TracBrowser for help on using the repository browser.