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: ^RARPT

Package: Radiology Nuclear Medicine

Global: ^RARPT


Information

FileMan FileNo FileMan Filename Package
74 RAD/NUC MED REPORTS Radiology Nuclear Medicine

Description

Directly Accessed By Routines, Total: 180

Package Total Routines
Radiology Nuclear Medicine 122 BEFORE DELETION SEC. DX CODE    BEFORE DELETION SEC. RESIDENT    BEFORE DELETION SEC. STAFF    ERROR REPORTS    EXAMINATIONS    HL7 FIELD EXCEPTIONS    IMAGE    OTHER CASE#
RA ALL UNPRINTED    RA ALL UNPRINTED REPORTS    RA ALPHA LIST OF ACTIVES    RA CLINIC BY PRINT DATE    RA PRE-VERIFY REPORT EDIT    RA PRE-VERIFY REPORT ONLY    RA REPORT EDIT    RA UNPRINTED REPORTS
RA VERIFY REPORT ONLY    RA WARD BY PRINT DATE    RA27LIST    RA27PST    RA95PST    RAAPI    RABTCH    RABTCH1
RABUL2    RABUL3    RABWRTE    RACNLU    RACTRT    RACTVR    RACTVR1    RACTVR4
RACTVR5    RACTWR    RACTWR1    RACTWR2    RACTWR4    RACTWR5    RADD1    RADD2
RADLQ1    RADLY    RADRPT1A    RAEDCN    RAEDCN1    RAERRPT    RAHLO    RAHLO1
RAHLO2    RAHLO4    RAHLQ    RAHLRPT    RAHLRPT1    RAHLRPT2    RAHLRPTT    RAHLRU
RAHLRU1    RAHLTCPU    RAIPST3    RAMAGU12    RAO7CMP    RAO7PC1A    RAO7PC2    RAO7PC3
RAPCE    RAPM    RAPM1    RAPRINT    RAPROD    RAPROD1    RAPTLU    RAPURGE1
RARECOV    RAREG    RAREG1    RARESTOR    RARIC    RARIC1    RARPTUT    RART
RART1    RART2    RARTE    RARTE1    RARTE3    RARTE4    RARTE5    RARTE6
RARTE7    RARTFLDS    RARTR    RARTR0    RARTR2    RARTRPV    RARTRPV1    RARTST
RARTST2    RARTST2A    RARTUVR    RARTUVR2    RARTUVR3    RARTVER    RARTVER1    RARTVER2
RASTREQ    RATRAN    RAUTL00    RAUTL10    RAUTL11    RAUTL15    RAUTL21    RAUTL3
RAUTL4    RAUTL7A    RAUTL9    RAWKLU2    ^RARPT    RAUTL2    RAUTL20    RAWKLU
SECONDARY INTERPRET'G RESIDENT    SECONDARY INTERPRETING STAFF    
Imaging 40 MAGBRTE3    MAGBRTE4    MAGBRTE5    MAGDIR9A    MAGDQR03    MAGDQR04    MAGDQR06    MAGDQR11
MAGDQR23    MAGDQR32    MAGDQR72    MAGDRPC1    MAGDRPC4    MAGDRPC9    MAGDSTA4    MAGDSTA5
MAGDSTD2    MAGGSQI    MAGGTIA2    MAGGTRA    MAGGTRA1    MAGGTRAI    MAGGTRP1    MAGJEX1
MAGJEX2    MAGJRPT    MAGJUPD2    MAGJUTL1    MAGJUTL2    MAGJUTL4    MAGNAN03    MAGNTRAI
MAGNU003    MAGNVQ02    MAGNVQ06    MAGUE002    MAGVD003    MAGVD005    MAGVGUID    MAGVRS81
Kernel 2 ARRAY SUBSCRIPTS    COMPUTABLE FILE REFERENCES    
VA FileMan 2 ITEM    YEAR    
Vendor - ISI 2 ISIJRPT    ISIJRPT2    
Clinical Information Resource Network 1 RGVCCMR2    
DSS Extracts 1 ECXRAD    
Health Summary 1 GMTSRASE    
Virtual Patient Record 1 VPRSDAR    

Accessed By FileMan Db Calls, Total: 50

