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

VAFCTR.m

Go to the documentation of this file. 
  1. VAFCTR ;BIR/CMC,ERC,PTD-Monitoring fields for MPI/PD via DG field monitoring ; 1/31/17 11:04am
  1.  ;;5.3;Registration;**575,648,653,712,876,902,926,937,944,967,1059,1071**;Aug 13, 1993;Build 4
  1.  Q  ; quit if called from the top
  1.  ;
  1. MPIPD ; protocol entry point for monitoring fields via DG field monitoring
  1.  ; Currently monitoring for fields:
  1.  ; 1 ALIAS - .01 of the multiple
  1.  ; 2 RACE INFORMATION - .01 of the multiple
  1.  ; 6 ETHNICITY INFORMATION - .01 of the multiple
  1.  ; 994 MULTIPLE BIRTH INDICATOR
  1.  ; .525 POW STAUTS INDICATED?
  1.  ; .0906 PSEUDO SSN REASON
  1.  ; .121 BAD ADDRESS INDICATOR
  1.  ; .133 EMAIL ADDRESS
  1.  ; .134 PHONE NUMBER [CELLULAR]
  1.  ; .024 SELF IDENTIFIED GENDER **876
  1.  ; 391 TYPE ;**876
  1.  ; 1901 VETERAN Y/N? **876
  1.  ; .323 PERIOD OF SERVICE **876
  1.  ; .352 DEATH ENTERED BY **902 MVI_4735 (jfw)
  1.  ; .353 SOURCE OF NOTIFICATION **902 MVI_4735 (jfw)
  1.  ; .354 DATE OF DEATH LAST UPDATED **902 MVI_4735 (jfw)
  1.  ; .355 LAST EDITED BY **902 MVI_4735 (jfw)
  1.  ; .357 SUPPORTING DOCUMENT TYPE **926 STORY 323008 (jfw)
  1.  ; .2405 PREFERRED NAME **937 STORY 445457 [Sub-Story 455414] (jfw)
  1.  ; .0931 PLACE OF BIRTH COUNTRY  **944 STORY 504382 [Sub-Story 513042] (jfw)
  1.  ; .0932 PLACE OF BIRTH PROVINCE **944 STORY 504382 [Sub-Story 513042] (jfw)
  1.  ;
  1.  ;**967 STORY #783361 Sensitivity (jfw)
  1.  ; DG SECURITY LOG File #38.1 monitored field:
  1.  ; Note: .01 is DINUMED to the PATIENT File #2
  1.  ;   2 SECURITY LEVEL
  1.  ;
  1.  ;**1059 STORY VAMPI-11114, VAMPI-11118, VAMPI-11120, VAMPI-11121 (jfw)
  1.  ;   .025   SEXUAL ORIENTATION - .01 of the multiple
  1.  ;**1071 STORY VAMPI-13755 (jfw) - Additional SO Fields in multiple
  1.  ;          .02 STATUS
  1.  ;          .03 DATE CREATED
  1.  ;          .04 DATE LAST UPDATED          
  1.  ;   .2406  PRONOUN            - .01 of the multiple
  1.  ;   .0251  SEXUAL ORIENTATION DESCRIPTION
  1.  ;   .1151  RESIDENTIAL ADDRESS [LINE 1]
  1.  ;   .1152  RESIDENTIAL ADDRESS [LINE 2]
  1.  ;   .1153  RESIDENTIAL ADDRESS [LINE 3]
  1.  ;   .1154  RESIDENTIAL CITY
  1.  ;   .1155  RESIDENTIAL STATE
  1.  ;   .1156  RESIDENTIAL ZIP+4
  1.  ;   .11571 RESIDENTIAL PROVINCE
  1.  ;   .11572 RESIDENTIAL POSTAL CODE
  1.  ;   .11573 RESIDENTIAL COUNTRY
  1.  ;   .24061 PRONOUN DESCRIPTION
  1.  ;   991.11 INDIVIDUAL TAX ID
  1.  ;
  1.  N MVIRSLT
  1.  I $G(DGFILE)'=2&($G(DGFILE)'=2.01)&($G(DGFILE)'=2.02)&($G(DGFILE)'=2.06)&($G(DGFILE)'=38.1)&($G(DGFILE)'=2.025)&($G(DGFILE)'=2.2406) Q
  1.  S DGFIELD=$G(DGFIELD)
  1.  ;I DGFIELD'=.01&(DGFIELD'=994)&(DGFIELD'=.525)&(DGFIELD'=.0906)&(DGFIELD'=.121)&(DGFIELD'=.133)&(DGFIELD'=.134)&(DGFIELD'=391)&(DGFIELD'=1901)&(DGFIELD'=.323)&(DGFIELD'=.024) Q
  1.  ;**902 MVI_4735 (jfw) Add 4 new fields to list (Break apart long If line above)
  1.  S MVIRSLT=(DGFIELD'=.01)&(DGFIELD'=.02)&(DGFIELD'=.03)&(DGFIELD'=.04)&(DGFIELD'=994)&(DGFIELD'=.525)
  1.  S MVIRSLT=MVIRSLT&(DGFIELD'=.0906)&(DGFIELD'=.121)&(DGFIELD'=.133)
  1.  S MVIRSLT=MVIRSLT&(DGFIELD'=.134)&(DGFIELD'=391)&(DGFIELD'=1901)&(DGFIELD'=.323)&(DGFIELD'=.024)
  1.  S MVIRSLT=MVIRSLT&(DGFIELD'=.352)&(DGFIELD'=.353)&(DGFIELD'=.354)&(DGFIELD'=.355)&(DGFIELD'=.357)
  1.  S MVIRSLT=MVIRSLT&(DGFIELD'=.2405)&(DGFIELD'=.0931)&(DGFIELD'=.0932)&(DGFIELD'=2)&(DGFIELD'=.0251)
  1.  S MVIRSLT=MVIRSLT&(DGFIELD'=.1151)&(DGFIELD'=.1152)&(DGFIELD'=.1153)&(DGFIELD'=.1154)&(DGFIELD'=.1155)
  1.  S MVIRSLT=MVIRSLT&(DGFIELD'=.1156)&(DGFIELD'=.11571)&(DGFIELD'=.11572)&(DGFIELD'=.11573)&(DGFIELD'=.24061)
  1.  S MVIRSLT=MVIRSLT&(DGFIELD'=991.11)
  1.  Q:(MVIRSLT)
  1.  I $T(AVAFC^VAFCDD01)="" Q
  1.  ;The fields below are not multiples
  1.  ;I (DGFIELD=994)!(DGFIELD=.525)!(DGFIELD=.0906)!(DGFIELD=.121)!(DGFIELD=.133)!(DGFIELD=.134)!(DGFIELD=.024)!(DGFIELD=391)!(DGFIELD=1901)!(DGFIELD=.323) S VAFCF=DGFIELD_";" D AVAFC^VAFCDD01(DGDA)
  1.  ;**902 MVI_4735 (jfw) Add 4 new fields to list (Break apart long If line above)
  1.  S MVIRSLT=(DGFIELD=994)!(DGFIELD=.525)!(DGFIELD=.0906)!(DGFIELD=.121)!(DGFIELD=.133)
  1.  S MVIRSLT=MVIRSLT!(DGFIELD=.134)!(DGFIELD=.024)!(DGFIELD=391)!(DGFIELD=1901)!(DGFIELD=.323)
  1.  S MVIRSLT=MVIRSLT!(DGFIELD=.352)!(DGFIELD=.353)!(DGFIELD=.354)!(DGFIELD=.355)!(DGFIELD=.357)
  1.  S MVIRSLT=MVIRSLT!(DGFIELD=.2405)!(DGFIELD=.0931)!(DGFIELD=.0932)!(DGFIELD=.0251)!(DGFIELD=.1151)
  1.  S MVIRSLT=MVIRSLT!(DGFIELD=.1152)!(DGFIELD=.1153)!(DGFIELD=.1154)!(DGFIELD=.1155)!(DGFIELD=.1156)
  1.  S MVIRSLT=MVIRSLT!(DGFIELD=.11571)!(DGFIELD=.11572)!(DGFIELD=.11573)!(DGFIELD=.24061)!(DGFIELD=991.11)
  1.  I MVIRSLT S VAFCF=DGFIELD_";" D AVAFC^VAFCDD01(DGDA)
  1.  ;The fields below ARE multiples
  1.  I DGFILE=2.01 S VAFCF="1;" D AVAFC^VAFCDD01(DGDA(1)) ;ALIAS
  1.  I DGFILE=2.02 S VAFCF="2.02,.01;" D AVAFC^VAFCDD01(DGDA(1)) ;RACE INFORMATION
  1.  I DGFILE=2.06 S VAFCF="2.06,.01;" D AVAFC^VAFCDD01(DGDA(1)) ;ETHNICITY INFORMATION
  1.  I DGFILE=2.025 S VAFCF="2.025,"_DGFIELD_";" D AVAFC^VAFCDD01(DGDA(1)) ;SEXUAL ORIENTATION
  1.  I DGFILE=2.2406 S VAFCF="2.2406,.01;" D AVAFC^VAFCDD01(DGDA(1)) ;PRONOUN
  1.  ;Process field for different File **967 (jfw)
  1.  I DGFILE=38.1 S VAFCF="38.1,2;" D AVAFC^VAFCDD01(DGDA)  ;Sensitivity Info 
  1.  Q