Sub-Field: 71.05

Parent File	Name	Number	Package
RAD/NUC MED PROCEDURES(#71)	DESCENDENTS	71.05	Radiology Nuclear Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DESCENDENTS	0;1	POINTER TO RAD/NUC MED PROCEDURES FILE (#71)	RAD/NUC MED PROCEDURES(#71) INPUT TRANSFORM: `S DIC("S")="I $$DESC^RAUTL17(D0,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 14, 1995` HELP-PROMPT: `Enter a procedure name which is related to the parent procedure.` DESCRIPTION: `This field links related procedures to one parent procedure. When a parent procedure is ordered, its descendents are registered during the registration function.` SCREEN: `S DIC("S")="I $$DESC^RAUTL17(D0,+Y)"` EXPLANATION: `Select only active detailed or series procedures of the same imaging type as the parent.` DELETE TEST: `1,0)= I $$DELDESC^RADD3(.DA)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `71.05^B` `1)= S ^RAMIS(71,DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^RAMIS(71,DA(1),4,"B",$E(X,1,30),DA)` `3)= DO NOT DELETE` `Regular B cross-reference used for look-up.` CROSS-REFERENCE: `71^ADESC` `1)= S ^RAMIS(71,"ADESC",$E(X,1,30),DA(1),DA)=""` `2)= K ^RAMIS(71,"ADESC",$E(X,1,30),DA(1),DA)` `3)= Do not delete.` `This cross reference is used to find a descendent's parent procedure.`

DESCENDENTS

0;1

POINTER TO RAD/NUC MED PROCEDURES FILE (#71)

INPUT TRANSFORM: S DIC("S")="I $$DESC^RAUTL17(D0,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 14, 1995
HELP-PROMPT: Enter a procedure name which is related to the parent procedure.
DESCRIPTION:
This field links related procedures to one parent procedure. When a parent procedure is ordered, its descendents are registered during the registration function.
SCREEN: S DIC("S")="I $$DESC^RAUTL17(D0,+Y)"
EXPLANATION: Select only active detailed or series procedures of the same imaging type as the parent.
DELETE TEST: 1,0)= I $$DELDESC^RADD3(.DA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 71.05^B
1)= S ^RAMIS(71,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^RAMIS(71,DA(1),4,"B",$E(X,1,30),DA)
3)= DO NOT DELETE
Regular B cross-reference used for look-up.
CROSS-REFERENCE: 71^ADESC
1)= S ^RAMIS(71,"ADESC",$E(X,1,30),DA(1),DA)=""
2)= K ^RAMIS(71,"ADESC",$E(X,1,30),DA(1),DA)
3)= Do not delete.
This cross reference is used to find a descendent's parent procedure.