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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^RADPTN

Package: Radiology Nuclear Medicine

Global: ^RADPTN

Information

FileMan FileNo	FileMan Filename	Package
70.2	NUC MED EXAM DATA	Radiology Nuclear Medicine

Description

This file contains information specific to nuclear medicine studies in which radiopharmaceuticals are used.

Accessed By FileMan Db Calls, Total: 8

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 6

Fields, Total: 4

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `DEC 01, 1995` HELP-PROMPT: `Enter the name of the patient.` DESCRIPTION: `The name of the patient for this exam.` TECHNICAL DESCR: `This field is one of three at the top level of this file used as a "back-pointer" to the case subrecord in the Rad/Nuc Med patient file #70 to which the multiple radiopharmaceutical data applies. This field is` `automatically populated when the record is created during Registration or case editing.` PRE-LOOKUP: `;K:'$D(RAIMGTY) X D EN^DDIOL(" FileMan selections not allowed!","","?0")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `70.2^B` `1)= S ^RADPTN("B",$E(X,1,30),DA)=""` `2)= K ^RADPTN("B",$E(X,1,30),DA)` CROSS-REFERENCE: `70.2^AA1^MUMPS` `1)= N RA S RA=$G(^RADPTN(DA,0)),RA(2)=$P(RA,"^",2),RA(3)=$P(RA,"^",3) S:RA(2)]""&(RA(3)]"") ^RADPTN("AA",X,RA(2),RA(3),DA)=""` `2)= N RA S RA=$G(^RADPTN(DA,0)),RA(2)=$P(RA,"^",2),RA(3)=$P(RA,"^",3) K:RA(2)]""&(RA(3)]"") ^RADPTN("AA",X,RA(2),RA(3),DA)`
2	EXAM DATE/TIME	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 25, 1997` HELP-PROMPT: `Enter the date/time of this exam.` DESCRIPTION: `This is the date/time this exam took place and should be an exact match to an existing exam in the Rad/Nuc Med Patient file #70. It is automatically populated when records are created in file 70.2.` TECHNICAL DESCR: `This field is one of three fields used to identify the case (3rd level multiple subrecord) in the Rad/Nuc Med Patient file #70 to which the radiopharmaceutical data applies. It is automatically populated when the record` `in file 70.2 is created during Registration or case editing.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `70.2^AB` `1)= S ^RADPTN("AB",$E(X,1,30),DA)=""` `2)= K ^RADPTN("AB",$E(X,1,30),DA)` CROSS-REFERENCE: `70.2^AA2^MUMPS` `1)= N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,"^"),RA(3)=$P(RA,"^",3) S:RA(1)]""&(RA(3)]"") ^RADPTN("AA",RA(1),X,RA(3),DA)=""` `2)= N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,"^"),RA(3)=$P(RA,"^",3) K:RA(1)]""&(RA(3)]"") ^RADPTN("AA",RA(1),X,RA(3),DA)` `This M x-ref is used to relate entries in this file to the main entry for the exam in the Rad/Nuc Med Patient file #70.` `Format: ^RADPTN("AB",DFN,Exam_Date,Case) Ex: ^RADPTN("AB",6552,2980103.1415,265)`
3	CASE NUMBER	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 09, 1995` HELP-PROMPT: `Enter a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: `The case number for this exam should be an exact match to an existing case number in the Rad/Nuc Med patient file #70.` TECHNICAL DESCR: `This field is automatically populated when the record in file 70.2 is created during Registration or case editing. It is one of three fields used as a "back-pointer" to identify the case (3rd multiple level subrecord) in` `the Rad/Nuc Med Patient file #70 to which the radiopharmaceutical data applies.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `70.2^AA3^MUMPS` `1)= N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,"^"),RA(2)=$P(RA,"^",2) S:RA(1)]""&(RA(2)]"") ^RADPTN("AA",RA(1),RA(2),X,DA)=""` `2)= N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,"^"),RA(2)=$P(RA,"^",2) K:RA(1)]""&(RA(2)]"") ^RADPTN("AA",RA(1),RA(2),X,DA)`
100	RADIOPHARMACEUTICALS	NUC;0	POINTER Multiple #70.21	70.21 DESCRIPTION: `If radiopharmaceutical(s) have been associated with a nuclear med procedure, they will be automatically entered by the system when the case is registered. Radiopharmaceuticals associated with a case may be deleted or` `added during case editing.`

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