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

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

initial load of WorldVistAEHR

File size: 6.8 KB
Line 
1VAFCMGB1 ;ALB/JRP-DEMOGRAPHIC MERGE SCREENS ;10/18/96
2 ;;5.3;Registration;**149,295,384,477,479**;Aug 13, 1993
3 ;
4 ;NOTE: This routine contains line tags used to build the display
5 ; screen for a List Manager interface. Refer to routine
6 ; VAFCMGB for a description of input/output variables.
7 ;
8GROUP2 ;Line tag to build logical group number two
9 ;
10 ;Group two contains the following fields:
11 ; .111, .1112, .112, .113, .114, .115, .117, .131, .132
12 ;
13 ;Column width is limited to 30 characters
14 ;
15 ;Declare variables
16 N IENS,TARGET,MESSAGE,LINE,DATA,LOCAL,REMOTE,DIFF
17 S TARGET="^TMP(""VAFC-MERGE-TO"","_$J_",""DATA"")"
18 S MESSAGE="^TMP(""VAFC-MERGE-TO"","_$J_",""MESSAGE"")"
19 ;Initialize global locations
20 K @TARGET,@MESSAGE
21 ;Set group index
22 S @VALMAR@("GRP",2)=VALMCNT
23 ;Get local data for patient
24 D GETDATA^VAFCMGU0(VAFCDFN,2,TARGET,MESSAGE)
25 ;Build display
26 S IENS=VAFCDFN_","
27 ;Address lines 1 to 3
28 ;S LOCAL=$$LOCAL^VAFCMGB0(2,.111,IENS,TARGET) ;**479
29 ;S LOCAL=$E(LOCAL,1,30)
30 ;S REMOTE=$$REMOTE^VAFCMGB0(2,.111)
31 ;S REMOTE=$E(REMOTE,1,30)
32 ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.111,IENS,TARGET)
33 ;S LINE=$$INSERT^VAFCMGU0(LOCAL,"",8)
34 ;S @VALMAR@(VALMCNT+1,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
35 ;S LOCAL=$$LOCAL^VAFCMGB0(2,.112,IENS,TARGET) ;**479
36 ;S LOCAL=$E(LOCAL,1,30)
37 ;S REMOTE=$$REMOTE^VAFCMGB0(2,.112)
38 ;S REMOTE=$E(REMOTE,1,30)
39 ;S:('DIFF) DIFF=$$DIFFCHK^VAFCMGB0(2,.112,IENS,TARGET)
40 ;S LINE=$$INSERT^VAFCMGU0(LOCAL,"",8)
41 ;S @VALMAR@(VALMCNT+2,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
42 ;S LOCAL=$$LOCAL^VAFCMGB0(2,.113,IENS,TARGET) ;**479
43 ;S LOCAL=$E(LOCAL,1,30)
44 ;S REMOTE=$$REMOTE^VAFCMGB0(2,.113)
45 ;S REMOTE=$E(REMOTE,1,30)
46 ;S:('DIFF) DIFF=$$DIFFCHK^VAFCMGB0(2,.113,IENS,TARGET)
47 ;S LINE=$$INSERT^VAFCMGU0(LOCAL,"",8)
48 ;S @VALMAR@(VALMCNT+3,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
49 ;S @VALMAR@(VALMCNT,0)=$S(DIFF:"**",1:" ")_" 5 Address:"
50 ;I DIFF,($P($G(@VAFCARR@(2,.111)),U,2)!$P($G(@VAFCARR@(2,.112)),U,2)!$P($G(@VAFCARR@(2,.113)),U,2)) S @VALMAR@(VALMCNT,0)="-> 5 Address:" ;**295
51 ;S @VALMAR@("IDX",VALMCNT,5)=""
52 ;S @VALMAR@("IDX",VALMCNT+1,5)=""
53 ;S @VALMAR@("IDX",VALMCNT+2,5)=""
54 ;S @VALMAR@("IDX",VALMCNT+3,5)=""
55 ;I (DIFF) D
56 ;.S @VALMAR@("E2F",5,1)="2^.111"
57 ;.S @VALMAR@("E2F",5,2)="2^.112"
58 ;.S @VALMAR@("E2F",5,3)="2^.113"
59 ;.S @VALMAR@("E2G",5)=2
60 ;I ('DIFF) D
61 ;.K @VALMAR@("E2F",5)
62 ;.K @VALMAR@("E2G",5)
63 ;W:(+$G(VAFCDOTS)) "."
64 ;S VALMCNT=VALMCNT+4
65 ;City
66 ;S LOCAL=$$LOCAL^VAFCMGB0(2,.114,IENS,TARGET) ;**479
67 ;S LOCAL=$E(LOCAL,1,30)
68 ;S REMOTE=$$REMOTE^VAFCMGB0(2,.114)
69 ;S REMOTE=$E(REMOTE,1,30)
70 ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.114,IENS,TARGET)
71 ;S LINE=$S(DIFF:"**",1:" ")_" 6"
72 ;S:DIFF&($P($G(@VAFCARR@(2,.114)),U,2)) LINE="->"_" 6" ;**295
73 ;S DATA="City: "_LOCAL
74 ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,8)
75 ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
76 ;S @VALMAR@("IDX",VALMCNT,6)=""
77 ;I (DIFF) D
78 ;.S @VALMAR@("E2F",6,1)="2^.114"
79 ;.S @VALMAR@("E2G",6)=2
80 ;I ('DIFF) D
81 ;.K @VALMAR@("E2F",6)
82 ;.K @VALMAR@("E2G",6)
83 ;W:(+$G(VAFCDOTS)) "."
84 ;S VALMCNT=VALMCNT+1
85 ;State
86 ;S LOCAL=$$LOCAL^VAFCMGB0(2,.115,IENS,TARGET) ;**479
87 ;S LOCAL=$E(LOCAL,1,30)
88 ;S REMOTE=$$REMOTE^VAFCMGB0(2,.115)
89 ;S REMOTE=$E(REMOTE,1,30)
90 ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.115,IENS,TARGET)
91 ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D ;**477 for GMT
92 ;. S LINE=$S(DIFF:"**",1:" ")_" 7"
93 ;. S:DIFF&($P($G(@VAFCARR@(2,.115)),U,2)) LINE="->"_" 7"
94 ;I '$D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D ;**477 for GMT
95 ;. S LINE=$S(DIFF:"**",1:" ")
96 ;. S:DIFF&($P($G(@VAFCARR@(2,.115)),U,2)) LINE="->"
97 ;S DATA="State: "_LOCAL
98 ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,7)
99 ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
100 ;S @VALMAR@("IDX",VALMCNT,7)=""
101 ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D ;**477 for GMT
102 ;. I (DIFF) D
103 ;. .S @VALMAR@("E2F",7,1)="2^.115"
104 ;. .S @VALMAR@("E2G",7)=2
105 ;. I ('DIFF) D
106 ;. .K @VALMAR@("E2F",7)
107 ;. .K @VALMAR@("E2G",7)
108 ;W:(+$G(VAFCDOTS)) "."
109 ;S VALMCNT=VALMCNT+1
110 ;Zip+4
111 ;S LOCAL=$$LOCAL^VAFCMGB0(2,.1112,IENS,TARGET) ;**479
112 ;S REMOTE=$$REMOTE^VAFCMGB0(2,.1112)
113 ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.1112,IENS,TARGET)
114 ;S LINE=$S(DIFF:"**",1:" ")_" 8"
115 ;S:DIFF&($P($G(@VAFCARR@(2,.1112)),U,2)) LINE="->"_" 8" ;**295
116 ;S DATA="Zip+4: "_LOCAL
117 ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,7)
118 ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
119 ;S @VALMAR@("IDX",VALMCNT,8)=""
120 ;I (DIFF) D
121 ;.S @VALMAR@("E2F",8,1)="2^.1112"
122 ;.S @VALMAR@("E2G",8)=2
123 ;I ('DIFF) D
124 ;.K @VALMAR@("E2F",8)
125 ;.K @VALMAR@("E2G",8)
126 ;W:(+$G(VAFCDOTS)) "."
127 ;S VALMCNT=VALMCNT+1
128 ;County
129 ;S LOCAL=$$LOCAL^VAFCMGB0(2,.117,IENS,TARGET) ;**479
130 ;S LOCAL=$E(LOCAL,1,30)
131 ;S REMOTE=$$REMOTE^VAFCMGB0(2,.117)
132 ;S REMOTE=$E(REMOTE,1,30)
133 ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.117,IENS,TARGET)
134 ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D ;**477 for GMT
135 ;. S LINE=$S(DIFF:"**",1:" ")_" 9"
136 ;. S:DIFF&($P($G(@VAFCARR@(2,.117)),U,2)) LINE="->"_" 9"
137 ;I '$D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D ;**477 for GMT
138 ;. S LINE=$S(DIFF:"**",1:" ")
139 ;. S:DIFF&($P($G(@VAFCARR@(2,.117)),U,2)) LINE="->"
140 ;S DATA="County: "_LOCAL
141 ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,6)
142 ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
143 ;S @VALMAR@("IDX",VALMCNT,9)=""
144 ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D ;**477 for GMT
145 ;. I (DIFF) D
146 ;. .S @VALMAR@("E2F",9,1)="2^.117"
147 ;. .S @VALMAR@("E2G",9)=2
148 ;. I ('DIFF) D
149 ;. .K @VALMAR@("E2F",9)
150 ;. .K @VALMAR@("E2G",9)
151 ;W:(+$G(VAFCDOTS)) "."
152 ;S VALMCNT=VALMCNT+1
153 ;Home phone number
154 S LOCAL=$$LOCAL^VAFCMGB0(2,.131,IENS,TARGET)
155 S LOCAL=$E(LOCAL,1,30)
156 S REMOTE=$$REMOTE^VAFCMGB0(2,.131)
157 S REMOTE=$E(REMOTE,1,30)
158 S DIFF=$$DIFFCHK^VAFCMGB0(2,.131,IENS,TARGET)
159 S LINE=$S(DIFF:"**",1:" ")_" 5" ;**479 10 to 5
160 S:DIFF&($P($G(@VAFCARR@(2,.131)),U,2)) LINE="->"_" 5" ;**384 ;**479 10 to 5
161 S DATA="Home #: "_LOCAL
162 S LINE=$$INSERT^VAFCMGU0(DATA,LINE,6)
163 S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
164 S @VALMAR@("IDX",VALMCNT,5)="" ;**479 10 to 5
165 I (DIFF) D
166 .S @VALMAR@("E2F",5,1)="2^.131" ;**479 10 to 5
167 .S @VALMAR@("E2G",5)=2 ;**479 10 to 5
168 I ('DIFF) D
169 .K @VALMAR@("E2F",5) ;**479 10 to 5
170 .K @VALMAR@("E2G",5) ;**479 10 to 5
171 W:(+$G(VAFCDOTS)) "."
172 S VALMCNT=VALMCNT+1
173 ;Work phone number
174 S LOCAL=$$LOCAL^VAFCMGB0(2,.132,IENS,TARGET)
175 S LOCAL=$E(LOCAL,1,30)
176 S REMOTE=$$REMOTE^VAFCMGB0(2,.132)
177 S REMOTE=$E(REMOTE,1,30)
178 S DIFF=$$DIFFCHK^VAFCMGB0(2,.132,IENS,TARGET)
179 S LINE=$S(DIFF:"**",1:" ")_" 6" ;**479 11 to 6
180 S:DIFF&($P($G(@VAFCARR@(2,.132)),U,2)) LINE="->"_" 6" ;**384 ;**479 11 to 6
181 S DATA="Work #: "_LOCAL
182 S LINE=$$INSERT^VAFCMGU0(DATA,LINE,6)
183 S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
184 S @VALMAR@("IDX",VALMCNT,6)="" ;**479 11 to 6
185 I (DIFF) D
186 .S @VALMAR@("E2F",6,1)="2^.132" ;**479 11 to 6
187 .S @VALMAR@("E2G",6)=2 ;**479 11 to 6
188 I ('DIFF) D
189 .K @VALMAR@("E2F",6) ;**479 11 to 6
190 .K @VALMAR@("E2G",6) ;**479 11 to 6
191 W:(+$G(VAFCDOTS)) "."
192 S VALMCNT=VALMCNT+1
193 ;Done - cleanup global locations used
194 K @TARGET,@MESSAGE
195 Q
Note: See TracBrowser for help on using the repository browser.