Sub-Field: 216.81

Parent File	Name	Number	Package
NURS CARE PLAN(#216.8)	NURSING PROBLEM LIST	216.81	Nursing Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROBLEM	0;1	POINTER TO AGGREGATE TERM FILE (#124.2)	AGGREGATE TERM(#124.2) INPUT TRANSFORM: `S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 27, 1989` DESCRIPTION: A particular problem for this nursing care plan or patient plan of care. SCREEN: `S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))"` EXPLANATION: `Select only patient problems that have been chosen for this nursing care plan or patient plan of care.` CROSS-REFERENCE: `216.81^B` 1)= S ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA)="" 2)= K ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA) This is the main cross-reference on the problem field.

PROBLEM

0;1

POINTER TO AGGREGATE TERM FILE (#124.2)

INPUT TRANSFORM: S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 27, 1989

DESCRIPTION:

A particular problem for this nursing care plan or patient plan of care.

SCREEN: S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))"
EXPLANATION: Select only patient problems that have been chosen for this nursing care plan or patient plan of care.

CROSS-REFERENCE: 216.81^B

1)= S ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA)=""

2)= K ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA)

This is the main cross-reference on the problem field.