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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^LRT(67

Package: Lab Service

Global: ^LRT(67


Information

FileMan FileNo FileMan Filename Package
67 REFERRAL PATIENT Lab Service

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Lab Service 4 LRCAPDSS    LRDPAREX    ^LRT(67    LRDPAREF    
Automated Lab Instruments 3 LA7SBCR1    LA7VORR1    LA7VPID    
IHS Changes To Lab 2 BLRSHDRC    BLRTNORD    
Local Area Programs 1 AZAXDPM2    
Phoenix 1 BZXLRSER    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Lab Service 4 LRDPAREX    LREGFR    LREGFR2    LRSPRPT    
Automated Lab Instruments 1 LA7VPID    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Lab Service 4 WKLD LOG FILE(#64.03)[2]    WKLD DATA(#64.1)[#64.1111(9)]    LAB PENDING ORDERS ENTRY(#69.6)[7]    REFERRAL PATIENT(#67)[3]    
Order Entry Results Reporting 1 ORDER(#100)[.02]    
Registration 1 VA PATIENT(#2)[67]    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Registration 4 RACE(#10)[.06]    MARITAL STATUS(#11)[.05]    RELIGION(#13)[.08]    VA PATIENT(#2)[23]    
Lab Service 2 LAB DATA(#63)[63]    REFERRAL PATIENT(#67)[3]    
Kernel 1 STATE(#5)[.115]    

Fields, Total: 25

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!(X?1P.E)!(X'?1U.ANP)!(X'[",") X I $D(X) S Y=", " F I=0:0 Q:$F(X,Y)<1 S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)
  • LAST EDITED:  AUG 30, 1989
  • HELP-PROMPT:  1-50 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION & CONTAIN A ','
  • DESCRIPTION:  
    Name of patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67^B
    1)= S ^LRT(67,"B",$E(X,1,30),DA)=""
    2)= K ^LRT(67,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  67^D^MUMPS
    1)= D UP^LRXREF S ^LRT(67,"D",X,DA)=""
    2)= D UP^LRXREF K ^LRT(67,"D",X,DA)
    This MUMPS cross reference stores the name of the REFERRAL PATIENT in upper case and is used for look-up nd sorting purposes.  The format for the cross reference stored is below.
    ^LRT(67,"D",Name of Referral Patient in Upper Case,IEN) = ""
.02 SEX 0;2 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  JUL 23, 1987
  • DESCRIPTION:  
    Sex of patient.
.03 DOB 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EP" D ^%DT S X=Y K:1701231>X!(DT
  • OUTPUT TRANSFORM:  NUMDATE(DOB)
  • LAST EDITED:  JUL 23, 1987
  • HELP-PROMPT:  Enter the patient's date of birth between 12/31/1870 and today's date.
  • DESCRIPTION:  
    Date of birth of patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.033 AGE COMPUTED

  • MUMPS CODE:  S Y(67,.033,1)=$S($D(^LRT(67,D0,0)):^(0),1:"") S X=DT,X1=X,X2=$P(Y(67,.033,1),U,3),X="" D:X2 ^%DTC:X1 S X=X\365.25
  • ALGORITHM:  DT-DOB\365.25
  • DESCRIPTION:  
    Computed field.
.05 MARITAL STATUS 0;5 POINTER TO MARITAL STATUS FILE (#11) MARITAL STATUS(#11)

  • LAST EDITED:  OCT 26, 1987
  • DESCRIPTION:  
    This field contains the marital status of the referral patient.
  • GROUP:  DEMOG
.06 RACE 0;6 POINTER TO RACE FILE (#10) RACE(#10)

  • LAST EDITED:  SEP 12, 1994
.08 RELIGION 0;8 POINTER TO RELIGION FILE (#13) RELIGION(#13)

  • LAST EDITED:  OCT 26, 1987
  • DESCRIPTION:  
    This field contains the religious preference of the referral patient.
.09 IDENTIFIER 0;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X),$O(^LRT(67,"C",X,0))>0 K X N LRX S LRX=$C(7)_"Already exists" D EN^DDIOL(LRX)
  • LAST EDITED:  JUN 09, 1997
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Short description of referral.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67^C
    1)= S ^LRT(67,"C",$E(X,1,30),DA)=""
    2)= K ^LRT(67,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  67^BS^MUMPS
    1)= S:$L(X)=9 ^LRT(67,"BS",$E(X,6,9),DA)=""
    2)= K:$L(X)=9 ^LRT(67,"BS",$E(X,6,9),DA)
    This MUMPS cross reference stores the last 4 digits of the identifier (if the identifier is 9 characters in length as it would be if it is the SSN) to be used for look-ups.  The format for the cross reference is below.
    ^LRT(67,"BS",$E(Identifier,6,9),IEN) = ""
  • CROSS-REFERENCE:  67^BS5^MUMPS
    1)= S:$L(X)=9 ^LRT(67,"BS5",$E(^LRT(67,DA,0),1)_$E(X,6,9),DA)=""
    2)= K:$L(X)=9 ^LRT(67,"BS5",$E(^LRT(67,DA,0),1)_$E(X,6,9),DA)
    This MUMPS cross reference stores the first letter of the REFERRAL PATIENT name appended to the last 4 characters of the identifier for the purpose of facilitating look-ups within the file.  The format for the cross
    reference is below.
    ^LRT(67,"BS5",$E(Name,1)_$E(Identifier,6,9),IEN)=""
.1 REFERRAL SOURCE .1;E1,19 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>19!($L(X)<2) X
  • LAST EDITED:  MAR 19, 1985
  • DESCRIPTION:  
    Where specimen came from- (ex. Hospital, Physician's office)
  • CROSS-REFERENCE:  67^CN
    1)= S ^LRT(67,"CN",$E(X,1,30),DA)=""
    2)= K ^LRT(67,"CN",$E(X,1,30),DA)
.104 PROVIDER .104;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<2) X
  • LAST EDITED:  FEB 28, 1997
  • HELP-PROMPT:  Answer must be 2-35 characters in length.
