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

Print Page as PDF

Sub-Field: 115.701

Package: Dietetics

DIETETIC ENCOUNTERS(#115.7)-->115.701

Sub-Field: 115.701

Information

Parent File	Name	Number	Package
DIETETIC ENCOUNTERS(#115.7)	PATIENT	115.701	Dietetics

Details

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	PATIENT(#2) INPUT TRANSFORM: `I $D(X) S DINUM=X` LAST EDITED: `NOV 13, 1989` DESCRIPTION: `This field contains a pointer to the Patient file (2) and indicates a patient involved in the encounter.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `115.701^B` `1)= S ^FHEN(DA(1),"P","B",$E(X,1,30),DA)=""` `2)= K ^FHEN(DA(1),"P","B",$E(X,1,30),DA)` `This is the normal B cross-reference of the PATIENT field.` CROSS-REFERENCE: `115.7^AP^MUMPS` `1)= S X1=$P(^FHEN(DA(1),0),"^",2) S:X1 ^FHEN("AP",X,X1,DA(1))=""` `2)= S X1=$P(^FHEN(DA(1),0),"^",2) K:X1 ^FHEN("AP",X,X1,DA(1))` `This cross-reference creates an 'AP' node of a patient by date/time cross-reference.`
1	LOCATION	0;2	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUL 19, 1989` DESCRIPTION: `This field contains a pointer to the Hospital Location (file 44) for the patient. It is the patient location rather than the event location.`
2	# COLLATERALS	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 07, 1989` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits` DESCRIPTION: `This field contains the number of collaterals seen with the patient.`
3	PATIENT COMMENT	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `NOV 07, 1989` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `This field may be used for a patient-specific comment concerning the encounter.`