source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53620X.m@ 648

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

initial load of WorldVistAEHR
File size: 8.6 KB
Line 
1DG53620X ;Plano/DW-MODIFY NEW-STYLE XREF ;11:26 AM 1 Sep 2004
2 ;;5.3;Registration;**620**;Aug 13, 1993
3 ;
4 Q
5EN ;Entry point
6 D NOP,ANAM01,ANAM211,ANAM2191,ANAM2401
7 D ANAM2402,ANAM2403,ANAM331,ANAM3311
8 D ANAM341^DG53620Y,ANAM201^DG53620Y,ANAM1001^DG53620Y
9 Q
10 ;
11NOP ;NOP X-REF
12 N DGXR,DGRES,DGOUT
13 S DGXR("FILE")=2
14 S DGXR("NAME")="NOP"
15 S DGXR("TYPE")="R"
16 S DGXR("USE")="LS"
17 S DGXR("EXECUTION")="F"
18 S DGXR("ACTIVITY")="IR"
19 S DGXR("SHORT DESCR")="Index of standardized values that don't match .01 value."
20 S DGXR("DESCR",1)="This cross reference facilitates PATIENT file lookups by a standardized name"
21 S DGXR("DESCR",2)="value. In addition to the standardization applied by Kernel name utilities,"
22 S DGXR("DESCR",3)="hyphens and apostrophes are also removed from the name value. This cross"
23 S DGXR("DESCR",4)="reference is only set if the standardized name is different than the patient"
24 S DGXR("DESCR",5)="name value stored in the NAME (#.01) field."
25 S DGXR("VAL",1)=.01
26 S DGXR("VAL",1,"SUBSCRIPT")=1
27 S DGXR("VAL",1,"LENGTH")=30
28 S DGXR("VAL",1,"COLLATION")="F"
29 S DGXR("VAL",1,"XFORM FOR STORAGE")="S X=$$NOP^XLFNAME7(X)"
30 S DGXR("VAL",1,"XFORM FOR LOOKUP")="S X=$$NOP^XLFNAME7(X)"
31 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
32 Q
33ANAM01 ;ANAM01 X-REF
34 N DGXR,DGRES,DGOUT
35 S DGXR("FILE")=2
36 S DGXR("NAME")="ANAM01"
37 S DGXR("TYPE")="MU"
38 S DGXR("USE")="A"
39 S DGXR("EXECUTION")="F"
40 S DGXR("ACTIVITY")="IR"
41 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with the .01 field."
42 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
43 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.01 field synchronized"
44 S DGXR("DESCR",3)="with the data value stored in that field."
45 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.01,.DG20NAME,1.01,+$P($G(^DPT(DA,""NAME"")),U),""CL30"") K DG20NAME Q"
46 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.01,1.01) Q"
47 S DGXR("VAL",1)=.01
48 S DGXR("VAL",1,"SUBSCRIPT")=1
49 S DGXR("VAL",1,"COLLATION")="F"
50 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
51 Q
52ANAM211 ;ANAM211 X-REF
53 N DGXR,DGRES,DGOUT
54 S DGXR("FILE")=2
55 S DGXR("NAME")="ANAM211"
56 S DGXR("TYPE")="MU"
57 S DGXR("USE")="A"
58 S DGXR("EXECUTION")="F"
59 S DGXR("ACTIVITY")="IR"
60 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.211."
61 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
62 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.211 field synchronized"
63 S DGXR("DESCR",3)="with the data value stored in that field."
64 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.211,.DG20NAME,1.02,+$P($G(^DPT(DA,""NAME"")),U,2),""CL35"") K DG20NAME Q"
65 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.211,1.02) Q"
66 S DGXR("VAL",1)=.211
67 S DGXR("VAL",1,"SUBSCRIPT")=1
68 S DGXR("VAL",1,"COLLATION")="F"
69 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
70 Q
71 ;
72ANAM2191 ;ANAM2191 X-REF
73 N DGXR,DGRES,DGOUT
74 S DGXR("FILE")=2
75 S DGXR("NAME")="ANAM2191"
76 S DGXR("TYPE")="MU"
77 S DGXR("USE")="A"
78 S DGXR("EXECUTION")="F"
79 S DGXR("ACTIVITY")="IR"
80 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.2191."
81 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
82 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.2191 field synchronized"
83 S DGXR("DESCR",3)="with the data value stored in that field."
84 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2191,.DG20NAME,1.03,+$P($G(^DPT(DA,""NAME"")),U,3),""CL35"") K DG20NAME Q"
85 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2191,1.03) Q"
86 S DGXR("VAL",1)=.2191
87 S DGXR("VAL",1,"SUBSCRIPT")=1
88 S DGXR("VAL",1,"COLLATION")="F"
89 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
90 Q
91 ;
92ANAM2401 ;ANAM2401 X-REF
93 N DGXR,DGRES,DGOUT
94 S DGXR("FILE")=2
95 S DGXR("NAME")="ANAM2401"
96 S DGXR("TYPE")="MU"
97 S DGXR("USE")="A"
98 S DGXR("EXECUTION")="F"
99 S DGXR("ACTIVITY")="IR"
100 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.2401."
101 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
102 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.2401 field synchronized"
103 S DGXR("DESCR",3)="with the data value stored in that field."
104 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2401,.DG20NAME,1.04,+$P($G(^DPT(DA,""NAME"")),U,4),""CL35"") K DG20NAME Q"
105 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2401,1.04) Q"
106 S DGXR("VAL",1)=.2401
107 S DGXR("VAL",1,"SUBSCRIPT")=1
108 S DGXR("VAL",1,"COLLATION")="F"
109 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
110 Q
111ANAM2402 ;ANAM2402 X-REF
112 N DGXR,DGRES,DGOUT
113 S DGXR("FILE")=2
114 S DGXR("NAME")="ANAM2402"
115 S DGXR("TYPE")="MU"
116 S DGXR("USE")="A"
117 S DGXR("EXECUTION")="F"
118 S DGXR("ACTIVITY")="IR"
119 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.2402."
120 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
121 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.2402 field synchronized"
122 S DGXR("DESCR",3)="with the data value stored in that field."
123 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2402,.DG20NAME,1.05,+$P($G(^DPT(DA,""NAME"")),U,5),""CL35"") K DG20NAME Q"
124 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2402,1.05) Q"
125 S DGXR("VAL",1)=.2402
126 S DGXR("VAL",1,"SUBSCRIPT")=1
127 S DGXR("VAL",1,"COLLATION")="F"
128 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
129 Q
130ANAM2403 ;ANAM2403 X-REF
131 N DGXR,DGRES,DGOUT
132 S DGXR("FILE")=2
133 S DGXR("NAME")="ANAM2403"
134 S DGXR("TYPE")="MU"
135 S DGXR("USE")="A"
136 S DGXR("EXECUTION")="F"
137 S DGXR("ACTIVITY")="IR"
138 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.2403."
139 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
140 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.2403 field synchronized"
141 S DGXR("DESCR",3)="with the data value stored in that field."
142 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2403,.DG20NAME,1.06,+$P($G(^DPT(DA,""NAME"")),U,6),""CL35"") K DG20NAME Q"
143 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2403,1.06) Q"
144 S DGXR("VAL",1)=.2403
145 S DGXR("VAL",1,"SUBSCRIPT")=1
146 S DGXR("VAL",1,"COLLATION")="F"
147 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
148 Q
149ANAM331 ;ANAM331 X-REF
150 N DGXR,DGRES,DGOUT
151 S DGXR("FILE")=2
152 S DGXR("NAME")="ANAM331"
153 S DGXR("TYPE")="MU"
154 S DGXR("USE")="A"
155 S DGXR("EXECUTION")="F"
156 S DGXR("ACTIVITY")="IR"
157 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.331."
158 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
159 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.331 field synchronized"
160 S DGXR("DESCR",3)="with the data value stored in that field."
161 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.331,.DG20NAME,1.07,+$P($G(^DPT(DA,""NAME"")),U,7),""CL35"") K DG20NAME Q"
162 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.331,1.07) Q"
163 S DGXR("VAL",1)=.331
164 S DGXR("VAL",1,"SUBSCRIPT")=1
165 S DGXR("VAL",1,"COLLATION")="F"
166 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
167 Q
168ANAM3311 ;ANAM3311 X-REF
169 N DGXR,DGRES,DGOUT
170 S DGXR("FILE")=2
171 S DGXR("NAME")="ANAM3311"
172 S DGXR("TYPE")="MU"
173 S DGXR("USE")="A"
174 S DGXR("EXECUTION")="F"
175 S DGXR("ACTIVITY")="IR"
176 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.3311."
177 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
178 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.3311 field synchronized"
179 S DGXR("DESCR",3)="with the data value stored in that field."
180 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.3311,.DG20NAME,1.08,+$P($G(^DPT(DA,""NAME"")),U,8),""CL35"") K DG20NAME Q"
181 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.3311,1.08) Q"
182 S DGXR("VAL",1)=.3311
183 S DGXR("VAL",1,"SUBSCRIPT")=1
184 S DGXR("VAL",1,"COLLATION")="F"
185 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
186 Q
187 ;
Note: See TracBrowser for help on using the repository browser.