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

VAFCMGB2.m

Go to the documentation of this file. 
  1. VAFCMGB2 ;ALB/JRP-DEMOGRAPHIC MERGE SCREENS ;28-OCT-96
  1.  ;;5.3;Registration;**149,384,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. GROUP3 ;Line tag to build logical group number three
  1.  ;
  1.  ;Group three contains the following fields:
  1.  ;  .02, .05, .08, .211, .219, .2403, .31115
  1.  ;
  1.  ;Column width is limited to 28 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",3)=VALMCNT
  1.  ;Get local data for patient
  1.  D GETDATA^VAFCMGU0(VAFCDFN,3,TARGET,MESSAGE)
  1.  ;Build display
  1.  S IENS=VAFCDFN_","
  1.  ;Sex
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.02,IENS,TARGET)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.02)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.02,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_" 7" ;**479 12 to 7
  1.  S:DIFF&($P($G(@VAFCARR@(2,.02)),U,2)) LINE="->"_" 7" ;**479 12 to 7
  1.  S DATA="Sex: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,15)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,7)="" ;**479 12 to 7
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",7,1)="2^.02" ;**479 12 to 7
  1.  .S @VALMAR@("E2G",7)=3 ;**479 12 to 7
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",7) ;**479 12 to 7
  1.  .K @VALMAR@("E2G",7) ;**479 12 to 7
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Marital status
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.05,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,28)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.05)
  1.  S REMOTE=$E(REMOTE,1,28)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.05,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_" 8" ;**479 13 to 8
  1.  S:DIFF&($P($G(@VAFCARR@(2,.05)),U,2)) LINE="->"_" 8" ;**479 13 to 8
  1.  S DATA="Marital: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,11)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,8)="" ;**479 13 to 8
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",8,1)="2^.05" ;**479 13 to 8
  1.  .S @VALMAR@("E2G",8)=3 ;**479 13 to 8
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",8) ;**479 13 to 8
  1.  .K @VALMAR@("E2G",8) ;**479 13 to 8
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Religion
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.08,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,28)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.08)
  1.  S REMOTE=$E(REMOTE,1,28)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.08,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_" 9" ;**479 14 to 9
  1.  S:DIFF&($P($G(@VAFCARR@(2,.08)),U,2)) LINE="->"_" 9" ;**479 14 to 9
  1.  S DATA="Religion: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,10)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,9)="" ;**479 14 to 9
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",9,1)="2^.08" ;**479 14 to 9
  1.  .S @VALMAR@("E2G",9)=3 ;**479 14 to 9
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",9) ;**479 14 to 9
  1.  .K @VALMAR@("E2G",9) ;**479 14 to 9
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Mother's maiden name
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.2403,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,28)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.2403)
  1.  S REMOTE=$E(REMOTE,1,28)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.2403,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_"10" ;**479 15 to 10
  1.  S:DIFF&($P($G(@VAFCARR@(2,.2403)),U,2)) LINE="->"_"10" ;**479 15 to 10
  1.  S DATA="Mom's Maiden: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,6)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,10)="" ;**479 15 to 10
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",10,1)="2^.2403" ;**479 15 to 10
  1.  .S @VALMAR@("E2G",10)=3 ;**479 15 to 10
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",10) ;**479 15 to 10
  1.  .K @VALMAR@("E2G",10) ;**479 15 to 10
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Employment status
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.31115,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,28)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.31115)
  1.  S REMOTE=$E(REMOTE,1,28)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.31115,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_"11" ;**479 16 to 11
  1.  S:DIFF&($P($G(@VAFCARR@(2,.31115)),U,2)) LINE="->"_"11" ;**479 16 to 11
  1.  S DATA="Employ Stat: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,7)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,11)="" ;**479 16 to 11
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",11,1)="2^.31115" ;**479 16 to 11
  1.  .S @VALMAR@("E2G",11)=3 ;**479 16 to 11
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",11) ;**479 16 to 11
  1.  .K @VALMAR@("E2G",11) ;**479 16 to 11
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Next of kin's name
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.211,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,28)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.211)
  1.  S REMOTE=$E(REMOTE,1,28)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.211,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_"12" ;**479 17 to 12
  1.  S:DIFF&($P($G(@VAFCARR@(2,.211)),U,2)) LINE="->"_"12" ;**384 ;**479 17 to 12
  1.  S DATA="NOK Name: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,10)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,12)="" ;**479 17 to 12
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",12,1)="2^.211" ;**479 17 to 12
  1.  .S @VALMAR@("E2G",12)=3 ;**479 17 to 12
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",12) ;**479 17 to 12
  1.  .K @VALMAR@("E2G",12) ;**479 17 to 12
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Next of kin's phone number
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.219,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,28)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.219)
  1.  S REMOTE=$E(REMOTE,1,28)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.219,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")_"13" ;**479 18 to 13
  1.  S:DIFF&($P($G(@VAFCARR@(2,.219)),U,2)) LINE="->"_"13" ;**384 ;**479 18 to 13
  1.  S DATA="NOK Phone #: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,7)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,13)="" ;**479 18 to 13
  1.  I (DIFF) D
  1.  .S @VALMAR@("E2F",13,1)="2^.219" ;**479 18 to 13
  1.  .S @VALMAR@("E2G",13)=3 ;**479 18 to 13
  1.  I ('DIFF) D
  1.  .K @VALMAR@("E2F",13) ;**479 18 to 13
  1.  .K @VALMAR@("E2G",13) ;**479 18 to 13
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Done
  1.  K @TARGET,@MESSAGE
  1.  Q