Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
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

Directly Accessed By Routines, Total: 301

Package Total Routines
Radiology Nuclear Medicine 221 CONTRAST MEDIA    CONTRAST MEDIA ACTIVITY LOG    CPT MODIFIERS    EXAMINATIONS    HL7 FIELD EXCEPTIONS    MEDICATIONS    OUTSIDE FILMS REGISTRY    PROCEDURE MODIFIERS
RA DAILY LOG    RA DIAGNOSTIC BY CASE    RA DISTRIBUTION EDIT    RA DISTRIBUTION LOG    RA EXAM EDIT    RA OUTSIDE EDIT    RA OUTSIDE LIST    RA OUTSIDE SUPEROK
RA REGISTER    RA STATUS CHANGE    RA VERIFY REPORT ONLY    RA27PST    RA45PST1    RABIRAD    RABTCH    RABUL1
RABUL2    RABUL3    RABWORD1    RABWORD2    RABWRTE    RACDR    RACMP    RACPT
RACPTCSV    RACPTMSC    RACTRG    RACTRG2    RACTRG3    RACTRG4    RACTRG6    RACTRG7
RACTRG8    RACTRG9    RACTVR    RACTWR    RADD2    RADEM    RADEM2    RADLQ1
RADLY    RADLY1    RADRPT1    RADRPT1A    RADRPT2    RADRPT2A    RADTICK    RAEDCN
RAESO    RAESR    RAFLH    RAFLH1    RAFLM1    RAHLO    RAHLO2    RAHLO3
RAHLO4    RAHLQ    RAHLQ1    RAHLR    RAHLR1A    RAHLRPC    RAHLRPT    RAHLRPT1
RAHLRPT2    RAHLRPTT    RAHLRS1    RAHLTCPU    RAHLTCPX    RAIPS124    RAIPST3    RAJAC
RAKRDIT    RALIST    RALWKL3    RAMAGU04    RAMAINU    RAMAINU1    RAMAORPT    RAMIS
RANMPT1    RAO7CMP    RAO7NEW    RAO7PC1    RAO7PC2    RAO7PC3    RAO7PC4    RAO7UTL
RAO7UTL1    RAO7XX    RAORD1    RAORDC    RAORDU    RAOUT    RAPAST    RAPCE
RAPCE1    RAPM    RAPMW    RAPMW1    RAPRC    RAPRINT    RAPROD    RAPROD1
RAPROQ    RAPTLU    RAPXRM    RARECOV    RAREG    RAREG2    RARESTOR    RARIC
RARIC1    RARPTUT    RART    RART1    RARTE    RARTE1    RARTE2    RARTE4
RARTE5    RARTE6    RARTE7    RARTFLDS    RARTR    RARTR0    RARTR1    RARTR2
RARTR3    RARTRPV    RARTRPV1    RARTST    RARTST2    RARTUVR1    RARTUVR2    RARTUVR3
RARTVER2    RASETU    RASTAT    RASTEXT    RASTREQ1    RASYNCH    RASYNCHLU    RATRAN
RAUTL0    RAUTL1    RAUTL10    RAUTL11    RAUTL12    RAUTL15    RAUTL16    RAUTL16A
RAUTL20    RAUTL21    RAUTL7A    RAUTL8    RAWFR1    RAWFR2    RAWKL1    REASON FOR NOT PURGING
REGISTERED EXAMS    SECONDARY DIAGNOSTIC CODE    ^RADPT    RAAPI    RACMP1    RACMP2    RACNLU    RACTRG1
RACTRG5    RADD1    RADEM1    RADOSTIK    RADUTL    RAEDCN1    RAEDPT    RAHLO1
RAHLR1    RAHLRS    RAHLRU1    RAIPS160    RALWKL    RANMED1    RANMUSE2    RAO7PC1A
RAORD2    RAORD6    RAORD61    RAORDC1    RAPCE2    RAPRINT1    RAPROD2    RAPROS
RAPSET1    RAPURGE1    RAREG1    RAREG3    RAREG4    RART3    RARTE3    RARTST2A
RASTED    RASTREQ    RASTRPT2    RAUTL    RAUTL2    RAUTL3    RAUTL4    RAUTL5
RAUTL9    RAWKLU    RAWKLU2    SECONDARY INTERPRET'G RESIDENT    SECONDARY INTERPRETING STAFF    
Imaging 45 MAGBRTE4    MAGBRTE5    MAGDIR8A    MAGDIR9A    MAGDQR03    MAGDQR04    MAGDQR05    MAGDQR06
MAGDQR11    MAGDQR23    MAGDQR32    MAGDQR72    MAGDRA1    MAGDRA3    MAGDRPC3    MAGDRPC4
MAGDRPC9    MAGDRPCA    MAGDSTA2    MAGDSTA5    MAGGTRA1    MAGGTRAI    MAGJEX1    MAGJEX1A
MAGJEX2    MAGJLS3    MAGJLS4    MAGJORD    MAGJRPT    MAGJUPD1    MAGJUTL1    MAGJUTL4
MAGJUTL6    MAGNAN03    MAGNTRAI    MAGNU003    MAGNVQ02    MAGNVQ06    MAGUE002    MAGVD005
MAGVGUID    MAGVIM02    MAGVIMRA    MAGVORDR    MAGVRS81    
Vendor - ISI 6 ISIDICR1    ISIJFAV    ISIJLS2    ISIJNOTE    ISIJRPT    ISIJRPT2    
Womens Health 6 WVALERTR    WVALERTS    WVEXPTRA    WVPRE    WVRADWP    WVRALINK    
Health Summary 3 GMTSRAD    GMTSRAE    GMTSRASE    
PCE Patient Care Encounter 3 PXICLN9B    PXQPPUTIL    PXRRPCE4    
Clinical Reminders 2 PXRMCALT    PXRMISE    
Kernel 2 ARRAY SUBSCRIPTS    COMPUTABLE FILE REFERENCES    
Virtual Patient Record 2 VPREVSND    VPRSDAR    
DSS Extracts 1 ECXRAD    
Oncology 1 ONCOCFR    
Order Entry Results Reporting 1 ORWORB    
Record Tracking 1 RTSM3    

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

