Sub-Field: 618.418

Parent File	Name	Number	Package
MENTAL HEALTH INPT(#618.4)	INPATIENT COMMENTS	618.418	Mental Health

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INPATIENT COMMENT DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETSXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 01, 1992` DESCRIPTION: `DATE and TIME the INPATIENT COMMENT was entered.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `618.418^AB^MUMPS` `1)= S ^YSG("INP",DA(1),"AB",9999999-X,DA)=""` `2)= K ^YSG("INP",DA(1),"AB",9999999-X,DA)`
1	ENTERED BY	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 01, 1992` DESCRIPTION: `Name of person who entered the comment. Actually stored is the pointer value pointing to the NEW PERSON file #200.`
2	COMMENT	1;0	WORD-PROCESSING #618.4182	DESCRIPTION: `The actual comment(s) concerning the patient. This is a word processing field.` LAST EDITED: `JAN 01, 1992`

INPATIENT COMMENT DATE/TIME

0;1

DATE

************************REQUIRED FIELD************************

INPUT TRANSFORM: S %DT="ETSXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 01, 1992
DESCRIPTION:
DATE and TIME the INPATIENT COMMENT was entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 618.418^AB^MUMPS
1)= S ^YSG("INP",DA(1),"AB",9999999-X,DA)=""
2)= K ^YSG("INP",DA(1),"AB",9999999-X,DA)

ENTERED BY

0;2

POINTER TO NEW PERSON FILE (#200)

************************REQUIRED FIELD************************

LAST EDITED: JAN 01, 1992
DESCRIPTION:
Name of person who entered the comment. Actually stored is the pointer value pointing to the NEW PERSON file #200.

COMMENT

1;0

WORD-PROCESSING #618.4182

DESCRIPTION:
The actual comment(s) concerning the patient. This is a word processing field.
LAST EDITED: JAN 01, 1992