Sub-Field: 9001040.1627

Parent File	Name	Number	Package
PCC PATIENT EDUCATION DUPLICATE DELETES(#9001040.16)	LOINC CODES	9001040.1627	Patient Care Component

Parent File

Name

Number

Package

LOINC CODES

9001040.1627

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LOINC ODES	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 26, 2013` HELP-PROMPT: `Answer must be 1-30 characters in length.` CROSS-REFERENCE: `9001040.1627^B` 1)= S ^APCDVPED(DA(1),27,"B",$E(X,1,30),DA)="" 2)= K ^APCDVPED(DA(1),27,"B",$E(X,1,30),DA)
.019	LOINC TEXT		COMPUTED	MUMPS CODE: `N DIT S DIT(1)=$S($D(^APCDVPED(D0,27,D1,0)):^(0),1:"") S X=$P(DIT(1),U,1),X=$$LOINCPT^AUPNVUTL(X)` ALGORITHM: `AUPNLOINCPT(#.01)` LAST EDITED: `MAY 06, 2013`

LOINC ODES

0;1

FREE TEXT

CROSS-REFERENCE: 9001040.1627^B

1)= S ^APCDVPED(DA(1),27,"B",$E(X,1,30),DA)=""

2)= K ^APCDVPED(DA(1),27,"B",$E(X,1,30),DA)

LOINC TEXT

COMPUTED

MUMPS CODE: N DIT S DIT(1)=$S($D(^APCDVPED(D0,27,D1,0)):^(0),1:"") S X=$P(DIT(1),U,1),X=$$LOINCPT^AUPNVUTL(X)
ALGORITHM: AUPNLOINCPT(#.01)
LAST EDITED: MAY 06, 2013