Routine: LRDPAREF

Information

LRDPAREF ;DALOI/FHS - PENDING ORDER FILE PATIENT LOOKUP ; 12/3/1997

Name	Comments	DBIA/ICR reference
EN	; From ^LRDPA ; Initialize array LRSD. ; CDT=collection date/time ; DFN=ien of patient in selected file ; DOB=patient's date of birth ; DPF=source file (2, or 67) ; ERROR=0 ; LPC=longitudinal parity check ; PNM=patient name ; RIEN=IEN of ^LRT(67 ; RPSITE=primary sending site ; RSITE=sending site ; RSITEN=sending site name ; RUID=specimen unique identifier ; SEX=patient's sex ; SSN=patient's SSN ; LA7PNM=Patient Bar code read if lookup fails ; On exit LRDPF set to '67^LRT(67, DFN=RIEN
CK	;S PNM=LRSD("PNM"),SSN=LRSD("SSN"),DOB=LRSD("DOB"),SEX=LRSD("SEX"),LRXDPF=LRSD("DPF"),LRXDFN=LRSD("DFN")
OK	;
E2
E3
RUID	;
DUP
ERR	;
ERR1	;
CLEAN	;
BAR	; Scan PD bar code for patient/specimen info
MAN	; Manual referral patient lookup
MF696	; Manual lookup of file #69.6
DIQ	; Display patient info
ERRMSG(X,Y)	; Display error message to user ; Call with X=error message code^error message text ; Y=message prefix

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(LRSD("ERROR"),"^",2),! Line Location: CK+4
Function Call: WRITE	Prompt: !!,"Internal patient ID incorrect in ^LR( for ",PNM,"." Line Location: E3+1
Function Call: WRITE	Prompt: !,"Contact Lab Coordinator.",$C(7) Line Location: E3+2
Function Call: WRITE	Prompt: !,$C(7),"Internal patient ID incorrect for ",PNM,"." Line Location: E3+5
Function Call: WRITE	Prompt: !,"Contact Lab Coordinator." Line Location: E3+6
Function Call: WRITE	Prompt: !?5,"There are duplicate SSNs in the Referral File <abort>",!,$C(7) Line Location: DUP+0
Function Call: WRITE	Prompt: !,"ERROR",! Line Location: ERR+1
Function Call: WRITE	Prompt: !,"ERROR1",! Line Location: ERR1+1
Function Call: WRITE	Prompt: @IOF Line Location: DIQ+6