Package Total Routines
Radiology Nuclear Medicine 31 RABWRTE    RACTVR    RACTVR1    RACTVR4    RACTVR5    RACTWR    RACTWR1    RACTWR2
RACTWR4    RACTWR5    RADRPT1A    RAHLO1    RAHLRPTT    RAHLRS    RAHLRS1    RAMAGU12
RAMAORPT    RAO7PC1A    RAO7PC3    RAPTLU    RARPTUT    RART    RARTE1    RARTE4
RARTE5    RARTE6    RARTRPV1    RARTST1    RARTVER2    RAUTL15    RAUTL7A    
Imaging 5 MAGDRA2    MAGGTRP1    MAGNU003    MAGNUTL2    MAGVRS81    
Womens Health 4 WVALERTR    WVALERTS    WVEXPTRA    WVRADWP    
Virtual Patient Record 3 VPRDJ08A    VPRDRA    VPREVSND    
Enterprise Health Management Platform 2 HMPDJ08A    HMPDRA    
Health Summary 2 GMTSRAE    GMTSRAE1    
Clinical Reminders 1 PXRMCALT    
PCE Patient Care Encounter 1 PXQPPUTIL    
Vendor - ISI 1 ISIJDCU1    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Imaging 3 IMAGE(#2005)[61]    IMAGE AUDIT(#2005.1)[61]    DICOM GATEWAY PARAMETER(#2006.563)[487071919298]    
Radiology Nuclear Medicine 3 REPORT BATCHES(#74.2)[#74.21(.01)]    REPORT DISTRIBUTION(#74.4)[.01]    RAD/NUC MED PATIENT(#70)[#70.03(17)]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Radiology Nuclear Medicine 2 DIAGNOSTIC CODES(#78.3)[#74.01(5)#74.16(.01)]    IMAGING LOCATIONS(#79.1)[86]    
Health Level Seven 1 HL7 APPLICATION PARAMETER(#771)[9.3]    
Imaging 1 IMAGE(#2005)[#74.02005(.01)]    
Kernel 1 NEW PERSON(#200)[9111517#74.01(3)#74.01(7)#74.01(9)#74.18(.01)#74.19(.01)]    
Registration 1 PATIENT(#2)[2]    

Fields, Total: 48

Field # Name Loc Type Details
.01 DAY-CASE# 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<8)!'(X?6N1"-"1N.N!(X?3N1"-"6N1"-"1N.N)) X
  • LAST EDITED:  MAR 26, 2009
  • HELP-PROMPT:  Answer must be 8-16 characters in length.
  • DESCRIPTION:  This field contains the date and case number of the imaging exam associated with this report. The system fills in this field with information obtained from the 'RAD/NUC MED PATIENT' file (#70) according to the case number
    selected by the transcriptionist.
    If the Site Specific Accession Number is in use then the 3-digit Site ID is appended to the beginning of the field.
  • TECHNICAL DESCR:  Patch RA*5*56 replaces the actual deletion of a report with a change of the report status to 'X'. Thus the Radiology application does not invoke routine RABUL3 via the kill logic, instead it invokes routine RABUL3 via a
    new routine, RARTE7.
    Patch RA*5*47 modifies the input transform of the .01 field by expanding the field to allow up to 16 characters and by modifying the pattern match to allow the Site ID and a "-" at the beginning of the field.
    EXAMPLES: "Old" Day-Case #: 030309-3025 "New" Day-Case #: 141-030309-3025 <-- Site ID appended to the beginning
    SOURCE OF DATA: SYSTEM GENERATED
  • CROSS-REFERENCE:  74^B
    1)= S ^RARPT("B",$E(X,1,30),DA)=""
    2)= K ^RARPT("B",$E(X,1,30),DA)
    Regular 'B' cross reference assigned by FileMan.
  • CROSS-REFERENCE:  74^ABLTN^MUMPS
    1)= Q
    2)= D:+$G(RAPRG74) ^RABUL3 Q
    3)= Do not delete.
    This bulletin will be delivered to all the members of the RAD/NUC MED REPORT DELETION mail group when a report is deleted.
2 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  MAY 18, 1994
  • HELP-PROMPT:  This field contains the patient name.
  • DESCRIPTION:  This field contains the name of the rad/nuc med patient associated with this report. The system fills in this field with data obtained from the 'RAD/NUC MED PATIENT' file (#70) according to the case number selected by the
    transcriptionist.
    SOURCE OF DATA: SYSTEM GENERATED
    UNEDITABLE
  • CROSS-REFERENCE:  74^C
    1)= S ^RARPT("C",$E(X,1,30),DA)=""
    2)= K ^RARPT("C",$E(X,1,30),DA)
    Used to look-up reports by patient.
3 EXAM DATE/TIME 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 25, 1995
  • HELP-PROMPT:  This field contains the date and time of the exam associated with this report.
  • DESCRIPTION:  This field contains the date and the time of the exam associated with this report. The system fills in this field with data obtained from the 'RAD/NUC MED PATIENT' file (#70) according to the case number selected by the
    transcriptionist.
    SOURCE OF DATA: SYSTEM GENERATED
    UNEDITABLE
4 CASE NUMBER 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 21, 1984
  • HELP-PROMPT:  This field contains the case number of the exam.
  • DESCRIPTION:  
    This field contains the completed case number of the exam associated with this report. The system fills in the data for this field with information obtained from the 'RAD/NUC MED PATIENT' file (#70).
    SOURCE OF DATA: SYSTEM GENERATED
    UNEDITABLE
4.5 OTHER CASE# 1;0 Multiple #74.05 74.05
5 REPORT STATUS 0;5 SET
************************REQUIRED FIELD************************
  • 'V' FOR VERIFIED;
  • 'R' FOR RELEASED/NOT VERIFIED;
  • 'PD' FOR PROBLEM DRAFT;
  • 'D' FOR DRAFT;
  • 'EF' FOR ELECTRONICALLY FILED;
  • 'X' FOR DELETED;

  • INPUT TRANSFORM:  D EN1^RAUTL4
  • LAST EDITED:  OCT 10, 2008
  • HELP-PROMPT:  Enter the status of this report.
  • DESCRIPTION:  This field contains a value to indicate the status of this report. Valid choices are: 'V' for Verified, 'R' for Released/Not Verified, 'PD' for Problem Draft, 'D' for Draft, 'EF' for Electronically Filed and 'X' for
    Deleted.
    'V' (Verified) status refers to a report that is verified by the interpreting physician and is available for display outside the Rad/Nuc Med Department to appropriate users, such as ward clerks, nurses, and physicians.
    'R' (Released/Not Verified) status refers to a report that is not verified by the interpreting physician and is available for display outside the Rad/Nuc Med Department. The 'R' status is allowed only when the parameter
    that controls this feature, 'Allow Released/Unverified' of the 'RAD/NUC MED DIVISION' file (#79), is set to 'Yes'. Use the 'Display Report' option to view reports with the 'R' status.
    'D' (Draft) status or 'PD' (Problem Draft) status refers to a report that is available only for display in the Rad/Nuc Med Department. A statement describing the problem to the interpreting physician is printed at the end
    of reports with the 'PD' status.
    'EF' (Electronically Filed) status refers to a report that is interpreted outside the Rad/Nuc Med Department. The content is not the actual interpreted report, but canned text referring to the outside interpreted report.
    'X' (Deleted) status refers to a report that is deleted from a case, but remains in the database though not selectable from any Radiology options.
  • TECHNICAL DESCR:  The 'RAD/NUC MED REPORT UNVERIFIED' bulletin uses a variable called RASTATX. This variable is one character in length. Some of the codes are greater than one character in length, i.e, 'PD'. In this case, the
    routine RAUTL9 must resolve variable RASTATX to its full internal format. If sets of codes are added to the data dictionary which are longer than one character in length, then routine RAUTL9 should be modified to reflect
    these changes if the new code is processed by this routine. The new 'EF' added by patch RA*5*56 is not used by routine RAUTL9, so routine RAUTL9 does not have to be modified.
    SOURCE OF DATA: SYSTEM GENERATED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  74^ABLTN1^MUMPS
    1)= Q
    2)= D ^RABUL2 Q
    3)= Do not delete.
    Send a bulletin to the RADIOLOGY REPORT UNVERIFIED mail group if the status of a report is changed from 'Verified'.
  • CROSS-REFERENCE:  74^ARES^MUMPS
    1)= N RAXREF K RAKILL I X'="V"&(X'="X") S RAXREF="ARES",RARAD=12,RASET="" D XREF^RAUTL2 S RASECOND="SRR" D SECXREF^RADD1 K RARAD,RASET
    2)= N RAXREF K RASET S RAXREF="ARES",RARAD=12,RAKILL="" D XREF^RAUTL2 S RASECOND="SRR" D SECXREF^RADD1 K RAKILL,RARAD
    Used to generate a list of unverified reports by resident responsible for the reports. Do not set this xref if the report is Verified (V) or marked Deleted (X).
  • CROSS-REFERENCE:  74^ASTF^MUMPS
    1)= N RAXREF K RAKILL I X'="V"&(X'="X") S RAXREF="ASTF",RARAD=15,RASET="" D XREF^RAUTL2 S RASECOND="SSR" D SECXREF^RADD1 K RARAD,RASEC
    2)= N RAXREF K RASET S RAXREF="ASTF",RARAD=15,RAKILL="" D XREF^RAUTL2 S RASECOND="SSR" D SECXREF^RADD1 K RAKILL,RARAD
    Used to generate a list of unverified reports by the interpreting staff responsible for the reports. Do not set this xref if the report is Verified (V) or marked Deleted (X).
  • CROSS-REFERENCE:  74^ASTAT^MUMPS
    1)= S:"Vv"'[$E(X) ^RARPT("ASTAT",$E(X,1,30),DA)=""
    2)= K ^RARPT("ASTAT",$E(X,1,30),DA)
    3)= Needed for the Unverified Report.
    This cross reference will be used to track the status of non-verified reports for the Unverified Report.
6 DATE REPORT ENTERED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 04, 1991
  • HELP-PROMPT:  This field contains the date and time the report was entered into the system.
  • DESCRIPTION:  
    This field contains the date and time that the report was entered into the system by the transcriptionist.
    SOURCE OF DATA: SYSTEM GENERATED
7 VERIFIED DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 05, 1991
  • HELP-PROMPT:  This is the date and time the report was verified by the interpreting physician.
  • DESCRIPTION:  As of July, 1985, this field contains the date and the time that it was indicated to the system that the report was verified by the interpreting physician.
    An option allowing online verification lets the interpreting physician verify the report directly via a CRT. As a result, there will be no discrepency between the date/time the physician verified the report and the
    date/time it was indicated to the system.
    SOURCE OF DATA: SYSTEM GENERATED
    UNEDITABLE
  • CROSS-REFERENCE:  74^AA^MUMPS
    1)= S ^RARPT("AA",9999999.9999-$E(X,1,30),DA)=""
    2)= K ^RARPT("AA",9999999.9999-$E(X,1,30),DA)
    Date reports were verified in inverse date format.
8 REPORTED DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX",%DT(0)=$P($G(^RARPT(D0,0)),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  JAN 04, 1994
  • HELP-PROMPT:  Enter the date the interpreting physician dictated this report. The exam date must precede the reported date.
  • DESCRIPTION:  This field contains the date that the interpreting physician dictated this report. The transcriptionist enters this date from the dictation tape. If the physician is using a voice recognition system for dictation, this
    date is entered at the time the report is transmitted to DHCP.
    SOURCE OF DATA: INTERPRETING PHYSICIAN
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9 VERIFYING PHYSICIAN 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="N RAINADT X ^DD(74,9,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),$D(^XUSEC(""RA VERIFY"",+Y)),($D(^VA(200,""ARC"",""R"",+Y))!($D(^VA(200,""ARC"",""S"",+Y))))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
    9.2 = S RAINADT=+$P($G(^VA(200,+Y,"PS")),"^",4)
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  Enter the name of the interpreting physician that verified this report.
  • DESCRIPTION:  
    This field is a pointer to the 'NEW PERSON file (#200). Only 'staff' or 'resident' interpreting physicians are allowed to be selected. This field contains the name of the interpreting physician who verified the report.
  • SCREEN:  S DIC("S")="N RAINADT X ^DD(74,9,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),$D(^XUSEC(""RA VERIFY"",+Y)),($D(^VA(200,""ARC"",""R"",+Y))!($D(^VA(200,""ARC"",""S"",+Y))))"
  • EXPLANATION:  Allows only 'staff' or 'resident' interpreting physicians who hold the 'RA VERIFY' key to verify reports.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.1 TELERADIOLOGY PHYSICIAN NAME TT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  SEP 13, 2007
  • HELP-PROMPT:  Enter the name of the teleradiologist that verified the report. The answer must be 3-50 characters in length.
  • DESCRIPTION:  
    This field identifies the name of the teleradiologist who verified (signed) the report.
  • TECHNICAL DESCR:  The name of the teleradiologist and their National Provider Identification (NPI) are not manually entered.
    The login to the ScImage application is our identity verification process. Each of the individual physician's credentials, their name and their NPI, are part of their ScImage user profile.
    The TELERADIOLOGY PHYSICIAN NAME attribute is passed when reporting a case.
    UNEDITABLE
9.2 TELERADIOLOGY PHYSICIAN NPI TT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10) X
  • LAST EDITED:  SEP 13, 2007
  • HELP-PROMPT:  Enter the NPI of the teleradiologist who verified the report. The NPI is a ten digit number.
  • DESCRIPTION:  
    This field identified the National Provider ID (NPI) of the teleradiologist who verified (signed) the report.
  • TECHNICAL DESCR:  The name of the teleradiologist and their National Provider Identification (NPI) are not manually entered.
    The login to the ScImage application is our identity verification process. Each of the individual physician's credentials, their name and their NPI, are part of their ScImage user profile.
    The TELERADIOLOGY PHYSICIAN NPI attribute is passed when reporting a case.
    UNEDITABLE
9.3 REPORT VERIFIED BY COTS APP TT;3 POINTER TO HL7 APPLICATION PARAMETER FILE (#771) HL7 APPLICATION PARAMETER(#771)

  • LAST EDITED:  APR 30, 2008
  • HELP-PROMPT:  Enter the HL7 APPLICATION PARAMETER that identifies the COTS application used to dictate and verify this radiology report.
  • DESCRIPTION:  This field identifies the Commercial Off the Shelf (COTS) application used to dictate and verify a radiology report. Examples of values for this field, though these need not be the only permissible values, are:
    RA-PSCRIBE-TCP, RA-SCIMAGE-TCP, and RA-TALKLINK-TCP.
    If the report was dictated through the use of the VistA Radiology/Nuclear Medicine application the field will be null.
  • CROSS-REFERENCE:  74^AC
    1)= S ^RARPT("AC",$E(X,1,30),DA)=""
    2)= K ^RARPT("AC",$E(X,1,30),DA)
10 ELECTRONIC SIGNATURE CODE 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y=" "
  • LAST EDITED:  AUG 21, 2003
  • HELP-PROMPT:  This is the system generated electronic signature code of the verifying interpreting physician.
  • DESCRIPTION:  
    This field is computed by the system to the electronic signature code of the verifying interpreting physician.
  • TECHNICAL DESCR:  The upper limit on this field has been extended to fifty characters from thirty characters. This is the result of patch RA*5*43. The data from the SIGNATURE BLOCK PRINTED NAME (SBPN, field #20.2) field in the NEW PERSON
    file can have a maximum of forty characters.
    When conditions are met, the Rad/Nuc Med application fails to store data in the ELECTRONIC SIGNATURE CODE (ESC, field #10) on the RAD/NUC MED REPORTS (#74) file because data exceeds the number of characters the ESC field
    allows.
    This patch bumps the upper limit of characters on the ESC field from thirty characters to fifty characters, thus exceeding the upper limit imposed on the SBPN field by ten characters.
    UNEDITABLE
11 TRANSCRIPTIONIST T;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(""RAC""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 19, 2001
  • HELP-PROMPT:  This field contains the name of the transcriptionist.
  • DESCRIPTION:  
    Rad/nuc med personnel who entered the report.
  • TECHNICAL DESCR:  
    This field is populated by the system with the Rad/nuc med user that transcribes the report.
  • SCREEN:  S DIC("S")="I $D(^(""RAC""))"
  • EXPLANATION:  Must have a Radiology/Nuclear Medicine classification.
  • CROSS-REFERENCE:  74^AD^MUMPS
    1)= S:$P($G(^RARPT(DA,0)),U,6)]"" ^RARPT("AD",$E(X,1,30),$P(^RARPT(DA,0),U,6),DA)=""
    2)= K:$P($G(^RARPT(DA,0)),U,6)]"" ^RARPT("AD",$E(X,1,30),$P(^RARPT(DA,0),U,6),DA)
    Used to identify the user who transcribed the report.
13 DATE REPORT PRINTED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 19, 1991
  • HELP-PROMPT:  This is the date the report was first printed.
  • DESCRIPTION:  
    This is the date this report was first printed. Before a report is printed for the first time the patient location is updated, if necessary, in the 'RAD/NUC MED PATIENT' file (#70) at the Examinations multiple.
14 PRE-VERIFICATION DATE/TIME 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 1994
  • HELP-PROMPT:  Enter the date and time this report was pre-verified.
  • DESCRIPTION:  
    This is the date and time a report was pre-verified by an Interpreting Resident or Staff.
15 PRE-VERIFICATION USER 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="N RAINADT X ^DD(74,15,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),($D(^VA(200,""ARC"",""R"",+Y))!($D(^VA(200,""ARC"",""S"",+Y))))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
    9.2 = S RAINADT=+$P($G(^VA(200,+Y,"PS")),"^",4)
  • LAST EDITED:  AUG 21, 1995
  • HELP-PROMPT:  This is the Interpreting Resident or Staff who pre-verified the report.
  • DESCRIPTION:  
    This is the Interpreting Resident or Staff Physician who pre-verified the report.
  • SCREEN:  S DIC("S")="N RAINADT X ^DD(74,15,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),($D(^VA(200,""ARC"",""R"",+Y))!($D(^VA(200,""ARC"",""S"",+Y))))"
  • EXPLANATION:  Must have Rad/Nuc Med 'Staff' or 'Resident' personnel classification.
16 PRE-VERIFICATION E-SIG 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<6) X
  • OUTPUT TRANSFORM:  S Y=" "
  • LAST EDITED:  SEP 05, 1996
  • HELP-PROMPT:  This is the electronic signature of the Interpreting Resident or Staff who pre-verified this report.
  • DESCRIPTION:  
    This is the electronic signature code of the Interpreting Resident or Staff who pre-verified this report.
17 STATUS CHANGED TO VERIFIED BY 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 06, 1996
  • HELP-PROMPT:  Enter the individual who is actually signed on and responsible for changing the status of the report to 'verified'.
  • DESCRIPTION:  
    This field will record the individual who is signed on and responsible for the changing the report status to 'verified'.
18 DATE INITIAL OUTSIDE RPT ENTRY 0;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 11, 2007
  • HELP-PROMPT:  The system stores the date and time when the outside report was logged via the 'Outside Report Entry/Edit' option.
  • DESCRIPTION:  
    The system populates this value when the 'Outside Report Entry/Edit' option is used.
25 PROBLEM STATEMENT P;E1,240 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<2) X
  • LAST EDITED:  MAY 23, 1985
  • HELP-PROMPT:  Enter 2-240 char's describing the problem encountered while transcribing this report.
  • DESCRIPTION:  This field may contain a note from the transcriptionist to the interpreting physician if any problems were encountered during the transcribing of this report. This message can be between 2 and 240 characters in length and
    is used to describe the problem.
    This field is available for use only if the status of the report is 'PD' (problem draft).
    SOURCE OF DATA: TRANSCRIPTIONIST
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 date and time the data for this report was purged.
  • DESCRIPTION:  
    This field contains the date and the time that the 'Purge Data' option of the system was last used to purge the clinical history, report text, and the activity log of this report.
    WRITE AUTHORITY: ^
    SOURCE OF DATA: SYSTEM GENERATED
    UNEDITABLE
