Sub-Field: 70.12

Parent File	Name	Number	Package
70.03	TECHNOLOGIST	70.12	Radiology Nuclear Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TECHNOLOGIST	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,+Y,""RAC"")),$S('$D(^VA(200,+Y,""RA"")):1,'$P(^(""RA""),U,3):1,DT'>$P(^(""RA""),U,3):1,1:0),$D(^VA(200,""ARC"",""T"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 07, 1994` HELP-PROMPT: `Enter the name of the technologist who performed this exam.` DESCRIPTION: This field points to the 'NEW PERSON' file (#200) to indicate the technologists who performed this exam. SCREEN: `S DIC("S")="I $D(^VA(200,+Y,""RAC"")),$S('$D(^VA(200,+Y,""RA"")):1,'$P(^(""RA""),U,3):1,DT'>$P(^(""RA""),U,3):1,1:0),$D(^VA(200,""ARC"",""T"",+Y))"` EXPLANATION: `Only active rad/nuc med users classified as technologists may be selected.` SOURCE OF DATA:TECHNOLOGIST NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

TECHNOLOGIST

0;1

POINTER TO NEW PERSON FILE (#200)

INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,+Y,""RAC"")),$S('$D(^VA(200,+Y,""RA"")):1,'$P(^(""RA""),U,3):1,DT'>$P(^(""RA""),U,3):1,1:0),$D(^VA(200,""ARC"",""T"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 07, 1994
HELP-PROMPT: Enter the name of the technologist who performed this exam.

DESCRIPTION:

This field points to the 'NEW PERSON' file (#200) to indicate the technologists who performed this exam.

SCREEN: S DIC("S")="I $D(^VA(200,+Y,""RAC"")),$S('$D(^VA(200,+Y,""RA"")):1,'$P(^(""RA""),U,3):1,DT'>$P(^(""RA""),U,3):1,1:0),$D(^VA(200,""ARC"",""T"",+Y))"
EXPLANATION: Only active rad/nuc med users classified as technologists may be selected.
```
SOURCE OF DATA:TECHNOLOGIST
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER