Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 70.03

Package: Radiology Nuclear Medicine

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

Sub-Field: 70.03


Information

Parent File Name Number Package
70.02 EXAMINATIONS 70.03 Radiology Nuclear Medicine

Details

Field # Name Loc Type Details
.01 CASE NUMBER 0;1 NUMBER

  • INPUT TRANSFORM:  X ^DD(70.03,.01,9.2) I $D(X) S RASET=1 D CN^RAREG1 I $D(X) W:'$D(RAOVER) !!?4,"Case Number: ",X,!?4,"----------------"
    9.2 = S RADT=$P($P(^RADPT(DA(2),"DT",DA(1),0),U),"."),RATYPE=+$O(^RA(79.2,"B","GENERAL RADIOLOGY",0)) I '$D(^RA(79.2,RATYPE,0)) K RADT,RATYPE,X D EN^DDIOL("Type of imaging is not defined in file 79.2.","","!")
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  This field contains the computer generated case number of this exam.
  • DESCRIPTION:  This field contains the computer generated case number of this Imaging exam. The case number is used to quickly track and call up the exam as it is processed through the Rad/Nuc Med system. The case numbers are
    generated by the system in sequential order.
    NOTE: Case numbers are not allowed to exceed 99,999.
  • EXECUTABLE HELP:  S RADT=$P($P(^RADPT(DA(2),"DT",DA(1),0),U),"."),RASET=0,RATYPE=+$O(^RA(79.2,"B","GENERAL RADIOLOGY",0)) D:'$D(^RA(79.2,RATYPE,0)) EN^DDIOL("Img.Typ. undef!","","!") I $D(^(0)) D CN^RAREG1 D EN^DDIOL("NEW case# this dt mu
    st = '"_X_"'.","","!")
    SOURCE OF DATA:SYSTEM GENERATED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  70.03^B
    1)= S ^RADPT(DA(2),"DT",DA(1),"P","B",$E(X,1,30),DA)=""
    2)= K ^RADPT(DA(2),"DT",DA(1),"P","B",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Regular B cross-reference used for look-up by case number.
  • CROSS-REFERENCE:  70.03^ABLTN^MUMPS
    1)= Q
    2)= D:$D(RABULL) ^RABUL1 Q
    3)= Do not delete.
    This mumps cross-reference will act like a bulletin cross-reference. The delete logic executes the RABUL1 routine. This routine will send a bulletin to the RAD/NUC MED EXAM DELETED mail group when an exam is
    deleted.
  • CROSS-REFERENCE:  70^ADC^MUMPS
    1)= S ^RADPT("ADC",$E(+^RADPT(DA(2),"DT",DA(1),0),4,7)_$E(+^(0),2,3)_"-"_X,DA(2),DA(1),DA)=""
    2)= K ^RADPT("ADC",$E(+^RADPT(DA(2),"DT",DA(1),0),4,7)_$E(+^(0),2,3)_"-"_X,DA(2),DA(1),DA)
    This is the date (MMDDYY) - CASE # cross reference.
