Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields

Print Page as PDF

Global: ^RADPT

Package: Radiology Nuclear Medicine

Global: ^RADPT

Information

FileMan FileNo	FileMan Filename	Package
70	RAD/NUC MED PATIENT	Radiology Nuclear Medicine

Description

This file contains imaging information for patients. This file is the focal point of the entire radiology/nuclear medicine module. The file has four basic sections. They are the following: I. General Patient demographics II. Patient demographics that are imaging related III. Registered exam information IV. Outside films registry; where films received from other hospitals are recorded into the system Data Storage ------------ The data for the 'RAD/NUC MED PATIENT' file is stored under the ^RADPT global. This file is very volatile and should be journaled and translated if the operating system supports these two functions. Input Templates --------------- The following is a list of input templates used by the package and the entry in the OPTIONS file (#19) that uses the template: Compiled Name Routine Description; Option(s) ---- -------- ---------------------- RA DIAGNOSTIC BY CASE Used to input interpreting physicians and diagnostic code; RA DIAGCN RA OUTSIDE ADD Add outside films into system; RA ADDEXAM RA OUTSIDE EDIT Edit outside film registry; RA OUTEDIT RA OUTSIDE SUPEROK Indicate outside film to require supervisor 'ok' before returning; RA OUTFLAG RA CANCEL Cancel a registered exam; RA CANCEL RA EXAM EDIT Edit a registered exam; RA EDITCN, RA EDITPT RA LAST PAST VISIT Allows entry of the last visit by a patient to the department before this module was installed; RA PAST RA NO PURGE SPEC IFICATION Indicates no purging of an exam report. RA NOPURGE RA OVERRIDE Exam status is made complete without doing a requirements check; RA OVERRIDE RA REGISTER ^RACTRG* Initial registered exam entry; RA REG RA STATUS CHANGE Status Tracking input; RA STATRACK If any modifications to these input templates are needed for local purposes, then great care should be taken not to degrade any branching logic in the template. Making modifications is not recommended. The following templates contain a large amount of branching and MUMPS code and as a result they are uneditable: - RA REGISTER - RA STATUS CHANGE - RA EXAM EDIT Print Templates --------------- The following is a list of print templates used by the package: Name Description; Option(s) ---- ---------------------- RA DAILY LOG Prints an informational report for all exams for a specified date. RA LOG RA OUTSIDE LIST Prints list of outside films needing to be returned by a specified date; RA OUTSIDERPT Sort Templates -------------- The following is a list of sort templates associated with this file: Name Related Print Template ---- ---------------------- RA DAILY LOG RA DAILY LOG RA OUTSIDE LIST RA OUTSIDE LIST Also, the modification of the other sort templates is not recommended. APPLICATION GROUP(S): RA

Accessed By FileMan Db Calls, Total: 30

Package	Total	Routines
Radiology Nuclear Medicine	26	RA27LIST RACTRG RACTRG1 RACTRG2 RACTRG3 RACTRG4 RACTRG5 RACTRG6 RACTRG7 RACTRG8 RADPA RADRPT1 RAEDCN RAEDPT RAESO RAHLEX RAIPS119 RAO7PC4 RAO7XX RAORD1 RAOUT RAPAST RAPTLU RAPXRM RAREG2 RASTED
Health Summary	3	GMTSRAI GMTSRAS GMTSRASP
Imaging	1	MAGDRA2

Pointer To FileMan Files, Total: 25

Package	Total	FileMan Files
Radiology Nuclear Medicine	16	CONTRACT/SHARING AGREEMENTS(#34)[#70.03(9)] EXAMINATION STATUS(#72)[#70.03(3), #70.05(2)] RAD/NUC MED REASON(#75.2)[#70.03(3.5)] COMPLICATION TYPES(#78.1)[#70.03(16)] DIAGNOSTIC CODES(#78.3)[#70.03(13), #70.14(.01)] FILM SIZES(#78.4)[#70.04(.01)] CAMERA/EQUIP/RM(#78.6)[#70.03(18)] RAD/NUC MED DIVISION(#79)[#70.02(3)] IMAGING LOCATIONS(#79.1)[#70.02(4)] IMAGING TYPE(#79.2)[#70.02(2)] RADIATION ABSORBED DOSE(#70.3)[#70.03(1.1)] NUC MED EXAM DATA(#70.2)[#70.03(500)] RAD/NUC MED PROCEDURES(#71)[#70.03(2)] PROCEDURE MODIFIERS(#71.2)[#70.1(.01)] RAD/NUC MED ORDERS(#75.1)[#70.03(11)] RAD/NUC MED REPORTS(#74)[#70.03(17)]
Registration	3	WARD LOCATION(#42)[#70.03(6)] SPECIALTY(#42.4)[#70.03(19)] PATIENT(#2)[.01]
Kernel	2	SERVICE/SECTION(#49)[#70.03(7)] NEW PERSON(#200)[.06, #70.03(12), #70.03(14), #70.03(15), #70.05(3), #70.07(3), #70.08(3), #70.09(.01), #70.11(.01), #70.12(.01), #70.15(4), #70.16(3)]
CPT HCPCS Codes	1	CPT MODIFIER(#81.3)[#70.3135(.01)]
PCE Patient Care Encounter	1	VISIT(#9000010)[#70.03(27)]
Pharmacy Data Management	1	DRUG(#50)[#70.15(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[#70.03(8), #70.03(22)]

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `MAY 25, 1994` HELP-PROMPT: `Enter the name of the appropriate Radiology/Nuclear Medicine patient.` DESCRIPTION: `This field gives the name of this Radiology/Nuclear Medicine 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` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `70^B` `1)= S ^RADPT("B",$E(X,1,30),DA)=""` `2)= K ^RADPT("B",$E(X,1,30),DA)` `Regular cross reference assigned to the '.01' field.`
.03	DATE OF BIRTH		COMPUTED DATE	MUMPS CODE: `X ^DD(70,.03,9.2) S X=$P(Y(70,.03,101),U,3) S D0=Y(70,.03,2)` `9.2 = S Y(70,.03,2)=$S($D(D0):D0,1:""),Y(70,.03,1)=$S($D(^RADPT(D0,0)):^(0),1:""),D0=$P(Y(70,.03,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(70,.03,101)=$S($D(^DPT(D0,0)):^(0),1:"")` ALGORITHM: `#.01:#.03` LAST EDITED: `MAY 25, 1994` DESCRIPTION: `This field is computed by the system to be the date of birth of this Radiology/Nuclear Medicine patient. The system obtains this information from the main 'PATIENT' file (#2). It is not stored in the 'RAD/NUC MED` `PATIENT' file (#70).` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE`
.033	AGE		COMPUTED	MUMPS CODE: `X ^DD(70,.033,9.2) S X=Y(70,.033,101) S D0=Y(70,.033,2)` `9.2 = S Y(70,.033,2)=$S($D(D0):D0,1:""),Y(70,.033,1)=$S($D(^RADPT(D0,0)):^(0),1:""),D0=$P(Y(70,.033,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S Y(70,.033,101)=X` ALGORITHM: `#.01:#.033` LAST EDITED: `MAY 25, 1994` DESCRIPTION: `This field is computed by the system to the age of this Radiology/Nuclear Medicine patient. The system obtains this information from the main 'PATIENT' file (#2). It is not stored in the 'RAD/NUC MED PATIENT' file (#70).` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE`
.04	USUAL CATEGORY	0;4	SET	**********************REQUIRED FIELD********************** 'O' FOR OUTPATIENT; 'C' FOR CONTRACT; 'S' FOR SHARING; 'R' FOR RESEARCH; 'E' FOR EMPLOYEE; LAST EDITED: `MAY 25, 1994` HELP-PROMPT: `This is the usual category of exam (Outpatient, Contract, Sharing, Research, or Employee) for this Radiology/Nuclear Medicine patient.` DESCRIPTION: `This field contains a default value used during the exam registration process to indicate the category of exam for this Radiology/Nuclear Medicine patient. Available categories are: 'O' for OUTPATIENT, 'C' for CONTRACT,` `'S' for SHARING, 'R' for RESEARCH, and 'E' for EMPLOYEE.` `SOURCE OF DATA: RAD/NUC MED SERVICE`
.06	USER WHO ENTERED PATIENT	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 25, 1994` HELP-PROMPT: `This field contains the name of the person who entered this patient into the Radiology/Nuclear Medicine system.` DESCRIPTION: `This field points to the 'NEW PERSON' file (#200) to indicate the person who entered this patient into the Radiology/Nuclear Medicine system. It is filled in by the system from information the user entered at sign-on.` `SOURCE OF DATA: SYSTEM GENERATED`
.09	SSN		COMPUTED	MUMPS CODE: `X ^DD(70,.09,9.2) S X=$P(Y(70,.09,101),U,9) S D0=Y(70,.09,2)` `9.2 = S Y(70,.09,2)=$S($D(D0):D0,1:""),Y(70,.09,1)=$S($D(^RADPT(D0,0)):^(0),1:""),D0=$P(Y(70,.09,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(70,.09,101)=$S($D(^DPT(D0,0)):^(0),1:"")` ALGORITHM: `#.01:#.09` LAST EDITED: `MAY 25, 1994` DESCRIPTION: `This field is computed by the system to the social security number of this Radiology/Nuclear Medicine patient. The system obtains this information from the main 'PATIENT' file (#2). It is not stored in the 'RAD/NUC MED` `PATIENT' file (#70).` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE`
.361	ELIGIBILITY CODE		COMPUTED	MUMPS CODE: `X ^DD(70,.361,9.2) S X=$S('$D(^DIC(8,+$P(Y(70,.361,101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(70,.361,2)` `9.2 = S Y(70,.361,2)=$S($D(D0):D0,1:""),Y(70,.361,1)=$S($D(^RADPT(D0,0)):^(0),1:""),D0=$P(Y(70,.361,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(70,.361,101)=$S($D(^DPT(D0,.36)):^(.36),1:"")` ALGORITHM: `#.01:#.361` LAST EDITED: `MAY 25, 1994` DESCRIPTION: `This field is computed by the system to the eligibility code of this Radiology/Nuclear Medicine patient from information obtained from the main 'PATIENT' file (#2). It is not stored in the 'RAD/NUC MED PATIENT' file` `(#70).` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE`
1	NARRATIVE	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<3) X` LAST EDITED: `MAY 25, 1994` HELP-PROMPT: `Enter a brief description, between 3 and 250 characters in length, about this Radiology/Nuclear Medicine patient.` DESCRIPTION: `This field may contain a brief note (up to 250 characters) about this Radiology/Nuclear Medicine patient. It may describe the personality or any unusual characteristic to identify this Radiology/Nuclear Medicine patient.` `SOURCE OF DATA: RAD/NUC MED RECEPTIONIST`
2	REGISTERED EXAMS	DT;0	DATE Multiple #70.02	70.02 LAST EDITED: `APR 14, 2009` DESCRIPTION: `This is a multiple field containing information about the patient's registered Radiology/Nuclear Medicine exams.`
50	OUTSIDE FILMS REGISTRY	O;0	DATE Multiple #70.06	70.06 DESCRIPTION: `This is a multiple field containing information about this patient's films obtained from an outside source.` IDENTIFIED BY: `REMARKS(#20)`
1901	IS PATIENT A VETERAN?		COMPUTED	MUMPS CODE: `X ^DD(70,1901,9.3) S X=$P($P(Y(70,1901,102),$C(59)_$P(Y(70,1901,101),U,1)_":",2),$C(59),1) S D0=Y(70,1901,2)` `9.2 = S Y(70,1901,2)=$S($D(D0):D0,1:""),Y(70,1901,1)=$S($D(^RADPT(D0,0)):^(0),1:""),D0=$P(Y(70,1901,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1` `9.3 = X ^DD(70,1901,9.2) S Y(70,1901,102)=$C(59)_$S($D(^DD(2,1901,0)):$P(^(0),U,3),1:""),Y(70,1901,101)=$S($D(^DPT(D0,"VET")):^("VET"),1:"")` ALGORITHM: `#.01:#1901` DESCRIPTION: `This field is computed by the system and indicates whether this patient is a veteran or not. The system obtains this information from the main 'PATIENT' file (#2). It is not stored in this file (#70).` `SOURCE OF DATA: MEDICAL ADMINISTRATION SERVICE`

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields