Sub-Field: 691.56

Parent File	Name	Number	Package
ELECTROCARDIOGRAM (EKG)(#691.5)	INTERPRETATION CODE (PACING)	691.56	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INTERPRETATION CODE (PACING)	0;1	POINTER TO ECG INTERPRETATION FILE (#693.3)	ECG INTERPRETATION(#693.3) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 25, 1987` HELP-PROMPT: `Enter pacing interpretation code.` DESCRIPTION: `This allows the user to enter multiple pacing interpretation codes.` SCREEN: `S DIC("S")="I $P(^(0),U,3)=""P"""` EXPLANATION: `SCREEN FOR PACING` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `691.56^B` `1)= S ^MCAR(691.5,DA(1),6,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.5,DA(1),6,"B",$E(X,1,30),DA)`
1	CODE MODIFIER	0;2	SET	'1' FOR DEFINITE; '2' FOR PROBABLE; '3' FOR POSSIBLE; '4' FOR BORDERLINE; '5' FOR CONSIDER; '6' FOR CHANGES OR SERIAL; LAST EDITED: `JUN 25, 1987` HELP-PROMPT: `Enter interpretation code (pacing).` DESCRIPTION: `This allows the user to describe the type of interpretation code (pacing).`

INTERPRETATION CODE (PACING)

0;1

POINTER TO ECG INTERPRETATION FILE (#693.3)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter pacing interpretation code.
DESCRIPTION:
This allows the user to enter multiple pacing interpretation codes.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""P"""
EXPLANATION: SCREEN FOR PACING
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.56^B
1)= S ^MCAR(691.5,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),6,"B",$E(X,1,30),DA)

CODE MODIFIER

0;2

SET

LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter interpretation code (pacing).
DESCRIPTION:
This allows the user to describe the type of interpretation code (pacing).