.111 STREET ADDRESS .11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  MAR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Street part of address of patient.
.112 STREET ADDRESS 2 .11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Secondary street address.
.113 STREET ADDRESS 3 .11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Tertiary street address.
.114 CITY .11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    City part of address of patient.
.115 STATE .11;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAR 19, 1985
  • DESCRIPTION:  
    State part of address of patient.
.116 ZIP CODE .11;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'(X?1N.N."-"1N.N) X
  • LAST EDITED:  MAR 19, 1985
  • HELP-PROMPT:  Enter as 5 numerics (NNNNN) or 5 numerics dash 4 numerics (NNNNN-NNNN)
  • DESCRIPTION:  
    Zip code part of address of patient.
.131 PHONE .13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  MAR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Home phone number of patient.
.132 OFFICE PHONE .13;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Office (work) phone number of patient.
.133 PHONE #3 .13;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Other phone number.
.134 PHONE #4 .13;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Other phone number.
.351 DATE OF DEATH .35;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 10, 1992
  • DESCRIPTION:  
    Date of death of patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 PATIENT FILE REF DPT;1 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • INPUT TRANSFORM:  S DIC("S")="I $G(^DPT(Y,""LRT""))=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 20, 1996
  • DESCRIPTION:  This field contains the pointer to ^DPT( and is used to obtain patient's demographics. LEDI accessioning attempts to find a match in the Patient file (#2) using the PID (Socical Security Number). If a match is found, the
    patient's demographic information is copied into the REFERRAL PATIENT file fields, NAME, SSN, Date of Birth and sex.
    The pointer entry stored in this field is used in future lookup for data validation.
  • SCREEN:  S DIC("S")="I $G(^DPT(Y,""LRT""))=DA"
  • EXPLANATION:  Select the correct patient
2.2 NHE FILE REF NHE;1 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAR 01, 1997
  • DESCRIPTION:  This field contains the pointer to the VAMC NETWORK PATIENT (#537010) file used to obtain patient's demographics. LEDI accessioning software attempts to find a match in the 537010 file using the PID (SSN). If a match is
    found, the patient's demographic information is copied into the REFERRAL PATIENT fields NAME,SSN and Date of Birth.
    The pointer entry stored in this field is used in future lookups to data validation.
3 Patient Name 3;1 VARIABLE POINTER VA PATIENT(#2)  REFERRAL PATIENT(#67)  

  • LAST EDITED:  FEB 17, 1997
  • DESCRIPTION:  
    This field controls the sequence used to lookup of patient's demographic information already stored in either ^DPT( or the ^LRT(67 files.  This field is used by LEDI patient accessioning software.
63 LABORATORY REFERENCE LR;1 POINTER TO LAB DATA FILE (#63) LAB DATA(#63)

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  MAR 19, 1985
  • HELP-PROMPT:  Any changes to this entry must be made from the lab data entry routines. This is the patient's record number in the lab data file.
  • DESCRIPTION:  
    Patient's record number in the lab data file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3260
  • IMAGING
  • DSS EXTRACTS
  • NAME (.01).
    Access: Read w/Fileman

    IDENTIFIER (.09).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .03+1, .351+1
    ^%DTC .033+1
    EN^DDIOL .09+1
    ^DIC 2+1
    UP^LRXREF .01(XREF 2S), .01(XREF 2K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LRT(67 - [#67] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .033+1, .09+1, .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K)
    .09(XREF 3S), .09(XREF 3K), .1(XREF 1S), .1(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.03+1, ID.09+1, .033+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT .03+1*, .351+1*!
    %DT(0 .351+1*
    >> D0 .033+1
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K)
    .1(XREF 1S), .1(XREF 1K)
    DIC ID.02+1, 2+1!*
    DIC("S" .104SCR+1*, 2+1*, 2SCR+1*
    >> DIE 2+1
    DT .03+1, .033+1
    >> I .01+1*
    LRX .09+1~*
    U ID.03+1, ID.09+1, .033+1
    X .01+1!*, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .03+1*!, .03OT+1*, .033+1*, .09+1!, .09(XREF 1S)
    .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K), .1+1!, .1(XREF 1S), .1(XREF 1K), .104+1!, .111+1!
    , .112+1!, .113+1!, .114+1!, .116+1!, .131+1!, .132+1!, .133+1!, .134+1!, .351+1*!, 2+1*!
    , 63+1!
    >> X1 .033+1*
    >> X2 .033+1*
    >> Y .01+1*, .03+1, .03OT+1*, .351+1, 2+1
    >> Y(0 .03OT+1*
    >> Y(67 .033+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All