Global: ^RARPT

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

Package	Total	Routines
Radiology Nuclear Medicine	106	BEFORE DELETION SEC. DX CODE BEFORE DELETION SEC. RESIDENT BEFORE DELETION SEC. STAFF ERROR REPORTS EXAMINATIONS IMAGE OTHER CASE# RA27LIST RA27PST RA95PST RAAPI RABTCH RABTCH1 RABUL2 RABUL3 RABWRTE RACNLU RACTTK2 RACTTK3 RACTTK4 RACTVR RACTVR1 RACTWR RACTWR1 RACTWR2 RADD1 RADD2 RADLQ1 RADLY RAEDCN RAEDCN1 RAERRPT RAHLO RAHLO1 RAHLO2 RAHLO4 RAHLQ RAHLRPT RAHLRPT1 RAHLRPT2 RAHLRPTT RAHLRU RAHLRU1 RAHLTCPU RAIPST3 RAO7CMP RAO7PC1A RAO7PC2 RAO7PC3 RAPCE RAPM RAPM1 RAPRINT RAPROD RAPROD1 RAPTLU RAPURGE1 RARECOV RAREG RAREG1 RARESTOR RARIC RARIC1 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 RAUTL2 RAUTL20 RAUTL21 RAUTL3 RAUTL4 RAUTL7A RAUTL9 RAWKLU RAWKLU2 SECONDARY INTERPRET'G RESIDENT SECONDARY INTERPRETING STAFF ^RARPT
Patient Care Component Table Maintiance	2	APCM24E6 APCM25E6
Tracking Procedure Workflow	2	BTPWPFND BTPWRRAD
Health Summary Components	1	BHSNRS
IHS Mods To Radiology Nuclear Medicine	1	BRAPCC
Local Area Programs	1	AZAXDPM2
Patient Care Component	1	APCHS8

Package	Total	Routines
Radiology Nuclear Medicine	25	RABWRTE RACTVR RACTVR1 RACTWR RACTWR1 RACTWR2 RAHLO1 RAHLRPTT RAHLRS RAHLRS1 RAMAGU12 RAO7PC1A RAO7PC3 RAPTLU RART RARTE1 RARTE4 RARTE5 RARTE6 RARTRPV1 RARTST1 RARTVER2 RAUTL15 RAUTL7A RAUTL8
Health Summary	2	GMTSRAE GMTSRAE1

Package	Total	FileMan Files
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]
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	VA 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 VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA 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
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
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
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
^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]	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)
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	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: 114

Accessed By FileMan Db Calls, Total: 27

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 5

Fields, Total: 48

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: