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 |  Found Entries |  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: 254

Package Total Routines
Radiology Nuclear Medicine 232 *PRE-REGISTERED EXAMS    CONTRAST MEDIA ACTIVITY LOG    RA45PST1    RABUL1    RACPTCSV    RACTEX    RACTEX2    RACTRG
RACTRG1    RACTRG2    RACTRG3    RACTRG4    RACTRG5    RACTRG6    RACTRG7    RACTRG8
RACTRG9    RADD1    RADEM    RADLY1    RADTICK    RAFLH1    RAHLR1    RAHLRPC
RAHLRPT    RAHLRS    RALIST    RALWKL    RALWKL3    RAMIS    RANMPT1    RANMUSE2
RAO7NEW    RAO7PC3    RAO7PC4    RAO7UTL1    RAOUT    RAPAST    RAPMW1    RAPTLU
RAREG    RAREG1    RAREG2    RAREG4    RART    RARTE    RARTR    RARTST2
RARTST2A    RASETU    RASTEXT    RASTREQ    RASTRPT2    RAUTL21    RAUTL9    RAWKL1
RAWKLU    SECONDARY DIAGNOSTIC CODE    ^RADPT    CONTRAST MEDIA    CPT MODIFIERS    EXAMINATIONS    MEDICATIONS    OUTSIDE FILMS REGISTRY
PROCEDURE MODIFIERS    RA27PST    RAAPI    RABIRAD    RABTCH    RABUL2    RABUL3    RABWORD1
RABWORD2    RABWRTE    RACDR    RACMP    RACMP1    RACMP2    RACNLU    RACPT
RACPTMSC    RACTEX1    RACTEX11    RACTEX12    RACTEX14    RACTEX15    RACTEX16    RACTEX19
RACTEX3    RACTEX4    RACTEX5    RACTEX6    RACTEX7    RACTEX8    RACTRG10    RACTRG11
RACTRG12    RACTRG13    RACTTK    RACTTK1    RACTTK10    RACTTK11    RACTTK12    RACTTK13
RACTTK14    RACTTK18    RACTTK2    RACTTK3    RACTTK4    RACTTK5    RACTTK6    RACTTK7
RACTTK8    RACTTK9    RACTVR    RACTWR    RADEM1    RADEM2    RADLQ1    RADLY
RADOSTIK    RAEDCN    RAEDCN1    RAEDPT    RAESO    RAESR    RAFLH    RAFLM1
RAHLO    RAHLO1    RAHLO2    RAHLO3    RAHLO4    RAHLQ    RAHLQ1    RAHLR
RAHLR1A    RAHLRPT1    RAHLRPT2    RAHLRPTT    RAHLRS1    RAHLRU1    RAHLTCPU    RAIPST3
RAJAC    RAKRDIT    RAMAGU04    RAMAINU    RAMAINU1    RANMED1    RAO7CMP    RAO7PC1
RAO7PC1A    RAO7PC2    RAO7UTL    RAO7XX    RAORD1    RAORD2    RAORD6    RAORD61
RAORDC    RAORDC1    RAORDU    RAPCE    RAPCE1    RAPCE2    RAPM    RAPMW
RAPRC    RAPRINT    RAPRINT1    RAPROD    RAPROD1    RAPROD2    RAPROQ    RAPROS
RAPSET1    RAPURGE1    RAPXRM    RARECOV    RAREG3    RARESTOR    RARIC    RARIC1
RART1    RART3    RARTE1    RARTE2    RARTE3    RARTE4    RARTE5    RARTE6
RARTE7    RARTFLDS    RARTR0    RARTR1    RARTR2    RARTR3    RARTRPV    RARTRPV1
RARTST    RARTUVR1    RARTUVR2    RARTUVR3    RARTVER2    RASTAT    RASTED    RASTREQ1
RATRAN    RAUTL    RAUTL0    RAUTL1    RAUTL10    RAUTL11    RAUTL12    RAUTL15
RAUTL16    RAUTL16A    RAUTL2    RAUTL20    RAUTL3    RAUTL4    RAUTL5    RAUTL7A
RAUTL8    RAWFR1    RAWFR2    RAWKLU2    REASON FOR NOT PURGING    REGISTERED EXAMS    SECONDARY INTERPRET'G RESIDENT    SECONDARY INTERPRETING STAFF
IHS Mods To Radiology Nuclear Medicine 7 BRAPCC    BRAPRAD    BRAPREG    BRARPT1    BRARPT3    BRARPT5    BRAWH    
Health Summary 2 GMTSRAD    GMTSRAE    
PCE Patient Care Encounter 2 PXICLN9B    PXRRPCE4    
Patient Care Component Table Maintiance 2 APCM24E6    APCM25E6    
Tracking Procedure Workflow 2 BTPWPFND    BTPWRRAD    
Clinical Reminders 1 PXRMISE    
Health Summary Components 1 BHSNRS    
IHS GPRA Information System 1 BGPMUD08    
Local Area Programs 1 AZAXDPM2    
Patient Care Component 1 APCHS8    

