Global: ^AMHPSUIC

FileMan FileNo	FileMan Filename	Package
9002011.65	MHSS SUICIDE FORMS	Mental Health Social Services

Package	Total	Routines
Mental Health Social Services	20	AMH30P4 AMH30P4D AMH40P6 AMHBHSC AMHEYD AMHEYRE AMHEYREX AMHGDSF AMHGESF AMHLESF AMHLESF1 AMHRL1 AMHRLP AMHRPSU1 AMHRPSU2 AMHRPSU3 AMHSFR AMHUTIL AMHUTIL3 AMHVD
Patient Care Component	4	APCDESF1 APCDLES1 APCDLESF APCDSFR
Patient Care Component Reports	2	APCLPSU1 APCLPSU3
iCare	2	BQIBHSFL BQICASUI
IHS Electronic Health Record	1	BEHOAMH
Local Area Programs	1	AZAXDPM1
Patient Chart	1	BPCBHSC

Package	Total	Routines
Mental Health Social Services	15	AMH30P2 AMH30P3 AMH30P4 AMH30P4D AMH40ENV AMH40P1 AMH40P6 AMHEYD AMHEYRE AMHEYREX AMHGD AMHGDSF AMHGSSF AMHLESF AMHSFR
Patient Care Component	3	APCDESF1 APCDLESF APCDSFR
iCare	2	BQIBHSFL BQICASUI

Package	Total	FileMan Files
Mental Health Social Services	4	MHSS SUICIDE CONTRIBUTING FACTORS(#9002014.9)[#9002011.6513(.01)] MHSS SUICIDE DRUG TYPES(#9002014.7)[#9002011.651111(.01)] MHSS SUICIDE DISPOSITION TYPES(#9002014.6)[.25] SUICIDE SUBSTANCE DRUG(#9002014.71)[#9002011.651211(.01), #9002011.651501(.01)]
Utility Tables	2	COMMUNITY(#9999999.05)[.07] LOCATION(#9999999.06)[.28]
IHS Patient	1	PATIENT(#9000001)[.04]
Kernel	1	NEW PERSON(#200)[.03, .19, .22, #9002011.6551(.02)]

Fields, Total: 44

Field #	Name	Loc	Type	Details
.01	CASE #	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>24!($L(X)<24)!'(X'?1P.E) X` LAST EDITED: `FEB 10, 2016` HELP-PROMPT: `Answer must be 24 characters in length.` DESCRIPTION: `This number is internally generated by the computer and will be a unique number for each form across IHS. Format: static ASUFAC from AUTTSITE_date in MMDDYYYY format_dfn of patient left zero filled to 8 digits. There` will only ever be one form on file for a patient for a given suicide attempt. CROSS-REFERENCE: `9002011.65^B` 1)= S ^AMHPSUIC("B",$E(X,1,30),DA)="" 2)= K ^AMHPSUIC("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR CREATE VALUE)= S X=DT DELETE VALUE)= S X=DT FIELD)= #.21 CROSS-REFERENCE: `^^TRIGGER^9002011.65^.28` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,28),X=X S DIU=X K Y S X=DIV S X=DUZ(2) S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,28)=DIV,DIH=9002011.65,DIG=.28 D ^DICR 2)= Q CREATE VALUE)= S X=DUZ(2) DELETE VALUE)= NO EFFECT FIELD)= #.28
.02	LOCAL CASE #	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 16, 2009` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: This is a local case number generated by the site. It is not required. CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.03	PROVIDER	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `SEP 05, 2002` DESCRIPTION: This is the provider reporting this suicide case. It is the provider fillng out the form. CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.031	PROVIDER INITIALS		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.031,9.3) S X=$P(Y(9002011.65,.031,101),U,2) S D0=Y(9002011.65,.031,80)` 9.2 = S Y(9002011.65,.031,80)=$S($D(D0):D0,1:""),Y(9002011.65,.031,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.65,.031,9.2) S D0=$P(Y(9002011.65,.031,1),U,3) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(9002011.65,.031,101)=$S($D(^VA(200,D0,0)):^(0),1:"") ALGORITHM: `#.03:INI`
.032	PROVIDER DISCIPLINE		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.032,9.3) S X=$S('$D(^DIC(7,+$P(Y(9002011.65,.032,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(9002011.65,.032,80)` 9.2 = S Y(9002011.65,.032,80)=$S($D(D0):D0,1:""),Y(9002011.65,.032,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.65,.032,9.2) S D0=$P(Y(9002011.65,.032,1),U,3) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(9002011.65,.032,101)=$S($D(^VA(200,D0,"PS")):^("PS"),1:"") ALGORITHM: `#.03:PROVIDER CLASS`
.033	PROVIDER DISCIPLINE CODE		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.033,9.4) S Y(9002011.65,.033,201)=$S($D(^DIC(7,D0,9999999)):^(9999999),1:"") S X=$P(Y(9002011.65,.033,201),U,1) S D0=Y(9002011.65,.033,80)` 9.2 = S Y(9002011.65,.033,80)=$S($D(D0):D0,1:""),Y(9002011.65,.033,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.65,.033,9.2) S D0=$P(Y(9002011.65,.033,1),U,3) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(9002011.65,.033,180)=$S($D(D0):D0,1:"") 9.4 = X ^DD(9002011.65,.033,9.3) S Y(9002011.65,.033,101)=$S($D(^VA(200,D0,"PS")):^("PS"),1:""),D0=$P(Y(9002011.65,.033,101),U,5) S:'$D(^DIC(7,+D0,0)) D0=-1 ALGORITHM: `#.03:PROVIDER CLASS:CODE`
.04	PATIENT	0;4	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 16, 2009` CROSS-REFERENCE: `9002011.65^AC` 1)= S ^AMHPSUIC("AC",$E(X,1,30),DA)="" 2)= K ^AMHPSUIC("AC",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21 CROSS-REFERENCE: `9002011.65^AATOO^MUMPS` 1)= I $P(^AMHPSUIC(DA,0),U,6) S ^AMHPSUIC("AA",X,(9999999-$P(^AMHPSUIC(DA,0),U,6)),DA)="" 2)= I $P(^AMHPSUIC(DA,0),U,6) K ^AMHPSUIC("AA",X,(9999999-$P(^AMHPSUIC(DA,0),U,6)),DA)
.041	SEX OF PATIENT		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.041,9.3) S X=Y(9002011.65,.041,101) S D0=Y(9002011.65,.041,80)` 9.2 = S Y(9002011.65,.041,80)=$S($D(D0):D0,1:""),Y(9002011.65,.041,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.65,.041,9.2) S D0=$P(Y(9002011.65,.041,1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 X $P(^DD(9000001,1101.2,0),U,5,99) S Y(9002011.65,.041,101)=X ALGORITHM: `#.04:SEX`
.042	DOB OF PATIENT		COMPUTED DATE	MUMPS CODE: `X ^DD(9002011.65,.042,9.3) S X=Y(9002011.65,.042,101) S D0=Y(9002011.65,.042,80)` 9.2 = S Y(9002011.65,.042,80)=$S($D(D0):D0,1:""),Y(9002011.65,.042,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.65,.042,9.2) S D0=$P(Y(9002011.65,.042,1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9002011.65,.042,101)=X ALGORITHM: `#.04:DOB`
.043	AGE OF PATIENT ON DATE OF ACT		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.043,9.2) S X=X\365` 9.2 = X $P(^DD(9002011.65,.042,0),U,5,99) S Y(9002011.65,.043,2)=X S Y(9002011.65,.043,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(9002011.65,.043,1),U,6),X1=X,X2=Y(9002011.65,.043,2),X="" D:X2 ^%DTC:X1 S X=X ALGORITHM: `(#.06-#.042)\365`
.044	TRIBE OF ENROLLMENT		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.044,9.3) S X=$S('$D(^AUTTTRI(+$P(Y(9002011.65,.044,101),U,8),0)):"",1:$P(^(0),U,1)) S D0=Y(9002011.65,.044,80)` 9.2 = S Y(9002011.65,.044,80)=$S($D(D0):D0,1:""),Y(9002011.65,.044,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.65,.044,9.2) S D0=$P(Y(9002011.65,.044,1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9002011.65,.044,101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") ALGORITHM: `#.04:TRIBE OF MEMBERSHIP`
.045	COMMUNITY OF RESIDENCE		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.045,9.3) S X=$P(Y(9002011.65,.045,101),U,18) S D0=Y(9002011.65,.045,80)` 9.2 = S Y(9002011.65,.045,80)=$S($D(D0):D0,1:""),Y(9002011.65,.045,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.65,.045,9.2) S D0=$P(Y(9002011.65,.045,1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9002011.65,.045,101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") ALGORITHM: `#.04:CURRENT COMM`
.05	EMPLOYMENT STATUS	0;5	SET	'P' FOR PART-TIME; 'F' FOR FULL-TIME; 'S' FOR SELF-EMPLOYED; 'UE' FOR UNEMPLOYED; 'R' FOR RETIRED; 'ST' FOR STUDENT; 'SE' FOR STUDENT AND EMPLOYED; 'UNK' FOR UNKNOWN; LAST EDITED: `FEB 04, 2005` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.06	DATE OF ACT	0;6	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 06, 2009` CROSS-REFERENCE: `9002011.65^AD` 1)= S ^AMHPSUIC("AD",$E(X,1,30),DA)="" 2)= K ^AMHPSUIC("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.65^AA^MUMPS` 1)= I $P($G(^AMHPSUIC(DA,0)),"^",4) S ^AMHPSUIC("AA",$P(^AMHPSUIC(DA,0),"^",4),(9999999-X),DA)="" 2)= I $P($G(^AMHPSUIC(DA,0)),"^",4) K ^AMHPSUIC("AA",$P(^AMHPSUIC(DA,0),"^",4),(9999999-X),DA) CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21 CROSS-REFERENCE: `9002011.65^AB^MUMPS` 1)= S ^AMHPSUIC("AB",(9999999-X),DA)="" 2)= K ^AMHPSUIC("AB",(9999999-X),DA) CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.07	COMMUNITY WHERE ACT OCCURRED	0;7	POINTER TO COMMUNITY FILE (#9999999.05)	COMMUNITY(#9999999.05) LAST EDITED: `APR 10, 2003` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.08	RELATIONSHIP STATUS	0;8	SET	'1' FOR SINGLE; '2' FOR MARRIED; '3' FOR DIVORCED/SEPARATED; '4' FOR WIDOWED; '5' FOR COHABITING/COMMON LAW; '6' FOR SAME SEX PARTNERSHIP; '9' FOR UNKNOWN; LAST EDITED: `DEC 20, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.09	*RELATIONSHIP IF OTHER CHECKED	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 20, 2004` HELP-PROMPT: `Answer must be 1-30 characters in length.` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.11	EDUCATION LEVEL	0;11	SET	'1' FOR LESS THAN 12 YEARS; '2' FOR HIGH SCHOOL GRADUATE/GED; '3' FOR SOME COLLEGE/TECHNICAL SCHOOL; '4' FOR COLLEGE GRADUATE; '5' FOR POST GRADUATE; '6' FOR UNKNOWN; LAST EDITED: `DEC 20, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.12	IF LESS 12 YRS HIGHEST GRADE	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>11)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 05, 2014` HELP-PROMPT: `Type a number between 0 and 11, 0 decimal digits.` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.13	SUICIDAL BEHAVIOR	0;13	SET	'1' FOR IDEATION W/ PLAN AND INTENT; '2' FOR ATTEMPT; '3' FOR COMPLETED SUICIDE; '4' FOR ASH; '5' FOR CSH; '6' FOR ATT'D SUICIDE W/ ATT'D HOMICIDE; '7' FOR ATT'D SUICIDE W/ COMPL HOMICIDE; '8' FOR COMPL SUICIDE W/ ATT'D HOMICIDE; '9' FOR COMPL SUICIDE W/ COMPL HOMICIDE; LAST EDITED: `MAR 27, 2009` SCREEN: `S DIC("S")="I Y=1!(Y=2)!(Y=3)!(Y=6)!(Y=7)!(Y=8)!(Y=9)"` EXPLANATION: `Must be an active entry.` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.131	SUICIDE BEHAVIOR		COMPUTED	MUMPS CODE: `X ^DD(9002011.65,.131,9.2) S Y(9002011.65,.131,101)=$S($D(^AMHTSBEH(D0,0)):^(0),1:"") S X=$P(Y(9002011.65,.131,101),U,2) S D0=Y(9002011.65,.131,80)` 9.2 = S Y(9002011.65,.131,80)=$G(D0),Y(9002011.65,.131,1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:""),D0=$P(Y(9002011.65,.131,1),U,13) S:'D0!'$D(^AMHTSBEH(+D0,0)) D0=-1 ALGORITHM: `#.13:#.02` LAST EDITED: `OCT 14, 2009`
.14	PREVIOUS ATTEMPTS	0;14	SET	'0' FOR 0; '1' FOR 1; '2' FOR 2; '3' FOR 3 OR MORE; 'U' FOR UNKNOWN; LAST EDITED: `DEC 22, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.15	LOCATION OF ACT	0;15	SET	'1' FOR HOME OR VICINITY; '2' FOR SCHOOL; '3' FOR WORK; '4' FOR JAIL/PRISON/DETENTION; '5' FOR TREATMENT FACILITY; '6' FOR MEDICAL FACILITY; '7' FOR OTHER; '8' FOR UNKNOWN; LAST EDITED: `DEC 20, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.16	*INTERVENTION	0;16	SET	'0' FOR NO ACTION TAKEN; '1' FOR INPATIENT (VOLUNTARY); '2' FOR INPATIENT (INVOLUNTARY); '3' FOR OUTPATIENT; '4' FOR OTHER; LAST EDITED: `DEC 20, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.17	*INTERVENTION (COMPLETED)	0;17	SET	'1' FOR OUTREACH TO FAMILY/SCHOOL/COMMUNITY; '2' FOR NO ACTION TAKEN; '3' FOR OTHER; LAST EDITED: `DEC 20, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.18	DATE CREATED	0;18	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 02, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(9002011.65,.18,1,1,1.4) 1.4)= S DIH=$S($D(^AMHPSUIC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(9002011.65,.18,1,1,2.4) 2.4)= S DIH=$S($D(^AMHPSUIC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=DT DELETE VALUE)= S X=DT FIELD)= #.21
.19	USER WHO CREATED	0;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 08, 2002` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.21	DATE LAST MODIFIED	0;21	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 02, 2004` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DATE CREATED field of the MHSS SUICIDE FORMS File` TRIGGERED by the CASE # field of the MHSS SUICIDE FORMS File TRIGGERED by the LOCAL CASE # field of the MHSS SUICIDE FORMS File TRIGGERED by the PROVIDER field of the MHSS SUICIDE FORMS File TRIGGERED by the PATIENT field of the MHSS SUICIDE FORMS File TRIGGERED by the EMPLOYMENT STATUS field of the MHSS SUICIDE FORMS File TRIGGERED by the DATE OF ACT field of the MHSS SUICIDE FORMS File TRIGGERED by the COMMUNITY WHERE ACT OCCURRED field of the MHSS SUICIDE FORMS File TRIGGERED by the RELATIONSHIP STATUS field of the MHSS SUICIDE FORMS File TRIGGERED by the RELATIONSHIP IF OTHER CHECKED field of the MHSS SUICIDE FORMS File TRIGGERED by the EDUCATION LEVEL field of the MHSS SUICIDE FORMS File TRIGGERED by the IF LESS 12 YRS HIGHEST GRADE field of the MHSS SUICIDE FORMS File TRIGGERED by the SUICIDAL BEHAVIOR field of the MHSS SUICIDE FORMS File TRIGGERED by the PREVIOUS ATTEMPTS field of the MHSS SUICIDE FORMS File TRIGGERED by the LOCATION OF ACT field of the MHSS SUICIDE FORMS File TRIGGERED by the INTERVENTION field of the MHSS SUICIDE FORMS File TRIGGERED by the *INTERVENTION (COMPLETED) field of the MHSS SUICIDE FORMS File TRIGGERED by the USER WHO CREATED field of the MHSS SUICIDE FORMS File TRIGGERED by the LETHALITY field of the MHSS SUICIDE FORMS File TRIGGERED by the DISPOSITION field of the MHSS SUICIDE FORMS File TRIGGERED by the SUBSTANCE INVOLVED field of the MHSS SUICIDE FORMS File TRIGGERED by the METHOD field of the METHOD sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the METHOD IF OTHER field of the METHOD sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the DRUG IF OVERDOSE field of the DRUG IF OVERDOSE sub-field of the METHOD sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the DRUG IF OTHER field of the DRUG IF OVERDOSE sub-field of the METHOD sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the FACTOR field of the CONTRIBUTING FACTORS sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the TEXT IF OTHER field of the CONTRIBUTING FACTORS sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the LOCATION OF ACT IF OTHER field of the MHSS SUICIDE FORMS File TRIGGERED by the DISPOSITION IF OTHER field of the MHSS SUICIDE FORMS File TRIGGERED by the SUBSTANCE DRUGS field of the SUBSTANCE DRUGS sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the DRUGS IF OTHER field of the SUBSTANCE DRUGS sub-field of the MHSS SUICIDE FORMS File TRIGGERED by the DATE OF ACT field of the MHSS SUICIDE FORMS File CROSS-REFERENCE: `9002011.65^AEX` 1)= S ^AMHPSUIC("AEX",$E(X,1,30),DA)="" 2)= K ^AMHPSUIC("AEX",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002011.65^.27` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$$NOW^XLFDT X ^DD(9002011.65,.21,1,2,1.4) 1.4)= S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,27)=DIV,DIH=9002011.65,DIG=.27 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$$NOW^XLFDT X ^DD(9002011.65,.21,1,2,2.4) 2.4)= S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,27)=DIV,DIH=9002011.65,DIG=.27 D ^DICR CREATE VALUE)= I '$D(DIU(0)) S X=$$NOW^XLFDT DELETE VALUE)= I '$D(DIU(0)) S X=$$NOW^XLFDT FIELD)= #.27 CROSS-REFERENCE: `^^TRIGGER^9002011.65^.22` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,22)=DIV,DIH=9002011.65,DIG=.22 D ^D ICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,22)=DIV,DIH=9002011.65,DIG=.22 D ^D ICR CREATE VALUE)= I '$D(DIU(0)) S X=DUZ DELETE VALUE)= I '$D(DIU(0)) S X=DUZ FIELD)= #.22
.22	USER LAST MODIFIED	0;22	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 08, 2002` NOTES: `TRIGGERED by the DATE LAST MODIFIED field of the MHSS SUICIDE FORMS File`
.23	DATE EXPORTED	0;23	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 03, 2004`
.24	LETHALITY	0;24	SET	'L' FOR LOW; 'M' FOR MEDIUM; 'H' FOR HIGH; LAST EDITED: `DEC 20, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.25	DISPOSITION	0;25	POINTER TO MHSS SUICIDE DISPOSITION TYPES FILE (#9002014.6)	MHSS SUICIDE DISPOSITION TYPES(#9002014.6) LAST EDITED: `DEC 20, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.26	SUBSTANCE INVOLVED	0;26	SET	'1' FOR NONE; '2' FOR ALCOHOL AND OTHER DRUGS; 'U' FOR UNKNOWN; LAST EDITED: `DEC 29, 2004` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
.27	DATE/TIME LAST MODIFIED	0;27	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 03, 2008` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DATE LAST MODIFIED field of the MHSS SUICIDE FORMS File` CROSS-REFERENCE: `9002011.65^ASU^MUMPS` 1)= D UPDATE^AMHLESF(X,DUZ,DA) 2)= Q
.28	LOGGED ON FACILITY	0;28	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `FEB 10, 2016` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the CASE # field of the MHSS SUICIDE FORMS File`
1101	METHOD	11;0	SET Multiple #9002011.6511	9002011.6511
1201	*SUBSTANCE INVOLVED	12;0	SET Multiple #9002011.6512	9002011.6512 LAST EDITED: `DEC 29, 2004`
1301	CONTRIBUTING FACTORS	13;0	POINTER Multiple #9002011.6513	9002011.6513
1401	LOCATION OF ACT IF OTHER	14;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `DEC 20, 2004` HELP-PROMPT: `Answer must be 1-80 characters in length.` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
1402	DISPOSITION IF OTHER	14;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `DEC 20, 2004` HELP-PROMPT: `Answer must be 1-80 characters in length.` CROSS-REFERENCE: `^^TRIGGER^9002011.65^.21` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DI CR CREATE VALUE)= I '$D(DIU(0)) S X=DT DELETE VALUE)= I '$D(DIU(0)) S X=DT FIELD)= #.21
1501	SUBSTANCE DRUGS	15;0	POINTER Multiple #9002011.651501	9002011.651501
4100	OTHER RELEVANT INFORMATION	41;0	WORD-PROCESSING #9002011.6541	LAST EDITED: `DEC 20, 2004`
5100	LOG OF EDITING	51;0	DATE Multiple #9002011.6551	9002011.6551
9901	PATCH 4 CONVERSION DONE	99;1	SET	'1' FOR YES; LAST EDITED: `DEC 20, 2004`

Customize PDF page

Package: Mental Health Social Services

Global: ^AMHPSUIC

Information

Description

Directly Accessed By Routines, Total: 37

Accessed By FileMan Db Calls, Total: 20

Pointer To FileMan Files, Total: 8

Fields, Total: 44