Sub-Field: 694.586

Parent File	Name	Number	Package
CARDIAC SURGERY RISK ASSESSMENT(#694.5)	OTHER PROCEDURE(S)	694.586	Medicine

Parent File

Name

Number

Package

OTHER PROCEDURE(S)

694.586

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	OTHER PROCEDURE(S)	0;1	POINTER TO DIAG/THERAP INTERVENT FILE (#699.6)	DIAG/THERAP INTERVENT(#699.6) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(699.6,""D"",""S"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 30, 1989` HELP-PROMPT: `Enter an appropriate intervention code.` DESCRIPTION: `This allows the user to enter information about other procedures.` SCREEN: `S DIC("S")="I $D(^MCAR(699.6,""D"",""S"",+Y))"` EXPLANATION: `CHOOSES ALLOWABLE PROCEDURES FOR REPORT` CROSS-REFERENCE: `694.586^B` `1)= S ^MCAR(694.5,DA(1),11,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(694.5,DA(1),11,"B",$E(X,1,30),DA)`

OTHER PROCEDURE(S)

0;1

POINTER TO DIAG/THERAP INTERVENT FILE (#699.6)

INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(699.6,""D"",""S"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 30, 1989
HELP-PROMPT: Enter an appropriate intervention code.
DESCRIPTION:
This allows the user to enter information about other procedures.
SCREEN: S DIC("S")="I $D(^MCAR(699.6,""D"",""S"",+Y))"
EXPLANATION: CHOOSES ALLOWABLE PROCEDURES FOR REPORT
CROSS-REFERENCE: 694.586^B
1)= S ^MCAR(694.5,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(694.5,DA(1),11,"B",$E(X,1,30),DA)