Global: ^LRT(67

FileMan FileNo	FileMan Filename	Package
67	REFERRAL PATIENT	Lab Service

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

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

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]

Package	Total	FileMan Files
Registration	4	RACE(#10)[.06] MARITAL STATUS(#11)[.05] RELIGION(#13)[.08] VA PATIENT(#2)[2, 3]
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`

>>	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: 5

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 7

Fields, Total: 25

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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)