Global: ^AMHPTXP

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

Directly Accessed By Routines, Total: 20

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

Accessed By FileMan Db Calls, Total: 6

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

Pointed To By FileMan Files, Total: 5

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]

Pointer To FileMan Files, Total: 5

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