Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AMHPCASE

Package: Mental Health Social Services

Global: ^AMHPCASE

Information

FileMan FileNo	FileMan Filename	Package
9002011.58	MHSS CASE DATES	Mental Health Social Services

Description

Directly Accessed By Routines, Total: 19

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 5

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	CASE OPEN DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 16, 1997` CROSS-REFERENCE: `9002011.58^B` 1)= S ^AMHPCASE("B",$E(X,1,30),DA)="" 2)= K ^AMHPCASE("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.58^AA^MUMPS` 1)= I $P(^AMHPCASE(DA,0),U,2)]"" S ^AMHPCASE("AA",$P(^AMHPCASE(DA,0),U,2),(9999999-X),DA)="" 2)= I $P(^AMHPCASE(DA,0),U,2)]"" K ^AMHPCASE("AA",$P(^AMHPCASE(DA,0),U,2),(9999999-X),DA)
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JAN 16, 1997` CROSS-REFERENCE: `9002011.58^C` 1)= S ^AMHPCASE("C",$E(X,1,30),DA)="" 2)= K ^AMHPCASE("C",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.58^AATOO^MUMPS` 1)= I $P(^AMHPCASE(DA,0),U)]"" S ^AMHPCASE("AA",X,(9999999-$P(^AMHPCASE(DA,0),U)),DA)="" 2)= I $P(^AMHPCASE(DA,0),U)]"" K ^AMHPCASE("AA",X,(9999999-$P(^AMHPCASE(DA,0),U)),DA)
.03	PROGRAM AFFILIATION	0;3	SET	**********************REQUIRED FIELD********************** 'M' FOR MENTAL HEALTH; 'S' FOR SOCIAL SERVICES; 'C' FOR CHEMICAL DEPENDENCY; 'O' FOR OTHER; LAST EDITED: `OCT 16, 2009`
.04	ADMIT DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 16, 1997` CROSS-REFERENCE: `9002011.58^AC` 1)= S ^AMHPCASE("AC",$E(X,1,30),DA)="" 2)= K ^AMHPCASE("AC",$E(X,1,30),DA)
.05	CLOSED DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 16, 1997` CROSS-REFERENCE: `9002011.58^AD` 1)= S ^AMHPCASE("AD",$E(X,1,30),DA)="" 2)= K ^AMHPCASE("AD",$E(X,1,30),DA)
.06	DISPOSITION	0;6	POINTER TO MHSS DISPOSITION TYPES FILE (#9002012.8)	MHSS DISPOSITION TYPES(#9002012.8) LAST EDITED: `JAN 16, 1997`
.07	CASE NUMBER	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `JAN 16, 1997` HELP-PROMPT: `Answer must be 1-5 characters in length.`
.08	PROVIDER	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 16, 1997`
.09	PRIMARY PROBLEM	0;9	POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)	MHSS PROBLEM/POV CODES(#9002012.2) INPUT TRANSFORM: `S DIC("S")="I $$CHKD^AMHUTIL1(+Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 04, 2013` SCREEN: `S DIC("S")="I $$CHKD^AMHUTIL1(+Y,DT)"` EXPLANATION: `Must be an active code.`
.11	DATE CREATED	0;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 16, 1997`
.12	NEXT REVIEW DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 16, 1997`
.13	TREATMENT PLAN	0;13	POINTER TO MHSS PATIENT TREATMENT PLANS FILE (#9002011.56)	MHSS PATIENT TREATMENT PLANS(#9002011.56) LAST EDITED: `APR 22, 1997`
1101	COMMENT	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JAN 16, 1997` HELP-PROMPT: `Answer must be 1-240 characters in length.`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All