Global: ^IVM(301.7

FileMan FileNo	FileMan Filename	Package
301.7	IVM ADDRESS CHANGE LOG	Income Verification Match

Package	Total	Routines
Income Verification Match	3	IVM2133A IVMADDRP ^IVM(301.7

Package	Total	Routines
Income Verification Match	1	IVM2133A

Package	Total	FileMan Files
Kernel	3	INSTITUTION(#4)[3.5, 6] STATE(#5)[13] NEW PERSON(#200)[2, 5]
Health Level Seven	1	COUNTRY CODE(#779.004)[17]
Registration	1	PATIENT(#2)[1]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	ADDRESS CHANGE DT/TM	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `AUG 25, 2005` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This field will hold the date and time of the last Address Update.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `301.7^B` `1)= S ^IVM(301.7,"B",$E(X,1,30),DA)=""` `2)= K ^IVM(301.7,"B",$E(X,1,30),DA)`
1	PATIENT	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `AUG 25, 2005` HELP-PROMPT: `Please enter the patient associated with this address update.` DESCRIPTION: `This is the Patient associated with this address update.` `UNEDITABLE` CROSS-REFERENCE: `301.7^C` `1)= S ^IVM(301.7,"C",$E(X,1,30),DA)=""` `2)= K ^IVM(301.7,"C",$E(X,1,30),DA)` `This cross-reference can be used to sort by patient by internal entry number.`
2	ADDRESS CHANGE USER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 10, 2005` DESCRIPTION: `The name of the user who has changed this patient's primary address.`
3	ADDRESS CHANGE SOURCE	0;4	SET	'HEC' FOR HEC; 'VAMC' FOR VAMC; 'HBSC' FOR HBSC; 'NCOA' FOR NCOA; 'BVA' FOR BVA; 'VAIN' FOR VAINS; 'USPS' FOR USPS; 'VET360' FOR VET360; LAST EDITED: `MAY 07, 2019` HELP-PROMPT: `Please enter the source of the address change.` DESCRIPTION: `This field will hold the source of the last address change.`
3.5	ADDRESS CHANGE SITE	0;5	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JUN 10, 2005`
4	PRIOR ADDRESS CHANGE DT/TM	1;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This field will hold the date and time of the prior address update.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	PRIOR ADDRESS CHANGE USER	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 10, 2005` DESCRIPTION: `The name of the prior user who changed this patient's primary address.`
6	PRIOR ADDRESS CHANGE SITE	1;3	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `Please enter the prior Site that changed this patient's address.` DESCRIPTION: `This field will hold the prior Site that changed this patient's address. This field is only populated when the PRIOR ADDRESS SOURCE is listed as VAMC.`
7	PRIOR ADDRESS CHANGE SOURCE	1;4	SET	'HEC' FOR HEC; 'VAMC' FOR VAMC; 'HBSC' FOR HBSC; 'NCOA' FOR NCOA; 'BVA' FOR BVA; 'VAIN' FOR VAINS; 'USPS' FOR USPS; LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `Please enter the source of the prior address change.` DESCRIPTION: `This field will hold the source of the prior address change.`
8	PRIOR PHONE NUMBER [RESIDENCE]	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `Enter the patients prior home telephone number [4-20 characters].` DESCRIPTION: `Enter the telephone number [4-20 characters] to this patient's prior place of residence.`
9	PRIOR STREET ADDRESS [LINE 1]	1;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X` LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `Enter the first line of this patient's prior residence street address [3-35 characters].` DESCRIPTION: `This is the first line of this patient's prior residence street address [3-35 characters].` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	PRIOR STREET ADDRESS [LINE 2]	1;7	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X D:$D(X) UP^DGHELP` LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `If necessary, enter the second line of this patient's street address [3-30 characters].` DESCRIPTION: `Enter the second line of this patient's prior residence street address [3-30 characters] if the space provided in 'street address' was not sufficient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	PRIOR CITY	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `Answer must be 2-15 characters in length` DESCRIPTION: `Enter the prior city in which this patient resided [2-15 characters]. If the space provided is not sufficient please abbreviate the city to the best of your ability.`
12	PRIOR COUNTY	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `MAY 16, 2005` HELP-PROMPT: `Please enter the prior county that for this patient's address [3 - 30 characters].` DESCRIPTION: `This is the prior county in which this patient resided [3-30 characters].` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13	PRIOR STATE	1;10	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `Select from the available listing the state for this patient's prior residence.` DESCRIPTION: `Select from the available listing the prior state in which this patient resided.`
14	PRIOR ZIP+4	1;11	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR` LAST EDITED: `MAY 10, 2005` HELP-PROMPT: `Answer with either 5 digit or 9 digit prior zip code.` DESCRIPTION: `Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789) for the prior zip code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
15	PRIOR PROVINCE	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 12, 2005` HELP-PROMPT: `Enter the patients prior province [1-20 characters].` DESCRIPTION: `Enter the province [1-20 characters] to this patient's prior place of residence.`
16	PRIOR POSTAL CODE	1;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 12, 2005` HELP-PROMPT: `Enter the patients prior postal code [1-10 characters].` DESCRIPTION: `Enter the postal code [1-10 characters] to this patient's prior place of residence.`
17	PRIOR COUNTRY	1;14	POINTER TO COUNTRY CODE FILE (#779.004)	COUNTRY CODE(#779.004) LAST EDITED: `JUL 12, 2006` DESCRIPTION: `This field will hold the value of Country in the prior address.`
18	PRIOR BAD ADDRESS INDICATOR	1;15	SET	'1' FOR UNDELIVERABLE; '2' FOR HOMELESS; '3' FOR OTHER; '4' FOR ADDRESS NOT FOUND; LAST EDITED: `APR 07, 2006` HELP-PROMPT: `Please enter valid prior Bad Address Indicator.` DESCRIPTION: `This field will hold the prior Bad Address Indicator.`
19	PRIOR STREET ADDRESS [LINE 3]	2;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 11, 2006` HELP-PROMPT: `If necessary, enter a third line of this applicant's street address [3-30 characters].` DESCRIPTION: `Enter the third line of this applicant's residence street address [3-30 characters] if the space provided in 'street address' and 'street address 2' was not sufficient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 4+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 4+1!, 8+1!, 9+1!, 10+1!, 11+1! , 12+1!, 14+1!, 15+1!, 16+1!, 19+1!
>> Y	.01+1, 4+1

Customize PDF page

Package: Income Verification Match

Global: ^IVM(301.7

Information

Description

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 21

External References

Global Variables Directly Accessed

Local Variables

Legend: