Sub-Field: 71.1102

Parent File	Name	Number	Package
NEW RAD PROCEDURE WORKUP(#71.11)	FILMS NEEDED	71.1102	Radiology Nuclear Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	FILM TYPE	0;1	POINTER TO FILM SIZES FILE (#78.4)	FILM SIZES(#78.4) INPUT TRANSFORM: `S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),('$D(^RA(78.4,""AW"",1,+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 18, 2016` HELP-PROMPT: `For those frequently performed procedures, enter a film type.` DESCRIPTION: `This field contains a default value of the type of film (from the Film Sizes File) usually needed for this procedure.` SCREEN: `S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),('$D(^RA(78.4,""AW"",1,+Y)))"` EXPLANATION: `Only active non wasted film types are selectable.` CROSS-REFERENCE: `71.1102^B` `1)= S ^RAMRPF(71.11,DA(1),"F","B",$E(X,1,30),DA)=""` `2)= K ^RAMRPF(71.11,DA(1),"F","B",$E(X,1,30),DA)`

FILM TYPE

0;1

POINTER TO FILM SIZES FILE (#78.4)

INPUT TRANSFORM: S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),('$D(^RA(78.4,""AW"",1,+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 18, 2016
HELP-PROMPT: For those frequently performed procedures, enter a film type.
DESCRIPTION:
This field contains a default value of the type of film (from the Film Sizes File) usually needed for this procedure.
SCREEN: S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),('$D(^RA(78.4,""AW"",1,+Y)))"
EXPLANATION: Only active non wasted film types are selectable.
CROSS-REFERENCE: 71.1102^B
1)= S ^RAMRPF(71.11,DA(1),"F","B",$E(X,1,30),DA)=""
2)= K ^RAMRPF(71.11,DA(1),"F","B",$E(X,1,30),DA)