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

VAFCMGB3.m

Go to the documentation of this file. 
  1. VAFCMGB3 ;ALB/JRP,LTL,PTD-DEMOGRAPHIC MERGE SCREENS ;07/10/98
  1.  ;;5.3;Registration;**149,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. GROUP4 ;Line tag to build logical group number four
  1.  ;
  1.  ;Group group contains the following fields
  1.  ;  .301, .302, .323, 391, 1901
  1.  ;
  1.  ;Column width is limited to 29 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",4)=VALMCNT
  1.  ;Get local data for patient
  1.  D GETDATA^VAFCMGU0(VAFCDFN,4,TARGET,MESSAGE)
  1.  ;Build display
  1.  S IENS=VAFCDFN_","
  1.  ;Patient Type
  1.  ;S LOCAL=$$LOCAL^VAFCMGB0(2,391,IENS,TARGET) ;**477
  1.  ;S LOCAL=$E(LOCAL,1,29)
  1.  ;S REMOTE=$$REMOTE^VAFCMGB0(2,391)
  1.  ;S REMOTE=$E(REMOTE,1,29)
  1.  ;S DIFF=$$DIFFCHK^VAFCMGB0(2,391,IENS,TARGET)
  1.  ;S LINE=$S(DIFF:"**",1:"  ")
  1.  ;S:DIFF&($P($G(@VAFCARR@(2,391)),U,2)) LINE="->"
  1.  ;S DATA="Type: "_LOCAL
  1.  ;S LINE=$$INSERT^VAFCMGU0(DATA,LINE,11)
  1.  ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  ;S @VALMAR@("IDX",VALMCNT,18)=""
  1.  ;I (DIFF) D
  1.  ;.S @VALMAR@("E2F",19,1)="2^391"
  1.  ;.S @VALMAR@("E2G",19)=4
  1.  ;I ('DIFF) D
  1.  ;.K @VALMAR@("E2F",19)
  1.  ;.K @VALMAR@("E2G",19)
  1.  ;W:(+$G(VAFCDOTS)) "."
  1.  ;S VALMCNT=VALMCNT+1
  1.  ;Veteran
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,1901,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,29)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,1901)
  1.  S REMOTE=$E(REMOTE,1,29)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,1901,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")
  1.  S:DIFF&($P($G(@VAFCARR@(2,1901)),U,2)) LINE="->"
  1.  S DATA="Veteran: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,8)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S (@VALMAR@("IDX",VALMCNT,18),@VALMAR@("IDX",VALMCNT+1,18))=""
  1.  ;I (DIFF) D
  1.  ;.S @VALMAR@("E2F",20,1)="2^1901"
  1.  ;.S @VALMAR@("E2G",20)=4
  1.  ;I ('DIFF) D
  1.  ;.K @VALMAR@("E2F",20)
  1.  ;.K @VALMAR@("E2G",20)
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1 ;**479 changed +2 to +1
  1.  ;Service connected and percentage
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.301,IENS,TARGET)
  1.  S LOCAL("SC")=$E(LOCAL,1,29)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.301)
  1.  S REMOTE("SC")=$E(REMOTE,1,29)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.301,IENS,TARGET)
  1.  S LOCAL("SC%")=$$LOCAL^VAFCMGB0(2,.302,IENS,TARGET)
  1.  S REMOTE("SC%")=$$REMOTE^VAFCMGB0(2,.302)
  1.  S:('DIFF) DIFF=$$DIFFCHK^VAFCMGB0(2,.302,IENS,TARGET)
  1.  S:((LOCAL("SC%")="<No Data Found>")&(LOCAL("SC")="NO")) LOCAL("SC%")="N/A"
  1.  S:((REMOTE("SC%")="<No Data Found>")&(REMOTE("SC%")="NO")) REMOTE("SC%")="N/A"
  1.  S REMOTE("SC")=REMOTE("SC")_"  "_REMOTE("SC%")
  1.  S LINE=$S(DIFF:"**",1:"  ")
  1.  S:DIFF&($P($G(@VAFCARR@(2,.301)),U,2)) LINE="->"
  1.  S DATA="SC: "_LOCAL("SC")_"  SC%: "_LOCAL("SC%")
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,13)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE("SC"),LINE,50)
  1.  ;S DATA="SC %: "_LOCAL("SC%")
  1.  ;S LINE=$$INSERT^VAFCMGU0(DATA,"",11)
  1.  ;S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE("SC%"),LINE,54)
  1.  S @VALMAR@("IDX",VALMCNT,18)=""
  1.  ;S @VALMAR@("IDX",VALMCNT+1,21)=""
  1.  ;S @VALMAR@("IDX",VALMCNT+2,21)=""
  1.  ;I (DIFF) D
  1.  ;.S @VALMAR@("E2F",21,1)="2^.301"
  1.  ;.S @VALMAR@("E2F",21,2)="2^.302"
  1.  ;.S @VALMAR@("E2G",21)=4
  1.  ;I ('DIFF) D
  1.  ;.K @VALMAR@("E2F",21)
  1.  ;.K @VALMAR@("E2G",21)
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Period of service
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.323,IENS,TARGET)
  1.  S LOCAL=$E(LOCAL,1,29)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.323)
  1.  S REMOTE=$E(REMOTE,1,29)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.323,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")
  1.  S:DIFF&($P($G(@VAFCARR@(2,.323)),U,2)) LINE="->"
  1.  S DATA="POS: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,12)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,18)=""
  1.  ;I (DIFF) D
  1.  ;.S @VALMAR@("E2F",22,1)="2^.323"
  1.  ;.S @VALMAR@("E2G",22)=4
  1.  ;I ('DIFF) D
  1.  ;.K @VALMAR@("E2F",22)
  1.  ;.K @VALMAR@("E2G",22)
  1.  W:(+$G(VAFCDOTS)) "."
  1.  S VALMCNT=VALMCNT+1
  1.  ;Primary Eligibility Code
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.361,IENS,TARGET)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.361)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.361,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")
  1.  S:DIFF&($P($G(@VAFCARR@(2,.361)),U,2)) LINE="->"
  1.  S DATA="Prim Elig Code: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,3)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,18)=""
  1.  S VALMCNT=VALMCNT+1
  1.  ;Date of eligibility status
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.3612,IENS,TARGET)
  1.  S REMOTE=$$FMTE^XLFDT($$REMOTE^VAFCMGB0(2,.3612),1)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.3612,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")
  1.  S:DIFF&($P($G(@VAFCARR@(2,.3612)),U,2)) LINE="->"
  1.  S DATA="Date Verified: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,3)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,18)=""
  1.  S VALMCNT=VALMCNT+1
  1.  ;Verification method
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.3615,IENS,TARGET)
  1.  S REMOTE=$$REMOTE^VAFCMGB0(2,.3615)
  1.  S DIFF=$$DIFFCHK^VAFCMGB0(2,.3615,IENS,TARGET)
  1.  S LINE=$S(DIFF:"**",1:"  ")
  1.  S:DIFF&($P($G(@VAFCARR@(2,.3615)),U,2)) LINE="->"
  1.  S DATA="Verification method: "
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,3)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0("",LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,18)=""
  1.  S VALMCNT=VALMCNT+1
  1.  S LINE="",LINE=$$INSERT^VAFCMGU0(LOCAL,LINE,3)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,18)=""
  1.  S VALMCNT=VALMCNT+1
  1.  ;Who verified locally (no remote data sent)
  1.  S LOCAL=$$LOCAL^VAFCMGB0(2,.3616,IENS,TARGET)
  1.  S REMOTE="<Not Available>"
  1.  S LINE="  "
  1.  S DATA="Who verified: "_LOCAL
  1.  S LINE=$$INSERT^VAFCMGU0(DATA,LINE,3)
  1.  S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  S @VALMAR@("IDX",VALMCNT,18)=""
  1.  S VALMCNT=VALMCNT+1
  1.  ;If PATIENT ELIGIBILITIES multiple contains EMPLOYEE, display local data (no remote data sent).
  1.  S LOCAL=$O(^DIC(8,"B","EMPLOYEE",0)) I LOCAL D
  1.  .Q:'$D(^DPT(VAFCDFN,"E",LOCAL,0))
  1.  .;Else patient is an employee
  1.  .S REMOTE="<Not Available>",LINE="  ",DATA="Other Eligibility: EMPLOYEE"
  1.  .S LINE=$$INSERT^VAFCMGU0(DATA,LINE,3)
  1.  .S @VALMAR@(VALMCNT,0)=$$INSERT^VAFCMGU0(REMOTE,LINE,50)
  1.  .S @VALMAR@("IDX",VALMCNT,18)=""
  1.  ;Done - cleanup global locations used
  1.  K @TARGET,@MESSAGE
  1.  Q