Global: ^YSG("INP"

FileMan FileNo	FileMan Filename	Package
618.4	MENTAL HEALTH INPT	Mental Health

Package	Total	Routines
Mental Health	10	INPATIENT COMMENTS PAST TEAMS YSCEN5 YSXRAT1 YSXRAT2 YSXRAT3 YSXRAT4 YSXRAT5 YSXRAT6 ^YSG("INP"

Package	Total	FileMan Files
Registration	2	WARD LOCATION(#42)[20] PATIENT(#2)[1]
Kernel	1	NEW PERSON(#200)[4, 5, 6, #618.418(1), #618.419(2)]
Mental Health	1	MENTAL HEALTH TEAM(#618.2)[3, 23, #618.419(.01)]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	FILE ENTRY DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 01, 1992` DESCRIPTION: `This is a unique file entry date to allow a flat file structure.` CROSS-REFERENCE: `618.4^B` `1)= S ^YSG("INP","B",$E(X,1,30),DA)=""` `2)= K ^YSG("INP","B",$E(X,1,30),DA)`
1	PATIENT	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JAN 01, 1992` HELP-PROMPT: `Enter a new patient name that has been admitted through administration or an existing name to edit.` DESCRIPTION: `Pointer to patient file.` CROSS-REFERENCE: `618.4^C` `1)= S ^YSG("INP","C",$E(X,1,30),DA)=""` `2)= K ^YSG("INP","C",$E(X,1,30),DA)` CROSS-REFERENCE: `618.4^CP^MUMPS` `1)= I $P($G(^YSG("INP",DA,7)),U,4) S ^YSG("INP","CP",X,DA)=""` `2)= K ^YSG("INP","CP",X,DA)`
2	UNIT ENTRY DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 01, 1992` DESCRIPTION: `This is the date of entry on to the psychiatry service for the current admission. This is set automatically by the system but can be edited.` CROSS-REFERENCE: `618.4^AIN^MUMPS` `1)= S ^YSG("INP","AIN",9999999-X,DA)=""` `2)= K ^YSG("INP","AIN",9999999-X,DA)`
3	TEAM	0;4	POINTER TO MENTAL HEALTH TEAM FILE (#618.2)	**********************REQUIRED FIELD********************** MENTAL HEALTH TEAM(#618.2) INPUT TRANSFORM: `S DIC("S")="I $P(^YSG(""SUB"",+Y,1),U,5)'=1,$P(^YSG(""SUB"",+Y,1),U)=$P(^YSG(""INP"",DA,7),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 08, 1993` DESCRIPTION: `This is the clinical and/or nursing team to which the patient is assigned.` SCREEN: `S DIC("S")="I $P(^YSG(""SUB"",+Y,1),U,5)'=1,$P(^YSG(""SUB"",+Y,1),U)=$P(^YSG(""INP"",DA,7),U)"` EXPLANATION: `ALLOWS ONLY ACTIVE TEAMS FOR APPROPRIATE WARD` CROSS-REFERENCE: `618.4^AST^MUMPS` `1)= D CROSS^YSCEN5` `2)= Q` CROSS-REFERENCE: `^^TRIGGER^618.4^23` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^YSG("INP",D0,7)):^(7),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(618.4,3,1,2,1.4)` `1.4)= S DIH=$S($D(^YSG("INP",DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,4)=DIV,DIH=618.4,DIG=23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= INTERNAL(TEAM)` `DELETE VALUE)= NO EFFECT` `FIELD)= CURRENT TEAM`
4	STAFF	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 01, 1992` HELP-PROMPT: `Enter the name of the staff member to be linked to this patient.` DESCRIPTION: `This is the primary staff member assigned responsibility for patient care or charting. Local definition of this title is allowed for in the package. Examples of this are: Case manager , Primary Therapist, and coordinator.` CROSS-REFERENCE: `618.4^AC^MUMPS` `1)= I $D(^YSG("INP",DA,7)),$P(^YSG("INP",DA,7),U,4)?1N.N S ^YSG("INP","AC",X,DA)=""` `2)= K ^YSG("INP","AC",X,DA)`
5	PHYSICIAN	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $S(+$G(^(""I""))=0:1,$G(^(""I""))'` `LAST EDITED: JAN 01, 1992` `HELP-PROMPT: Enter the physician's name.` `DESCRIPTION:` `This is the primary physician providing care to this patient.` `SCREEN: S DIC("S")="I $S(+$G(^(""I""))=0:1,$G(^(""I""))'` `EXPLANATION: Selection must be made from active Physicians who hold the PROVIDER security key.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `CROSS-REFERENCE: 618.4^ACP^MUMPS` `1)= I $D(^YSG("INP",DA,7)),$P(^YSG("INP",DA,7),U,4)?1N.N S ^YSG("INP","ACP",X,DA)=""` `2)= K ^YSG("INP","ACP",X,DA)`
6	RESIDENT	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 01, 1992` HELP-PROMPT: `Enter the name of the medical resident.` DESCRIPTION: `This is the resident assigned (if any) to provide care to this patient.` CROSS-REFERENCE: `618.4^ACR^MUMPS` `1)= I $D(^YSG("INP",DA,7)),$P(^YSG("INP",DA,7),U,4)?1N.N S ^YSG("INP","ACR",X,DA)=""` `2)= K ^YSG("INP","ACR",X,DA)`
7	LEGAL STATUS	1;1	SET	'v' FOR VOLUNTARY; 'i' FOR INVOLUNTARY; DESCRIPTION: `Set of codes: 'v' for Voluntary, 'i' for Involuntary.`
8	OPEN/CLOSED	1;2	SET	'o' FOR OPEN; 'c' FOR CLOSED; DESCRIPTION: `This indicates whether the patient is on a security area.`
9	LEVEL	1;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 10, 0 Decimal Digits` DESCRIPTION: `This is a field locally definable to assign treatment or privilege status. It is only meaningful within local definitions.`
10	MASTER TX PLAN	1;4	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date Master Treatment Plan was entered in the chart` DESCRIPTION: `Date the Master Treatment Plan was enterd in the chart.`
11	TX PLAN UPDATE	1;5	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date of the latest treatmemt plan update.` DESCRIPTION: `Date the treatment plan was updated in the patient's chart.`
12	HAIR COLOR	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` HELP-PROMPT: `Enter patient's hair color (2-10 characters)` DESCRIPTION: `For quick identification purposes. Especially needed for patient searches.`
13	EYE COLOR	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` HELP-PROMPT: `Enter patient's eye color (2-10 characters)` DESCRIPTION: `For quick identification. Especially useful in patient searches.`
14	HEIGHT (INCHES)	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` HELP-PROMPT: `Enter patient's height in inches` DESCRIPTION: `For quick identification. Especially useful in patient searches.`
14.2	WEIGHT	1;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>450)!(X<50)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 01, 1992` HELP-PROMPT: `Enter patient's weight in pounds.` DESCRIPTION: `For quick identification. Especially useful in patient searches.`
15	PHYSICAL DESCRIPTION	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<2) X` HELP-PROMPT: `Enter a short physical description of the patient (2-200 characters)` DESCRIPTION: `Short physical description of patient.`
16	MEDICAL ALERT	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<2) X` HELP-PROMPT: `Enter any medical alerts (2-200 characters)` DESCRIPTION: `Any medical alert associated with the patient.`
17	SPECIAL DIET	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<2) X` HELP-PROMPT: `Enter diet information (2-200 characters)` DESCRIPTION: `Patient's specical diet requirement.`
18	INPATIENT COMMENTS	5;0	DATE Multiple #618.418	618.418 DESCRIPTION: `Patient comments, multiple valued field with subfield.`
19	PAST TEAMS	6;0	POINTER Multiple #618.419	618.419 DESCRIPTION: `This data is automatically set by the package. It keeps track of team changes within a psychiatric ward. This is a multiple field with subfields.`
20	WARD	7;1	POINTER TO WARD LOCATION FILE (#42)	**********************REQUIRED FIELD********************** WARD LOCATION(#42) LAST EDITED: `JAN 01, 1992` DESCRIPTION: `Name of the ward as pointer to the ward location file. This is set automatically by the package.`
21	DISCHARGE/TRANSFER DATE	7;2	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 01, 1992` DESCRIPTION: `Date patient is either discharged or transfered out of the current psychiatric ward. This is not the same as the discharge date as defined by MAS. It is meaningful only as regards to the current ward.` CROSS-REFERENCE: `618.4^AOUT^MUMPS` `1)= S ^YSG("INP","AOUT",9999999-X,DA)=""` `2)= K ^YSG("INP","AOUT",9999999-X,DA)`
22	ADMISSION POINTER	7;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `APR 16, 1993` HELP-PROMPT: `Enter pointer DA"~"pointer DA, such as 38104~38221` DESCRIPTION: `The ADMISSION POINTER has two parts (PART ONE~PART TWO). Part one is the ^DGPM file's "DA" or pointer to the ADMISSION Patient Movement record. Part two which follows the "~" is the TRANSFER or DISCHARGE pointer to the` `^DGPM Patient Movement record or it is the pointer to the LAST Patient Movement record. Therefore, when the patient is initially admitted part one and part two are the same. This piece is set automatically by the` `package.`
23	CURRENT TEAM	7;4	POINTER TO MENTAL HEALTH TEAM FILE (#618.2)	MENTAL HEALTH TEAM(#618.2) LAST EDITED: `JAN 01, 1992` DESCRIPTION: `This is the current team assigned to work with the patient. When this field is blank this indicates that the patient was been transferred out of the ward or the patient was been discharged. The CURRENT TEAM field is used` `to activate the SET and KILL of the following cross-references: "CP", "AC", "ACP", "ACR" and "AWC".` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the TEAM field of the MENTAL HEALTH INPT File` CROSS-REFERENCE: `618.4^AWC^MUMPS` `1)= D ENTRY^YSCEN5` `2)= D LEAVE^YSCEN5`
500000	LAST PHYSICAL EXAM		COMPUTED	MUMPS CODE: `I $D(^MR(D1,"PE")) S X=$O(^MR(D1,"PE",0)),X=9999999-X,X=$$FMTE^XLFDT(X,"5ZD")` `9.2 = S Y(618.4,500000,80)=$S($D(D0):D0,1:""),Y(618.4,500000,1)=$S($D(^YSG("INP",D0,0)):^(0),1:""),D0=$P(Y(618.4,500000,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1` `9.3 = X ^DD(618.4,500000,9.2) S Y(618.4,500000,180)=$S($D(D0):D0,1:""),D0=D0 S:'$D(^MR(+D0,0)) D0=-1 S Y(618.4,500000,280)=$S($D(D0):D0,1:"")` `9.4 = X ^DD(618.4,500000,9.3) S Y(618.4,500000,201)=$S($D(^MR(D0,0)):^(0),1:""),D0=$P(Y(618.4,500000,201),U) S:'$D(^DPT(+D0,0)) D0=-1 S Y(618.4,500000,380)=$S($D(D0):D0,1:"")` `9.5 = X ^DD(618.4,500000,9.4) S Y(618.4,500000,381)=$S($D(D1):D1,1:""),Y(618.4,500000,301)=X,Y(618.4,500000,402)=""` `9.6 = X ^DD(618.4,500000,9.5) X "F D1=0:0 S D1=$O(^MR(I(200,0),""PE"",D1)) Q:D1="" S Y=$S($D(^(D1,0)):$P(^(0),U),1:"""") S:Y'?."" "" Y(618.4,500000,402)=Y" S D(1)=D1` ALGORITHM: `I $D(^MR(D1,"PE")) S X=$O(^MR(D1,"PE",0)),X=9999999-X,X=$$FMTE^XLFDT(X,"5ZD")` LAST EDITED: `NOV 30, 1992` DESCRIPTION: `This is a computed field (data is NOT stored by calculated).`

Name	Field # of Occurrence
^%DT	.01+1, 2+1, 10+1, 11+1, 21+1
^DIC	3+1
MIX^DIC1	5+1
^DICR	3(XREF 2n1.4)
Y^DIQ	ID3+1
$$FMTE^XLFDT	500000+1
CROSS^YSCEN5	3(XREF 1S)
ENTRY^YSCEN5	23(XREF 1S)
LEAVE^YSCEN5	23(XREF 1K)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	3(XREF 2n1.4)
^DD(618.2	ID3+1
^DD(618.4	3(XREF 2S), 500000OF9.3+1, 500000OF9.4+1, 500000OF9.5+1, 500000OF9.6+1
^DPT - [#2]	500000OF9.2+1, 500000OF9.4+1
^MR - [#90]	500000+1, 500000OF9.3+1, 500000OF9.4+1
^YSG("INP" - [#618.4]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3(XREF 2S), 3(XREF 2n1.4) , 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K), 21(XREF 1S), 21(XREF 1K), 500000OF9.2+1
^YSG("SUB" - [#618.2]	ID3+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 2+1, 10+1, 11+1, 21+1*
%I	ID3+1*!
>> C	ID3+1*
>> D	5+1*
>> D(1	500000OF9.6+1*
>> D0	3(XREF 2S), 500000OF9.2+1, 500000OF9.3+1, 500000OF9.4+1*
>> D1	500000+1, 500000OF9.5+1, 500000OF9.6+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3(XREF 2S), 4(XREF 1S) , 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K), 21(XREF 1S), 21(XREF 1K)
DIC	ID3+1, 3+1!*, 5+1!
DIC("S"	3+1, 3SCR+1, 5+1, 5SCR+1
>> DIE	3+1, 5+1*
>> DIG	3(XREF 2n1.4)
>> DIH	3(XREF 2n1.4)
>> DIU	3(XREF 2S)
DIV	3(XREF 2S), 3(XREF 2n1.4)
DIV(0	3(XREF 2S), 3(XREF 2n1.4)
U	ID3+1, 1(XREF 2S), 3(XREF 2S), 3(XREF 2n1.4), 4(XREF 1S), 5(XREF 1S), 6(XREF 1S), 500000OF9.2+1, 500000OF9.4+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2+1!, 2(XREF 1S), 2(XREF 1K) , 3+1!, 3(XREF 2S), 3(XREF 2n1.4), 4(XREF 1S), 4(XREF 1K), 5+1!, 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K) , 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 14.2+1!, 15+1!, 16+1!, 17+1! , 21+1!, 21(XREF 1S), 21(XREF 1K), 22+1!, 500000+1, 500000OF9.5+1
Y	ID3+1*, .01+1, 2+1, 3+1, 3(XREF 2S), 5+1, 10+1, 11+1, 21+1
Y(	500000OF9.2+1, 500000OF9.3+1, 500000OF9.4+1, 500000OF9.5+1
Y(1	3(XREF 2S)

Customize PDF page

Package: Mental Health

Global: ^YSG("INP"

Information

Description

Directly Accessed By Routines, Total: 10

Pointer To FileMan Files, Total: 4

Fields, Total: 26

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID3+1, 500000OF9.2+1, 500000OF9.4+1
^(7	3(XREF 2S), 3(XREF 2n1.4)