External References

Name Field # of Occurrence
AEASSET^RADD2 IXAESL+1, IXASSL+1
AEKILL^RADD2 IXAEKL+1
PRIDXIXK^RADD2 IXADKL+1
KRAD^RAPXRM IXACRKL+1
SRAD^RAPXRM IXACRSL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 .033OF9.2+1, 1901OF9.3+1
^DD(70 .03+1, .033+1, .09+1, .361+1, 1901+1, 1901OF9.3+1
^DIC(8 - [#8] .361+1
^DPT - [#2] .03OF9.2+1, .033OF9.2+1, .09OF9.2+1, .361OF9.2+1, 1901OF9.2+1, 1901OF9.3+1
^PXRMINDX(70 IXACRKEIC+1!
^RA(78.3 - [#78.3] IXADSL+1
^RADPT - [#70] .03OF9.2+1, .033OF9.2+1, .09OF9.2+1, .361OF9.2+1, 1901OF9.2+1
^RADPT("AD" IXADSL+1*
^RADPT("ADC1" IXADC1SL+1*, IXADC1KL+1!, IXADC1KEIC+1!
^RADPT("AE" IXAEKEIC+1!
^RADPT("AS" IXASKL+1!, IXASKEIC+1!
^RADPT("ASIUID" IXASIUIDSL+1*, IXASIUIDKL+1!, IXASIUIDKEIC+1!
^RADPT("ATO" IXATOSL+1*, IXATOKL+1!, IXATOKEIC+1!
^RADPT("B" .01(XREF 1S), .01(XREF 1K)
^RADPT("EDM" IXEDMSL+1*, IXEDMKL+1!, IXEDMKEIC+1!

Naked Globals

Name Field # of Occurrence
^( .361OF9.2+1
^("VET" 1901OF9.3+1
^(0 .03OF9.2+1, .033OF9.2+1, .09OF9.2+1, .361+1, .361OF9.2+1, 1901OF9.2+1, 1901OF9.3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .03+1*, .03OF9.2+1*, .033+1*, .033OF9.2+1*, .09+1*, .09OF9.2+1*, .361+1*, .361OF9.2+1*, 1901+1*, 1901OF9.2+1*
, 1901OF9.3+1
>> DA IXACRSL+1, IXACRKL+1, IXADSL+1, IXADKL+1, IXADC1SL+1, IXADC1KL+1, IXAESL+1, IXAEKL+1, IXASSL+1, IXASKL+1
, IXASIUIDSL+1, IXASIUIDKL+1, IXATOSL+1, IXATOKL+1, IXEDMSL+1, IXEDMKL+1, .01(XREF 1S), .01(XREF 1K)
>> DA(1 IXADSL+1, IXADC1SL+1, IXADC1KL+1, IXASKL+1, IXASIUIDSL+1, IXASIUIDKL+1, IXATOSL+1, IXATOKL+1, IXEDMSL+1, IXEDMKL+1
>> DA(2 IXADSL+1, IXADC1SL+1, IXADC1KL+1, IXASKL+1, IXASIUIDSL+1, IXASIUIDKL+1, IXATOSL+1, IXATOKL+1, IXEDMSL+1, IXEDMKL+1
, IXEDMP2CC+1
>> DA(3 IXATOSL+1, IXATOKL+1
>> DINUM .01+1*
U IXADSL+1, .03+1, .03OF9.2+1, .033OF9.2+1, .09+1, .09OF9.2+1, .361+1, .361OF9.2+1, 1901+1, 1901OF9.2+1
, 1901OF9.3+1
X IXACRSL+1, IXACRKL+1, IXADSCC+1*, IXADKCC+1*, IXADC1SL+1, IXADC1KL+1, IXAESL+1, IXASSL+1, IXASKL+1, IXASIUIDSL+1
, IXASIUIDKL+1, IXEDMSCC+1*, IXEDMKCC+1*, IXEDMP2CC+1*, .01+1, .01(XREF 1S), .01(XREF 1K), .03+1*, .033+1*, .033OF9.2+1
, .09+1*, .361+1*, 1+1!, 1901+1*
X(1 IXATOSL+1, IXATOKL+1, IXEDMSCC+1, IXEDMKCC+1
X(2 IXEDMSL+1, IXEDMKL+1
>> X1(1 IXADKL+1, IXADKCC+1
>> X2(1 IXADSL+1, IXADSCC+1
>> Y(70 .03+1, .03OF9.2+1*, .033+1, .033OF9.2+1*, .09+1, .09OF9.2+1*, .361+1, .361OF9.2+1*, 1901+1, 1901OF9.2+1*
, 1901OF9.3+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All