Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAFCMGB1

VAFCMGB1.m

Go to the documentation of this file. 
  1. VAFCMGB1 ;ALB/JRP-DEMOGRAPHIC MERGE SCREENS ;10/18/96
  1.  ;;5.3;Registration;**149,295,384,477,479,1015**;Aug 13, 1993;Build 21
  1.  ;
  1.  ;NOTE: This routine contains line tags used to build the display
  1.  ;      screen for a List Manager interface.  Refer to routine
  1.  ;      VAFCMGB for a description of input/output variables.
  1.  ;
  1. GROUP2 ;Line tag to build logical group number two
  1.  ;
  1.  ;Group two contains the following fields:
  1.  ;  .111, .1112, .112, .113, .114, .115, .117, .131, .132
  1.  ;
  1.  ;Column width is limited to 30 characters
  1.  ;
  1.  ;Declare variables
  1.  N IENS,TARGET,MESSAGE,LINE,DATA,LOCAL,REMOTE,DIFF
  1.  S TARGET="^TMP(""VAFC-MERGE-TO"","_$J_",""DATA"")"
  1.  S MESSAGE="^TMP(""VAFC-MERGE-TO"","_$J_",""MESSAGE"")"
  1.  ;Initialize global locations
  1.  K @TARGET,@MESSAGE
  1.  ;Set group index
  1.  S @VALMAR@("GRP",2)=VALMCNT
  1.  ;Get local data for patient
  1.  D GETDATA^VAFCMGU0(VAFCDFN,2,TARGET,MESSAGE)
  1.  ;Build display
  1.  S IENS=VAFCDFN_","
  1.  ;Address lines 1 to 3
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,.111,IENS,TARGET) ;**479
  1.  ;S LOCAL=$E(LOCAL,1,30)
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,.111)
  1.  ;S REMOTE=$E(REMOTE,1,30)
  1.  ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.111,IENS,TARGET)
  1.  ;S LINE=$$INSERT^VAFCMGU0(LOCAL,"",8)
  1.  ;S @VALMAR@(VALMCNT+1,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,.112,IENS,TARGET) ;**479
  1.  ;S LOCAL=$E(LOCAL,1,30)
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,.112)
  1.  ;S REMOTE=$E(REMOTE,1,30)
  1.  ;S:('DIFF) DIFF=$$DIFFCHK^VAFCMGB0(2,.112,IENS,TARGET)
  1.  ;S LINE=$$INSERT^VAFCMGU0(LOCAL,"",8)
  1.  ;S @VALMAR@(VALMCNT+2,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,.113,IENS,TARGET) ;**479
  1.  ;S LOCAL=$E(LOCAL,1,30)
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,.113)
  1.  ;S REMOTE=$E(REMOTE,1,30)
  1.  ;S:('DIFF) DIFF=$$DIFFCHK^VAFCMGB0(2,.113,IENS,TARGET)
  1.  ;S LINE=$$INSERT^VAFCMGU0(LOCAL,"",8)
  1.  ;S @VALMAR@(VALMCNT+3,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  ;S @VALMAR@(VALMCNT,0)=$S(DIFF:"**",1:"  ")_" 5 Address:"
  1.  ;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
  1.  ;S @VALMAR@("IDX",VALMCNT,5)=""
  1.  ;S @VALMAR@("IDX",VALMCNT+1,5)=""
  1.  ;S @VALMAR@("IDX",VALMCNT+2,5)=""
  1.  ;S @VALMAR@("IDX",VALMCNT+3,5)=""
  1.  ;I (DIFF) D
  1.  ;.S @VALMAR@("E2F",5,1)="2^.111"
  1.  ;.S @VALMAR@("E2F",5,2)="2^.112"
  1.  ;.S @VALMAR@("E2F",5,3)="2^.113"
  1.  ;.S @VALMAR@("E2G",5)=2
  1.  ;I ('DIFF) D
  1.  ;.K @VALMAR@("E2F",5)
  1.  ;.K @VALMAR@("E2G",5)
  1.  ;W:(+$G(VAFCDOTS)) "."
  1.  ;S VALMCNT=VALMCNT+4
  1.  ;City
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,.114,IENS,TARGET) ;**479
  1.  ;S LOCAL=$E(LOCAL,1,30)
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,.114)
  1.  ;S REMOTE=$E(REMOTE,1,30)
  1.  ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.114,IENS,TARGET)
  1.  ;S LINE=$S(DIFF:"**",1:"  ")_" 6"
  1.  ;S:DIFF&($P($G(@VAFCARR@(2,.114)),U,2)) LINE="->"_" 6" ;**295
  1.  ;S DATA="City: "_LOCAL
  1.  ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,8)
  1.  ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  ;S @VALMAR@("IDX",VALMCNT,6)=""
  1.  ;I (DIFF) D
  1.  ;.S @VALMAR@("E2F",6,1)="2^.114"
  1.  ;.S @VALMAR@("E2G",6)=2
  1.  ;I ('DIFF) D
  1.  ;.K @VALMAR@("E2F",6)
  1.  ;.K @VALMAR@("E2G",6)
  1.  ;W:(+$G(VAFCDOTS)) "."
  1.  ;S VALMCNT=VALMCNT+1
  1.  ;State
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,.115,IENS,TARGET) ;**479
  1.  ;S LOCAL=$E(LOCAL,1,30)
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,.115)
  1.  ;S REMOTE=$E(REMOTE,1,30)
  1.  ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.115,IENS,TARGET)
  1.  ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D  ;**477 for GMT
  1.  ;. S LINE=$S(DIFF:"**",1:"  ")_" 7"
  1.  ;. S:DIFF&($P($G(@VAFCARR@(2,.115)),U,2)) LINE="->"_" 7"
  1.  ;I '$D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D  ;**477 for GMT
  1.  ;. S LINE=$S(DIFF:"**",1:"  ")
  1.  ;. S:DIFF&($P($G(@VAFCARR@(2,.115)),U,2)) LINE="->"
  1.  ;S DATA="State: "_LOCAL
  1.  ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,7)
  1.  ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  ;S @VALMAR@("IDX",VALMCNT,7)=""
  1.  ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D  ;**477 for GMT
  1.  ;. I (DIFF) D
  1.  ;. .S @VALMAR@("E2F",7,1)="2^.115"
  1.  ;. .S @VALMAR@("E2G",7)=2
  1.  ;. I ('DIFF) D
  1.  ;. .K @VALMAR@("E2F",7)
  1.  ;. .K @VALMAR@("E2G",7)
  1.  ;W:(+$G(VAFCDOTS)) "."
  1.  ;S VALMCNT=VALMCNT+1
  1.  ;Zip+4
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,.1112,IENS,TARGET) ;**479
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,.1112)
  1.  ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.1112,IENS,TARGET)
  1.  ;S LINE=$S(DIFF:"**",1:"  ")_" 8"
  1.  ;S:DIFF&($P($G(@VAFCARR@(2,.1112)),U,2)) LINE="->"_" 8" ;**295
  1.  ;S DATA="Zip+4: "_LOCAL
  1.  ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,7)
  1.  ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  ;S @VALMAR@("IDX",VALMCNT,8)=""
  1.  ;I (DIFF) D
  1.  ;.S @VALMAR@("E2F",8,1)="2^.1112"
  1.  ;.S @VALMAR@("E2G",8)=2
  1.  ;I ('DIFF) D
  1.  ;.K @VALMAR@("E2F",8)
  1.  ;.K @VALMAR@("E2G",8)
  1.  ;W:(+$G(VAFCDOTS)) "."
  1.  ;S VALMCNT=VALMCNT+1
  1.  ;County
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,.117,IENS,TARGET) ;**479
  1.  ;S LOCAL=$E(LOCAL,1,30)
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,.117)
  1.  ;S REMOTE=$E(REMOTE,1,30)
  1.  ;S DIFF=$$DIFFCHK^VAFCMGB0(2,.117,IENS,TARGET)
  1.  ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D  ;**477 for GMT
  1.  ;. S LINE=$S(DIFF:"**",1:"  ")_" 9"
  1.  ;. S:DIFF&($P($G(@VAFCARR@(2,.117)),U,2)) LINE="->"_" 9"
  1.  ;I '$D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D  ;**477 for GMT
  1.  ;. S LINE=$S(DIFF:"**",1:"  ")
  1.  ;. S:DIFF&($P($G(@VAFCARR@(2,.117)),U,2)) LINE="->"
  1.  ;S DATA="County: "_LOCAL
  1.  ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,6)
  1.  ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  ;S @VALMAR@("IDX",VALMCNT,9)=""
  1.  ;I $D(^XUSEC("EAS GMT COUNTY EDIT",+DUZ)) D  ;**477 for GMT
  1.  ;. I (DIFF) D
  1.  ;. .S @VALMAR@("E2F",9,1)="2^.117"
  1.  ;. .S @VALMAR@("E2G",9)=2
  1.  ;. I ('DIFF) D
  1.  ;. .K @VALMAR@("E2F",9)
  1.  ;. .K @VALMAR@("E2G",9)
  1.  ;W:(+$G(VAFCDOTS)) "."
  1.  ;S VALMCNT=VALMCNT+1
  1.  ;Home phone number
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.131,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,30)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.131)
  1.  S REMOTE=$E(REMOTE,1,30)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.131,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_" 5" ;**479 10 to 5
  1.  S:DIFF&($P($G(@VAFCARR@(2,.131)),U,2)) LINE="->"_" 5" ;**384 ;**479 10 to 5
  1.  S DATA="Home #: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,6)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  S @VALMAR@("IDX",VALMCNT,5)="" ;**479 10 to 5
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",5,1)="2^.131" ;**479 10 to 5
  1.  .S @VALMAR@("E2G",5)=2 ;**479 10 to 5
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",5) ;**479 10 to 5
  1.  .K @VALMAR@("E2G",5) ;**479 10 to 5
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Work phone number
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.132,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,30)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.132)
  1.  S REMOTE=$E(REMOTE,1,30)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.132,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_" 6" ;**479 11 to 6
  1.  S:DIFF&($P($G(@VAFCARR@(2,.132)),U,2)) LINE="->"_" 6" ;**384 ;**479 11 to 6
  1.  S DATA="Work #: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,6)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,48)
  1.  S @VALMAR@("IDX",VALMCNT,6)="" ;**479 11 to 6
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",6,1)="2^.132" ;**479 11 to 6
  1.  .S @VALMAR@("E2G",6)=2 ;**479 11 to 6
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",6) ;**479 11 to 6
  1.  .K @VALMAR@("E2G",6) ;**479 11 to 6
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Done - cleanup global locations used
  1.  K @TARGET,@MESSAGE
  1.  Q