Global: ^RAO(75.1

FileMan FileNo	FileMan Filename	Package
75.1	RAD/NUC MED ORDERS	Radiology Nuclear Medicine

Package	Total	Routines
Radiology Nuclear Medicine	85	HL7 FIELD EXCEPTIONS PROCEDURE MODIFIERS RA REQ REJECTED SORT RA98PST RABUL RABWIBB RABWIBB2 RABWORD1 RABWORD2 RABWPCE RABWUTL RACPTCSV RACTRG2 RADEM1 RADRPT1A RAHLR RAHLR1 RAHLRU1 RAIPS124 RAIPS160 RAIPS196 RAIPST3 RAMAG02 RAMAG03A RAMAGU02 RAO7CH RAO7CMP RAO7NEW RAO7OKS RAO7PC1 RAO7PC1A RAO7PC2 RAO7PC3 RAO7PC4 RAO7PURG RAO7RCH RAO7RO RAO7ROCN RAO7SCH RAO7XX RAORD RAORD1 RAORD2 RAORD3 RAORD4 RAORD5 RAORD6 RAORD7A RAORD8 RAORDC RAORDC1 RAORDCP RAORDP RAORDQ RAORDS RAORDU RAORR1 RAORR2 RAPMW2 RAPRI RAPURGE1 RAREG1 RAREG2 RAREG3 RAREG4 RART3 RARTR3 RARTST RARTUVR2 RARTVER1 RASETU RASYNCH RASYNCHLU RAUTL00 RAUTL1 RAUTL10 RAUTL12 RAUTL13 RAUTL15 RAUTL19 ^RAO(75.1 RAUTL2 RAUTL8 RAUTODC SECONDARY ORDERING ICD DIAG.
Imaging	8	MAGBRTE4 MAGDRPC3 MAGDRPCB MAGJLS3 MAGJORD MAGJRPT MAGVIM05 MAGVIM07
DSS Extracts	2	ECXRAD ECXUTL
Health Summary	1	GMTSRAD
Kernel	1	FILE
Order Entry Results Reporting	1	OR3C100A

Package	Total	Routines
Radiology Nuclear Medicine	30	RA5130P RACMP1 RACTRG5 RADRPT1A RAIPR175 RAIPS124 RAMAG02A RAMAG03A RAMAGU02 RAMAORPT RAO7NEW RAO7RO RAORD RAORD1 RAORD1A RAORD5 RAORDC RAORDC1 RAORDCP RAORDU RAORR1 RAPROD RAPURGE1 RAREG2 RAREG3 RASTED RASYNCH RASYNCHLU RAUTL8 RAUTODC
Imaging	4	MAGDRPCB MAGVIM02 MAGVIM06 MAGVIM07
Health Summary	2	GMTSRAD GMTSRAE1
Order Entry Results Reporting	2	OR3C100A ORWORB
VA Point of Service	1	VPSRPC14

Package	Total	FileMan Files
Integrated Billing	1	PFSS ACCOUNT(#375)[15.01]
Radiology Nuclear Medicine	1	RAD/NUC MED PATIENT(#70)[#70.03(11)]

Package	Total	FileMan Files
Radiology Nuclear Medicine	6	CONTRACT/SHARING AGREEMENTS(#34)[9] RAD/NUC MED REASON(#75.2)[10, #75.12(4)] IMAGING LOCATIONS(#79.1)[20] IMAGING TYPE(#79.2)[3] RAD/NUC MED PROCEDURES(#71)[2] PROCEDURE MODIFIERS(#71.2)[#75.1125(.01)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[91, #75.13(.01)]
Integrated Billing	1	PFSS ACCOUNT(#375)[90]
Kernel	1	NEW PERSON(#200)[8, 14, 15, #75.12(3)]
Order Entry Results Reporting	1	ORDER(#100)[7]
Registration	1	PATIENT(#2)[.01]
Scheduling	1	HOSPITAL LOCATION(#44)[22]

Fields, Total: 44

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Select a patient name.` DESCRIPTION: `This field gives the name of this rad/nuc med patient. The system obtains this information from the main 'PATIENT' file (#2). It is not stored in the 'RAD/NUC MED PATIENT' file (#70).` `ALLOWABLE WAYS TO ENTER PATIENT NAME:` `------------------------------------` `-Patient's last name (to reduce typing errors,` `enter only first few letters of last name)` `-Last 4 digits of patient's Social Security Number` `-First letter of patient's last name and last 4` `digits of patient's Social Security Number.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE` CROSS-REFERENCE: `75.1^B` `1)= S ^RAO(75.1,"B",$E(X,1,30),DA)=""` `2)= K ^RAO(75.1,"B",$E(X,1,30),DA)` `Regular 'B' cross reference assigned by FileMan.` CROSS-REFERENCE: `^^TRIGGER^75.1^15` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAO(75.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(75.1,.01,1,2,1.4)` `1.4)= S DIH=$S($D(^RAO(75.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,15)=DIV,DIH=75.1,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `3)= Do not delete.` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= NO EFFECT` `FIELD)= USER ENTERING REQ` `Tracks the user who entered the request.` CROSS-REFERENCE: `^^TRIGGER^75.1^16` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAO(75.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(75.1,.01,1,3,1.1) X ^DD(75.1,.01,1,3,1.4)` `1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%` `1.4)= S DIH=$S($D(^RAO(75.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=75.1,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `3)= Do not delete.` `CREATE VALUE)= NOW` `DELETE VALUE)= NO EFFECT` `FIELD)= REQUEST ENTERED DATE/TIME` `Tracks when the request was entered.` RECORD INDEXES: `AC (#1718), AP (#1425), AS (#1426)`
1.1	REASON FOR STUDY	.1;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>64!($L(X)<3) X` LAST EDITED: `AUG 23, 2005` HELP-PROMPT: `The reason for study must be 3-64 characters in length.` DESCRIPTION: `The reason for the study is often a short patient history summarizing the condition of the patient and giving background information as to why the study has been initiated.` TECHNICAL DESCR: `The 'REASON FOR STUDY' field was added as a result of NSR: 20050606 'Standardize Vista RIS messaging interface to current IHE specs').` `This field was exported in patch RA5.075.`
2	PROCEDURE	0;2	POINTER TO RAD/NUC MED PROCEDURES FILE (#71)	RAD/NUC MED PROCEDURES(#71) INPUT TRANSFORM: `S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) ORDPRC^RAUTL2` LAST EDITED: `APR 03, 2017` HELP-PROMPT: `Enter the appropriate Imaging procedure.` DESCRIPTION: `This field points to the 'RAD/NUC MED PROCEDURES' file (#71) to indicate the Imaging procedure associated with this request.` `ALLOWABLE WAYS TO ENTER THE RADIOLOGY/NUCLEAR MEDICINE PROCEDURE FOR THIS REQUEST:` `-----------------------------------------------------------------` `-Name of procedure` `-CPT Code` `-Site specific synonym` SCREEN: `S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)"` EXPLANATION: `Only Active Procedures Allowed.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `AP (#1425)`
3	TYPE OF IMAGING	0;3	POINTER TO IMAGING TYPE FILE (#79.2)	IMAGING TYPE(#79.2) LAST EDITED: `APR 14, 1988` HELP-PROMPT: `This field contains the type of imaging used for this procedure.` DESCRIPTION: `This field points to the 'IMAGING TYPE' file (#79.2) to indicate the type of imaging used for this rad/nuc med request. It is filled in by the system with the appropriate type of imaging (i.e. GENERAL RADIOLOGY, NUCLEAR` `MEDICINE, ULTRASOUND, CT SCAN, MAGNETIC RESONANCE IMAGING, VASCULAR LAB, etc.). For example, when a General Radiology procedure is chosen, this field is filled in with 'GENERAL RADIOLOGY'.` `SOURCE OF DATA: SYSTEM GENERATED`
4	CATEGORY OF EXAM	0;4	SET	'I' FOR INPATIENT; 'O' FOR OUTPATIENT; 'C' FOR CONTRACT; 'S' FOR SHARING; 'E' FOR EMPLOYEE; 'R' FOR RESEARCH; LAST EDITED: `MAY 19, 1994` HELP-PROMPT: `Enter the appropriate exam category for this request.` DESCRIPTION: `This field contains the exam category associated with this request. It is used to compile various workload statistics and various management reports (i.e. AMIS and RCS14-4). Available exam categories are: 'I' for` `INPATIENT, 'O' for OUTPATIENT, 'C' for CONTRACT, 'E' for EMPLOYEE, and 'R' for RESEARCH.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	REQUEST STATUS	0;5	SET	'1' FOR DISCONTINUED; '2' FOR COMPLETE; '3' FOR HOLD; '5' FOR PENDING; '6' FOR ACTIVE; '8' FOR SCHEDULED; '11' FOR UNRELEASED; '13' FOR CANCELLED; INPUT TRANSFORM: `S:X=1!(X=3) RAXBUL=X D:X=1!(X=3) EN^RABUL(RAXBUL) S:$G(RAXBUL)=1!($G(RAXBUL)=3) X=RAXBUL K RAXBUL` LAST EDITED: `APR 20, 2021` HELP-PROMPT: `Enter the request status for this order.` DESCRIPTION: `This field is a set type field. The statuses in this field should correspond in name and number to those in the OE/RR 'ORDER STATUS' file (#100.01).` TECHNICAL DESCR: `With RA5.0169 'Cancelled' was added as a request status.` `SOURCE OF DATA: SYSTEM GENERATED` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `AS (#1426)`
6	REQUEST URGENCY	0;6	SET	'1' FOR STAT; '2' FOR URGENT; '9' FOR ROUTINE; LAST EDITED: `AUG 13, 1999` HELP-PROMPT: `Enter the appropriate urgency for the request.` DESCRIPTION: `This field value defaults to 'ROUTINE', when entering a new request for an imaging exam. Available Urgencies are: ROUTINE, URGENT and STAT.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE`
7	ORDER	0;7	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `FEB 10, 1989` HELP-PROMPT: `Enter the appropriate order.` DESCRIPTION: `This field points to the Order Entry/Results Reporting (OE/RR) 'ORDER' File (#100). This field will only contain data if the OE/RR Package is running and the Radiology/Nuclear Medicine package is available through OE/RR.` `SOURCE OF DATA: RAD/OE INTERFACE`
8	APPROVING RAD/NUC MED PHYS	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $S('$D(^(""RA"")):1,'$P(^(""RA""),U,3):1,DT'>$P(^(""RA""),U,3):1,1:0),$D(^VA(200,""ARC"",""S"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 04, 1999` HELP-PROMPT: `Enter the name of the approving imaging service physician.` DESCRIPTION: `This field points to the 'NEW PERSON' file (#200) to indicate the name of the radiology or nuclear medicine physician who approved this order. Procedures which require an approving physician are site specific.` SCREEN: `S DIC("S")="I $S('$D(^(""RA"")):1,'$P(^(""RA""),U,3):1,DT'>$P(^(""RA""),U,3):1,1:0),$D(^VA(200,""ARC"",""S"",+Y))"` EXPLANATION: `Personnel must be classified as Interpreting Staff Physician.` `SOURCE OF DATA: RAD/NUC MED SERVICE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	CONTRACT/SHARING SOURCE	0;9	POINTER TO CONTRACT/SHARING AGREEMENTS FILE (#34)	CONTRACT/SHARING AGREEMENTS(#34) INPUT TRANSFORM: `S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 08, 1991` HELP-PROMPT: `Enter the contract or sharing agreement that referred this patient.` DESCRIPTION: `This field is used for exams with a 'category of exam' of 'contract' or 'sharing'. It points to the 'CONTRACT/SHARING AGREEMENTS' file (#34) to indicate the name of the contract or sharing agreement that referred this` `patient to the imaging service for this exam.` SCREEN: `S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)"` EXPLANATION: `Only active agreements are selectable.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE`
9.5	RESEARCH SOURCE	R;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `MAR 29, 1988` HELP-PROMPT: `Enter the research source (3-40 characters) that referred this patient.` DESCRIPTION: `This field is used for exams with a 'category of exam' of 'research'. This field contains the name (3-40 characters) of the research source that referred this patient to the imaging service for this exam.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE`
10	REASON	0;10	POINTER TO RAD/NUC MED REASON FILE (#75.2)	RAD/NUC MED REASON(#75.2) LAST EDITED: `JUN 24, 1988` HELP-PROMPT: `Select the reason for the 'HOLD' or 'CANCELLED' status.` DESCRIPTION: `This field points to the 'RAD/NUC MED REASON' file (#75.2) to indicate the reason a request is placed in the 'HOLD' or 'CANCELLED' status.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE`
11	ORIGINAL REQUEST CHANGED	0;11	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `JUL 11, 1988` HELP-PROMPT: `Enter whether or not the original request was changed by the Radiology or Nuclear Medicine Service.` DESCRIPTION: `This field contains a value to indicate if the information contained in the original request was changed by Rad/Nuc Med Service. Available values are: 'Y' for 'Yes' and 'N' for 'NO".` `This field is populated when the request moves to a 'complete' status. If the procedure on the request is a 'parent' procedure, this field will always be set to 'yes' since it is not the parent procedure that is actually` `performed.` `SOURCE OF DATA: RAD/NUC MED SERVICE`
12	PRE-OP SCHEDULED DATE/TIME	0;12	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 02, 1991` HELP-PROMPT: `If a pre-op has been scheduled, enter the date and time.` DESCRIPTION: `This field contains the date/time if a patient has a pre-op scheduled.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE`
13	PREGNANT	0;13	SET	**********************REQUIRED FIELD********************** 'y' FOR YES; 'n' FOR NO; 'u' FOR UNKNOWN; LAST EDITED: `NOV 17, 1997` HELP-PROMPT: `Enter the pregnancy status of the patient.` DESCRIPTION: `This field contains a value to indicate if the patient is pregnant. Available values are 'Y' for 'Yes' and 'N' for 'No'. If 'Yes', a warning message is displayed to the receptionist when this patient is registered for the` `procedure requested.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE`
14	REQUESTING PHYSICIAN	0;14	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$PROV^RABWORD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 01, 2004` HELP-PROMPT: `Enter the name of the person requesting this exam.` DESCRIPTION: `This field points to the 'NEW PERSON' file (#200) to indicate the name of the person who requested this rad/nuc med exam. This person is not always a physician. (i.e. A nurse might request the exam.)` SCREEN: `S DIC("S")="I $$PROV^RABWORD"` EXPLANATION: `Provider must be active.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
15	USER ENTERING REQUEST	0;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 02, 1990` HELP-PROMPT: `This field contains the name of the person entering the request.` DESCRIPTION: `This field points to the 'NEW PERSON' file (#200) to indicate the person entering the request into the rad/nuc med system. It is filled in by the system from information the user entered at sign-on.` `WRITE AUTHORITY: ^` `SOURCE OF DATA: SYSTEM GENERATED` NOTES: `TRIGGERED by the NAME field of the RAD/NUC MED ORDERS File`
16	REQUEST ENTERED DATE/TIME	0;16	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 26, 1988` HELP-PROMPT: `This is the date and time the request was entered.` DESCRIPTION: `This field contains the date and time the request was entered into the system.` `SOURCE OF DATA: MEDICAL ADMINISTRATION OR IMAGING SERVICE` NOTES: `TRIGGERED by the NAME field of the RAD/NUC MED ORDERS File`
17	PAST VISIT DATE/TIME	0;17	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 24, 1988` HELP-PROMPT: `This is the last date and time the patient visited the Radiology/Nuclear Medicine Service.` DESCRIPTION: `This field contains the date and time of the patient's last recorded visit to the Radiology/Nuclear Medicine Service.` `SOURCE OF DATA: SYSTEM DETERMINED`
18	LAST ACTIVITY DATE/TIME	0;18	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 31, 1988` HELP-PROMPT: `This is the date and time of the last action on this request.` DESCRIPTION: `This field contains the date and time the last action was taken on this request.` `SOURCE OF DATA: SYSTEM GENERATED` CROSS-REFERENCE: `75.1^AO` `1)= S ^RAO(75.1,"AO",$E(X,1,30),DA)=""` `2)= K ^RAO(75.1,"AO",$E(X,1,30),DA)` `Used to generate a list of requests by last activity date/time.`
19	MODE OF TRANSPORT	0;19	SET	'a' FOR AMBULATORY; 'p' FOR PORTABLE; 's' FOR STRETCHER; 'w' FOR WHEEL CHAIR; LAST EDITED: `FEB 13, 1989` HELP-PROMPT: `Enter the mode of transport for this patient.` DESCRIPTION: `This field contains the mode of transport which the patient will require when the exam is performed. Available categories are : AMBULATORY, PORTABLE, STRETCHER and WHEEL CHAIR.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE`
20	IMAGING LOCATION	0;20	POINTER TO IMAGING LOCATIONS FILE (#79.1)	IMAGING LOCATIONS(#79.1) INPUT TRANSFORM: `S DIC("S")="I $$SUBMIT^RAUTL13(DA,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 09, 1994` HELP-PROMPT: `This is the imaging location of the exam.` DESCRIPTION: `This field points to the 'IMAGING LOCATIONS' file (#79.1) to indicate the name of the imaging location within the hospital division where the rad/nuc med exam is to be performed.` SCREEN: `S DIC("S")="I $$SUBMIT^RAUTL13(DA,+Y)"` EXPLANATION: `Imaging Location's imaging type must match procedure's imaging type.` `SOURCE OF DATA: SYSTEM GENERATED`
21	DATE DESIRED (Not guaranteed)	0;21	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 03, 2019` HELP-PROMPT: `Enter the date on which you would like the exam done.` DESCRIPTION: `This field contains the date for which the rad/nuc med exam is requested. This field should not be interpreted as an appointment date.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE` FIELD INDEX: `BDD (#1510) REGULAR IR LOOKUP & SORTING` `Short Descr: A cross reference on the DATE DESIRED (Not guaranteed) fld.` `Description: A cross reference has been created on the DATE DESIRED (Not guaranteed) field which will allow the VistA RIS application to check radiology orders for inactivity.` `Inactivity on orders falling under existing business rules will have the REQUEST STATUS of that order changed to 'Discontinued'.` `This cross reference was introduced in RA5.0135.` `Set Logic: S ^RAO(75.1,"BDD",$E(X,1,30),DA)=""` `Kill Logic: K ^RAO(75.1,"BDD",$E(X,1,30),DA)` `Whole Kill: K ^RAO(75.1,"BDD")` `X(1): DATE DESIRED (Not guaranteed) (75.1,21) (Subscr 1) (Len 30) (forwards)` RECORD INDEXES: `AP (#1425)`
22	REQUESTING LOCATION	0;22	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `FEB 27, 2008` HELP-PROMPT: `Enter the name of the hospital location requesting the exam.` DESCRIPTION: `This field points to the 'HOSPITAL LOCATION' file (#44) to indicate the name of the hospital location that is requesting the exam.` TECHNICAL DESCR: `This field has been modified with the release of patch: RA5.086.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE`
23	SCHEDULED DATE (TIME optional)	0;23	DATE	INPUT TRANSFORM: `S %DT="EFT" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 22, 1993` HELP-PROMPT: `Enter the scheduled date for this exam.` DESCRIPTION: `This field contains the scheduled date and time of the requested exam.` `SOURCE OF DATA: RAD/NUC MED SERVICE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `75.1^AD^MUMPS` `1)= S ^RAO(75.1,"AD",X,+$P(^RAO(75.1,DA,0),U),DA)=""` `2)= K ^RAO(75.1,"AD",X,+$P(^RAO(75.1,DA,0),U),DA)` `Used to print log of scheduled requests.`
24	ISOLATION PROCEDURES	0;24	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `JAN 18, 1994` HELP-PROMPT: `Enter 'Y'es if the patient is on isolation.` DESCRIPTION: `This field contains 'YES' if the patient is on isolation procedures at the time the request is submitted, or 'NO' if the patient is not. If the patient is on isolation procedures the following message will be displayed on` `the request printed in the imaging service location:` ` Universal Isolation Precautions ` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE`
25	HOLD DESCRIPTION	1;0	WORD-PROCESSING #75.125	DESCRIPTION: `This is a word processing field for entering the reason an order is on hold.` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Explain the reason this order is on hold.` DESCRIPTION: `This is the reason for placing this order on hold.`
26	NATURE OF (NEW) ORDER ACTIVITY	0;26	SET	'w' FOR WRITTEN; 'v' FOR VERBAL; 'p' FOR TELEPHONED; 's' FOR SERVICE CORRECTION; 'i' FOR POLICY; 'e' FOR PHYSICIAN ENTERED; LAST EDITED: `JAN 11, 1997` HELP-PROMPT: `Select the code that most closely describes why you are entering this order.` DESCRIPTION: `This is the Nature of Order Activity for newly entered orders through the Radiology/Nuclear Medicine 'back door' order entry option. This information is needed to clarify which actions should be taken as a result of` `entering this order. Depending on the facility configuration of the Nature of Order Activity in the OE/RR software, the code entered here may or may not trigger alerts for electronic signatures and chart copy printing.` EXECUTABLE HELP: `I $L($T(NA1^ORX1)) D NA1^ORX1("I ""WVPSIE""[$P(^(0),""^"",2)")`
27	CANCEL DESCRIPTION	0;27	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 30, 2020` HELP-PROMPT: `Enter the reason for the CANCELED status, 3 to 40 characters.` DESCRIPTION: `This field indicates the reason a request is placed in the 'CANCELED' status via CPRS (front-door) only. The description matches an entry on file #100.03. If not canceled using CPRS, then this field will be empty and the` `REASON field (field 10) will be populated instead.` `This field also tracks the reason a radiology order, placed through the backdoor, is rejected by CPRS.` TECHNICAL DESCR: `The description for this field was updated by RA5.0169 to include an explanation of backdoor ordering workflow.`
75	REQUEST STATUS TIMES	T;0	DATE Multiple #75.12	75.12 DESCRIPTION: `This field is a multiple that contains dates and times the status of the request is changed. The status changes will only be recorded if the Division Parameter 'Track Request Status Changes' is set to 'YES'.`
90	PFSS ACCOUNT REFERENCE	0;28	POINTER TO PFSS ACCOUNT FILE (#375)	**********************REQUIRED FIELD********************** PFSS ACCOUNT(#375) LAST EDITED: `JUN 22, 2005` HELP-PROMPT: `This value is filled in by the system. Do NOT change the value of this field.` DESCRIPTION: `This field points to the PFSS ACCOUNT file (#375). The value is returned from the GETACCT^IBBAPI, which Radiology silently invokes whenever an order is placed, whether from the Front Door (CPRS) or from the Back Door` `(Vista Radiology).` TECHNICAL DESCR: `Calls referencing PFSS Account Reference (field 90 file #75.1)) uses DBIA #4741` `UNEDITABLE`
91	PRIMARY ORDERING ICD DIAGNOSIS	BA;1	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** ICD DIAGNOSIS(#80) LAST EDITED: `SEP 18, 2003` HELP-PROMPT: `Enter the ICD Diagnosis primarily responsible for this order.` DESCRIPTION: `This field contains the Primary ICD Diagnosis responsible for this order.`
92	PRIMARY DX RELATED TO SC	BA;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 22, 2003` HELP-PROMPT: `If this order is for treating a Service Connected related problem, enter "YES" here.` DESCRIPTION: `This field will be used to indicate if this order was for treating a VA patient based on a Service Connected related problem.`
93	PRIMARY DX RELATED TO AO	BA;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 22, 2003` HELP-PROMPT: `If this order is for treating an Agent Orange related problem, enter "YES" here.` DESCRIPTION: `This field will be used to indicate if this order was for treating a VA patient based on an Agent Orange related problem.`
94	PRIMARY DX RELATED TO IR	BA;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 22, 2003` HELP-PROMPT: `If this order is for treating an Ionizing Radiation related problem, enter "YES" here.` DESCRIPTION: `This field will be used to indicate if this order was for treating a VA patient based on an Ionizing Radiation related problem.`
95	PRIMARY DX RELATED TO SWAC	BA;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 27, 2006` HELP-PROMPT: `If this order is for treating a Southwest Asia Conditions related problem, enter "YES" here.` DESCRIPTION: `This field is used to indicate if this order was for treating a VA patient based on a Southwest Asia Conditions related problem.`
96	PRIMARY DX RELATED TO MST	BA;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 22, 2003` HELP-PROMPT: `If this order is for treating a Military Sexual Trauma related problem, enter "YES" here.` DESCRIPTION: `This field will be used to indicate if this order was for treating a VA patient based on a Military Sexual Trauma related problem.`
97	PRIMARY DX RELATED TO HNC	BA;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 26, 2004` HELP-PROMPT: `If this order is for treating a Head and Neck cancer (HNC) related problem, enter "YES" here.` DESCRIPTION: `This field will be used to indicate if this order was for treating a VA patient based on a Head and Neck cancer (HNC) related problem.`
98	SECONDARY ORDERING ICD DIAG.	BAS;0	POINTER Multiple #75.13	75.13
99	PRIMARY DX RELATED TO CV	BA;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `FEB 18, 2004` HELP-PROMPT: `If this order is for treating a Combat Veteran related problem, enter "YES" here.` DESCRIPTION: `This field will be used to indicate if this order was for treating a VA patient based on an Combat Veteran related problem.`
100	PRIMARY DX RELATED TO SHAD	BA;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 14, 2006` HELP-PROMPT: `If this order is for treating a Shipboard Hazard and Defense related problem, enter 'YES' here.` DESCRIPTION: `This field is used to indicate if this order was for treating a VA patient based on a Shipboard Hazard and Defense related problem.`
125	PROCEDURE MODIFIERS	M;0	POINTER Multiple #75.1125	75.1125 LAST EDITED: `AUG 06, 1999` DESCRIPTION: `This multiple field is used to store the rad/nuc med procedure modifiers that are associated with this exam.`
201	REFERRED TO COMMUNITY CARE?	2;1	SET (BOOLEAN Data Type)	option. LAST EDITED: `NOV 14, 2022` HELP-PROMPT: `Enter YES if this order has been referred to community care` DESCRIPTION: `This field is an indicator if the request has been referred to community care using the auto-referral option 'Refer Selected Requests to COMMUNITY CARE Provider' (RA ORDERREF). This field is automatically populated by the` `option.` RECORD INDEXES: `AC (#1718)`
400	CLINICAL HISTORY FOR EXAM	H;0	WORD-PROCESSING #75.11	DESCRIPTION: `This field may contain a written clinical history pertinent to the procedure requested, as well as instructions to the interpreting physician. For example, the instructions might be for the interpreting physician to read` `the exam films to rule out the possibility of a patient having a certain disease.` `This field is used as the 'Clinical History' that appears on the printed report for each exam associated with this visit.` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED RECEPTIONIST` `CLINICAL HISTORY PERTINENT TO PROCEDURE` LAST EDITED: `JAN 12, 1995` HELP-PROMPT: `Enter the patient's clinical history pertinent to the procedure and/or any specific instructions for the interpreting physician.` DESCRIPTION: `This field may contain a written clinical history pertinent to the procedure ordered as well as instructions to the interpreting physician. For example, the instructions might be for the interpreting physician to read` `the exam films to rule out the possibilty of the patient having a certain disease. This field is used as the 'Clinical History' that appears on the printed report for each exam associated with this visit.`

Name	Field # of Occurrence
^%DT	12+1, 16+1, 17+1, 18+1, 21+1, 23+1
NOW^%DTC	.01(XREF 3n1.1)
^DIC	2+1, 8+1, 9+1, 14+1, 20+1
^DICR	.01(XREF 2n1.4), .01(XREF 3n1.4)
Y^DIQ	ID2+1
NA1^ORX1	26(HELP )
ORDPRC^RAUTL2	2+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4), .01(XREF 3n1.4)
^DD(71	ID2+1
^DD(75.1	.01(XREF 2S), .01(XREF 3S)
^RAMIS(71 - [#71]	ID2+1
^RAO(75.1 - [#75.1]	IXACSL+1, IXACKL+1!, IXACKEIC+1!, IXAPSL+1, IXAPKL+1!, IXAPKEIC+1!, IXASSL+1, IXASKL+1!, IXASKEIC+1!, IXBDDSL+1 , IXBDDKL+1!, IXBDDKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), 18(XREF 1S), 18(XREF 1K) , 23(XREF 1S), 23(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.01(XREF 3n1.1)
>> %DT	12+1, 16+1, 17+1, 18+1, 21+1, 23+1
%H	.01(XREF 3n1.1)
%I	ID2+1*!, .01(XREF 3n1.1)
>> C	ID2+1*
>> D0	.01(XREF 2S), .01(XREF 3S)
>> DA	IXACSL+1, IXACKL+1, IXAPSL+1, IXAPKL+1, IXASSL+1, IXASKL+1, IXBDDSL+1, IXBDDKL+1, .01(XREF 1S), .01(XREF 1K) , .01(XREF 2S), .01(XREF 3S), 18(XREF 1S), 18(XREF 1K), 23(XREF 1S), 23(XREF 1K)
DIC	ID2+1, 2+1!, 8+1!, 9+1!, 14+1!, 20+1!*
DIC("S"	2+1, 2SCR+1, 8+1, 8SCR+1, 9+1, 9SCR+1, 14+1, 14SCR+1, 20+1, 20SCR+1
>> DIE	2+1, 8+1, 9+1, 14+1, 20+1
>> DIG	.01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIU	.01(XREF 2S), .01(XREF 3S)
DIV	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
DUZ	.01(XREF 2S)
U	ID2+1, ID16+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), 23(XREF 1S), 23(XREF 1K)
X	IXAPP3TS+1, IXBDDSL+1, IXBDDKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4) , 1.1+1!, 2+1!, 8+1!, 9+1!, 9.5+1!, 12+1!, 14+1!, 16+1!, 17+1!, 18+1! , 18(XREF 1S), 18(XREF 1K), 20+1!, 21+1!, 23+1!, 23(XREF 1S), 23(XREF 1K), 27+1!
X(1	IXACSL+1, IXACKL+1, IXAPSL+1, IXAPKL+1, IXASSL+1, IXASKL+1
X(2	IXACSL+1, IXACKL+1, IXAPSL+1, IXAPKL+1, IXASSL+1, IXASKL+1
X(3	IXAPSL+1, IXAPKL+1
Y	ID2+1*, .01(XREF 2S), .01(XREF 3S), 2+1, 8+1, 9+1, 12+1, 14+1, 16+1, 17+1 , 18+1, 20+1, 21+1, 23+1
Y(1	.01(XREF 2S), .01(XREF 3S)

Customize PDF page

Package: Radiology Nuclear Medicine

Global: ^RAO(75.1

Information

Description

Directly Accessed By Routines, Total: 101

Accessed By FileMan Db Calls, Total: 39

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 12

Fields, Total: 44

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Marked Items