Global: ^RARPT

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

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 RA95PST RABUL3 RABWRTE RACNLU RACTVR RACTVR1 RACTVR5 RACTWR RACTWR1 RACTWR2 RACTWR4 RADD1 RADD2 RADRPT1A RAEDCN1 RAHLO2 RAHLO4 RAHLRPT RAHLRPT2 RAHLRU RAHLTCPU RAIPST3 RAO7CMP RAO7PC1A RAO7PC2 RAO7PC3 RAPCE RAPROD RAPURGE1 RARECOV RARESTOR RARIC RARIC1 RARPTUT RART RARTE RARTE1 RARTE3 RARTE6 RARTE7 RARTFLDS RARTR RARTRPV1 RARTST2 RARTST2A RARTUVR2 RARTVER RARTVER2 RASTREQ RATRAN RAUTL00 RAUTL10 RAUTL4 SECONDARY INTERPRETING STAFF ^RARPT RA27LIST RA27PST RAAPI RABTCH RABTCH1 RABUL2 RACTRT RACTVR4 RACTWR5 RADLQ1 RADLY RAEDCN RAERRPT RAHLO RAHLO1 RAHLQ RAHLRPT1 RAHLRPTT RAHLRU1 RAMAGU12 RAPM RAPM1 RAPRINT RAPROD1 RAPTLU RAREG RAREG1 RART1 RART2 RARTE4 RARTE5 RARTR0 RARTR2 RARTRPV RARTST RARTUVR RARTUVR3 RARTVER1 RAUTL11 RAUTL15 RAUTL2 RAUTL20 RAUTL21 RAUTL3 RAUTL7A RAUTL9 RAWKLU RAWKLU2 SECONDARY INTERPRET'G RESIDENT
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

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	6	MAGD350J 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

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

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)[9, 11, 15, 17, #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 RA556 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 RA547 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 RA556 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 RA543. 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).`

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)

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

>>	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

Customize PDF page

Package: Radiology Nuclear Medicine

Global: ^RARPT

Information

Description

Directly Accessed By Routines, Total: 180

Accessed By FileMan Db Calls, Total: 51

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 6

Fields, Total: 48

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: