Global: ^AMHRCDST

FileMan FileNo	FileMan Filename	Package
9002011.06	BH CD STAGING TOOL	Mental Health Social Services

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Mental Health Social Services	4	AMHCDBL1 AMHEYD2 AMHLEFP4 AMHPST
Local Area Programs	1	AZAXDPM1

Accessed By FileMan Db Calls, Total: 9

Package	Total	Routines
Mental Health Social Services	8	AMHBHDEL AMHCDBL1 AMHGVDEL AMHLEA AMHLEDEL AMHLEP2 AMHPOST AMHUTIL
Patient Chart	1	BPCBHDEL

Pointer To FileMan Files, Total: 8

Package	Total	FileMan Files
Mental Health Social Services	5	MHSS PROBLEM/POV CODES(#9002012.2)[.03] MHSS RECORD(#9002011)[.01] MHSS CD DIFFERENCE REASON(#9002014.81)[.23] MHSS CDMIS COMPONENT(#9002013.7)[.21, .22] MHSS CDMIS DRUG TYPES(#9002013.5)[#9002011.41(.01)]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[.05]
Utility Tables	1	HEALTH FACTORS(#9999999.64)[.11]

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	MHSS VISIT	0;1	POINTER TO MHSS RECORD FILE (#9002011)	**********************REQUIRED FIELD********************** MHSS RECORD(#9002011) LAST EDITED: `MAY 29, 2000` CROSS-REFERENCE: `9002011.06^B` 1)= S ^AMHRCDST("B",$E(X,1,30),DA)="" 2)= K ^AMHRCDST("B",$E(X,1,30),DA)
.018	CLIENT STAGING AVERAGE		COMPUTED	MUMPS CODE: `S X=$$STAGE^AMHUTIL(DA)` ALGORITHM: `S X=$$STAGE^AMHUTIL(DA)`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `DEC 03, 2002` CROSS-REFERENCE: `9002011.06^AC` 1)= S ^AMHRCDST("AC",$E(X,1,30),DA)="" 2)= K ^AMHRCDST("AC",$E(X,1,30),DA)
.03	PRIMARY PROBLEM	0;3	POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)	MHSS PROBLEM/POV CODES(#9002012.2) LAST EDITED: `MAY 29, 2000`
.04	DATE ADDED TO FILE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 29, 2000`
.05	USER WHO ADDED	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 29, 2000`
.06	DAYS USED ALCOHOL	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
.07	DAYS USED DRUGS	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
.08	DAYS HOSPITALIZED	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
.09	ALC/DRUG RELATED ARRESTS	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
.11	TOBACCO USE	0;11	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$SMK^AMHUTIL(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 15, 2001` SCREEN: `S DIC("S")="I $$SMK^AMHUTIL(Y)"` EXPLANATION: `Must be a tobacco health factor.`
.12	ALC/SUB STAGE	0;12	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits`
.13	PHYSICAL STAGE	0;13	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits`
.14	EMOTIONAL STAGE	0;14	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits`
.15	SOCIAL STAGE	0;15	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits`
.16	CUL/SPIRIT STAGE	0;16	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits`
.17	BEHAVIORAL STAGE	0;17	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits`
.18	VOC/ED STAGE	0;18	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 2000` HELP-PROMPT: `Type a Number between 0 and 6, 0 Decimal Digits`
.19	CDMIS DISPOSITION	0;19	SET	'IN' FOR INITIAL; 'RE' FOR REOPEN; 'TD' FOR TRANS/DISC/CLOSE; 'FU' FOR FOLLOWUP; LAST EDITED: `MAY 30, 2000`
.21	RECOMMENDED PLACEMENT	0;21	POINTER TO MHSS CDMIS COMPONENT FILE (#9002013.7)	MHSS CDMIS COMPONENT(#9002013.7) LAST EDITED: `DEC 03, 2002`
.22	ACTUAL PLACEMENT	0;22	POINTER TO MHSS CDMIS COMPONENT FILE (#9002013.7)	MHSS CDMIS COMPONENT(#9002013.7) LAST EDITED: `DEC 03, 2002`
.23	DIFFERENCE REASON	0;23	POINTER TO MHSS CD DIFFERENCE REASON FILE (#9002014.81)	MHSS CD DIFFERENCE REASON(#9002014.81) LAST EDITED: `DEC 19, 2003`
4100	DRUG TYPE	41;0	POINTER Multiple #9002011.41	9002011.41

Customize PDF page

Package: Mental Health Social Services

Global: ^AMHRCDST

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 9

Pointer To FileMan Files, Total: 8

Fields, Total: 23