Global: ^RA(78.4

FileMan FileNo	FileMan Filename	Package
78.4	FILM SIZES	Radiology Nuclear Medicine

FileMan FileNo

FileMan Filename

Package

78.4

FILM SIZES

Radiology Nuclear Medicine

Description

This file contains the allowable film sizes that the technologist can choose from when s/he enters film data for an exam. If possible, it is a good idea to assign film types names that have unique characters at the beginning. If the first few characters are not unique, then the technologist will always have to respond to another 'Select' prompt when entering only the first few characters. To avoid this second prompt, the technologist will have to enter many characters. Entries in this file should not be deleted. Adding new entries is always allowed. Data Storage ------------ The data for the FILM SIZES file is stored in the ^RA(78.4, global. At the present time this file is very static after day-one initialization is complete. However, it still should be journaled. It should also be translated if the operating system supports this function. Input Templates --------------- The package does not use any input templates associated with this file. Print Templates --------------- The package does not use any print templates associated with this file. Sort Templates -------------- The package does not use any sort templates associated with this file. APPLICATION GROUP(S): RA

Package	Total	Routines
Radiology Nuclear Medicine	2	RAMAIN RAMAINP

Package	Total	FileMan Files
Radiology Nuclear Medicine	4	FILM SIZES(#78.4)[6] RAD/NUC MED PATIENT(#70)[#70.04(.01)] RAD/NUC MED PROCEDURES(#71)[#71.02(.01)] NEW RAD PROCEDURE WORKUP(#71.11)[#71.1102(.01)]
Imaging	2	IMAGING SITE PARAMETERS(#2006.1)[301] DICOM GATEWAY PARAMETER(#2006.563)[126]

Package	Total	FileMan Files
Radiology Nuclear Medicine	1	FILM SIZES(#78.4)[6]

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	FILM	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `SEP 03, 1984` HELP-PROMPT: `Enter a name for a type of film, between 3 and 30 characters in length.` DESCRIPTION: `This field contains the names of the types of films that the hospital uses in performing rad/nuc med exams.` `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'.` DELETE TEST: `1,0)= I 1 W *7,!,"Film Sizes can not be deleted"` `SOURCE OF DATA: RAD/NUC MED COORDINATOR` CROSS-REFERENCE: `78.4^B` `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.`
2	IS THIS A 'CINE' FILM SIZE?	0;2	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 11, 1985` HELP-PROMPT: `Enter 'Y'es if this is a cine film type.` DESCRIPTION: `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`
3	FLUORO ONLY?	0;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `DEC 22, 1994` HELP-PROMPT: `A 'YES' in this field means film was not required; it was fluoro only.` DESCRIPTION: `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`
4	INACTIVATION DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 08, 1991` HELP-PROMPT: `This is the date that this film size was inactivated.` DESCRIPTION: `Enter a date if this film size becomes inactive or is no longer needed.`
5	WASTED FILM?	0;4	SET	'1' FOR YES; LAST EDITED: `JAN 27, 1994` HELP-PROMPT: `Enter 'Yes' if this is a wasted film type.` DESCRIPTION: `This field indicates that this film will be considered a wasted film type and will be included on the 'Wasted Film report'.` SCREEN: `S DIC("S")="I '$D(^RA(78.4,""AUW"",D0))"` EXPLANATION: `'Yes' is not allowed for this entry if it has been selected as the Analogous Unwasted Film for another film size.` CROSS-REFERENCE: `78.4^AW` `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.` CROSS-REFERENCE: `^^TRIGGER^78.4^6` `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.`
6	ANALOGOUS UNWASTED FILM SIZE	0;5	POINTER TO FILM SIZES FILE (#78.4)	FILM SIZES(#78.4) INPUT TRANSFORM: `S DIC("S")="I $D(^RA(78.4,""AW"",1,D0)),('$D(^RA(78.4,""AW"",1,+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 13, 1994` HELP-PROMPT: `Enter the corresponding film size which is not deemed wasted.` DESCRIPTION: `Identifies a corresponding film size which is not wasted.` TECHNICAL DESCR: `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'.` SCREEN: `S DIC("S")="I $D(^RA(78.4,""AW"",1,D0)),('$D(^RA(78.4,""AW"",1,+Y)))"` EXPLANATION: `The selection process of an unwasted film choice will only occur when the 'Wasted Film' field is set to 'Yes'.` NOTES: `TRIGGERED by the WASTED FILM? field of the FILM SIZES File` CROSS-REFERENCE: `78.4^AUW` `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.`

Customize PDF page

Package: Radiology Nuclear Medicine

Global: ^RA(78.4

Information

Description

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 1

Fields, Total: 6