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