45 NO PURGE INDICATOR NOPURGE;1 SET
  • 'n' FOR NO PURGE;
  • 'o' FOR OK TO PURGE;

  • LAST EDITED:  FEB 05, 1986
  • HELP-PROMPT:  If this field is set to 'NO PURGE', then this report will not be purged.
  • DESCRIPTION:  If this field is set to 'NO PURGE', then the report will not be purged or archived.
    This field is set when the corresponding field of the associated exam is set to 'NO PURGE'.
53 HOSPITAL DIVISION COMPUTED

  • MUMPS CODE:  S RAEXFLD="DIV" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="DIV" D ^RARTFLDS K RAEXFLD
  • DESCRIPTION:  
    This field is computed by the system to the name of the hospital division where the exam associated with this exam report was performed.
    SOURCE OF DATA: SYSTEM GENERATED
54 IMAGING LOCATION COMPUTED

  • MUMPS CODE:  S RAEXFLD="LOC" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="LOC" D ^RARTFLDS K RAEXFLD
  • DESCRIPTION:  
    This field is computed by the system to the name of the imaging location within the hospital division where the exam associated with this exam report was performed.
    SOURCE OF DATA: SYSTEM GENERATED
86 INTERPRETING IMAGING LOCATION BA;1 POINTER TO IMAGING LOCATIONS FILE (#79.1) IMAGING LOCATIONS(#79.1)

  • INPUT TRANSFORM:  S DIC("S")="I $$SIIL^RABWRTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 27, 2003
  • HELP-PROMPT:  Enter the imaging location where the interpretation was performed.
  • DESCRIPTION:  
    This is the imaging location where the interpretation was performed. It is a pointer to the Imaging Location file (#79.1).
  • SCREEN:  S DIC("S")="I $$SIIL^RABWRTE"
  • EXPLANATION:  Location must not be 'Performed Only', and its Img Type must match Exam's Img Type (if exam is available.)
100 ACTIVITY LOG L;0 DATE Multiple #74.01 74.01

  • DESCRIPTION:  
    This is a multiple field containing a log of actions that have been taken on this report record.
102 PROCEDURE COMPUTED

  • MUMPS CODE:  S RAEXFLD="PROC" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="PROC" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  NOV 21, 1984
  • DESCRIPTION:  
    This field is filled in by the system with the name of the rad/nuc med procedure associated with this report.
    SOURCE OF DATA: SYSTEM GENERATED
103 EXAM STATUS COMPUTED

  • MUMPS CODE:  S RAEXFLD="EXAM" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="EXAM" D ^RARTFLDS K RAEXFLD
  • DESCRIPTION:  
    This field is filled in by the system with the exam status of the exam associated with this report.
    SOURCE OF DATA: SYSTEM GENERATED
104 CATEGORY OF EXAM COMPUTED

  • MUMPS CODE:  S RAEXFLD="CAT" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="CAT" D ^RARTFLDS K RAEXFLD
  • DESCRIPTION:  
    This field is computed by the system to the category of the exam associated with this report.
    SOURCE OF DATA: SYSTEM GENERATED
106 WARD COMPUTED

  • MUMPS CODE:  S RAEXFLD="WARD" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="WARD" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  MAY 18, 1994
  • DESCRIPTION:  
    This field is computed by the system to the name of the hospital ward where the inpatient associated with this exam report resided at the time this report was first printed.
    SOURCE OF DATA: SYSTEM GENERATED
107 SERVICE COMPUTED

  • MUMPS CODE:  S RAEXFLD="SERV" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="SERV" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  MAY 18, 1994
  • DESCRIPTION:  
    This field is computed by the system to the name of the service treating the inpatient associated with this exam report.
    SOURCE OF DATA: SYSTEM GENERATED
108 PRINCIPAL CLINIC COMPUTED

  • MUMPS CODE:  S RAEXFLD="CLINIC" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="CLINIC" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  NOV 21, 1984
  • DESCRIPTION:  
    This field is computed by the system to the name of the outpatient clinic that referred the patient associated with this exam report to rad/nuc med for the exam.
    SOURCE OF DATA: SYSTEM GENERATED
109 CONTRACT/SHARING SOURCE COMPUTED

  • MUMPS CODE:  S RAEXFLD="CONT" D ^RARTFLDS K RARTFLD
  • ALGORITHM:  S RAEXFLD="CONT" D ^RARTFLDS K RARTFLD
  • DESCRIPTION:  
    This field is computed by the system to the name of the contract or sharing agreement that referred the patient associated with this exam report to rad/nuc med.
    SOURCE OF DATA: SYSTEM GENERATED
109.5 RESEARCH SOURCE COMPUTED

  • MUMPS CODE:  S RAEXFLD="RSCH" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="RSCH" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  JUL 12, 1985
  • DESCRIPTION:  
    This field is computed by the system to the name of the research source that referred the patient associated with this exam report to rad/nuc med.
    SOURCE OF DATA: SYSTEM GENERATED
112 PRIMARY INTERPRETING RESIDENT COMPUTED

  • MUMPS CODE:  S RAEXFLD="RES" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="RES" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  JUN 07, 1994
  • DESCRIPTION:  
    This field is computed by the system to the name of the primary interpreting resident who interprets the images associated with this exam report.
    SOURCE OF DATA: SYSTEM GENERATED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
113 PRIMARY DIAGNOSTIC CODE COMPUTED

  • MUMPS CODE:  S RAEXFLD="DIAG" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="DIAG" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  MAY 18, 1994
  • DESCRIPTION:  
    This field is computed by the system to the primary diagnostic code associated with this exam report.
    SOURCE OF DATA: SYSTEM GENERATED
114 REQUESTING PHYSICIAN COMPUTED

  • MUMPS CODE:  S RAEXFLD="PHY" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="PHY" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  NOV 21, 1984
  • DESCRIPTION:  
    This field is computed by the system to the name of the person who requested the exam associated with this report. This person does not have to be a physician. (ie. It might be a nurse.)
    SOURCE OF DATA: SYSTEM GENERATED
115 PRIMARY INTERPRETING STAFF COMPUTED

  • MUMPS CODE:  S RAEXFLD="STAFF" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="STAFF" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  JUN 07, 1994
  • DESCRIPTION:  
    This field is computed by the system to the name of the primary interpreting staff who interprets the images associated with this report.
    SOURCE OF DATA: SYSTEM GENERATED
116 COMPLICATION COMPUTED

  • MUMPS CODE:  S RAEXFLD="COMP" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="COMP" D ^RARTFLDS K RAEXFLD
  • DESCRIPTION:  
    This field is computed by the system to the complication that may have occurred during the exam procedure associated with this exam report.
    SOURCE OF DATA: SYSTEM GENERATED
118 PRIMARY CAMERA/EQUIP/RM COMPUTED

  • MUMPS CODE:  S RAEXFLD="EXRM" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="EXRM" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  JUN 03, 1994
  • DESCRIPTION:  
    This field is computed by the system to the name of the primary camera/equip/rm where the exam associated with this exam report was performed.
    SOURCE OF DATA: SYSTEM GENERATED
119 BEDSECTION COMPUTED

  • MUMPS CODE:  S RAEXFLD="BED" D ^RARTFLDS K RAEXFLD
  • ALGORITHM:  S RAEXFLD="BED" D ^RARTFLDS K RAEXFLD
  • LAST EDITED:  MAY 18, 1994
  • DESCRIPTION:  
    This field is computed by the system to the name of the bedsection of the rad/nuc med inpatient associated with this exam report.
    SOURCE OF DATA: SYSTEM GENERATED
200 REPORT TEXT R;0 WORD-PROCESSING #74.02

  • DESCRIPTION:  This field contains the report text for the imaging exam. The report text is written by the interpreting physician and may be entered into the system by a transcriptionist. A report may also be entered into DHCP when the
    interpreting physician uses a voice recognition system.
    If the interpreting physician requests a standard report, the information in this field is copied from the 'Report Text' field of the 'Standard Reports' file.
    SOURCE OF DATA: INTERPRETING PHYSICIAN
  • HELP-PROMPT:  Enter the text of the report for the exam.
  • DESCRIPTION:  This field contains the report text for the imaging exam. The report text is provided by the interpreting physician and is entered into the system by a transcriptionist. The report resides in the 'report text' field.
    The report may also be entered directly by the physician if the physician is using a voice recognition system.
    If the interpreting physician requests a standard report, the information in this field is copied from the 'report text' field of the 'Standard Reports' file.
300 IMPRESSION TEXT I;0 WORD-PROCESSING #74.03

  • DESCRIPTION:  This field contains the 'impression text' of the rad/nuc med exam associated with this report. The 'impression text' gives a quick summary of the 'report text'. It is written by the interpreting physician and is entered
    into the system by the transcriptionist. The system will allow the interpreting physician to directly enter this information into the 'impression text' field through a voice recognition system.
    If the interpreting physician requests a standard report, the information in this field is copied from the 'impression text' field of the 'Standard Reports' file.
    SOURCE OF DATA: INTERPRETING PHYSICIAN
  • LAST EDITED:  MAR 05, 1985
  • HELP-PROMPT:  Enter the impression text (summary) of the exam.
  • DESCRIPTION:  This field contains the 'impression text' of the rad/nuc med exam associated with this report. The 'impression text' provides a summary of the 'report text' and is entered into the system by the transcriptionist . Voice
    recognition systems allows the interpreting physician to directly enter this information into the 'impression text' field.
    If the interpreting physician requests a standard report, the information in this field is copied from the 'impression text' field of the 'Standard reports' file.
400 ADDITIONAL CLINICAL HISTORY H;0 WORD-PROCESSING #74.04

  • LAST EDITED:  JAN 03, 2001
  • DESCRIPTION:  This field may contain a patient's clinical history as well as instructions to the interpreting physician. For example, the instructions might be for the physician to interpret the exam images to rule out the possibility
    of the patient having a certain disease.
    The 'additional clinical history' is written by the interpreting physician and is entered into the system by the transcriptionist. Voice Recognition systems allow the interpreting physician to directly enter this
    information into the 'additional clinical history' field.
    SOURCE OF DATA: INTERPRETING PHYSICIAN
  • LAST EDITED:  JAN 03, 2001
  • HELP-PROMPT:  Enter the patient's clinical history.
  • DESCRIPTION:  This field may contain a patient's clinical history as well as instructions to the interpreting physician.
    The additional clinical history is dictated by the interpreting physician as provided from the request and entered into the system by the transcriptionist. An enhancement of the system, now allows the interpreting
    physician to directly enter this information into the 'additional clinical history' field using a voice recognition system.
1000 ERROR REPORTS ERR;0 DATE Multiple #74.06 74.06

  • DESCRIPTION:  This multiple subfile contains date-stamped reports that were unverified and amended. The previous verified data that existed before the report was amended is stored here. As a security precaution, these fields are
    released to the site as uneditable.
2005 IMAGE 2005;0 POINTER Multiple #74.02005 74.02005

  • LAST EDITED:  DEC 09, 1994
  • DESCRIPTION:  
    This multiple field holds pointer values to the Image file (2005).

External References

Name Field # of Occurrence
^%DT 3+1, 6+1, 7+1, 8+1, 13+1, 14+1, 18+1, 40+1
^DGSEC ACT+1
^DIC 9+1, 11+1, 15+1, 86+1
^RABUL2 5(XREF 1K)
^RABUL3 .01(XREF 2K)
SECXREF^RADD1 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)
$$EN2^RADD2 IDWRITE+1
^RARTFLDS 53+1, 54+1, 102+1, 103+1, 104+1, 106+1, 107+1, 108+1, 109+1, 109.5+1
, 112+1, 113+1, 114+1, 115+1, 116+1, 118+1, 119+1
XREF^RAUTL2 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ID2+1
^RARPT - [#74] ACT+1, 8+1, 11(XREF 1S), 11(XREF 1K)
^RARPT("AA" 7(XREF 1S), 7(XREF 1K)
^RARPT("AC" 9.3(XREF 1S), 9.3(XREF 1K)
^RARPT("AD" 11(XREF 1S), 11(XREF 1K)
^RARPT("ASTAT" 5(XREF 4S), 5(XREF 4K)
^RARPT("B" .01(XREF 1S), .01(XREF 1K)
^RARPT("C" 2(XREF 1S), 2(XREF 1K)
^VA(200 - [#200] 9OF9.2+1, 15OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 ID2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 3+1*, 6+1*, 7+1*, 8+1*, 13+1*, 14+1*, 18+1*, 40+1*
>> %DT(0 8+1*!
>> D0 8+1
>> DA .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 5(XREF 4S), 5(XREF 4K), 7(XREF 1S), 7(XREF 1K), 9.3(XREF 1S), 9.3(XREF 1K)
11(XREF 1S), 11(XREF 1K)
DFN ACT+1~*
DIC ID2+1, 9+1!*, 11+1!*, 15+1!*, 86+1!*
DIC("S" 9+1*, 9SCR+1*, 11+1*, 11SCR+1*, 15+1*, 15SCR+1*, 86+1*, 86SCR+1*
>> DIE 9+1, 11+1, 15+1, 86+1
RAEXFLD 53+1*!, 54+1*!, 102+1*!, 103+1*!, 104+1*!, 106+1*!, 107+1*!, 108+1*!, 109+1*, 109.5+1*!
, 112+1*!, 113+1*!, 114+1*!, 115+1*!, 116+1*!, 118+1*!, 119+1*!
>> RAINADT 9OF9.2+1*, 15OF9.2+1*
RAKILL 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)
>> RAPRG74 .01(XREF 2K)
RARAD 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)
RARTFLD 109+1!
RASEC 5(XREF 3S)
>> RASECOND 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)
RASET 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)
RAXREF 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)
U ID2+1, 8+1, 11(XREF 1S), 11(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3+1*!, 4+1!, 5(XREF 2S), 5(XREF 3S), 5(XREF 4S)
5(XREF 4K), 6+1*!, 7+1*!, 7(XREF 1S), 7(XREF 1K), 8+1*!, 9+1*!, 9.1+1!, 9.2+1!, 9.3(XREF 1S)
9.3(XREF 1K), 10+1!, 11+1*!, 11(XREF 1S), 11(XREF 1K), 13+1*!, 14+1*!, 15+1*!, 16+1!, 18+1*!
, 25+1!, 40+1*!, 86+1*!
>> Y ACT+1*, 3+1, 6+1, 7+1, 8+1, 9+1, 9OF9.2+1, 10OT+1*, 11+1, 13+1
, 14+1, 15+1, 15OF9.2+1, 16OT+1*, 18+1, 40+1, 86+1
>> Y(0 10OT+1*, 16OT+1*
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