Global: ^RA(78.4

The names are specified by the rad/nuc med coordinator at each site and must be 3 to 30 characters in length.  They should be set up with unique first few characters to allow the technologist to use the first few

characters only to specify a film type.  This speeds up processing time when this field is used for exam status tracking.

For procedures which do not involve films, 'No Films' may be entered here.

For entries that indicate a 'wasted' film type, it is recommended that the name should begin with 'W.' or 'W-' to be easily recognized during case editing.  For example:  '10x14' and 'W-10x14' would both be entered, and

W-10x14 would be the 'wasted' film type.  When editing the 'W-10x14 entry, you would answer 'Yes' at the 'Wasted Film?' prompt and enter '10x14' at the 'Analogous Unwasted Film Size' prompt.  When editing the '10x14'

entry, answer 'No' at the 'Wasted Film?' prompt and you will not be prompted for 'Analogous Unwasted Film Size'.

SOURCE OF DATA:   RAD/NUC MED COORDINATOR

1)= S ^RA(78.4,"B",$E(X,1,30),DA)=""

2)= K ^RA(78.4,"B",$E(X,1,30),DA)

Regular 'B' cross reference assigned by FileMan.

If this field contains a 'Yes', it indicates that this is cine feet film type.  The system uses this information in compiling the AMIS reports and the Film Usage Reports.

SOURCE OF DATA:   RAD/NUC MED COORDINATOR

If this field contains a 'Yes', exams for which this is entered as the film size are assumed to be 'Fluoro Only', not requiring the use of films.

SOURCE OF DATA:   RAD/NUC MED COORDINATOR

Enter a date if this film size becomes inactive or is no longer needed.

This field indicates that this film will be considered a wasted film type and will be included on the 'Wasted Film report'.

1)= S ^RA(78.4,"AW",$E(X,1,30),DA)=""

2)= K ^RA(78.4,"AW",$E(X,1,30),DA)

Non-lookup cross reference to quickly identify wasted film.

1)= Q

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RA(78.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$S($D(^RA(78.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=78.4,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,

0))>0

3)= Do not delete.

CREATE VALUE)= NO EFFECT

DELETE VALUE)= @

FIELD)= ANALOGOUS UNWASTED FILM SIZE

Upon deletion, the 'Analogous Unwasted Film Size' field is purged.  No action is taken when this field is populated.

Identifies a corresponding film size which is not wasted.

Warning: This field should only be populated iff the 'Wasted Film' field is set to 'Yes'.  If the 'Wasted Film' field is 'null', the 'Analogous Unwasted Film Size' field should be set to 'null'.

1)= S ^RA(78.4,"AUW",$E(X,1,30),DA)=""

2)= K ^RA(78.4,"AUW",$E(X,1,30),DA)

3)= Do not delete.

This cross reference will prevent the user from changing all films populating the 'Analogous Unwasted Film Size' field into a 'Wasted Film Size'.  A screen will be placed in the 'Wasted Film' field.