Accessed By FileMan Db Calls, Total: 58

Package Total Routines
Radiology Nuclear Medicine 55 RA27LIST    RACTEX    RACTEX1    RACTEX11    RACTEX12    RACTEX14    RACTEX15    RACTEX16
RACTEX2    RACTEX3    RACTEX4    RACTEX5    RACTEX6    RACTEX7    RACTEX8    RACTRG
RACTRG1    RACTRG10    RACTRG11    RACTRG12    RACTRG2    RACTRG5    RACTRG6    RACTRG7
RACTRG8    RACTRG9    RACTTK    RACTTK1    RACTTK10    RACTTK11    RACTTK12    RACTTK13
RACTTK14    RACTTK2    RACTTK3    RACTTK4    RACTTK5    RACTTK6    RACTTK7    RACTTK8
RACTTK9    RADPA    RAEDCN    RAEDPT    RAESO    RAHLEX    RAO7PC4    RAO7XX
RAORD1    RAOUT    RAPAST    RAPTLU    RAPXRM    RAREG2    RASTED    
Health Summary 3 GMTSRAI    GMTSRAS    GMTSRASP    

Pointer To FileMan Files, Total: 24

Package Total FileMan Files
Radiology Nuclear Medicine 15 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.01(6), #70.02(2)]    NUC MED EXAM DATA(#70.2)[#70.03(500)]    RAD/NUC MED PROCEDURES(#71)[#70.01(2), #70.01(4), #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.01(9), #70.03(6)]    SPECIALTY(#42.4)[#70.03(19)]    VA PATIENT(#2)[.01]    
Kernel 2 SERVICE/SECTION(#49)[#70.03(7)]    NEW PERSON(#200)[.06, #70.01(8), #70.03(12), #70.03(14), #70.03(15), #70.05(3), #70.07(3), #70.08(3), #70.09(.01), #70.09(3), #70.11(.01), #70.12(.01), #70.15(4), #70.16(3)]    
CPT Files 1 CPT MODIFIER(#81.3)[#70.3135(.01)]    
IHS Patient 1 VISIT(#9000010)[#70.03(27)]    
Pharmacy Data Management 1 DRUG(#50)[#70.15(.01)]    
Scheduling 1 HOSPITAL LOCATION(#44)[#70.01(7), #70.03(8), #70.03(22)]

Fields, Total: 12

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA 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)





75
*PRE-REGISTERED EXAMS
PRE;0
DATE Multiple #70.01 
70.01
  • DESCRIPTION:  
    This is a multiple field containing information about this patient's pre-registered radiology exams.  Much of this information is used for default answers when the exam is actually processed for registration.





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







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




^RADPT - [#70]
.03OF9.2+1, .033OF9.2+1, .09OF9.2+1, .361OF9.2+1, 1901OF9.2+1




^RADPT("B"
.01(XREF 1S), .01(XREF 1K)








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
.01(XREF 1S), .01(XREF 1K)




>> DINUM
.01+1*




U
.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
.01+1, .01(XREF 1S), .01(XREF 1K), .03+1*, .033+1*, .033OF9.2+1, .09+1*, .361+1*, 1+1!, 1901+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 | 
Found Entries | 
Global Variables Directly Accessed | 
Naked Globals | 
Local Variables | 
All