Global: ^LRT(67

FileMan FileNo	FileMan Filename	Package
67	REFERRAL PATIENT	Lab Service

Package	Total	Routines
Lab Service	5	LRCAPDSS LRDPAREF LRDPAREX RELATED NAME ^LRT(67
Automated Lab Instruments	3	LA7SBCR1 LA7VORR1 LA7VPID
DSS Extracts	1	ECXLABN
Oncology	1	ONCOTNM2
Text Integration Utility	1	TIUCOP1

Package	Total	Routines
Lab Service	4	LRDPAREX LREGFR LREGFR2 LRSPRPT
Automated Lab Instruments	2	LA7UIO1 LA7VPID
Oncology	2	ONCACDU2 ONCOES
Text Integration Utility	2	TIUCOPP TIUCOPR1
Imaging	1	MAGGTLB

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]
Oncology	1	ONCOLOGY PATIENT(#160)[.01]
Order Entry Results Reporting	1	ORDER(#100)[.02]
Registration	1	PATIENT(#2)[67]

Package	Total	FileMan Files
Registration	4	RACE(#10)[.06] MARITAL STATUS(#11)[.05] RELIGION(#13)[.08] PATIENT(#2)[2, 3]
Lab Service	2	LAB DATA(#63)[63] REFERRAL PATIENT(#67)[3]
Kernel	1	STATE(#5)[.115]
Network Health Exchange	1	VAMC NETWORK PATIENT(#537010)[2.2]

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 PATIENT FILE (#2)	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 VAMC NETWORK PATIENT FILE (#537010)	VAMC NETWORK PATIENT(#537010) 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	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`

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)
$$FMTE^XLFDT	ID.03+1, .03OT+1

>>	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*

Customize PDF page

Package: Lab Service

Global: ^LRT(67

Information

Description

Directly Accessed By Routines, Total: 11

Accessed By FileMan Db Calls, Total: 11

Pointed To By FileMan Files, Total: 7

Pointer To FileMan Files, Total: 8

Fields, Total: 25

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: