Global: ^AMHGROUP

FileMan FileNo	FileMan Filename	Package
9002011.67	MHSS GROUP	Mental Health Social Services

Package	Total	Routines
Mental Health Social Services	13	AMHBHSC AMHEGR AMHEGR1 AMHEGS AMHGDA AMHGDGP AMHGEGP AMHGESIG AMHGR AMHGSGP AMHGU AMHGVDEL AMHLEDEL
Patient Chart	1	BPCBHSC

Package	Total	Routines
Mental Health Social Services	6	AMH40ENV AMHEGR AMHEGR1 AMHGDA AMHGDGP AMHGSGP

Package	Total	FileMan Files
Utility Tables	5	PROVIDER NARRATIVE(#9999999.27)[#9002011.6721(.02)] COMMUNITY(#9999999.05)[.06] EDUCATION TOPICS(#9999999.09)[#9002011.6771(.01)] LOCATION(#9999999.06)[.05] READINESS TO LEARN(#99999.15)[#9002011.6771(1102)]
Mental Health Social Services	4	MHSS PROBLEM/POV CODES(#9002012.2)[#9002011.6721(.01)] MHSS RECORD(#9002011)[#9002011.6761(.01)] MHSS ACTIVITY CODES(#9002012)[.07] MHSS TYPE OF CONTACT(#9002012.1)[.08]
CPT Files	2	CPT MODIFIER(#81.3)[#9002011.6741(.03), #9002011.6741(.04)] CPT(#81)[#9002011.6741(.01), #9002011.6771(.05)]
IHS Patient	1	PATIENT(#9000001)[#9002011.6751(.01)]
Kernel	1	NEW PERSON(#200)[.12, .15, #9002011.6711(.01), #9002011.6771(.02)]
Scheduling	1	CLINIC STOP(#40.7)[.14]
Text Integration Utility	1	TIU DOCUMENT(#8925)[.17]

Fields, Total: 27

Field #	Name	Loc	Type	Details
.01	DATE OF SERVICE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:DT_".9999"X) X` LAST EDITED: `APR 15, 2009` HELP-PROMPT: `TYPE A DATE BETWEEN 1/1/1900 AND DT_".9999"` CROSS-REFERENCE: `9002011.67^B` 1)= S ^AMHGROUP("B",$E(X,1,30),DA)="" 2)= K ^AMHGROUP("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.67^AINV^MUMPS` 1)= S ^AMHGROUP("AINV",(9999999-$P(X,".")),DA)="" 2)= K ^AMHGROUP("AINV",(9999999-$P(X,".")),DA)
.02	PROGRAM	0;2	SET	**********************REQUIRED FIELD********************** 'M' FOR MENTAL HEALTH; 'S' FOR SOCIAL SERVICES; 'C' FOR CHEMICAL DEPENDENCY; 'O' FOR OTHER; LAST EDITED: `MAY 18, 2004`
.03	GROUP NAME	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 25, 2006` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.04	POSTING DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 18, 2004`
.05	LOCATION OF ENCOUNTER	0;5	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,21)="""",$$ALLOWV^AMHUTIL(DUZ,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 09, 2009` SCREEN: `S DIC("S")="I $P(^(0),U,21)="""",$$ALLOWV^AMHUTIL(DUZ,Y)"` EXPLANATION: `Must be an active location and one you have access to.`
.06	COMMUNITY OF SERVICE	0;6	POINTER TO COMMUNITY FILE (#9999999.05)	**********************REQUIRED FIELD********************** COMMUNITY(#9999999.05) LAST EDITED: `MAY 18, 2004`
.07	ACTIVITY TYPE	0;7	POINTER TO MHSS ACTIVITY CODES FILE (#9002012)	**********************REQUIRED FIELD********************** MHSS ACTIVITY CODES(#9002012) LAST EDITED: `MAY 18, 2004`
.08	TYPE OF CONTACT	0;8	POINTER TO MHSS TYPE OF CONTACT FILE (#9002012.1)	**********************REQUIRED FIELD********************** MHSS TYPE OF CONTACT(#9002012.1) LAST EDITED: `MAY 18, 2004`
.09	NUMBER SERVED	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 18, 2004` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
.11	ACTIVITY TIME	0;11	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 18, 2004` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
.12	WHO ENTERED RECORD	0;12	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `MAY 18, 2004`
.13	DATE LAST MODIFIED	0;13	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 18, 2004`
.14	CLINIC	0;14	POINTER TO CLINIC STOP FILE (#40.7)	**********************REQUIRED FIELD********************** CLINIC STOP(#40.7) LAST EDITED: `MAY 19, 2009`
.15	USER LAST UPDATE	0;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 18, 2004`
.16	ELECTRONIC SIGNATURE	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 18, 2004` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.17	TIU DOCUMENT	0;17	POINTER TO TIU DOCUMENT FILE (#8925)	TIU DOCUMENT(#8925) LAST EDITED: `FEB 23, 2006`
.18	SIGNED?	0;18	SET	'1' FOR YES; LAST EDITED: `JUN 04, 2009`
.19	ELECTRONIC SIGNATURE BLOCK	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `AUG 26, 2009` HELP-PROMPT: `Answer must be 1-60 characters in length.`
.21	DATE/TIME ESIG APPLIED	0;21	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2009`
1101	PROVIDERS	11;0	POINTER Multiple #9002011.6711	9002011.6711
1200	CHIEF COMPLAINT	12;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `JUN 13, 2008` HELP-PROMPT: `Answer must be 2-80 characters in length.`
2101	POVS	21;0	POINTER Multiple #9002011.6721	9002011.6721 GROUP: `%`
3101	SUBJECTIVE/OBJECTIVE	31;0	WORD-PROCESSING #9002011.6731
4101	CPTS	41;0	POINTER Multiple #9002011.6741	9002011.6741
5101	PATIENTS	51;0	POINTER Multiple #9002011.6751	9002011.6751
6101	MHSS RECORDS	61;0	POINTER Multiple #9002011.6761	9002011.6761
7101	EDUCATION TOPIC	71;0	POINTER Multiple #9002011.6771	9002011.6771 LAST EDITED: `JAN 25, 2006`

Customize PDF page

Package: Mental Health Social Services

Global: ^AMHGROUP

Information

Description

Directly Accessed By Routines, Total: 17

Accessed By FileMan Db Calls, Total: 6

Pointer To FileMan Files, Total: 15

Fields, Total: 27