Global: ^AMHPINTK

FileMan FileNo	FileMan Filename	Package
9002011.07	MHSS INTAKE	Mental Health Social Services

Package	Total	Routines
Mental Health Social Services	4	AMH40ENV AMHLEI2 AMHLEI3 AMHPOST
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Mental Health Social Services	1	AMHLEI

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.01]
Kernel	1	NEW PERSON(#200)[.03, .04, .08]
Text Integration Utility	1	TIU DOCUMENT(#8925)[.09]

Fields, Total: 29

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `JUL 23, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002011.07^B` 1)= S ^AMHPINTK("B",$E(X,1,30),DA)="" 2)= K ^AMHPINTK("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.07^AZ9^MUMPS` 1)= S:$D(AMHLOOK) DIC("DR")="" 2)= Q
.02	DATE UPDATED	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 15, 2000` CROSS-REFERENCE: `9002011.07^AC` 1)= S ^AMHPINTK("AC",$E(X,1,30),DA)="" 2)= K ^AMHPINTK("AC",$E(X,1,30),DA)
.03	PROVIDER LAST UPDATE	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 25, 2000`
.04	REFERRED BY	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 15, 2000`
.05	*PRESENTING PROBLEM	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `SEP 04, 2002` HELP-PROMPT: `Answer must be 1-100 characters in length.`
.06	DATE CREATED	0;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 03, 2002`
.07	DATE OF INITIAL INTAKE	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 13, 2004`
.08	INITIAL PROVIDER	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 15, 2004`
.09	TIU DOCUMENT	0;9	POINTER TO TIU DOCUMENT FILE (#8925)	TIU DOCUMENT(#8925) LAST EDITED: `AUG 10, 2005`
1000	REFERRED BY	10;0	WORD-PROCESSING #9002011.071	LAST EDITED: `JUL 01, 2003`
1100	*INFORMANTS INCLUDE	11;0	WORD-PROCESSING #9002011.0711	LAST EDITED: `SEP 04, 2002`
1200	*HISTORY OF PRESENTING PROBLEM	12;0	WORD-PROCESSING #9002011.0712	LAST EDITED: `SEP 04, 2002`
1300	*PAST PSYCHIATRIC HISTORY	13;0	WORD-PROCESSING #9002011.0713	LAST EDITED: `SEP 04, 2002`
1400	*DRUG/ALCOHOL HISTORY (CAGE)	14;0	WORD-PROCESSING #9002011.0714	LAST EDITED: `SEP 04, 2002`
1500	*LEGAL HISTORY	15;0	WORD-PROCESSING #9002011.0715	LAST EDITED: `SEP 04, 2002`
1600	*SOCIAL HISTORY	16;0	WORD-PROCESSING #9002011.0716	LAST EDITED: `SEP 04, 2002`
1700	*MEDICAL HISTORY	17;0	WORD-PROCESSING #9002011.0717	LAST EDITED: `SEP 04, 2002`
1800	*CURRENT MEDICATIONS	18;0	WORD-PROCESSING #9002011.0718	LAST EDITED: `SEP 04, 2002`
1900	*MENTAL STATUS EXAM	19;0	WORD-PROCESSING #9002011.0719	LAST EDITED: `SEP 04, 2002`
2100	*IMPRESSION/FORMULATION	21;0	WORD-PROCESSING #9002011.0721	LAST EDITED: `SEP 04, 2002`
2200	*DEVELOPMENTAL HISTORY	22;0	WORD-PROCESSING #9002011.0722	LAST EDITED: `SEP 04, 2002`
2300	*EDUCATIONAL HISTORY	23;0	WORD-PROCESSING #9002011.0723	LAST EDITED: `SEP 04, 2002`
2400	*FAMILY HISTORY	24;0	WORD-PROCESSING #9002011.0724	LAST EDITED: `SEP 04, 2002`
2500	*VOCATIONAL HISTORY	25;0	WORD-PROCESSING #9002011.0725	LAST EDITED: `SEP 04, 2002`
2600	*HOBBIES	26;0	WORD-PROCESSING #9002011.0726	LAST EDITED: `SEP 04, 2002`
2700	*STRENGTHS/RESOURCES	27;0	WORD-PROCESSING #9002011.0727	LAST EDITED: `SEP 04, 2002`
2800	*INITIAL PLAN	28;0	WORD-PROCESSING #9002011.0728	LAST EDITED: `SEP 04, 2002`
4100	INTAKE DOCUMENTATION/NARRATIVE	41;0	WORD-PROCESSING #9002011.0741
9999	MOVED TO NEW VISIT FORMAT?	9999;1	SET	'1' FOR YES; LAST EDITED: `MAR 04, 2009`

Customize PDF page

Package: Mental Health Social Services

Global: ^AMHPINTK

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 29