source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUHUI236.m@ 1766

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

initial load of WorldVistAEHR
File size: 4.8 KB
Line 
1XUHUI236 ;SFISC/SO- Post Install for Patch 236, Install Xrefs ;1:40 PM 7 Jun 2002
2 ;;8.0;KERNEL;**236**;Jul 10, 1995
3 ;START - IA #3591
4 D HUI200
5 D HUIKEY
6 Q
7 ;
8HUI200 ;INSTALL 'AXUHUI' CROSS-REFERENCE
9 N HUIFDA,HUIERR,HUIWP
10 S X="Adding 'AXUHUI' new style cross-reference..." D MES^XPDUTL(X)
11 S HUIFDA(.11,"+1,",.01)=200 ;FILE NUMBER
12 S HUIFDA(.11,"+1,",.02)="AXUHUI" ;X-REF NAME
13 S HUIFDA(.11,"+1,",.11)="Hui Project Top File Xref" ;SHORT DESC.
14 S HUIFDA(.11,"+1,",.2)="MU" ;TYPE
15 S HUIFDA(.11,"+1,",.4)="R" ;EXECUTION
16 S HUIFDA(.11,"+1,",.5)="I" ;ROOT TYPE
17 S HUIFDA(.11,"+1,",.51)=200 ;ROOT FILE
18 S HUIFDA(.11,"+1,",.42)="A" ;USE
19 S HUIFDA(.11,"+1,",1.1)="D HUI^XUHUI("""",""XUHUI FIELD CHANGE EVENT"","""",""AXUHUI"") Q" ;SET LOGIC
20 S HUIFDA(.11,"+1,",2.1)="Q" ;KILL LOGIC
21 S HUIFDA(.11,"+1,",2.5)="Q" ;WHOLE FILE KILL
22 ;
23 ; CROSS REFERENCE VALUES
24 ;===========================================
25 S HUIFDA(.114,"+2,+1,",.01)=1 ;ORDER NUMBER
26 S HUIFDA(.114,"+2,+1,",1)="F" ;TYPE OF VALUE
27 S HUIFDA(.114,"+2,+1,",2)=200 ;FILE NUMBER
28 S HUIFDA(.114,"+2,+1,",3)=.01 ;FIELD NUMBER
29 S HUIFDA(.114,"+2,+1,",7)="F" ;COLLATION
30 ;===========================================
31 S HUIFDA(.114,"+3,+1,",.01)=2 ;ORDER NUMBER
32 S HUIFDA(.114,"+3,+1,",1)="F" ;TYPE OF VALUE
33 S HUIFDA(.114,"+3,+1,",2)=200 ;FILE NUMBER
34 S HUIFDA(.114,"+3,+1,",3)=9.2 ;FIELD NUMBER
35 S HUIFDA(.114,"+3,+1,",7)="F" ;COLLATION
36 ;===========================================
37 S HUIFDA(.114,"+4,+1,",.01)=3 ;ORDER NUMBER
38 S HUIFDA(.114,"+4,+1,",1)="F" ;TYPE OF VALUE
39 S HUIFDA(.114,"+4,+1,",2)=200 ;FILE NUMBER
40 S HUIFDA(.114,"+4,+1,",3)=5 ;FIELD NUMBER
41 S HUIFDA(.114,"+4,+1,",7)="F" ;COLLATION
42 ;==========================================
43 S HUIFDA(.114,"+5,+1,",.01)=4 ;ORDER NUMBER
44 S HUIFDA(.114,"+5,+1,",1)="F" ;TYPE OF VALUE
45 S HUIFDA(.114,"+5,+1,",2)=200 ;FILE NUMBER
46 S HUIFDA(.114,"+5,+1,",3)=9 ;FIELD NUMBER
47 S HUIFDA(.114,"+5,+1,",7)="F" ;COLLATION
48 D UPDATE^DIE("","HUIFDA","","HUIERR")
49 I $D(DIERR) D ERR Q
50 ;SET DESCRIPTION ARRAY
51 N VAL,HUIIEN
52 S VAL(1)=200,VAL(2)="AXUHUI"
53 S HUIIEN=$$FIND1^DIC(.11,"","X",.VAL,"BB","","HUIERR")
54 I $D(DIERR) D ERR Q
55 S HUIWP(1)="This new style cross-reference is on non-multiple fields that the Hui"
56 S HUIWP(2)="project want to monitor for a change in value (Patch XU*8*236). The"
57 S HUIWP(3)="following fields are being monitored in order:"
58 S HUIWP(4)=" "
59 S HUIWP(5)=" .01 (NAME)"
60 S HUIWP(6)=" 9.2 (TERMINATION DATE)"
61 S HUIWP(7)=" 5 (DOB)"
62 S HUIWP(8)=" 9 (SSN)"
63 D WP^DIE(.11,HUIIEN_",",.1,"","HUIWP") ;LONG DESCRIPTION
64 S X="Finished adding 'AXUHUI' cross-reverence." D MES^XPDUTL(X)
65 S X="Updating any Triggers for cross-reference 'AXUHUI'..." D MES^XPDUTL(X)
66 N XR
67 S XR(200,.01)="" ;Name
68 S XR(200,9.2)="" ;Termination Date
69 S XR(200,5)="" ;Date Of Birth
70 S XR(200,9)="" ;SSN
71 D TRIG^DICR(.XR) ;IA# 3405
72 S X="Finished Updating any Trigers for cross-reference 'AXUHUI'." D MES^XPDUTL(X)
73 Q
74 ;
75HUIKEY ;INSTALL 'AXUHUIKEY' CROSS-REFERENCE
76 N HUIFDA,HUIERR,HUIWP
77 S X="Adding 'AXUHUIKEY' new style cross-reference..." D MES^XPDUTL(X)
78 S HUIFDA(.11,"+1,",.01)=200 ;FILE NUMBER
79 S HUIFDA(.11,"+1,",.02)="AXUHUIKEY" ;X-REF NAME
80 S HUIFDA(.11,"+1,",.11)="HUI key xref" ;SHORT DESC.
81 S HUIFDA(.11,"+1,",.2)="MU" ;TYPE
82 S HUIFDA(.11,"+1,",.4)="R" ;EXECUTION
83 S HUIFDA(.11,"+1,",.5)="W" ;ROOT TYPE
84 S HUIFDA(.11,"+1,",.51)=200.051 ;ROOT FILE
85 S HUIFDA(.11,"+1,",.42)="A" ;USE
86 S HUIFDA(.11,"+1,",1.1)="D HUIKEY^XUHUI("""",""XUHUI FIELD CHANGE EVENT"","""",""AXUHUIKEY"") Q" ;SET LOGIC
87 S HUIFDA(.11,"+1,",2.1)="D HUIKEY^XUHUI("""",""XUHUI FIELD CHANGE EVENT"",""K"",""AXUHUIKEY"") Q" ;KILL LOGIC
88 S HUIFDA(.11,"+1,",2.5)="Q" ;WHOLE FILE KILL
89 ;
90 ;CROSS REFERENCE VALUES
91 ;=================================================
92 S HUIFDA(.114,"+2,+1,",.01)=1 ;ORDER NUMBER
93 S HUIFDA(.114,"+2,+1,",1)="F" ;TYPE OF VALUE
94 S HUIFDA(.114,"+2,+1,",2)=200.051 ;FILE NUMBER
95 S HUIFDA(.114,"+2,+1,",3)=.01 ;FIELD NUMBER
96 S HUIFDA(.114,"+2,+1,",7)="F" ;COLLATION
97 ;
98 ;FILE THE 'AXUHUIKEY' XREF
99 D UPDATE^DIE("","HUIFDA","","HUIERR")
100 I $D(DIERR) D ERR Q
101 ;SET DESCRIPTION ARRAY
102 N VAL,HUIIEN
103 S VAL(1)=200,VAL(2)="AXUHUIKEY"
104 S HUIIEN=$$FIND1^DIC(.11,"","X",.VAL,"BB","","HUIERR")
105 I $D(DIERR) D ERR Q
106 S HUIWP(1)="This new style cross-reference is on the multiple: 'KEYS' so the Hui"
107 S HUIWP(2)="project can monitor the allocation/de-allocation of the 'PROVIDER'"
108 S HUIWP(3)="key."
109 D WP^DIE(.11,HUIIEN_",",.1,"","HUIWP") ;LONG DESCRIPTION
110 S X="Finished adding 'AXUHUIKEY' new style cross-reference." D MES^XPDUTL(X)
111 S X="Updating any triggers for new style cross-reference 'AXUHUIKEY'." D MES^XPDUTL(X)
112 N XR
113 S XR(200.051,.01)="" ;Name
114 D TRIG^DICR(.XR) ;IA #3405
115 S X="Finished updating triggers for 'AXUHUIKEY' cross-reference." D MES^XPDUTL(X)
116 S X="Post installed finished." D MES^XPDUTL(X)
117 Q
118 ;
119ERR ;ERROR PROCESSING
120 N I S I=""
121 F S I=$O(HUIERR("DIERR",1,"TEXT",I)) Q:I="" D
122 . D MES^XPDUTL(HUIERR("DIERR",1,"TEXT",I))
123 D CLEAN^DILF
124 Q
Note: See TracBrowser for help on using the repository browser.