Sub-Field: 70.09

Parent File	Name	Number	Package
70.03	SECONDARY INTERPRET'G RESIDENT	70.09	Radiology Nuclear Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SECONDARY INTERPRET'G RESIDENT	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$SCRN^RAUTL8(.DA,""R"",+Y,""SEC""),$$S^RAUTL8" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 28, 1997` HELP-PROMPT: `Enter name of resident who is NOT the Primary Interpreting Resident and NOT a Secondary Interpreting Resident whose name has already been entered.` DESCRIPTION: `This field points to the "NEW PERSON" file (#200) to indicate the names of other Residents in addition to the Primary Interpreting Resident who interpreted the images of this exam. Secondary Interpreting` `Residents cannot be the same as the Primary Interpreting Resident, must have resident classification, and must have access to at least one imaging location with an imaging type matching that of the exam.` SCREEN: `S DIC("S")="I $$SCRN^RAUTL8(.DA,""R"",+Y,""SEC""),$$S^RAUTL8"` EXPLANATION: `Only active interpreting resident physicians may be selected` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `70^ARES^MUMPS` `1)= S RADA=$P(^RADPT(DA(3),"DT",DA(2),"P",DA(1),0),"^",17) I RADA K RAKILL S RASET="",RAXREF="ARES",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)="V":0,1:1) XREF1^RAUTL2 K RASET,RAXREF,RARAD` `2)= S RADA=$P(^RADPT(DA(3),"DT",DA(2),"P",DA(1),0),"^",17) I RADA K RASET S RAKILL="",RAXREF="ARES",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)="V":0,1:1) XREF1^RAUTL2 K RAKILL,RAXREF,RARAD` `This cross reference sets the 'ARES' cross reference used during the on-line verification process to determine the reports that a specific interpreting resident needs to verify.` CROSS-REFERENCE: `70.09^B` `1)= S ^RADPT(DA(3),"DT",DA(2),"P",DA(1),"SRR","B",$E(X,1,30),DA)=""` `2)= K ^RADPT(DA(3),"DT",DA(2),"P",DA(1),"SRR","B",$E(X,1,30),DA)` `3)= DO NOT DELETE` `Regular B cross-reference used for look-up.`

.01

SECONDARY INTERPRET'G RESIDENT

0;1

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

INPUT TRANSFORM: S DIC("S")="I $$SCRN^RAUTL8(.DA,""R"",+Y,""SEC""),$$S^RAUTL8" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 28, 1997
HELP-PROMPT: Enter name of resident who is NOT the Primary Interpreting Resident and NOT a Secondary Interpreting Resident whose name has already been entered.
DESCRIPTION: This field points to the "NEW PERSON" file (#200) to indicate the names of other Residents in addition to the Primary Interpreting Resident who interpreted the images of this exam. Secondary Interpreting
Residents cannot be the same as the Primary Interpreting Resident, must have resident classification, and must have access to at least one imaging location with an imaging type matching that of the exam.
SCREEN: S DIC("S")="I $$SCRN^RAUTL8(.DA,""R"",+Y,""SEC""),$$S^RAUTL8"
EXPLANATION: Only active interpreting resident physicians may be selected
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 70^ARES^MUMPS
1)= S RADA=$P(^RADPT(DA(3),"DT",DA(2),"P",DA(1),0),"^",17) I RADA K RAKILL S RASET="",RAXREF="ARES",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)="V":0,1:1) XREF1^RAUTL2 K RASET,RAXREF,RARAD
2)= S RADA=$P(^RADPT(DA(3),"DT",DA(2),"P",DA(1),0),"^",17) I RADA K RASET S RAKILL="",RAXREF="ARES",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)="V":0,1:1) XREF1^RAUTL2 K RAKILL,RAXREF,RARAD
This cross reference sets the 'ARES' cross reference used during the on-line verification process to determine the reports that a specific interpreting resident needs to verify.
CROSS-REFERENCE: 70.09^B
1)= S ^RADPT(DA(3),"DT",DA(2),"P",DA(1),"SRR","B",$E(X,1,30),DA)=""
2)= K ^RADPT(DA(3),"DT",DA(2),"P",DA(1),"SRR","B",$E(X,1,30),DA)
3)= DO NOT DELETE
Regular B cross-reference used for look-up.

Customize PDF page

Package: Radiology Nuclear Medicine

RAD/NUC MED PATIENT(#70)-->70.02-->70.03-->70.09

Sub-Field: 70.09

Information

Details