Global: ^AMHPTXP

FileMan FileNo	FileMan Filename	Package
9002011.56	MHSS PATIENT TREATMENT PLANS	Mental Health Social Services

Package	Total	Routines
Mental Health Social Services	18	AMH40P4 AMHBHSC AMHBHTPP AMHGD AMHGDTP AMHGETP AMHGSTP AMHLETP AMHLETP1 AMHLETP3 AMHLETP4 AMHLETPP AMHLETPS AMHLETR AMHLETR1 AMHLETR2 AMHLETR3 AMHPOST
Local Area Programs	1	AZAXDPM1
Patient Chart	1	BPCBHSC

Package	Total	Routines
Mental Health Social Services	6	AMH40ENV AMH40P4 AMHGD AMHGDTP AMHGSTP AMHLETP1

Package	Total	FileMan Files
Mental Health Social Services	5	MHSS CASE DATES(#9002011.58)[.13] MHSS PATIENT TP GOALS 2(#9002011.63)[.13] MHSS PATIENT TP METHODS(#9002011.64)[.13] MHSS PATIENT TP PROBLEMS(#9002011.62)[.03] MHSS PATIENT TX PLAN METHODS(#9002011.57)[.03]

Package	Total	FileMan Files
Mental Health Social Services	2	MHSS PROBLEM/POV CODES(#9002012.2)[.11, .13, .14] MHSS AXIS IV CODES(#9002012.9)[#9002011.569(.01)]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[.04, .05, .07, #9002011.564101(.03), #9002011.564101(.04)]
Text Integration Utility	1	TIU DOCUMENT(#8925)[.21]

Fields, Total: 41

Field #	Name	Loc	Type	Details
.01	DATE ESTABLISHED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EXP" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 03, 2010` DESCRIPTION: This contains the standardized text stored in the Clinical Term file for this problem. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002011.56^B` 1)= S ^AMHPTXP("B",$E(X,1,30),DA)="" 2)= K ^AMHPTXP("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.56^AZ9^MUMPS` 1)= S:$D(AMHLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9002011.56^AA^MUMPS` 1)= I $P($G(^AMHPTXP(DA,0)),"^",2)]"" S ^AMHPTXP("AA",$P(^AMHPTXP(DA,0),"^",2),(9999999-X),DA)="" 2)= I $P($G(^AMHPTXP(DA,0)),"^",2)]"" K ^AMHPTXP("AA",$P(^AMHPTXP(DA,0),"^",2),(9999999-X),DA) CROSS-REFERENCE: `9002011.56^AB^MUMPS` 1)= S ^AMHPTXP("AB",(9999999-X),DA)="" 2)= K ^AMHPTXP("AB",(9999999-X),DA)
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 08, 2009` DESCRIPTION: This is the patient for whom this problem has been observed and recorded. CROSS-REFERENCE: `9002011.56^AC` 1)= S ^AMHPTXP("AC",$E(X,1,30),DA)="" 2)= K ^AMHPTXP("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.56^AATOO^MUMPS` 1)= S ^AMHPTXP("AA",X,(9999999-$P(^AMHPTXP(DA,0),U,1)),DA)="" 2)= K ^AMHPTXP("AA",X,(9999999-$P(^AMHPTXP(DA,0),U,1)),DA)
.03	ANTICIPATED COMPLETION DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 19, 2010` HELP-PROMPT: `This is the length of the treatment plan stated as an anticipated completion date.` DESCRIPTION: This is the last date/time this problem was changed. SOURCE OF DATA: 018/PRCOND CROSS-REFERENCE: `9002011.56^AF` 1)= S ^AMHPTXP("AF",$E(X,1,30),DA)="" 2)= K ^AMHPTXP("AF",$E(X,1,30),DA)
.04	DESIGNATED PROVIDER	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 21, 2002`
.05	CONCURRING SUPERVISOR	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 05, 1995`
.06	DATE CONCURRED	0;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:Y>DT X` LAST EDITED: `OCT 26, 2009` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002011.56^AZ1^MUMPS` 1)= Q 2)= Q CROSS-REFERENCE: `9002011.56^AATOO2^MUMPS` 1)= I $P(^AMHPTXP(DA,0),U,2)]"",$P(^(0),U,7)]"" S ^AMHPTXP("AA",$P(^(0),U,2),X," "_$E("000",1,4-$L($P($P(^(0),U,7),".",1))-1)_$P($P(^(0),U,7),".",1)_"."_$P($P(^(0),U,7),".",2)_$E("00",1,3-$L($P($P(^(0),U,7),".",2))-1),DA)= "" 2)= I $P(^AMHPTXP(DA,0),U,2)]"",$P(^(0),U,7)]"" K ^AMHPTXP("AA",$P(^(0),U,2),X," "_$E("000",1,4-$L($P($P(^(0),U,7),".",1))-1)_$P($P(^(0),U,7),".",1)_"."_$P($P(^(0),U,7),".",2)_$E("00",1,3-$L($P($P(^(0),U,7),".",2))-1),DA)
.07	*CONCURRING PHYSICIAN	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 03, 1997`
.08	*DATE PHYSICIAN CONCURRED	0;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 03, 1997` HELP-PROMPT: `Type in the date on which the Physician concurred with this treatment plan.` DESCRIPTION: This is the date this problem was entered into this file. SOURCE OF DATA: 018/PREDAT UNEDITABLE
.09	NEXT REVIEW DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 02, 2009`
.11	*PROBLEM/DIAGNOSIS	0;11	POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)	MHSS PROBLEM/POV CODES(#9002012.2) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,13)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 13, 2002` SCREEN: `S DIC("S")="I '$P(^(0),U,13)"` EXPLANATION: `Must be an active code.`
.12	DATE COMPLETED/CLOSED	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 2009`
.13	*PROBLEM DIAGNISIS 2	0;13	POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)	MHSS PROBLEM/POV CODES(#9002012.2) LAST EDITED: `MAY 03, 1997`
.14	*PROBLEM DIAGNOSIS 3	0;14	POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)	MHSS PROBLEM/POV CODES(#9002012.2) LAST EDITED: `MAY 03, 1997`
.15	*STATUS	0;15	SET	'R' FOR RESOLVED; 'A' FOR ACTIVE; 'I' FOR INACTIVE; LAST EDITED: `MAR 17, 2009`
.16	CASE ADMIT DATE	0;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 2009`
.17	PROGRAM	0;17	SET	**********************REQUIRED FIELD********************** 'M' FOR MENTAL HEALTH; 'S' FOR SOCIAL SERVICES; 'C' FOR CHEMICAL DEPENDENCY; 'O' FOR OTHER; LAST EDITED: `MAR 12, 2010`
.18	*TP CONVERTED	0;18	SET	'1' FOR YES; LAST EDITED: `JAN 13, 2002`
.19	*TP CONVERTED 2ND TIME	19;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 13, 2002` HELP-PROMPT: `Type a Number between 1 and 1, 0 Decimal Digits`
.21	TIU DOCUMENT	0;21	POINTER TO TIU DOCUMENT FILE (#8925)	TIU DOCUMENT(#8925) LAST EDITED: `AUG 09, 2005`
.22	OLD FORMAT IV	0;22	SET	'1' FOR YES; LAST EDITED: `DEC 06, 2013`
1	*DISCHARGE CRITERIA	1;0	WORD-PROCESSING #9002011.561	LAST EDITED: `MAY 03, 1997`
2	*NOTES/COMMENTS	2;0	WORD-PROCESSING #9002011.562	LAST EDITED: `MAY 03, 1997`
3	*PROBLEM DESCRIPTION	3;0	WORD-PROCESSING #9002011.563	LAST EDITED: `JAN 13, 2002`
4	*GOAL	4;0	WORD-PROCESSING #9002011.564	LAST EDITED: `JAN 13, 2002`
5	*OBJECTIVE	5;0	WORD-PROCESSING #9002011.565	LAST EDITED: `JAN 13, 2002`
6	AXIS I	6;0	WORD-PROCESSING #9002011.566
7	AXIS III	7;0	WORD-PROCESSING #9002011.567
8	AXIS II	8;0	WORD-PROCESSING #9002011.568
9	AXIS IV	9;0	POINTER Multiple #9002011.569	9002011.569
1101	PROBLEM	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JAN 13, 2002` HELP-PROMPT: `Answer must be 1-240 characters in length.`
1201	*AXIS I	12;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<2) X` LAST EDITED: `NOV 20, 2000` HELP-PROMPT: `Answer must be 2-240 characters in length.`
1301	*AXIS II	13;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<2) X` LAST EDITED: `APR 05, 2001` HELP-PROMPT: `Answer must be 2-240 characters in length.`
1401	*AXIS III	14;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<2) X` LAST EDITED: `NOV 20, 2000` HELP-PROMPT: `Answer must be 2-240 characters in length.`
1501	*AXIS IV	15;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<2) X` LAST EDITED: `APR 05, 2001` HELP-PROMPT: `Answer must be 2-240 characters in length.`
1601	AXIS V	16;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 12, 2009` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits`
1602	GAF SCALE TYPE	16;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 14, 2010` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1701	PARTICIPANTS IN PLAN	17;0	Multiple #9002011.561701	9002011.561701
1800	GOALS/METHODS	18;0	WORD-PROCESSING #9002011.59
2100	DIAGNOSIS	21;0	WORD-PROCESSING #9002011.5621
4101	REVIEW DATES	41;0	DATE Multiple #9002011.564101	9002011.564101
9999	LOOKUP		COMPUTED	MUMPS CODE: `S X=$S($D(AMHLOOK):AMHLOOK,1:"")` ALGORITHM: `S X=$S($D(AMHLOOK):AMHLOOK,1:"")`

Customize PDF page

Package: Mental Health Social Services

Global: ^AMHPTXP

Information

Description

Directly Accessed By Routines, Total: 20

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 5

Pointer To FileMan Files, Total: 5

Fields, Total: 41