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

Info | Details | All

Print Page as PDF

Sub-Field: 9000001.83

Package: IHS Patient

PATIENT(#9000001)-->9000001.83

Sub-Field: 9000001.83

Information

Parent File	Name	Number	Package
PATIENT(#9000001)	PREVIOUS MAIL ADDRESSES	9000001.83	IHS Patient

Details

Field #	Name	Loc	Type	Details
.01	DATE CHANGED	0;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `9000001.83^B` 1)= S ^AUPNPAT(DA(1),83,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPAT(DA(1),83,"B",$E(X,1,30),DA)
.02	STREET ADDRESS [LINE 1] #.111	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 3-35 characters in length.` DESCRIPTION: Street address from #.111 from file 2.
.03	STREET ADDRESS [LINE 2] #.112	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X D:$D(X) UP^DGHELP` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 3-30 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	STREET ADDRESS [LINE 3] #.113	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.05	CITY #.114	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 2-15 characters in length.`
.06	STATE #.115	0;6	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `OCT 03, 2007`
.07	ZIP CODE #.116	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?5N) X` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 5 characters in length.`
.08	PHONE NUMBER [RESIDENCE] #.131	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 4-20 characters in length.`

Info | Details | All