1.1 RADIATION ABSORBED DOSE 1;1 POINTER TO RADIATION ABSORBED DOSE FILE (#70.3) RADIATION ABSORBED DOSE(#70.3)

  • LAST EDITED:  MAY 14, 2015
  • HELP-PROMPT:  Enter the patient whose radiation absorbed dosage record is a result of this study.
  • DESCRIPTION:  This field references the radiation absorbed record associated with this study. Please refer to the Radiology/Nuclear Medicine User Manual for information concerning the modalities involved in the radiation absorbed dose
    collection.
  • FIELD INDEX:  EDM (#1476) REGULAR IR LOOKUP & SORTING WHOLE FILE (#70)
    Short Descr: 'EDM' - helps lookup patients with radiation exposure.
    Description: The 'EDM' cross reference will be used to identify patient care events that exposed the patient to radiation. This cross reference increase the efficiency of patient lookups on radiation dose based reports.
    Variable definitions:
    ---------------------
    X(2): Is the DFN of the patient record in the PATIENT (#2) file.
    DA(2): Is also the DFN of the patient record in the PATIENT (#2) file.
    DA(1): This value is the record number of the exam date in the REGISTERED EXAMS (#70.02) sub-file.
    The value is the inverse date/time of the examination.
    value is calculated as follows:
    9999999.9999 - ("minus") FileMan internal date/time format.
    Example: 9999999.9999-3140210.1236=6859789.8763
    DA(1)=6859789.8763
    DA: The record number of the study (EXAMINATIONS (#70.03) sub-file)
    The result is a cross reference defined as follows: ^RADPT("EDM",76,76,6868885.8551,1)
    This cross reference can be now used in a lookup screen to speed up the lookup for patients with a radiation dose record.
    Set Logic: S ^RADPT("EDM",X(2),DA(2),DA(1),DA)=""
    Set Cond: S X=X(1)]""
    Kill Logic: K ^RADPT("EDM",X(2),DA(2),DA(1),DA)
    Kill Cond: S X=X(1)]""
    Whole Kill: K ^RADPT("EDM")
    X(1): RADIATION ABSORBED DOSE (70.03,1.1) (forwards)
    X(2): Computed Code: S X=DA(2)
    (Subscr 1)
2 PROCEDURE 0;2 POINTER TO RAD/NUC MED PROCEDURES FILE (#71) RAD/NUC MED PROCEDURES(#71)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTC^RACPTCSV" X ^DD(70.03,2,9.2)
    9.2 = D ^DIC X:X=" " ^DD(70.03,2,9.3) S:X=" " Y=-1 K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) PRC^RAUTL8
    9.3 = D EN^DDIOL("Spacebar return feature not allowed!","","!?5")
  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Enter the name of the procedure.
  • DESCRIPTION:  This field points to the 'RAD/NUC MED PROCEDURES' file (#71) to indicate the Imaging procedure associated with this case number.
    ALLOWABLE WAYS TO ENTER THE IMAGING PROCEDURE FOR THIS CASE NUMBER:
    ---------------------------------------------------------------------
    -Name of procedure
    -CPT Code
    -Site specific synonym
  • SCREEN:  S DIC("S")="I $$ACTC^RACPTCSV"
  • EXPLANATION:  Only active procedures allowed, imaging type of exam should be same as procedure, contrast media use must be OK'd if previous adverse reaction on record.
    SOURCE OF DATA:RECEPTIONIST
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  70.02^AP
    1)= S ^RADPT(DA(2),"DT","AP",$E(X,1,30),DA(1),DA)=""
    2)= K ^RADPT(DA(2),"DT","AP",$E(X,1,30),DA(1),DA)
    Used to screen duplicate entries at the time of entry.
  • CROSS-REFERENCE:  70.03^AW^MUMPS
    1)= Q
    2)= D DW^RACPTMSC
    Whenever the PROCEDURE is changed, we need to delete all its former CPT Modifiers and warn of any existing Procedure Modifiers.
  • RECORD INDEXES:  ACR (#475) (WHOLE FILE #70)
3 EXAM STATUS 0;3 POINTER TO EXAMINATION STATUS FILE (#72)
************************REQUIRED FIELD************************
EXAMINATION STATUS(#72)

  • INPUT TRANSFORM:  S DIC("S")="N RAIMGTY S RAIMGTY=+$P($G(^RADPT(DA(2),""DT"",DA(1),0)),U,2) I $P(^RA(72,+Y,0),U,7)=RAIMGTY" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D ^RASTREQ:'$D(RAOVER)&($D(X))
  • LAST EDITED:  APR 12, 2018
  • HELP-PROMPT:  Select the appropriate Exam Status.
  • DESCRIPTION:  This field points to the 'EXAMINATION STATUS' file (#72) to indicate the current status of this Imaging exam. The status is determined and updated by the system according to the information entered during the various data
    entry processes.
  • TECHNICAL DESCR:  
    'EXAM STATUS' has been updated with the release of RA*5.0*124. Prior to patch 124 the "AS" and "AE" cross references (xrefs) were traditional style xrefs with M code in their specific SET and KILL logic. The "AS" xref
    utilized the 9.2 (overflow node) to execute M code.
    With the release of patch 124, the traditional xref structure for the "AS" & "AE" has been replaced with 'new style' xref structure.
    Note: The first numeric subscript of the "AE" xref is the CASE NUMBER (70.03;.01). Since the .01 field cannot be changed because of business rules, the "AE" xref does not have set/kill logic in the CASE NUMBER field.
    The first numeric subscript of the "AS" xref is the EXAMINATION STATUS IEN (70.03;3).
  • SCREEN:  S DIC("S")="N RAIMGTY S RAIMGTY=+$P($G(^RADPT(DA(2),""DT"",DA(1),0)),U,2) I $P(^RA(72,+Y,0),U,7)=RAIMGTY"
  • EXPLANATION:  Choose only those Exam statuses that have the same Imaging Type of our Registered Exam.
  • EXECUTABLE HELP:  D HELP^RASTREQ
    SOURCE OF DATA:SYSTEM DETERMINED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AE (#1534) MUMPS IR SORTING ONLY WHOLE FILE (#70)
    Short Descr: This cross reference is used to lookup exams that are active/incomplete.
    Description: This cross reference executed for the EXAM STATUS (70.03;3) field creates an index that tracks every case number for an active exam in the package.
    Set Logic: D AEASSET^RADD2(X,.DA,"AE")
    Kill Logic: D AEKILL^RADD2(.DA)
    Whole Kill: K ^RADPT("AE")
    X(1): EXAM STATUS (70.03,3) (Subscr 1) (Len 30) (forwards)
  • FIELD INDEX:  AS (#1535) MUMPS IR SORTING ONLY WHOLE FILE (#70)
    Short Descr: This cross reference is used to produce a list of active/incomplete exams.
    Description: This cross reference is used to create a list of active/incomplete exams. The second subscript after the "AS" is the IEN of the imaging type constrained exam status record in the EXAMINATION STATUS (#72) file.
    The most frequented options that rely on this cross reference are: RA INCOMPLETE, RA DELINQUENT & RA STATRACK.
    Set Logic: D AEASSET^RADD2(X,.DA,"AS")
    Kill Logic: K ^RADPT("AS",$E(X,1,30),DA(2),DA(1),DA)
    Whole Kill: K ^RADPT("AS")
    X(1): EXAM STATUS (70.03,3) (Subscr 1) (Len 30) (forwards)
3.5 REASON FOR CANCELLATION 0;23 POINTER TO RAD/NUC MED REASON FILE (#75.2) RAD/NUC MED REASON(#75.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=1!($P(^(0),U,2)=9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 27, 1993
  • HELP-PROMPT:  This field points to the 'RAD/NUC MED REASON' file to indicate the reason the exam was cancelled.
  • DESCRIPTION:  
    This is the reason this exam was cancelled.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1!($P(^(0),U,2)=9)"
  • EXPLANATION:  Type of Reason must equal CANCEL REQUEST or GENERAL REQUEST.
4 CATEGORY OF EXAM 0;4 SET
************************REQUIRED FIELD************************
  • 'I' FOR INPATIENT;
  • 'O' FOR OUTPATIENT;
  • 'C' FOR CONTRACT;
  • 'S' FOR SHARING;
  • 'E' FOR EMPLOYEE;
  • 'R' FOR RESEARCH;

  • INPUT TRANSFORM:  I $D(X),$E(X)="I" S DFN=DA(2),VAINDT=9999999.9999-DA(1) D ADM^VADPT2 I 'VADMVT K X W !?3,"Patient not an inpatient at registration time.",!
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  Enter the exam category for this case number.
  • DESCRIPTION:  This field contains the exam category associated with this case number. It is used to compile workload statistics and various management reports (i.e. AMIS and RCS14-4). Available exam categories are: 'I' for INPATIENT,
    'O' for OUTPATIENT, 'C' for CONTRACT, 'S' for SHARING, 'E' for EMPLOYEE, and 'R' for RESEARCH.
    When the 'category of exam' is asked during the exam registration process, the default value asked is the value in the 'usual category' field. Of course, if the patient is an inpatient, the default value will always be
    'inpatient'.
    An inpatient may have a 'category of exam' of 'contract', 'sharing', or 'research' for its associated case number if the exam procedure is not directly related with their hospital stay. (i.e. An inpatient who has an
    imaging exam performed for research purposes.)
    SOURCE OF DATA:RECEPTIONIST
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 WARD 0;6 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  MAY 17, 1994
  • HELP-PROMPT:  This is the ward where the patient was residing at the time of the exam.
  • DESCRIPTION:  This field points to the 'WARD LOCATION' file (#42) to indicate the name of the hospital ward where the inpatient was admitted at the time the Radiology/Nuclear Med exam was performed.
    This field is filled in by the system from information entered by the ADT system and is updated at the time the exam report is first printed.
    SOURCE OF DATA:MEDICAL ADMINISTRATION SERVICE
7 SERVICE 0;7 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  MAY 17, 1994
  • HELP-PROMPT:  This field is filled in by the system and indicates the service treating the patient at the time of the exam.
  • DESCRIPTION:  This field is used for Rad/Nuc Med patients who are inpatients. It points to the 'HOSPITAL SERVICE' file (#49) to indicate the name of the service treating the patient and is filled in by the system from information
    entered by the ADT system.
    SOURCE OF DATA:MEDICAL ADMINISTRATION SERVICE
8 PRINCIPAL CLINIC 0;8 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter the name of the clinic that referred this patient.
  • DESCRIPTION:  This field is used for exams with a 'category of exam' of 'outpatient' or 'employee'. It points to the 'HOSPITAL LOCATION' file (#44) to indicate the name of the principle clinic that referred the patient to
    Radiology/Nuclear Medicine for the exam. If the appropriate Report Distribution Queue is active, the report for this exam will automatically be placed in the queue for this clinic, or in the current ward if the patient is
    admitted before the report is verified.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""C"""
  • EXPLANATION:  Screen to allow any "C" type location.
    SOURCE OF DATA:RAD/NUC MED RECEPTIONIST
9 CONTRACT/SHARING SOURCE 0;9 POINTER TO CONTRACT/SHARING AGREEMENTS FILE (#34) CONTRACT/SHARING AGREEMENTS(#34)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 08, 1991
  • HELP-PROMPT:  Enter the Contract or Sharing Agreement source that referred this patient.
  • DESCRIPTION:  This field is used for exams with a 'category of exam' of 'contract' or 'sharing'. It points to the 'CONTRACT/SHARING AGREEMENTS' file (#34) to indicate the name of the contract or sharing agreement that referred this
    patient to Radiology/Nuclear Medicine for the exam.
  • SCREEN:  S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)"
  • EXPLANATION:  Only active agreements are selectable.
    SOURCE OF DATA:RAD/NUC MED RECEPTIONIST
9.5 RESEARCH SOURCE R;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  SEP 14, 1984
  • HELP-PROMPT:  Enter the research source that referred this patient.
  • DESCRIPTION:  
    This field is used for exams with a 'category of exam' of 'research'. This field contains the name (3-40 characters) of the research source that referred the patient to Radiology/Nuclear Medicine for the exam.
    SOURCE OF DATA:RAD/NUC MED RECEPTIONIST
10 CONTRAST MEDIA USED 0;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 17, 1994
  • HELP-PROMPT:  Enter YES if a contrast was used during this exam.
  • DESCRIPTION:  This field contains a value to indicate if a contrast medium was, or if contrast media were used during this Rad/Nuc Med exam. Available values are: 'Y' for YES and 'N' for NO.
    If the Rad/Nuc Med procedure does not involve the use of a contrast, the field is automatically filled in with NO by the system but the user is prompted with this question.
    Conversely, if the Rad/Nuc Med procedure does not involve the use of a contrast, the field is automatically filled in with NO by the system but the user is prompted with this question.
  • TECHNICAL DESCR:  
    Modified, description and help text only, with the release of RA*5*45.
    SOURCE OF DATA:RAD/NUC MED TECHNOLOGIST
11 IMAGING ORDER 0;11 POINTER TO RAD/NUC MED ORDERS FILE (#75.1) RAD/NUC MED ORDERS(#75.1)

  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  This field contains the order from the 'RAD/NUC MED ORDERS' file that is associated with this exam.
  • DESCRIPTION:  This field points to the 'RAD/NUC MED ORDERS' File (#75.1). It contains the order associated with this exam. This field will only contain data if the exam has an 'ACTIVE' order associated with it. When orders are purged,
    the pointer in this field is also purged.
  • TECHNICAL DESCR:  
    Patch RA*5*41 will dis-allow purging of orders from the Radiology/Nuclear Medicine application.
  • CROSS-REFERENCE:  70^AO
    1)= S ^RADPT("AO",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^RADPT("AO",$E(X,1,30),DA(2),DA(1),DA)
    Used to link the Radiology/Nuclear Medicine Request/Order to the Exam.
12 PRIMARY INTERPRETING RESIDENT 0;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCRN^RAUTL8(.DA,""R"",+Y,""PRI"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) EN^RAUTL8(X,70,.DA)
  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  Enter the name of the Primary Resident who interpreted the images for this exam.
  • DESCRIPTION:  This field points to the 'NEW PERSON' file (#200) to indicate the name of the primary interpreting resident who read the films of this exam. If interpreting staff is required to review this resident's results, then the
    'primary interpreting staff' field must also be filled in. Primary Interpreting Resident must be classified as an interpreting resident, and must have access to at least one imaging location that matches the imaging type
    of the exam.
    Depending on the requirements set up in the 'EXAMINATION STATUS' file (#72), it may be necessary for this field to be filled in before the 'exam status' can be considered complete.
  • SCREEN:  S DIC("S")="I $$SCRN^RAUTL8(.DA,""R"",+Y,""PRI"")"
  • EXPLANATION:  Personnel must be classified as Interpreting Resident, and have access to an imaging location with the imaging type of this exam.
  • DELETE TEST:  1,0)= S RAMULT="SRR" D NODEL^RADD1
    SOURCE OF DATA:RAD/NUC MED TECHNOLOGIST
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  70.03^ARES^MUMPS
    1)= S RADA=$P(^RADPT(DA(2),"DT",DA(1),"P",DA,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(2),"DT",DA(1),"P",DA,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 in the Rad/Nuc Med Reports file. The 'ARES' cross reference is used during the on-line verification process to determine the reports that a specific interpreting
    resident needs to verify.
13 PRIMARY DIAGNOSTIC CODE 0;13 POINTER TO DIAGNOSTIC CODES FILE (#78.3) DIAGNOSTIC CODES(#78.3)

  • INPUT TRANSFORM:  S DIC("S")="I $$PDC^RADD1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 19, 2001
  • HELP-PROMPT:  Enter the primary diagnostic code for this exam.
  • DESCRIPTION:  This field is used at sites that decide to enter diagnostic codes for exams, as designated in the Examination Status file parameters. It points to a short diagnostic code in the 'DIAGNOSTIC CODES' file (#78.3) to indicate
    the primary diagnostic code associated with this exam. If filled in, this field can be used in the search criteria for database searches. For example, the database can be searched for all 'normal' chest procedures
    performed during a specific time period.
    Depending on the requirements set up in the 'EXAMINATION STATUS' file (#72), it may be necessary for this field to be filled in before the 'exam status' can be considered complete.
  • SCREEN:  S DIC("S")="I $$PDC^RADD1"
  • EXPLANATION:  Select only Diagnostic codes that have not been entered in the Secondary diagnoses field.
  • DELETE TEST:  1,0)= S RAMULT="DX" D NODEL^RADD1
    SOURCE OF DATA:INTERPRETING PHYSICIAN
  • FIELD INDEX:  AD (#825) MUMPS IR SORTING ONLY WHOLE FILE (#70)
    Short Descr: The 'AD' is used to mark cases eligible for the Abnormal Report option.
    Description: If the diagnostic code record in the radiology DIAGNOSTIC CODES (#78.3) has the data attribute for field: PRINT ON ABNORMAL REPORT (#3) set to 'Y' (yes) then the "AD" cross-reference will be set for this exam record to
    indicate that this case should be identified on the Abnormal Report.
    NOTE: When this field is edited the DIAGNOSTIC PRINT DATE (#20) field is deleted!
    Set Logic: S:$P($G(^RA(78.3,X2(1),0)),U,3)="Y" ^RADPT("AD",X2(1),DA(2),DA(1),DA)=""
    Set Cond: S:X2(1)'="" X=1
    Kill Logic: D:($D(X1(1))#2) PRIDXIXK^RADD2(.DA,X1(1))
    Kill Cond: S:X1(1)'="" X=1
    X(1): PRIMARY DIAGNOSTIC CODE (70.03,13)
13.1 SECONDARY DIAGNOSTIC CODE DX;0 POINTER Multiple #70.14 70.14

  • LAST EDITED:  JUN 22, 1994
  • DESCRIPTION:  
    This field contains additional Diagnostic Codes for this Rad/Nuc Med exam.
  • SCREEN:  S DIC("S")="I $$SDC^RADD1"
  • EXPLANATION:  Select only Diagnostic codes that have not been entered in the Primary Diagnosis field
14 REQUESTING PHYSICIAN 0;14 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$PROV^RABWORD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 27, 2003
  • HELP-PROMPT:  Enter the name of the person requesting this exam.
  • DESCRIPTION:  
    This field points to the 'NEW PERSON' file (#200) to indicate the name of the person who requested this Rad/Nuc Med exam. This person is not always a physician. (i.e. A nurse might request the exam.)
  • SCREEN:  S DIC("S")="I $$PROV^RABWORD"
  • EXPLANATION:  Provider must be active.
    SOURCE OF DATA:RAD/NUC MED RECEPTIONIST
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
15 PRIMARY INTERPRETING STAFF 0;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCRN^RAUTL8(.DA,""S"",+Y,""PRI"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) EN^RAUTL8(X,60,.DA)
  • LAST EDITED:  APR 29, 1997
  • HELP-PROMPT:  Enter the name of the primary staff who interpreted these images.
  • DESCRIPTION:  This field points to the 'NEW PERSON' file (#200) to indicate the name of the primary staff who interpreted the images. Primary Staff must have Rad/Nuc Med personnel classification of 'staff', and must have access to at
    least one imaging location of the same imaging type as the exam.
    Depending on the requirements set up in the 'EXAMINATION STATUS' file (#72), it may be necessary for this field to be filled in before the 'exam status' can be considered complete.
  • SCREEN:  S DIC("S")="I $$SCRN^RAUTL8(.DA,""S"",+Y,""PRI"")"
  • EXPLANATION:  Personnel must be classified as Interpreting Staff Physician, and have access to an imaging location with the imaging type of this exam.
  • DELETE TEST:  1,0)= S RAMULT="SSR" D NODEL^RADD1
    SOURCE OF DATA:TRANSCRIPTIONIST
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  70.03^ASTF^MUMPS
    1)= S RADA=$P(^RADPT(DA(2),"DT",DA(1),"P",DA,0),"^",17) I RADA K RAKILL S RASET="",RAXREF="ASTF",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(2),"DT",DA(1),"P",DA,0),"^",17) I RADA K RASET S RAKILL="",RAXREF="ASTF",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 'ASTF' cross reference in the Rad/Nuc Med Reports file. The 'ASTF' cross reference is used during the on-line verification process to determine the reports that a specific interpreting
    staff needs to verify.
16 COMPLICATION 0;16 POINTER TO COMPLICATION TYPES FILE (#78.1) COMPLICATION TYPES(#78.1)

  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  If the patient experienced any complication during the exam, enter it here.
  • DESCRIPTION:  This field points to the 'COMPLICATION TYPES' file (#78.1) to indicate if this patient experienced any complication during the exam procedure. (i.e. Reaction to Contrast Medium)
    If a reaction to the contrast medium did occur, then the system triggers the addition of contrast media as an allergen in the Adverse Reaction Tracking (ART) package without leaving the Radiology/Nuclear Medicine option.
    SOURCE OF DATA:TECHNOLOGIST
  • CROSS-REFERENCE:  70.03^ACM^MUMPS
    1)= I $P($G(^RA(78.1,+X,0)),U,2)="Y",$$RADD^GMRARAD(DA(2),"o","Y")
    2)= Q
    3)= Do not delete !
    If a complication is entered that indicates a reaction to contrast media, a contrast media allergy record will be created in the ATS package (File #120.8).
16.5 COMPLICATION TEXT COMP;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<4) X
  • LAST EDITED:  FEB 07, 1985
  • HELP-PROMPT:  Enter a brief (4-100 characters) description of the complication.
  • DESCRIPTION:  This field is used to give a brief explanation (4-100 characters) to describe the exam complication. The text entered will appear on the Complications Report, and under the 'Comment' caption in the detailed exam view of
    the Profile of Rad/Nuc Med Exams.
    SOURCE OF DATA:TECHNOLOGIST
17 REPORT TEXT 0;17 POINTER TO RAD/NUC MED REPORTS FILE (#74) RAD/NUC MED REPORTS(#74)

  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  This field contains the report text.
  • DESCRIPTION:  
    This field points to the 'RAD/NUC MED REPORTS' file (#74) to indicate the report text associated with this exam. It is filled in by the system and is not seen by the user.
    SOURCE OF DATA:SYSTEM GENERATED
    UNEDITABLE
18 PRIMARY CAMERA/EQUIP/RM 0;18 POINTER TO CAMERA/EQUIP/RM FILE (#78.6) CAMERA/EQUIP/RM(#78.6)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^RA(79.1,+$P(^RADPT(DA(2),""DT"",DA(1),0),U,4),""R"",+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 06, 1994
  • HELP-PROMPT:  Enter the primary camera/equipment/room used for this exam.
  • DESCRIPTION:  This field points to the 'CAMERA/EQUIP/RM' file (#78.6) for the name of the primary camera/equipment/room where the imaging exam was performed. Usually there is only one camera/equipment/room per procedure.
    Depending on the requirements set up in the 'EXAMINATION STATUS' file (#72), it may be necessary for this field to be filled in before the 'exam status' can be considered complete.
  • SCREEN:  S DIC("S")="I $D(^RA(79.1,+$P(^RADPT(DA(2),""DT"",DA(1),0),U,4),""R"",+Y,0))"
  • EXPLANATION:  Allow only cameras, equipment and rooms associated with the registration location.
    SOURCE OF DATA:TECHNOLOGIST
19 BEDSECTION 0;19 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • LAST EDITED:  MAY 17, 1994
  • HELP-PROMPT:  This field contains the patient's bedsection and is automatically filled in by the system.
  • DESCRIPTION:  
    This field points to the 'SPECIALTY' file (#42.4) to indicate the name of the bedsection of Rad/Nuc Med patients who are inpatients. This field is filled in by the system from information entered by the ADT system.
    SOURCE OF DATA:MEDICAL ADMINISTRATION SERVICE
20 DIAGNOSTIC PRINT DATE 0;20 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 1985
  • HELP-PROMPT:  This field contains the date that this exam appeared on the 'Abnormal Exam Report'.
  • DESCRIPTION:  If any diagnostic code associated with this exam requires immediate notification of the physican, this field is filled in with the date that this exam appeared on the 'Abnormal Exam Report'. The report prints a warning
    indicating abnormal results of the Rad/Nuc Med exam. The report is used by Radiology/Nuclear Medicine to help make sure that the physican is notified of the results of the abnormal exam.
    The date is filled in on this field when this report is printed so the next time the report is printed this exam will not appear again.
    This field is filled in by the system and is not seen by the user.
    WRITE AUTHORITY:^
    SOURCE OF DATA:SYSTEM GENERATED
    UNEDITABLE
21 REQUESTED DATE 0;21 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 17, 1994
  • HELP-PROMPT:  Enter the date this exam was requested.
  • DESCRIPTION:  This field contains the date the Rad/Nuc Med exam was requested.
    Depending on the site's specifications, this field may or may not be asked of the transcriptionist. By default, it is populated automatically, at the time an exam is registered, with the Request date in the Rad/Nuc Med
    Order file.
    SOURCE OF DATA:TRANSCRIPTIONIST
22 REQUESTING LOCATION 0;22 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  APR 26, 1988
  • HELP-PROMPT:  Enter the name of the hospital location requesting the exam.
  • DESCRIPTION:  This field points to the 'HOSPITAL LOCATION' file (#44) to indicate the name of the hospital location that is requesting the exam. By default, it is populated automatically, using data from the Rad/Nuc Med Orders file,
    at the time an exam is registered.
  • TECHNICAL DESCR:  
    This field has been modified with the release of patch: RA*5.0*86.
23 CLINIC STOP RECORDED? 0;24 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 17, 1991
  • HELP-PROMPT:  A 'Y' for 'YES' is entered in this field when clinic stop information has been entered in the Scheduling Visits file for this exam.
  • DESCRIPTION:  
    This field contains a YES when clinic stop information has been entered in the Scheduling Visits file for this exam.
25 MEMBER OF SET 0;25 SET
  • '1' FOR Yes,separate reports;
  • '2' FOR Yes,combined report;

  • LAST EDITED:  MAR 21, 1996
  • HELP-PROMPT:  If this case is a descendant of a single ordered parent procedure, this field should be set to 'Yes'.
  • DESCRIPTION:  This field is automatically populated by the system. If this case was registered as a 'descendant' of a 'parent' procedure,
    the field value is set to
    '1' if all cases in the set are to have separate reports
    '2' if all cases in the set are to be combined into one report. All cases belonging to a 'parent' are created from the same order. The system must check all members of the set of descendants to determine the new
    order status whenever the exam status changes on any member.
26 CREDIT METHOD 0;26 SET
  • '0' FOR Regular Credit;
  • '1' FOR Interpretation Only;
  • '2' FOR No Credit;
  • '3' FOR Technical Component Only;

  • LAST EDITED:  AUG 26, 2003
  • HELP-PROMPT:  Enter the type of credit this location will receive for this examination.
  • DESCRIPTION:  This field indicates the type of credit this location receives for examinations. This field is populated automatically by the system at the time an exam is registered based on the Credit Method entered for the Imaging
    Location where the exam is registered. If only the interpretation was done at this facility, code 1 should be used. If the exam was performed at this facility, but the interpretation was done elsewhere, code 3 should
    be used. If both the exam and interpretation were done at this facility, code 0 should be used. If the entire exam was done outside the facility and exam data is being entered for the purposes of record-keeping only,
    code 2 should be used.
27 VISIT 0;27 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  JUN 05, 1996
  • HELP-PROMPT:  Enter the visit to which this examination is related.
  • DESCRIPTION:  
    This field links the examination of a patient to a specific visit.
  • CROSS-REFERENCE:  70^AVSIT
    1)= S ^RADPT("AVSIT",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^RADPT("AVSIT",$E(X,1,30),DA(2),DA(1),DA)
    3)= Do not delete.
    This is a regular, non-lookup file wide cross reference on the Visit.
  • CROSS-REFERENCE:  70.03^AUPN^MUMPS
    1)= N RAX S RAX=X,X="AUPNVSIT" X ^%ZOSF("TEST") S X=RAX D:$T ADD^AUPNVSIT
    2)= N RAX S RAX=X,X="AUPNVSIT" X ^%ZOSF("TEST") S X=RAX D:$T SUB^AUPNVSIT
    3)= Do not delete.
    This cross reference will invoke software which tracks the number of 'V' file entries pointing to a specific visit.
29 DOSAGE TICKET PRINTED? 0;29 SET
  • '1' FOR Yes;

  • LAST EDITED:  JAN 13, 1997
  • HELP-PROMPT:  If the dosage ticket has been printed for the exam this field should be set to 'Yes'.
  • DESCRIPTION:  This field indicates if a dosage ticket has been printed for each radiopharmaceutical associated with this examination. Once this process has completed for a particular exam status, all further status updates will not
    print dosage tickets. If an examination is cancelled, the dosage ticket field is cleared. Only if the exam is re-registered will the dosage ticket again print for the examination.
30 HL7 EXAMINED MSG SENT? 0;30 SET
  • 'Y' FOR Yes;

  • LAST EDITED:  NOV 20, 1996
    SOURCE OF DATA:SYSTEM GENERATED
31 SITE ACCESSION NUMBER 0;31 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<12)!'(X?3N1"-"6N1"-"1.5N) X
  • LAST EDITED:  APR 23, 2009
  • HELP-PROMPT:  SITE ACCESSION NUMBER is generated by the application. It consists of the site number, date/time and sequential case number separated by dashes. The total length is 12-16 characters.
  • DESCRIPTION:  The SITE ACCESSION NUMBER is generated by the VistA Radiology/Nuclear Medicine application.
    SITE ACCESSION NUMBER is a Free Text data type between 12-16 characters in length. It is created by appending a three-character site identifier to the accession number. This field allows other applications to "look up"
    an exam record based on a site specific accession number.
    Example: site id-mmddyy-case #
    In the example the dash "-" is the delimiter.
  • TECHNICAL DESCR:  
    The site specific portion of the accession number is determined by the following algorithm: $E($P($$NS^XUAF4($$KSP^XUPARAM("INST")),U,2),1,3) where:
    $$KSP^XUPARAM("INST")=DEFAULT INSTITUTION file: 8989.3; field: 217 data returned: pointer to the INSTITUTION (#4) file record
    $$NS^XUAF4(Y)=Input : 'Y' is the value returned from $$KSP^XUPARAM("INST"). Returns: A string value containing the name (1st piece) & station # (2nd piece) of the institution.
    The SITE ACCESSION NUMBER field has set the 'write' node to the caret to prohibit a user from jumping to this field within an input template with the intention of editing the data.
    Released as a component within RA*5.0*47.
    UNEDITABLE
  • FIELD INDEX:  ADC1 (#419) REGULAR IR SORTING ONLY WHOLE FILE (#70)
    Short Descr: This cross-reference links an exam record with site specific accession number.
    Description: This cross-reference provides other applications the ability to look up an exam record based on a site specific accession number.
    Set Logic: S ^RADPT("ADC1",$E(X,1,30),DA(2),DA(1),DA)=""
    Kill Logic: K ^RADPT("ADC1",$E(X,1,30),DA(2),DA(1),DA)
    Whole Kill: K ^RADPT("ADC1")
    X(1): SITE ACCESSION NUMBER (70.03,31) (Subscr 1) (Len 30) (forwards)
32 PREGNANCY SCREEN 0;32 SET
  • 'y' FOR Patient answered yes;
  • 'n' FOR Patient answered no;
  • 'u' FOR Patient is unable to answer or is unsure;

  • LAST EDITED:  APR 14, 2009
  • HELP-PROMPT:  Enter the patient's response to the question of if she is pregnant at the time of the exam.
  • DESCRIPTION:  
    This field tracks the answer given by the patient when asked if she is pregnant at the time of the exam.
  • TECHNICAL DESCR:  
    This field was added by RA*5.0*99.
40 PURGED DATE PURGE;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 06, 1985
  • HELP-PROMPT:  This field contains the last purge date associated with this exam.
  • DESCRIPTION:  
    This field contains the last purge date associated with this exam.
    WRITE AUTHORITY:^
    SOURCE OF DATA:SYSTEM GENERATED
    UNEDITABLE
45 PREVENT PURGE NOPURGE;1 SET
  • 'n' FOR NO PURGE;
  • 'o' FOR OK TO PURGE;

  • LAST EDITED:  MAR 22, 1994
  • HELP-PROMPT:  Enter 'n' for NO PURGE if the data for this exam should not be purged or 'o' if it is OK to purge the data.
  • DESCRIPTION:  
    If this field is set to 'NO PURGE' then the data for this exam will not be purged or archived, nor will the report associated with this exam be purged or archived.
  • CROSS-REFERENCE:  70^AC^MUMPS
    1)= S:$D(^RARPT(+$P(^RADPT(DA(2),"DT",DA(1),"P",DA,0),U,17),0)) ^("NOPURGE")=X
    2)= K:$D(^RARPT(+$P(^RADPT(DA(2),"DT",DA(1),"P",DA,0),U,17),0)) ^("NOPURGE")
    Used to determine which exams and reports to purge.
46 REASON FOR NOT PURGING NOPURSN;0 SET Multiple #70.346 70.346

  • LAST EDITED:  JUN 21, 1996
  • DESCRIPTION:  
    This field indicates why the examination should not be purged.
50 FILM SIZE F;0 POINTER Multiple #70.04 70.04

  • DESCRIPTION:  
    This is a multiple field containing the sizes of the films used and films wasted during this exam.
    SOURCE OF DATA:
60 SECONDARY INTERPRETING STAFF SSR;0 POINTER Multiple #70.11 70.11

  • LAST EDITED:  JUN 06, 1994
  • DESCRIPTION:  
    This multiple tracks additional Staff who have interpreted the images of an exam.
  • SCREEN:  S DIC("S")="I $$SCRN^RAUTL8(.DA,""S"",+Y,""SEC""),$$SSR^RAUTL8"
  • EXPLANATION:  Personnel must be classified as Interpreting Staff, and have access to an imaging location with the imaging type of this exam.
70 SECONDARY INTERPRET'G RESIDENT SRR;0 POINTER Multiple #70.09 70.09

  • LAST EDITED:  JUN 06, 1994
  • DESCRIPTION:  
    This multiple tracks additional Interpreting Residents who interpreted the images of an exam.
  • SCREEN:  S DIC("S")="I $$SCRN^RAUTL8(.DA,""R"",+Y,""SEC""),$$S^RAUTL8"
  • EXPLANATION:  Personnel must be classified as Interpreting Resident, and have access to an imaging location with the imaging type of the exam.
75 EXAM STATUS TIMES T;0 DATE Multiple #70.05 70.05

  • DESCRIPTION:  This is a multiple field containing a log of when the exam status was changed from one status to another.
    Depending on how the system parameters are set up, this field may or may not be filled in.
    Because the mass override process will degrade system performance by slowing the system down, it should be run at specified times only. (i.e. one week per quarter)
80 PREGNANCY SCREEN COMMENT PCOMM;E1,240 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<3) X
  • LAST EDITED:  APR 20, 2009
  • HELP-PROMPT:  Please enter comments regarding the patient's answer to the Pregnancy Screen question. It must be 3-240 characters in length.
  • DESCRIPTION:  
    This field allows comments to be collected by the individual administering the exam regarding the patient's answer to the Pregnancy Screen question.
  • TECHNICAL DESCR:  
    This field was added by RA*5.0*99.
81 STUDY INSTANCE UID SIUID;E1,240 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<3) X
  • LAST EDITED:  OCT 28, 2010
  • HELP-PROMPT:  Answer must be 3-240 characters in length.
  • DESCRIPTION:  This field will store the Study Instance UID.
    The Study Instance UID is a unique key that associates the images to a particular study, and thus is required in messages sent to the PACS.
    An Imaging API will be used to generate the Study Instance UID and the Study Instance UID will be sent in specific v2.4 HL7 event messages (when an order is registered, an exam cancelled, or when an exam
    reaches the Examined status). This will allow Vista Radiology to send event transactions to a commercial PACS directly, bypassing the Vista DICOM Text Gateway.
  • FIELD INDEX:  ASIUID (#517) REGULAR IR SORTING ONLY WHOLE FILE (#70)
    Short Descr: Cross reference to assist API to return SIUID for exam
    Description: This is a sorting only cross-reference for use with a new API to return SIUID.
    Set Logic: S ^RADPT("ASIUID",$E(X,1,240),DA(2),DA(1),DA)=""
    Kill Logic: K ^RADPT("ASIUID",$E(X,1,240),DA(2),DA(1),DA)
    Whole Kill: K ^RADPT("ASIUID")
    X(1): STUDY INSTANCE UID (70.03,81) (Subscr 1) (Len 240) (forwards)
100 ACTIVITY LOG L;0 DATE Multiple #70.07 70.07

  • DESCRIPTION:  This is a multiple field containing a log of actions that have been taken on this exam record during processing of this exam.
    Use the function that allows you to View Exam by Case No. within the Exam Entry/Edit menu to view this activity log.
    SOURCE OF DATA:
125 PROCEDURE MODIFIERS M;0 POINTER Multiple #70.1 70.1

  • LAST EDITED:  AUG 05, 1999
  • DESCRIPTION:  
    This multiple field is used to give the imaging modifiers that are associated with this exam.
135 CPT MODIFIERS CMOD;0 POINTER Multiple #70.3135 70.3135

  • SCREEN:  S DIC("S")="I $$SCRN^RACPTMSC(+Y)"
  • EXPLANATION:  screen in CPT modifiers that agree with CPT for this exam
175 TECHNOLOGIST TC;0 POINTER Multiple #70.12 70.12

  • LAST EDITED:  MAY 14, 1997
  • DESCRIPTION:  This multiple field is used to give the names of technologists who performed this exam.
    Depending on the site's specifications, this field may or may not be filled in.
200 MEDICATIONS RX;0 POINTER Multiple #70.15 70.15

  • LAST EDITED:  DEC 12, 1996
225 CONTRAST MEDIA CM;0 SET Multiple #70.3225 70.3225
250 CONTRAST MEDIA ACTIVITY LOG AUD;0 DATE Multiple #70.16 70.16
400 CLINICAL HISTORY FOR EXAM H;0 WORD-PROCESSING #70.13

  • TECHNICAL DESCR:  
    CLINICAL HISTORY PERTINENT TO PROCEDURE
  • LAST EDITED:  JAN 12, 1995
  • HELP-PROMPT:  This field contains the patient's clinical history pertinent to this procedure and any instructions to the physician interpreting the images for the exam.
  • DESCRIPTION:  This field contains the patient's clinical history pertinent to the procedure as well as instructions to the physician interpreting the images for the exam. It should explain why the procedure
    is being requested; for example, to confirm or rule out a disease.
  • TECHNICAL DESCR:  
500 NUCLEAR MED DATA 0;28 POINTER TO NUC MED EXAM DATA FILE (#70.2) NUC MED EXAM DATA(#70.2)

  • LAST EDITED:  SEP 26, 1996
  • HELP-PROMPT:  Enter exam data related to radiopharmaceuticals.
  • DESCRIPTION:  
    Radiopharmaceutical data may be automatically entered, if it exists on the procedure file. It is also editable during case edit options and may be configured for editing during status tracking.
  • TECHNICAL DESCR:  
    On an exam, this field is used to point to an entry in the Nuc Med Exam file #70.2 which contains radiopharmaceutical data for the case. Within the pointed-to file is a multiple for
    radiopharms.
  • CROSS-REFERENCE:  70.03^NMD^MUMPS
    1)= Q
    2)= Q:$D(RAIEN702) N DA,DIK S DA=X,DIK="^RADPTN(" D ^DIK
    delete pointed-to record in file 70.2 when field 500 is deleted
Info |  Details