Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^RA(78.4

Package: Radiology Nuclear Medicine

Global: ^RA(78.4


Information

FileMan FileNo FileMan Filename Package
78.4 FILM SIZES Radiology Nuclear Medicine

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Radiology Nuclear Medicine 11 ^RA(78.4    RACTRG8    RAFLM    RAFLM1    RAMAIN    RAMAIN1    RAMIS    RAORD61
RAPROD    RAWFR2    RAWFR3    
IHS Mods To Radiology Nuclear Medicine 1 BRARPT4    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Radiology Nuclear Medicine 2 RAMAIN    RAMAINP    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Radiology Nuclear Medicine 3 FILM SIZES(#78.4)[6]    RAD/NUC MED PATIENT(#70)[#70.04(.01)]    RAD/NUC MED PROCEDURES(#71)[#71.02(.01)]    

Pointer To FileMan Files, Total: 1

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.

External References

Name Field # of Occurrence
^%DT 4+1
^DIC 6+1
^DICR 5(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 5(XREF 2K)
^RA(78.4 - [#78.4] .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2K), 6(XREF 1S), 6(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 5(XREF 2K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 4+1*
>> D0 5(XREF 2K)
>> DA .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2K), 6(XREF 1S), 6(XREF 1K)
DIC 6+1!*
DIC("S" 5SCR+1*, 6+1*, 6SCR+1*
>> DIE 6+1
>> DIG 5(XREF 2K)
>> DIH 5(XREF 2K)
>> DIU 5(XREF 2K)
DIV 5(XREF 2K)
DIV(0 5(XREF 2K)
U 5(XREF 2K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 4+1*!, 5(XREF 1S), 5(XREF 1K), 5(XREF 2K), 6+1*!, 6(XREF 1S), 6(XREF 1K)
Y 4+1, 5(XREF 2K), 6+1
Y(1 5(XREF 2K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All