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

DG53754P.m

Go to the documentation of this file.
DG53754P ;ALB/TDM - Patch DG*5.3*754 Install Utility Routine ; 7/22/10 10:58am
 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
 Q
EP ;Entry point - Driver
 N ABORT,FILE,I,ELEMNT,EXIST,DGDATA,DATA,SUB,J,VALUE,FILEFLG
 ;
 D START^DG53754A    ;Run field definition clean-up per EVC_CR9102
 ;
 S (ABORT,FILEFLG)=0,FILE=301.92
 F I=1:1 S ELEMNT=$P($T(TEXT+I),";;",2) Q:ELEMNT="QUIT"!(ABORT)  D
 . S EXIST=0
 . K DGDATA S (DATA,SUB)="" F J=1:1:$L(ELEMNT,";") S DATA=$P(ELEMNT,";",J) D  Q:EXIST
 . . S SUB=$P(DATA,"~",1),VALUE=$P(DATA,"~",2),DGDATA(SUB)=VALUE
 . . I SUB=.01 S EXIST=$$FIND1^DIC(FILE,,,DGDATA(.01))
 . I 'EXIST D
 . . S FILEFLG=$$ADD^DGENDBS(FILE,,.DGDATA)
 . . I FILEFLG D MES^XPDUTL("Added - "_$G(DGDATA(.01)))
 . . I 'FILEFLG D
 . . . S ABORT=1,XPDABORT=2
 . . . D BMES^XPDUTL("Install process could not add an entry in file for "_$G(DGDATA(.01)))
 . . . D BMES^XPDUTL("                        <<<< INSTALLATION ABORTED >>>>")
 I 'ABORT D EP^DG53754C  ;Continuation due to routine size limit
 I 'ABORT D BMES^XPDUTL("<<<< Post Install Successful >>>>")
 Q
 ;
TEXT ;;FIELD#~VALUE;FIELD#~VALUE;FIELD#~VALUE.....
 ;;.01~MOTHER'S MAIDEN NAME;.02~PID06;.03~1;.04~2;.05~.2403;.08~0;10~S DR=.2403 D LOOK^IVMPREC9;20~S DR=.2403 D LOOK^IVMPREC9
 ;;.01~RACE;.02~PID10;.03~1;.04~2;.05~2;.08~0;10~S Y=$P(VADM(12),"^");20~S Y=$P(VADM(12),"^",2)
 ;;.01~MARITAL STATUS;.02~PID16;.03~1;.04~2;.05~.05;.06~1;.08~0;10~S Y=$P(VADM(10),"^");20~S Y=$P(VADM(10),"^",2)
 ;;.01~RELIGION;.02~PID17;.03~1;.04~2;.05~.08;.06~1;.08~0;10~S Y=$P(VADM(9),"^");20~S Y=$P(VADM(9),"^",2)
 ;;.01~ETHNICITY;.02~PID22;.03~1;.04~2;.05~6;.06~1;.08~0;10~S Y=$P($G(VADM(11,1)),"^");20~S Y=$P($G(VADM(11,1)),"^",2)
 ;;.01~SPINAL CORD INJURY;.02~ZPD30;.03~0;.04~2;.05~57.4;.08~0;10~S DR=57.4 D LOOK^IVMPREC9;20~S DR=57.4,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~PSEUDO SSN REASON;.02~ZPD34;.03~1;.04~2;.05~.0906;.08~0;10~S DR=.0906 D LOOK^IVMPREC9;20~S DR=.0906,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS ACTIVE;.02~ZTA02;.03~1;.04~2;.05~.12105;.08~0;10~S DR=.12105 D LOOK^IVMPREC9;20~S DR=.12105 D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS BEGIN DATE;.02~ZTA03;.03~1;.04~2;.05~.1217;.06~1;.08~0;10~S DR=.1217 D LOOK^IVMPREC9;20~S DR=.1217,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS END DATE;.02~ZTA04;.03~1;.04~2;.05~.1218;.06~1;.08~0;10~S DR=.1218 D LOOK^IVMPREC9;20~S DR=.1218,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS [LINE] 1;.02~ZTA051;.03~1;.04~2;.05~.1211;.08~0;10~S DR=.1211 D LOOK^IVMPREC9;20~S DR=.1211 D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS [LINE] 2;.02~ZTA052;.03~1;.04~2;.05~.1212;.08~0;10~S DR=.1212 D LOOK^IVMPREC9;20~S DR=.1212 D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS [LINE] 3;.02~ZTA058;.03~1;.04~2;.05~.1213;.08~0;10~S DR=.1213 D LOOK^IVMPREC9;20~S DR=.1213 D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS CITY;.02~ZTA053;.03~1;.04~2;.05~.1214;.08~0;10~S DR=.1214 D LOOK^IVMPREC9;20~S DR=.1214 D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS STATE;.02~ZTA054;.03~1;.04~2;.05~.1215;.06~1;.08~0;10~S DR=.1215 D LOOK^IVMPREC9;20~S DR=.1215,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS ZIP;.02~ZTA055;.03~1;.04~2;.05~.1216;.08~0;10~S DR=.1216 D LOOK^IVMPREC9;S DR=.1216 D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS COUNTRY;.02~ZTA056;.03~1;.04~2;.05~.1223;.06~1;.08~0;10~S DR=.1223 D LOOK^IVMPREC9;S DR=.1223,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS COUNTY;.02~ZTA059;.03~1;.04~2;.05~.12111;.06~1;.08~0;10~S DR=.12111 D LOOK^IVMPREC9;S DR=.12111 D LOOK^IVMPREC9
 ;;.01~TEMPORARY ADDRESS PROVINCE;.02~ZTA054F;.03~1;.04~2;.05~.1221;.08~0;10~S DR=.1221 D LOOK^IVMPREC9;20~S DR=.1221 D LOOK^IVMPREC9"
 ;;.01~TEMPORARY ADDRESS POSTAL CODE;.02~ZTA055F;.03~1;.04~2;.05~.1222;.08~0;10~S DR=.1222 D LOOK^IVMPREC9;20~S DR=.1222 D LOOK^IVMPREC9"
 ;;.01~TEMPORARY ADDRESS TELEPHONE;.02~ZTA07;.03~1;.04~2;.05~.1219;.08~0;10~S DR=.1219 D LOOK^IVMPREC9;20~S DR=.1219 D LOOK^IVMPREC9
 ;;.01~TEMP ADDR LAST UPDATED DT/TM;.02~ZTA08;.03~1;.04~2;.05~.12113;.06~1;.08~0;10~S DR=.12113 D LOOK^IVMPREC9;20~S DR=.12113,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~TEMP ADDR LAST UPDATED SITE;.02~ZTA09;.03~1;.04~2;.05~.12114;.06~1;.08~0;10~S DR=.12114 D LOOK^IVMPREC9;20~S DR=.12114 D LOOK^IVMPREC9
 ;;.01~E-NAME;.02~ZCT03E1;.03~1;.04~2;.05~.331;.08~0;10~S DR=.331 D LOOK^IVMPREC9;20~S DR=.331 D LOOK^IVMPREC9
 ;;.01~E-RELATIONSHIP TO PATIENT;.02~ZCT04E1;.03~1;.04~2;.05~.332;.08~0;10~S DR=.332 D LOOK^IVMPREC9;20~S DR=.332 D LOOK^IVMPREC9
 ;;.01~E-STREET ADDRESS [LINE 1];.02~ZCT051E1;.03~1;.04~2;.05~.333;.08~0;10~S DR=.333 D LOOK^IVMPREC9;20~S DR=.333 D LOOK^IVMPREC9
 ;;.01~E-STREET ADDRESS [LINE 2];.02~ZCT052E1;.03~1;.04~2;.05~.334;.08~0;10~S DR=.334 D LOOK^IVMPREC9;20~S DR=.334 D LOOK^IVMPREC9
 ;;.01~E-CITY;.02~ZCT053E1;.03~1;.04~2;.05~.336;.08~0;10~S DR=.336 D LOOK^IVMPREC9;20~S DR=.336 D LOOK^IVMPREC9
 ;;.01~E-STATE;.02~ZCT054E1;.03~1;.04~2;.05~.337;.06~1;.08~0;10~S DR=.337 D LOOK^IVMPREC9;20~S DR=.337,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~E-ZIP CODE;.02~ZCT055E1;.03~1;.04~2;.05~.338;.08~0;10~S DR=.338 D LOOK^IVMPREC9;20~S DR=.338 D LOOK^IVMPREC9
 ;;.01~E-PHONE NUMBER;.02~ZCT06E1;.03~1;.04~2;.05~.339;.08~0;10~S DR=.339 D LOOK^IVMPREC9;20~S DR=.339 D LOOK^IVMPREC9
 ;;.01~E-WORK PHONE NUMBER;.02~ZCT07E1;.03~1;.04~2;.05~.33011;.08~0;10~S DR=.33011 D LOOK^IVMPREC9;20~S DR=.33011 D LOOK^IVMPREC9
 ;;.01~E-CONTACT CHANGE DATE/TIME;.02~ZCT10E1;.03~1;.04~2;.05~.33012;.06~1;.08~0;10~S DR=.33012 D LOOK^IVMPREC9;20~S DR=.33012,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~E2-NAME OF SECONDARY CONTACT;.02~ZCT03E2;.03~1;.04~2;.05~.3311;.08~0;10~S DR=.3311 D LOOK^IVMPREC9;20~S DR=.3311 D LOOK^IVMPREC9
 ;;.01~E2-RELATIONSHIP TO PATIENT;.02~ZCT04E2;.03~1;.04~2;.05~.3312;.08~0;10~S DR=.3312 D LOOK^IVMPREC9;20~S DR=.3312 D LOOK^IVMPREC9
 ;;.01~E2-STREET ADDRESS [LINE 1];.02~ZCT051E2;.03~1;.04~2;.05~.3313;.08~0;10~S DR=.3313 D LOOK^IVMPREC9;20~S DR=.3313 D LOOK^IVMPREC9
 ;;.01~E2-STREET ADDRESS [LINE 2];.02~ZCT052E2;.03~1;.04~2;.05~.3314;.08~0;10~S DR=.3314 D LOOK^IVMPREC9;20~S DR=.3314 D LOOK^IVMPREC9
 ;;.01~E2-CITY;.02~ZCT053E2;.03~1;.04~2;.05~.3316;.08~0;10~S DR=.3316 D LOOK^IVMPREC9;20~S DR=.3316 D LOOK^IVMPREC9
 ;;.01~E2-STATE;.02~ZCT054E2;.03~1;.04~2;.05~.3317;.06~1;.08~0;10~S DR=.3317 D LOOK^IVMPREC9;20~S DR=.3317,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~E2-ZIP CODE;.02~ZCT055E2;.03~1;.04~2;.05~.3318;.08~0;10~S DR=.3318 D LOOK^IVMPREC9;20~S DR=.3318 D LOOK^IVMPREC9
 ;;.01~E2-PHONE NUMBER;.02~ZCT06E2;.03~1;.04~2;.05~.3319;.08~0;10~S DR=.3319 D LOOK^IVMPREC9;20~S DR=.3319 D LOOK^IVMPREC9
 ;;.01~E2-WORK PHONE NUMBER;.02~ZCT07E2;.03~1;.04~2;.05~.331011;.08~0;10~S DR=.331011 D LOOK^IVMPREC9;20~S DR=.331011 D LOOK^IVMPREC9
 ;;.01~E2-CONTACT CHANGE DATE/TIME;.02~ZCT10E2;.03~1;.04~2;.05~.33112;.06~1;.08~0;10~S DR=.33112 D LOOK^IVMPREC9;20~S DR=.33112,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~K-NAME OF PRIMARY NOK;.02~ZCT03K1;.03~1;.04~2;.05~.211;.08~0;10~S DR=.211 D LOOK^IVMPREC9;20~S DR=.211 D LOOK^IVMPREC9
 ;;.01~K-RELATIONSHIP TO PATIENT;.02~ZCT04K1;.03~1;.04~2;.05~.212;.08~0;10~S DR=.212 D LOOK^IVMPREC9;20~S DR=.212 D LOOK^IVMPREC9
 ;;.01~K-STREET ADDRESS [LINE 1];.02~ZCT051K1;.03~1;.04~2;.05~.213;.08~0;10~S DR=.213 D LOOK^IVMPREC9;20~S DR=.213 D LOOK^IVMPREC9
 ;;.01~K-STREET ADDRESS [LINE 2];.02~ZCT052K1;.03~1;.04~2;.05~.214;.08~0;10~S DR=.214 D LOOK^IVMPREC9;20~S DR=.214 D LOOK^IVMPREC9
 ;;.01~K-CITY;.02~ZCT053K1;.03~1;.04~2;.05~.216;.08~0;10~S DR=.216 D LOOK^IVMPREC9;20~S DR=.216 D LOOK^IVMPREC9
 ;;.01~K-STATE;.02~ZCT054K1;.03~1;.04~2;.05~.217;.06~1;.08~0;10~S DR=.217 D LOOK^IVMPREC9;20~S DR=.217,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~K-ZIP CODE;.02~ZCT055K1;.03~1;.04~2;.05~.218;.08~0;10~S DR=.218 D LOOK^IVMPREC9;20~S DR=.218 D LOOK^IVMPREC9
 ;;.01~K-PHONE NUMBER;.02~ZCT06K1;.03~1;.04~2;.05~.219;.08~0;10~S DR=.219 D LOOK^IVMPREC9;20~S DR=.219 D LOOK^IVMPREC9
 ;;.01~K-WORK PHONE NUMBER;.02~ZCT07K1;.03~1;.04~2;.05~.21011;.08~0;10~S DR=.21011 D LOOK^IVMPREC9;20~S DR=.21011 D LOOK^IVMPREC9
 ;;.01~PRIMARY NOK CHANGE DATE/TIME;.02~ZCT10K1;.03~1;.04~2;.05~.21012;.06~1;.08~0;10~S DR=.21012 D LOOK^IVMPREC9;20~S DR=.21012,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~K2-NAME OF SECONDARY NOK;.02~ZCT03K2;.03~1;.04~2;.05~.2191;.08~0;10~S DR=.2191 D LOOK^IVMPREC9;20~S DR=.2191 D LOOK^IVMPREC9
 ;;.01~K2-RELATIONSHIP TO PATIENT;.02~ZCT04K2;.03~1;.04~2;.05~.2192;.08~0;10~S DR=.2192 D LOOK^IVMPREC9;20~S DR=.2192 D LOOK^IVMPREC9
 ;;.01~K2-STREET ADDRESS [LINE 1];.02~ZCT051K2;.03~1;.04~2;.05~.2193;.08~0;10~S DR=.2193 D LOOK^IVMPREC9;20~S DR=.2193 D LOOK^IVMPREC9
 ;;.01~K2-STREET ADDRESS [LINE 2];.02~ZCT052K2;.03~1;.04~2;.05~.2194;.08~0;10~S DR=.2194 D LOOK^IVMPREC9;20~S DR=.2194 D LOOK^IVMPREC9
 ;;.01~K2-CITY;.02~ZCT053K2;.03~1;.04~2;.05~.2196;.08~0;10~S DR=.2196 D LOOK^IVMPREC9;20~S DR=.2196 D LOOK^IVMPREC9
 ;;.01~K2-STATE;.02~ZCT054K2;.03~1;.04~2;.05~.2197;.06~1;.08~0;10~S DR=.2197 D LOOK^IVMPREC9;20~S DR=.2197,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~K2-ZIP CODE;.02~ZCT055K2;.03~1;.04~2;.05~.2198;.08~0;10~S DR=.2198 D LOOK^IVMPREC9;20~S DR=.2198 D LOOK^IVMPREC9
 ;;.01~K2-PHONE NUMBER;.02~ZCT06K2;.03~1;.04~2;.05~.2199;.08~0;10~S DR=.2199 D LOOK^IVMPREC9;20~S DR=.2199 D LOOK^IVMPREC9
 ;;.01~K2-WORK PHONE NUMBER;.02~ZCT07K2;.03~1;.04~2;.05~.211011;.08~0;10~S DR=.211011 D LOOK^IVMPREC9;20~S DR=.211011 D LOOK^IVMPREC9
 ;;.01~SECONDARY NOK CHANGE DT/TM;.02~ZCT10K2;.03~1;.04~2;.05~.211012;.06~1;.08~0;10~S DR=.211012 D LOOK^IVMPREC9;20~S DR=.211012,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~D-NAME OF DESIGNEE;.02~ZCT03D1;.03~1;.04~2;.05~.341;.08~0;10~S DR=.341 D LOOK^IVMPREC9;20~S DR=.341 D LOOK^IVMPREC9
 ;;.01~D-RELATIONSHIP TO PATIENT;.02~ZCT04D1;.03~1;.04~2;.05~.342;.08~0;10~S DR=.342 D LOOK^IVMPREC9;20~S DR=.342 D LOOK^IVMPREC9
 ;;.01~D-STREET ADDRESS [LINE 1];.02~ZCT051D1;.03~1;.04~2;.05~.343;.08~0;10~S DR=.343 D LOOK^IVMPREC9;20~S DR=.343 D LOOK^IVMPREC9
 ;;.01~D-STREET ADDRESS [LINE 2];.02~ZCT052D1;.03~1;.04~2;.05~.344;.08~0;10~S DR=.344 D LOOK^IVMPREC9;20~S DR=.344 D LOOK^IVMPREC9
 ;;.01~D-CITY;.02~ZCT053D1;.03~1;.04~2;.05~.346;.08~0;10~S DR=.346 D LOOK^IVMPREC9;20~S DR=.346 D LOOK^IVMPREC9
 ;;.01~D-STATE;.02~ZCT054D1;.03~1;.04~2;.05~.347;.06~1;.08~0;10~S DR=.347 D LOOK^IVMPREC9;20~S DR=.347,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~D-ZIP CODE;.02~ZCT055D1;.03~1;.04~2;.05~.348;.08~0;10~S DR=.348 D LOOK^IVMPREC9;20~S DR=.348 D LOOK^IVMPREC9
 ;;.01~D-PHONE NUMBER;.02~ZCT06D1;.03~1;.04~2;.05~.349;.08~0;10~S DR=.349 D LOOK^IVMPREC9;20~S DR=.349 D LOOK^IVMPREC9
 ;;.01~D-WORK PHONE NUMBER;.02~ZCT07D1;.03~1;.04~2;.05~.34011;.08~0;10~S DR=.34011 D LOOK^IVMPREC9;20~S DR=.34011 D LOOK^IVMPREC9
 ;;.01~DESIGNEE CHANGE DATE/TIME;.02~ZCT10D1;.03~1;.04~2;.05~.3412;.06~1;.08~0;10~S DR=.3412 D LOOK^IVMPREC9;20~S DR=.3412,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~EMPLOYMENT STATUS;.02~ZEM03;.03~1;.04~2;.05~.31115;.06~1;.08~0;10~S DR=.31115 D LOOK^IVMPREC9;20~S DR=.31115,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~EMPLOYER NAME;.02~ZEM04;.03~1;.04~2;.05~.3111;.08~0;10~S DR=.3111 D LOOK^IVMPREC9;20~S DR=.3111 D LOOK^IVMPREC9
 ;;.01~OCCUPATION;.02~ZEM05;.03~1;.04~2;.05~.07;.08~0;10~S DR=.07 D LOOK^IVMPREC9;20~S DR=.07 D LOOK^IVMPREC9
 ;;.01~EMPLOYER ADDR [LINE 1];.02~ZEM061;.03~1;.04~2;.05~.3113;.08~0;10~S DR=.3113 D LOOK^IVMPREC9;20~S DR=.3113 D LOOK^IVMPREC9
 ;;.01~EMPLOYER ADDR [LINE 2];.02~ZEM062;.03~1;.04~2;.05~.3114;.08~0;10~S DR=.3114 D LOOK^IVMPREC9;20~S DR=.3114 D LOOK^IVMPREC9
 ;;.01~EMPLOYER ADDR [LINE 3];.02~ZEM068;.03~1;.04~2;.05~.3115;.08~0;10~S DR=.3115 D LOOK^IVMPREC9;20~S DR=.3115 D LOOK^IVMPREC9
 ;;.01~EMPLOYER CITY;.02~ZEM063;.03~1;.04~2;.05~.3116;.08~0;10~S DR=.3116 D LOOK^IVMPREC9;20~S DR=.3116 D LOOK^IVMPREC9
 ;;.01~EMPLOYER STATE;.02~ZEM064;.03~1;.04~2;.05~.3117;.06~1;.08~0;10~S DR=.3117 D LOOK^IVMPREC9;20~S DR=.3117,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~EMPLOYER ZIP;.02~ZEM065;.03~1;.04~2;.05~.3118;.08~0;10~S DR=.3118 D LOOK^IVMPREC9;20~S DR=.3118 D LOOK^IVMPREC9
 ;;.01~EMPLOYER TELEPHONE;.02~ZEM07;.03~1;.04~2;.05~.3119;.08~0;10~S DR=.3119 D LOOK^IVMPREC9;20~S DR=.3119 D LOOK^IVMPREC9
 ;;.01~RETIREMENT DATE;.02~ZEM09;.03~1;.04~2;.05~.31116;.06~1;.08~0;10~S DR=.31116 D LOOK^IVMPREC9;20~S DR=.31116,DIQ(0)="E" D LOOK^IVMPREC9
 ;;QUIT
 ;;
 ;;The following have been disabled until further notice
 ;;.01~PLACE OF BIRTH CITY;.02~PID113N;.03~1;.04~2;.05~.092;.08~0;10~S DR=.092 D LOOK^IVMPREC9;20~S DR=.092 D LOOK^IVMPREC9
 ;;.01~PLACE OF BIRTH STATE;.02~PID114N;.03~1;.04~2;.05~.093;.06~1;.08~0;10~S DR=.093 D LOOK^IVMPREC9;20~S DR=.093,DIQ(0)="E" D LOOK^IVMPREC9
 ;;.01~CONFIDENTIAL STREET [LINE 1];.02~PID111C;.03~1;.04~2;.05~.1411;.08~0;10~S Y=$P(VAPA(13),"^");20~S Y=$P(VAPA(13),"^")
 ;;.01~CONFIDENTIAL STREET [LINE 2];.02~PID112C;.03~1;.04~2;.05~.1412;.08~0;10~S Y=$P(VAPA(14),"^");20~S Y=$P(VAPA(14),"^")
 ;;.01~CONFIDENTIAL STREET [LINE 3];.02~PID118C;.03~1;.04~2;.05~.1413;.08~0;10~S Y=$P(VAPA(15),"^");20~S Y=$P(VAPA(15),"^")
 ;;.01~CONFIDENTIAL ADDR CITY;.02~PID113C;.03~1;.04~2;.05~.1414;.08~0;10~S Y=$P(VAPA(16),"^");20~S Y=$P(VAPA(16),"^")
 ;;.01~CONFIDENTIAL ADDR STATE;.02~PID114C;.03~1;.04~2;.05~.1415;.06~1;.08~0;10~S Y=$P(VAPA(17),"^");20~S Y=$P(VAPA(17),"^",2)
 ;;.01~CONFIDENTIAL ADDR ZIP CODE;.02~PID115C;.03~1;.04~2;.05~.1416;.08~0;10~S Y=$P(VAPA(18),"^");20~S Y=$P(VAPA(18),"^",2)
 ;;.01~CONFIDENTIAL ADDR PROVINCE;.02~PID114CF;.03~1;.04~2;.05~.14114;.08~0;10~S Y=$P(VAPA(26),"^");20~S Y=$P(VAPA(26),"^")
 ;;.01~CONFIDENTIAL ADDR POSTAL CODE;.02~PID115CF;.03~1;.04~2;.05~.14115;.08~0;10~S Y=$P(VAPA(27),"^");20~S Y=$P(VAPA(27),"^")
 ;;.01~CONFIDENTIAL START DATE;.02~PID1112C1;.03~1;.04~2;.05~.1417;.06~1;.08~0;10~S Y=$P(VAPA(20),"^");20~S Y=$P(VAPA(20),"^",2)
 ;;.01~CONFIDENTIAL END DATE;.02~PID1112C2;.03~1;.04~2;.05~.1418;.06~1;.08~0;10~S Y=$P(VAPA(21),"^");20~S Y=$P(VAPA(21),"^",2)
 ;;.01~CONFIDENTIAL ADDR COUNTRY;.02~PID116C;.03~1;.04~2;.05~.14116;.06~1;.08~0;10~S Y=$P(VAPA(28),"^");20~S Y=$P(VAPA(28),"^",2)
 ;;.01~CONFIDENTIAL ADDR CATEGORY;.02~PID117C;.03~1;.04~2;.05~.141;.08~0;10~S Y=$P(VAPA(22),"^");20~S Y=$P(VAPA(22),"^",2)
 ;;.01~CONFIDENTIAL ADDR COUNTY;.02~PID119C;.03~1;.04~2;.05~.14111;.06~0;.08~0;10~S Y=$P($G(^DIC(5,+VAPA(5),1,+VAPA(19),0)),"^",3);20~S Y=$P(VAPA(19),"^",2)
 ;;.01~MULTIPLE BIRTH INDICATOR;.02~PID24;.03~1;.04~2;.05~994;.08~0;10~S DR=994 D LOOK^IVMPREC9;20~S DR=994 D LOOK^IVMPREC9
 ;;.01~CONFIDENTIAL PHONE NUMBER;.02~PID13CA;.03~1;.04~2;.05~.1315;.08~0;10~S Y=$P(VAPA(29),"^");20~S Y=$P(VAPA(29),"^")
 ;;.01~FATHER'S NAME;.02~ZPD06;.03~1;.04~2;.05~.2401;.08~0;10~S DR=.2401 D LOOK^IVMPREC9;20~S DR=.2401 D LOOK^IVMPREC9
 ;;.01~MOTHER'S NAME;.02~ZPD07;.03~1;.04~2;.05~.2402;.08~0;10~S DR=.2402 D LOOK^IVMPREC9;20~S DR=.2402 D LOOK^IVMPREC9